mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-08 20:22:27 +02:00
Code Activity

Remove set-but-unused variables from libguile.

Browse source 
* libguile/filesys.c (scm_readdir): Remove set-but-unused `namlen' variable.
* libguile/fports.c (fport_flush): Same for `written'.
* libguile/gc-segment.c (scm_i_initialize_heap_segment_data): Same
  for `bvec_ptr'.
* libguile/posix.c (scm_nice): Same for `nice_value'.
* libguile/scmsigs.c (take_signal): Same for `count'.
* libguile/srfi-4.c (uvec_to_list): Same for `elts'.
* libguile/stacks.c (scm_stack_ref): Same for `c_index'.
* libguile/threads.c (scm_std_select): Same for `count'.
* libguile/throw.c (scm_ithrow): Same for `answer'.
* libguile/unif.c (scm_i_read_array): Same for `got_rank'.
This commit is contained in:
Ludovic Courtès 2012-05-23 14:55:38 +02:00
parent e254747644
commit 93f68a5ac4
10 changed files with 34 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/throw.c
View file

@ -1,5 +1,6 @@
/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2003, 2004, 2006, 2008 Free Software Foundation, Inc.
*
/* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2003, 2004, 2006, 2008,
* 2012 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
@ -752,7 +753,7 @@ scm_ithrow (SCM key, SCM args, int noreturn SCM_UNUSED)
{
struct pre_unwind_data *c =
(struct pre_unwind_data *) SCM_CELL_WORD_1 (jmpbuf);
SCM handle, answer;
SCM handle;
/* For old-style lazy-catch behaviour, we unwind the dynamic
context before invoking the handler. */
@ -776,7 +777,7 @@ scm_ithrow (SCM key, SCM args, int noreturn SCM_UNUSED)
c,
SCM_F_WIND_EXPLICITLY);
scm_dynwind_unwind_handler (toggle_pre_unwind_running, c, 0);
answer = (c->handler) (c->handler_data, key, args);
(c->handler) (c->handler_data, key, args);
/* There is deliberately no scm_dynwind_end call here. This
means that the unwind handler (toggle_pre_unwind_running)