0.8.4-SNAPSHOT Arrow_down_16x16

def-arity-exc-helper

clojure.core.logic

  • (def-arity-exc-helper)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source clojure/core/logic.clj:1699 top

(defmacro def-arity-exc-helper []
  (try
    (Class/forName "clojure.lang.ArityException")
    `(defn arity-exc-helper [~'name ~'n]
       (fn [~'& ~'args]
         (throw (clojure.lang.ArityException. ~'n (str ~'name)))))
    (catch java.lang.ClassNotFoundException e
     `(defn ~'arity-exc-helper [~'name ~'n]
        (fn [~'& ~'args]
          (throw
           (java.lang.IllegalArgumentException.
            (str "Wrong number of args (" ~'n ") passed to:" ~'name))))))))
Vars in clojure.core.logic/def-arity-exc-helper:
Used in 0 other vars

Comments top

No comments for def-arity-exc-helper. Log in to add a comment.