summaryrefslogtreecommitdiff
path: root/module/language/tree-il/optimize.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/optimize.scm')
-rw-r--r--module/language/tree-il/optimize.scm11
1 files changed, 6 insertions, 5 deletions
diff --git a/module/language/tree-il/optimize.scm b/module/language/tree-il/optimize.scm
index 4fb8f5989..929f27766 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, 2011, 2012, 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2009, 2011, 2012, 2013, 2014 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
@@ -35,10 +35,11 @@
(lambda (x e) x))
(_ peval)))
(cse (match (memq #:cse? opts)
- ((#:cse? #f _ ...)
- ;; Disable CSE.
- (lambda (x) x))
- (_ cse))))
+ ((#:cse? #t _ ...)
+ cse)
+ (_
+ ;; Disable Tree-IL CSE by default.
+ (lambda (x) x)))))
(fix-letrec
(verify-tree-il
(cse