| :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 |
| |
|
| \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 |
