Am Freitag, 29. Januar 2016, 16:26:12 schrieb Philip Smith:
> Looking through source file stuff.fs and found this gem! I have version
> 0.7.9_20160113 !
>
> \ \\\ - skip to end of file
>
> : \\\ ( -- ) \ gforth
>
> \G skip remaining source file
> source-id dup 0> IF
>
> >r r@ file-size
Looking through source file stuff.fs and found this gem! I have version
0.7.9_20160113 !
\ \\\ - 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
