Removed constant progagation message.

diff --git a/v8/src/compiler/midend/dataflow.scm b/v8/src/compiler/midend/dataflow.scm
index 8043f7964f8b075c8ffaebd2e528b1c1f00dfb01..5495a5692612f972efed699f32d0d67eda6cb9eb 100644 (file)
--- 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)))))