gforth/prims2x0.6.2.fs - diff

Return to prims2x0.6.2.fs CVS log

Up to [gforth] / gforth

version 1.4, 2009/02/14 19:33:19	version 1.5, 2009/02/14 19:50:23
Line 1218 variable tail-nextp2 \ xt to execute for	Line 1218 variable tail-nextp2 \ xt to execute for

: output-combined-tail ( -- )	: output-combined-tail ( -- )
in-part @ >r in-part off	in-part @ >r in-part off
part-output-c-tail
combined-tail-stack-pointer-updates	combined-tail-stack-pointer-updates
	part-output-c-tail
combined ['] output-c-tail-no-stores prim-context	combined ['] output-c-tail-no-stores prim-context
r> in-part ! ;	r> in-part ! ;