![]() ![]() | ![]() |
version 1.45, 2005/10/02 11:30:32 | version 1.46, 2005/11/05 23:26:49 |
---|---|
Line 159 AUser CSP | Line 159 AUser CSP |
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 |
2dup [comp'] [[ d= if | 2dup [comp'] [[ d= if |
2drop ['] compiler1 is parser1 | 2drop ['] compiler1 is parser1 ['] noop |
else | else |
['] postpone, | ['] postpone, |
endif | endif |