[Guile-commits] GNU Guile branch, master, updated. release_1-9-15-75-g7354a10

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=7354a105cdd86d57a7c4805d736497acdf735d56

The branch, master has been updated
       via  7354a105cdd86d57a7c4805d736497acdf735d56 (commit)
      from  6f06e8d35f0780187c6bce62fe8ace8be055e727 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 7354a105cdd86d57a7c4805d736497acdf735d56
Author: Ludovic Courtès <address@hidden>
Date:   Sun Feb 13 15:36:52 2011 +0100

    Have `the-scm-module' be its own public interface (bug #30623).
    
    * module/ice-9/boot-9.scm (the-scm-module): Make it its own public
      interface.
    
    * test-suite/tests/modules.test ("foundations")["the-root-module",
      "the-scm-module"]: New tests.

-----------------------------------------------------------------------

Summary of changes:
 module/ice-9/boot-9.scm       |    4 ++++
 test-suite/tests/modules.test |   20 ++++++++++++++------
 2 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 09a285d..89be440 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2187,6 +2187,10 @@ VALUE."
     (set-module-name! m '(guile))
     (set-module-kind! m 'interface)
     (set-system-module! m #t)
+
+    ;; In Guile 1.8 and earlier M was its own public interface.
+    (set-module-public-interface! m m)
+
     m))
 
 (set-module-public-interface! the-root-module the-scm-module)
diff --git a/test-suite/tests/modules.test b/test-suite/tests/modules.test
index 5b3f7a4..29abd09 100644
--- a/test-suite/tests/modules.test
+++ b/test-suite/tests/modules.test
@@ -1,6 +1,6 @@
 ;;;; modules.test --- exercise some of guile's module stuff -*- scheme -*-
 
-;;;; Copyright (C) 2006, 2007, 2009, 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011 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
@@ -17,10 +17,10 @@
 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 
USA
 
 (define-module (test-suite test-modules)
-  :use-module (srfi srfi-1)
-  :use-module ((ice-9 streams)  ;; for test purposes
-               #:renamer (symbol-prefix-proc 's:))
-  :use-module (test-suite lib))
+  #:use-module (srfi srfi-1)
+  #:use-module ((ice-9 streams)  ;; for test purposes
+                #:renamer (symbol-prefix-proc 's:))
+  #:use-module (test-suite lib))
 
 
 (define (every? . args)
@@ -133,7 +133,15 @@
 
   (pass-if-exception "module-reverse-lookup [wrong-type-arg]"
     exception:wrong-type-arg
-    (module-reverse-lookup (current-module) 'foo)))
+    (module-reverse-lookup (current-module) 'foo))
+
+  (pass-if "the-root-module"
+    (eq? (module-public-interface the-root-module) the-scm-module))
+
+  (pass-if "the-scm-module"
+    ;; THE-SCM-MODULE is its own public interface.  See
+    ;; <https://savannah.gnu.org/bugs/index.php?30623>.
+    (eq? (module-public-interface the-scm-module) the-scm-module)))
 
 
 


hooks/post-receive
-- 
GNU Guile