X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fprofile-property-access.ly;h=1e7453e3ec2fa79f7793789a121a337f85deb9ba;hb=1b365a919e294fe2956ea96dea20ace78c55738c;hp=641c24fe70c092138b4bc1f9749819ef972684cc;hpb=59fd89c32399b67464b217ba31502051c91bb919;p=lilypond.git

diff --git a/input/regression/profile-property-access.ly b/input/regression/profile-property-access.ly
index 641c24fe70..1e7453e3ec 100644
--- a/input/regression/profile-property-access.ly
+++ b/input/regression/profile-property-access.ly
@@ -1,3 +1,5 @@
+% -*- Scheme -*-
+
 \header {
   texidoc = "This file profiles property accesses; the log file shows the top properties examined."
 }
@@ -5,18 +7,24 @@
 
 #(ly:set-option 'profile-property-accesses #t)
 
-\version "2.10.8"
+\version "2.12.0"
 
-%\include "../../input/typography-demo.ly"
-\book { \score { {c4 } } }
+\include "typography-demo.ly"
+%\book { \score { {c4 } } }
 
-#(define (prop-stats>?  x y) (> (cdr x) (cdr y)))
+#(define (prop-stats>?  x y)
+  (cond
+   ((> (cdr x) (cdr y)) #t)
+   ((= (cdr x) (cdr y))
+    (symbol<? (car x) (car y)))
+   (else #f)))
 
 #(define (display-stats what)
   (let*
    ((count 50)
     (rnd 10)
-    (alist (hash-table->alist (ly:property-lookup-stats what)))
+    (round-to (lambda (x) (* rnd (inexact->exact (round (/ x rnd))))))
+    (alist (map (lambda (entry) (cons (car entry) (round-to (cdr entry)))) (hash-table->alist (ly:property-lookup-stats what))))
     (total (apply + (map cdr alist)))
    )
 
@@ -25,8 +33,8 @@
   (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) (* rnd (inexact->exact (round (/ (cdr x) rnd))))))
-     (take 
+    (map (lambda (x) (format "~30a: ~6@a" (car x) (cdr x)))
+     (ly:truncate-list! 
     (sort alist prop-stats>?) count))
     "\n"))))