(get_line): extract page-penalty from the left

[lilypond.git] / scm / document-markup.scm

diff --git a/scm/document-markup.scm b/scm/document-markup.scm
index 77c5d5228a2d1414d3eb75b327bfa18ce4b99fdc..ad02d4f3eded0dfd14ec4e3498555e7244a35e52 100644 (file)
--- a/scm/document-markup.scm
+++ b/scm/document-markup.scm
@@ -7,8 +7,7 @@
 
 (define (doc-markup-function func)
   (let*
-      (
-       (doc-str  (procedure-documentation func) )
+      ((doc-str  (procedure-documentation func) )
        (f-name (symbol->string (procedure-name  func)))
        (c-name (regexp-substitute/global #f "-markup$" f-name  'pre "" 'post))
        (sig (object-property func 'markup-signature))