Added FIXNUM->FLONUM.

diff --git a/v7/src/microcode/fixnum.c b/v7/src/microcode/fixnum.c
index a86464a040de392de6fc6ffcd73d21ec32532b21..9ac4e88c5c8405076aa9b9918460fe3f0b3e29db 100644 (file)
--- 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)));
+  }
+}