remove skyline max-slope

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

diff --git a/lily/include/ly-smobs.icc b/lily/include/ly-smobs.icc
index 69495d7414cd5e361f81c0148b581acca6cb3038..99c09fc0435f3e51792fd3966bc507c88235d81d 100644 (file)
--- a/lily/include/ly-smobs.icc
+++ b/lily/include/ly-smobs.icc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1999--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 1999--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #ifndef LY_SMOBS_ICC
@@ -74,8 +74,8 @@
     void                                                               \
   CL::smobify_self ()                                                  \
   {                                                                    \
-    self_scm_ = unprotected_smobify_self ();                           \
     protection_cons_ = SCM_EOL;                                                \
+    self_scm_ = unprotected_smobify_self ();                           \
     protect ();                                                                \
   }                                                                    \
   void                                                                 \
@@ -86,7 +86,7 @@
   SCM                                                                  \
   CL::unprotect ()                                                     \
   {                                                                    \
-    unprotect_smob (&protection_cons_);                                        \
+    unprotect_smob (self_scm_, &protection_cons_);                     \
     return self_scm_;                                                  \
   }                                                                    \
   SCM                                                                  \