diff options
author | Andy Wingo <wingo@pobox.com> | 2014-03-22 16:06:39 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-03-22 16:06:39 +0100 |
commit | 63b9e8b03f6eb6c87bb8fff8efa34831a69b8952 (patch) | |
tree | b1450a12d40811cf773fabe1085e8eb39eebcc71 /libguile/throw.c | |
parent | c2247b782a9234bb9aedee5204c30daf1d01a510 (diff) | |
download | guile-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.c | 3 |
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); |