Return to saccept.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.16, 2007/12/31 19:02:25 | version 1.17, 2010/06/10 09:50:03 |
---|---|
Line 44 Variable echo -1 echo ! | Line 44 Variable echo -1 echo ! |
THEN | THEN |
AGAIN ; | AGAIN ; |
: refill-loop ( -- ) | |
BEGIN 3 emit refill WHILE interpret REPEAT ; | |
: included ( addr u -- ) | |
2 emit dup $20 + emit type | |
echo @ IF | |
echo off ['] refill-loop catch | |
dup IF 4 emit THEN echo on throw | |
THEN ; | |
: include ( "file" -- ) parse-name included ; |