(warning): better robustness fix.

[lilypond.git] / lily / grob.cc

diff --git a/lily/grob.cc b/lily/grob.cc
index 9aeb95f65195822a2afbd10ac640a4cc46e0dd68..f11e52a4fc588bbc6e94a0059870508b6907acdf 100644 (file)
--- 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");
     }