From 81b9e71effbaf6aa2945cd684802d87c762cdcdd Mon Sep 17 00:00:00 2001 From: Chouser Date: Tue, 17 Feb 2009 22:08:16 +0000 Subject: Batch of changes for lazier clojure. --- src/clojure/contrib/error_kit.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/clojure/contrib/error_kit.clj') 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)] -- cgit v1.2.3-18-g5258