ちなみに考えた結果はこれです。
(define map1(lambda (f l) (if (null? l) (quote()) cons(f (car l) (map1 f (cdr l))))))