Return to extend.fs CVS log | Up to [gforth] / gforth |
version 1.22, 1997/03/19 18:27:12 | version 1.23, 1997/03/27 13:31:01 |
---|---|
Line 75 decimal | Line 75 decimal |
\ UNUSED 17may93jaw | \ UNUSED 17may93jaw |
: dictionary-end ( -- addr ) | |
forthstart dup 3 cells + @ + ; | |
: unused ( -- u ) \ core-ext | : unused ( -- u ) \ core-ext |
forthstart dup 3 cells + @ + here - ; | dictionary-end here - ; |
\ [COMPILE] 17may93jaw | \ [COMPILE] 17may93jaw |