new file, move from

[lilypond.git] / scm / paper.scm

diff --git a/scm/paper.scm b/scm/paper.scm
index b6ab3761a5c1f828ed68f270c83a98598bd6f741..41fa80f54c63fb99166cfea1860d0ecd1291d7fe 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -109,13 +109,13 @@
   (let*
       ((scale (ly:bookpaper-outputscale bookpap))
        (new-pap (ly:output-def-clone pap))
-       (dim-vars (ly:paper-lookup pap 'dimension-variables))
+       (dim-vars (ly:output-def-lookup pap 'dimension-variables))
        (scope (ly:output-def-scope new-pap)))
 
     (for-each
      (lambda (v)
        (module-define! scope v
-                      (/ (ly:paper-lookup pap v) scale)))
+                      (/ (ly:output-def-lookup pap v) scale)))
      
      dim-vars)