From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 13 Mar 1995 23:23:16 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~6533
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=149bba964e1edfd30db261f784be2531a8c6dd8a;p=mit-scheme.git

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

diff --git a/v8/src/compiler/midend/midend.scm b/v8/src/compiler/midend/midend.scm
index a21a88668..550c34464 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.9 1995/02/20 20:48:53 adams Exp $
+$Id: midend.scm,v 1.10 1995/03/13 23:23:16 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -208,6 +208,10 @@ Example:
 	     assconv/top-level		; eliminate SET! and introduce LETREC
 					;  rewriting LOOKUP and SET!
 	     cleanup/top-level/1	; as below
+	     ;;coerce/top-level
+	     ;;simplify/top-level
+	     ;;cleanup/top-level/1.5
+
 	     earlyrew/top-level		; rewrite -1+ into -, etc.
 	     lamlift/top-level/1	; flatten environment structure
 					; splitting lambda nodes if necessary
@@ -364,6 +368,9 @@ Example:
 (define (cleanup/top-level/1 program)
   (cleanup/top-level program))
 
+(define (cleanup/top-level/1.5 program)
+  (cleanup/top-level program))
+
 (define (cleanup/top-level/2 program)
   (fluid-let ((*flush-closure-calls?* true))
     (cleanup/top-level program)))