[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] branch master updated: exceptions: Export constructor an
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] branch master updated: exceptions: Export constructor and predicate for '&quit-exception'. |
Date: |
Sat, 18 Jan 2020 17:34:01 -0500 |
This is an automated email from the git hooks/post-receive script.
civodul pushed a commit to branch master
in repository guile.
The following commit(s) were added to refs/heads/master by this push:
new d47061d exceptions: Export constructor and predicate for
'&quit-exception'.
d47061d is described below
commit d47061db231cdfdd018b9b57cb985d85484e7b23
Author: Ludovic Courtès <address@hidden>
AuthorDate: Sat Jan 18 23:33:01 2020 +0100
exceptions: Export constructor and predicate for '&quit-exception'.
* module/ice-9/exceptions.scm: Re-export '&quit-exception' and export
'make-quit-exception' and 'quit-exception?'.
(quit-exception?): New procedure.
---
module/ice-9/exceptions.scm | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/module/ice-9/exceptions.scm b/module/ice-9/exceptions.scm
index 3e0b8cc..143e7aa 100644
--- a/module/ice-9/exceptions.scm
+++ b/module/ice-9/exceptions.scm
@@ -37,6 +37,7 @@
&error
&programming-error
+ &quit-exception
&non-continuable
raise-exception
@@ -58,7 +59,10 @@
&external-error
make-external-error
external-error?
-
+
+ make-quit-exception
+ quit-exception?
+
make-programming-error
programming-error?
@@ -173,6 +177,8 @@
(record-constructor &exception-with-kind-and-args))
(define make-quit-exception
(record-constructor &quit-exception))
+(define quit-exception?
+ (exception-predicate &quit-exception))
(define (default-guile-exception-converter key args)
(make-exception (make-error)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] branch master updated: exceptions: Export constructor and predicate for '&quit-exception'.,
Ludovic Courtès <=