version 1.32, 1997/04/10 15:00:07
|
version 1.34, 1997/07/06 15:55:24
|
Line 85
|
Line 85
|
\ Currently locals may only be |
\ Currently locals may only be |
\ defined at the outer level and TO is not supported. |
\ defined at the outer level and TO is not supported. |
|
|
require search-order.fs |
require search.fs |
require float.fs |
require float.fs |
|
|
: compile-@local ( n -- ) \ gforth compile-fetch-local |
: compile-@local ( n -- ) \ gforth compile-fetch-local |
Line 322 create new-locals-map ( -- wordlist-map
|
Line 322 create new-locals-map ( -- wordlist-map
|
' new-locals-find A, |
' new-locals-find A, |
' new-locals-reveal A, |
' new-locals-reveal A, |
' drop A, \ rehash method |
' drop A, \ rehash method |
|
' drop A, |
|
|
slowvoc @ |
slowvoc @ |
slowvoc on |
slowvoc on |