diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-04-23 17:22:00 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-04-24 17:43:52 +0200 |
| commit | 69928c8a3240d8d2417434c18839e098de9f93d8 (patch) | |
| tree | deb47a598b206f2090ecf778eb0b1b067c1badcf /module/ice-9/safe-r5rs.scm | |
| parent | 993dae8623e0fe6195000afb81902ea466bd2dc4 (diff) | |
| download | guile-69928c8a3240d8d2417434c18839e098de9f93d8.tar.gz | |
fix some uses of %module-public-interface
* module/ice-9/r5rs.scm:
* module/ice-9/safe-r5rs.scm:
* module/oop/goops/save.scm:
* module/oop/goops/simple.scm:
* module/oop/goops/stklos.scm: Fix some uses of
%module-public-interface.
Diffstat (limited to 'module/ice-9/safe-r5rs.scm')
| -rw-r--r-- | module/ice-9/safe-r5rs.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/ice-9/safe-r5rs.scm b/module/ice-9/safe-r5rs.scm index f728533cb..a7ab164fa 100644 --- a/module/ice-9/safe-r5rs.scm +++ b/module/ice-9/safe-r5rs.scm @@ -1,4 +1,4 @@ -;;;; Copyright (C) 2000, 2001, 2004, 2006 Free Software Foundation, Inc. +;;;; Copyright (C) 2000, 2001, 2004, 2006, 2010 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -129,7 +129,8 @@ (define null-interface (resolve-interface '(ice-9 null))) -(module-use! %module-public-interface null-interface) +(module-use! (module-public-interface (current-module)) + null-interface) (define (null-environment n) (if (not (= n 5)) |