gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.181, 2012/03/09 21:16:22	version 1.183, 2012/08/27 13:33:48
Line 2057 $20 constant restrict-mask	Line 2057 $20 constant restrict-mask
<res> <> ABORT" CROSS: Cannot immediate a unresolved word"	<res> <> ABORT" CROSS: Cannot immediate a unresolved word"
<imm> ^imm @ ! ;	<imm> ^imm @ ! ;
: restrict restrict-mask flag! ;	: restrict restrict-mask flag! ;
	: compile-only restrict-mask flag! ;

: isdoer	: isdoer
\G define a forth word as doer, this makes obviously only sence on	\G define a forth word as doer, this makes obviously only sence on
Line 2649 Defer instant-interpret-does>-hook ' no	Line 2650 Defer instant-interpret-does>-hook ' no

T has? primcentric H [IF]	T has? primcentric H [IF]
: does-resolved ( ghost -- )	: does-resolved ( ghost -- )
	\ g>xt dup T >body H alit, compile call T cell+ @ a, H ;
compile does-exec g>xt T a, H ;	compile does-exec g>xt T a, H ;
[ELSE]	[ELSE]
: does-resolved ( ghost -- )	: does-resolved ( ghost -- )