gforth/tasker.fs - diff

Return to tasker.fs CVS log

Up to [gforth] / gforth

version 1.8, 2000/09/23 15:46:59	version 1.9, 2001/06/12 09:29:10
Line 54 interpret/compile: user' ( 'user' -- n )	Line 54 interpret/compile: user' ( 'user' -- n )
dup r@ user' fp0 + ! over -	dup r@ user' fp0 + ! over -
dup r@ user' sp0 + ! over -	dup r@ user' sp0 + ! over -
dup r@ user' normal-dp + dup >r !	dup r@ user' normal-dp + dup >r !
r> r@ user' dpp + ! + $10 +	r> r@ user' dpp + ! 2drop
r@ user' >tib + !	0 r@ user' current-input + !
r> dup 2dup 2! dup sleep ;	r> dup 2dup 2! dup sleep ;

: kill-task	: kill-task