mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

* threads.c (s_scm_lock_mutex): Don't declare msg in middle of

Browse source 
code.

* gc.c (s_scm_gc_live_object_stats): Don't declare alist in middle
of code.

* gc-card.c (scm_i_card_statistics): Don't declare tag in middle
of code.
(scm_i_card_statistics): Add block for declarations of tag_as_scm
and current.
This commit is contained in:
Neil Jerram 2005-05-11 07:41:36 +00:00
parent 229a07109c
commit b01532af77
4 changed files with 29 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/threads.c
View file

@ -883,9 +883,9 @@ SCM_DEFINE (scm_lock_mutex, "lock-mutex", 1, 0, 0,
"thread. That is, Guile's mutexes are @emph{recursive}. ")
#define FUNC_NAME s_scm_lock_mutex
{
SCM_VALIDATE_MUTEX (1, mx);
char *msg;
SCM_VALIDATE_MUTEX (1, mx);
msg = fat_mutex_lock (mx);
if (msg)
scm_misc_error (NULL, msg, SCM_EOL);