Fixes big 185268: open-string-input-port type check die message missing
This commit is contained in:
parent
a33269daa7
commit
9ba00f128e
|
@ -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?
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -1 +1 @@
|
|||
1362
|
||||
1363
|
||||
|
|
Loading…
Reference in New Issue