Issue 4365: non-member unsmob<T> replaces T::unsmob and T::is_smob

[lilypond.git] / lily / prob.cc

diff --git a/lily/prob.cc b/lily/prob.cc
index a7245c653f5565f847d39d83ddb85f49559729f4..24ce604db90109fa24ac9fd01058b37cceef5ed2 100644 (file)
--- a/lily/prob.cc
+++ b/lily/prob.cc
@@ -36,7 +36,7 @@ Prob::equal_p (SCM sa, SCM sb)
      equality; e.g., that two probs are equal iff they can be
      distinguished by calls to ly:prob-property.
   */
-  Prob *probs[2] = {Prob::unsmob (sa), Prob::unsmob (sb)};
+  Prob *probs[2] = {unsmob<Prob> (sa), unsmob<Prob> (sb)};
   SCM props[2][2];
   int i;
 
@@ -62,7 +62,7 @@ Prob::equal_p (SCM sa, SCM sb)
           SCM aval = scm_cdar (aprop);
           SCM bval = scm_cdar (bprop);
           if (!scm_is_eq (scm_caar (aprop), scm_caar (bprop))
-              || (!(Input::is_smob (aval) && Input::is_smob (bval))
+              || (!(unsmob<Input> (aval) && unsmob<Input> (bval))
                   && !ly_is_equal (aval, bval)))
             return SCM_BOOL_F;
         }