From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 24 Sep 1989 14:51:41 +0000 (+0000)
Subject: fixed-objects-vector now contains flonum-epsilon instead of
X-Git-Tag: 20090517-FFI~11774
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fadcad1a11a69c29e7fe25ecdd1021c3bc4b76a5;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 44c330ad1..0f35df9cc 100644
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1987 Massachusetts Institute of Technology
+;;;	Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $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 $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.49 1989/09/24 14:47:35 cph Exp $
 
 (declare (usual-integrations))
 
@@ -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.48 1989/09/24 14:47:07 cph Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.49 1989/09/24 14:47:35 cph Exp $"
\ No newline at end of file
diff --git a/v7/src/runtime/utabs.scm b/v7/src/runtime/utabs.scm
index 219a0f798..a07d072dc 100644
--- a/v7/src/runtime/utabs.scm
+++ b/v7/src/runtime/utabs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 14.3 1989/09/24 14:17:55 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 14.4 1989/09/24 14:51:41 cph Rel $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -89,7 +89,8 @@ MIT in each case. |#
 (define microcode-id/tty-x-size)
 (define microcode-id/tty-y-size)
 (define microcode-id/floating-mantissa-bits)
-(define microcode-id/floating-exponent-bits)(define microcode-id/operating-system-name)
+(define microcode-id/floating-epsilon)
+(define microcode-id/operating-system-name)
 (define microcode-id/operating-system-variant)
 (define microcode-id/stack-type)
 
diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 7b8dfd12c..37dfcdd70 100644
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1987 Massachusetts Institute of Technology
+;;;	Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $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 $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.49 1989/09/24 14:47:35 cph Exp $
 
 (declare (usual-integrations))
 
@@ -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.48 1989/09/24 14:47:07 cph Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.49 1989/09/24 14:47:35 cph Exp $"
\ No newline at end of file