[config] Use fc-list.

[lilypond.git] / scm / clip-region.scm

diff --git a/scm/clip-region.scm b/scm/clip-region.scm
index ce1bd4d66baa37a6790598d0139acb3171ded580..c8eb537b255116872103570a271eb8172d7ef32b 100644 (file)
--- a/scm/clip-region.scm
+++ b/scm/clip-region.scm
@@ -50,19 +50,26 @@
 
 
 (define-public (rhythmic-location->file-string a)
-  (format "~a.~a.~a"
+  (ly:format "~a.~a.~a"
          (car a)
          (ly:moment-main-numerator (cdr a))
          (ly:moment-main-denominator (cdr a))))
 
 (define-public (rhythmic-location->string a)
-  (format "bar ~a ~a"
+  (ly:format "bar ~a ~a"
          (car a)
          (ly:moment->string  (cdr a))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;  Actual clipping logic.
 
+;;
+;; the total of this will be
+;; O(#systems * #regions)
+;; 
+;; we can actually do better by sorting the regions as well,
+;; but let's leave that for future extensions.
+;;
 (define-public (system-clipped-x-extent system-grob clip-region)
   "Return the X-extent of the SYSTEM-GROB when clipped with
 CLIP-REGION. Return #f if not appropriate."