Property_iterator::process (Moment m)
{
SCM sym = get_music ()->get_property ("symbol");
- if (gh_symbol_p (sym))
+ if (scm_is_symbol (sym))
{
SCM val = get_music ()->get_property ("value");
bool ok= true;
{
if (!list_p)
{
- list_p = gh_eval_str ("list?");
+ list_p = scm_c_eval_string ("list?");
}
SCM val = get_music ()->get_property ("grob-value");
if (to_boolean (get_music ()->get_property ("pop-first"))
- && !to_boolean (get_music ()->get_property ("once"))
- )
+ && !to_boolean (get_music ()->get_property ("once")))
execute_pushpop_property (get_outlet (), sym, eprop, SCM_UNDEFINED);
execute_pushpop_property (get_outlet (), sym, eprop, val);