From 9f705eea85531369f10330aed9268f0b0ef8b7fa Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sat, 8 Sep 2012 16:40:39 +0200 Subject: [PATCH] Issue 2754 cleanup: Only complain once about any undead object Embarrassingly, commit 2ea3798f3473a7dd02b85ac311aa9b8de4938c3c only implemented the requisite fix in one place. This replicates the code for avoiding duplicate error messages at the second call place of ly:parsed-undead-list! in lily.scm. --- scm/lily.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/scm/lily.scm b/scm/lily.scm index 35a16019a1..74c5562f48 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -843,10 +843,13 @@ PIDs or the number of the process." (ly:set-option 'debug-gc-assert-parsed-dead #t) (gc) (ly:set-option 'debug-gc-assert-parsed-dead #f) - (for-each - (lambda (x) - (ly:programming-error "Parsed object should be dead: ~a" x)) - (ly:parsed-undead-list!)) + (for-each + (lambda (x) + (if (not (hashq-ref gc-zombies x)) + (begin + (ly:programming-error "Parsed object should be dead: ~a" x) + (hashq-set! gc-zombies x #t)))) + (ly:parsed-undead-list!)) (if (ly:get-option 'debug-gc) (dump-gc-protects) (ly:reset-all-fonts)) -- 2.39.5