From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 2 Jan 2007 15:34:34 +0000 (+0100)
Subject: also work with -ddump-profile.
X-Git-Tag: release/2.11.8-1~39
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b376b419549015087a20b6a4d67e94b274cf682f;p=lilypond.git

also work with -ddump-profile.
---

diff --git a/scm/lily.scm b/scm/lily.scm
index 8f2b1e1873..d2b3ea95e7 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -568,7 +568,7 @@ The syntax is the same as `define*-public'."
 	))
   
   (let* ((failed '())
-	 (start-measurements (ly:get-option 'profile-measurements))
+	 (start-measurements (ly:get-option 'dump-profile))
 	 (handler (lambda (key failed-file)
 		    (set! failed (append (list failed-file) failed)))))
 
@@ -579,7 +579,7 @@ The syntax is the same as `define*-public'."
        (if start-measurements
 	   (set! start-measurements (profile-measurements)))
        (lilypond-file handler x)
-       (if (ly:get-option 'dump-profile)
+       (if start-measurements
 	   (dump-profile x start-measurements (profile-measurements)))