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

Fix bug in remqueue in threads.c when removing last element.

Browse source 
Reported and debugged by Andrew Gaylard <ag@computer.org>.

* libguile/threads.c (remqueue): When removing the last element from a
  queue with more than one element, set (car q) to the previous element.

* THANKS: Thank Andrew Gaylard.
This commit is contained in:
Mark H Weaver 2013-06-17 14:43:58 -04:00
parent b16bf64639
commit 10454601e0
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/threads.c
View file

@ -327,7 +327,7 @@ remqueue (SCM q, SCM c)
if (scm_is_eq (p, c))
{
if (scm_is_eq (c, SCM_CAR (q)))
SCM_SETCAR (q, SCM_CDR (c));
SCM_SETCAR (q, scm_is_eq (prev, q) ? SCM_EOL : prev);
SCM_SETCDR (prev, SCM_CDR (c));
/* GC-robust */