- */
- if (ly_c_string_p (gl) && ly_c_equal_p (gl, scm_makfrom0str ("brace"))
- && ly_c_string_p (my_gl) && ly_c_equal_p (my_gl, scm_makfrom0str ("bracket")))
- inf.grob_->translate_axis (-0.8, X_AXIS); // ugh
- else if (ly_c_string_p (gl) && ly_c_equal_p (gl, scm_makfrom0str ("bracket"))
- && ly_c_string_p (my_gl) && ly_c_equal_p (my_gl, scm_makfrom0str ("bracket")))
- {
- inf.grob_->translate_axis ( -0.8, X_AXIS); // ugh
- inf.grob_->set_property ("arch-height",
- scm_make_real (ly_scm2double (inf.grob_->get_property
- ("arch-height"))+0.5));
- }
+ */
+ 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")))
+ {
+ inf.grob ()->translate_axis (-0.8, X_AXIS); // ugh
+ inf.grob ()->set_property ("arch-height",
+ scm_make_real (scm_to_double (inf.grob ()->get_property
+ ("arch-height")) + 0.5));
+ }