mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

* r5rs.scm: Use re-export' instead of export' for re-exported

Browse source 
primitives.  Thanks Neil!
This commit is contained in:
Martin Grabmüller 2001-07-17 18:59:17 +00:00
parent 2671725a65
commit 90ee03daff
2 changed files with 15 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
2001-07-17 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
* r5rs.scm: Use `re-export' instead of `export' for re-exported
primitives. Thanks Neil!
2001-07-13 Marius Vollmer <mvo@zagadka.ping.de> 2001-07-13 Marius Vollmer <mvo@zagadka.ping.de>
* safe-r5rs.scm: Use `re-export' instead of `export' for * safe-r5rs.scm: Use `re-export' instead of `export' for

18
ice-9/r5rs.scm
View file

@ -47,18 +47,20 @@
(module-use! %module-public-interface (resolve-interface '(ice-9 safe-r5rs))) (module-use! %module-public-interface (resolve-interface '(ice-9 safe-r5rs)))
(export scheme-report-environment (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-on
;;transcript-off ;;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-interface %module-public-interface)
(define (scheme-report-environment n) (define (scheme-report-environment n)