X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-sequence.cc;h=644ba9beb727e5982603ba69485a1c4dfdda15b2;hb=97a0169312a260933246ab224e4f8b0969871dd5;hp=d280953714b820c25513cd4e54ddf89b84b2ba80;hpb=0c14539bc83d6bb405141b6f21430b33d1e8fcf0;p=lilypond.git

diff --git a/lily/music-sequence.cc b/lily/music-sequence.cc
index d280953714..644ba9beb7 100644
--- a/lily/music-sequence.cc
+++ b/lily/music-sequence.cc
@@ -30,7 +30,8 @@ void
 transpose_music_list (SCM lst, Pitch rq)
 {
   for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
-    unsmob<Music> (scm_car (s))->transpose (rq);
+    if (Prob *p = unsmob<Prob> (scm_car (s)))
+      p->transpose (rq);
 }
 
 Moment