From aa1758a0d2f9c82f154128873929e62f4ccb5af2 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 23 Jul 2015 20:01:13 +0200 Subject: display-lily.scm: export with-music-match --- scm/display-lily.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scm') diff --git a/scm/display-lily.scm b/scm/display-lily.scm index e591d50b1d..6a53f1eded 100644 --- a/scm/display-lily.scm +++ b/scm/display-lily.scm @@ -248,7 +248,7 @@ Generate binding forms by looking for ?var symbol in pattern." (cdr prop-elements)))) elements-list)))) -(define-macro (with-music-match music-expr+pattern . body) +(defmacro-public with-music-match (music-expr+pattern . body) "If `music-expr' matches `pattern', call `body'. `pattern' should look like: '(music property value -- cgit v1.2.3