Return to glocals.fs CVS log | Up to [gforth] / gforth |
version 1.67, 2012/02/09 17:27:37 | version 1.68, 2012/02/13 22:08:58 |
---|---|
Line 571 forth definitions | Line 571 forth definitions |
dead-code off | dead-code off |
defstart ; | defstart ; |
[IFDEF] free-old-local-names | |
:noname ( -- ) | :noname ( -- ) |
locals-mem-list @ free-list | locals-mem-list @ free-list |
0 locals-mem-list ! ; | 0 locals-mem-list ! ; |
is free-old-local-names | is free-old-local-names |
[THEN] | |
: locals-;-hook ( sys addr xt sys -- sys ) | : locals-;-hook ( sys addr xt sys -- sys ) |
def? | def? |