From: fred <fred>
Date: Wed, 27 Mar 2002 00:33:30 +0000 (+0000)
Subject: lilypond-1.3.111
X-Git-Tag: release/1.5.59~1098
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=448f824ef4e7f8ec9abdd7de05e2e7e74ef49730;p=lilypond.git

lilypond-1.3.111
---

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index e2fdcdb4de..5b16536e94 100644
--- a/lily/translator-group.cc
+++ b/lily/translator-group.cc
@@ -396,7 +396,7 @@ type_check_assignment (SCM val, SCM sym,  SCM type_symbol)
   SCM type_p = SCM_EOL;
   SCM errport = scm_current_error_port ();
 
-  if (SCM_IMP(sym))
+  if (gh_symbol_p(sym))
     type_p = scm_object_property (sym, type_symbol);
 
   if (type_p != SCM_EOL && !gh_procedure_p (type_p))