Fixes big 185268: open-string-input-port type check die message missing
This commit is contained in:
@@ -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?
|
||||
|
||||
+1
-1
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user