29 lines
618 B
Scheme
29 lines
618 B
Scheme
(define-interface srfi-34-interface
|
|
(export
|
|
raise
|
|
with-exception-handler
|
|
with-exception-handlers
|
|
(guard :syntax)))
|
|
|
|
(define-interface srfi-35-interface
|
|
(export
|
|
make-condition-type
|
|
condition-type?
|
|
make-condition
|
|
condition?
|
|
condition-has-type?
|
|
condition-ref
|
|
make-compound-condition
|
|
extract-condition
|
|
(define-condition-type :syntax)
|
|
(condition :syntax)
|
|
&condition
|
|
&message message-condition? condition-message
|
|
&serious serious-condition?
|
|
&error error?))
|
|
|
|
(define-interface srfi-34-restart-interface
|
|
(export
|
|
(raise-restartable :syntax)
|
|
(restart :syntax)))
|