X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fprob-scheme.cc;h=a9424da91f5479da82a5c9cf699dec332119e0f5;hb=f02831f92e71ce43e3b67e06c0d46dc19ad9bde3;hp=03c84eca4d081a943add1ce4d014514d8de6c4d0;hpb=f1373c75d8f88e8806fd062df4ac3c10630a17f5;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",