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

This also fixes one of the compile issues with Guile 1.9.

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index f3e3777785794879a11762bd63e610f8ca50a988..82f5a91648a324e8437825fc2d1b31ee2effbdb7 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -614,7 +614,6 @@ that they share a staff.")
    (make-part-combine-music parser
                             (list part1 part2)))
 
-#(define (symbol-or-boolean? x) (or (symbol? x) (boolean? x)))
 partcombineForce =
 #(define-music-function (location parser type once) (symbol-or-boolean? boolean?)
    (_i "Override the part-combiner.")

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.