[gambit-list] Help With Memory
Marc Feeley
feeley at iro.umontreal.ca
Thu Sep 25 13:15:07 EDT 2008
On 22-Sep-08, at 3:26 PM, Joel J. Adamson wrote:
> Getting the code
> ================
>
> The code is available for public download from svn at
>
> http://chondestes.bio.unc.edu/svn/models/agjones
The following code is rather odd:
(define (mem-handler exc)
(if (or (heap-overflow-exception? exc)
(stack-overflow-exception? exc))
(if (noncontinuable-exception? exc) (abort exc) exc)
(with-exception-catcher error-handler (lambda () (raise exc)))))
Why do you test for noncontinuable-exceptions? Why do you call with-
exception-catcher with a thunk that immediately raises an exception?
Might as well just do (error-handler exc).
What are you trying to accomplish? I suggest you use this instead, to
determine if it is causing your problem:
(define (mem-handler exc)
(display-exception exc)
(exit 1))
Marc
More information about the Gambit-list
mailing list