backend is now a symbol.

diff --git a/lily/paper-outputter-scheme.cc b/lily/paper-outputter-scheme.cc
index 672eab7ce72c07838c780ede3ad5030d9ffac913..2149f0ec2cb87ba88dbcfac5662fe6c84733411e 100644 (file)
--- a/lily/paper-outputter-scheme.cc
+++ b/lily/paper-outputter-scheme.cc
@@ -18,10 +18,9 @@ LY_DEFINE (ly_make_paper_outputter, "ly:make-paper-outputter",
           "@code{output-}@var{format}, writing to  @var{port}.")
 {
   LY_ASSERT_TYPE (ly_is_port, port, 1);
-  LY_ASSERT_TYPE (scm_is_string, format, 2);
-
-  string f = ly_scm2string (format);
+  LY_ASSERT_TYPE (ly_is_symbol, format, 2);
 
+  string f = ly_symbol2string (format);
   string output_name = "<unknown>";
 
   SCM port_name = scm_port_filename (port);

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 28579ebc96f93c0175d793fa39d8dd2547741cfb..f2eb8fa11345b103a2003fae48bda3a02704030a 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -447,7 +447,7 @@
                     ;; content-mangling is always bad.
                     ;; MINGW hack: need to have "b"inary for embedding CFFs
                     (open-file filename "wb")
-                    "ps"))
+                    'ps))
         (paper (ly:paper-book-paper book))
         (systems (ly:paper-book-systems book))
         (page-stencils (map page-stencil (ly:paper-book-pages book)))
@@ -539,7 +539,7 @@
                     ;; content-mangling is always bad.
                     ;; MINGW hack: need to have "b"inary for embedding CFFs
                     (open-file (format "~a.eps" filename) "wb")
-                    "ps"))
+                    'ps))
 
         (port (ly:outputter-port outputter))
         (rounded-bbox (to-bp-box bbox))

diff --git a/scm/framework-socket.scm b/scm/framework-socket.scm
index 8068e34cce6f3998f699e7f167b9bb07c52fdc04..45cbfb96397f40ac2636d5ddbf087b8855ff7b4f 100644 (file)
--- a/scm/framework-socket.scm
+++ b/scm/framework-socket.scm
@@ -19,7 +19,7 @@
                     channel))
        (outputter (ly:make-paper-outputter
                   ctor-arg
-                  "socket"))
+                  'socket))
        (systems (ly:paper-book-systems book)))
 
     (if (pair? systems)

diff --git a/scm/framework-svg.scm b/scm/framework-svg.scm
index 6abb3438b8f11b072c0dcc83a8e6890a45bf7fcf..8f5f34d7c079c8057fe8521d206297f78badc734 100644 (file)
--- a/scm/framework-svg.scm
+++ b/scm/framework-svg.scm
@@ -67,7 +67,10 @@
      (string-append
       (ec 'g)
       (if page-set? (ec 'pageSet) "")
-      (ec 'svg)))))
+      (ec 'svg)))
+    
+    (ly:outputter-close outputter)
+    ))
 
 (define (dump-page outputter page page-number page-count landscape? page-set?)
   (define (dump str) (display str (ly:outputter-port outputter)))

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 83c64820e566d0b1cc48d1514d121d81a410ecc3..a60f9877b11477f9173818605efb2548fbab9444 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -190,7 +190,7 @@
 
 (define-public (output-framework basename book scopes fields)
   (let* ((filename (format "~a.tex" basename))
-        (outputter  (ly:make-paper-outputter (open-file filename "wb") "tex"))
+        (outputter  (ly:make-paper-outputter (open-file filename "wb") 'tex))
         (paper (ly:paper-book-paper book))
         (page-stencils (map page-stencil (ly:paper-book-pages book)))
         (last-page (car (last-pair pages)))
@@ -233,7 +233,7 @@
                basename book scopes fields)
   (let* ((filename (format "~a.tex" basename))
         (outputter  (ly:make-paper-outputter
-                     (open-file filename "w") "tex"))
+                     (open-file filename "w") 'tex))
         (paper (ly:paper-book-paper book))
         (lines (ly:paper-book-systems book))
         (last-line (car (last-pair lines))))
@@ -260,7 +260,7 @@
                basename book scopes fields)
   (let* ((filename (format "~a.tex" basename))
         (outputter  (ly:make-paper-outputter (open-file filename "wb")
-                                             "tex"))
+                                             'tex))
         (paper (ly:paper-book-paper book))
         (lines (ly:paper-book-systems book))
         (first-notes-index (list-index