gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.64, 2008/02/12 16:44:58	version 1.66, 2010/04/11 15:37:22
Line 1	Line 1
\ SEE.FS highend SEE for ANSforth 16may93jaw	\ SEE.FS highend SEE for ANSforth 16may93jaw

\ Copyright (C) 1995,2000,2003,2004,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 1995,2000,2003,2004,2006,2007,2008 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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)