From: Nick Papadakis <edu/mit/csail/zurich/nick>
Date: Mon, 22 Feb 1993 20:35:53 +0000 (+0000)
Subject: Fixed bug with scmsig/scm6003 involving image.o
X-Git-Tag: 20090517-FFI~8484
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6e2c1aa4ae61ae785105f04fecefce0432fe43dd;p=mit-scheme.git

Fixed bug with scmsig/scm6003 involving image.o
Somehow, #ifndef for REAL_IS_DEFINED_DOUBLE managed to vanish ...
---

diff --git a/v7/src/microcode/array.h b/v7/src/microcode/array.h
index b017c7fa9..2233a70e9 100644
--- a/v7/src/microcode/array.h
+++ b/v7/src/microcode/array.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/array.h,v 9.33 1992/12/03 22:03:07 nick Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/array.h,v 9.34 1993/02/22 20:35:53 nick Exp $
 
 Copyright (c) 1987-91 Massachusetts Institute of Technology
 
@@ -32,7 +32,9 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-#define REAL_IS_DEFINED_DOUBLE 1
+#ifndef REAL_IS_DEFINED_DOUBLE
+#define REAL_IS_DEFINED_DOUBLE 0
+#endif
 
 #if (REAL_IS_DEFINED_DOUBLE == 0)
 #define REAL float