- SCM pure_proc = get_property_data (ly_symbol2scm ("pure-Y-extent"));
- SCM iv_scm;
-
- if (ly_is_procedure (pure_proc))
- iv_scm = scm_apply_3 (pure_proc,
- self_scm (),
- scm_from_int (start),
- scm_from_int (end), SCM_EOL);
- else
- iv_scm = call_pure_function (proc,
- scm_list_1 (self_scm ()),
- start, end);
-
+ SCM iv_scm = call_pure_function (proc,
+ scm_list_1 (self_scm ()),
+ start, end);