Move music-is? function to (oll-core internal music-tools)

uliska · jpvoigt · commit b69b57937a10 · 2018-10-29T14:55:28.000+01:00
This relies on oll-core being updated, currently to the state of openlilylib/oll-core#41
diff --git a/Humdrum.scm b/Humdrum.scm
@@ -37,6 +37,7 @@
 
 (use-modules
  (oll-core tree)
+ (oll-core internal music-tools)
  (lilypond-export api)
  (lily))
 
diff --git a/MusicXML.scm b/MusicXML.scm
@@ -37,6 +37,7 @@
 
 (use-modules
  (oll-core tree)
+ (oll-core internal music-tools)
  (lilypond-export api)
  (lily))
 
diff --git a/api.scm b/api.scm
@@ -38,6 +38,7 @@
 
 (use-modules
  (oll-core tree)
+ (oll-core internal music-tools)
  (lilypond-export lily)
  (lilypond-export MusicXML)
  (lilypond-export Humdrum)
@@ -77,9 +78,6 @@
 ((@@ (lily) translator-property-description) ctprop::export-step tree? "Music export step store")
 ((@@ (lily) translator-property-description) ctprop::lyrics list? "current lyric events")
 
-; check name property of music object ... just a shortcut
-(define-public (music-is? m n) (and (ly:music? m)(eq? n (ly:music-property m 'name))))
-
 ; combine note-events to event-chord
 (define (combine-notes current music)
   (define (artic-type music) (ly:music-property music 'articulation-type))
diff --git a/lily.scm b/lily.scm
@@ -37,6 +37,7 @@
 
 (use-modules
  (oll-core tree)
+ (oll-core internal music-tools)
  (lilypond-export api)
  (lily))
 
