Disable downward coercion of flonums.

diff --git a/v7/src/microcode/default.h b/v7/src/microcode/default.h
index 471ba6d43d0755d523653aa62b7313289eb194a5..87e6aedc4c67cc2b187421241c6d41d4a2df0dde 100644 (file)
--- a/v7/src/microcode/default.h
+++ b/v7/src/microcode/default.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/default.h,v 9.29 1988/04/24 10:04:59 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/default.h,v 9.30 1988/08/09 19:27:45 cph Exp $
  *
  * This file contains default definitions for some hooks which 
  * various machines require.  These machines define these hooks
@@ -289,7 +289,7 @@ Loc = Apply_Primitive(N)
 #endif
 
 #ifndef DOWNWARD_COERCE_FLONUM_P
-#define DOWNWARD_COERCE_FLONUM_P(number) ((floor (number)) != (number))
+#define DOWNWARD_COERCE_FLONUM_P(number) 0
 #endif
 
 #ifndef FASLOAD_RELOCATE_HOOK

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index d81b77e7ceefe3b8060d38cbc0d0ce3b809d8287..dec6dc704788e19518976a970980bf6d73719160 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.47 1988/07/21 18:43:07 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.48 1988/08/09 19:29:18 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     47
+#define SUBVERSION     48
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index dc6858ab6445c7aa62d24f0d0edb1dc428e5416e..7bc9c52183419235dba057a04ffa2cb4175fc90d 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.47 1988/07/21 18:43:07 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.48 1988/08/09 19:29:18 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     47
+#define SUBVERSION     48
 #endif
 
 #ifndef UCODE_TABLES_FILENAME