diff options
Diffstat (limited to 'src/clojure/contrib/error_kit.clj')
| -rw-r--r-- | src/clojure/contrib/error_kit.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/error_kit.clj b/src/clojure/contrib/error_kit.clj index 4db80d59..93ebddd4 100644 --- a/src/clojure/contrib/error_kit.clj +++ b/src/clojure/contrib/error_kit.clj @@ -54,7 +54,7 @@ or API adjustments."} (defn- qualify-sym [sym] (let [v (resolve sym)] (assert v) - (apply symbol (map #(str (% ^v)) [:ns :name])))) + (apply symbol (map #(str (% (meta v))) [:ns :name])))) (defmacro deferror "Define a new error type" @@ -110,7 +110,7 @@ or API adjustments."} (defmacro raise "Raise an error of the type err-name, constructed with the given args" [err-name & args] - `(raise* (~err-name ~(zipmap (::args ^(resolve err-name)) + `(raise* (~err-name ~(zipmap (::args (meta (resolve err-name))) args)))) ; It'd be nice to assert that these are used in a tail position of a handler |