From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 10 Jun 2007 04:02:55 +0000 (-0300)
Subject: ly:format: fix ~$ support
X-Git-Tag: release/2.11.27-1~15^2~4^2~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=57d0d06f052866d349d0dc80bca16adc32c785b1;p=lilypond.git

ly:format: fix ~$ support
---

diff --git a/lily/general-scheme.cc b/lily/general-scheme.cc
index f00d1938ab..48ee4503b1 100644
--- a/lily/general-scheme.cc
+++ b/lily/general-scheme.cc
@@ -475,14 +475,14 @@ LY_DEFINE (ly_format, "ly:format",
 	  int precision = 8;
 	  
 	  if (spec == '$')
-	    precision = '2';
+	    precision = 2;
 	  else if (isdigit (spec))
 	    {
 	      precision = spec - '0';
 	      spec = format.at (tilde ++);
 	    }
 	    	   
-	  if (spec == 'a' || spec == 'f')
+	  if (spec == 'a' || spec == 'A' || spec == 'f' || spec == '$')
 	    results.push_back (format_single_argument (arg, precision));
 	  else if (spec == 'l')
 	    {