From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 20 Oct 2006 13:59:44 +0000 (+0000)
Subject: (LY_DEFINE): explicit cast in case
X-Git-Tag: release/2.10.0-2~138
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4601f93e7262466cf15d845ccbe812e47fc9d346;p=lilypond.git

(LY_DEFINE): explicit cast in case
scm_t_int32 != int
---

diff --git a/ChangeLog b/ChangeLog
index 11291e3971..462fdc1226 100644
--- 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 2ede20deb1..2ba1cb3b36 100644
--- 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);
 }