![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to stuff.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to stuff.fs CVS log | Up to [gforth] / gforth |
| version 1.61, 2009/09/06 22:43:23 | version 1.62, 2009/10/05 15:54:28 |
|---|---|
| Line 393 previous | Line 393 previous |
| : th ( addr1 u -- addr2 ) | : th ( addr1 u -- addr2 ) |
| cells + ; | cells + ; |
| \ \\\ - skip to end of file | |
| : \\\ ( -- ) \ gforth | |
| \G skip remaining source file | |
| source-id dup 0> IF | |
| >r r@ file-size throw r> reposition-file throw | |
| BEGIN refill 0= UNTIL postpone \ THEN ; immediate |