diff options
Diffstat (limited to 'src/clojure/contrib')
| -rw-r--r-- | src/clojure/contrib/gen_interface.clj (renamed from src/clojure/contrib/gen_interface/gen_interface.clj) | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clojure/contrib/gen_interface/gen_interface.clj b/src/clojure/contrib/gen_interface.clj index c50154eb..4ab4f26c 100644 --- a/src/clojure/contrib/gen_interface/gen_interface.clj +++ b/src/clojure/contrib/gen_interface.clj @@ -76,7 +76,7 @@ iname nil object-iname (when (seq extends) (into-array extends))) - (doseq [mname pclasses rclass] methods + (doseq [[mname pclasses rclass] methods] (. cv visitMethod (+ Opcodes/ACC_PUBLIC Opcodes/ACC_ABSTRACT) mname (Type/getMethodDescriptor rclass (if pclasses @@ -105,7 +105,7 @@ (.createNewFile file) (catch IOException e (throw (Exception. (str "Failed to create " file) e)))) - (with-open f (FileOutputStream. file) + (with-open [f (FileOutputStream. file)] (.write f bytecode)))) (defn gen-and-load-interface @@ -171,7 +171,7 @@ (prn :isInterface (.isInterface (identity net.n01se.Foo))) (prn :interfaces (seq (.getGenericInterfaces (identity net.n01se.Foo)))) -(doseq m (seq (.getMethods (identity net.n01se.Foo))) +(doseq [m (seq (.getMethods (identity net.n01se.Foo)))] (prn m)) ) |