path: root/js/games/nluqo.github.io/~bh/61a-pages/Lectures/2.2/tree3.scm

(define (deep-map fn xmas)
  (cond ((null? xmas) '())
	((pair? xmas)
	 (cons (deep-map fn (car xmas))
	       (deep-map fn (cdr xmas))))
	(else (fn xmas))))