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

Issue #134

Browse source
This commit is contained in:
Justin Ethier 2016-11-16 22:32:58 +00:00
parent 025a3ef1ce
commit 67e63ef49c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -1006,7 +1006,7 @@ object memberp(void *data, object x, list l)
Cyc_check_pair_or_null(data, l); Cyc_check_pair_or_null(data, l);
for (; l != NULL; l = cdr(l)) { for (; l != NULL; l = cdr(l)) {
if (boolean_f != equalp(x, car(l))) if (boolean_f != equalp(x, car(l)))
return boolean_t; return l;
} }
return boolean_f; return boolean_f;
} }
@ -1016,7 +1016,7 @@ object memqp(void *data, object x, list l)
Cyc_check_pair_or_null(data, l); Cyc_check_pair_or_null(data, l);
for (; l != NULL; l = cdr(l)) { for (; l != NULL; l = cdr(l)) {
if ((x == car(l))) if ((x == car(l)))
return boolean_t; return l;
} }
return boolean_f; return boolean_f;
} }