From 46c2a129bc702f9e621f6b0ea37bb8fe447fc52f Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sat, 6 Jan 2007 04:22:54 +0100 Subject: [PATCH] Oops: always do GC around file. Always do debug-gc-assert-parsed-dead check. --- scm/lily.scm | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) 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) -- 2.39.5