Re: [Chicken-users] Rethrowing an exception

[Christian Kellermann]

Hey Mathieu!

* address@hidden <address@hidden> [151113 01:52]:
> Hi all,
>
> I have this piece of code I use to ensure any system resource being allocated
> gets released:
>
>     ;; invokes a procedure with the guarantee
>     ;; the allocated resource will be released
>     (define (with-release allocation-procedure procedure release-procedure)
>       (let ((allocated-resource (allocation-procedure)))
>         (handle-exceptions
>           exception
>           (begin
>             (release-procedure allocated-resource)
>             (abort exception))
>           (let ((procedure-result (procedure allocated-resource)))
>             (release-procedure allocated-resource)
>             procedure-result))))
>
> Works beautifully, but I seem to be loosing the backtrace from the original
> (abort). Is there anyway I can catch an exception but then let it continue as
> if nothing had ever happened?

The construction of the condition and the handler call will always be
visible, see also "Making continuable exceptions" at
http://gazette.call-cc.org/issues/18.html#omelette-recipes.

Another idea worth trying is to capture the continuation before
calling the procedure in question, then calling that in the condition
handler.

HTH,

Christian

--
May you be peaceful, may you live in safety, may you be free from
suffering, and may you live with ease.