From a4dd344ebd8a66916208b9cf9b00ade2b769e6c4 Mon Sep 17 00:00:00 2001 From: gilch Date: Mon, 30 Oct 2017 19:46:09 -0600 Subject: [PATCH] protect eval-and-compile/eval-when-compile in let --- hy/contrib/walk.hy | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/hy/contrib/walk.hy b/hy/contrib/walk.hy index 8106492..45d991f 100644 --- a/hy/contrib/walk.hy +++ b/hy/contrib/walk.hy @@ -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)