Add ly:prob-[im]mutable-properties Scheme bindings.

[lilypond.git] / scm / lily-library.scm

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index ae13bbebf0ec748142485952847b75a2d1273587..f772d0527e931efa53cdf0917fcf359012e911bb 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -491,6 +491,11 @@ found."
   (string-append (ly:number->string (car c)) " "
                 (ly:number->string (cdr c))))
 
+(define-public (dir-basename file . rest)
+  "Strip suffixes in REST, but leave directory component for FILE."
+  (define (inverse-basename x y) (basename y x))
+  (simple-format #f "~a/~a" (dirname file)
+                (fold inverse-basename file rest)))
 
 (define-public (write-me message x)
   "Return X.  Display MESSAGE and write X.  Handy for debugging,