Run scripts/auxiliar/update-with-convert-ly.sh

[lilypond.git] / scm / bar-line.scm

diff --git a/scm/bar-line.scm b/scm/bar-line.scm
index 809a08ca4888d3d63878ebdf85a0b0cbb41b54a6..b432386372589e78b246014ff56be8064d3752a5 100644 (file)
--- a/scm/bar-line.scm
+++ b/scm/bar-line.scm
@@ -135,14 +135,14 @@ mandatory to the procedures stored in @code{bar-glyph-print-procedures}."
 
 (define (string->string-list str)
   "Convert a string into a list of strings with length 1.
-@code{"aBc"} will be converted to @code{("a" "B" "c")}.
-An empty string will be converted to a list containing @code{""}."
-(if (and (string? str)
-         (not (zero? (string-length str))))
-    (map (lambda (s)
-           (string s))
-         (string->list str))
-    (list "")))
+@code{\"aBc\"} will be converted to @code{(\"a\" \"B\" \"c\")}.
+An empty string will be converted to a list containing @code{\"\"}."
+  (if (and (string? str)
+           (not (zero? (string-length str))))
+      (map (lambda (s)
+             (string s))
+           (string->list str))
+      (list "")))
 
 (define (strip-string-annotation str)
   "Strip annotations starting with and including the
@@ -196,24 +196,24 @@ annotation char from string @var{str}."
 ;; Line break decisions.
 
 (define-public (define-bar-line bar-glyph eol-glyph bol-glyph span-glyph)
-  "Define a bar glyph @var{bar-glyph} and its substitute at the end of a line
-(@var{eol-glyph}), at the beginning of a new line (@var{bol-glyph})
+  "Define a bar glyph @var{bar-glyph} and its substitute at the end of
+a line (@var{eol-glyph}), at the beginning of a new line (@var{bol-glyph})
 and as a span bar (@var{span-glyph}) respectively."
   ;; the last argument may not include annotations
   (check-for-annotation span-glyph)
   ;; only the last argument may call for replacements
   (for-each (lambda (s)
-                    (check-for-replacement s))
+              (check-for-replacement s))
             (list bar-glyph eol-glyph bol-glyph))
   ;; the bar-glyph-alist has entries like
   ;; (bar-glyph . ( eol-glyph . bol-glyph))
   (set! bar-glyph-alist
-    (acons bar-glyph (cons eol-glyph bol-glyph) bar-glyph-alist))
+        (acons bar-glyph (cons eol-glyph bol-glyph) bar-glyph-alist))
 
   ;; the span-bar-glyph-alist has entries like
   ;; (bar-glyph . span-glyph)
   (set! span-bar-glyph-alist
-    (acons bar-glyph span-glyph span-bar-glyph-alist)))
+        (acons bar-glyph span-glyph span-bar-glyph-alist)))
 
 (define-session bar-glyph-alist '())