Estoy usando este script de The little schemer, para obtener la intersección de dos conjuntos. Pero estoy recibiendo un error de identificación no enlazado en "miembro", ¿alguien puede decir qué tiene de malo?

(define intersect
  (lambda (set1 set2)
    (cond ((null? set1) (quote ()))
          ((member? (car set1) set2)
           (cons (car setl)
                 (intersect (cdr set1) set2)))
          (else (intersect (cdr setl) set2)))))

Me faltaba esta función arriba:

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

Además, quiero cruzar dos listas como: '((1 2) (2 7))' ((1 3) (4 5)) = '((1 5)), ¿alguna sugerencia sobre cómo hacerlo? Estoy buscando las respuestas de este post:Cómo escribir una función de esquema que toma dos listas y devuelve cuatro listas