From 929c5e8ed2ff44d60a6b7f403ba0762a99597458 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 2 Jan 2007 13:56:53 +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 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))) -- 2.39.2