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.62, 2009/10/05 15:54:28
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 find-name
	[ifdef] run-prelude run-prelude [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 391 previous	Line 393 previous

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

	\ \\\ - skip to end of file

	: \\\ ( -- ) \ gforth
	\G skip remaining source file
	source-id dup 0> IF
	>r r@ file-size throw r> reposition-file throw
	BEGIN refill 0= UNTIL postpone \ THEN ; immediate