From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 24 Sep 1989 14:47:07 +0000 (+0000)
Subject: fixed-objects-vector now contains flonum-epsilon instead of
X-Git-Tag: 20090517-FFI~11775
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7be82c308b42de2d95d5a8689f34c03f576436a7;p=mit-scheme.git

fixed-objects-vector now contains flonum-epsilon instead of
flonum-exponent-bits.
---

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 00c4e4797..44c330ad1 100644
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.47 1989/03/27 23:17:15 jinx Rel $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.48 1989/09/24 14:47:07 cph Exp $
 
 (declare (usual-integrations))
 
@@ -566,7 +566,7 @@
 	       CONSOLE-HEIGHT			;04
 	       NEWLINE-CHAR			;05
 	       FLONUM-MANTISSA-LENGTH		;06
-	       FLONUM-EXPONENT-LENGTH		;07
+	       FLONUM-EPSILON			;07
 	       OS-NAME-STRING			;08
 	       OS-VARIANT-STRING		;09
 	       STACK-TYPE-STRING		;0A
@@ -574,4 +574,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.47 1989/03/27 23:17:15 jinx Rel $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.48 1989/09/24 14:47:07 cph Exp $"
\ No newline at end of file
diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index f259004dd..7b8dfd12c 100644
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.47 1989/03/27 23:17:15 jinx Rel $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.48 1989/09/24 14:47:07 cph Exp $
 
 (declare (usual-integrations))
 
@@ -566,7 +566,7 @@
 	       CONSOLE-HEIGHT			;04
 	       NEWLINE-CHAR			;05
 	       FLONUM-MANTISSA-LENGTH		;06
-	       FLONUM-EXPONENT-LENGTH		;07
+	       FLONUM-EPSILON			;07
 	       OS-NAME-STRING			;08
 	       OS-VARIANT-STRING		;09
 	       STACK-TYPE-STRING		;0A
@@ -574,4 +574,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.47 1989/03/27 23:17:15 jinx Rel $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.48 1989/09/24 14:47:07 cph Exp $"
\ No newline at end of file