diff options
Diffstat (limited to 'src/interp/word.boot')
-rw-r--r-- | src/interp/word.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/word.boot b/src/interp/word.boot index 40d01114..be576794 100644 --- a/src/interp/word.boot +++ b/src/interp/word.boot @@ -97,7 +97,7 @@ getListOfFunctionNames(fnames) == for fn in fnames repeat null IOSTATE(fn,'DIRECT,'_*) => 'iterate stream:= DEFIOSTREAM(['(MODE . INPUT),['FILE,fn,'DIRECT,'_*]],80,0) - while (not PLACEP (x:= readLine stream)) repeat + while (x:= readLine stream) ~= %nothing repeat (s := # x) < 26 => 'iterate res:= [subString(x,26),:res] SHUT stream |