version 1.19, 2000/10/29 20:27:03
|
version 1.21, 2002/09/14 08:20:21
|
Line 60 create image-included-files 4 , A, ( poi
|
Line 60 create image-included-files 4 , A, ( poi
|
\G @file{./foo.fs} |
\G @file{./foo.fs} |
included-files 2@ 0 |
included-files 2@ 0 |
?do ( c-addr u addr ) |
?do ( c-addr u addr ) |
dup >r 2@ 2over compare 0= |
dup >r 2@ 2over str= |
if |
if |
2drop rdrop unloop |
2drop rdrop unloop |
true EXIT |
true EXIT |
Line 162 has? new-input [IF]
|
Line 162 has? new-input [IF]
|
: .included ( -- ) \ gforth |
: .included ( -- ) \ gforth |
\G list the names of the files that have been @code{included} |
\G list the names of the files that have been @code{included} |
included-files 2@ .strings ; |
included-files 2@ .strings ; |
|
|
\ contains tools/newrequire.fs |
|
\ \I $Id$ |
|
|
|