Return to glocals.fs CVS log | Up to [gforth] / gforth |
version 1.16, 1995/11/15 17:29:08 | version 1.17, 1995/12/23 16:21:58 |
---|---|
Line 504 forth definitions | Line 504 forth definitions |
code-address! | code-address! |
then ; | then ; |
\ !! untested | |
: TO ( c|w|d|r "name" -- ) \ core-ext,local | : TO ( c|w|d|r "name" -- ) \ core-ext,local |
\ !! state smart | \ !! state smart |
0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal } | 0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal } |