--- gforth/kernel/require.fs 2000/09/23 15:47:12 1.18 +++ gforth/kernel/require.fs 2000/10/29 20:27:03 1.19 @@ -75,6 +75,13 @@ create image-included-files 4 , A, ( poi 2/ cell / included-files 2! 2! ; +has? new-input [IF] +: included1 ( i*x file-id c-addr u -- j*x ) \ gforth + \G Include the file file-id with the name given by @var{c-addr u}. + save-mem add-included-file ( file-id ) + included-files @ 1- ['] include-file2 catch + throw ; +[ELSE] : included1 ( i*x file-id c-addr u -- j*x ) \ gforth \G Include the file file-id with the name given by @var{c-addr u}. loadfilename# @ >r @@ -83,7 +90,8 @@ create image-included-files 4 , A, ( poi ['] include-file2 catch r> loadfilename# ! throw ; - +[THEN] + : included ( i*x c-addr u -- j*x ) \ file \G @code{include-file} the file whose name is given by the string \G @var{c-addr u}. @@ -156,5 +164,5 @@ create image-included-files 4 , A, ( poi included-files 2@ .strings ; \ contains tools/newrequire.fs -\ \I $Id: require.fs,v 1.18 2000/09/23 15:47:12 anton Exp $ +\ \I $Id: require.fs,v 1.19 2000/10/29 20:27:03 pazsan Exp $