release: 1.3.58

[lilypond.git] / lily / include / ly-smobs.icc

diff --git a/lily/include/ly-smobs.icc b/lily/include/ly-smobs.icc
index fe5baaca0cfd41cb8951b7408a4ca0a639933703..f8454664ed05c401a3b75f7506ba50efcdce7b8a 100644 (file)
--- a/lily/include/ly-smobs.icc
+++ b/lily/include/ly-smobs.icc
@@ -10,9 +10,7 @@
 #ifndef LY_SMOBS_ICC
 #define LY_SMOBS_ICC
 
-#ifndef SCM_PACK
-#define SCM_PACK(x) ((SCM) x)
-#endif
+
 
 #define IMPLEMENT_UNSMOB(CL, name)             \
 CL *                                           \
@@ -29,7 +27,7 @@ SCM smobify (CL *cl)\
                                                                        \
   SCM_NEWCELL(s);                                                      \
   SCM_SETCAR(s,CL::smob_tag_);                                         \
-  SCM me_s = SCM_PACK (cl);                                                    \
+  SCM me_s = SCM_PACK(cl);                                                     \
   SCM_SETCDR (s, me_s); \
 return s;\
 }\