From 216bfb87c9563513e735221b628ebb39ef958c67 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 30 Sep 2013 10:57:07 +0900 Subject: [PATCH] containing-module should account for the fact the a module's environment may not yet be set. --- lib/chibi/modules.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/modules.scm b/lib/chibi/modules.scm index c1d1ead3..02bb2a31 100644 --- a/lib/chibi/modules.scm +++ b/lib/chibi/modules.scm @@ -125,7 +125,7 @@ (let lp1 ((ls (reverse *modules*))) (and (pair? ls) (let ((env (module-env (cdar ls)))) - (let lp2 ((e-ls (env-exports env))) + (let lp2 ((e-ls (if (environment? env) (env-exports env) '()))) (if (null? e-ls) (lp1 (cdr ls)) (let ((cell (env-cell env (car e-ls))))