Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added Cyc_is_complex

Browse source
This commit is contained in:
Justin Ethier 2018-05-10 13:35:11 -04:00
parent 11931bca7d
commit 03f5e35c3a
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/runtime.h
View file

@ -406,6 +406,7 @@ object Cyc_is_boolean(object o);
#define Cyc_is_pair(o) ((is_object_type(o) && ((list) o)->tag == pair_tag) ? boolean_t : boolean_f) #define Cyc_is_pair(o) ((is_object_type(o) && ((list) o)->tag == pair_tag) ? boolean_t : boolean_f)
object Cyc_is_null(object o); object Cyc_is_null(object o);
object Cyc_is_number(object o); object Cyc_is_number(object o);
object Cyc_is_complex(object o);
object Cyc_is_real(object o); object Cyc_is_real(object o);
object Cyc_is_integer(object o); object Cyc_is_integer(object o);
object Cyc_is_fixnum(object o); object Cyc_is_fixnum(object o);

7
runtime.c
View file

@ -1581,6 +1581,13 @@ object Cyc_is_real(object o)
return Cyc_is_number(o); return Cyc_is_number(o);
} }
object Cyc_is_complex(object o)
{
if ((o != NULL) && !is_value_type(o) && ((list) o)->tag == complex_num_tag)
return boolean_t;
return boolean_f;
}
object Cyc_is_fixnum(object o) object Cyc_is_fixnum(object o)
{ {
if (obj_is_int(o)) if (obj_is_int(o))