diff options
author | Jim Blandy <jimb@red-bean.com> | 1999-09-20 23:57:44 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1999-09-20 23:57:44 +0000 |
commit | 5f2125be1084fa72bc124b731f693030e8a130b4 (patch) | |
tree | 9edda62425865d4116023330fc60d84a7e95575f /test-suite/lib.scm | |
parent | fe5b6bebaa221e6816821c3261ad0a9481e15add (diff) | |
download | guile-5f2125be1084fa72bc124b731f693030e8a130b4.tar.gz |
Doc fix.
Diffstat (limited to 'test-suite/lib.scm')
-rw-r--r-- | test-suite/lib.scm | 15 |
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)))) + |