From cb32fdbf9bdf36224ac2febe36a8d696cac98b3f Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Fri, 4 Apr 2003 21:47:46 +0000 Subject: [PATCH] * eq.c (s_scm_eqv_p): scm_i_bigcomp -> scm_i_bigcmp. --- libguile/eq.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/eq.c b/libguile/eq.c index 1a7a3f21f..19df1e16a 100644 --- a/libguile/eq.c +++ b/libguile/eq.c @@ -122,7 +122,7 @@ SCM_DEFINE1 (scm_eqv_p, "eqv?", scm_tc7_rpsubr, if (SCM_NUMP (x)) { if (SCM_BIGP (x)) { - return SCM_BOOL (0 == scm_bigcomp (x, y)); + return SCM_BOOL (0 == scm_i_bigcmp (x, y)); } else if (SCM_SLOPPY_REALP (x)) { return SCM_BOOL (real_eqv (SCM_REAL_VALUE (x), SCM_REAL_VALUE (y))); } else { /* complex */