![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to require.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to require.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.20, 2002/04/27 14:52:32 | 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 |