diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-02-18 02:46:49 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-02-18 02:46:49 +0000 |
| commit | c6ecc887dc0bfc332e1a1c23ecf9658ff38cda9e (patch) | |
| tree | b4278ef0da560a509b205104dc57e68cdd86c9b9 | |
| parent | b2f8fe721181e43ee4a1f0d1171b0c069f20e845 (diff) | |
fixed nil punning in genclass, patch from Chouser
| -rw-r--r-- | src/clj/clojure/genclass.clj | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/clj/clojure/genclass.clj b/src/clj/clojure/genclass.clj index b7bb74f8..43c076cd 100644 --- a/src/clj/clojure/genclass.clj +++ b/src/clj/clojure/genclass.clj @@ -24,9 +24,9 @@ (let [[mm considered] (loop [mm mm considered considered - meths (concat - (seq (. c (getDeclaredMethods))) - (seq (. c (getMethods))))] + meths (seq (concat + (seq (. c (getDeclaredMethods))) + (seq (. c (getMethods)))))] (if meths (let [#^java.lang.reflect.Method meth (first meths) mods (. meth (getModifiers)) @@ -215,8 +215,8 @@ ;start class definition (. cv (visit (. Opcodes V1_5) (+ (. Opcodes ACC_PUBLIC) (. Opcodes ACC_SUPER)) cname nil (iname super) - (when interfaces - (into-array (map iname interfaces))))) + (when-let [ifc (seq interfaces)] + (into-array (map iname ifc))))) ;static fields for vars (doseq [v var-fields] |