Implement breve with double vertical lines on each side

[lilypond.git] / scm / c++.scm

diff --git a/scm/c++.scm b/scm/c++.scm
index 8db8bb96c079185d54da0b887180e0545a094227..3381a9e898888fdff0433bd1385031e0d9a46fd7 100644 (file)
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -36,6 +36,12 @@
 (define-public (string-or-pair? x)
   (or (string? x) (pair? x)))
 
+(define-public (cheap-list? x)
+  (or (pair? x) (null? x)))
+
+(define-public (list-or-symbol? x)
+  (or (cheap-list? x) (symbol? x)))
+
 (define-public (scheme? x) #t)