From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 17 Jan 1995 22:59:43 +0000 (+0000)
Subject: Added COMPILER:GURU?
X-Git-Tag: 20090517-FFI~6730
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7a873388b0b10be51666d8f82538f1983b12adf6;p=mit-scheme.git

Added COMPILER:GURU?
---

diff --git a/v8/src/compiler/base/switch.scm b/v8/src/compiler/base/switch.scm
index 223f3b2ce..b0ca3488a 100644
--- a/v8/src/compiler/base/switch.scm
+++ b/v8/src/compiler/base/switch.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: switch.scm,v 1.3 1994/12/15 02:34:42 adams Exp $
+$Id: switch.scm,v 1.4 1995/01/17 22:59:43 adams Exp $
 
 Copyright (c) 1988-1994  Massachusetts Institute of Technology
 
@@ -71,6 +71,9 @@ MIT in each case. |#
 (define compiler:compress-top-level? false)
 (define compiler:avoid-scode? true)
 
+;; True if being used by a guru
+(define compiler:guru? false)
+
 ;; If true, the compiler is allowed to assume that fixnum operations
 ;; are only applied to inputs for which the operation is closed, i.e.
 ;; generates a valid fixnum.  If false, the compiler will ensure that