From cc38d6486880de3c97f83844af71d73d8f2b200a Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 1 Mar 2015 19:55:28 +0100 Subject: [PATCH] Issue 4305: Remove `symbol-or-boolean?' predicate This also reverts commit bf278a94409fb4a7a94189ff4be0343f091ec8c3. We already have `boolean-or-symbol?' as predicate. --- ly/music-functions-init.ly | 2 +- scm/c++.scm | 2 -- 2 files changed, 1 insertion(+), 3 deletions(-) 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)) -- 2.39.5