Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+#include "hara-kiri-group-spanner.hh"
+
#include "axis-group-interface.hh"
#include "spanner.hh"
-#include "hara-kiri-group-spanner.hh"
#include "warn.hh"
#include "item.hh"
-
MAKE_SCHEME_CALLBACK (Hara_kiri_group_spanner,y_extent,2);
SCM
Hara_kiri_group_spanner::y_extent (SCM element_smob, SCM scm_axis)
{
Grob *me = unsmob_grob (element_smob);
- Axis a = (Axis) ly_scm2int (scm_axis);
+ Axis a = (Axis) scm_to_int (scm_axis);
assert (a == Y_AXIS);
consider_suicide (me);
{
Spanner*sp = dynamic_cast<Spanner*> (me);
SCM worth = me->get_property ("items-worth-living");
- if (is_pair (worth))
+ if (scm_is_pair (worth))
return ;
if (!to_boolean (me->get_property ("remove-first"))
Hara_kiri_group_spanner::force_hara_kiri_callback (SCM element_smob, SCM axis)
{
Grob *me = unsmob_grob (element_smob);
- Axis a = (Axis) ly_scm2int (axis);
+ Axis a = (Axis) scm_to_int (axis);
assert (a == Y_AXIS);
consider_suicide (me);
return scm_make_real (0.0);
Hara_kiri_group_spanner::force_hara_kiri_in_parent_callback (SCM element_smob, SCM axis)
{
Grob *daughter = unsmob_grob (element_smob);
- Axis a = (Axis) ly_scm2int (axis);
+ Axis a = (Axis) scm_to_int (axis);
assert (a == Y_AXIS);
force_hara_kiri_callback (daughter->get_parent (a)->self_scm (), axis);
return scm_make_real (0.0);