* arith.c (flo_int): New function.

* eval.c (eval_init): flo-int registered as intrinsic.

* lib.h (flo_int): Declared.

* mpi-patches/series: Added mpi-to-double to patch stack.
(mp_to_double): New MPI function.

* mpi-patches/mpi-to-double: New file.

1 files changed, 15 insertions, 0 deletions

diff --git a/arith.c b/arith.c
index 5c17048d..769da0d0 100644
--- a/arith.c
+++ b/arith.c
@@ -1157,6 +1157,21 @@ val int_flo(val f)
   }
 }
 
+val flo_int(val i)
+{
+  if (fixnump(i))
+    return flo(c_num(i));
+
+  {
+    double d;
+    type_check(i, BGNUM);
+    if (mp_to_double(mp(i), &d) != MP_OKAY)
+      uw_throwf(error_s, lit("flo-int: bignum to float conversion failed"),
+                nao);
+    return flo(d);
+  }
+}
+
 void arith_init(void)
 {
   mp_init(&NUM_MAX_MP);