1 files changed, 3 insertions, 4 deletions

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))