Issue 4086/6: Reimplement unpure-pure-containers in terms of Simple_smob and Smob1

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

diff --git a/lily/context-property.cc b/lily/context-property.cc
index cc98feeba05dfc3a9840bde07122b67994d1fc33..000bd0b5cc8dd926f99a575d3bc988657974147d 100644 (file)
--- a/lily/context-property.cc
+++ b/lily/context-property.cc
@@ -55,9 +55,9 @@ general_pushpop_property (Context *context,
 bool
 typecheck_grob (SCM symbol, SCM value)
 {
-  if (is_unpure_pure_container (value))
-    return typecheck_grob (symbol, unpure_pure_container_unpure_part (value))
-      && typecheck_grob (symbol, unpure_pure_container_pure_part (value));
+  if (Unpure_pure_container *upc = Unpure_pure_container::unsmob (value))
+    return typecheck_grob (symbol, upc->unpure_part ())
+      && typecheck_grob (symbol, upc->pure_part ());
   return ly_is_procedure (value)
     || Simple_closure::unsmob (value)
     || type_check_assignment (symbol, value, ly_symbol2scm ("backend-type?"));