From: fred <fred>
Date: Tue, 26 Mar 2002 23:11:00 +0000 (+0000)
Subject: lilypond-1.3.53
X-Git-Tag: release/1.5.59~1676
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=282179a209d1ccf74190c255fb78798aa5913460;p=lilypond.git

lilypond-1.3.53
---

diff --git a/lily/align-interface.cc b/lily/align-interface.cc
index 9d5a00abf5..30e9fda247 100644
--- 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;
 }