Return to glocals.fs CVS log | Up to [gforth] / gforth |
version 1.19, 1996/02/09 17:34:10 | version 1.20, 1996/05/03 13:05:05 |
---|---|
Line 505 forth definitions | Line 505 forth definitions |
then ; | then ; |
: TO ( c|w|d|r "name" -- ) \ core-ext,local | : TO ( c|w|d|r "name" -- ) \ core-ext,local |
\ !! 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 } |
' dup >definer | ' dup >definer |
state @ | state @ |