From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 26 Jun 1995 14:07:19 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~6240
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1e4425cff0188de0086bbaa3864adf38a8cf4621;p=mit-scheme.git

*** empty log message ***
---

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))