From b69d30225f77653dc89652a9ba838d2e9fba4948 Mon Sep 17 00:00:00 2001 From: Akshay Date: Wed, 31 Mar 2021 18:16:18 +0530 Subject: hopefully fix quote for the last time --- src/lisp/std.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/lisp/std.lisp') diff --git a/src/lisp/std.lisp b/src/lisp/std.lisp index 8350482..d54b32c 100644 --- a/src/lisp/std.lisp +++ b/src/lisp/std.lisp @@ -36,10 +36,9 @@ (filter pred (cdr ls))))) (define (member? item ls) - (if (null? ls) - #f - (or (eq? item (car ls)) - (member? item (cdr ls))))) + (fold #f + (lambda (acc x) (or acc (eq? item x))) + ls)) (define (assert expr) (assert-eq #t expr)) -- cgit v1.2.3