Don't show warnings about constant coalescing.

diff --git a/v7/src/6001/6001.cbf b/v7/src/6001/6001.cbf
index 20103759c102dd9dba7c6a5bca1f7d973d46a71b..26f5871c694c49fd38a3c660ebff555f950c18ea 100644 (file)
--- a/v7/src/6001/6001.cbf
+++ b/v7/src/6001/6001.cbf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: 6001.cbf,v 1.5 1992/09/22 22:12:59 cph Exp $
+$Id: 6001.cbf,v 1.6 1993/08/11 19:12:49 cph Exp $
 
-Copyright (c) 1991-92 Massachusetts Institute of Technology
+Copyright (c) 1991-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -32,7 +32,8 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. |#
 
-(fluid-let ((compiler:generate-range-checks? true)
+(fluid-let ((compiler:coalescing-constant-warnings? #f)
+           (compiler:generate-range-checks? true)
            (compiler:generate-stack-checks? true)
            (compiler:generate-type-checks? true))
   (compile-directory "."))
\ No newline at end of file

diff --git a/v7/src/cref/cref.cbf b/v7/src/cref/cref.cbf
index 23eeefb22e697e096d205cf54dfd9eea664709ea..a752d202f47ddec9d546d914376d6a12c3a07303 100644 (file)
--- a/v7/src/cref/cref.cbf
+++ b/v7/src/cref/cref.cbf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/cref.cbf,v 1.1 1988/11/09 10:36:26 cph Rel $
+$Id: cref.cbf,v 1.2 1993/08/11 19:12:57 cph Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -32,4 +32,5 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. |#
 
-(compile-directory ".")
\ No newline at end of file
+(fluid-let ((compiler:coalescing-constant-warnings? #f))
+  (compile-directory "."))
\ No newline at end of file

diff --git a/v7/src/edwin/edwin.cbf b/v7/src/edwin/edwin.cbf
index ba18f2ad849b0aa35344d59c19a5ab906368943a..fce405e95e39d14b6521783ab985a9042034fc3c 100644 (file)
--- a/v7/src/edwin/edwin.cbf
+++ b/v7/src/edwin/edwin.cbf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.cbf,v 1.2 1989/03/15 19:10:42 cph Rel $
+$Id: edwin.cbf,v 1.3 1993/08/11 19:09:36 cph Exp $
 
-Copyright (c) 1989 Massachusetts Institute of Technology
+Copyright (c) 1989-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -34,4 +34,5 @@ MIT in each case. |#
 
 ;;;; Script to incrementally compile the editor (from .bins)
 
-(compile-directory ".")
\ No newline at end of file
+(fluid-let ((compiler:coalescing-constant-warnings? #f))
+  (compile-directory "."))
\ No newline at end of file

diff --git a/v7/src/runtime/runtime.cbf b/v7/src/runtime/runtime.cbf
index e11a7937e4892934201c9419f5137aed077f46bf..4df009d518fd2fd0b02b036a40df01993448d79b 100644 (file)
--- a/v7/src/runtime/runtime.cbf
+++ b/v7/src/runtime/runtime.cbf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.cbf,v 1.1 1988/11/09 10:35:43 cph Rel $
+$Id: runtime.cbf,v 1.2 1993/08/11 19:13:10 cph Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -32,4 +32,5 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. |#
 
-(compile-directory ".")
\ No newline at end of file
+(fluid-let ((compiler:coalescing-constant-warnings? #f))
+  (compile-directory "."))
\ No newline at end of file

diff --git a/v7/src/sf/sf.cbf b/v7/src/sf/sf.cbf
index b4da39fc61c67398ee4cfb5e5b29b03489c09582..73cb7e8205ee87da4f2864bf09b1c50c7e713dc3 100644 (file)
--- a/v7/src/sf/sf.cbf
+++ b/v7/src/sf/sf.cbf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/sf.cbf,v 1.1 1988/11/09 10:36:06 cph Rel $
+$Id: sf.cbf,v 1.2 1993/08/11 19:13:04 cph Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -32,4 +32,5 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. |#
 
-(compile-directory ".")
\ No newline at end of file
+(fluid-let ((compiler:coalescing-constant-warnings? #f))
+  (compile-directory "."))
\ No newline at end of file

diff --git a/v8/src/runtime/runtime.cbf b/v8/src/runtime/runtime.cbf
index 1da6997180298ea704f2c70a6ca0e88004daa43e..4df009d518fd2fd0b02b036a40df01993448d79b 100644 (file)
--- a/v8/src/runtime/runtime.cbf
+++ b/v8/src/runtime/runtime.cbf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.cbf,v 1.1 1988/11/09 10:35:43 cph Rel $
+$Id: runtime.cbf,v 1.2 1993/08/11 19:13:10 cph Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -32,4 +32,5 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. |#
 
-(compile-directory ".")
\ No newline at end of file
+(fluid-let ((compiler:coalescing-constant-warnings? #f))
+  (compile-directory "."))
\ No newline at end of file