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