(define (=? a) (lambda (b) (eq? a b)))

(map (=? 'zooi) '(aap boom zooi))