Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-20 14:19:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #303 - Handle numeric predicate edge cases

Browse source 
Add edge cases to (real?) for complex numbers, and (integer?) for reals.
This commit is contained in:
Justin Ethier 2019-02-18 16:48:11 -05:00
parent 5f0fa5eeea
commit 204e31e362
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
runtime.c
View file

@ -1671,7 +1671,14 @@ object Cyc_is_number(object o)
object Cyc_is_real(object o) object Cyc_is_real(object o)
{ {
return Cyc_is_number(o); if ((o != NULL) && (obj_is_int(o) ||
(!is_value_type(o) && (type_of(o) == integer_tag
|| type_of(o) == bignum_tag
|| type_of(o) == double_tag
|| (type_of(o) == complex_num_tag &&
cimag(complex_num_value(o)) == 0.0))))) // Per R7RS
return boolean_t;
return boolean_f;
} }
object Cyc_is_complex(object o) object Cyc_is_complex(object o)
@ -1691,8 +1698,9 @@ object Cyc_is_complex(object o)
object Cyc_is_integer(object o) object Cyc_is_integer(object o)
{ {
if ((o != NULL) && (obj_is_int(o) || if ((o != NULL) && (obj_is_int(o) ||
(!is_value_type(o) && type_of(o) == integer_tag) || (!is_value_type(o) && type_of(o) == integer_tag) ||
(!is_value_type(o) && type_of(o) == bignum_tag))) (!is_value_type(o) && type_of(o) == bignum_tag) ||
(!is_value_type(o) && type_of(o) == double_tag && double_value(o) == round(double_value(o))))) // Per R7RS
return boolean_t; return boolean_t;
return boolean_f; return boolean_f;
} }