From 63d424a334b4046c84b69c28b917cfa96914b6e1 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 17 Jan 1995 23:00:51 +0000
Subject: [PATCH] *** empty log message ***

---
 v8/src/compiler/midend/midend.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/v8/src/compiler/midend/midend.scm b/v8/src/compiler/midend/midend.scm
index d624924b7..544d42217 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.6 1995/01/05 22:29:51 adams Exp $
+$Id: midend.scm,v 1.7 1995/01/17 23:00:51 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -406,12 +406,14 @@ MIT in each case. |#
  (compiler:debug)
  (compiler:debug '(phase-names...))"
 
+  (set! compiler:guru? #T)
   (set! compiler:generate-kmp-files? #T)
   (set! compiler:generate-rtl-files? #T)
   (set! compiler:generate-lap-files? #T)
 
   (cond ((default-object? what))
         ((equal? what '#F)
+	 (set! compiler:guru? #F)
 	 (set! compiler:generate-kmp-files? #F)
 	 (set! compiler:generate-rtl-files? #F)
 	 (set! compiler:generate-lap-files? #F))
-- 
2.25.1