From 9ba00f128e8904d6ebf2e632e14833ddabcc2a84 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Wed, 23 Jan 2008 02:17:25 -0500 Subject: [PATCH] Fixes big 185268: open-string-input-port type check die message missing --- doc/ikarus-scheme-users-guide.tex | 5 +++-- scheme/ikarus.io.ss | 2 +- scheme/last-revision | 2 +- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/doc/ikarus-scheme-users-guide.tex b/doc/ikarus-scheme-users-guide.tex index 97d1f44..991d6de 100644 --- a/doc/ikarus-scheme-users-guide.tex +++ b/doc/ikarus-scheme-users-guide.tex @@ -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? diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss index b443c87..5cbf861 100644 --- a/scheme/ikarus.io.ss +++ b/scheme/ikarus.io.ss @@ -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 diff --git a/scheme/last-revision b/scheme/last-revision index ea29ccd..a3c357f 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1362 +1363