From 9091454c2ee8f76cf449add797707606d7c298c0 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 4 Jan 2016 22:43:30 +0100
Subject: [PATCH] Include missing #:simplify? option in (language cps
 optimize).

* module/language/cps/optimize.scm (cps-default-optimization-options):
  Add missing #:simplify? option.  Otherwise the simplification pass was
  running even at -O0.
---
 module/language/cps/optimize.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/module/language/cps/optimize.scm b/module/language/cps/optimize.scm
index cc1d95147..b1cbc89a7 100644
--- a/module/language/cps/optimize.scm
+++ b/module/language/cps/optimize.scm
@@ -116,6 +116,7 @@
 
 (define (cps-default-optimization-options)
   (list ;; #:split-rec? #t
+   #:simplify? #t
    #:eliminate-dead-code? #t
    #:prune-top-level-scopes? #t
    #:contify? #t