diff options
Diffstat (limited to 'src/interp/scan.boot')
| -rw-r--r-- | src/interp/scan.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/scan.boot b/src/interp/scan.boot index 835712bd..c92d4d50 100644 --- a/src/interp/scan.boot +++ b/src/interp/scan.boot @@ -525,7 +525,7 @@ spleI(dig) == spleI1(dig,zro) == n := $n l := $sz - while $n<l and FUNCALL(dig,($ln.$n)) repeat + while $n<l and apply(dig,[$ln.$n]) repeat $n := $n+1 $n = l or stringChar($ln,$n) ~= char "__" => n = $n and zro => '"0" |