lilypond-1.3.53

diff --git a/lily/align-interface.cc b/lily/align-interface.cc
index 9d5a00abf52c975cbc657d7299738e7f361fd8ac..30e9fda247d358d28d0ba88cc0374151d3c66807 100644 (file)
--- a/lily/align-interface.cc
+++ b/lily/align-interface.cc
@@ -179,9 +179,10 @@ Align_interface::set_axis (Axis a)
 bool
 Align_interface::has_interface_b ()
 {
-  SCM memq = scm_memq (ly_symbol2scm ("Alignment"),
-             elt_l_->get_elt_property ("interfaces"));
+  SCM ifs  = elt_l_->get_elt_property ("interfaces");
+  if (!gh_pair_p (ifs))
+    return false;
   
-  return (memq != SCM_BOOL_F);
+  return scm_memq (ly_symbol2scm ("Alignment"), ifs) != SCM_BOOL_F;
 }