aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rwxr-xr-xdoc/tedoc.tes12
-rw-r--r--lib/string.tes2
2 files changed, 7 insertions, 7 deletions
diff --git a/doc/tedoc.tes b/doc/tedoc.tes
index 9c3d413..1f13e54 100755
--- a/doc/tedoc.tes
+++ b/doc/tedoc.tes
@@ -6,7 +6,7 @@
:EMQ[$SCITECOPATH]/getopt.tes
@[format_header]{
- FD--S .U.f :L"S.|Z'U.t Q.f,Q.tXa Q.f,Q.tD I^J
+ FD--S .,(:L"S.|Z')@Xa I^J
EBQ#tm
I\# GENERATED FROM Q.#sc (\.#sc):^J
@@ -23,19 +23,19 @@
Qa"S
Q.tJ
|
- .,Q.tXa .,Q.tD
+ .,Q.t@Xa
I^J.B Qa^J
'
>
J <
- S[MC]; .U.t -S[ .,Q.t-1Xa .-1,Q.tD
+ S[[MC]]; 1Xa D
I^J.RI [ Qa ]^J
>
J <FR->\(->;>
J <
SMCM[|MC];
.U.t <-A"C|-A-|"N1;'' R>
- .,Q.tXa .,Q.tD EQa
+ .,Q.t@Xa EQa
<FR| | ;>
EQ.[header]
I^J.IR Qa^J
@@ -111,13 +111,13 @@ EJ-1<
EQ.c
<FS^J^J ^J ;>
J <FS^J[S,]*[M[ , ],]^J;>
- J 0A-10"N X.[topics] K '
+ J 0A-10"N @X.[topics] '
<0A-10"N 0A- "N 0A-9"N 1; ' ' ' D>
ZJ <-A-10"N -A- "N -A-9"N 1; ' ' ' -D>
!* extract header *!
H:FD^J^J"F ZJ '
- 0,.X.[header] 0,.D
+ 0,.@X.[header]
EQ.[header]
:M[format_header]
diff --git a/lib/string.tes b/lib/string.tes
index 669b288..e6ec4a1 100644
--- a/lib/string.tes
+++ b/lib/string.tes
@@ -16,7 +16,7 @@
! <i,j>M[exchange] - Exchange line at I with line at J (I < J), returning new J !
@[exchange]{
U.jU.i
- Q.jJ X.xK
+ Q.jJ @X.x
Q.iJ G.x .-Q.i%.j .-(X.xL.)%.j -K
Q.jJ G.x
Q.j