From c203f4f0e83ccb9d19015d05c8a95d3a9d7f1622 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 27 Feb 1995 21:33:26 +0000 Subject: [PATCH] Made noise message conditional on COMPILER:GURU? --- v8/src/compiler/midend/widen.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v8/src/compiler/midend/widen.scm b/v8/src/compiler/midend/widen.scm index 95b66072c..eb86b2fa8 100644 --- a/v8/src/compiler/midend/widen.scm +++ b/v8/src/compiler/midend/widen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: widen.scm,v 1.5 1995/01/28 15:35:20 adams Exp $ +$Id: widen.scm,v 1.6 1995/02/27 21:33:26 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -282,7 +282,8 @@ MIT in each case. |# (and (cyclic? component) (is-dirty-because-of-kids? component))))))) (if (not (null? finally-widenable-closures)) - (pp (list 'finally (length finally-widenable-closures) 'widened))) + (if compiler:guru? + (pp `(finally ,(length finally-widenable-closures) widened)))) (generate-reps-and-name-maps! finally-widenable-closures) finally-widenable-closures)))) -- 2.25.1