From 12340894d5100d0084df39b4fd4b2c599d4f37d9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 7 Apr 1992 03:50:41 +0000
Subject: [PATCH] Add switch COMPILER:COALESCING-CONSTANT-WARNINGS? to disable
 these warnings, since they are so common.

---
 v7/src/compiler/back/lapgn3.scm | 7 ++++---
 v7/src/compiler/base/switch.scm | 5 +++--
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/v7/src/compiler/back/lapgn3.scm b/v7/src/compiler/back/lapgn3.scm
index 42a6b402a..ab0ed628e 100644
--- a/v7/src/compiler/back/lapgn3.scm
+++ b/v7/src/compiler/back/lapgn3.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn3.scm,v 4.7 1992/03/02 23:38:09 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn3.scm,v 4.8 1992/04/07 03:50:29 cph Exp $
 
-Copyright (c) 1987-1992 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -59,7 +59,8 @@ MIT in each case. |#
 
 (define (warning-assoc obj pairs)
   (let ((pair (assoc obj pairs)))
-    (if (and (pair? pair)
+    (if (and compiler:coalescing-constant-warnings?
+	     (pair? pair)
 	     (not (eqv? obj (car pair))))
 	(warn "Coalescing constant objects" obj (car pair)))
     pair))
diff --git a/v7/src/compiler/base/switch.scm b/v7/src/compiler/base/switch.scm
index d39c6d8db..77e08bcbd 100644
--- a/v7/src/compiler/base/switch.scm
+++ b/v7/src/compiler/base/switch.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/switch.scm,v 4.16 1991/05/06 22:46:10 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/switch.scm,v 4.17 1992/04/07 03:50:41 cph Exp $
 
-Copyright (c) 1988-1991 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -62,6 +62,7 @@ MIT in each case. |#
 (define compiler:generate-type-checks? false)
 (define compiler:open-code-flonum-checks? false)
 (define compiler:use-multiclosures? true)
+(define compiler:coalescing-constant-warnings? true)
 ;; The switch COMPILER:OPEN-CODE-FLOATING-POINT-ARITHMETIC? is in machin.scm.
 
 ;;; Nary switches
-- 
2.25.1