diff options
Diffstat (limited to 'src/interp/int-top.boot')
| -rw-r--r-- | src/interp/int-top.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index f4c0240b..e7db6a29 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -162,7 +162,7 @@ intloopReadConsole(b, n)== not $leanMode and printPrompt() intloopReadConsole('"", c) a:=strconc(b,a) - ncloopEscaped a => intloopReadConsole(SUBSEQ(a, 0, (# a) - 1),n) + ncloopEscaped a => intloopReadConsole(subSequence(a, 0, #a - 1),n) c := intloopProcessString(a, n) not $leanMode and printPrompt() intloopReadConsole('"", c) @@ -182,7 +182,7 @@ intloopPrefix?(prefix,whole) == spaces := spaces + 1 else leading := false spaces = wlen => nil - if good then SUBSTRING(whole,spaces,nil) else good + if good then subString(whole,spaces) else good intloopProcess(n,interactive,s)== @@ -418,7 +418,7 @@ ncloopPrefix?(prefix,whole) == good:=true for i in 0..#prefix-1 for j in 0.. while good repeat good:= prefix.i = whole.j - if good then SUBSTRING(whole,#prefix,nil) else good + if good then subString(whole,#prefix) else good $ncmPhase := NIL |