From 1e4425cff0188de0086bbaa3864adf38a8cf4621 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 26 Jun 1995 14:07:19 +0000 Subject: [PATCH] *** empty log message *** --- v8/src/compiler/midend/midend.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/v8/src/compiler/midend/midend.scm b/v8/src/compiler/midend/midend.scm index 4895243d5..26abdf6cb 100644 --- a/v8/src/compiler/midend/midend.scm +++ b/v8/src/compiler/midend/midend.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: midend.scm,v 1.11 1995/04/27 23:23:18 adams Exp $ +$Id: midend.scm,v 1.12 1995/06/26 14:07:19 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -264,6 +264,7 @@ Example: ; common formats (prefixes) ;; stackopt/optional-debugging-paranoia indexify/top-level ; rewrite %vector-index + dbg-reduce/top-level ; final environment mappings )) (define %optimized-kmp->rtl @@ -353,7 +354,8 @@ Example: (closconv/top-level program *after-cps-conversion?*)) (define (simplify/top-level/1 program) - (simplify/top-level program)) + (fluid-let ((*simplify/open-code-expression-limit* 2)) + (simplify/top-level program))) (define (simplify/top-level/2 program) (simplify/top-level program)) -- 2.25.1