diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/continuations.c | 6 | ||||
-rw-r--r-- | libguile/continuations.h | 2 | ||||
-rw-r--r-- | libguile/eval.c | 2 | ||||
-rw-r--r-- | libguile/vm-i-system.c | 4 |
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) |