| : generate-nt \ -- ) |
: generate-nt \ -- ) |
| \ generates a call to the code for the rule ) |
\ generates a call to the code for the rule ) |
| \ since the code needs not be generated yet, an indirect call is used ) |
\ since the code needs not be generated yet, an indirect call is used ) |
| exec postpone literal |
exec dup @ if |
| |
@ compile, |
| |
else |
| |
postpone literal |
| postpone @ |
postpone @ |
| postpone execute ; |
postpone execute |
| |
endif ; |
| |
|
| : pass2-nt \ -- ) |
: pass2-nt \ -- ) |
| \ apart from the usual duties, this pass2 also has to code-nt ) |
\ apart from the usual duties, this pass2 also has to code-nt ) |
