From: Neil Puttock <n.puttock@gmail.com>
Date: Mon, 5 Apr 2010 21:20:38 +0000 (+0100)
Subject: Fix utility function `make-type-checker'.
X-Git-Tag: release/2.13.18-1~18^2~1^2~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a9c8131dc9825435aa0d6e7ed3671cee931120bb;p=lilypond.git

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 2db08bd4a1..e0fe136257 100644
--- 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)