diff options
Diffstat (limited to 'src/interp/int-top.boot')
| -rw-r--r-- | src/interp/int-top.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index 67242955..db0257b2 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -164,7 +164,7 @@ intloopReadConsole(b, n)== not $leanMode and printPrompt() intloopReadConsole('"", c) a:=strconc(b,a) - ncloopEscaped a => intloopReadConsole(SUBSEQ(a, 0, (LENGTH a) - 1),n) + ncloopEscaped a => intloopReadConsole(SUBSEQ(a, 0, (# a) - 1),n) c := intloopProcessString(a, n) not $leanMode and printPrompt() intloopReadConsole('"", c) |