version 1.66, 2010/04/11 15:37:22
|
version 1.67, 2010/04/18 06:18:36
|
Line 529 VARIABLE C-Pass
|
Line 529 VARIABLE C-Pass
|
ELSE 2drop |
ELSE 2drop |
THEN ; |
THEN ; |
|
|
[IFDEF] (does>) |
[IFDEF] !does |
: c-does> \ end of create part |
: c-does> \ end of create part |
Display? IF S" DOES> " Com# .string THEN ; |
Display? IF S" DOES> " Com# .string THEN ; |
\ maxaligned /does-handler + ; \ !! no longer needed for non-cross stuff |
\ maxaligned /does-handler + ; \ !! no longer needed for non-cross stuff |
Line 576 CREATE C-Table
|
Line 576 CREATE C-Table
|
[IFDEF] (abort") ' (abort") A, ' c-abort" A, [THEN] |
[IFDEF] (abort") ' (abort") A, ' c-abort" A, [THEN] |
\ only defined if compiler is loaded |
\ only defined if compiler is loaded |
[IFDEF] (compile) ' (compile) A, ' c-(compile) A, [THEN] |
[IFDEF] (compile) ' (compile) A, ' c-(compile) A, [THEN] |
[IFDEF] (does>) ' (does>) A, ' c-does> A, [THEN] |
[IFDEF] !does ' !does A, ' c-does> A, [THEN] |
0 , here 0 , |
0 , here 0 , |
|
|
avariable c-extender |
avariable c-extender |