diff options
Diffstat (limited to 'src/interp/incl.boot')
-rw-r--r-- | src/interp/incl.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/incl.boot b/src/interp/incl.boot index fbfdec71..c5d84db6 100644 --- a/src/interp/incl.boot +++ b/src/interp/incl.boot @@ -136,7 +136,7 @@ incCommandTail(s, info) == incDrop(n, b) == n >= #b => "" - SUBSTRING(b,n,nil) + subString(b,n) inclFname(s, info) == incFileName incCommandTail(s, info) @@ -148,12 +148,12 @@ incBiteOff x == else n1:=STRPOSL ('" ",x,n,nil) if null n1 -- all nonspaces - then [SUBSTRING(x,n,nil),'""] - else [SUBSTRING(x,n,n1-n),SUBSTRING(x,n1,nil)] + then [subString(x,n),'""] + else [subString(x,n,n1-n),subString(x,n1)] incTrunc (n,x)== if #x>n - then SUBSTRING(x,0,n) + then subString(x,0,n) else x incFileName x == first incBiteOff x |