(default-script-alist): swap portato symbols.

[lilypond.git] / scm / ly-from-scheme.scm

diff --git a/scm/ly-from-scheme.scm b/scm/ly-from-scheme.scm
index f80c161b88b7076a1e031bf4f4bd51d28df3ad7b..048061e85b2b483ce1ad0e3300a414a52474d610 100644 (file)
--- a/scm/ly-from-scheme.scm
+++ b/scm/ly-from-scheme.scm
@@ -68,7 +68,8 @@ character."
                              (format out "\\~a" (create-binding! (read port))))
                             ;; just a $ character
                             ((and (char=? c #\$) (char=? (peek-char port) #\$))
-                             (display (read-char port) out))  ;; pop the second $
+                            ;; pop the second $
+                             (display (read-char port) out))
                             ;; a #scheme expression
                             ((char=? c #\#)
                              (let ((expr (read port)))