From 8c4b60a6cc21bbfbe2c33755fbf2c07c72618cf6 Mon Sep 17 00:00:00 2001 From: Bronsa Date: Sat, 18 Aug 2012 18:41:56 +0200 Subject: [PATCH] propagate on :macro --- src/jvm/clojure/lang/Compiler.java | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java index e2146a6..3e9e2e5 100644 --- a/src/jvm/clojure/lang/Compiler.java +++ b/src/jvm/clojure/lang/Compiler.java @@ -486,6 +486,10 @@ static class DefExpr implements Expr{ boolean isDynamic = RT.booleanCast(RT.get(mm,dynamicKey)); if(isDynamic) v.setDynamic(); + boolean isMacro = RT.booleanCast(RT.get(mm,Keyword.intern("macro"))); + if(isMacro) + v.setMacro(); + if(!isDynamic && sym.name.startsWith("*") && sym.name.endsWith("*") && sym.name.length() > 1) { RT.errPrintWriter().format("Warning: %1$s not declared dynamic and thus is not dynamically rebindable, " -- 1.7.9.5