mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +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

4
module/oop/goops/stklos.scm
View file

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