diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-09-01 10:12:51 -0400 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-09-01 10:12:51 -0400 |
| commit | 5f1e6ed540eab11281b7bfb19f831b7e445ed0d0 (patch) | |
| tree | 0a64058ef7f6899ad1736e97cb428d174ae9bafc /src | |
| parent | 2352948185bbad2fe5250dbf1dab343664f03e21 (diff) | |
| parent | e45046da8f7fef82157b58af54d1ac6de8e31160 (diff) | |
Merge branch 'tweaks'
Diffstat (limited to 'src')
| -rw-r--r-- | src/jvm/clojure/lang/Compiler.java | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java index 9d744d70..d6f4b398 100644 --- a/src/jvm/clojure/lang/Compiler.java +++ b/src/jvm/clojure/lang/Compiler.java @@ -57,7 +57,7 @@ static final Symbol IMPORT = Symbol.create("clojure.core", "import*"); //static final Symbol INSTANCE = Symbol.create("instance?"); //static final Symbol THISFN = Symbol.create("thisfn"); -//static final Symbol CLASS = Symbol.create("class"); +static final Symbol CLASS = Symbol.create("Class"); static final Symbol NEW = Symbol.create("new"); //static final Symbol UNQUOTE = Symbol.create("unquote"); //static final Symbol UNQUOTE_SPLICING = Symbol.create("unquote-splicing"); @@ -4483,7 +4483,7 @@ public static Object macroexpand1(Object x) throws Exception{ Object target = RT.second(form); if(HostExpr.maybeClass(target, false) != null) { - target = RT.list(IDENTITY, target); + target = ((IObj)RT.list(IDENTITY, target)).withMeta(RT.map(RT.TAG_KEY,CLASS)); } return RT.listStar(DOT, target, meth, form.next().next()); } |