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

Fix error when argument to < not a real

Browse source 
* libguile/intrinsics.c (less_p): scm_nan_p raises an error if arg is
not a real; guard.
This commit is contained in:
Andy Wingo 2021-04-26 12:26:33 +02:00
parent 83023160b1
commit e0d022c347
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/intrinsics.c
View file

@ -291,7 +291,8 @@ less_p (SCM a, SCM b)
return a_bits < b_bits ? SCM_F_COMPARE_LESS_THAN : SCM_F_COMPARE_NONE; return a_bits < b_bits ? SCM_F_COMPARE_LESS_THAN : SCM_F_COMPARE_NONE;
} }
if (scm_is_true (scm_nan_p (a)) || scm_is_true (scm_nan_p (b))) if ((SCM_REALP (a) && scm_is_true (scm_nan_p (a)))
|| (SCM_REALP (b) && scm_is_true (scm_nan_p (b))))
return SCM_F_COMPARE_INVALID; return SCM_F_COMPARE_INVALID;
else if (scm_is_true (scm_less_p (a, b))) else if (scm_is_true (scm_less_p (a, b)))
return SCM_F_COMPARE_LESS_THAN; return SCM_F_COMPARE_LESS_THAN;