diff options
author | Andy Wingo <wingo@pobox.com> | 2014-04-05 10:27:26 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-04-05 11:40:21 +0200 |
commit | 84d3ce20cd12c7f2bf84637bcc4843772d62191a (patch) | |
tree | 33c58610b25337dff0b0910ffa054f3cc6622c3c | |
parent | a79f4f67e29253cb195cc73141a16eaaff2c000d (diff) | |
download | guile-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.scm | 11 |
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 |