X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fprob-scheme.cc;h=a9424da91f5479da82a5c9cf699dec332119e0f5;hb=38d60f8d090d915c34f5d4e6361bf86e75858f0d;hp=03c84eca4d081a943add1ce4d014514d8de6c4d0;hpb=958e95822083954cad00e0a598eb9f12ceba67b9;p=lilypond.git

diff --git a/lily/prob-scheme.cc b/lily/prob-scheme.cc
index 03c84eca4d..a9424da91f 100644
--- a/lily/prob-scheme.cc
+++ b/lily/prob-scheme.cc
@@ -67,7 +67,7 @@ LY_DEFINE (ly_prob_type_p, "ly:prob-type?",
            "Is @var{obj} the specified prob-type?")
 {
   Prob *prob = unsmob<Prob> (obj);
-  return scm_from_bool (prob && prob->type () == type);
+  return scm_from_bool (prob && scm_is_eq (prob->type (), type));
 }
 
 LY_DEFINE (ly_make_prob, "ly:make-prob",