From: David Kastrup <dak@gnu.org>
Date: Sun, 1 Mar 2015 18:55:28 +0000 (+0100)
Subject: Issue 4305: Remove `symbol-or-boolean?' predicate
X-Git-Tag: release/2.19.17-1~14^2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cc38d6486880de3c97f83844af71d73d8f2b200a;p=lilypond.git

Issue 4305: Remove `symbol-or-boolean?' predicate

This also reverts commit bf278a94409fb4a7a94189ff4be0343f091ec8c3.

We already have `boolean-or-symbol?' as predicate.
---

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index e173083989..9b1d36623b 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -1151,7 +1151,7 @@ that they share a staff with stems directed downward.")
                             (list part1 part2) DOWN chord-range))
 
 partcombineForce =
-#(define-music-function (location parser type once) (symbol-or-boolean? boolean?)
+#(define-music-function (location parser type once) (boolean-or-symbol? boolean?)
    (_i "Override the part-combiner.")
    (make-music 'EventChord
                'elements (list (make-music 'PartCombineForceEvent
diff --git a/scm/c++.scm b/scm/c++.scm
index 48f54d3582..ba38d5a057 100644
--- a/scm/c++.scm
+++ b/scm/c++.scm
@@ -93,8 +93,6 @@
 
 (define-public (scheme? x) #t)
 
-(define-public (symbol-or-boolean? x)
-  (or (symbol? x) (boolean? x)))
 
 (define-public (void? x)
   (unspecified? x))