From: Jan Nieuwenhuizen Date: Fri, 18 Jun 2010 11:22:28 +0000 (+0200) Subject: Svg with woff fonts: fix memory leaks and add missing quote. Thanks Patrick. X-Git-Tag: release/2.13.26-1~5 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ba238f4f1e37497c787b20a4d8d8d000170835b2;p=lilypond.git Svg with woff fonts: fix memory leaks and add missing quote. Thanks Patrick. --- diff --git a/scm/framework-svg.scm b/scm/framework-svg.scm index c6c342bf1c..5dd9383ebf 100644 --- a/scm/framework-svg.scm +++ b/scm/framework-svg.scm @@ -128,6 +128,8 @@ src: url('~a'); (module-define! (ly:outputter-module outputter) 'paper paper)) (dump (svg-begin page-width page-height 0 0 device-width device-height)) + (if (ly:get-option 'svg-woff) + (module-remove! (ly:outputter-module outputter) 'paper)) (if (ly:get-option 'svg-woff) (dump (woff-header paper (dirname filename)))) (dump (comment (format "Page: ~S/~S" page-number page-count))) @@ -157,7 +159,9 @@ src: url('~a'); (module-define! (ly:outputter-module outputter) 'paper paper)) (dump (svg-begin svg-width svg-height left-x (- top-y) device-width device-height)) - (if (ly:get-option svg-woff) + (if (ly:get-option 'svg-woff) + (module-remove! (ly:outputter-module outputter) 'paper)) + (if (ly:get-option 'svg-woff) (dump (woff-header paper (dirname filename)))) (ly:outputter-output-scheme outputter `(begin (set! lily-unit-length ,unit-length)