From 149bba964e1edfd30db261f784be2531a8c6dd8a Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 13 Mar 1995 23:23:16 +0000 Subject: [PATCH] *** empty log message *** --- v8/src/compiler/midend/midend.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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))) -- 2.25.1