summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-04-05 10:27:26 +0200
committerAndy Wingo <wingo@pobox.com>2014-04-05 11:40:21 +0200
commit84d3ce20cd12c7f2bf84637bcc4843772d62191a (patch)
tree33c58610b25337dff0b0910ffa054f3cc6622c3c
parenta79f4f67e29253cb195cc73141a16eaaff2c000d (diff)
downloadguile-84d3ce20cd12c7f2bf84637bcc4843772d62191a.tar.gz
Disable Tree-IL CSE
* module/language/tree-il/optimize.scm (optimize): Disable Tree-IL CSE by default.
-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