mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 07:33:01 +00:00
Code Issues 1 Releases Wiki Activity

map: Fix indexing for 3+ data structures

Browse Source
This commit is contained in:
Grazfather
2021-12-03 16:11:20 -05:00
parent 8ba142bcf4
commit 139bef2142
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/boot/boot.janet
View File

@@ -908,7 +908,7 @@
(while true (while true
(if (= nil (set k1 (next i1 k1))) (break)) (if (= nil (set k1 (next i1 k1))) (break))
(if (= nil (set k2 (next i2 k2))) (break)) (if (= nil (set k2 (next i2 k2))) (break))
(if (= nil (set k3 (next i2 k3))) (break)) (if (= nil (set k3 (next i3 k3))) (break))
(array/push res (f (in i1 k1) (in i2 k2) (in i3 k3))))) (array/push res (f (in i1 k1) (in i2 k2) (in i3 k3)))))
4 (do 4 (do
(var k1 nil) (var k1 nil)
@@ -918,8 +918,8 @@
(while true (while true
(if (= nil (set k1 (next i1 k1))) (break)) (if (= nil (set k1 (next i1 k1))) (break))
(if (= nil (set k2 (next i2 k2))) (break)) (if (= nil (set k2 (next i2 k2))) (break))
(if (= nil (set k3 (next i2 k3))) (break)) (if (= nil (set k3 (next i3 k3))) (break))
(if (= nil (set k4 (next i2 k4))) (break)) (if (= nil (set k4 (next i4 k4))) (break))
(array/push res (f (in i1 k1) (in i2 k2) (in i3 k3) (in i4 k4))))) (array/push res (f (in i1 k1) (in i2 k2) (in i3 k3) (in i4 k4)))))
(do (do
(def iterkeys (array/new-filled ninds)) (def iterkeys (array/new-filled ninds))