gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.42, 2005/06/28 06:45:07	version 1.43, 2005/06/28 06:49:41
Line 153 AUser CSP	Line 153 AUser CSP
\ this is only a marker; it is never really interpreted	\ this is only a marker; it is never really interpreted
compile-only-error ; immediate	compile-only-error ; immediate

	[ifdef] compiler1
: postponer1 ( c-addr u -- ... xt )	: postponer1 ( c-addr u -- ... xt )
2dup find-name dup if ( c-addr u nt )	2dup find-name dup if ( c-addr u nt )
nip nip name>comp	nip nip name>comp
Line 179 AUser CSP	Line 180 AUser CSP
\ switch into postpone state	\ switch into postpone state
['] postponer1 is parser1 state on ; immediate restrict	['] postponer1 is parser1 state on ; immediate restrict

	[then]

\ f.rdp	\ f.rdp

: push-right ( c-addr u1 u2 cfill -- )	: push-right ( c-addr u1 u2 cfill -- )