version 1.24, 2003/01/22 17:12:49
|
version 1.25, 2003/01/22 18:52:47
|
Line 129 AUser CSP
|
Line 129 AUser CSP
|
repeat |
repeat |
- + dup >r resize throw r> ; |
- + dup >r resize throw r> ; |
|
|
|
\ ]] ... [[ |
|
|
|
: compile-literal ( n -- ) |
|
postpone literal ; |
|
|
|
: [[ ( -- ) |
|
\G switch from postpone state to compile state |
|
\ this is only a marker; it is never really interpreted |
|
compile-only-error ; immediate |
|
|
|
: postponer ( c-addr u -- ) |
|
2dup find-name dup if ( c-addr u nt ) |
|
nip nip name>comp |
|
2dup [comp'] [[ d= if |
|
2drop ['] compiler is parser |
|
else |
|
postpone, |
|
endif |
|
else |
|
drop |
|
2dup snumber? dup if |
|
0> IF |
|
swap postpone literal postpone compile-literal |
|
THEN |
|
postpone Literal postpone compile-literal |
|
2drop |
|
ELSE |
|
drop no.extensions |
|
THEN |
|
then ; |
|
|
|
: ]] ( -- ) |
|
\ switch into postpone state |
|
['] postponer is parser state on ; immediate restrict |
|
|