[PATCH] Re: gh_eval_file_with_catch ignoring given handler

[Etienne Bernard <eb@via.ecp.fr>]

On Thu, Oct 22, 1998, Maciej Stachowiak wrote:
> > gh_eval_file_with_catch (char *scheme_code, scm_catch_handler_t handler)
> > [ WRONG CODE ]
> > 
> > I suppose that this is not the expected behavior. Am I wrong ? What if I
> > replace "gh_standard_handler" with "handler" ?
> 
> I think this is a long-standing bug, I've noticed it before and maybe
> even reported it, but submitting a patch now would probably be mroe
> effective.

Well, here it is.

--- gh_eval.c~  Mon Feb  2 16:00:12 1998
+++ gh_eval.c   Thu Oct 22 22:16:22 1998
@@ -76,7 +76,7 @@
 {
   /* FIXME: not there yet */
   return gh_catch (SCM_BOOL_T, (scm_catch_body_t) eval_str_wrapper, scheme_code,
-                  (scm_catch_handler_t) gh_standard_handler, scheme_code);
+                  (scm_catch_handler_t) handler, scheme_code);
 }
 
 SCM
@@ -110,7 +110,7 @@
 {
   /* FIXME: not there yet */
   return gh_catch (SCM_BOOL_T, (scm_catch_body_t) eval_file_wrapper,
-                  scheme_code, (scm_catch_handler_t) gh_standard_handler,
+                  scheme_code, (scm_catch_handler_t) handler,
                   scheme_code);
 }

-- 
Etienne Bernard <eb@via.ecp.fr>