From 944d80fc95fc7d1c27ab841c8ff5005329822806 Mon Sep 17 00:00:00 2001 From: Nicolas Sceaux Date: Sun, 4 Jun 2006 16:36:26 +0000 Subject: [PATCH] (paper-system-annotate): fix problem when annotating an empty system --- ChangeLog | 5 +++++ scm/paper-system.scm | 16 +++++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 9eb93c21cd..ef423f0ebc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-06-04 Nicolas Sceaux + + * scm/paper-system.scm (paper-system-annotate): fix problem when + annotating an empty system + 2006-06-04 Han-Wen Nienhuys * GNUmakefile.in: reinstate old web tar/copying. diff --git a/scm/paper-system.scm b/scm/paper-system.scm index 43711a4ee1..2f22865b48 100644 --- 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 -- 2.39.5