Return to stuff.fs CVS log | Up to [gforth] / gforth |
version 1.59, 2008/12/31 15:29:14 | version 1.61, 2009/09/06 22:43:23 |
---|---|
Line 155 AUser CSP | Line 155 AUser CSP |
[ifdef] compiler1 | [ifdef] compiler1 |
: postponer1 ( c-addr u -- ... xt ) | : postponer1 ( c-addr u -- ... xt ) |
2dup find-name dup if ( c-addr u nt ) | 2dup find-name |
[ifdef] run-prelude run-prelude [then] | |
dup if ( c-addr u nt ) | |
nip nip name>comp | nip nip name>comp |
2dup [comp'] [[ d= if | 2dup [comp'] [[ d= if |
2drop ['] compiler1 is parser1 ['] noop | 2drop ['] compiler1 is parser1 ['] noop |