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

Faster version of (boolean?)

Browse source
This commit is contained in:
Justin Ethier 2018-06-08 17:53:46 -04:00
parent 0d53f329e9
commit 6bec04f9c4
2 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
include/cyclone/runtime.h
View file

@ -439,7 +439,8 @@ object Cyc_eq(object x, object y);
int equal(object, object);
object equalp(object, object);
object Cyc_has_cycle(object lst);
object Cyc_is_boolean(object o);
//object Cyc_is_boolean(object o);
#define Cyc_is_boolean(o) (make_boolean(o == boolean_f || o == boolean_t))
#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:

18
runtime.c
View file

@ -1542,15 +1542,15 @@ declare_num_cmp(Cyc_num_lt, Cyc_num_lt_op, Cyc_num_fast_lt_op, dispatch_num_lt
declare_num_cmp(Cyc_num_gte, Cyc_num_gte_op, Cyc_num_fast_gte_op, dispatch_num_gte, >=, CYC_BN_GTE);
declare_num_cmp(Cyc_num_lte, Cyc_num_lte_op, Cyc_num_fast_lte_op, dispatch_num_lte, <=, CYC_BN_LTE);
object Cyc_is_boolean(object o)
{
if ((o != NULL) &&
!is_value_type(o) &&
((list) o)->tag == boolean_tag && ((boolean_f == o) || (boolean_t == o)))
return boolean_t;
return boolean_f;
}
//object Cyc_is_boolean(object o)
//{
// if ((o != NULL) &&
// !is_value_type(o) &&
// ((list) o)->tag == boolean_tag && ((boolean_f == o) || (boolean_t == o)))
// return boolean_t;
// return boolean_f;
//}
//
//object Cyc_is_pair(object o)
//{
// if (is_object_type(o) && ((list) o)->tag == pair_tag)