version 1.42, 2005/06/28 06:45:07
|
version 1.43, 2005/06/28 06:49:41
|
Line 153 AUser CSP
|
Line 153 AUser CSP
|
\ 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 |
Line 179 AUser CSP
|
Line 180 AUser CSP
|
\ 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 -- ) |