release: 1.5.48

[lilypond.git] / scm / ascii-script.scm

diff --git a/scm/ascii-script.scm b/scm/ascii-script.scm
index 25255e3f2886171b41417498a05da2e240822ed0..dc8f8f1d2075ad427b8d2c0a4879b971b414bc25 100644 (file)
--- a/scm/ascii-script.scm
+++ b/scm/ascii-script.scm
@@ -153,6 +153,9 @@
                (if (<= dy 1) "-" "="))
          (func "h-line" dx))))))
 
+(define (roundfilledbox breapth width depth height)
+  (filledbox breapth width depth height))
+
 (define (font-load-command name-mag command)
   ;; (display "name-mag: ")
   ;; (write name-mag)