Re: music functions and markups

[Han-Wen Nienhuys]

address@hidden writes:
> >> +    if (ly_c_equal_p (scm_car (s), scm_primitive_eval (ly_symbol2scm 
> >> ("markup?"))))
> >> +      str += "markup";
> >> +    else
> >> +      str += "scm";
> >> +  }
> >
> > just add another
> >
> >      else if
> >
> > before
> >
> >     else if  (ly_c_procedure_p (. .))
> 
> Do you mean:
> 
>       if (scm_car (s) == Music_type_p_proc)
>         str += "music";
>       else if (Text_interface::markup_p (scm_car (s))) 
>         str += "markup";
>       else if (ly_c_procedure_p (scm_car (s))) 
>         str += "scm";
> 
> As `s' is just a list of predicates, eg '(markup? ly:music?),
> Text_interface::markup_p (markup?) will always be false, no?

No, you're right, I mean something like

 else if  (scm_car (s) == ly_scheme_function ("ly:markup?"))
      str += "markup"


-- 

 Han-Wen Nienhuys   |   address@hidden   |   http://www.xs4all.nl/~hanwen