* Removed old system to check for exceptions.

[bpt/guile.git] / test-suite / lib.scm

diff --git a/test-suite/lib.scm b/test-suite/lib.scm
index 867b8eb..7c84364 100644 (file)
--- a/test-suite/lib.scm
+++ b/test-suite/lib.scm
@@ -38,10 +38,7 @@
  make-log-reporter 
  full-reporter
  user-reporter
- format-test-name
-
- ;; Noticing whether an error occurs.
- signals-error? signals-error?*)
+ format-test-name)
 
 
 ;;;; If you're using Emacs's Scheme mode:
@@ -469,29 +466,3 @@
       (apply full-reporter result name args)))
 
 (set! default-reporter full-reporter)
-
-\f
-;;;; Detecting whether errors occur
-
-;;; (signals-error? KEY BODY ...)
-;;; Evaluate the expressions BODY ... .  If any errors occur, return #t;
-;;; otherwise, return #f.
-;;;
-;;; KEY indicates the sort of errors to look for; it can be a symbol,
-;;; indicating that only errors with that name should be caught, or
-;;; #t, meaning that any kind of error should be caught.
-(defmacro signals-error? key-and-body
-  `(signals-error?* ,(car key-and-body)
-                   (lambda () ,@(cdr key-and-body))))
-
-;;; (signals-error?* KEY THUNK)
-;;; Apply THUNK, catching errors.  If any errors occur, return #t;
-;;; otherwise, return #f.
-;;;
-;;; KEY indicates the sort of errors to look for; it can be a symbol,
-;;; indicating that only errors with that name should be caught, or
-;;; #t, meaning that any kind of error should be caught.
-(define (signals-error?* key thunk)
-  (catch key
-        (lambda () (thunk) #f)
-        (lambda args #t)))