From: Joe Neeman <joeneeman@gmail.com>
Date: Sat, 10 Feb 2007 12:25:12 +0000 (+0200)
Subject: Don't segfault if a note has a script without having a stem.
X-Git-Tag: release/2.11.18-1~5^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c88e21e0acc99efbb7e0a66b8e6c5ce83656ff8a;p=lilypond.git

Don't segfault if a note has a script without having a stem.
---

diff --git a/lily/script-interface.cc b/lily/script-interface.cc
index faa5504942..8e142179b4 100644
--- a/lily/script-interface.cc
+++ b/lily/script-interface.cc
@@ -71,7 +71,7 @@ Script_interface::calc_cross_staff (SCM smob)
 {
   Grob *me = unsmob_grob (smob);
   Grob *stem = Note_column::get_stem (me->get_parent (X_AXIS));
-  return stem->get_property ("cross-staff");
+  return scm_from_bool (stem && to_boolean (stem->get_property ("cross-staff")));
 }
 
 MAKE_SCHEME_CALLBACK (Script_interface, print, 1);