diff options
| author | Akshay <[email protected]> | 2021-03-31 13:46:18 +0100 |
|---|---|---|
| committer | Akshay <[email protected]> | 2021-03-31 13:46:18 +0100 |
| commit | b69d30225f77653dc89652a9ba838d2e9fba4948 (patch) | |
| tree | 588bc93d4a24dde15513876724fc75f0ba2c895d /src/lisp/std.lisp | |
| parent | 5d541cb5c87ffb80262c753394f06f4449609b9b (diff) | |
hopefully fix quote for the last time
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)) |