* Fixed MEMV

asandroq · May 6, 2010 · ba9803a · ba9803a
1 parent 9f899b5
commit ba9803a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/init.scm b/src/init.scm
@@ -124,7 +124,7 @@
   (cond
    ((null? lst) #f)
    ((eqv? x (car lst)) lst)
-   (else (memq x (cdr lst)))))
+   (else (memv x (cdr lst)))))
 
 (define (member x lst)
   (cond