take filename (also) from an arg.

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 13fbfe9bd109708cb8b30088db530c3e3caa31ca..84e45228e4facaafaa6e1669cc1846a7078254c2 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -77,9 +77,9 @@
   (let*
    (
     (mol    (callback grob))
-    (x-ext (widen-interval (ly:molecule-get-extent mol 0) x-padding))
-    (y-ext (widen-interval (ly:molecule-get-extent mol 1) y-padding))
-    (x-rule (make-filled-box-molecule (widen-interval x-ext line-thick)
+    (x-ext (interval-widen (ly:molecule-get-extent mol 0) x-padding))
+    (y-ext (interval-widen (ly:molecule-get-extent mol 1) y-padding))
+    (x-rule (make-filled-box-molecule (interval-widen x-ext line-thick)
                               (cons 0 line-thick)))
     (y-rule (make-filled-box-molecule (cons 0 line-thick) y-ext))
     )