From: fred <fred>
Date: Tue, 26 Mar 2002 23:22:39 +0000 (+0000)
Subject: lilypond-1.3.58
X-Git-Tag: release/1.5.59~1596
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fa925071af68a249b8406c25e86c9280b006fea8;p=lilypond.git

lilypond-1.3.58
---

diff --git a/lily/font-metric.cc b/lily/font-metric.cc
index f11483f8f0..220eb2a469 100644
--- a/lily/font-metric.cc
+++ b/lily/font-metric.cc
@@ -131,6 +131,7 @@ Font_metric::print_smob (SCM s, SCM port, scm_print_state * )
   return 1;
 }
 
-IMPLEMENT_UNSMOB(Font_metric, metrics);
-IMPLEMENT_SMOBS(Font_metric);
+
+IMPLEMENT_UNSMOB (Font_metric, metrics);
+IMPLEMENT_SMOBS (Font_metric);
 
diff --git a/lily/score-element-callback.cc b/lily/score-element-callback.cc
index 9e81fe5aa0..a155603891 100644
--- a/lily/score-element-callback.cc
+++ b/lily/score-element-callback.cc
@@ -9,8 +9,7 @@
 
 #include "score-element-callback.hh"
 
-
-static long callback_tag;
+static SCM callback_tag;
 
 static
 SCM mark_smob (SCM)
@@ -49,8 +48,8 @@ smobify_callback (Score_element_callback cb )
   SCM z;
   
   SCM_NEWCELL(z);
-  SCM_SETCDR(z, cb);
-  SCM_SETCAR(z, callback_tag);
+  SCM_SETCDR (z, (SCM)cb);
+  SCM_SETCAR (z, (SCM)callback_tag);
 
   return z;
 }