From: David Kastrup 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))