From: David Kastrup <dak@gnu.org>
Date: Sat, 27 Feb 2016 10:53:49 +0000 (+0100)
Subject: Issue 4718/2: Let transpose_music_list act defensively for non-Prob members
X-Git-Tag: release/2.19.38-1~17^2~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d8bd48a1e6beee87bd0bca2fcafb742b1ea6712b;p=lilypond.git

Issue 4718/2: Let transpose_music_list act defensively for non-Prob members
---

diff --git a/lily/music-sequence.cc b/lily/music-sequence.cc
index 049300442b..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<Prob> (scm_car (s))->transpose (rq);
+    if (Prob *p = unsmob<Prob> (scm_car (s)))
+      p->transpose (rq);
 }
 
 Moment