diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-02-08 13:33:21 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-02-08 13:34:26 +0100 |
| commit | babfc7b2c3fce452aa12fed8d89cd3fbc81e8cc8 (patch) | |
| tree | 937751b8769b31d905efa4d541bcf56f907ab22c /libguile/continuations.h | |
| parent | 1d1cae0e2e063d9a36e7d600f87cf3d6eaf940f3 (diff) | |
| download | guile-babfc7b2c3fce452aa12fed8d89cd3fbc81e8cc8.tar.gz | |
eval.c uses scm_i_call_with_current_continuation
* libguile/continuations.h
* libguile/continuations.c (scm_i_call_with_current_continuation): New
internal function. Not exported because I'm not sure whether or not
this should have a continuation barrier in the future. Uses a
hand-coded VM procedure.
* libguile/eval.c (eval): Use scm_i_call_with_current_continuation.
Diffstat (limited to 'libguile/continuations.h')
| -rw-r--r-- | libguile/continuations.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/continuations.h b/libguile/continuations.h index a15a0fd0c..17960a7a9 100644 --- a/libguile/continuations.h +++ b/libguile/continuations.h @@ -72,6 +72,7 @@ typedef struct SCM_API SCM scm_make_continuation (int *first); +SCM_INTERNAL SCM scm_i_call_with_current_continuation (SCM proc); SCM_INTERNAL SCM scm_i_continuation_to_frame (SCM cont); SCM_INTERNAL void scm_i_continuation_call (SCM cont, size_t n, SCM *argv); |