X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fcxx-function-smob.cc;h=6ad764d796eb6bb723915659b4e9792b75490148;hb=71cc3b4a5adf79c361d2af39f1a361a36a03f273;hp=603a16203ed6892555da7fb9892d2b8218dc776c;hpb=e22333e86580918f2b5c5167fd4881758f4d43a7;p=lilypond.git

diff --git a/lily/cxx-function-smob.cc b/lily/cxx-function-smob.cc
index 603a16203e..6ad764d796 100644
--- a/lily/cxx-function-smob.cc
+++ b/lily/cxx-function-smob.cc
@@ -50,11 +50,7 @@ SCM
 smobify_cxx_function (Cxx_function cb)
 {
   SCM z;
-  
-  SCM_NEWCELL (z);
-  SCM_SETCDR (z, (SCM)cb);
-  SCM_SETCAR (z, (SCM)callback_tag);
-
+  SCM_NEWSMOB(z,callback_tag, cb) ;
   return z;
 }