Mercurial > hg > xemacs-beta

comparison src/floatfns.c @ 2092:f557693c61de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-05-21 20:56:26 by james] Batch of fixes and new functions for bignums, ratios, and bigfloats.
author james
date Fri, 21 May 2004 20:56:32 +0000
parents 471242c84954
children 04bc9d2f42c7
comparison
equal deleted inserted replaced
2091:0221e454fe63 2092:f557693c61de
779 } 779 }
780 #endif /* HAVE_BIGNUM */ 780 #endif /* HAVE_BIGNUM */
781 781
782 #ifdef HAVE_RATIO 782 #ifdef HAVE_RATIO
783 if (RATIOP (number)) 783 if (RATIOP (number))
784 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 789