gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.48, 1997/05/21 20:39:21	version 1.50, 1997/07/06 15:42:22
Line 722 Cond: DOES> restrict?	Line 722 Cond: DOES> restrict?
dup >magic @ <do:> =	dup >magic @ <do:> =
IF gexecute T 0 , H EXIT THEN	IF gexecute T 0 , H EXIT THEN
THEN	THEN
compile :dodoes gexecute T here H cell - reloff ;	compile :dodoes gexecute T here H tcell - reloff ;

: TCreate ( -- )	: TCreate ( -- )
last-ghost @	last-ghost @
Line 1077 previous	Line 1077 previous
: lshift lshift ;	: lshift lshift ;
: 2/ 2/ ;	: 2/ 2/ ;
: . . ;	: . . ;
	: const ;

\ mach-file count included	\ mach-file count included