% -*- Scheme -*-
\header {
- texidoc = "This file profiles property accesses; the log file shows the top properties examined."
+ texidoc = "This file profiles property accesses; the log file shows the top properties examined.
+Note: lilypond must be compiled with --disable-optimising for this file to work."
}
#(ly:set-option 'profile-property-accesses #t)
-\version "2.12.0"
+\version "2.14.0"
-\include "../../input/typography-demo.ly"
+\include "typography-demo.ly"
%\book { \score { {c4 } } }
#(define (prop-stats>? x y)
(ly:progress "\n\n~A properties, top ~a rounded to ~a\n\n~a"
what count rnd
(string-join
- (map (lambda (x) (format "~30a: ~6@a" (car x) (cdr x)))
+ (map (lambda (x) (format #f "~30a: ~6@a" (car x) (cdr x)))
(ly:truncate-list!
(sort alist prop-stats>?) count))
"\n"))))