Move `symbol-or-boolean?' to c++.scm.

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

diff --git a/scm/c++.scm b/scm/c++.scm
index bc518030ae8304889cc98a3d37015839a98c3a7d..7f28900917643c17fd0a5f0993601802a957097d 100644 (file)
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -55,6 +55,8 @@
 
 (define-public (scheme? x) #t)
 
+(define-public (symbol-or-boolean? x)
+  (or (symbol? x) (boolean? x)))
 
 ;; moved list to end of lily.scm: then all type-predicates are
 ;; defined.