Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
5444:388762703a21 5445:6506fcb40fcf
784 return make_float (ratio_to_double (XRATIO_DATA (number))); 784 return make_float (ratio_to_double (XRATIO_DATA (number)));
785 #endif 785 #endif
786 786
787 if (FLOATP (number)) /* give 'em the same float back */ 787 if (FLOATP (number)) /* give 'em the same float back */
788 return number; 788 return number;
789
790 if (BIGFLOATP (number))
791 {
792 return number;
793 }
789 794
790 return Ffloat (wrong_type_argument (Qnumberp, number)); 795 return Ffloat (wrong_type_argument (Qnumberp, number));
791 } 796 }
792 797
793 DEFUN ("logb", Flogb, 1, 1, 0, /* 798 DEFUN ("logb", Flogb, 1, 1, 0, /*