conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* added no-nans and no-infinities condition types.

This commit is contained in:
Abdulaziz Ghuloum 2007-10-23 17:40:04 -04:00
parent da29123fc0
commit 2684b53323
4 changed files with 121 additions and 104 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
scheme/ikarus.boot.orig
View File

Binary file not shown.

13
scheme/ikarus.conditions.ss
View File

@ -33,6 +33,8 @@
i/o-port-error? i/o-error-port make-i/o-decoding-error i/o-port-error? i/o-error-port make-i/o-decoding-error
i/o-decoding-error? make-i/o-encoding-error i/o-decoding-error? make-i/o-encoding-error
i/o-encoding-error? i/o-encoding-error-char i/o-encoding-error? i/o-encoding-error-char
no-infinities-violation? make-no-infinities-violation
no-nans-violation? make-no-nans-violation
&condition-rtd &condition-rcd &message-rtd &message-rcd &condition-rtd &condition-rcd &message-rtd &message-rcd
&warning-rtd &warning-rcd &serious-rtd &serious-rcd &warning-rtd &warning-rcd &serious-rtd &serious-rcd
@ -51,7 +53,8 @@
&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
&i/o-encoding-rcd &i/o-encoding-rcd &no-infinities-rtd &no-infinities-rcd
&no-nans-rtd &no-nans-rcd
) )
(import (import
@ -90,6 +93,8 @@
i/o-port-error? i/o-error-port make-i/o-decoding-error i/o-port-error? i/o-error-port make-i/o-decoding-error
i/o-decoding-error? make-i/o-encoding-error i/o-decoding-error? make-i/o-encoding-error
i/o-encoding-error? i/o-encoding-error-char i/o-encoding-error? i/o-encoding-error-char
no-infinities-violation? make-no-infinities-violation
no-nans-violation? make-no-nans-violation
)) ))
@ -289,5 +294,11 @@
make-i/o-encoding-error i/o-encoding-error? make-i/o-encoding-error i/o-encoding-error?
(char i/o-encoding-error-char)) (char i/o-encoding-error-char))
(define-condition-type &no-infinities &implementation-restriction
make-no-infinities-violation no-infinities-violation?)
(define-condition-type &no-nans &implementation-restriction
make-no-nans-violation no-nans-violation?)
) )

6
scheme/makefile.ss
View File

@ -174,6 +174,8 @@
[&i/o-port ($core-rtd . (&i/o-port-rtd &i/o-port-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-decoding ($core-rtd . (&i/o-decoding-rtd &i/o-decoding-rcd))]
[&i/o-encoding ($core-rtd . (&i/o-encoding-rtd &i/o-encoding-rcd))] [&i/o-encoding ($core-rtd . (&i/o-encoding-rtd &i/o-encoding-rcd))]
[&no-infinities ($core-rtd . (&no-infinities-rtd &no-infinities-rcd ))]
[&no-nans ($core-rtd . (&no-nans-rtd &no-nans-rcd ))]
)) ))
(define library-legend (define library-legend
@ -1295,6 +1297,10 @@
[&i/o-decoding-rcd] [&i/o-decoding-rcd]
[&i/o-encoding-rtd] [&i/o-encoding-rtd]
[&i/o-encoding-rcd] [&i/o-encoding-rcd]
[&no-infinities-rtd]
[&no-infinities-rcd]
[&no-nans-rtd]
[&no-nans-rcd]
)) ))
(define (macro-identifier? x) (define (macro-identifier? x)

206
scheme/todo-r6rs.ss
View File

@ -40,7 +40,6 @@
[S scheduled] [S scheduled]
[D deferred] [D deferred]
[C completed] [C completed]
[X killed]
)) ))
(define identifier-names (define identifier-names
@ -348,12 +347,12 @@
[fltruncate C fl] [fltruncate C fl]
[flzero? C fl] [flzero? C fl]
[real->flonum D fl] [real->flonum D fl]
[make-no-infinities-violation X fl] [make-no-infinities-violation C fl]
[make-no-nans-violation X fl] [make-no-nans-violation C fl]
[&no-infinities X fl] [&no-infinities C fl]
[no-infinities-violation? X fl] [no-infinities-violation? C fl]
[&no-nans X fl] [&no-nans C fl]
[no-nans-violation? X fl] [no-nans-violation? C fl]
;;; ;;;
[bytevector->sint-list C bv] [bytevector->sint-list C bv]
[bytevector->u8-list C bv] [bytevector->u8-list C bv]
@ -414,58 +413,58 @@
[utf16->string S bv] [utf16->string S bv]
[utf32->string S bv] [utf32->string S bv]
;;; ;;;
[condition? X co] [condition? C co]
[&assertion X co] [&assertion C co]
[assertion-violation? X co] [assertion-violation? C co]
[&condition X co] [&condition C co]
[condition X co] [condition C co]
[condition-accessor X co] [condition-accessor C co]
[condition-irritants X co] [condition-irritants C co]
[condition-message X co] [condition-message C co]
[condition-predicate X co] [condition-predicate C co]
[condition-who X co] [condition-who C co]
[define-condition-type X co] [define-condition-type S co]
[&error X co] [&error C co]
[error? X co] [error? C co]
[&implementation-restriction X co] [&implementation-restriction C co]
[implementation-restriction-violation? X co] [implementation-restriction-violation? C co]
[&irritants X co] [&irritants C co]
[irritants-condition? X co] [irritants-condition? C co]
[&lexical X co] [&lexical C co]
[lexical-violation? X co] [lexical-violation? C co]
[make-assertion-violation X co] [make-assertion-violation C co]
[make-error X co] [make-error C co]
[make-implementation-restriction-violation X co] [make-implementation-restriction-violation C co]
[make-irritants-condition X co] [make-irritants-condition C co]
[make-lexical-violation X co] [make-lexical-violation C co]
[make-message-condition X co] [make-message-condition C co]
[make-non-continuable-violation X co] [make-non-continuable-violation C co]
[make-serious-condition X co] [make-serious-condition C co]
[make-syntax-violation X co] [make-syntax-violation C co]
[make-undefined-violation X co] [make-undefined-violation C co]
[make-violation X co] [make-violation C co]
[make-warning X co] [make-warning C co]
[make-who-condition X co] [make-who-condition C co]
[&message X co] [&message C co]
[message-condition? X co] [message-condition? C co]
[&non-continuable X co] [&non-continuable C co]
[non-continuable-violation? X co] [non-continuable-violation? C co]
[&serious X co] [&serious C co]
[serious-condition? X co] [serious-condition? C co]
[simple-conditions X co] [simple-conditions C co]
[&syntax X co] [&syntax C co]
[syntax-violation X co sc] [syntax-violation C co sc]
[syntax-violation-form X co] [syntax-violation-form C co]
[syntax-violation-subform X co] [syntax-violation-subform C co]
[syntax-violation? X co] [syntax-violation? C co]
[&undefined X co] [&undefined C co]
[undefined-violation? X co] [undefined-violation? C co]
[&violation X co] [&violation C co]
[violation? X co] [violation? C co]
[&warning X co] [&warning C co]
[warning? X co] [warning? C co]
[&who X co] [&who C co]
[who-condition? X co] [who-condition? C co]
;;; ;;;
[case-lambda C ct] [case-lambda C ct]
[do C ct se ne] [do C ct se ne]
@ -490,10 +489,10 @@
[environment C ev] [environment C ev]
[eval C ev se] [eval C ev se]
;;; ;;;
[raise X ex] [raise S ex]
[raise-continuable X ex] [raise-continuable S ex]
[with-exception-handler X ex] [with-exception-handler S ex]
[guard X ex] [guard S ex]
;;; ;;;
[binary-port? S ip] [binary-port? S ip]
[buffer-mode C ip] [buffer-mode C ip]
@ -559,33 +558,33 @@
[get-string-n S ip] [get-string-n S ip]
[get-string-n! S ip] [get-string-n! S ip]
[get-u8 S ip] [get-u8 S ip]
[&i/o X ip is fi] [&i/o C ip is fi]
[&i/o-decoding X ip] [&i/o-decoding C ip]
[i/o-decoding-error? X ip] [i/o-decoding-error? C ip]
[&i/o-encoding X ip] [&i/o-encoding C ip]
[i/o-encoding-error-char X ip] [i/o-encoding-error-char C ip]
[i/o-encoding-error? X ip] [i/o-encoding-error? C ip]
[i/o-error-filename X ip is fi] [i/o-error-filename C ip is fi]
[i/o-error-port X ip is fi] [i/o-error-port C ip is fi]
[i/o-error? X ip is fi] [i/o-error? C ip is fi]
[&i/o-file-already-exists X ip is fi] [&i/o-file-already-exists C ip is fi]
[i/o-file-already-exists-error? X ip is fi] [i/o-file-already-exists-error? C ip is fi]
[&i/o-file-does-not-exist X ip is fi] [&i/o-file-does-not-exist C ip is fi]
[i/o-file-does-not-exist-error? X ip is fi] [i/o-file-does-not-exist-error? C ip is fi]
[&i/o-file-is-read-only X ip is fi] [&i/o-file-is-read-only C ip is fi]
[i/o-file-is-read-only-error? X ip is fi] [i/o-file-is-read-only-error? C ip is fi]
[&i/o-file-protection X ip is fi] [&i/o-file-protection C ip is fi]
[i/o-file-protection-error? X ip is fi] [i/o-file-protection-error? C ip is fi]
[&i/o-filename X ip is fi] [&i/o-filename C ip is fi]
[i/o-filename-error? X ip is fi] [i/o-filename-error? C ip is fi]
[&i/o-invalid-position X ip is fi] [&i/o-invalid-position C ip is fi]
[i/o-invalid-position-error? X ip is fi] [i/o-invalid-position-error? C ip is fi]
[&i/o-port X ip is fi] [&i/o-port C ip is fi]
[i/o-port-error? X ip is fi] [i/o-port-error? C ip is fi]
[&i/o-read X ip is fi] [&i/o-read C ip is fi]
[i/o-read-error? X ip is fi] [i/o-read-error? C ip is fi]
[&i/o-write X ip is fi] [&i/o-write C ip is fi]
[i/o-write-error? X ip is fi] [i/o-write-error? C ip is fi]
[lookahead-char S ip] [lookahead-char S ip]
[lookahead-u8 S ip] [lookahead-u8 S ip]
[make-bytevector C bv] [make-bytevector C bv]
@ -595,18 +594,19 @@
[make-custom-textual-input-port S ip] [make-custom-textual-input-port S ip]
[make-custom-textual-input/output-port D ip] [make-custom-textual-input/output-port D ip]
[make-custom-textual-output-port S ip] [make-custom-textual-output-port S ip]
[make-i/o-decoding-error X ip]
[make-i/o-encoding-error X ip] [make-i/o-decoding-error C ip]
[make-i/o-error X ip is fi] [make-i/o-encoding-error C ip]
[make-i/o-file-already-exists-error X ip is fi] [make-i/o-error C ip is fi]
[make-i/o-file-does-not-exist-error X ip is fi] [make-i/o-file-already-exists-error C ip is fi]
[make-i/o-file-is-read-only-error X ip is fi] [make-i/o-file-does-not-exist-error C ip is fi]
[make-i/o-file-protection-error X ip is fi] [make-i/o-file-is-read-only-error C ip is fi]
[make-i/o-filename-error X ip is fi] [make-i/o-file-protection-error C ip is fi]
[make-i/o-invalid-position-error X ip is fi] [make-i/o-filename-error C ip is fi]
[make-i/o-port-error X ip is fi] [make-i/o-invalid-position-error C ip is fi]
[make-i/o-read-error X ip is fi] [make-i/o-port-error C ip is fi]
[make-i/o-write-error X ip is fi] [make-i/o-read-error C ip is fi]
[make-i/o-write-error C ip is fi]
[latin-1-codec C ip] [latin-1-codec C ip]
[make-transcoder C ip] [make-transcoder C ip]
[native-eol-style C ip] [native-eol-style C ip]
@ -695,7 +695,7 @@
[file-exists? C fi] [file-exists? C fi]
[delete-file C fi] [delete-file C fi]
;;; ;;;
[define-record-type S rs] [define-record-type C rs]
[fields C rs] [fields C rs]
[immutable C rs] [immutable C rs]
[mutable C rs] [mutable C rs]