diff options
author | Andy Wingo <wingo@pobox.com> | 2015-10-28 10:07:38 +0000 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-10-28 10:07:38 +0000 |
commit | 3f345f564f1d27a75bed9664ab6eaf738c19f364 (patch) | |
tree | 16c74bece613ba29be30af846ad9b4acca6c2613 | |
parent | 04356dabb9c7729c7bbf045abec17af8a171c79d (diff) | |
download | guile-3f345f564f1d27a75bed9664ab6eaf738c19f364.tar.gz |
Run CSE to clean up after closure conversion
* module/language/cps/optimize.scm: Enable CSE over first-order CPS.
-rw-r--r-- | module/language/cps/optimize.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/cps/optimize.scm b/module/language/cps/optimize.scm index 8777222c9..571d5ffd8 100644 --- a/module/language/cps/optimize.scm +++ b/module/language/cps/optimize.scm @@ -105,7 +105,7 @@ (define-optimizer optimize-first-order-cps (hoist-loop-invariant-code #:licm? #t) - ;; FIXME: CSE here to eliminate duplicate free-ref terms. + (eliminate-common-subexpressions #:cse? #t) (eliminate-dead-code #:eliminate-dead-code? #t) (rotate-loops #:rotate-loops? #t) (simplify #:simplify? #t)) |