diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2009-12-11 00:07:33 -0800 |
|---|---|---|
| committer | Tom Faulhaber <git_net@infolace.com> | 2009-12-11 00:07:33 -0800 |
| commit | e5b7819ef66410a87b8072417dc2f09ac4ddb03f (patch) | |
| tree | 2b5c6187133f4adeace1662d5cec6e574a3b5c2d /src/clojure/contrib/error_kit.clj | |
| parent | eb73c54687a9ed63dc939bbe886170f4a47455ed (diff) | |
Changed all instances of ^x across contrib to (meta x) since the ^x form is being deprecated in 1.1
refs #48
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 |