From: Han-Wen Nienhuys Date: Fri, 10 Nov 2006 15:36:54 +0000 (+0100) Subject: nitpicks. X-Git-Tag: release/2.11.0-1~46 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6aae2daaecd2f19d67b006b141822ad9013fd303;p=lilypond.git nitpicks. --- diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index f06424d72c..e17c3d4780 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -482,8 +482,8 @@ (ly:output-formats)))) (define-public (dump-stencil-as-EPS paper dump-me filename - load-fonts - ) + load-fonts) + (let* ((xext (ly:stencil-extent dump-me X)) (yext (ly:stencil-extent dump-me Y)) @@ -537,8 +537,6 @@ "ps")) (port (ly:outputter-port outputter)) - - (rounded-bbox (to-bp-box bbox)) (port (ly:outputter-port outputter)) (header (eps-header paper rounded-bbox load-fonts)))