Merge fix.

[lilypond.git] / scm / framework-tex.scm

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index eb7e867cb9ef2d6181c97b57ce69cac0a01ab382..38c085a48edf60c25df89dc8d1a62cb280529680 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -281,15 +281,14 @@
      )))
 
 (define-public (convert-to-ps book name)
-  (let*
-      ((bookpaper  (ly:paper-book-book-paper book))
-       (papersize (ly:output-def-lookup bookpaper 'papersizename))
-       (landscape? (eq? #t (ly:output-def-lookup bookpaper 'landscape)))
-       (cmd (string-append "dvips -t " papersize
-                          (if landscape? " -t landscape " " ") 
-                          "  -u+ec-mftrace.map -u+lilypond.map -Ppdf "
-                          (basename name ".tex"))))
-
+  (let* ((paper (ly:paper-book-paper book))
+        (papersize (ly:output-def-lookup paper 'papersizename))
+        (landscape? (eq? #t (ly:output-def-lookup paper 'landscape)))
+        (cmd (string-append "dvips -t " papersize
+                            (if landscape? " -t landscape " " ") 
+                            "  -u+ec-mftrace.map -u+lilypond.map -Ppdf "
+                            (basename name ".tex"))))
+    
     (display (format #f (_ "Invoking ~S") cmd) (current-error-port))
     (newline (current-error-port))
     (system cmd)))