gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.25, 2003/01/20 22:16:04	version 1.26, 2003/01/22 10:59:55
Line 81 has? new-input [IF]	Line 81 has? new-input [IF]
[ELSE]	[ELSE]
: included1 ( ix file-id c-addr u -- jx ) \ gforth	: included1 ( ix file-id c-addr u -- jx ) \ gforth
\G Include the file file-id with the name given by @var{c-addr u}.	\G Include the file file-id with the name given by @var{c-addr u}.
loadfilename 2@ 2>r	save-mem 2dup loadfilename>r
save-mem 2dup loadfilename 2!
add-included-file ( file-id )	add-included-file ( file-id )
['] include-file2 catch	['] include-file2 catch
2r> loadfilename 2!	r>loadfilename
throw ;	throw ;
[THEN]	[THEN]