From a9c8131dc9825435aa0d6e7ed3671cee931120bb Mon Sep 17 00:00:00 2001 From: Neil Puttock Date: Mon, 5 Apr 2010 22:20:38 +0100 Subject: [PATCH] Fix utility function `make-type-checker'. * scm/music-functions.scm (make-type-checker): use grob::has-interface (replaces obsolete property lookup for 'interfaces) --- scm/music-functions.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5