diff options
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r-- | src/interp/i-output.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index f064be78..d4ddf4df 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -1601,12 +1601,12 @@ outputNumber(start,linelength,num) == linelength:=linelength-1 while # num > linelength repeat if $collectOutput then - $outputLines := [strconc(blnks, SUBSTRING(num,0,linelength),under), + $outputLines := [strconc(blnks, subString(num,0,linelength),under), :$outputLines] else sayALGEBRA [blnks, - SUBSTRING(num,0,linelength),under] - num := SUBSTRING(num,linelength,NIL) + subString(num,0,linelength),under] + num := subString(num,linelength) if firsttime then blnks:=strconc(blnks,'" ") linelength:=linelength-1 @@ -1621,11 +1621,11 @@ outputString(start,linelength,str) == else blnks := '"" while # str > linelength repeat if $collectOutput then - $outputLines := [strconc(blnks, SUBSTRING(str,0,linelength)), + $outputLines := [strconc(blnks, subString(str,0,linelength)), :$outputLines] else - sayALGEBRA [blnks, SUBSTRING(str,0,linelength)] - str := SUBSTRING(str,linelength,NIL) + sayALGEBRA [blnks, subString(str,0,linelength)] + str := subString(str,linelength) if $collectOutput then $outputLines := [strconc(blnks, str), :$outputLines] else |