From 282179a209d1ccf74190c255fb78798aa5913460 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 23:11:00 +0000
Subject: [PATCH] lilypond-1.3.53

---
 lily/align-interface.cc | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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;
 }
 
-- 
2.39.5