summaryrefslogtreecommitdiff
path: root/test-suite/lib.scm
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1999-09-20 23:57:44 +0000
committerJim Blandy <jimb@red-bean.com>1999-09-20 23:57:44 +0000
commit5f2125be1084fa72bc124b731f693030e8a130b4 (patch)
tree9edda62425865d4116023330fc60d84a7e95575f /test-suite/lib.scm
parentfe5b6bebaa221e6816821c3261ad0a9481e15add (diff)
downloadguile-5f2125be1084fa72bc124b731f693030e8a130b4.tar.gz
Doc fix.
Diffstat (limited to 'test-suite/lib.scm')
-rw-r--r--test-suite/lib.scm15
1 files changed, 12 insertions, 3 deletions
diff --git a/test-suite/lib.scm b/test-suite/lib.scm
index 4f1f5f710..aab9fa62b 100644
--- a/test-suite/lib.scm
+++ b/test-suite/lib.scm
@@ -424,6 +424,17 @@
;;;; 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.
@@ -436,6 +447,4 @@
(lambda () (thunk) #f)
(lambda args #t)))
-(defmacro signals-error? key-and-body
- `(signals-error?* ,(car key-and-body)
- (lambda () ,@(cdr key-and-body))))
+