summaryrefslogtreecommitdiff
path: root/libguile/gh_eval.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1998-10-24 20:54:57 +0000
committerJim Blandy <jimb@red-bean.com>1998-10-24 20:54:57 +0000
commita08377c3b757f1332aa851493f0b7a8a8295a622 (patch)
treef71bdd95112cefb507d74eb6844c74b9ace0a237 /libguile/gh_eval.c
parent47d0411b1873dc32343601b2fec3d54c61ec639f (diff)
downloadguile-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.c4
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);
}