version 1.19, 2006/10/08 11:30:56
|
version 1.20, 2006/10/11 19:18:52
|
Line 216 has? file [IF]
|
Line 216 has? file [IF]
|
2drop |
2drop |
[ [THEN] ] |
[ [THEN] ] |
-1 loadline ! #tib ! tib ! |
-1 loadline ! #tib ! tib ! |
r> catch pop-file rethrow ; |
r> catch pop-file throw ; |
|
|
: execute-parsing ( ... addr u xt -- ... ) \ gforth |
: execute-parsing ( ... addr u xt -- ... ) \ gforth |
\G Make @i{addr u} the current input source, execute @i{xt @code{( |
\G Make @i{addr u} the current input source, execute @i{xt @code{( |
Line 262 defer line-end-hook ( -- ) \ gforth
|
Line 262 defer line-end-hook ( -- ) \ gforth
|
loadfilename 2! loadfile ! |
loadfilename 2! loadfile ! |
r> catch |
r> catch |
loadfile @ close-file swap 2dup or |
loadfile @ close-file swap 2dup or |
pop-file drop rethrow throw ; |
pop-file drop throw throw ; |
|
|
: execute-parsing-file ( i*x fileid xt -- j*x ) \ gforth |
: execute-parsing-file ( i*x fileid xt -- j*x ) \ gforth |
\G Make @i{fileid} the current input source, execute @i{xt @code{( i*x |
\G Make @i{fileid} the current input source, execute @i{xt @code{( i*x |