(paper-system-annotate): fix problem when

annotating an empty system

diff --git a/ChangeLog b/ChangeLog
index 9eb93c21cd456c1dd382fafef04336fea546aea3..ef423f0ebc6b9f08f7181b58385e2b49aa925604 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-04  Nicolas Sceaux  <nicolas.sceaux@free.fr>
+
+       * scm/paper-system.scm (paper-system-annotate): fix problem when
+       annotating an empty system
+
 2006-06-04  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
        * GNUmakefile.in: reinstate old web tar/copying.

diff --git a/scm/paper-system.scm b/scm/paper-system.scm
index 43711a4ee1c94ea7536c4910281b766842ff60c6..2f22865b4830fed7e6a7b2c06611d27da78f3ad6 100644 (file)
--- a/scm/paper-system.scm
+++ b/scm/paper-system.scm
@@ -128,10 +128,12 @@
                                 (+ next-space next-padding)
                                 "refpoint-Y-extent" "next-space+padding"
                                 "space after next-space+padding"))
-    (set! (ly:prob-property system 'stencil)
-         (ly:stencil-add
-          (ly:prob-property system 'stencil)
-          (ly:make-stencil
-           (ly:stencil-expr annotations)
-           (ly:stencil-extent empty-stencil X)
-           (ly:stencil-extent empty-stencil Y))))))
+    (if (not (null? annotations))
+       (set! (ly:prob-property system 'stencil)
+             (ly:stencil-add
+              (ly:prob-property system 'stencil)
+              (ly:make-stencil
+               (ly:stencil-expr annotations)
+               (ly:stencil-extent empty-stencil X)
+               (ly:stencil-extent empty-stencil Y)))))
+    (ly:prob-property system 'stencil)))
\ No newline at end of file