mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-09-13 00:06:06 +00:00
Code Issues 1 Releases Wiki Activity

do not expand false branch more than once

Browse Source 
Fixes #1191
This commit is contained in:
primo-ppcg
2023-06-11 19:15:48 +07:00
parent 32c5b816ae
commit 2a7ea27bb7
2 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
test/suite-boot.janet
View File

@@ -130,7 +130,12 @@
(assert (= (if-let [[a b] my-array] a) 1) "if-let 5")
(assert (= (if-let [{:a a :b b} {:a 1 :b 2}] b) 2) "if-let 6")
(assert (= (if-let [[a b] nil] :t :f) :f) "if-let 7")
(assert (= (if-let [a true b false] b a) true) "if-let 8")
# #1191
(var cnt 0)
(defmacro upcnt [] (++ cnt))
(assert (= (if-let [a true b true c true] nil (upcnt)) nil) "issue #1191")
(assert (= cnt 1) "issue #1191")
(assert (= 14 (sum (map inc @[1 2 3 4]))) "sum map")
(def myfun (juxt + - * /))