From 4636871eb1553366d92750f1dc7aeb8012bb81a0 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 2 Jan 2007 13:59:10 +0100 Subject: [PATCH] only call profile-measurements when appropriate. --- scm/lily.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/scm/lily.scm b/scm/lily.scm index d63890af0a..786c075d68 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) (tms:stime t)) @@ -569,7 +569,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))))) @@ -577,7 +577,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))) -- 2.39.2