;;;; Handy for imperative programs ;;;; Used as: (define-with-return (foo x y) .... (return z) ...) (macro (define-with-return form) `(define ,(cadr form) (call/cc (lambda (return) ,@(cddr form)))))