Return to glocals.fs CVS log | Up to [gforth] / gforth |
version 1.64, 2012/01/16 22:17:32 | version 1.65, 2012/02/07 16:48:55 |
---|---|
Line 88 require search.fs | Line 88 require search.fs |
require float.fs | require float.fs |
require extend.fs \ for case | require extend.fs \ for case |
: save-mem-dict ( addr1 u -- addr2 u ) | |
here swap dup allot ( addr1 addr2 u ) | |
2dup 2>r move 2r> ; | |
: compile-@local ( n -- ) \ gforth compile-fetch-local | : compile-@local ( n -- ) \ gforth compile-fetch-local |
case | case |
0 of postpone @local0 endof | 0 of postpone @local0 endof |