Check interface methods for -

Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
ibdknox · Mar 23, 2012 · ba3fa75 · ba3fa75
1 parent 3297866
commit ba3fa75
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/clj/clojure/genclass.clj b/src/clj/clojure/genclass.clj
@@ -642,6 +642,9 @@
 
 (defn- generate-interface
   [{:keys [name extends methods]}]
+  (when (some #(-> % first clojure.core/name (.contains "-")) methods)
+    (throw
+      (IllegalArgumentException. "Interface methods must not contain '-'")))
   (let [iname (.replace (str name) "." "/")
         cv (ClassWriter. ClassWriter/COMPUTE_MAXS)]
     (. cv visit Opcodes/V1_5 (+ Opcodes/ACC_PUBLIC