diff options
| -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] |