From ed3641448d6754d6bfe7e90daaaf85d9d5ab4294 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Mon, 19 Nov 2007 02:08:32 -0500 Subject: [PATCH] Fixed bug 163723: open-input-string misclassified * include, make-list, last-pair, quotient+remainder were also misclassified --- scheme/makefile.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/scheme/makefile.ss b/scheme/makefile.ss index eacbd7f..c072d4e 100755 --- a/scheme/makefile.ss +++ b/scheme/makefile.ss @@ -265,12 +265,12 @@ [type-descriptor i] [parameterize i parameters] [define-struct i] - [include i r] + [include i] [time i] [trace-lambda i] [trace-define i] - [make-list i r] - [last-pair i r] + [make-list i] + [last-pair i] [bwp-object? i] [weak-cons i] [weak-pair? i] @@ -304,7 +304,7 @@ [ratnum? i] [flonum-parts i] [flonum-bytes i] - [quotient+remainder i r] + [quotient+remainder i] [flonum->string i] [random i] [gensym? i symbols] @@ -336,7 +336,7 @@ [set-port-mode! i] [with-input-from-string i] [open-output-string i] - [open-input-string i r] + [open-input-string i] [get-output-string i] [with-output-to-string i] [console-input-port i] @@ -346,7 +346,7 @@ [read-token i] [unread-char i] [printf i] - [fprintf i] + [fprintf i] [format i] [comment-handler i] [print-gensym i symbols]