new file, move from

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 4cc714fdecf34ac05ae58d18c255ebed76b10f1b..537b5f03308ad35b8de7ce024db7e51a75531fd3 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -206,7 +206,7 @@
           (plain (font-command font #f))
           (designsize (ly:font-design-size font))
           (magnification (* (ly:font-magnification font)))
-          (ops (ly:paper-lookup paper 'outputscale))
+          (ops (ly:output-def-lookup paper 'outputscale))
           (scaling (* ops magnification designsize)))
 
       (string-append
@@ -275,7 +275,7 @@
    "%%Creator: " creator " " time-stamp "\n"
    "%%Pages: " (number->string page-count) "\n"
    "%%PageOrder: Ascend\n"
-   "%%DocumentPaperSizes: " (ly:paper-lookup paper 'papersize) "\n"
+   "%%DocumentPaperSizes: " (ly:output-def-lookup paper 'papersize) "\n"
    ;;(string-append "GNU LilyPond (" (lilypond-version) "), ")
    ;;     (strftime "%c" (localtime (current-time))))
    ;; FIXME: duplicated in every backend