(hideNotes): remove \setMmRestFermata

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

diff --git a/scm/ly-from-scheme.scm b/scm/ly-from-scheme.scm
index 43e6269c6e476e013e951e44ebc97956b2ee225c..0b0d25dd53b2d6bc57c7701b394228f0ee74c1ad 100644 (file)
--- a/scm/ly-from-scheme.scm
+++ b/scm/ly-from-scheme.scm
@@ -71,7 +71,10 @@ character."
                              (display (read-char port) out))  ;; pop the second $
                             ;; a #scheme expression
                             ((char=? c #\#)
-                             (format out "#~a" (remove-dollars! (read port))))
+                             (let ((expr (read port)))
+                               (format out "#~a" (if (eq? '$ expr)
+                                                     (create-binding! (read port))
+                                                     (remove-dollars! expr)))))
                             ;; other caracters
                             (else
                              (display c out))))))))