Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix a test of lib/table.fs

Browse source
This commit is contained in:
Koichi Nakamura 2021-12-31 19:56:53 +09:00
parent 5005ff0e8e
commit 9af6106790
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/table.fs
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