| |
|
| [IFUNDEF] compile, |
[IFUNDEF] compile, |
| : compile, ( xt -- ) \ core-ext compile-comma |
: compile, ( xt -- ) \ core-ext compile-comma |
| \G Compile the word represented by the execution token, @i{xt}, |
\G Compile the word represented by the execution token @i{xt} |
| \G into the current definition. |
\G into the current definition. |
| A, ; |
A, ; |
| [THEN] |
[THEN] |
| COMP' swap POSTPONE Aliteral POSTPONE ALiteral ; immediate restrict |
COMP' swap POSTPONE Aliteral POSTPONE ALiteral ; immediate restrict |
| |
|
| : postpone, ( w xt -- ) \ gforth postpone-comma |
: postpone, ( w xt -- ) \ gforth postpone-comma |
| \g Compile the compilation semantics represented by @i{w xt}. |
\g Compile the compilation semantics represented by the |
| |
\g compilation token @i{w xt}. |
| dup ['] execute = |
dup ['] execute = |
| if |
if |
| drop compile, |
drop compile, |
