#include "context.hh"
#include "international.hh"
-#include "item.hh"
#include "lilypond-key.hh"
#include "music.hh"
#include "paper-column.hh"
"the grob to be created and the corresponding line number in the "
"C++ source file.")
{
- if (!ly_is_procedure (cb))
- warning (_ ("not setting creation callback: not a procedure"));
- else
- creation_callback = cb;
+ SCM_ASSERT_TYPE(ly_is_procedure (cb), cb, SCM_ARG1, __FUNCTION__,
+ "procedure");
- return SCM_EOL;
+ creation_callback = cb;
+
+ return SCM_UNSPECIFIED;
}
#endif
#ifndef NDEBUG
if (ly_is_procedure (creation_callback))
scm_apply_0 (creation_callback,
- scm_list_n (grob->self_scm (), scm_makfrom0str (file),
- scm_from_int (line), scm_makfrom0str (fun), SCM_UNDEFINED));
+ scm_list_n (grob->self_scm (), scm_from_locale_string (file),
+ scm_from_int (line), scm_from_locale_string (fun), SCM_UNDEFINED));
#endif
return grob;