* standard condition types are not exported.

This commit is contained in:
Abdulaziz Ghuloum 2007-10-23 17:24:55 -04:00
parent 56d279297b
commit da29123fc0
4 changed files with 101 additions and 13 deletions

Binary file not shown.

View File

@ -24,8 +24,8 @@
i/o-invalid-position-error? i/o-error-position i/o-invalid-position-error? i/o-error-position
make-i/o-filename-error i/o-filename-error? make-i/o-filename-error i/o-filename-error?
i/o-error-filename make-i/o-file-protection-error i/o-error-filename make-i/o-file-protection-error
i/o-file-protection-error? make-i/o-fie-is-read-only-error i/o-file-protection-error? make-i/o-file-is-read-only-error
i/o-fie-is-read-only-error? i/o-file-is-read-only-error?
make-i/o-file-already-exists-error make-i/o-file-already-exists-error
i/o-file-already-exists-error? i/o-file-already-exists-error?
make-i/o-file-does-not-exist-error make-i/o-file-does-not-exist-error
@ -46,8 +46,8 @@
&i/o-write-rtd &i/o-write-rcd &i/o-invalid-position-rtd &i/o-write-rtd &i/o-write-rcd &i/o-invalid-position-rtd
&i/o-invalid-position-rcd &i/o-filename-rtd &i/o-invalid-position-rcd &i/o-filename-rtd
&i/o-filename-rcd &i/o-file-protection-rtd &i/o-filename-rcd &i/o-file-protection-rtd
&i/o-file-protection-rcd &i/o-fie-is-read-only-rtd &i/o-file-protection-rcd &i/o-file-is-read-only-rtd
&i/o-fie-is-read-only-rcd &i/o-file-already-exists-rtd &i/o-file-is-read-only-rcd &i/o-file-already-exists-rtd
&i/o-file-already-exists-rcd &i/o-file-does-not-exist-rtd &i/o-file-already-exists-rcd &i/o-file-does-not-exist-rtd
&i/o-file-does-not-exist-rcd &i/o-port-rtd &i/o-port-rcd &i/o-file-does-not-exist-rcd &i/o-port-rtd &i/o-port-rcd
&i/o-decoding-rtd &i/o-decoding-rcd &i/o-encoding-rtd &i/o-decoding-rtd &i/o-decoding-rcd &i/o-encoding-rtd
@ -81,8 +81,8 @@
i/o-invalid-position-error? i/o-error-position i/o-invalid-position-error? i/o-error-position
make-i/o-filename-error i/o-filename-error? make-i/o-filename-error i/o-filename-error?
i/o-error-filename make-i/o-file-protection-error i/o-error-filename make-i/o-file-protection-error
i/o-file-protection-error? make-i/o-fie-is-read-only-error i/o-file-protection-error? make-i/o-file-is-read-only-error
i/o-fie-is-read-only-error? i/o-file-is-read-only-error?
make-i/o-file-already-exists-error make-i/o-file-already-exists-error
i/o-file-already-exists-error? i/o-file-already-exists-error?
make-i/o-file-does-not-exist-error make-i/o-file-does-not-exist-error
@ -269,8 +269,8 @@
(define-condition-type &i/o-file-protection &i/o (define-condition-type &i/o-file-protection &i/o
make-i/o-file-protection-error i/o-file-protection-error?) make-i/o-file-protection-error i/o-file-protection-error?)
(define-condition-type &i/o-fie-is-read-only &i/o-file-protection (define-condition-type &i/o-file-is-read-only &i/o-file-protection
make-i/o-fie-is-read-only-error i/o-fie-is-read-only-error?) make-i/o-file-is-read-only-error i/o-file-is-read-only-error?)
(define-condition-type &i/o-file-already-exists &i/o-filename (define-condition-type &i/o-file-already-exists &i/o-filename
make-i/o-file-already-exists-error i/o-file-already-exists-error?) make-i/o-file-already-exists-error i/o-file-already-exists-error?)

View File

@ -148,6 +148,32 @@
[nongenerative (macro . nongenerative)] [nongenerative (macro . nongenerative)]
[parent-rtd (macro . parent-rtd)] [parent-rtd (macro . parent-rtd)]
[define-record-type (macro . define-record-type)] [define-record-type (macro . define-record-type)]
[&condition ($core-rtd . (&condition-rtd &condition-rcd))]
[&message ($core-rtd . (&message-rtd &message-rcd))]
[&warning ($core-rtd . (&warning-rtd &warning-rcd ))]
[&serious ($core-rtd . (&serious-rtd &serious-rcd))]
[&error ($core-rtd . (&error-rtd &error-rcd))]
[&violation ($core-rtd . (&violation-rtd &violation-rcd ))]
[&assertion ($core-rtd . (&assertion-rtd &assertion-rcd ))]
[&irritants ($core-rtd . (&irritants-rtd &irritants-rcd))]
[&who ($core-rtd . (&who-rtd &who-rcd ))]
[&non ($core-rtd . (&non-continuable-rtd &non-continuable-rcd))]
[&implementation ($core-rtd . (&implementation-restriction-rtd &implementation-restriction-rcd))]
[&lexical ($core-rtd . (&lexical-rtd &lexical-rcd ))]
[&syntax ($core-rtd . (&syntax-rtd &syntax-rcd ))]
[&undefined ($core-rtd . (&undefined-rtd &undefined-rcd))]
[&i/o ($core-rtd . (&i/o-rtd &i/o-rcd ))]
[&i/o-read ($core-rtd . (&i/o-read-rtd &i/o-read-rcd ))]
[&i/o-write ($core-rtd . (&i/o-write-rtd &i/o-write-rcd))]
[&i/o-invalid-position ($core-rtd . (&i/o-invalid-position-rtd &i/o-invalid-position-rcd ))]
[&i/o-filename ($core-rtd . (&i/o-filename-rtd &i/o-filename-rcd))]
[&i/o-file-protection ($core-rtd . (&i/o-file-protection-rtd &i/o-file-protection-rcd))]
[&i/o-file-is-read-only ($core-rtd . (&i/o-file-is-read-only-rtd &i/o-fie-is-read-only-rcd ))]
[&i/o-file-already-exists ($core-rtd . (&i/o-file-already-exists-rtd &i/o-file-already-exists-rcd))]
[&i/o-file-does-not-exist ($core-rtd . (&i/o-file-does-not-exist-rtd &i/o-file-does-not-exist-rcd))]
[&i/o-port ($core-rtd . (&i/o-port-rtd &i/o-port-rcd))]
[&i/o-decoding ($core-rtd . (&i/o-decoding-rtd &i/o-decoding-rcd))]
[&i/o-encoding ($core-rtd . (&i/o-encoding-rtd &i/o-encoding-rcd))]
)) ))
(define library-legend (define library-legend
@ -420,7 +446,7 @@
[$set-symbol-plist! $symbols] [$set-symbol-plist! $symbols]
[$init-symbol-value! ] [$init-symbol-value! ]
[$unbound-object? $symbols] [$unbound-object? $symbols]
;;;
[base-rtd $structs] [base-rtd $structs]
[$struct-set! $structs] [$struct-set! $structs]
[$struct-ref $structs] [$struct-ref $structs]
@ -429,7 +455,7 @@
[$make-struct $structs] [$make-struct $structs]
[$struct? $structs] [$struct? $structs]
[$struct/rtd? $structs] [$struct/rtd? $structs]
;;;
[$make-port/input $ports] [$make-port/input $ports]
[$make-port/output $ports] [$make-port/output $ports]
[$port-handler $ports] [$port-handler $ports]
@ -1216,6 +1242,59 @@
[$transcoder->data $transc] [$transcoder->data $transc]
[$data->transcoder $transc] [$data->transcoder $transc]
[file-options-spec i] [file-options-spec i]
;;;
[&condition-rtd]
[&condition-rcd]
[&message-rtd]
[&message-rcd]
[&warning-rtd]
[&warning-rcd]
[&serious-rtd]
[&serious-rcd]
[&error-rtd]
[&error-rcd]
[&violation-rtd]
[&violation-rcd]
[&assertion-rtd]
[&assertion-rcd]
[&irritants-rtd]
[&irritants-rcd]
[&who-rtd]
[&who-rcd]
[&non-continuable-rtd]
[&non-continuable-rcd]
[&implementation-restriction-rtd]
[&implementation-restriction-rcd]
[&lexical-rtd]
[&lexical-rcd]
[&syntax-rtd]
[&syntax-rcd]
[&undefined-rtd]
[&undefined-rcd]
[&i/o-rtd]
[&i/o-rcd]
[&i/o-read-rtd]
[&i/o-read-rcd]
[&i/o-write-rtd]
[&i/o-write-rcd]
[&i/o-invalid-position-rtd]
[&i/o-invalid-position-rcd]
[&i/o-filename-rtd]
[&i/o-filename-rcd]
[&i/o-file-protection-rtd]
[&i/o-file-protection-rcd]
[&i/o-fie-is-read-only-rtd]
[&i/o-fie-is-read-only-rcd]
[&i/o-file-already-exists-rtd]
[&i/o-file-already-exists-rcd]
[&i/o-file-does-not-exist-rtd]
[&i/o-file-does-not-exist-rcd]
[&i/o-port-rtd]
[&i/o-port-rcd]
[&i/o-decoding-rtd]
[&i/o-decoding-rcd]
[&i/o-encoding-rtd]
[&i/o-encoding-rcd]
)) ))
(define (macro-identifier? x) (define (macro-identifier? x)
@ -1458,3 +1537,8 @@
;;; vim:syntax=scheme ;;; vim:syntax=scheme
#!eof

View File

@ -510,7 +510,11 @@
(define label->binding (define label->binding
(lambda (x r) (lambda (x r)
(cond (cond
((imported-label->binding x)) ((imported-label->binding x) =>
(lambda (b)
(if (and (pair? b) (eq? (car b) '$core-rtd))
(cons '$rtd (map bless (cdr b)))
b)))
((assq x r) => cdr) ((assq x r) => cdr)
(else '(displaced-lexical . #f))))) (else '(displaced-lexical . #f)))))
@ -535,7 +539,7 @@
(case type (case type
((lexical core-prim macro macro! global local-macro ((lexical core-prim macro macro! global local-macro
local-macro! global-macro global-macro! local-macro! global-macro global-macro!
displaced-lexical syntax import $module) displaced-lexical syntax import $module $core-rtd)
(values type (binding-value b) id)) (values type (binding-value b) id))
(else (values 'other #f #f)))))) (else (values 'other #f #f))))))
((syntax-pair? e) ((syntax-pair? e)
@ -550,7 +554,7 @@
((define define-syntax core-macro begin macro ((define define-syntax core-macro begin macro
macro! local-macro local-macro! global-macro macro! local-macro local-macro! global-macro
global-macro! module set! let-syntax global-macro! module set! let-syntax
letrec-syntax import) letrec-syntax import $core-rtd)
(values type (binding-value b) id)) (values type (binding-value b) id))
(else (else
(values 'call #f #f)))) (values 'call #f #f))))