| \ this is only a marker; it is never really interpreted |
\ this is only a marker; it is never really interpreted |
| compile-only-error ; immediate |
compile-only-error ; immediate |
| |
|
| |
[ifdef] compiler1 |
| : postponer1 ( c-addr u -- ... xt ) |
: postponer1 ( c-addr u -- ... xt ) |
| 2dup find-name dup if ( c-addr u nt ) |
2dup find-name dup if ( c-addr u nt ) |
| nip nip name>comp |
nip nip name>comp |
| \ switch into postpone state |
\ switch into postpone state |
| ['] postponer1 is parser1 state on ; immediate restrict |
['] postponer1 is parser1 state on ; immediate restrict |
| |
|
| |
[then] |
| |
|
| \ f.rdp |
\ f.rdp |
| |
|
| : push-right ( c-addr u1 u2 cfill -- ) |
: push-right ( c-addr u1 u2 cfill -- ) |
