Fixes big 185268: open-string-input-port type check die message missing

This commit is contained in:
Abdulaziz Ghuloum 2008-01-23 02:17:25 -05:00
parent a33269daa7
commit 9ba00f128e
3 changed files with 5 additions and 4 deletions

View File

@ -2234,9 +2234,10 @@ not recognize the \texttt{|p} notation.
The following procedures are missing from \texttt{(rnrs base)}:
\begin{Verbatim}
angle magnitude make-polar make-rectangular
angle make-polar make-rectangular
\end{Verbatim}
% magnitude
% string->utf16
% string->utf32
% utf16->string
@ -2278,7 +2279,6 @@ hashtable-hash-function hashtable-equivalence-function
The following procedures are missing from \texttt{(rnrs io ports)}:
\begin{Verbatim}
get-bytevector-some
string->bytevector bytevector->string
port-has-port-position? port-position
port-has-set-port-position!? set-port-position!
@ -2288,6 +2288,7 @@ open-file-input/output-port
\end{Verbatim}
% get-bytevector-some
% call-with-bytevector-output-port
% call-with-string-output-port
% binary-port?

View File

@ -519,7 +519,7 @@
(define (open-string-input-port str)
(unless (string? str)
(die 'open-string-input-port str))
(die 'open-string-input-port "not a string" str))
($make-port
(fxior textual-input-port-bits fast-char-text-tag)
0 (string-length str) str

View File

@ -1 +1 @@
1362
1363