Code style...

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index e04b79963cc91a688994b8470fb60c00c1284fc0..624cc3bb01d6cdd719ee4b8f331376cb993cffce 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -120,18 +120,17 @@ the PDF backend."
 (define-builtin-markup-command (underline layout props arg) (markup?)
   "Underline @var{arg}.  Looks at @code{thickness} to determine line
 thickness and y offset."
-  (let* ((th (*
+  (let* ((thick (*
              (ly:output-def-lookup layout 'line-thickness)
              (chain-assoc-get 'thickness props 1)))
-        (m (interpret-markup layout props arg))
-        (x (cdr (ly:stencil-extent m X)))
-        (y (* th -2))
+        (markup (interpret-markup layout props arg))
+        (x (cdr (ly:stencil-extent markup X)))
+        (y (* thick -2))
         (line (ly:make-stencil
-               `(draw-line ,th 0 ,y ,x ,y)
+               `(draw-line ,thick 0 ,y ,x ,y)
                (cons (min x 0) (max x 0))
-               (cons th th)))
-        (s (ly:stencil-add m line)))
-    s))
+               (cons thick thick))))
+        (ly:stencil-add markup line)))
 
 (define-builtin-markup-command (box layout props arg) (markup?)
   "Draw a box round @var{arg}.  Looks at @code{thickness},