Svg with woff fonts: fix memory leaks and add missing quote. Thanks Patrick.

[lilypond.git] / scm / framework-svg.scm

diff --git a/scm/framework-svg.scm b/scm/framework-svg.scm
index c6c342bf1c95a29393cf839c4c0cf6bab1dcfadc..5dd9383ebfd2427682ce9db55070b4167cbe5b0a 100644 (file)
--- 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)