if (Simple_closure *sc = Simple_closure::unsmob (expr))
{
SCM inside = sc->expression ();
- SCM proc = !pure && Unpure_pure_container::unsmob (scm_car (inside))
+ SCM proc = !pure && Unpure_pure_container::is_smob (scm_car (inside))
? Unpure_pure_container::unsmob (scm_car (inside))->unpure_part ()
: scm_car (inside);
SCM args = scm_cons (delayed_argument,
return expr;
else if (scm_car (expr) == ly_symbol2scm ("quote"))
return scm_cadr (expr);
- else if (Unpure_pure_container::unsmob (scm_car (expr))
+ else if (Unpure_pure_container::is_smob (scm_car (expr))
|| ly_is_procedure (scm_car (expr)))
{
- SCM proc = !pure && Unpure_pure_container::unsmob (scm_car (expr))
+ SCM proc = !pure && Unpure_pure_container::is_smob (scm_car (expr))
? Unpure_pure_container::unsmob (scm_car (expr))->unpure_part ()
: scm_car (expr);
SCM args = evaluate_args (delayed_argument, scm_cdr (expr), pure, start, end);