aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/core-ext/roll.frt
blob: 385c14a999c10ed91992779902826e60cd2b49c9 (plain)
1
2
3
4
5
6
7

: roll  ( x0 x1 .. xn n -- x1 .. xn x0 ) \ core-ext
    dup 0> 0= if
	drop
    else
	swap >r 1- recurse r> swap 
    then ;