From: Andy Wingo <wingo@pobox.com>
Date: Fri, 23 Apr 2010 14:07:14 +0000 (+0200)
Subject: fix (app modules) usage in (ice-9 session)
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/aa26a6d2b15f2a1315fffb2fec9ea7c8b4ef81f1

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

* module/ice-9/session.scm (root-modules): Fix '(app modules) usage.
---

diff --git a/module/ice-9/session.scm b/module/ice-9/session.scm
index f3c8f6625..10ce61396 100644
--- a/module/ice-9/session.scm
+++ b/module/ice-9/session.scm
@@ -404,8 +404,7 @@ It is an image under the mapping EXTRACT."
 		     identity))
 
 (define (root-modules)
-  (cons the-root-module
-	(submodules (nested-ref the-root-module '(app modules)))))
+  (submodules (resolve-module '() #f)))
 
 (define (submodules m)
   (hash-fold (lambda (name var data)