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.67, 2010/04/18 06:18:36
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 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 + ;	\ maxaligned /does-handler + ; \ !! no longer needed for non-cross stuff
[THEN]	[THEN]

[IFDEF] (compile)	[IFDEF] (compile)
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