*** empty log message ***

[bpt/guile.git] / libguile / gh_eval.c

diff --git a/libguile/gh_eval.c b/libguile/gh_eval.c
index d214d9f..9931dbe 100644 (file)
--- a/libguile/gh_eval.c
+++ b/libguile/gh_eval.c
@@ -63,7 +63,7 @@ gh_eval_file (char *fname)
 }
 
 static SCM
-eval_str_wrapper (void *data, SCM jmpbuf)
+eval_str_wrapper (void *data)
 {
 /*   gh_eval_t real_eval_proc = (gh_eval_t) (* ((gh_eval_t *) data)); */
 
@@ -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
@@ -97,7 +97,7 @@ gh_eval_str_with_stack_saving_handler (char *scheme_code)
 }
 
 static SCM
-eval_file_wrapper (void *data, SCM jmpbuf)
+eval_file_wrapper (void *data)
 {
 /*   gh_eval_t real_eval_proc = (gh_eval_t) (* ((gh_eval_t *) data)); */
 
@@ -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);
 }