From a93243ba77edf2f818ca5f2088485fa93bb32149 Mon Sep 17 00:00:00 2001
From: Robin Haberkorn <robin.haberkorn@googlemail.com>
Date: Wed, 4 Dec 2024 17:36:38 +0300
Subject: use the new ^Y, ^S and @Xq commands in tedoc.tes and string.tes

---
 doc/tedoc.tes  | 12 ++++++------
 lib/string.tes |  2 +-
 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
-- 
cgit v1.2.3