diff options
| -rw-r--r-- | lisp/core.c | 4 | ||||
| -rw-r--r-- | lisp/lisp.c | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lisp/core.c b/lisp/core.c index 9077dc5..89f5d5c 100644 --- a/lisp/core.c +++ b/lisp/core.c @@ -3242,7 +3242,7 @@ Lisp_Member(LispBuiltin *builtin) } else { for (; CONSP(list); list = CDR(list)) - if (FCOMPARE(lambda, item, CAR(list), code) == expect) + if ((FCOMPARE(lambda, item, CAR(list), code)) == expect) return (list); } } @@ -3255,7 +3255,7 @@ Lisp_Member(LispBuiltin *builtin) else { for (; CONSP(list); list = CDR(list)) { compare = APPLY1(key, CAR(list)); - if (FCOMPARE(lambda, item, compare, code) == expect) + if ((FCOMPARE(lambda, item, compare, code)) == expect) return (list); } } diff --git a/lisp/lisp.c b/lisp/lisp.c index 720c7df..4b393c1 100644 --- a/lisp/lisp.c +++ b/lisp/lisp.c @@ -5454,7 +5454,7 @@ LispBegin(void) } void -LispEnd() +LispEnd(void) { /* XXX needs to free all used memory, not just close file descriptors */ } |