mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

(app modules) -> (%app modules)

Browse source 
* 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).
This commit is contained in:
Andy Wingo 2010-04-22 15:08:13 +02:00
parent 53ab624703
commit 30ce621c5a
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/ice-9/debugging/breakpoints.scm
View file

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