diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-05-21 15:49:29 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-05-21 15:49:29 +0000 |
| commit | c5b02d1bf290cfd87df24e01b82831216c39df0a (patch) | |
| tree | 7aa608497a5a04e8f9bc49fa2ff7a897431b2a2c /src/jvm | |
| parent | c33f417602d5fd305bb1ee3ed7e4349750448da4 (diff) | |
removed (x.member ...) support
Diffstat (limited to 'src/jvm')
| -rw-r--r-- | src/jvm/clojure/lang/Compiler.java | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java index 3233c151..bcc0ef76 100644 --- a/src/jvm/clojure/lang/Compiler.java +++ b/src/jvm/clojure/lang/Compiler.java @@ -3409,14 +3409,15 @@ public static Object macroexpand1(Object x) throws Exception{ //(s.substring 2 5) => (. s substring 2 5) //also (package.class.name ...) (. package.class name ...) int idx = sname.lastIndexOf('.'); - if(idx > 0 && idx < sname.length() - 1) - { - Symbol target = Symbol.intern(sname.substring(0, idx)); - Symbol meth = Symbol.intern(sname.substring(idx + 1)); - return RT.listStar(DOT, target, meth, form.rest()); - } +// if(idx > 0 && idx < sname.length() - 1) +// { +// Symbol target = Symbol.intern(sname.substring(0, idx)); +// Symbol meth = Symbol.intern(sname.substring(idx + 1)); +// return RT.listStar(DOT, target, meth, form.rest()); +// } //(StringBuilder. "foo") => (new StringBuilder "foo") - else if(idx == sname.length() - 1) + //else + if(idx == sname.length() - 1) return RT.listStar(NEW, Symbol.intern(sname.substring(0, idx)), form.rest()); } } |