release: 1.5.36

[lilypond.git] / lily / translator-group.cc

diff --git a/lily/translator-group.cc b/lily/translator-group.cc
index fe46960c4eb1898124280f3c6bf7985e7e8ef252..2938b2b7cd7b1cbdb3ca74a2d0c33db471410b8e 100644 (file)
--- a/lily/translator-group.cc
+++ b/lily/translator-group.cc
@@ -414,25 +414,21 @@ ly_get_trans_property (SCM context, SCM name)
 {
   Translator *t = unsmob_translator (context);
   Translator_group* tr=   dynamic_cast<Translator_group*> (t);
-  if (!t || !tr)
-    {
-      /* programming_error? */
-      warning (_ ("ly-get-trans-property: expecting a Translator_group argument"));
-      return SCM_EOL;
-    }
+  SCM_ASSERT_TYPE(tr, context, SCM_ARG1, __FUNCTION__, "Translator group");
+  SCM_ASSERT_TYPE(gh_symbol_p(name), name, SCM_ARG2, __FUNCTION__, "symbol");
+
   return tr->internal_get_property (name);
   
 }
 SCM
 ly_set_trans_property (SCM context, SCM name, SCM val)
 {
-
   Translator *t = unsmob_translator (context);
   Translator_group* tr=   dynamic_cast<Translator_group*> (t);
-  if (tr)
-    {
-      tr->internal_set_property (name, val);
-    }
+
+  SCM_ASSERT_TYPE(tr, context, SCM_ARG1, __FUNCTION__, "Translator group");
+  tr->internal_set_property (name, val);
+
   return SCM_UNSPECIFIED;
 }