compilation enviroments are always modules; simplifications & refactorings

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

diff --git a/module/language/tree-il/optimize.scm b/module/language/tree-il/optimize.scm
index 0e490a6..dbbc216 100644 (file)
--- a/module/language/tree-il/optimize.scm
+++ b/module/language/tree-il/optimize.scm
@@ -25,11 +25,8 @@
   #:use-module (language tree-il fix-letrec)
   #:export (optimize!))
 
-(define (env-module e)
-  (if e (car e) (current-module)))
-
 (define (optimize! x env opts)
   (inline!
    (fix-letrec!
     (expand-primitives! 
-     (resolve-primitives! x (env-module env))))))
+     (resolve-primitives! x env)))))