From 6e30c23ccee0bc10bcaf71b985c9b9524b3a4914 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Tue, 5 Jan 2021 21:34:16 +0900
Subject: [PATCH] Fixed a bug of shift-args

---
 bootstrap.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bootstrap.fs b/bootstrap.fs
index c7e6532..21232b6 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -1791,12 +1791,12 @@ v argc ! argv !
 \ Remove 1 arg, update argv and argc
 : shift-args ( -- )
     argc @ 1 = if exit then
-    1 argc -!
     argc @ 1 do
         i 1+ arg            \ argv[i+1]
         i cells argv @ +    \ &argv[i]
         !                   \ copy argv[i+1] to argv[i]
     loop
+    1 argc -!
 ;
 
 \ Take 1 arg and shift arguments