From 90ee03daff448f66aea68771dfe1d5df90c052e8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20Grabm=C3=BCller?= Date: Tue, 17 Jul 2001 18:59:17 +0000 Subject: [PATCH] * r5rs.scm: Use `re-export' instead of `export' for re-exported primitives. Thanks Neil! --- ice-9/ChangeLog | 5 +++++ ice-9/r5rs.scm | 18 ++++++++++-------- 2 files changed, 15 insertions(+), 8 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index ea0fc5b95..90535775c 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +2001-07-17 Martin Grabmueller + + * r5rs.scm: Use `re-export' instead of `export' for re-exported + primitives. Thanks Neil! + 2001-07-13 Marius Vollmer * safe-r5rs.scm: Use `re-export' instead of `export' for diff --git a/ice-9/r5rs.scm b/ice-9/r5rs.scm index 47dfd59f9..faf75ae9e 100644 --- a/ice-9/r5rs.scm +++ b/ice-9/r5rs.scm @@ -47,18 +47,20 @@ (module-use! %module-public-interface (resolve-interface '(ice-9 safe-r5rs))) (export scheme-report-environment - interaction-environment - - call-with-input-file call-with-output-file - with-input-from-file with-output-to-file - open-input-file open-output-file - close-input-port close-output-port - - load ;;transcript-on ;;transcript-off ) +(re-export interaction-environment + + call-with-input-file call-with-output-file + with-input-from-file with-output-to-file + open-input-file open-output-file + close-input-port close-output-port + + load + ) + (define scheme-report-interface %module-public-interface) (define (scheme-report-environment n)