Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / scm / paper.scm

diff --git a/scm/paper.scm b/scm/paper.scm
index 5cd99e70cdbda708e8809f464d54a18d40bace43..dae489f9b3511573f4730963e51aeb4c47dffffb 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -120,10 +120,11 @@
       (set-paper-dimensions module (car entry) (cdr entry))
 
       (module-define! module 'papersizename name)
-      (module-define! module 'landscape 
-                     (if landscape? #t #f)))
+
+      (if landscape?
+         (module-define! module 'landscape #t)))
      (else
-      (ly:warning (_ "Unknown papersize: ~a" name))))))
+      (ly:warning (_ ("Unknown papersize: ~a" name)))))))
 
 (define-safe-public (set-default-paper-size name . rest)
   (internal-set-paper-size