- if (gh_symbol_p (gl) && gl == ly_symbol2scm ("brace")
- && gh_symbol_p (my_gl) && my_gl == ly_symbol2scm ("bracket"))
- inf.grob_l_->translate_axis (-0.8, X_AXIS); // ugh
- else if (gh_symbol_p (gl) && gl == ly_symbol2scm ("bracket")
- && gh_symbol_p (my_gl) && my_gl == ly_symbol2scm ("bracket"))
+ if (scm_is_string (gl) && ly_c_equal_p (gl, scm_makfrom0str ("brace"))
+ && scm_is_string (my_gl) && ly_c_equal_p (my_gl, scm_makfrom0str ("bracket")))
+ inf.grob_->translate_axis (-0.8, X_AXIS); // ugh
+ else if (scm_is_string (gl) && ly_c_equal_p (gl, scm_makfrom0str ("bracket"))
+ && scm_is_string (my_gl) && ly_c_equal_p (my_gl, scm_makfrom0str ("bracket")))