diff options
| author | Chouser <chouser@n01se.net> | 2009-02-17 22:08:16 +0000 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-02-17 22:08:16 +0000 |
| commit | 81b9e71effbaf6aa2945cd684802d87c762cdcdd (patch) | |
| tree | 716012900fd73190e11d8869a4efbc44fa231f7a /src/clojure/contrib/error_kit.clj | |
| parent | d7695aa72adcdbdffe396b87d8f0a2dea363ffc1 (diff) | |
Batch of changes for lazier clojure.
Diffstat (limited to 'src/clojure/contrib/error_kit.clj')
| -rw-r--r-- | src/clojure/contrib/error_kit.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clojure/contrib/error_kit.clj b/src/clojure/contrib/error_kit.clj index 908caa64..2e52fdea 100644 --- a/src/clojure/contrib/error_kit.clj +++ b/src/clojure/contrib/error_kit.clj @@ -86,7 +86,7 @@ ((:unhandled err) err) (let [[{:keys [htag] :as handler}] hs] (if (and htag (not (isa? err-tag htag))) - (recur (rest hs)) + (recur (next hs)) (let [rtn ((:hfunc handler) err)] (if-not (vector? rtn) (throw-to handler (list rtn)) @@ -97,7 +97,7 @@ (do (prn *continues*) (throw (Exception. (str "Unbound continue name " (rtn 1)))))) - ::do-not-handle (recur (rest hs)) + ::do-not-handle (recur (next hs)) (throw-to handler (list rtn))))))))))) (defmacro raise @@ -176,7 +176,7 @@ :when (= (resolve type) #'bind-continue)] [(list `quote (first more)) `{:blockid '~blockid - :rfunc (fn ~@(rest more))}]))] + :rfunc (fn ~@(next more))}]))] `(try (binding [*handler-stack* (list* ~@handlers @#'*handler-stack*) *continues* (merge @#'*continues* ~@continues)] |