gforth/conditionals.fs - diff

Return to conditionals.fs CVS log

Up to [gforth] / gforth

version 1.1, 1997/01/29 21:39:10	version 1.2, 1997/03/04 17:49:47
Line 113 variable backedge-locals	Line 113 variable backedge-locals
: ?DUP-0=-IF ( compilation -- orig ; run-time n -- n\| ) \ gforth question-dupe-zero-equals-if	: ?DUP-0=-IF ( compilation -- orig ; run-time n -- n\| ) \ gforth question-dupe-zero-equals-if
POSTPONE ?dup-0=-?branch >mark ; immediate restrict	POSTPONE ?dup-0=-?branch >mark ; immediate restrict

Defer then-like ( orig -- addr )	Defer then-like ( orig -- )
: cs>addr ( orig/dest -- addr ) drop nip ;	: cs>addr ( orig/dest -- ) drop >resolve drop ;
' cs>addr IS then-like	' cs>addr IS then-like

: THEN ( compilation orig -- ; run-time -- ) \ core	: THEN ( compilation orig -- ; run-time -- ) \ core
dup orig? then-like >resolve ; immediate restrict	dup orig? then-like ; immediate restrict

' THEN alias ENDIF ( compilation orig -- ; run-time -- ) \ gforth	' THEN alias ENDIF ( compilation orig -- ; run-time -- ) \ gforth
immediate restrict	immediate restrict