From f826d378cecb14cab0e49649b2c7ec1e995e36bc Mon Sep 17 00:00:00 2001 From: Nicolas Sceaux Date: Sat, 25 Sep 2004 11:23:32 +0000 Subject: [PATCH] (read-lily-expression): use ~s in format instead of ~a, to get #{ #"foo" #} actually printed to #"foo". --- ChangeLog | 5 +++++ scm/ly-from-scheme.scm | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 0181fd1eef..663b468924 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-09-25 Nicolas Sceaux + + * 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 * 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 -- 2.39.5