diff options
| author | Chouser <chouser@n01se.net> | 2009-02-17 20:42:30 +0000 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2009-02-17 20:42:30 +0000 |
| commit | d5701c377f826266d19e21ce11398616d63f25bb (patch) | |
| tree | f7212ede149f60323a697e5834b9fa369eb8c73f /src/clojure/contrib/test_is.clj | |
| parent | ab67c84237f052fea57d7cbfc45d7908026f46fa (diff) | |
Merged lazy branch into trunk:
svn merge -r472:477 ../branches/lazy/
Diffstat (limited to 'src/clojure/contrib/test_is.clj')
| -rw-r--r-- | src/clojure/contrib/test_is.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/test_is.clj b/src/clojure/contrib/test_is.clj index aac934be..23bcae24 100644 --- a/src/clojure/contrib/test_is.clj +++ b/src/clojure/contrib/test_is.clj @@ -391,7 +391,7 @@ ;; Asserts that evaluating expr throws an exception of class c. ;; Returns the exception thrown. (let [klass (second form) - body (rrest form)] + body (nthnext form 2)] `(try ~@body (report :fail ~msg '~form nil) (catch ~klass e# @@ -405,7 +405,7 @@ ;; (with re-matches) the regular expression re. (let [klass (nth form 1) re (nth form 2) - body (nthrest form 3)] + body (nthnext form 3)] `(try ~@body (report :fail ~msg '~form nil) (catch ~klass e# |