2 stencil-expression.cc -- keep track of which expressions are valid
5 source file of the GNU LilyPond music typesetter
7 (c) 2005--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
14 void register_stencil_head (SCM symbol)
17 heads = scm_permanent_object (scm_cons (SCM_EOL, SCM_EOL));
19 scm_set_object_property_x (symbol, ly_symbol2scm ("stencil-head?"), SCM_BOOL_T);
20 scm_set_cdr_x (heads, scm_cons (symbol, scm_cdr (heads)));
24 is_stencil_head (SCM symbol)
26 return scm_object_property (symbol, ly_symbol2scm ("stencil-head?"))
33 return scm_cdr (heads);