ly:format: fix ~$ support

diff --git a/lily/general-scheme.cc b/lily/general-scheme.cc
index f00d1938ab56746bc948f2cdc6ddb2f1172f55e5..48ee4503b12f90d4478e60e65606f80ee390d21f 100644 (file)
--- 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')
            {