Merge branch 'master' of git://github.com/jd/hy

This commit is contained in:
Paul R. Tagliamonte 2013-04-06 08:19:23 -04:00
commit 3ab7153398

View File

@ -312,6 +312,20 @@
(assert (= (let [[x 1] [y 2] [z 3]] (+ x y z)) 6)))
(defn test-let-scope []
"NATIVE: test let works rightish"
(setv y 123)
(assert (= (let [[x 1]
[y 2]
[z 3]]
(+ x y z))
6))
(try
(assert (= x 42)) ; This ain't true
(catch NameError e (assert e)))
(assert (= y 123)))
; FEATURE: native hy-eval
;
; - related to bug #64