compilation enviroments are always modules; simplifications & refactorings

[bpt/guile.git] / module / language / tree-il / compile-glil.scm

diff --git a/module/language/tree-il/compile-glil.scm b/module/language/tree-il/compile-glil.scm
index e8b699e..4ab03bf 100644 (file)
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -65,10 +65,10 @@
          (x (optimize! x e opts))
          (allocation (analyze-lexicals x)))
 
-    (with-fluid* *comp-module* (or (and e (car e)) (current-module))
+    (with-fluid* *comp-module* e
       (lambda ()
         (values (flatten-lambda x #f allocation)
-                (and e (cons (car e) (cddr e)))
+                e
                 e)))))
 
 \f