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

Added Cyc_is_opaque

Browse source
This commit is contained in:
Justin Ethier 2016-04-27 04:05:54 -04:00
parent a946a6cb69
commit 161c46ac72
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/runtime.h
View file

@ -235,6 +235,7 @@ object Cyc_is_procedure(void *data, object o);
object Cyc_is_macro(object o); object Cyc_is_macro(object o);
object Cyc_is_eof_object(object o); object Cyc_is_eof_object(object o);
object Cyc_is_cvar(object o); object Cyc_is_cvar(object o);
object Cyc_is_opaque(object o);
object Cyc_sum_op(void *data, common_type * x, object y); object Cyc_sum_op(void *data, common_type * x, object y);
object Cyc_sub_op(void *data, common_type * x, object y); object Cyc_sub_op(void *data, common_type * x, object y);
object Cyc_mul_op(void *data, common_type * x, object y); object Cyc_mul_op(void *data, common_type * x, object y);

7
runtime.c
View file

@ -1115,6 +1115,13 @@ object Cyc_is_cvar(object o)
return boolean_f; return boolean_f;
} }
object Cyc_is_opaque(object o)
{
if ((o != NULL) && !is_value_type(o) && ((list) o)->tag == c_opaque_tag)
return boolean_t;
return boolean_f;
}
object Cyc_eq(object x, object y) object Cyc_eq(object x, object y)
{ {
if (x == y) if (x == y)