gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.1, 1994/02/11 16:30:45	version 1.2, 1994/05/03 15:24:11
Line 412 ghost (do) ghost (?do)	Line 412 ghost (do) ghost (?do)
ghost (for) drop	ghost (for) drop
ghost (loop) ghost (+loop) 2drop	ghost (loop) ghost (+loop) 2drop
ghost (next) drop	ghost (next) drop
ghost unloop ghost EXIT 2drop	ghost unloop ghost ;S 2drop
ghost lit ghost (compile) ghost ! 2drop drop	ghost lit ghost (compile) ghost ! 2drop drop
ghost (;code) ghost noop 2drop	ghost (;code) ghost noop 2drop
ghost (.") ghost (S") ghost (ABORT") 2drop drop	ghost (.") ghost (S") ghost (ABORT") 2drop drop
Line 481 Cond: [Char] ( "<char>" -- ) restrict	Line 481 Cond: [Char] ( "<char>" -- ) restrict
(THeader ;Resolve ! there ;Resolve cell+ !	(THeader ;Resolve ! there ;Resolve cell+ !
docol, depth T ] H ;	docol, depth T ] H ;

	Cond: EXIT ( -- ) restrict? compile ;S ;Cond

Cond: ; ( -- ) restrict?	Cond: ; ( -- ) restrict?
depth ?dup IF 1- <> ABORT" CROSS: Stack changed"	depth ?dup IF 1- <> ABORT" CROSS: Stack changed"
ELSE true ABORT" CROSS: Stack empty" THEN	ELSE true ABORT" CROSS: Stack empty" THEN
compile EXIT state off	compile ;S state off
;Resolve @	;Resolve @
IF ;Resolve @ ;Resolve cell+ @ resolve THEN	IF ;Resolve @ ;Resolve cell+ @ resolve THEN
;Cond	;Cond