From 43ebcfb1b2d94e49cba66549083f4abcccfc7c07 Mon Sep 17 00:00:00 2001
From: Paul Morris <paulwmorris@gmail.com>
Date: Tue, 9 Jun 2015 23:45:40 -0400
Subject: [PATCH] Issue 4418/1 add boolean-or-number? predicate

---
 scm/c++.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/scm/c++.scm b/scm/c++.scm
index ba38d5a057..badac67e5c 100644
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -54,6 +54,9 @@
   (and (pair? x)
        (ly:moment? (car x)) (ly:moment? (cdr x))))
 
+(define-public (boolean-or-number? x)
+  (or (boolean? x) (number? x)))
+
 (define-public (boolean-or-symbol? x)
   (or (boolean? x) (symbol? x)))
 
-- 
2.39.5