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

Experimenting with inline of Cyc_is_pair

Browse source
This commit is contained in:
Justin Ethier 2017-07-10 13:48:44 +00:00
parent 37d510a41f
commit b913edcc9f
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

@ -394,7 +394,8 @@ int equal(object, object);
object equalp(object, object);
object Cyc_has_cycle(object lst);
object Cyc_is_boolean(object o);
object Cyc_is_pair(object o);
//object Cyc_is_pair(object o);
#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_number(object o);
object Cyc_is_real(object o);

12
runtime.c
View file

@ -1474,12 +1474,12 @@ object Cyc_is_boolean(object o)
return boolean_f;
}
object Cyc_is_pair(object o)
{
if (is_object_type(o) && ((list) o)->tag == pair_tag)
return boolean_t;
return boolean_f;
}
//object Cyc_is_pair(object o)
//{
// if (is_object_type(o) && ((list) o)->tag == pair_tag)
// return boolean_t;
// return boolean_f;
//}
object Cyc_is_null(object o)
{