gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.68, 2011/10/06 20:04:35	version 1.69, 2011/10/07 21:46:57
Line 136 AUser CSP	Line 136 AUser CSP

\ ]] ... [[	\ ]] ... [[

	: [[ ( -- ) \ gforth left-bracket-bracket
	\G switch from postpone state to compile state
	\ this is only a marker; it is never really interpreted
	compile-only-error ; immediate

	[ifdef] compiler1
: compile-literal ( n -- )	: compile-literal ( n -- )
postpone literal ;	postpone literal ;

Line 148 AUser CSP	Line 154 AUser CSP
: compile-compile-2literal ( n1 n2 -- )	: compile-compile-2literal ( n1 n2 -- )
compile-2literal postpone compile-2literal ;	compile-2literal postpone compile-2literal ;

: [[ ( -- ) \ gforth left-bracket-bracket
\G switch from postpone state to compile state
\ this is only a marker; it is never really interpreted
compile-only-error ; immediate

[ifdef] compiler1
: postponer1 ( c-addr u -- ... xt )	: postponer1 ( c-addr u -- ... xt )
2dup find-name	2dup find-name
[ifdef] run-prelude run-prelude [then]	[ifdef] run-prelude run-prelude [then]