Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
5314:596011a8bf8f 5315:2a7b6ddb8063
786 return make_float (ratio_to_double (XRATIO_DATA (number))); 786 return make_float (ratio_to_double (XRATIO_DATA (number)));
787 #endif 787 #endif
788 788
789 if (FLOATP (number)) /* give 'em the same float back */ 789 if (FLOATP (number)) /* give 'em the same float back */
790 return number; 790 return number;
791
792 if (BIGFLOATP (number))
793 {
794 return number;
795 }
791 796
792 return Ffloat (wrong_type_argument (Qnumberp, number)); 797 return Ffloat (wrong_type_argument (Qnumberp, number));
793 } 798 }
794 799
795 DEFUN ("logb", Flogb, 1, 1, 0, /* 800 DEFUN ("logb", Flogb, 1, 1, 0, /*