The Little Schemer

Hi, I am working through the little schemer. I do not have the math skills to work through SICP.

I have the following code:


(define (member? a lat)
  (lambda (a lat)
    (cond
      ((null? lat) #f)
      (else (or (eq? (car lat) a)
                (member? a (cdr lat)))))))


When I run this say like:
(member? 3 (cons 3 '(9 8 7 6 13 3)))

I get the following:
#<procedure:...my-scheme-log.ss:137:2>
rather than a list without the first instance of 3

Can you help me?

Those two functions do not evaluate similarly, so someone is wrong.
> (define +o
  (lambda (n m)
      (cond
        ((zero? n) m)
        ((zero? m) n)
        (else (+o (sub1 n) (add1 m))))))
(+o 2 3)
5
(define ++o
  (lambda (n m)
      (cond
        ((zero? m) n)
        (else (add1 (+o n (add1 m)))))))
(++o 2 3)
7

Something is messed up. Did you incorrectly transcribe the book version?