replace SCM_ASSERT_TYPE with LY_ASSERT_TYPE and friends

[lilypond.git] / lily / grob-interface-scheme.cc

diff --git a/lily/grob-interface-scheme.cc b/lily/grob-interface-scheme.cc
index 5d5947cbb7a88faac1028dc0f52a6a08249a319c..504087d59b8b5157a25aa23bfa773724cc9e6294 100644 (file)
--- a/lily/grob-interface-scheme.cc
+++ b/lily/grob-interface-scheme.cc
@@ -15,9 +15,9 @@ LY_DEFINE (ly_add_interface, "ly:add-interface",
           3, 0, 0, (SCM a, SCM b, SCM c),
           "Add an interface description.")
 {
-  SCM_ASSERT_TYPE (scm_is_symbol (a), a, SCM_ARG1, __FUNCTION__, "symbol");
-  SCM_ASSERT_TYPE (scm_is_string (b), b, SCM_ARG2, __FUNCTION__, "string");
-  SCM_ASSERT_TYPE (ly_is_list (c), c, SCM_ARG3, __FUNCTION__, "list of syms");
+  LY_ASSERT_FIRST_TYPE (ly_is_symbol, a);
+  LY_ASSERT_TYPE(scm_is_string, 2);
+  LY_ASSERT_TYPE(ly_is_list, 3);
   if (!all_ifaces)
     {
       SCM tab = scm_c_make_hash_table (59);