diff options
Diffstat (limited to 'srfi')
-rw-r--r-- | srfi/srfi-1.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm index 53be755fa..498e6a69d 100644 --- a/srfi/srfi-1.scm +++ b/srfi/srfi-1.scm @@ -730,7 +730,7 @@ (let lp ((f (car rest)) (r (cdr rest))) (or (null? r) (and (every (lambda (el) (member el (car r) =)) f) - (every (lambda (el) (member el f =)) (car r)) + (every (lambda (el) (member el f (lambda (x y) (= y x)))) (car r)) (lp (car r) (cdr r))))))) (define (lset-adjoin = list . rest) |