X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fpaper-system.scm;h=55e48ebed8dd402a2ad29b5a7388753667c33b8e;hb=b0d10f15ca87e1cf26d9fe1d46114c843bdb083f;hp=d3a140531fac845276815dc18dccb11426bbdac3;hpb=920dccaf627f00ec2d5bbd49ffeb9ad01236da3b;p=lilypond.git

diff --git a/scm/paper-system.scm b/scm/paper-system.scm
index d3a140531f..55e48ebed8 100644
--- a/scm/paper-system.scm
+++ b/scm/paper-system.scm
@@ -17,6 +17,14 @@
 (define-public (paper-system-stencil system)
   (ly:prob-property system 'stencil))
 
+(define-public (paper-system-layout system)
+  (let*
+      ((g (paper-system-system-grob system)))
+
+    (if (ly:grob? g)
+	(ly:grob-layout  g)
+	#f)))
+
 (define-public (paper-system-system-grob paper-system)
   (ly:prob-property paper-system 'system-grob))
 
@@ -150,4 +158,4 @@
 		(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
+    (ly:prob-property system 'stencil)))