lilypond-1.3.111

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index e2fdcdb4def6874a341535e87153f1137bcc6a83..5b16536e949dfa34b9adf518ae30faa78acb25c3 100644 (file)
--- 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))