From: fred <fred>
Date: Tue, 26 Mar 2002 23:24:35 +0000 (+0000)
Subject: lilypond-1.3.71
X-Git-Tag: release/1.5.59~1490
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b783898fbbc5af4c86252013916536fb65cac46b;p=lilypond.git

lilypond-1.3.71
---

diff --git a/lily/score-element.cc b/lily/score-element.cc
index 47ca5c9eea..3c4af38059 100644
--- a/lily/score-element.cc
+++ b/lily/score-element.cc
@@ -97,11 +97,11 @@ Score_element::get_elt_property (const char *nm) const
 SCM
 Score_element::get_elt_property (SCM sym) const
 {
-  SCM s = scm_assq(sym, mutable_property_alist_);
+  SCM s = scm_sloppy_assq(sym, mutable_property_alist_);
   if (s != SCM_BOOL_F)
     return gh_cdr (s);
 
-  s = scm_assq (sym, immutable_property_alist_);
+  s = scm_sloppy_assq (sym, immutable_property_alist_);
   return (s == SCM_BOOL_F) ? SCM_UNDEFINED : gh_cdr (s); 
 }