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

This commit is contained in:
gilch 2017-10-30 19:46:09 -06:00
parent 82b4518fa6
commit a4dd344ebd

View File

@ -247,7 +247,11 @@ Arguments without a header are under None.
(defn handle-call [self]
(setv head (first self.form))
(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 ".") (self.handle-dot)
(= head 'defclass) (self.handle-defclass)