release: 1.3.53

[lilypond.git] / lily / axis-group-interface.cc

diff --git a/lily/axis-group-interface.cc b/lily/axis-group-interface.cc
index a9d868a3a94e9f11f05d40e7331d46d131866ceb..e7dcde019b882596ab22ffc871982726216d6b62 100644 (file)
--- a/lily/axis-group-interface.cc
+++ b/lily/axis-group-interface.cc
@@ -137,10 +137,11 @@ Axis_group_interface::get_children ()
 bool
 Axis_group_interface::has_interface_b ()
 {
-  SCM memq = scm_memq (ly_symbol2scm ("Axis_group"),
-                      elt_l_->get_elt_property ("interfaces"));
-  
-  return (memq != SCM_BOOL_F);
+  SCM ifs = elt_l_->get_elt_property ("interfaces");
+
+  if (!gh_pair_p (ifs ))
+    return false;
+  return scm_memq (ly_symbol2scm ("Axis_group"),ifs)  != SCM_BOOL_F;
 }