gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.63, 1998/12/22 21:17:14	version 1.64, 1998/12/25 22:50:48
Line 1164 VARIABLE ;Resolve 1 cells allot	Line 1164 VARIABLE ;Resolve 1 cells allot
.sourcepos ." needs doer: " >in @ bl word count type >in ! cr	.sourcepos ." needs doer: " >in @ bl word count type >in ! cr
THEN	THEN
ghost tuck swap resolve <do:> swap >magic ! ;	ghost tuck swap resolve <do:> swap >magic ! ;

	Variable prim#
	: first-primitive ( n -- ) prim# ! ;
	: Primitive ( -- ) \ name
	prim# @ T Alias H -1 prim# +! ;
>CROSS	>CROSS

\ Conditionals and Comments 11may93jaw	\ Conditionals and Comments 11may93jaw