From ba238f4f1e37497c787b20a4d8d8d000170835b2 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Fri, 18 Jun 2010 13:22:28 +0200 Subject: [PATCH] Svg with woff fonts: fix memory leaks and add missing quote. Thanks Patrick. --- scm/framework-svg.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 2.39.2