* cygwin/mknetrel: Install image links (backportme).

[lilypond.git] / scm / paper.scm

diff --git a/scm/paper.scm b/scm/paper.scm
index cf47f42b35beae640c81e423bd8826b39547327c..beb11e087eaf0ae447df28091433939342f17bae 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -30,12 +30,14 @@
   "Set the default staff size, where SZ is thought to be in PT."
   (let* ((old-mod (current-module))
         (pap (eval '$defaultpaper old-mod))
-
+        (is-paper? (module-defined? old-mod '$defaultpaper))
+       
 
         ;; Huh? Why is it necessary to clone object? 
         (new-paper (ly:output-def-clone pap))
         (new-scope (ly:output-def-scope new-paper)))
-    
+    (if (not is-paper?)
+       (ly:warn "Not in toplevel scope"))
     (set-current-module new-scope)
     (paper-set-staff-size (* sz (eval 'pt new-scope)))
     (set-current-module old-mod)