receive マクロ

(define-macro (receive . args)
  `(call-with-values (lambda () ,(cadr args)) (lambda ,(car args) ,@(cddr args))))

こんな感じで良いかしら。