summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-04-22 15:08:13 +0200
committerAndy Wingo <wingo@pobox.com>2010-04-22 15:31:02 +0200
commit30ce621c5ac9b67420a9f159b2195f6cd682e237 (patch)
tree4c745997d9e3431ed6aecb33a8f4538a79c3ae80
parent53ab624703ec6795a56c0f098a169117dd51bb66 (diff)
downloadguile-30ce621c5ac9b67420a9f159b2195f6cd682e237.tar.gz
(app modules) -> (%app modules)
* module/ice-9/debugging/breakpoints.scm (module-if-already-loaded): (all-loaded-modules): * module/oop/goops/stklos.scm: Fix instances of (app modules) to be (%app modules).
-rw-r--r--module/ice-9/debugging/breakpoints.scm6
-rw-r--r--module/oop/goops/stklos.scm4
2 files changed, 5 insertions, 5 deletions
diff --git a/module/ice-9/debugging/breakpoints.scm b/module/ice-9/debugging/breakpoints.scm
index 0690699a7..7293c8e66 100644
--- a/module/ice-9/debugging/breakpoints.scm
+++ b/module/ice-9/debugging/breakpoints.scm
@@ -1,6 +1,6 @@
;;;; (ice-9 debugging breakpoints) -- practical breakpoints
-;;; Copyright (C) 2005 Neil Jerram
+;;; Copyright (C) 2005, 2010 Neil Jerram
;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -253,7 +253,7 @@
;; If a module named MODULE-NAME has been loaded, return its module
;; object; otherwise return #f.
(define (module-if-already-loaded module-name)
- (nested-ref the-root-module (append '(app modules) module-name)))
+ (nested-ref the-root-module (append '(%app modules) module-name)))
;; Construct and return a list of all loaded modules.
(define (all-loaded-modules)
@@ -290,7 +290,7 @@
ds)))
;; Add submodules recursively, starting from the root of all
;; modules.
- (add-submodules-of '(app modules))
+ (add-submodules-of '(%app modules))
;; Return the result.
known-modules)
diff --git a/module/oop/goops/stklos.scm b/module/oop/goops/stklos.scm
index 835969f13..718635e4d 100644
--- a/module/oop/goops/stklos.scm
+++ b/module/oop/goops/stklos.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 1999,2002, 2006 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999,2002, 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
@@ -35,7 +35,7 @@
;; Export all bindings that are exported from (oop goops)...
(module-for-each (lambda (sym var)
(module-add! %module-public-interface sym var))
- (nested-ref the-root-module '(app modules oop goops
+ (nested-ref the-root-module '(%app modules oop goops
%module-public-interface)))
;; ...but replace the following bindings: