version 1.2, 2011/12/18 21:38:56
|
version 1.3, 2012/02/09 17:27:37
|
Line 3
|
Line 3
|
:noname false :noname ; |
:noname false :noname ; |
:noname locals-wordlist last @ lastcfa @ |
:noname locals-wordlist last @ lastcfa @ |
postpone AHEAD |
postpone AHEAD |
locals-list @ locals-list off |
locals-list @ locals-list off |
locals-dp @ dup >r postpone SCOPE |
postpone SCOPE |
true :noname r> locals-dp ! ; |
true :noname ; |
interpret/compile: [: ( -- quotation-sys ) |
interpret/compile: [: ( -- quotation-sys ) |
\G Starts a quotation |
\G Starts a quotation |
|
|
Line 13 interpret/compile: [: ( -- quotation-sys
|
Line 13 interpret/compile: [: ( -- quotation-sys
|
\g ends a quotation |
\g ends a quotation |
POSTPONE ; >r IF |
POSTPONE ; >r IF |
] postpone ENDSCOPE |
] postpone ENDSCOPE |
locals-dp ! locals-list ! |
locals-list ! |
postpone THEN |
postpone THEN |
lastcfa ! last ! to locals-wordlist |
lastcfa ! last ! to locals-wordlist |
r> postpone ALiteral |
r> postpone ALiteral |