mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

exceptions: Export constructor and predicate for '&quit-exception'.

Browse source 
* module/ice-9/exceptions.scm: Re-export '&quit-exception' and export
'make-quit-exception' and 'quit-exception?'.
(quit-exception?): New procedure.
This commit is contained in:
Ludovic Courtès 2020-01-18 23:33:01 +01:00
parent a0fdb4efc1
commit d47061db23
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/ice-9/exceptions.scm
View file

@ -37,6 +37,7 @@
&error &error
&programming-error &programming-error
&quit-exception
&non-continuable &non-continuable
raise-exception raise-exception
@ -59,6 +60,9 @@
make-external-error make-external-error
external-error? external-error?
make-quit-exception
quit-exception?
make-programming-error make-programming-error
programming-error? programming-error?
@ -173,6 +177,8 @@
(record-constructor &exception-with-kind-and-args)) (record-constructor &exception-with-kind-and-args))
(define make-quit-exception (define make-quit-exception
(record-constructor &quit-exception)) (record-constructor &quit-exception))
(define quit-exception?
(exception-predicate &quit-exception))
(define (default-guile-exception-converter key args) (define (default-guile-exception-converter key args)
(make-exception (make-error) (make-exception (make-error)