;;; The letcc construct, as seen in THE SEASONED SCHEMER by Friedman and Felleisen

(define-macro (letcc c . body)
`(call/cc (lambda (,c) ,@body)))