Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +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 equalp(object, object);
object Cyc_has_cycle(object lst); object Cyc_has_cycle(object lst);
object Cyc_is_boolean(object o); 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_null(object o);
object Cyc_is_number(object o); object Cyc_is_number(object o);
object Cyc_is_real(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; return boolean_f;
} }
object Cyc_is_pair(object o) //object Cyc_is_pair(object o)
{ //{
if (is_object_type(o) && ((list) o)->tag == pair_tag) // if (is_object_type(o) && ((list) o)->tag == pair_tag)
return boolean_t; // return boolean_t;
return boolean_f; // return boolean_f;
} //}
object Cyc_is_null(object o) object Cyc_is_null(object o)
{ {