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

Have `the-scm-module' be its own public interface (bug #30623).

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2011-02-13 15:36:52 +01:00
parent 6f06e8d35f
commit 7354a105cd
2 changed files with 18 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/boot-9.scm
View file

@ -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)

20
test-suite/tests/modules.test
View file

@ -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)))