source file of the GNU LilyPond music typesetter
- (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "context.hh"
#include "spanner.hh"
#include "warn.hh"
#include "paper-column.hh"
+#include "simple-closure.hh"
SCM
lookup_nested_property (SCM alist,
bool ok = true;
if (!scm_is_pair (scm_cdr (grob_property_path)))
{
- ok = type_check_assignment (symbol, new_value, ly_symbol2scm ("backend-type?"));
+ if (!ly_is_procedure (new_value)
+ && !is_simple_closure (new_value))
+ ok = type_check_assignment (symbol, new_value,
+ ly_symbol2scm ("backend-type?"));
/*
tack onto alist. We can use set_car, since