From: Nicolas Sceaux <nicolas.sceaux@free.fr>
Date: Sat, 25 Sep 2004 11:23:32 +0000 (+0000)
Subject: (read-lily-expression): use ~s in format
X-Git-Tag: release/2.3.19~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f826d378cecb14cab0e49649b2c7ec1e995e36bc;p=lilypond.git

(read-lily-expression): use ~s in format
instead of ~a, to get #{ #"foo" #} actually printed to #"foo".
---

diff --git a/ChangeLog b/ChangeLog
index 0181fd1eef..663b468924 100644
--- 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 0b0d25dd53..f80c161b88 100644
--- 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