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)}:
|
The following procedures are missing from \texttt{(rnrs base)}:
|
||||||
\begin{Verbatim}
|
\begin{Verbatim}
|
||||||
angle magnitude make-polar make-rectangular
|
angle make-polar make-rectangular
|
||||||
\end{Verbatim}
|
\end{Verbatim}
|
||||||
|
|
||||||
|
% magnitude
|
||||||
% string->utf16
|
% string->utf16
|
||||||
% string->utf32
|
% string->utf32
|
||||||
% utf16->string
|
% utf16->string
|
||||||
|
@ -2278,7 +2279,6 @@ hashtable-hash-function hashtable-equivalence-function
|
||||||
|
|
||||||
The following procedures are missing from \texttt{(rnrs io ports)}:
|
The following procedures are missing from \texttt{(rnrs io ports)}:
|
||||||
\begin{Verbatim}
|
\begin{Verbatim}
|
||||||
get-bytevector-some
|
|
||||||
string->bytevector bytevector->string
|
string->bytevector bytevector->string
|
||||||
port-has-port-position? port-position
|
port-has-port-position? port-position
|
||||||
port-has-set-port-position!? set-port-position!
|
port-has-set-port-position!? set-port-position!
|
||||||
|
@ -2288,6 +2288,7 @@ open-file-input/output-port
|
||||||
\end{Verbatim}
|
\end{Verbatim}
|
||||||
|
|
||||||
|
|
||||||
|
% get-bytevector-some
|
||||||
% call-with-bytevector-output-port
|
% call-with-bytevector-output-port
|
||||||
% call-with-string-output-port
|
% call-with-string-output-port
|
||||||
% binary-port?
|
% binary-port?
|
||||||
|
|
|
@ -519,7 +519,7 @@
|
||||||
|
|
||||||
(define (open-string-input-port str)
|
(define (open-string-input-port str)
|
||||||
(unless (string? str)
|
(unless (string? str)
|
||||||
(die 'open-string-input-port str))
|
(die 'open-string-input-port "not a string" str))
|
||||||
($make-port
|
($make-port
|
||||||
(fxior textual-input-port-bits fast-char-text-tag)
|
(fxior textual-input-port-bits fast-char-text-tag)
|
||||||
0 (string-length str) str
|
0 (string-length str) str
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1362
|
1363
|
||||||
|
|
Loading…
Reference in New Issue