From 9af6106790f3857f2b97dfa2373f9fd59739eeac Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Fri, 31 Dec 2021 19:56:53 +0900
Subject: [PATCH] fix a test of lib/table.fs

---
 lib/table.fs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lib/table.fs b/lib/table.fs
index 9291e2b..9258dc3 100644
--- a/lib/table.fs
+++ b/lib/table.fs
@@ -204,11 +204,8 @@ T{ 3 1 A table! -> }T
 T{ A table-size -> 2 }T
 T{ 1 A table@ -> 3 }T
 T{ :noname 100 0 do i 1 + i A table! loop ; execute -> }T
-:noname
-    100 0 do
-        T{ i A table@ -> i 1 + }T
-    loop
-; execute
+T{ 0 A table@ -> 1 }T
+T{ 99 A table@ -> 100 }T
 T{ A table-size -> 100 }T
 
 T{ A table-keys car -> 0 }T