Added COMPILER:GURU?

diff --git a/v8/src/compiler/base/switch.scm b/v8/src/compiler/base/switch.scm
index 223f3b2ce1ee6fe783d2ec59ee194ce3d64f3fd6..b0ca3488a9aae0279109dd624f6796605e883f03 100644 (file)
--- 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