(LY_DEFINE): explicit cast in case

scm_t_int32 != int

diff --git a/ChangeLog b/ChangeLog
index 11291e397135105472db9e73be8e83e9f3e2d19b..462fdc12269ef94388876819d6ee7ea88b19c028 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-10-20  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+       * lily/general-scheme.cc (LY_DEFINE): explicit cast in case
+       scm_t_int32 != int
+
        * scm/output-svg.scm (pango-description-regexp-comma): Remove ^
        anchor.
 

diff --git a/lily/general-scheme.cc b/lily/general-scheme.cc
index 2ede20deb1eee6dc82d6bec8dd98f5108671bcf5..2ba1cb3b368661b333a7c354d3747b7790d72a4e 100644 (file)
--- a/lily/general-scheme.cc
+++ b/lily/general-scheme.cc
@@ -167,7 +167,7 @@ LY_DEFINE (ly_number2string, "ly:number->string",
       snprintf (str, sizeof (str), "%08.4f", r);
     }
   else
-    snprintf (str, sizeof (str), "%d", scm_to_int (s));
+    snprintf (str, sizeof (str), "%d", int (scm_to_int (s)));
 
   return scm_makfrom0str (str);
 }