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

update if-let

Browse Source 
Fixes #1189
This commit is contained in:
primo-ppcg
2023-06-11 16:38:04 +07:00
parent 7272f43191
commit 1077efd03a
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/boot/boot.janet
View File

@@ -674,7 +674,11 @@
(do (do
(def bl (in bindings i)) (def bl (in bindings i))
(def br (in bindings (+ 1 i))) (def br (in bindings (+ 1 i)))
(tuple 'if (tuple 'def bl br) (aux (+ 2 i)) fal)))) (if (symbol? bl)
(tuple 'if (tuple 'def bl br) (aux (+ 2 i)) fal)
(tuple 'if (tuple 'def (def sym (gensym)) br)
(tuple 'do (tuple 'def bl sym) (aux (+ 2 i)))
fal)))))
(aux 0)) (aux 0))
(defmacro when-let (defmacro when-let

2
test/suite-boot.janet
View File

@@ -129,6 +129,8 @@
(assert (= (if-let [a my-array k (next a 5)] :t :f) :f) "if-let 4") (assert (= (if-let [a my-array k (next a 5)] :t :f) :f) "if-let 4")
(assert (= (if-let [[a b] my-array] a) 1) "if-let 5") (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 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")
(assert (= 14 (sum (map inc @[1 2 3 4]))) "sum map") (assert (= 14 (sum (map inc @[1 2 3 4]))) "sum map")
(def myfun (juxt + - * /)) (def myfun (juxt + - * /))