[Guile-commits] 07/10: Enable letrectification

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 648bd5c43193a762d81aedfc54976ae2bdb8648d
Author: Andy Wingo <address@hidden>
Date:   Fri Aug 16 17:41:34 2019 +0200

    Enable letrectification
    
    * module/language/tree-il/optimize.scm: Enable letrectification at -O1
      and higher.
---
 module/language/tree-il/optimize.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/module/language/tree-il/optimize.scm 
b/module/language/tree-il/optimize.scm
index b06ced8..2f89f73 100644
--- a/module/language/tree-il/optimize.scm
+++ b/module/language/tree-il/optimize.scm
@@ -1,6 +1,6 @@
 ;;; Tree-il optimizer
 
-;; Copyright (C) 2009, 2010-2015, 2018 Free Software Foundation, Inc.
+;; Copyright (C) 2009, 2010-2015, 2018, 2019 Free Software Foundation, Inc.
 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -20,10 +20,11 @@
 
 (define-module (language tree-il optimize)
   #:use-module (language tree-il)
-  #:use-module (language tree-il primitives)
-  #:use-module (language tree-il peval)
-  #:use-module (language tree-il fix-letrec)
   #:use-module (language tree-il debug)
+  #:use-module (language tree-il fix-letrec)
+  #:use-module (language tree-il letrectify)
+  #:use-module (language tree-il peval)
+  #:use-module (language tree-il primitives)
   #:use-module (ice-9 match)
   #:export (optimize
             tree-il-optimizations))
@@ -49,6 +50,7 @@
   (maybe-verify x)
   (run-pass resolve*           #:resolve-primitives? #t)
   (run-pass expand-primitives  #:expand-primitives?  #t)
+  (run-pass letrectify         #:letrectify?         #t)
   (set! x (fix-letrec x))
   (run-pass peval*             #:partial-eval?       #t)
   x)
@@ -59,4 +61,5 @@
   ;; will result in a lot of code that will never get optimized nicely.
   '((#:resolve-primitives? 2)
     (#:expand-primitives? 1)
+    (#:letrectify? 1)
     (#:partial-eval? 1)))