mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* eq.c (s_scm_eqv_p): scm_i_bigcomp -> scm_i_bigcmp.

Browse source
This commit is contained in:
Rob Browning 2003-04-04 21:47:46 +00:00
parent a6be66ed1e
commit cb32fdbf9b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eq.c
View file

@ -122,7 +122,7 @@ SCM_DEFINE1 (scm_eqv_p, "eqv?", scm_tc7_rpsubr,
if (SCM_NUMP (x)) if (SCM_NUMP (x))
{ {
if (SCM_BIGP (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)) { } else if (SCM_SLOPPY_REALP (x)) {
return SCM_BOOL (real_eqv (SCM_REAL_VALUE (x), SCM_REAL_VALUE (y))); return SCM_BOOL (real_eqv (SCM_REAL_VALUE (x), SCM_REAL_VALUE (y)));
} else { /* complex */ } else { /* complex */