ly- -> ly:

[lilypond.git] / scm / pdftex.scm

diff --git a/scm/pdftex.scm b/scm/pdftex.scm
index 873697fff568fe98b65ada94cb3e4c1a19bf5daf..779cb016dc42eec4fa7e77480a5e9a9ea3142d00 100644 (file)
--- a/scm/pdftex.scm
+++ b/scm/pdftex.scm
@@ -36,10 +36,10 @@
          (display (object-type (car name-mag-pair)))
          (display (object-type (caaar font-name-alist)))
 
-         (ly-warn (string-append
+         (ly:warn (string-append
                    "Programming error: No such font known "
                    (car name-mag-pair) " "
-                   (ly-number->string (cdr name-mag-pair))
+                   (ly:number->string (cdr name-mag-pair))
                    ))
          "") ; issue no command
        (string-append "\\" (cddr c)))
@@ -67,7 +67,7 @@
    "\\font\\" command "="
    (car name-mag)
    " scaled "
-   (ly-number->string (inexact->exact (* 1000  (cdr name-mag))))
+   (ly:number->string (inexact->exact (* 1000  (cdr name-mag))))
    "\n"))
 
 (define (ez-ball c l b)
@@ -160,9 +160,9 @@
   (string-append
    "\\def\\lilyoutputscalefactor{"
    (number->string (cond
-                   ((equal? (ly-unit) "mm") (/ 72.0  25.4))
-                   ((equal? (ly-unit) "pt") (/ 72.0  72.27))
-                   (else (error "unknown unit" (ly-unit)))
+                   ((equal? (ly:unit) "mm") (/ 72.0  25.4))
+                   ((equal? (ly:unit) "pt") (/ 72.0  72.27))
+                   (else (error "unknown unit" (ly:unit)))
                    ))
    "}%\n"
    "\\input lilyponddefs\n"
@@ -200,8 +200,8 @@
 
 (define (number->dim x)
   (string-append
-   ;;ugh ly-* in backend needs compatibility func for standalone output
-   (ly-number->string x) " \\outputscale "))
+   ;;ugh ly:* in backend needs compatibility func for standalone output
+   (ly:number->string x) " \\outputscale "))
 
 (define (placebox x y s) 
   (string-append