(read-lily-expression): use ~s in format

instead of ~a, to get #{ #"foo" #} actually printed to #"foo".

diff --git a/ChangeLog b/ChangeLog
index 0181fd1eeff8867ec00e13e01b6f5bf0872291c0..663b468924df1783037e5863d8058a5b72d1bbe0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-25  Nicolas Sceaux  <nicolas.sceaux@free.fr>
+
+       * scm/ly-from-scheme.scm (read-lily-expression): use ~s in format
+       instead of ~a, to get #{ #"foo" #} actually printed to #"foo".
+
 2004-09-24  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
        * lily/hairpin.cc (print): check columns of bounds, not bounds themselves.

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