From: David Kastrup <dak@gnu.org>
Date: Sat, 8 Sep 2012 14:40:39 +0000 (+0200)
Subject: Issue 2754 cleanup: Only complain once about any undead object
X-Git-Tag: release/2.17.2-1~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9f705eea85531369f10330aed9268f0b0ef8b7fa;p=lilypond.git

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.
---

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))