mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +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 */ /* FIXME: not there yet */
return gh_catch (SCM_BOOL_T, (scm_catch_body_t) eval_str_wrapper, scheme_code, 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 SCM
@ -110,7 +110,7 @@ gh_eval_file_with_catch (char *scheme_code, scm_catch_handler_t handler)
{ {
/* FIXME: not there yet */ /* FIXME: not there yet */
return gh_catch (SCM_BOOL_T, (scm_catch_body_t) eval_file_wrapper, 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); scheme_code);
} }