Issue 4086/4: Reimplement Simple_closure using Smob1

[lilypond.git] / lily / context-property.cc

diff --git a/lily/context-property.cc b/lily/context-property.cc
index 07d512d6e3a39b47afe818a5f023f82d14f7b264..cc98feeba05dfc3a9840bde07122b67994d1fc33 100644 (file)
--- a/lily/context-property.cc
+++ b/lily/context-property.cc
@@ -59,7 +59,7 @@ typecheck_grob (SCM symbol, SCM value)
     return typecheck_grob (symbol, unpure_pure_container_unpure_part (value))
       && typecheck_grob (symbol, unpure_pure_container_pure_part (value));
   return ly_is_procedure (value)
-    || is_simple_closure (value)
+    || Simple_closure::unsmob (value)
     || type_check_assignment (symbol, value, ly_symbol2scm ("backend-type?"));
 }