X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrob.cc;h=f11e52a4fc588bbc6e94a0059870508b6907acdf;hb=73e40a0dd515fd996ee0918dd96b42a754f623d5;hp=9aeb95f65195822a2afbd10ac640a4cc46e0dd68;hpb=fac0d2eb9cbaf9ae45f36a7e1aa651d25932d459;p=lilypond.git

diff --git a/lily/grob.cc b/lily/grob.cc
index 9aeb95f651..f11e52a4fc 100644
--- a/lily/grob.cc
+++ b/lily/grob.cc
@@ -700,9 +700,8 @@ void
 Grob::warning (String s)const
 {
   SCM cause = self_scm();
-  while (cause != SCM_EOL && !unsmob_music (cause))
+  while (Grob * g = unsmob_grob (cause))
     {
-      Grob * g = unsmob_grob (cause);
       cause = g->get_grob_property ("cause");
     }