From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 17 Jan 1995 22:49:36 +0000 (+0000)
Subject: Removed constant progagation message.
X-Git-Tag: 20090517-FFI~6731
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5e2d3da61f93a810ca5603bcbe0b97d98c810fb5;p=mit-scheme.git

Removed constant progagation message.
---

diff --git a/v8/src/compiler/midend/dataflow.scm b/v8/src/compiler/midend/dataflow.scm
index 8043f7964..5495a5692 100644
--- a/v8/src/compiler/midend/dataflow.scm
+++ b/v8/src/compiler/midend/dataflow.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dataflow.scm,v 1.4 1994/12/15 01:33:01 adams Exp $
+$Id: dataflow.scm,v 1.5 1995/01/17 22:49:36 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -2228,10 +2228,10 @@ MIT in each case. |#
 			   unspecific)
 			  ((and (value/constant? value)
 				(simple-constant? (value/constant/value value)))
-			   (display "\n; Constant propagation:")
-			   (kmp/ppp
-			    `(,node ,(node/text node) =>
-				    (QUOTE ,(value/constant/value value))))
+			   ;;(display "\n; Constant propagation:")
+			   ;;(kmp/ppp
+			   ;; `(,node ,(node/text node) =>
+				;;    (QUOTE ,(value/constant/value value))))
 			   (form/rewrite! (node/text node)
 			     `(QUOTE ,(value/constant/value value))))
 			  (else unspecific)))))