diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-10-24 20:54:57 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-10-24 20:54:57 +0000 |
commit | a08377c3b757f1332aa851493f0b7a8a8295a622 (patch) | |
tree | f71bdd95112cefb507d74eb6844c74b9ace0a237 /libguile/gh_eval.c | |
parent | 47d0411b1873dc32343601b2fec3d54c61ec639f (diff) | |
download | guile-a08377c3b757f1332aa851493f0b7a8a8295a622.tar.gz |
* gh_eval.c (gh_eval_str_with_catch, gh_eval_file_with_catch):
Use the handler passed, instead of ignoring it and using
gh_standard_handler. (Thanks to Etienne Bernard.)
Diffstat (limited to 'libguile/gh_eval.c')
-rw-r--r-- | libguile/gh_eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gh_eval.c b/libguile/gh_eval.c index b42899073..9931dbe7a 100644 --- a/libguile/gh_eval.c +++ b/libguile/gh_eval.c @@ -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); } |