version 1.68, 2011/10/06 20:04:35
|
version 1.69, 2011/10/07 21:46:57
|
Line 136 AUser CSP
|
Line 136 AUser CSP
|
|
|
\ ]] ... [[ |
\ ]] ... [[ |
|
|
|
: [[ ( -- ) \ gforth left-bracket-bracket |
|
\G switch from postpone state to compile state |
|
\ this is only a marker; it is never really interpreted |
|
compile-only-error ; immediate |
|
|
|
[ifdef] compiler1 |
: compile-literal ( n -- ) |
: compile-literal ( n -- ) |
postpone literal ; |
postpone literal ; |
|
|
Line 148 AUser CSP
|
Line 154 AUser CSP
|
: compile-compile-2literal ( n1 n2 -- ) |
: compile-compile-2literal ( n1 n2 -- ) |
compile-2literal postpone compile-2literal ; |
compile-2literal postpone compile-2literal ; |
|
|
: [[ ( -- ) \ gforth left-bracket-bracket |
|
\G switch from postpone state to compile state |
|
\ this is only a marker; it is never really interpreted |
|
compile-only-error ; immediate |
|
|
|
[ifdef] compiler1 |
|
: postponer1 ( c-addr u -- ... xt ) |
: postponer1 ( c-addr u -- ... xt ) |
2dup find-name |
2dup find-name |
[ifdef] run-prelude run-prelude [then] |
[ifdef] run-prelude run-prelude [then] |