Skip to content
Browse files

Check interface methods for -

Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
  • Loading branch information...
1 parent 3297866 commit ba3fa7537da5c896d5d31be7ac22ab7f3e9c9a23 @kotarak kotarak committed with stuarthalloway Jun 1, 2010
Showing with 3 additions and 0 deletions.
  1. +3 −0 src/clj/clojure/genclass.clj
View
3 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

0 comments on commit ba3fa75

Please sign in to comment.
Something went wrong with that request. Please try again.