Merge pull request #47 from nineties/fix-test

fix a test of lib/table.fs
This commit is contained in:
Koichi NAKAMURA 2021-12-31 19:59:41 +09:00 committed by GitHub
commit c63502f61a
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -204,11 +204,8 @@ T{ 3 1 A table! -> }T
T{ A table-size -> 2 }T T{ A table-size -> 2 }T
T{ 1 A table@ -> 3 }T T{ 1 A table@ -> 3 }T
T{ :noname 100 0 do i 1 + i A table! loop ; execute -> }T T{ :noname 100 0 do i 1 + i A table! loop ; execute -> }T
:noname T{ 0 A table@ -> 1 }T
100 0 do T{ 99 A table@ -> 100 }T
T{ i A table@ -> i 1 + }T
loop
; execute
T{ A table-size -> 100 }T T{ A table-size -> 100 }T
T{ A table-keys car -> 0 }T T{ A table-keys car -> 0 }T