From 6f2a1f17ee7565298a5b4b3a7d2dd47cffcfeb69 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Sat, 4 Dec 2021 06:26:35 +0900
Subject: [PATCH] minor fix

---
 lib/core.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/core.fs b/lib/core.fs
index abc4968..67e8840 100644
--- a/lib/core.fs
+++ b/lib/core.fs
@@ -2,7 +2,7 @@
 \ Copyright (C) 2021 nineties
 
 defined? roll [unless]
-    : roll ( wn ... w1 n -- w1 wn ... w2 -- )
+    : roll ( wn ... w1 n -- w1 wn ... w2 )
         dup 0<= if drop else swap >r 1- recurse r> swap then
     ;
 [then]