From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 20 Jul 1996 22:26:26 +0000 (+0000)
Subject: Added FIXNUM->FLONUM.
X-Git-Tag: 20090517-FFI~5469
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c8bbbed5aa098ee175a645c08e7c74b5d0e2c581;p=mit-scheme.git

Added FIXNUM->FLONUM.
---

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)));
+  }
+}