The grand \paper -> \layout, \bookpaper -> \paper renaming.

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

diff --git a/scm/framework-gnome.scm b/scm/framework-gnome.scm
index cd701d279b48d75d4bb724672e7014b0afea14e9..968d8132d1e0eddd0f4d3b811965ab88296c23d2 100644 (file)
--- a/scm/framework-gnome.scm
+++ b/scm/framework-gnome.scm
@@ -99,9 +99,9 @@
 
 
 (define (gnome-main book)
-  (let* ((book-paper (ly:paper-book-book-paper book))
-        (hsize (ly:output-def-lookup book-paper 'hsize))
-        (vsize (ly:output-def-lookup book-paper 'vsize))
+  (let* ((paper (ly:paper-book-paper book))
+        (hsize (ly:output-def-lookup paper 'hsize))
+        (vsize (ly:output-def-lookup paper 'vsize))
         (page-width (inexact->exact (ceiling (* OUTPUT-SCALE hsize))))
         (page-height (inexact->exact (ceiling (* OUTPUT-SCALE vsize))))
         ;;(page-width (inexact->exact (ceiling hsize)))