let-values in terms of syntax-case, add make-tree-il-folder

[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 2350520..0e490a6 100644 (file)
--- a/module/language/tree-il/optimize.scm
+++ b/module/language/tree-il/optimize.scm
@@ -29,7 +29,7 @@
   (if e (car e) (current-module)))
 
 (define (optimize! x env opts)
-  (fix-letrec!
-   (inline!
+  (inline!
+   (fix-letrec!
     (expand-primitives! 
      (resolve-primitives! x (env-module env))))))