summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorRich Hickey <richhickey@gmail.com>2008-05-18 20:13:09 +0000
committerRich Hickey <richhickey@gmail.com>2008-05-18 20:13:09 +0000
commit00f9c7b50c1b17af85fa58d1d8ac4f4027e88177 (patch)
tree8b79d06c4692e10a25eeadb1bcf99c4a035f402e /src
parent39e6f9bcec08cba5efae708051475e5fc354bb2d (diff)
locals shadow macros
Diffstat (limited to 'src')
-rw-r--r--src/jvm/clojure/lang/Compiler.java3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
index ef7a519f..17f5c35e 100644
--- a/src/jvm/clojure/lang/Compiler.java
+++ b/src/jvm/clojure/lang/Compiler.java
@@ -3339,6 +3339,9 @@ static public class CompilerException extends Exception{
}
static public Var isMacro(Object op) throws Exception{
+ //no local macros for now
+ if(op instanceof Symbol && referenceLocal((Symbol)op) != null)
+ return null;
if(op instanceof Symbol || op instanceof Var)
{
Var v = (op instanceof Var) ? (Var) op : lookupVar((Symbol) op, false);