From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 6 Jan 2007 03:22:54 +0000 (+0100)
Subject: Oops: always do GC around file.  Always do debug-gc-assert-parsed-dead check.
X-Git-Tag: release/2.11.10-1~75
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=46c2a129bc702f9e621f6b0ea37bb8fe447fc52f;p=lilypond.git

Oops: always do GC around file.  Always do debug-gc-assert-parsed-dead check.
---

diff --git a/scm/lily.scm b/scm/lily.scm
index c0e6fd911f..32bd7607ea 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -583,13 +583,12 @@ The syntax is the same as `define*-public'."
 	 (handler (lambda (key failed-file)
 		    (set! failed (append (list failed-file) failed)))))
 
+    (gc)
     (for-each
      (lambda (x)
        (let*
 	   ((start-measurements (if do-measurements
-				    (begin
-				      (gc)
-				      (profile-measurements))
+				    (profile-measurements)
 				    #f))
 	    (base (basename x ".ly"))
 	    (all-settings (ly:all-options)))
@@ -607,6 +606,14 @@ The syntax is the same as `define*-public'."
 	  all-settings)
 	 
 	 (ly:clear-anonymous-modules)
+
+	 
+	 (display gui-main)
+	 (ly:set-option 'debug-gc-assert-parsed-dead #t)
+	 (gc)
+	 (ly:set-option 'debug-gc-assert-parsed-dead #f)
+	 
+	 
 	 (if (ly:get-option 'debug-gc)
 	     (dump-gc-protects)
 	     (if (= (random 40) 1)