X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fclip-region.scm;h=c8eb537b255116872103570a271eb8172d7ef32b;hb=ed8b69df5758e1206c6f178de63c396931519f2a;hp=ce1bd4d66baa37a6790598d0139acb3171ded580;hpb=2a8c79664174b846da1fe107f429f23536f8724d;p=lilypond.git

diff --git a/scm/clip-region.scm b/scm/clip-region.scm
index ce1bd4d66b..c8eb537b25 100644
--- 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."