summaryrefslogtreecommitdiff
path: root/libguile/vm-i-system.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-02-07 14:16:54 +0100
committerAndy Wingo <wingo@pobox.com>2010-02-08 13:35:06 +0100
commit997659f898d94abccdcba3c444b84e3c6f6e963e (patch)
tree64f1ab2f9657b5f27d7cca16deddece915018dfe /libguile/vm-i-system.c
parentbabfc7b2c3fce452aa12fed8d89cd3fbc81e8cc8 (diff)
downloadguile-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.c4
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)