From 584491e62e960e1c8b374c9388b83ff1dea32444 Mon Sep 17 00:00:00 2001 From: Koichi Nakamura Date: Wed, 8 Dec 2021 08:08:13 +0900 Subject: [PATCH] fix comment --- lib/core.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/core.fs b/lib/core.fs index 03652fa..f987629 100644 --- a/lib/core.fs +++ b/lib/core.fs @@ -20,7 +20,7 @@ s" Invalid argument" exception constant INVALID-ARGUMENT s" Index out of range" exception constant OUT-OF-RANGE export defined? roll [unless] - : roll ( w[n-1] ... w0 n -- w0 w[n-2] ... w0 w[n-1] ) + : roll ( w[n-1] ... w0 n -- w[n-2] ... w0 w[n-1] ) dup 0<= if drop else swap >r 1- recurse r> swap then ; [then]