From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 17 Jan 1995 23:00:51 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~6729
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=63d424a334b4046c84b69c28b917cfa96914b6e1;p=mit-scheme.git

*** empty log message ***
---

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))