gforth/kernel/basics.fs - diff

Return to basics.fs CVS log

Up to [gforth] / gforth / kernel

version 1.41, 2003/08/18 19:29:15	version 1.42, 2004/05/08 17:14:30
Line 276 is throw	Line 276 is throw
sp@ sp0 @ swap - cell / ;	sp@ sp0 @ swap - cell / ;

: clearstack ( ... -- ) \ gforth clear-stack	: clearstack ( ... -- ) \ gforth clear-stack
\G remove and discard all/any items from the data stack.	\G remove and discard all/any items from the data stack.
sp0 @ sp! ;	sp0 @ sp! ;

	: clearstacks ( ... -- ) \ gforth clear-stacks
	\G empty data and FP stack
	clearstack fp0 @ fp! ;

\ Strings 22feb93py	\ Strings 22feb93py

: "lit ( -- addr )	: "lit ( -- addr )