From c8bbbed5aa098ee175a645c08e7c74b5d0e2c581 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 20 Jul 1996 22:26:26 +0000
Subject: [PATCH] Added FIXNUM->FLONUM.

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

diff --git a/v7/src/microcode/fixnum.c b/v7/src/microcode/fixnum.c
index a86464a04..9ac4e88c5 100644
--- a/v7/src/microcode/fixnum.c
+++ b/v7/src/microcode/fixnum.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: fixnum.c,v 9.38 1995/01/05 22:46:01 adams Exp $
+$Id: fixnum.c,v 9.39 1996/07/20 22:26:26 adams Exp $
 
-Copyright (c) 1987-94 Massachusetts Institute of Technology
+Copyright (c) 1987-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -348,3 +348,14 @@ DEFINE_PRIMITIVE ("FIXNUM-LSH", Prim_fixnum_lsh, 2, 2, 0)
   }
   return (LONG_TO_FIXNUM (z));
 }
+
+
+DEFINE_PRIMITIVE ("FIXNUM->FLONUM", Prim_fixnum_to_flonum, 1, 1,
+"(FIXNUM)\n\
+Equivalent to (INTEGER->FLONUM FIXNUM 2)")
+{
+  PRIMITIVE_HEADER (2);
+  {
+    PRIMITIVE_RETURN (FIXNUM_TO_FLONUM (arg_fixnum (2)));
+  }
+}
-- 
2.25.1