From 84d3ce20cd12c7f2bf84637bcc4843772d62191a Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 5 Apr 2014 10:27:26 +0200 Subject: [PATCH] Disable Tree-IL CSE * module/language/tree-il/optimize.scm (optimize): Disable Tree-IL CSE by default. --- module/language/tree-il/optimize.scm | 11 ++++++----- 1 file 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 -- 2.20.1