source file of the GNU LilyPond music typesetter
- (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
if (f)
return f;
- warning (_f ("Can't find font: `%s'", name.ch_C ()));
+ warning (_f ("can't find font: `%s'", name.ch_C ()));
warning (_ ("Loading default font"));
String def_name = default_font_sz_;
- SCM l = ly_eval_str ("(style-to-cmr \"default\")");
+ SCM l = scm_eval (gh_list (ly_symbol2scm ("style-to-cmr"),
+ ly_str02scm ("default"),
+ SCM_UNDEFINED));
+
if (l != SCM_BOOL_F)
def_name = ly_scm2string (gh_cdr (l));
if (f)
return f;
- error (_f ("Can't find default font: `%s'", def_name.ch_C ()));
- error (_f ("(search path: `%s'", search_path_.str ()));
+ error (_f ("can't find default font: `%s'", def_name.ch_C ()));
+ error (_f ("(search path: `%s')", search_path_.str ()));
error (_ ("Giving up"));
return 0;