From 139bef21427babd2d165e1b9d627efbec6f2f14e Mon Sep 17 00:00:00 2001 From: Grazfather Date: Fri, 3 Dec 2021 16:11:20 -0500 Subject: [PATCH] map: Fix indexing for 3+ data structures --- src/boot/boot.janet | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 380f2863..922b759e 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -908,7 +908,7 @@ (while true (if (= nil (set k1 (next i1 k1))) (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))))) 4 (do (var k1 nil) @@ -918,8 +918,8 @@ (while true (if (= nil (set k1 (next i1 k1))) (break)) (if (= nil (set k2 (next i2 k2))) (break)) - (if (= nil (set k3 (next i2 k3))) (break)) - (if (= nil (set k4 (next i2 k4))) (break)) + (if (= nil (set k3 (next i3 k3))) (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))))) (do (def iterkeys (array/new-filled ninds))