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

protect eval-and-compile/eval-when-compile in let

Browse Source
This commit is contained in:
gilch 2017-10-30 19:46:09 -06:00
parent 82b4518fa6
commit a4dd344ebd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hy/contrib/walk.hy
View File

@ -247,7 +247,11 @@ Arguments without a header are under None.
(defn handle-call [self] (defn handle-call [self]
(setv head (first self.form)) (setv head (first self.form))
(if (in head '[fn fn*]) (self.handle-fn) (if (in head '[fn fn*]) (self.handle-fn)
(in head '[import require quote]) (self.handle-base) (in head '[import
require
quote
eval-and-compile
eval-when-compile]) (self.handle-base)
(= head 'except) (self.handle-except) (= head 'except) (self.handle-except)
(= head ".") (self.handle-dot) (= head ".") (self.handle-dot)
(= head 'defclass) (self.handle-defclass) (= head 'defclass) (self.handle-defclass)