diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-12-13 02:37:12 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-12-13 02:37:12 +0000 |
| commit | f95175264df36c3d8fe2113aa9af92cda0f2f5c8 (patch) | |
| tree | db5b385c2387d6b79b0c9ddaa3589e510c9e04a9 /src/jvm/clojure | |
| parent | 6f913b4c17b5053bac20941339e5b2de4dd4fc7a (diff) | |
force instance member interpretation of (.method ClassName), e.g. (.getMethods String) works
Diffstat (limited to 'src/jvm/clojure')
| -rw-r--r-- | src/jvm/clojure/lang/Compiler.java | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java index ef73432d..3ca5570e 100644 --- a/src/jvm/clojure/lang/Compiler.java +++ b/src/jvm/clojure/lang/Compiler.java @@ -66,6 +66,7 @@ static final Symbol NEW = Symbol.create("new"); static final Symbol LIST = Symbol.create("clojure.core", "list"); static final Symbol HASHMAP = Symbol.create("clojure.core", "hash-map"); static final Symbol VECTOR = Symbol.create("clojure.core", "vector"); +static final Symbol IDENTITY = Symbol.create("clojure.core", "identity"); static final Symbol _AMP_ = Symbol.create("&"); static final Symbol ISEQ = Symbol.create("clojure.lang.ISeq"); @@ -4041,7 +4042,12 @@ public static Object macroexpand1(Object x) throws Exception{ throw new IllegalArgumentException( "Malformed member expression, expecting (.member target ...)"); Symbol meth = Symbol.intern(sname.substring(1)); - return RT.listStar(DOT, RT.second(form), meth, form.rest().rest()); + Object target = RT.second(form); + if(HostExpr.maybeClass(target,false) != null) + { + target = RT.list(IDENTITY, target); + } + return RT.listStar(DOT, target, meth, form.rest().rest()); } else if(namesStaticMember(sym)) { |