Return to kernal.fs CVS log | Up to [gforth] / gforth |
version 1.38, 1995/06/07 10:05:06 | version 1.39, 1995/08/29 21:07:35 |
---|---|
Line 1148 Defer key | Line 1148 Defer key |
\ Query 07apr93py | \ Query 07apr93py |
: refill ( -- flag ) | : refill ( -- flag ) |
blk @ IF 1 blk +! true EXIT THEN | blk @ IF 1 blk +! true 0 >in ! EXIT THEN |
tib /line | tib /line |
loadfile @ ?dup | loadfile @ ?dup |
IF read-line throw | IF read-line throw |