From aa26a6d2b15f2a1315fffb2fec9ea7c8b4ef81f1 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 23 Apr 2010 16:07:14 +0200 Subject: [PATCH] fix (app modules) usage in (ice-9 session) * module/ice-9/session.scm (root-modules): Fix '(app modules) usage. --- module/ice-9/session.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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)