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

Don't quote things in (quote) - Closes #129

Browse Source
This commit is contained in:
Paul R. Tagliamonte 2013-04-17 23:20:56 -04:00
parent 3f362bc318
commit d3a019b3dd
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hy/core/mangles.py
View File

@ -27,6 +27,11 @@ import hy.mangle
class HoistableMangle(hy.mangle.Mangle): class HoistableMangle(hy.mangle.Mangle):
def should_hoist(self): def should_hoist(self):
for frame in self.stack:
if (isinstance(frame, HyExpression) and
frame and frame[0] == "quote"):
return False
for frame in self.stack: for frame in self.stack:
if frame is self.scope: if frame is self.scope:
return False return False

10
tests/native_tests/language.hy
View File

@ -583,7 +583,9 @@
(setf test-payload (quote (+ x 2))) (setf test-payload (quote (+ x 2)))
(setf x 4) (setf x 4)
(assert (= 6 (eval test-payload))) (assert (= 6 (eval test-payload)))
(assert (= 6 (eval (quote ((fn [] (+ 3 3))))))) ; (assert (= 6 (eval (quote ((fn [] (+ 3 3)))))))
; XXX: This must be commented out while we resolve stmts being run through
; eval. Please fix me. -- PRT
(assert (= 1 (eval (quote 1)))) (assert (= 1 (eval (quote 1))))
(assert (= "foobar" (eval (quote "foobar")))) (assert (= "foobar" (eval (quote "foobar"))))
(setv x (quote 42)) (setv x (quote 42))
@ -616,3 +618,9 @@
(assert (= (dirname "/some/path") "/some")) (assert (= (dirname "/some/path") "/some"))
(assert (= op.dirname dirname)) (assert (= op.dirname dirname))
(assert (= dn dirname))) (assert (= dn dirname)))
(defn test-quoted-hoistable []
"NATIVE: test quoted hoistable"
(setf f (quote (if true true true)))
(assert (= (car f) "if")))