mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
49 lines
1.3 KiB
Scheme
49 lines
1.3 KiB
Scheme
(define-library (srfi 35 internal)
|
||
(import (except (scheme base)
|
||
define-record-type
|
||
;; exclude (srfi 1 immutable) duplicate imports:
|
||
map cons list append reverse)
|
||
(only (chibi)
|
||
er-macro-transformer
|
||
is-a?)
|
||
;; don’t let people go messing with a compound condition
|
||
;; components list:
|
||
(srfi 1 immutable)
|
||
(srfi 99)
|
||
(srfi 133))
|
||
(export simple-condition?
|
||
compound-condition?
|
||
make-condition-type
|
||
condition?
|
||
condition-type?
|
||
condition-subtype?
|
||
condition-type-ancestors
|
||
make-condition
|
||
make-compound-condition
|
||
condition-has-type?
|
||
condition-ref
|
||
simple-conditions
|
||
extract-condition
|
||
compound-condition-components
|
||
condition-predicate
|
||
condition-accessor
|
||
define-condition-type/constructor
|
||
define-condition-type
|
||
condition
|
||
|
||
&condition
|
||
|
||
&message
|
||
make-message-condition
|
||
message-condition?
|
||
condition-message
|
||
|
||
&serious
|
||
make-serious-condition
|
||
serious-condition?
|
||
|
||
&error
|
||
make-error
|
||
error?)
|
||
|
||
(include "internal.scm"))
|