2006/12/07


(define (trace ls)
(call/cc
(lambda (skip)
(let R ((ls ls))
(cond ((null? ls)
'())
(else
(call/cc
(lambda (k)
(set! trace (lambda () (k #f)))
(skip (car ls))))
(R (cdr ls))))))))


No comments :