gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.67, 2010/12/31 18:09:02	version 1.68, 2011/10/06 20:04:35
Line 181 AUser CSP	Line 181 AUser CSP
: ]] ( -- ) \ gforth right-bracket-bracket	: ]] ( -- ) \ gforth right-bracket-bracket
\G switch into postpone state	\G switch into postpone state
['] postponer1 is parser1 state on ; immediate restrict	['] postponer1 is parser1 state on ; immediate restrict
	[then]

	[ifdef] compiler-r
	: postponer-r ( addr u -- ... xt )
	forth-recognizer do-recognizer
	over [ s" [[" find-name ] Literal =
	IF 2drop [comp'] ] drop ELSE ['] >postpone THEN ;

	: ]] ( -- ) \ gforth right-bracket-bracket
	\G switch into postpone state
	['] postponer-r is parser1 state on ; immediate restrict
	[then]

comp' literal drop alias postpone-literal	comp' literal drop alias postpone-literal
comp' 2literal drop alias postpone-2literal	comp' 2literal drop alias postpone-2literal
Line 204 comp' sliteral drop alias postpone-slite	Line 216 comp' sliteral drop alias postpone-slite
\G allocated permanently, you can use @code{]]2L} instead.	\G allocated permanently, you can use @code{]]2L} instead.
]] postpone-sliteral ]] [[ ; immediate	]] postpone-sliteral ]] [[ ; immediate

[then]

\ f.rdp	\ f.rdp

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