*** empty log message ***

diff --git a/v8/src/compiler/midend/midend.scm b/v8/src/compiler/midend/midend.scm
index 4895243d5b8152d6a8d3b3eecc49f8d0d075959c..26abdf6cbbce1e4928ab7e8ebbe940b6a9091805 100644 (file)
--- 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))