version 1.37, 2000/02/04 14:52:30
|
version 1.38, 2000/04/27 08:51:33
|
Line 146 decimal
|
Line 146 decimal
|
>in @ |
>in @ |
loadfile @ |
loadfile @ |
if |
if |
loadfile @ file-position throw |
loadfile @ file-position throw #TIB @ 1+ 0 d- \ !! bug for CRLF and EOF |
else |
else |
blk @ |
blk @ |
linestart @ |
linestart @ |
Line 168 decimal
|
Line 168 decimal
|
loadfile @ 0<> |
loadfile @ 0<> |
if |
if |
loadfile @ reposition-file throw |
loadfile @ reposition-file throw |
|
refill 0= -36 and throw \ should never throw |
else |
else |
linestart ! |
linestart ! |
blk ! |
blk ! |