2006-02-01 Ludovic Courtès <ludovic.courtes@laas.fr>

[bpt/guile.git] / libguile / numbers.c

diff --git a/libguile/numbers.c b/libguile/numbers.c
index c60920b..dfa25d1 100644 (file)
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -16,7 +16,7 @@
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  */
 
 \f
@@ -3228,9 +3228,9 @@ scm_num_eq_p (SCM x, SCM y)
              might be fastest or easiest for the cpu.  */
 
           double yy = SCM_REAL_VALUE (y);
-          return SCM_BOOL ((double) xx == yy
-                           && (DBL_MANT_DIG >= SCM_I_FIXNUM_BIT-1
-                               || xx == (long) yy));
+          return scm_from_bool ((double) xx == yy
+                               && (DBL_MANT_DIG >= SCM_I_FIXNUM_BIT-1
+                                   || xx == (long) yy));
         }
       else if (SCM_COMPLEXP (y))
        return scm_from_bool (((double) xx == SCM_COMPLEX_REAL (y))
@@ -3282,9 +3282,9 @@ scm_num_eq_p (SCM x, SCM y)
         {
           /* see comments with inum/real above */
           long yy = SCM_I_INUM (y);
-          return SCM_BOOL (xx == (double) yy
-                           && (DBL_MANT_DIG >= SCM_I_FIXNUM_BIT-1
-                               || (long) xx == yy));
+          return scm_from_bool (xx == (double) yy
+                               && (DBL_MANT_DIG >= SCM_I_FIXNUM_BIT-1
+                                   || (long) xx == yy));
         }
       else if (SCM_BIGP (y))
        {