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

Merge pull request #47 from nineties/fix-test

Browse source 
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
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