val = scm_c_eval_string ("line-location");
scm_module_define (global_lily_module, ly_symbol2scm ("point-and-click"), val);
- store_locations_global_b = is_procedure (val);
+ store_locations_global_b = ly_c_procedure_p (val);
return SCM_UNSPECIFIED;
}