From 3a1b45fdf760817a9bd248e4c5efbfb01a02ad6f Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Thu, 11 Aug 2005 21:03:58 +0000 Subject: [PATCH] Use scm_from_bool instead of SCM_BOOL. Thanks to Peter Gavin! --- libguile/numbers.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/libguile/numbers.c b/libguile/numbers.c index 52d6fe60a..dfa25d176 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -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)) {