diff options
Diffstat (limited to 'module/language/tree-il/optimize.scm')
-rw-r--r-- | module/language/tree-il/optimize.scm | 5 |
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))))) |