mirror of
https://github.com/nineties/planckforth
synced 2025-01-13 08:01:10 +01:00
21 lines
448 B
Forth
21 lines
448 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]
|
|
|
|
|
|
\ Ignore test codes. lib/tester.fs will redefine this when
|
|
\ running tests.
|
|
: T{
|
|
begin
|
|
word throw
|
|
s" }T" streq if exit then
|
|
again
|
|
;
|