From 46e6b436424cda104637660859ccc48b7b8ca91d Mon Sep 17 00:00:00 2001
From: felix <felix@call-with-current-continuation.org>
Date: Sun, 11 Dec 2011 14:02:56 +0100
Subject: [PATCH] modules created by ##sys#register-compiled-module didn't have saved-envs slot set correctly

---
 modules.scm |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/modules.scm b/modules.scm
index f248890..0d8c757 100644
--- a/modules.scm
+++ b/modules.scm
@@ -376,6 +376,9 @@
        (set-car! (cdr nexp) senv))
      nexps)
     (set! ##sys#module-table (cons (cons name mod) ##sys#module-table)) 
+    (set-module-saved-environments!
+     mod
+     (cons senv (##sys#macro-environment)))
     mod))
 
 (define (##sys#primitive-alias sym)
-- 
1.7.0.4