Fix some bugs in the dynamic engraver and PostScript backend

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

diff --git a/lily/include/ly-smobs.icc b/lily/include/ly-smobs.icc
index 99c09fc0435f3e51792fd3966bc507c88235d81d..2475b8ca751daebe3db6e80163dc75013dd2b378 100644 (file)
--- a/lily/include/ly-smobs.icc
+++ b/lily/include/ly-smobs.icc
@@ -74,8 +74,8 @@
     void                                                               \
   CL::smobify_self ()                                                  \
   {                                                                    \
-    protection_cons_ = SCM_EOL;                                                \
     self_scm_ = unprotected_smobify_self ();                           \
+    protection_cons_ = SCM_EOL;                                                \
     protect ();                                                                \
   }                                                                    \
   void                                                                 \
@@ -86,7 +86,7 @@
   SCM                                                                  \
   CL::unprotect ()                                                     \
   {                                                                    \
-    unprotect_smob (self_scm_, &protection_cons_);                     \
+    unprotect_smob (&protection_cons_);                                        \
     return self_scm_;                                                  \
   }                                                                    \
   SCM                                                                  \