| version 1.45, Sun Oct 2 11:30:32 2005 UTC | version 1.46, Sat Nov 5 23:26:49 2005 UTC | ||
|---|---|---|---|
|
|
||
| 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 |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |