From ab6f0567a19a10d5f9d4b3c9b5e0471b4a015f3d Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sat, 15 Nov 2008 11:31:10 -0500 Subject: [PATCH] removed some bindings from some base libraries which should not have exported them. --- scheme/last-revision | 2 +- scheme/makefile.ss | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scheme/last-revision b/scheme/last-revision index 2cbd341..b3892d9 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1679 +1680 diff --git a/scheme/makefile.ss b/scheme/makefile.ss index 0e916a6..79efd1f 100755 --- a/scheme/makefile.ss +++ b/scheme/makefile.ss @@ -1018,7 +1018,6 @@ [serious-condition? i r co] [simple-conditions i r co] [&syntax i r co] - [syntax-violation i r co sc] [syntax-violation-form i r co] [syntax-violation-subform i r co] [syntax-violation? i r co] @@ -1097,7 +1096,7 @@ [null-environment i r5 se] [quotient i r5 se] [scheme-report-environment i r5 se] - [interaction-environment i r5 se] + [interaction-environment i] [new-interaction-environment i] [close-port i r ip] [eol-style i r ip] @@ -1205,7 +1204,7 @@ [current-input-port i r ip is se] [current-output-port i r ip is se] [current-error-port i r ip is] - [eof-object i r ip is se] + [eof-object i r ip is] [eof-object? i r ip is se] [close-input-port i r is se] [close-output-port i r is se] @@ -1295,6 +1294,7 @@ [record-mutator i r rp] [record-predicate i r rp] [record-type-descriptor? i r rp] + [syntax-violation i r sc] [bound-identifier=? i r sc] [datum->syntax i r sc] [syntax i r sc]