release: 1.3.106

[lilypond.git] / lily / key-performer.cc

diff --git a/lily/key-performer.cc b/lily/key-performer.cc
index 79fdac637e6468d4ed7882c82a072b88f93921df..f13cc85d7d6f828b5bf053497623dcdd335878a4 100644 (file)
--- a/lily/key-performer.cc
+++ b/lily/key-performer.cc
@@ -26,7 +26,8 @@ Key_performer::~Key_performer ()
 void
 Key_performer::do_process_music ()
 {
-  if (key_req_l_ && key_req_l_->get_mus_property ("pitch-alist") != SCM_UNDEFINED)
+  if (key_req_l_ &&
+      gh_list_p (key_req_l_->get_mus_property ("pitch-alist")))
     {
       audio_p_ = new Audio_key (); // *key_req_l_->key_);
       Audio_element_info info (audio_p_, key_req_l_);