diff options
Diffstat (limited to 'src/lisp/std.lisp')
-rw-r--r-- | src/lisp/std.lisp | 7 |
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 @@ | |||
36 | (filter pred (cdr ls))))) | 36 | (filter pred (cdr ls))))) |
37 | 37 | ||
38 | (define (member? item ls) | 38 | (define (member? item ls) |
39 | (if (null? ls) | 39 | (fold #f |
40 | #f | 40 | (lambda (acc x) (or acc (eq? item x))) |
41 | (or (eq? item (car ls)) | 41 | ls)) |
42 | (member? item (cdr ls))))) | ||
43 | 42 | ||
44 | (define (assert expr) | 43 | (define (assert expr) |
45 | (assert-eq #t expr)) | 44 | (assert-eq #t expr)) |