(import (chicken condition)) (import (srfi 18)) (define (unwind-protect before-thunk body-thunk after-thunk) (handle-exceptions e (raise e) (dynamic-wind before-thunk body-thunk unwind-thunk))) (unwind-protect (lambda () #f) (lambda () (print* "within\n") (error 'boom)) (lambda () (print* "after\n")))