gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.59, 2008/12/31 15:29:14	version 1.60, 2009/09/05 17:38:37
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