summaryrefslogtreecommitdiff
path: root/libmu_scm/mu_guile.c
diff options
context:
space:
mode:
Diffstat (limited to 'libmu_scm/mu_guile.c')
-rw-r--r--libmu_scm/mu_guile.c14
1 files changed, 8 insertions, 6 deletions
diff --git a/libmu_scm/mu_guile.c b/libmu_scm/mu_guile.c
index 26dc2a7d4..39e191630 100644
--- a/libmu_scm/mu_guile.c
+++ b/libmu_scm/mu_guile.c
@@ -57,9 +57,10 @@ mu_guile_safe_exec (SCM (*handler) (void *data), void *data, SCM *result)
return 1;
ed.handler = handler;
ed.data = data;
- scm_internal_lazy_catch (SCM_BOOL_T,
- scheme_safe_exec_body, (void*)&ed,
- eval_catch_handler, &jmp_env);
+ scm_c_catch (SCM_BOOL_T,
+ scheme_safe_exec_body, (void*)&ed,
+ eval_catch_handler, &jmp_env,
+ NULL, NULL);
if (result)
*result = ed.result;
return 0;
@@ -91,9 +92,10 @@ mu_guile_safe_proc_call (SCM proc, SCM arglist, SCM *presult)
return 1;
cell = scm_cons (proc, arglist);
- result = scm_internal_lazy_catch (SCM_BOOL_T,
- eval_catch_body, cell,
- eval_catch_handler, &jmp_env);
+ result = scm_c_catch (SCM_BOOL_T,
+ eval_catch_body, cell,
+ eval_catch_handler, &jmp_env,
+ NULL, NULL);
if (presult)
*presult = result;
return 0;

Return to:

Send suggestions and report system problems to the System administrator.