Made some noise conditional on COMPILER:GURU?

diff --git a/v8/src/compiler/midend/widen.scm b/v8/src/compiler/midend/widen.scm
index 2d142c7a2e6ea31ba9519482a771950a2a85558a..95b66072c20404aac433571af43d4b30543d6aa8 100644 (file)
--- a/v8/src/compiler/midend/widen.scm
+++ b/v8/src/compiler/midend/widen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: widen.scm,v 1.4 1994/12/15 01:41:42 adams Exp $
+$Id: widen.scm,v 1.5 1995/01/28 15:35:20 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -449,7 +449,8 @@ MIT in each case. |#
   ;; where it expands to 0 values, the value itself where it expands
   ;; to one value, a pair for 2 values, and a vector for any other
   ;; case.
-  (pp `("Creating container" ,(length exprs)))
+  (if compiler:guru?
+      (pp `("Creating container" ,(length exprs))))
   (case (length exprs)
     ;;((0) `'#F)
     ((0) `'deleted-container)