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 00c4e47970bd51c71264b23def4eb2d4c19449a0..44c330ad1882e1641cd4f9639057250332ed8e45 100644 (file)
--- 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 f259004dde88ec50e3cdcce7182b3c354d6b0b50..7b8dfd12cf76cf206a42b163b2639f1b4976b2b8 100644 (file)
--- 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