From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Aug 1988 19:29:18 +0000 (+0000)
Subject: Disable downward coercion of flonums.
X-Git-Tag: 20090517-FFI~12627
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d37fb5643e5ac10130b1eb89956235b1f99ca6aa;p=mit-scheme.git

Disable downward coercion of flonums.
---

diff --git a/v7/src/microcode/default.h b/v7/src/microcode/default.h
index 471ba6d43..87e6aedc4 100644
--- 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 d81b77e7c..dec6dc704 100644
--- 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 dc6858ab6..7bc9c5218 100644
--- 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