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

Fix compiler warnings

Browse source
This commit is contained in:
Justin Ethier 2019-12-23 18:50:38 -05:00
parent d784bfa48d
commit 63d009ca02
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
runtime.c
View file

@ -780,7 +780,7 @@ object Cyc_has_cycle(object lst)
object Cyc_is_list(object lst) object Cyc_is_list(object lst)
{ {
object slow_lst, fast_lst; object slow_lst, fast_lst;
if ((lst == NULL)){ if (lst == NULL){
return boolean_t; return boolean_t;
} else if (is_value_type(lst)) { } else if (is_value_type(lst)) {
return boolean_f; return boolean_f;
@ -1242,7 +1242,7 @@ object memqp(void *data, object x, list l)
{ {
for (; l != NULL; l = cdr(l)) { for (; l != NULL; l = cdr(l)) {
Cyc_check_pair_or_null(data, l); Cyc_check_pair_or_null(data, l);
if ((x == car(l))) if (x == car(l))
return l; return l;
} }
return boolean_f; return boolean_f;
@ -1256,7 +1256,7 @@ list assq(void *data, object x, list l)
Cyc_check_pair(data, l); Cyc_check_pair(data, l);
list la = car(l); list la = car(l);
Cyc_check_pair(data, la); Cyc_check_pair(data, la);
if ((x == car(la))) if (x == car(la))
return la; return la;
} }
return boolean_f; return boolean_f;