Fix utility function `make-type-checker'.

* scm/music-functions.scm (make-type-checker):

  use grob::has-interface (replaces obsolete property lookup for 'interfaces)

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 2db08bd4a1cf38f27c62f54bed76f3bf98a5e999..e0fe136257287e828883dfec4c4d791c37fa8e6e 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -676,7 +676,7 @@ inside of and outside of chord construct."
 ;; Make a function that checks score element for being of a specific type.
 (define-public (make-type-checker symbol)
   (lambda (elt)
-    (not (eq? #f (memq symbol (ly:grob-property elt 'interfaces))))))
+    (grob::has-interface elt symbol)))
 
 (define-public ((outputproperty-compatibility func sym val) grob g-context ao-context)
   (if (func grob)