Re: Is there a way to transparently re-throw?

[Keisuke Nishida]

At 27 Feb 2001 12:00:44 -0600,
Rob Browning wrote:
> 
> I was trying to set up a catch handler that would catch all
> exceptions, take some cleanup action, and then, if the error wasn't
> one the handler was particularly interested in, re-throw the error
> *without* affecting the error's source.
> 
> You can almost do that like this:
> 
>   (define (handle-throw key . throw-args)
>     (cleanup)
>     (if (eq? key 'foo)
>         (do-something)
>         (apply throw key throw-args)))

Why don't you use dynamic-wind?

  (catch 'foo
    (dynamic-wind
      (lambda () (init))
      (lambda () (body))
      (lambda () (cleanup)))
    (lambda (key . args)
      (do-something)))