[Guile-commits] branch master updated: exceptions: Export constructor and predicate for '&quit-exception'.

[Ludovic Court�]

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 <l...@gnu.org>
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)