X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flayout-beam.scm;h=0834024aa43ccaa71e9016348bbbf588f197050b;hb=3c5d87f50f30a7888b858410e6c5b0196cdf4163;hp=9f1840dd33d3197007467a45f7f2f0e374651b1e;hpb=8ceea06f2c26334f50ec15a1e092293fea4fc4bd;p=lilypond.git

diff --git a/scm/layout-beam.scm b/scm/layout-beam.scm
index 9f1840dd33..0834024aa4 100644
--- a/scm/layout-beam.scm
+++ b/scm/layout-beam.scm
@@ -1,9 +1,9 @@
 ;;;;
-;;;; beam.scm -- Beam scheme stuff
+;;;; layout-beam.scm -- Beam scheme stuff
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 2000--2007 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2000--2009 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 
 (define ((check-beam-quant posl posr) beam posns)
@@ -11,7 +11,7 @@
 . QUANT) pairs, where QUANT is -1 (hang), 0 (center), 1 (sit) or -2/ 2 (inter) 
 
 "
-  (let* ((thick (ly:grob-property beam 'thickness))
+  (let* ((thick (ly:grob-property beam 'beam-thickness))
 	 (layout (ly:grob-layout beam))
 	 (lthick (ly:output-def-lookup layout 'line-thickness))
 	 (staff-thick lthick) ; fixme.