diff options
| author | Chouser <chouser@n01se.net> | 2008-11-12 22:28:54 +0000 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2008-11-12 22:28:54 +0000 |
| commit | db748f4c8b6f37da894b3c8f7a3bb683eea3f0aa (patch) | |
| tree | 39f9b07d6dcbb7e241e2b5eaf35be10b8dc3067f | |
| parent | 59ba1cf0eb1811d25d8a8ef4b5c7e09fdf56492d (diff) | |
Update gen-interface for Clojure SVN 1094
| -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)) ) |