mirror of
https://github.com/nineties/planckforth
synced 2024-12-26 21:58:42 +01:00
12 lines
290 B
Forth
12 lines
290 B
Forth
|
\ planckforth -
|
||
|
|
\ Copyright (C) 2021 nineties
|
||
|
|
|
||
|
|
\ test/tester.fs and test codes are base on
|
||
|
|
\ https://github.com/gerryjackson/forth2012-test-suite
|
||
|
|
|
||
|
|
defined? roll [unless]
|
||
|
|
: roll ( wn ... w1 n -- w1 wn ... w2 -- )
|
||
|
|
dup 0<= if drop else swap >r 1- recurse r> swap then
|
||
|
|
;
|
||
|
|
[then]
|