Mercurial > hg > xemacs-beta

diff src/floatfns.c @ 5315:2a7b6ddb8063

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#'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.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 29 Dec 2010 23:51:08 +0000
parents 378a34562cbe
children 6506fcb40fcf
line wrap: on
line diff
--- 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));
 }