All pastes #815381 Raw Edit

Something

public text v1 · immutable
·published 2007-12-14 00:40 UTC
rendered paste body
(define (walk-tree proc init tree)
  (cond ((null? tree) init)
        ((list? (car tree)) (proc (walk-tree proc init (car tree))
                                  (walk-tree proc init (cdr tree))))
        (else (proc (car tree)
                    (walk-tree proc init (cdr tree))))))