1 files changed, 6 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 306d1118..21b87fed 100644
--- a/lib.c
+++ b/lib.c
@@ -1135,6 +1135,12 @@ val flo(double n)
   return obj;
 }
 
+double c_flo(val num)
+{
+  type_check(num, FLNUM);
+  return num->fl.n;
+}
+
 val fixnump(val num)
 {
   return (is_num(num)) ? t : nil;