thinko: it's ly:get-option, not ly:option.

diff --git a/scm/lily.scm b/scm/lily.scm
index 6f2f09d2e6f5ed67475f926c4a8b71c0b9fe0ddf..bddf997764e03ca8d930f66875748749d445aa13 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -416,7 +416,7 @@ The syntax is the same as `define*-public'."
     (ly:progress "\nWriting timing to ~a..." outname)
     (format (open-file outname "w")
            "time: ~a\ncells: ~a\n"
-           (if (ly:option 'dump-cpu-profile)
+           (if (ly:get-option 'dump-cpu-profile)
                (car diff)
                0)
            (cadr diff)