gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.139, 2003/05/11 17:17:13	version 1.141, 2003/08/18 19:29:14
Line 1177 false DefaultValue new-input	Line 1177 false DefaultValue new-input
false DefaultValue peephole	false DefaultValue peephole
false DefaultValue abranch	false DefaultValue abranch
true DefaultValue f83headerstring	true DefaultValue f83headerstring
true DefaultValue control-rack	true DefaultValue control-rack
[THEN]	[THEN]

true DefaultValue gforthcross	true DefaultValue gforthcross
Line 2296 Defer setup-prim-semantics	Line 2296 Defer setup-prim-semantics
Variable prim#	Variable prim#
: first-primitive ( n -- ) prim# ! ;	: first-primitive ( n -- ) prim# ! ;
: group 0 word drop prim# @ 1- -$200 and prim# ! ;	: group 0 word drop prim# @ 1- -$200 and prim# ! ;
	: groupadd ( n -- ) drop ;
: Primitive ( -- ) \ name	: Primitive ( -- ) \ name
>in @ skip? IF drop EXIT THEN >in !	>in @ skip? IF drop EXIT THEN >in !
s" prims" T $has? H 0=	s" prims" T $has? H 0=