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

Speed up (complex?)

Browse source
This commit is contained in:
Justin Ethier 2019-09-13 12:31:18 -04:00
parent 829f7d86b0
commit 60e9007d57
2 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
include/cyclone/runtime.h
View file

@ -440,12 +440,13 @@ object Cyc_is_list(object lst);
#define Cyc_is_null(o) (make_boolean(o == NULL))
//TODO: convert all of these to macros (if it makes sense, most should), and remove them from runtime.c:
object Cyc_is_number(object o);
object Cyc_is_complex(object o);
object Cyc_is_real(object o);
object Cyc_is_integer(object o);
#define Cyc_is_fixnum(o) (make_boolean(obj_is_int(o)))
//object Cyc_is_fixnum(object o);
#define Cyc_is_bignum(o) (make_boolean(is_object_type(o) && ((list) o)->tag == bignum_tag))
//object Cyc_is_complex(object o);
#define Cyc_is_complex(o) (make_boolean(is_object_type(o) && ((list) o)->tag == complex_num_tag))
//object Cyc_is_bignum(object o);
//object Cyc_is_vector(object o);
//object Cyc_is_bytevector(object o);

12
runtime.c
View file

@ -1745,12 +1745,12 @@ object Cyc_is_real(object o)
return boolean_f;
}
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_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)
//{