title: Scheme member function, unsure of my definition
body: <p>I want </p>
  
  <pre><code>(member? 'a '((d d) (d d)))
  </code></pre>
  
  <p>to return false</p>
  
  <p>what am I doing wrong</p>
  
  <pre><code>(define (member? x list)
   (cond
    ((null? list) #t )
     (else ( or (or (eq? (car (car list)) x) (eq? (cdr (car list)) x)) (member? x (cdr list) ))  
  )))
  </code></pre>
  
  <p>If someone can tell me what is wrong with my member function I would greatly appreciate it.</p>