---
scm/c++.scm | 3 +++
scm/lily.scm | 1 +
2 files changed, 4 insertions(+)
diff --git a/scm/c++.scm b/scm/c++.scm
index 444a3e9..d627481 100644
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -48,6 +48,9 @@
(define-public (boolean-or-symbol? x)
(or (boolean? x) (symbol? x)))
+(define-public (symbol-list? x)
+ (and (list? x) (every symbol? x)))
+
(define-public (string-or-symbol? x)
(or (string? x) (symbol? x)))
diff --git a/scm/lily.scm b/scm/lily.scm
index b8b0216..a74d6af 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -578,6 +578,7 @@ messages into errors.")
(,string-or-pair? . "string or pair")
(,string-or-music? . "string or music")
(,string-or-symbol? . "string or symbol")
+ (,symbol-list? . "symbol list")
(,void? . "void")
))
--
1.7.9.5
_______________________________________________
lilypond-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-devel
