From 68e53dc038365505360e12ac57517b895858ce65 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 12 Feb 1990 23:07:31 +0000
Subject: [PATCH] Fix minor bug in last change.

---
 v7/src/microcode/flonum.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/flonum.c b/v7/src/microcode/flonum.c
index 3f9226a93..286d7ba6f 100644
--- a/v7/src/microcode/flonum.c
+++ b/v7/src/microcode/flonum.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/flonum.c,v 9.33 1990/02/11 22:34:12 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/flonum.c,v 9.34 1990/02/12 23:07:31 cph Rel $
 
 Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -61,7 +61,7 @@ double_to_flonum (value)
   Primitive_GC_If_Needed (FLONUM_SIZE);
   (*Free++) = (MAKE_OBJECT (TC_MANIFEST_NM_VECTOR, (FLONUM_SIZE - 1)));
   (*((double *) Free)) = value;
-  Free += (sizeof (double));
+  Free += (BYTES_TO_WORDS (sizeof (double)));
   return (MAKE_POINTER_OBJECT (TC_BIG_FLONUM, (Free - FLONUM_SIZE)));
 }
 
-- 
2.25.1