Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

merge branch 'f/empty-cond'

Browse Source
This commit is contained in:
Zack M. Davis 2015-08-18 23:23:00 -07:00
commit 6916eea604
2 changed files with 23 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hy/core/macros.hy
View File

@ -67,6 +67,9 @@
bar bar
(if baz (if baz
quux))" quux))"
(if (empty? branches)
nil
(do
(setv branches (iter branches)) (setv branches (iter branches))
(setv branch (next branches)) (setv branch (next branches))
(defn check-branch [branch] (defn check-branch [branch]
@ -86,7 +89,7 @@
(setv cur-branch (check-branch branch)) (setv cur-branch (check-branch branch))
(.append latest-branch cur-branch) (.append latest-branch cur-branch)
(setv latest-branch cur-branch)) (setv latest-branch cur-branch))
root) root)))
(defmacro for [args &rest body] (defmacro for [args &rest body]

3
tests/native_tests/language.hy
View File

@ -231,7 +231,8 @@
"NATIVE: test if cond sorta works." "NATIVE: test if cond sorta works."
(cond (cond
[(= 1 2) (assert (is true false))] [(= 1 2) (assert (is true false))]
[(is None None) (setv x true) (assert x)])) [(is None None) (setv x true) (assert x)])
(assert (= (cond) nil)))
(defn test-index [] (defn test-index []