# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1293666668 0
# Node ID 2a7b6ddb80637cc139c0cf301aacd3fd40bd4943
# Parent  596011a8bf8f3213e57c83b56f3cffe3d237e043
#'float: if handed a bigfloat, give the same bigfloat back.

2010-12-29  Aidan Kehoe  <kehoea@parhasard.net>

	* floatfns.c (Ffloat): If we've been handed a bigfloat here, it's
	appropriate to give the same bigfloat back.

diff -r 596011a8bf8f -r 2a7b6ddb8063 src/ChangeLog
--- a/src/ChangeLog	Wed Dec 29 23:47:30 2010 +0000
+++ b/src/ChangeLog	Wed Dec 29 23:51:08 2010 +0000
@@ -1,3 +1,8 @@
+2010-12-29  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* floatfns.c (Ffloat): If we've been handed a bigfloat here, it's
+	appropriate to give the same bigfloat back.
+
 2010-11-30  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* fns.c (Ffill):
diff -r 596011a8bf8f -r 2a7b6ddb8063 src/floatfns.c
--- a/src/floatfns.c	Wed Dec 29 23:47:30 2010 +0000
+++ b/src/floatfns.c	Wed Dec 29 23:51:08 2010 +0000
@@ -789,6 +789,11 @@
   if (FLOATP (number))		/* give 'em the same float back */
     return number;
 
+  if (BIGFLOATP (number))
+    {
+      return number;
+    }
+
   return Ffloat (wrong_type_argument (Qnumberp, number));
 }