version 1.66, 2012/02/07 18:15:27
|
version 1.67, 2012/02/09 17:27:37
|
Line 79
|
Line 79
|
\ aligned correctly, but our locals stack must be float-aligned between |
\ aligned correctly, but our locals stack must be float-aligned between |
\ words. |
\ words. |
|
|
\ Other things about the internals are pretty unclear now. |
|
|
|
\ Currently locals may only be |
|
\ defined at the outer level and TO is not supported. |
|
|
|
require search.fs |
require search.fs |
require float.fs |
require float.fs |
require extend.fs \ for case |
require extend.fs \ for case |
Line 572 forth definitions
|
Line 567 forth definitions
|
latest latestxt |
latest latestxt |
clear-leave-stack |
clear-leave-stack |
0 locals-size ! |
0 locals-size ! |
locals-mem-list @ free-list |
|
0 locals-mem-list ! |
|
0 locals-list ! |
0 locals-list ! |
dead-code off |
dead-code off |
defstart ; |
defstart ; |
|
|
|
:noname ( -- ) |
|
locals-mem-list @ free-list |
|
0 locals-mem-list ! ; |
|
is free-old-local-names |
|
|
: locals-;-hook ( sys addr xt sys -- sys ) |
: locals-;-hook ( sys addr xt sys -- sys ) |
def? |
def? |
0 TO locals-wordlist |
0 TO locals-wordlist |
Line 657 forth definitions
|
Line 655 forth definitions
|
' locals-:-hook IS :-hook |
' locals-:-hook IS :-hook |
' locals-;-hook IS ;-hook |
' locals-;-hook IS ;-hook |
|
|
|
|
' (then-like) IS then-like |
' (then-like) IS then-like |
' (begin-like) IS begin-like |
' (begin-like) IS begin-like |
' (again-like) IS again-like |
' (again-like) IS again-like |