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

fix (app modules) usage in (ice-9 session)

Browse source 
* module/ice-9/session.scm (root-modules): Fix '(app modules) usage.
This commit is contained in:
Andy Wingo 2010-04-23 16:07:14 +02:00
parent cb67c838f5
commit aa26a6d2b1
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/session.scm
View file

@ -404,8 +404,7 @@ It is an image under the mapping EXTRACT."
identity)) identity))
(define (root-modules) (define (root-modules)
(cons the-root-module (submodules (resolve-module '() #f)))
(submodules (nested-ref the-root-module '(app modules)))))
(define (submodules m) (define (submodules m)
(hash-fold (lambda (name var data) (hash-fold (lambda (name var data)