SCM glyph = s->get_property ("glyph-name");
- if (gh_string_p (glyph))
+ if (scm_is_string (glyph))
{
String str = ly_scm2string (glyph);
{
Grob *me = unsmob_grob (smob);
SCM glyph_scm = me->get_property ("glyph-name");
- if (!gh_string_p (glyph_scm))
+ if (!scm_is_string (glyph_scm))
return SCM_EOL;
String glyph = String (ly_scm2string (glyph_scm));