2002-07-13 Han-Wen <hanwen@cs.uu.nl>

[lilypond.git] / lily / cxx-function-smob.cc

diff --git a/lily/cxx-function-smob.cc b/lily/cxx-function-smob.cc
index 603a16203ed6892555da7fb9892d2b8218dc776c..6ad764d796eb6bb723915659b4e9792b75490148 100644 (file)
--- 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;
 }