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

Cleaner code for (pair?)

Browse source
This commit is contained in:
Justin Ethier 2017-06-07 22:34:21 +00:00
parent dec1cdf772
commit a81161904c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtime.c
View file

@ -1470,7 +1470,7 @@ object Cyc_is_boolean(object o)
object Cyc_is_pair(object o) object Cyc_is_pair(object o)
{ {
if ((o != NULL) && !is_value_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;
} }