diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-01-14 23:22:25 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-01-14 23:22:25 +0000 |
| commit | 1200680a946a7d484bab9db1eab50769f2c00519 (patch) | |
| tree | f0e9762e6b6620eb46cbc9f3f4b32fe82ab3a622 /src | |
| parent | c82316f297c9e96041058856aa7573d59b7c357f (diff) | |
Resolve classes from symbols before passing to overload-name, patch from Meikel Brandmeyer
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/genclass.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/genclass.clj b/src/clj/clojure/genclass.clj index 36e1d21c..be3bc5ce 100644 --- a/src/clj/clojure/genclass.clj +++ b/src/clj/clojure/genclass.clj @@ -135,7 +135,7 @@ (when main [main-name]) ;(when exposes-methods (map str (vals exposes-methods))) (distinct (concat (keys sigs-by-name) - (mapcat (fn [[m s]] (map #(overload-name m %) s)) overloads) + (mapcat (fn [[m s]] (map #(overload-name m (map the-class %)) s)) overloads) (mapcat (comp (partial map str) vals val) exposes)))) emit-get-var (fn [gen v] (let [false-label (. gen newLabel) |