Return to glocals.fs CVS log | Up to [gforth] / gforth |
version 1.28, 1996/09/30 13:16:10 | version 1.29, 1997/01/01 16:26:02 |
---|---|
Line 319 previous | Line 319 previous |
true abort" this should not happen: new-locals-reveal" ; | true abort" this should not happen: new-locals-reveal" ; |
create new-locals-map ( -- wordlist-map ) | create new-locals-map ( -- wordlist-map ) |
' new-locals-find A, ' new-locals-reveal A, | ' new-locals-find A, |
' new-locals-reveal A, | |
' drop A, \ rehash method | |
slowvoc @ | slowvoc @ |
slowvoc on | slowvoc on |