From 448f824ef4e7f8ec9abdd7de05e2e7e74ef49730 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 00:33:30 +0000
Subject: [PATCH] lilypond-1.3.111

---
 lily/translator-group.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))
-- 
2.39.5