SUBSTRING cleanup

8 files changed, 83 insertions, 70 deletions

diff --git a/src/boot/includer.boot b/src/boot/includer.boot
index 0e316b6f..3f976b28 100644
--- a/src/boot/includer.boot
+++ b/src/boot/includer.boot
@@ -86,7 +86,7 @@ shoeNotFound fn ==
 shoeReadLispString(s,n) ==
     l:=# s
     n >= l => nil
-    READ_-FROM_-STRING strconc ( "(", SUBSTRING(s,n,l-n) ,")")
+    READ_-FROM_-STRING strconc ( "(", subString(s,n,l-n) ,")")
 
 -- read a line from stream
 shoeReadLine stream ==
@@ -143,11 +143,11 @@ lineCharacter p ==
 shoePackageStartsAt (lines,sz,name,stream)==
   bStreamNull stream => [[],['nullstream]]
   a := CAAR stream
-  #a >= 8 and SUBSTRING(a,0,8)='")package" =>
+  #a >= 8 and subString(a,0,8)='")package" =>
     shoePackageStartsAt([CAAR stream,:lines],sz,name,rest stream)
   #a < sz =>
     shoePackageStartsAt(lines, sz,name,rest stream)
-  SUBSTRING(a,0,sz)=name and (#a>sz and not shoeIdChar(a.sz)) =>
+  subString(a,0,sz)=name and (#a>sz and not shoeIdChar(a.sz)) =>
     [lines,stream]
   shoePackageStartsAt(lines,sz,name,rest stream)
  
@@ -260,7 +260,7 @@ shoePrefix?(prefix,whole) ==
   good:=true
   for i in 0..#prefix-1 for j in 0.. while good repeat
     good:= prefix.i = whole.j
-  good => SUBSTRING(whole,#prefix,nil) 
+  good => subString(whole,#prefix) 
   good
  
 shoePlainLine?(s) ==
@@ -286,8 +286,8 @@ shoeBiteOff x==
   n:=STRPOSL('" ",x,0,true)
   n = nil =>  false
   n1:=STRPOSL ('" ",x,n,nil)
-  n1 = nil =>  [SUBSTRING(x,n,nil),'""]
-  [SUBSTRING(x,n,n1-n),SUBSTRING(x,n1,nil)]
+  n1 = nil =>  [subString(x,n),'""]
+  [subString(x,n,n1-n),subString(x,n1)]
  
 shoeFileName x==
   a:=shoeBiteOff x
diff --git a/src/boot/scanner.boot b/src/boot/scanner.boot
index 62e44f22..9745bae6 100644
--- a/src/boot/scanner.boot
+++ b/src/boot/scanner.boot
@@ -145,7 +145,7 @@ shoeAccumulateLines(s,string)==
       a:=STRPOS('";",command,0,nil)
       a=>
 	shoeAccumulateLines($r,
-	   strconc(string,SUBSTRING(command,0,a-1)))
+	   strconc(string,subString(command,0,a-1)))
       shoeAccumulateLines($r,strconc(string,command))
     shoeAccumulateLines($r,string)
   [s,:string]
@@ -280,12 +280,12 @@ shoeStartsNegComment()==
 shoeNegComment()==
   n := $n
   $n := $sz
-  shoeLeafNegComment SUBSTRING($ln,n,nil)
+  shoeLeafNegComment subString($ln,n)
  
 shoeComment()==
   n := $n
   $n := $sz
-  shoeLeafComment SUBSTRING($ln,n,nil)
+  shoeLeafComment subString($ln,n)
  
 shoePunct()==
   sss := shoeMatch($ln,$n)
@@ -329,11 +329,11 @@ shoeS()==
   mn=$sz =>
     $n:=$sz
     SoftShoeError([$linepos,:$n],'"quote added")
-    SUBSTRING($ln,n,nil)
+    subString($ln,n)
   mn = strsym =>
     $n:=mn+1
-    SUBSTRING($ln,n,mn-n)
-  str := SUBSTRING($ln,n,mn-n)
+    subString($ln,n,mn-n)
+  str := subString($ln,n,mn-n)
   $n := mn+1
   a := shoeEsc()
   b := 
@@ -363,8 +363,8 @@ shoeW(b)==
   endid := shoeIdEnd($ln,$n)
   endid=l or QENUM($ln,endid) ~= shoeESCAPE => 
     $n := endid
-    [b,SUBSTRING($ln,n1,endid-n1)]
-  str := SUBSTRING($ln,n1,endid-n1)
+    [b,subString($ln,n1,endid-n1)]
+  str := subString($ln,n1,endid-n1)
   $n := endid+1
   a := shoeEsc()
   bb := 
@@ -392,8 +392,8 @@ shoeInteger1(zro) ==
     $n := $n+1
   $n=l or QENUM($ln,$n)~=shoeESCAPE =>
     n = $n and zro => '"0"
-    SUBSTRING($ln,n,$n-n)
-  str := SUBSTRING($ln,n,$n-n)
+    subString($ln,n,$n-n)
+  str := subString($ln,n,$n-n)
   $n := $n+1
   a := shoeEsc()
   bb := shoeInteger1(zro)
diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp
index 06904a5b..0956df6b 100644
--- a/src/boot/strap/includer.clisp
+++ b/src/boot/strap/includer.clisp
@@ -24,7 +24,7 @@
         (COND
           ((NOT (< |n| |l|)) NIL)
           (T (READ-FROM-STRING
-                 (CONCAT '|(| (SUBSTRING |s| |n| (- |l| |n|)) '|)|))))))))
+                 (CONCAT '|(| (|subString| |s| |n| (- |l| |n|)) '|)|))))))))
 
 (DEFUN |shoeReadLine| (|stream|) (READ-LINE |stream| NIL NIL))
 
@@ -90,13 +90,13 @@
         (T (SETQ |a| (CAAR |stream|))
            (COND
              ((AND (NOT (< (LENGTH |a|) 8))
-                   (STRING= (SUBSTRING |a| 0 8) ")package"))
+                   (STRING= (|subString| |a| 0 8) ")package"))
               (|shoePackageStartsAt| (CONS (CAAR |stream|) |lines|)
                   |sz| |name| (CDR |stream|)))
              ((< (LENGTH |a|) |sz|)
               (|shoePackageStartsAt| |lines| |sz| |name|
                   (CDR |stream|)))
-             ((AND (EQUAL (SUBSTRING |a| 0 |sz|) |name|)
+             ((AND (EQUAL (|subString| |a| 0 |sz|) |name|)
                    (< |sz| (LENGTH |a|))
                    (NOT (|shoeIdChar| (ELT |a| |sz|))))
               (LIST |lines| |stream|))
@@ -246,7 +246,7 @@
                (SETQ |i| (+ |i| 1))
                (SETQ |j| (+ |j| 1))))
            (COND
-             (|good| (SUBSTRING |whole| (LENGTH |prefix|) NIL))
+             (|good| (|subString| |whole| (LENGTH |prefix|)))
              (T |good|)))))))
 
 (DEFUN |shoePlainLine?| (|s|)
@@ -292,9 +292,9 @@
           ((NULL |n|) NIL)
           (T (SETQ |n1| (STRPOSL " " |x| |n| NIL))
              (COND
-               ((NULL |n1|) (LIST (SUBSTRING |x| |n| NIL) ""))
-               (T (LIST (SUBSTRING |x| |n| (- |n1| |n|))
-                        (SUBSTRING |x| |n1| NIL))))))))))
+               ((NULL |n1|) (LIST (|subString| |x| |n|) ""))
+               (T (LIST (|subString| |x| |n| (- |n1| |n|))
+                        (|subString| |x| |n1|))))))))))
 
 (DEFUN |shoeFileName| (|x|)
   (PROG (|c| |a|)
diff --git a/src/boot/strap/scanner.clisp b/src/boot/strap/scanner.clisp
index 1319d3c9..15ae2e96 100644
--- a/src/boot/strap/scanner.clisp
+++ b/src/boot/strap/scanner.clisp
@@ -146,7 +146,7 @@
                       (COND
                         (|a| (|shoeAccumulateLines| |$r|
                                  (CONCAT |string|
-                                         (SUBSTRING |command| 0
+                                         (|subString| |command| 0
                                           (- |a| 1)))))
                         (T (|shoeAccumulateLines| |$r|
                                (CONCAT |string| |command|)))))))
@@ -299,7 +299,7 @@
       (PROGN
         (SETQ |n| |$n|)
         (SETQ |$n| |$sz|)
-        (|shoeLeafNegComment| (SUBSTRING |$ln| |n| NIL))))))
+        (|shoeLeafNegComment| (|subString| |$ln| |n|))))))
 
 (DEFUN |shoeComment| ()
   (PROG (|n|)
@@ -308,7 +308,7 @@
       (PROGN
         (SETQ |n| |$n|)
         (SETQ |$n| |$sz|)
-        (|shoeLeafComment| (SUBSTRING |$ln| |n| NIL))))))
+        (|shoeLeafComment| (|subString| |$ln| |n|))))))
 
 (DEFUN |shoePunct| ()
   (PROG (|sss|)
@@ -366,10 +366,10 @@
            (COND
              ((EQUAL |mn| |$sz|) (SETQ |$n| |$sz|)
               (|SoftShoeError| (CONS |$linepos| |$n|) "quote added")
-              (SUBSTRING |$ln| |n| NIL))
+              (|subString| |$ln| |n|))
              ((EQUAL |mn| |strsym|) (SETQ |$n| (+ |mn| 1))
-              (SUBSTRING |$ln| |n| (- |mn| |n|)))
-             (T (SETQ |str| (SUBSTRING |$ln| |n| (- |mn| |n|)))
+              (|subString| |$ln| |n| (- |mn| |n|)))
+             (T (SETQ |str| (|subString| |$ln| |n| (- |mn| |n|)))
                 (SETQ |$n| (+ |mn| 1)) (SETQ |a| (|shoeEsc|))
                 (SETQ |b|
                       (COND
@@ -404,8 +404,8 @@
           ((OR (EQUAL |endid| |l|)
                (NOT (EQL (QENUM |$ln| |endid|) |shoeESCAPE|)))
            (SETQ |$n| |endid|)
-           (LIST |b| (SUBSTRING |$ln| |n1| (- |endid| |n1|))))
-          (T (SETQ |str| (SUBSTRING |$ln| |n1| (- |endid| |n1|)))
+           (LIST |b| (|subString| |$ln| |n1| (- |endid| |n1|))))
+          (T (SETQ |str| (|subString| |$ln| |n1| (- |endid| |n1|)))
              (SETQ |$n| (+ |endid| 1)) (SETQ |a| (|shoeEsc|))
              (SETQ |bb| (COND (|a| (|shoeW| T)) (T (LIST |b| ""))))
              (LIST (OR (ELT |bb| 0) |b|) (CONCAT |str| (ELT |bb| 1)))))))))
@@ -443,8 +443,8 @@
                (NOT (EQL (QENUM |$ln| |$n|) |shoeESCAPE|)))
            (COND
              ((AND (EQUAL |n| |$n|) |zro|) "0")
-             (T (SUBSTRING |$ln| |n| (- |$n| |n|)))))
-          (T (SETQ |str| (SUBSTRING |$ln| |n| (- |$n| |n|)))
+             (T (|subString| |$ln| |n| (- |$n| |n|)))))
+          (T (SETQ |str| (|subString| |$ln| |n| (- |$n| |n|)))
              (SETQ |$n| (+ |$n| 1)) (SETQ |a| (|shoeEsc|))
              (SETQ |bb| (|shoeInteger1| |zro|)) (CONCAT |str| |bb|)))))))
 
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index 45c988f4..01f54c47 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -15,6 +15,11 @@
   (OR (ALPHANUMERICP |x|)
       (MEMBER |x| (LIST (|char| '|'|) (|char| '?) (|char| '%)))))
 
+(DEFUN |subString| (|s| |f| &OPTIONAL (|n| NIL))
+  (COND
+    ((NULL |n|) (SUBSEQ |s| |f|))
+    (T (SUBSEQ |s| |f| (+ |f| |n|)))))
+
 (DEFCONSTANT |shoeKeyWords|
     (LIST (LIST "and" 'AND) (LIST "by" 'BY) (LIST "case" 'CASE)
           (LIST "catch" 'CATCH) (LIST "cross" 'CROSS)
@@ -47,14 +52,14 @@
     (RETURN
       (PROGN
         (SETQ |KeyTable| (MAKE-HASHTABLE 'CVEC))
-        (LET ((|bfVar#1| |shoeKeyWords|) (|st| NIL))
+        (LET ((|bfVar#2| |shoeKeyWords|) (|st| NIL))
           (LOOP
             (COND
-              ((OR (ATOM |bfVar#1|)
-                   (PROGN (SETQ |st| (CAR |bfVar#1|)) NIL))
+              ((OR (ATOM |bfVar#2|)
+                   (PROGN (SETQ |st| (CAR |bfVar#2|)) NIL))
                (RETURN NIL))
               (T (HPUT |KeyTable| (CAR |st|) (CADR |st|))))
-            (SETQ |bfVar#1| (CDR |bfVar#1|))))
+            (SETQ |bfVar#2| (CDR |bfVar#2|))))
         |KeyTable|))))
 
 (DEFPARAMETER |shoeKeyTable| (|shoeKeyTableCons|))
@@ -95,17 +100,17 @@
             ((< (LENGTH (ELT |u| |k|)) |l|) (RETURN NIL))
             (T (SETQ |k| (+ |k| 1)))))
         (SETQ |v| (MAKE-ARRAY (+ |n| 1)))
-        (LET ((|bfVar#2| (- |k| 1)) (|i| 0))
+        (LET ((|bfVar#3| (- |k| 1)) (|i| 0))
           (LOOP
             (COND
-              ((> |i| |bfVar#2|) (RETURN NIL))
+              ((> |i| |bfVar#3|) (RETURN NIL))
               (T (SETF (ELT |v| |i|) (ELT |u| |i|))))
             (SETQ |i| (+ |i| 1))))
         (SETF (ELT |v| |k|) |s|)
-        (LET ((|bfVar#3| (- |n| 1)) (|i| |k|))
+        (LET ((|bfVar#4| (- |n| 1)) (|i| |k|))
           (LOOP
             (COND
-              ((> |i| |bfVar#3|) (RETURN NIL))
+              ((> |i| |bfVar#4|) (RETURN NIL))
               (T (SETF (ELT |v| (+ |i| 1)) (ELT |u| |i|))))
             (SETQ |i| (+ |i| 1))))
         (SETF (ELT |d| |h|) |v|)
@@ -128,14 +133,14 @@
                       (T (SETF (ELT |a| |i|) |b|)))
                     (SETQ |i| (+ |i| 1))))
                 |a|))
-        (LET ((|bfVar#4| |l|) (|s| NIL))
+        (LET ((|bfVar#5| |l|) (|s| NIL))
           (LOOP
             (COND
-              ((OR (ATOM |bfVar#4|)
-                   (PROGN (SETQ |s| (CAR |bfVar#4|)) NIL))
+              ((OR (ATOM |bfVar#5|)
+                   (PROGN (SETQ |s| (CAR |bfVar#5|)) NIL))
                (RETURN NIL))
               (T (|shoeInsert| |s| |d|)))
-            (SETQ |bfVar#4| (CDR |bfVar#4|))))
+            (SETQ |bfVar#5| (CDR |bfVar#5|))))
         |d|))))
 
 (DEFPARAMETER |shoeDict| (|shoeDictCons|))
@@ -152,31 +157,31 @@
               ((> |i| 255) (RETURN NIL))
               (T (BVEC-SETELT |a| |i| 0)))
             (SETQ |i| (+ |i| 1))))
-        (LET ((|bfVar#5| |listing|) (|k| NIL))
+        (LET ((|bfVar#6| |listing|) (|k| NIL))
           (LOOP
             (COND
-              ((OR (ATOM |bfVar#5|)
-                   (PROGN (SETQ |k| (CAR |bfVar#5|)) NIL))
+              ((OR (ATOM |bfVar#6|)
+                   (PROGN (SETQ |k| (CAR |bfVar#6|)) NIL))
                (RETURN NIL))
               (T (COND
                    ((NOT (|shoeStartsId| (ELT |k| 0)))
                     (BVEC-SETELT |a| (QENUM |k| 0) 1)))))
-            (SETQ |bfVar#5| (CDR |bfVar#5|))))
+            (SETQ |bfVar#6| (CDR |bfVar#6|))))
         |a|))))
 
 (DEFPARAMETER |shoePun| (|shoePunCons|))
 
 (EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-  (LET ((|bfVar#6| (LIST 'NOT 'LENGTH)) (|i| NIL))
+  (LET ((|bfVar#7| (LIST 'NOT 'LENGTH)) (|i| NIL))
     (LOOP
       (COND
-        ((OR (ATOM |bfVar#6|) (PROGN (SETQ |i| (CAR |bfVar#6|)) NIL))
+        ((OR (ATOM |bfVar#7|) (PROGN (SETQ |i| (CAR |bfVar#7|)) NIL))
          (RETURN NIL))
         (T (SETF (GET |i| 'SHOEPRE) T)))
-      (SETQ |bfVar#6| (CDR |bfVar#6|)))))
+      (SETQ |bfVar#7| (CDR |bfVar#7|)))))
 
 (EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-  (LET ((|bfVar#7| (LIST (LIST 'SHOEEQ '=) (LIST 'TIMES '*)
+  (LET ((|bfVar#8| (LIST (LIST 'SHOEEQ '=) (LIST 'TIMES '*)
                          (LIST 'REM '|rem|) (LIST 'QUO '|quo|)
                          (LIST 'PLUS '+) (LIST 'IS '|is|)
                          (LIST 'ISNT '|isnt|) (LIST 'AND '|and|)
@@ -187,13 +192,13 @@
         (|i| NIL))
     (LOOP
       (COND
-        ((OR (ATOM |bfVar#7|) (PROGN (SETQ |i| (CAR |bfVar#7|)) NIL))
+        ((OR (ATOM |bfVar#8|) (PROGN (SETQ |i| (CAR |bfVar#8|)) NIL))
          (RETURN NIL))
         (T (SETF (GET (CAR |i|) 'SHOEINF) (CADR |i|))))
-      (SETQ |bfVar#7| (CDR |bfVar#7|)))))
+      (SETQ |bfVar#8| (CDR |bfVar#8|)))))
 
 (EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-  (LET ((|bfVar#8|
+  (LET ((|bfVar#9|
             (LIST (LIST '+ 0) (LIST '|gcd| 0) (LIST '|lcm| 1)
                   (LIST 'STRCONC "") (LIST '|strconc| "")
                   (LIST 'CONCAT "") (LIST 'MAX (- 999999))
@@ -206,13 +211,13 @@
         (|i| NIL))
     (LOOP
       (COND
-        ((OR (ATOM |bfVar#8|) (PROGN (SETQ |i| (CAR |bfVar#8|)) NIL))
+        ((OR (ATOM |bfVar#9|) (PROGN (SETQ |i| (CAR |bfVar#9|)) NIL))
          (RETURN NIL))
         (T (SETF (GET (CAR |i|) 'SHOETHETA) (CDR |i|))))
-      (SETQ |bfVar#8| (CDR |bfVar#8|)))))
+      (SETQ |bfVar#9| (CDR |bfVar#9|)))))
 
 (EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-  (LET ((|bfVar#9|
+  (LET ((|bfVar#10|
             (LIST (LIST '|abs| 'ABS) (LIST '|abstractChar| 'CODE-CHAR)
                   (LIST '|alphabetic?| 'ALPHA-CHAR-P)
                   (LIST '|alphanumeric?| 'ALPHANUMERICP)
@@ -248,6 +253,7 @@
                   (LIST '|setIntersection| 'INTERSECTION)
                   (LIST '|setPart| 'SETELT) (LIST '|setUnion| 'UNION)
                   (LIST '|strconc| 'CONCAT) (LIST '|string?| 'STRINGP)
+                  (LIST '|subSequence| 'SUBSEQ)
                   (LIST '|substitute| 'SUBST)
                   (LIST '|substitute!| 'NSUBST)
                   (LIST '|symbol?| 'SYMBOLP)
@@ -266,13 +272,13 @@
         (|i| NIL))
     (LOOP
       (COND
-        ((OR (ATOM |bfVar#9|) (PROGN (SETQ |i| (CAR |bfVar#9|)) NIL))
+        ((OR (ATOM |bfVar#10|) (PROGN (SETQ |i| (CAR |bfVar#10|)) NIL))
          (RETURN NIL))
         (T (SETF (GET (CAR |i|) 'SHOERENAME) (CDR |i|))))
-      (SETQ |bfVar#9| (CDR |bfVar#9|)))))
+      (SETQ |bfVar#10| (CDR |bfVar#10|)))))
 
 (EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL)
-  (LET ((|bfVar#10| (LIST (LIST '|setName| 0) (LIST '|setLabel| 1)
+  (LET ((|bfVar#11| (LIST (LIST '|setName| 0) (LIST '|setLabel| 1)
                           (LIST '|setLevel| 2) (LIST '|setType| 3)
                           (LIST '|setVar| 4) (LIST '|setLeaf| 5)
                           (LIST '|setDef| 6) (LIST '|aGeneral| 4)
@@ -301,8 +307,8 @@
         (|i| NIL))
     (LOOP
       (COND
-        ((OR (ATOM |bfVar#10|) (PROGN (SETQ |i| (CAR |bfVar#10|)) NIL))
+        ((OR (ATOM |bfVar#11|) (PROGN (SETQ |i| (CAR |bfVar#11|)) NIL))
          (RETURN NIL))
         (T (SETF (GET (CAR |i|) 'SHOESELFUNCTION) (CADR |i|))))
-      (SETQ |bfVar#10| (CDR |bfVar#10|)))))
+      (SETQ |bfVar#11| (CDR |bfVar#11|)))))
 
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp
index 51bfd7d4..e37043e5 100644
--- a/src/boot/strap/translator.clisp
+++ b/src/boot/strap/translator.clisp
@@ -725,7 +725,7 @@
     (RETURN
       (PROGN
         (SETQ |n| (SEARCH |str| |s| :FROM-END T))
-        (COND ((NULL |n|) |s|) (T (SUBSTRING |s| 0 |n|)))))))
+        (COND ((NULL |n|) |s|) (T (|subString| |s| 0 |n|)))))))
 
 (DEFUN DEFUSE (|fn|)
   (PROG (|infn|)
@@ -1087,7 +1087,7 @@
                   (|shoeFindName2| |fn| |name| |a|)))
         (SETQ |filename|
               (COND
-                ((< 8 (LENGTH |name|)) (SUBSTRING |name| 0 8))
+                ((< 8 (LENGTH |name|)) (|subString| |name| 0 8))
                 (T |name|)))
         (COND (|a| (FUNCALL |f| (CONCAT "/tmp/" |filename|))) (T NIL))))))
 
@@ -1100,7 +1100,7 @@
           (|lines| (SETQ |filename|
                          (COND
                            ((< 8 (LENGTH |name|))
-                            (SUBSTRING |name| 0 8))
+                            (|subString| |name| 0 8))
                            (T |name|)))
                    (SETQ |filename|
                          (CONCAT "/tmp/" |filename| ".boot"))
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index 08b5854c..6247a0b3 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -46,6 +46,12 @@ shoeStartsId x ==
 shoeIdChar x ==
   alphanumeric? x or x in [char "'", char "?", char "%"]
 
+++ return the sub-string of `s' starting from `f'.
+++ When non-nil, `n' designates the length of the sub-string.
+subString(s,f,n == nil) ==
+  n = nil => subSequence(s,f)
+  subSequence(s,f,f + n)
+
 ++ Table of Boot keywords and their token name.
 shoeKeyWords == [  _
             ['"and","AND"] , _
@@ -307,6 +313,7 @@ for i in [ _
   ["setUnion",   "UNION"]  , _
   ["strconc",  "CONCAT"]  , _
   ["string?",  "STRINGP"]  ,_
+  ["subSequence", "SUBSEQ"] , _
   ["substitute",  "SUBST"]  , _
   ["substitute!", "NSUBST"]  , _
   ["symbol?",  "SYMBOLP"]  , _
diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index 085e6755..c8d9452f 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -473,7 +473,7 @@ shoeAddStringIfNec(str,s)==
 shoeRemoveStringIfNec(str,s)==
   n := SEARCH(str,s,KEYWORD::FROM_-END,true)
   n = nil => s
-  SUBSTRING(s,0,n)
+  subString(s,0,n)
  
 -- DEFUSE prints the definitions not used and the words used and
 -- not defined in the input file and common lisp.
@@ -634,14 +634,14 @@ shoeGeneralFC(f,name,fn)==
    $GenVarCounter  := 0
    infn:=shoeAddbootIfNec fn
    a:= shoeOpenInputFile(a,infn,shoeFindName2(fn,name, a))
-   filename:= if # name > 8 then SUBSTRING(name,0,8) else name
+   filename:= if # name > 8 then subString(name,0,8) else name
    a =>  FUNCALL(f, strconc('"/tmp/",filename))
    nil
  
 shoeFindName2(fn,name,a)==
   lines:=shoeFindLines(fn,name,a)
   lines =>
-    filename:= if # name > 8 then SUBSTRING(name,0,8) else name
+    filename:= if # name > 8 then subString(name,0,8) else name
     filename := strconc('"/tmp/",filename,'".boot")
     shoeOpenOutputFile(stream, filename,
 	 for line in lines repeat shoeFileLine (line,stream))