- ok = !ly_is_procedure (new_value)
- && 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?"));