make calc-blot from bar-line.scm public (issue 299250044 by address@hidden)

[thomasmorley65]

Reviewers: ,

Description:
make calc-blot from bar-line.scm public

To facilitate defining custom-bar-lines using
ly:round-filled-box

Please review this at https://codereview.appspot.com/299250044/

Affected files (+1, -1 lines):
  M scm/bar-line.scm


Index: scm/bar-line.scm
diff --git a/scm/bar-line.scm b/scm/bar-line.scm
index  
296d86787a828f57b248cd374303e6d8158cd5f9..0bdbc81a5a00ac9f7c338778720facc1631e6728  
100644
--- a/scm/bar-line.scm
+++ b/scm/bar-line.scm
@@ -27,7 +27,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; helper functions for staff and layout properties

-(define (calc-blot thickness extent grob)
+(define-public (calc-blot thickness extent grob)
   "Calculate the blot diameter by taking @code{'rounded}
 and the dimensions of the extent into account."
   (let* ((rounded (ly:grob-property grob 'rounded #f))