diff src/floatfns.c @ 2092:f557693c61de

[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
line wrap: on
line diff
--- a/src/floatfns.c	Fri May 21 03:27:58 2004 +0000
+++ b/src/floatfns.c	Fri May 21 20:56:32 2004 +0000
@@ -781,7 +781,7 @@
 
 #ifdef HAVE_RATIO
   if (RATIOP (number))
-    make_float (ratio_to_double (XRATIO_DATA (number)));
+    return make_float (ratio_to_double (XRATIO_DATA (number)));
 #endif
 
   if (FLOATP (number))		/* give 'em the same float back */