From cc7b43404fb48571014d9953e4725467a74d82db Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 8 Jul 1997 03:07:06 +0000
Subject: [PATCH] Fixed thinko in FIXNUM->FLONUM.

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

diff --git a/v7/src/microcode/fixnum.c b/v7/src/microcode/fixnum.c
index 6424a25d9..2e8247cca 100644
--- a/v7/src/microcode/fixnum.c
+++ b/v7/src/microcode/fixnum.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fixnum.c,v 9.40 1996/07/20 22:36:00 adams Exp $
+$Id: fixnum.c,v 9.41 1997/07/08 03:07:06 adams Exp $
 
 Copyright (c) 1987-96 Massachusetts Institute of Technology
 
@@ -356,6 +356,6 @@ Equivalent to (INTEGER->FLONUM FIXNUM 2)")
 {
   PRIMITIVE_HEADER (1);
   {
-    PRIMITIVE_RETURN (FIXNUM_TO_FLONUM (arg_fixnum (1)));
+    PRIMITIVE_RETURN (double_to_flonum ((double) (arg_fixnum (1))));
   }
 }
-- 
2.25.1