summaryrefslogtreecommitdiff
path: root/libguile/control.h
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-02-25 13:17:34 +0100
committerAndy Wingo <wingo@pobox.com>2010-02-25 20:59:55 +0100
commitb8af64db76bc602517be300128be0dfb67fac89f (patch)
tree71175912af3a40c5f44a781fe8983e23a6081c61 /libguile/control.h
parentda7fa082e80b2c3989c90031ee5356e5b65bd00b (diff)
downloadguile-b8af64db76bc602517be300128be0dfb67fac89f.tar.gz
simplify handling of nonlocal prompt returns from c
* libguile/control.h: * libguile/control.c (scm_i_prompt_pop_abort_args_x): New helper. * libguile/eval.c (eval): Use the new helper.
Diffstat (limited to 'libguile/control.h')
-rw-r--r--libguile/control.h2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/control.h b/libguile/control.h
index 146e216bd..19e841eda 100644
--- a/libguile/control.h
+++ b/libguile/control.h
@@ -47,6 +47,8 @@ SCM_INTERNAL SCM scm_sys_default_prompt_tag;
SCM_INTERNAL SCM scm_c_make_prompt (SCM vm, SCM k, scm_t_uint8 escape_only_p,
scm_t_int64 cookie);
+SCM_INTERNAL SCM scm_i_prompt_pop_abort_args_x (SCM prompt);
+
SCM_INTERNAL SCM scm_c_abort (SCM vm, SCM tag, size_t n, SCM *argv,
scm_t_int64 cookie) SCM_NORETURN;
SCM_INTERNAL SCM scm_at_abort (SCM tag, SCM args) SCM_NORETURN;