Mercurial > hg > xemacs-beta

diff src/floatfns.c @ 5445:6506fcb40fcf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged with trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 31 Dec 2010 00:27:29 +0100
parents 308d34e9f07d 2a7b6ddb8063
children 56144c8593a8
line wrap: on
line diff
--- a/src/floatfns.c	Sun Dec 26 01:48:40 2010 +0100
+++ b/src/floatfns.c	Fri Dec 31 00:27:29 2010 +0100
@@ -787,6 +787,11 @@
   if (FLOATP (number))		/* give 'em the same float back */
     return number;
 
+  if (BIGFLOATP (number))
+    {
+      return number;
+    }
+
   return Ffloat (wrong_type_argument (Qnumberp, number));
 }