fix clean-up of GCed log readers

svn: r11202
This commit is contained in:
Matthew Flatt 2008-08-12 15:28:42 +00:00
parent 162cbcbc07
commit 1993288ce2

View File

@ -2672,6 +2672,7 @@ void update_want_level(Scheme_Logger *logger)
if (lr) { if (lr) {
if (lr->want_level > want_level) if (lr->want_level > want_level)
want_level = lr->want_level; want_level = lr->want_level;
prev = queue;
} else { } else {
if (prev) if (prev)
SCHEME_CDR(prev) = SCHEME_CDR(queue); SCHEME_CDR(prev) = SCHEME_CDR(queue);