diff options
author | Andy Wingo <wingo@pobox.com> | 2010-02-07 14:16:54 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-02-08 13:35:06 +0100 |
commit | 997659f898d94abccdcba3c444b84e3c6f6e963e (patch) | |
tree | 64f1ab2f9657b5f27d7cca16deddece915018dfe /libguile/vm-i-system.c | |
parent | babfc7b2c3fce452aa12fed8d89cd3fbc81e8cc8 (diff) | |
download | guile-997659f898d94abccdcba3c444b84e3c6f6e963e.tar.gz |
make scm_make_continuation internal
* libguile/continuations.h:
* libguile/continuations.c (scm_i_make_continuation): Change from
scm_make_continuation, and make internal.
* libguile/vm-i-system.c (call/cc, tail-call/cc): Adapt callers.
* test-suite/standalone/test-unwind.c (check_cont_body): Adapt a test.
* doc/ref/api-control.texi (Continuations): Update docs.
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r-- | libguile/vm-i-system.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 97b952187..de0210010 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -1093,7 +1093,7 @@ VM_DEFINE_INSTRUCTION (64, call_cc, "call/cc", 0, 1, 1) SCM proc, cont; POP (proc); SYNC_ALL (); - cont = scm_make_continuation (&first); + cont = scm_i_make_continuation (&first); if (first) { PUSH ((SCM)fp); /* dynamic link */ @@ -1130,7 +1130,7 @@ VM_DEFINE_INSTRUCTION (65, tail_call_cc, "tail-call/cc", 0, 1, 1) SCM proc, cont; POP (proc); SYNC_ALL (); - cont = scm_make_continuation (&first); + cont = scm_i_make_continuation (&first); ASSERT (sp == vp->sp); ASSERT (fp == vp->fp); if (first) |