summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
Diffstat (limited to 'libguile')
-rw-r--r--libguile/continuations.c6
-rw-r--r--libguile/continuations.h2
-rw-r--r--libguile/eval.c2
-rw-r--r--libguile/vm-i-system.c4
4 files changed, 7 insertions, 7 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c
index e8e91d1ea..6caceca53 100644
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -60,7 +60,7 @@ static scm_t_bits tc16_continuation;
-/* scm_make_continuation will return a procedure whose objcode contains an
+/* scm_i_make_continuation will return a procedure whose objcode contains an
instruction to reinstate the continuation. Here, as in gsubr.c and smob.c, we
define the form of that trampoline function.
*/
@@ -189,9 +189,9 @@ continuation_print (SCM obj, SCM port, scm_print_state *state SCM_UNUSED)
/* this may return more than once: the first time with the escape
procedure, then subsequently with the value to be passed to the
continuation. */
-#define FUNC_NAME "scm_make_continuation"
+#define FUNC_NAME "scm_i_make_continuation"
SCM
-scm_make_continuation (int *first)
+scm_i_make_continuation (int *first)
{
scm_i_thread *thread = SCM_I_CURRENT_THREAD;
SCM cont;
diff --git a/libguile/continuations.h b/libguile/continuations.h
index 17960a7a9..93b8dc750 100644
--- a/libguile/continuations.h
+++ b/libguile/continuations.h
@@ -71,7 +71,7 @@ typedef struct
-SCM_API SCM scm_make_continuation (int *first);
+SCM_INTERNAL SCM scm_i_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);
diff --git a/libguile/eval.c b/libguile/eval.c
index f6b42c5a8..6cfe43807 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009
+/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
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)