Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.65, 2008/07/15 16:11:49 | version 1.66, 2010/04/11 15:37:22 |
---|---|
Line 531 VARIABLE C-Pass | Line 531 VARIABLE C-Pass |
[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 + ; | \ maxaligned /does-handler + ; \ !! no longer needed for non-cross stuff |
[THEN] | [THEN] |
[IFDEF] (compile) | [IFDEF] (compile) |