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 f3c8f66..10ce613 100644 (file)
--- 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)