ly- -> ly:

[lilypond.git] / scm / ascii-script.scm

diff --git a/scm/ascii-script.scm b/scm/ascii-script.scm
index d25c81946871621175b03bd5cf063347878cc0bf..c964fcf52f86e3943ba6fa20d366dda8e0ef268a 100644 (file)
--- a/scm/ascii-script.scm
+++ b/scm/ascii-script.scm
@@ -197,7 +197,7 @@
   (let* ((c (assoc name-mag-pair font-name-alist)))
     (if (eq? c #f)
        (begin
-         (ly-warn 
+         (ly:warn 
           (string-append 
            "Programming error: No such font known " 
            (car name-mag-pair))))