From 92b7f456f611375101416f08d0429edf1dabf2ec Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Wed, 13 Jan 2021 19:29:46 +0900
Subject: [PATCH] Add lib/core.fs

---
 bootstrap.fs |  1 +
 lib/core.fs  | 11 +++++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 lib/core.fs

diff --git a/bootstrap.fs b/bootstrap.fs
index 8f211c5..8061f72 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -2562,6 +2562,7 @@ need-defined (read)
     then then
 ; execute
 
+include lib/core.fs
 
 :noname
     rdrop
diff --git a/lib/core.fs b/lib/core.fs
new file mode 100644
index 0000000..399f44f
--- /dev/null
+++ b/lib/core.fs
@@ -0,0 +1,11 @@
+\ 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]