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

Converted (vector?) to a macro

Browse source
This commit is contained in:
Justin Ethier 2018-06-08 16:34:55 -04:00
parent 8622eb8241
commit 1d0654a9d7
2 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
include/cyclone/runtime.h
View file

@ -441,15 +441,16 @@ object equalp(object, object);
object Cyc_has_cycle(object lst);
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_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:
#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);
object Cyc_is_fixnum(object o);
object Cyc_is_bignum(object o);
object Cyc_is_vector(object o);
//object Cyc_is_vector(object o);
#define Cyc_is_vector(o) (make_boolean(is_object_type(o) && ((list) o)->tag == vector_tag))
object Cyc_is_bytevector(object o);
object Cyc_is_port(object o);
object Cyc_is_mutex(object o);

12
runtime.c
View file

@ -1618,12 +1618,12 @@ object Cyc_is_symbol(object o)
return boolean_f;
}
object Cyc_is_vector(object o)
{
if ((o != NULL) && !is_value_type(o) && ((list) o)->tag == vector_tag)
return boolean_t;
return boolean_f;
}
//object Cyc_is_vector(object o)
//{
// if ((o != NULL) && !is_value_type(o) && ((list) o)->tag == vector_tag)
// return boolean_t;
// return boolean_f;
//}
object Cyc_is_bytevector(object o)
{