]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/skyline-pair.cc
Issue 5167/6: Changes: show \markup xxx = ... \etc assignments
[lilypond.git] / lily / skyline-pair.cc
index 005b9b77cf88699a250fd2a3b0427d8e9439d3be..bab43494a6c68564cbae3886b64a543749a72c5f 100644 (file)
@@ -22,8 +22,6 @@
 
 #include "international.hh"
 
-ADD_SMOB_INIT (Skyline_pair);
-
 Skyline_pair::Skyline_pair ()
   : skylines_ (Skyline (DOWN), Skyline (UP))
 {
@@ -122,14 +120,14 @@ Skyline_pair::operator [] (Direction d) const
   return skylines_[d];
 }
 
-const char Skyline_pair::type_p_name_[] = "ly:skyline-pair?";
+const char * const Skyline_pair::type_p_name_ = "ly:skyline-pair?";
 
 
 MAKE_SCHEME_CALLBACK (Skyline_pair, skyline, 2);
 SCM
 Skyline_pair::skyline (SCM smob, SCM dir_scm)
 {
-  Skyline_pair *sp = Skyline_pair::unsmob (smob);
+  Skyline_pair *sp = unsmob<Skyline_pair> (smob);
   Direction dir = robust_scm2dir (dir_scm, UP);
 
   if (dir == CENTER)