gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.57, 2007/12/31 18:40:24	version 1.60, 2009/09/05 17:38:37
Line 1	Line 1
\ miscelleneous words	\ miscelleneous words

\ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc.

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

Line 155 AUser CSP	Line 155 AUser CSP

[ifdef] compiler1	[ifdef] compiler1
: postponer1 ( c-addr u -- ... xt )	: postponer1 ( c-addr u -- ... xt )
2dup find-name dup if ( c-addr u nt )	2dup
	[ifdef] find-name-run-prelude find-name-run-prelude [else] find-name [then]
	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 ['] noop	2drop ['] compiler1 is parser1 ['] noop
Line 387 previous	Line 389 previous
endtry	endtry
throw ;	throw ;

	\ th

	: th ( addr1 u -- addr2 )
	cells + ;