From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 25 Nov 1994 23:05:40 +0000 (+0000)
Subject: Added/fixed *phases-to-omit*
X-Git-Tag: 20090517-FFI~6963
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a32bac6ce8a1c1ea818b7738fc9051d96b8c7796;p=mit-scheme.git

Added/fixed *phases-to-omit*
---

diff --git a/v8/src/compiler/midend/midend.scm b/v8/src/compiler/midend/midend.scm
index 9be32ed44..9fb1115e2 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.3 1994/11/23 03:18:03 adams Exp $
+$Id: midend.scm,v 1.4 1994/11/25 23:05:40 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -78,7 +78,7 @@ MIT in each case. |#
 
       (define (run-phase program)
 	(if (memq this-phase *phases-to-omit*)
-	    (copier/top-level program copier/remember)
+	    program
 	    (proc program)))
       
       (lambda (program)
@@ -88,7 +88,9 @@ MIT in each case. |#
 	    (begin
 	      (newline)
 	      (write-string ";; Phase ")
-	      (write this-phase)))
+	      (write this-phase)
+	      (if (memq this-phase *phases-to-omit*)
+		  (write-string " omitted (see *phases-to-omit*)"))))
 	(if (not (show? this-phase))
 	    (run-phase program)
 	    (begin