mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Doc fix.

Browse source
This commit is contained in:
Jim Blandy 1999-09-20 23:57:44 +00:00
parent fe5b6bebaa
commit 5f2125be10
1 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test-suite/lib.scm
View file

@ -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))))