From 2fb09c440d1637e2a5d74ecdef9875c128122c9c Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 23 Jul 1996 14:57:33 +0000
Subject: [PATCH] Added switch compiler:type-error-warnings?, default true.

---
 v8/src/compiler/base/switch.scm                | 3 ++-
 v8/src/compiler/machines/spectrum/compiler.pkg | 5 +++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/v8/src/compiler/base/switch.scm b/v8/src/compiler/base/switch.scm
index fd93bd807..90b02e1ec 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.6 1996/07/20 18:08:36 adams Exp $
+$Id: switch.scm,v 1.7 1996/07/23 14:57:33 adams Exp $
 
 Copyright (c) 1988-1996  Massachusetts Institute of Technology
 
@@ -69,6 +69,7 @@ MIT in each case. |#
 (define compiler:open-code-flonum-checks? false)
 (define compiler:use-multiclosures? true)
 (define compiler:coalescing-constant-warnings? true)
+(define compiler:type-error-warnings? true)
 (define compiler:cross-compiling? false)
 (define compiler:compress-top-level? false)
 (define compiler:avoid-scode? true)
diff --git a/v8/src/compiler/machines/spectrum/compiler.pkg b/v8/src/compiler/machines/spectrum/compiler.pkg
index 44d029b4d..2b5536c21 100644
--- a/v8/src/compiler/machines/spectrum/compiler.pkg
+++ b/v8/src/compiler/machines/spectrum/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.16 1996/07/19 02:50:10 adams Exp $
+$Id: compiler.pkg,v 1.17 1996/07/23 14:57:24 adams Exp $
 
 Copyright (c) 1988-1995 Massachusetts Institute of Technology
 
@@ -84,11 +84,11 @@ MIT in each case. |#
 	  compiler:enable-statistics?
 	  compiler:generate-kmp-files?
 	  compiler:generate-lap-files?
+	  compiler:generate-profiling-instructions?
 	  compiler:generate-range-checks?
 	  compiler:generate-rtl-files?
 	  compiler:generate-stack-checks?
 	  compiler:generate-type-checks?
-	  compiler:generate-profiling-instructions?
 	  compiler:guru?
 	  compiler:implicit-self-static?
 	  compiler:intersperse-rtl-in-lap?
@@ -103,6 +103,7 @@ MIT in each case. |#
 	  compiler:show-procedures?
 	  compiler:show-subphases?
 	  compiler:show-time-reports?
+	  compiler:type-error-warnings?
 	  compiler:use-multiclosures?
 
 	  compiler:display-statistics
-- 
2.25.1