Return to files.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.19, 2003/01/20 17:07:41 | version 1.20, 2003/01/20 19:17:59 |
---|---|
Line 79 has? new-input 0= [IF] | Line 79 has? new-input 0= [IF] |
include-file1 throw throw ; | include-file1 throw throw ; |
: include-file ( i*x wfileid -- j*x ) \ file | : include-file ( i*x wfileid -- j*x ) \ file |
loadfilename# @ >r | loadfilename 2@ 2>r |
3 loadfilename# ! \ "*a file*" | s" *a file*" loadfilename 2! \ "*a file*" |
include-file1 | include-file1 |
r> loadfilename# ! | 2r> loadfilename 2! |
throw throw ; | throw throw ; |
[THEN] | [THEN] |