also work with -ddump-profile.

diff --git a/scm/lily.scm b/scm/lily.scm
index 8f2b1e1873a41473f75c7dbc107769d3e3511d81..d2b3ea95e7c79c2c9dd5f3138a7266e61e2043fe 100644 (file)
--- 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)))