source file of the GNU LilyPond music typesetter
- (c) 2002--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2002--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "grob-interface.hh"
#include "grob.hh"
#include "international.hh"
#include "protected-scm.hh"
-#include "std-string.hh"
#include "string-convert.hh"
#include "warn.hh"
#include "misc.hh"
-void add_interface (char const *cxx_name,
- char const *symbol,
+SCM add_interface (char const *cxx_name,
char const *descr,
char const *vars)
{
if (lispy_name.substr (end) != suffix)
lispy_name += suffix;
- if (lispy_name != string (symbol))
- programming_error (String_convert::form_string ("%s != %s", lispy_name.c_str (),
- symbol));
-
- SCM s = ly_symbol2scm (symbol);
- SCM d = scm_makfrom0str (descr);
+ SCM s = ly_symbol2scm (lispy_name.c_str ());
+ SCM d = scm_from_locale_string (descr);
SCM l = parse_symbol_list (vars);
- ly_add_interface (s, d, l);
+ internal_add_interface (s, d, l);
+
+ return s;
}
void