summaryrefslogtreecommitdiff
path: root/libguile/throw.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-03-22 16:06:39 +0100
committerAndy Wingo <wingo@pobox.com>2014-03-22 16:06:39 +0100
commit63b9e8b03f6eb6c87bb8fff8efa34831a69b8952 (patch)
treeb1450a12d40811cf773fabe1085e8eb39eebcc71 /libguile/throw.c
parentc2247b782a9234bb9aedee5204c30daf1d01a510 (diff)
downloadguile-63b9e8b03f6eb6c87bb8fff8efa34831a69b8952.tar.gz
Fix compile warnings
* libguile/throw.c (catch): Fix bad declarations. * libguile/stackchk.c (reset_scm_stack_checking_enabled_p): Remove unused static function.
Diffstat (limited to 'libguile/throw.c')
-rw-r--r--libguile/throw.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/throw.c b/libguile/throw.c
index b9a4ab514..bbde5e009 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -119,12 +119,13 @@ catch (SCM tag, SCM thunk, SCM handler, SCM pre_unwind_handler)
if (SCM_I_SETJMP (registers))
{
/* A non-local return. */
+ SCM args;
scm_gc_after_nonlocal_exit ();
/* FIXME: We know where the args will be on the stack; we could
avoid consing them. */
- SCM args = scm_i_prompt_pop_abort_args_x (vp);
+ args = scm_i_prompt_pop_abort_args_x (vp);
/* Cdr past the continuation. */
args = scm_cdr (args);