mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* gh_eval.c (gh_eval_str_with_catch, gh_eval_file_with_catch):

Browse source 
Use the handler passed, instead of ignoring it and using
gh_standard_handler.  (Thanks to Etienne Bernard.)
This commit is contained in:
Jim Blandy 1998-10-24 20:54:57 +00:00
parent 47d0411b18
commit a08377c3b7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gh_eval.c
View file

@ -76,7 +76,7 @@ gh_eval_str_with_catch (char *scheme_code, scm_catch_handler_t handler)
{
/* 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 @@ gh_eval_file_with_catch (char *scheme_code, scm_catch_handler_t handler)
{
/* 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);
}