smobs.hh: mention that GUILE 1 gives callable structs at most 3 args

[lilypond.git] / lily / pitch.cc

diff --git a/lily/pitch.cc b/lily/pitch.cc
index 4c5cb79e37620dfd4f347adc36c98b8f4888ebcb..14151783725519e4c8170f4bb51e712ca78c648a 100644 (file)
--- a/lily/pitch.cc
+++ b/lily/pitch.cc
@@ -26,8 +26,6 @@
 
 #include <cmath>
 
-ADD_SMOB_INIT (Pitch);
-
 Pitch::Pitch (int o, int n, Rational a)
 {
   notename_ = n;
@@ -254,8 +252,8 @@ MAKE_SCHEME_CALLBACK (Pitch, less_p, 2);
 SCM
 Pitch::less_p (SCM p1, SCM p2)
 {
-  Pitch *a = Pitch::unsmob (p1);
-  Pitch *b = Pitch::unsmob (p2);
+  Pitch *a = unsmob<Pitch> (p1);
+  Pitch *b = unsmob<Pitch> (p2);
 
   if (compare (*a, *b) < 0)
     return SCM_BOOL_T;