From 57d0d06f052866d349d0dc80bca16adc32c785b1 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 10 Jun 2007 01:02:55 -0300
Subject: [PATCH] ly:format: fix ~$ support

---
 lily/general-scheme.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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')
 	    {
-- 
2.39.5