From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 2 Jan 2007 12:56:53 +0000 (+0100)
Subject: only call profile-measurements when appropriate.
X-Git-Tag: release/2.11.8-1~43
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=929c5e8ed2ff44d60a6b7f403ba0762a99597458;p=lilypond.git

only call profile-measurements when appropriate.
---

diff --git a/scm/lily.scm b/scm/lily.scm
index 373012008b..8f2b1e1873 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -357,7 +357,7 @@ The syntax is the same as `define*-public'."
 (define (profile-measurements)
   (let* ((t (times))
 	 (stats (gc-stats)))
-
+    
     (list
      (- (tms:utime t)
 	(ly:assoc-get 'gc-time-taken stats))
@@ -568,7 +568,7 @@ The syntax is the same as `define*-public'."
 	))
   
   (let* ((failed '())
-	 (start-measurements #f)
+	 (start-measurements (ly:get-option 'profile-measurements))
 	 (handler (lambda (key failed-file)
 		    (set! failed (append (list failed-file) failed)))))
 
@@ -576,7 +576,8 @@ The syntax is the same as `define*-public'."
      (lambda (x)
 
        (gc)
-       (set! start-measurements (profile-measurements))
+       (if start-measurements
+	   (set! start-measurements (profile-measurements)))
        (lilypond-file handler x)
        (if (ly:get-option 'dump-profile)
 	   (dump-profile x start-measurements (profile-measurements)))