gforth/kernel/basics.fs - diff

Return to basics.fs CVS log

Up to [gforth] / gforth / kernel

version 1.53, 2006/05/26 21:18:45	version 1.54, 2006/07/05 12:58:58
Line 118 has? ec [IF]	Line 118 has? ec [IF]
: roll ( x0 x1 .. xn n -- x1 .. xn x0 ) \ core-ext	: roll ( x0 x1 .. xn n -- x1 .. xn x0 ) \ core-ext
\ dup 1+ pick >r	\ dup 1+ pick >r
\ cells sp@ cell+ dup cell+ rot move drop r> ;	\ cells sp@ cell+ dup cell+ rot move drop r> ;
recursive
dup 0<= if	dup 0<= if
drop	drop
else	else
swap >r 1- roll r> swap	swap >r 1- recurse r> swap
then ;	then ;

\ place bounds 13feb93py	\ place bounds 13feb93py