Return to saccept.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.17, 2010/06/10 09:50:03 | version 1.18, 2010/06/10 10:05:34 |
---|---|
Line 43 Variable echo -1 echo ! | Line 43 Variable echo -1 echo ! |
over c! char+ ELSE r> drop bell THEN | over c! char+ ELSE r> drop bell THEN |
THEN | THEN |
AGAIN ; | AGAIN ; |
\ simple include for terminal.fs | |
: refill-loop ( -- ) | : refill-loop ( -- ) |
BEGIN 3 emit refill WHILE interpret REPEAT ; | BEGIN 3 emit refill WHILE interpret REPEAT ; |
: included ( addr u -- ) | : included ( addr u -- ) |