mirror of
https://github.com/nineties/planckforth
synced 2024-12-25 21:58:22 +01:00
Merge pull request #47 from nineties/fix-test
fix a test of lib/table.fs
This commit is contained in:
commit
c63502f61a
1 changed files with 2 additions and 5 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue