summaryrefslogtreecommitdiff
path: root/module/language/tree-il/optimize.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/optimize.scm')
-rw-r--r--module/language/tree-il/optimize.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/module/language/tree-il/optimize.scm b/module/language/tree-il/optimize.scm
index 0e490a636..dbbc21655 100644
--- 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)))))