X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fprofile-property-access.ly;h=3250a38d31bcff2fe194f5bc50bf4ebc69b095a9;hb=a87ae20fed95979a5b28eeafba09a12d942284e4;hp=39a41510d447a1a9507e3b19319830554a7cf243;hpb=e42585017a01fd02f6353b994cf0c87b03a7bb2e;p=lilypond.git

diff --git a/input/regression/profile-property-access.ly b/input/regression/profile-property-access.ly
index 39a41510d4..3250a38d31 100644
--- a/input/regression/profile-property-access.ly
+++ b/input/regression/profile-property-access.ly
@@ -1,15 +1,16 @@
 % -*- 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.10.8"
+\version "2.16.0"
 
-\include "../../input/typography-demo.ly"
+\include "typography-demo.ly"
 %\book { \score { {c4 } } }
 
 #(define (prop-stats>?  x y)
@@ -33,7 +34,7 @@
   (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"))))