Processing stdin: instead of warn, rename "-" to "./-". Fixes PDF from stdin.

This is still not a pseudo-filter, instead of a PDF (or PS) on stdout,

   echo '{a b c}' | out/bin/lilypond -

now produces a file `-.pdf' (or with --ps flag `-.ps' is produced).

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 4cd6c29a7f04d5900eefd3aedf9a8cb97a87e4f1..9bf7938ead52dcdf5dee01af893cb24719abaa70 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -626,8 +626,8 @@ fonts inline."
         (w (if landscape paper-height paper-width))
         (h (if landscape paper-width paper-height)))
     (if (equal? (basename name ".ps") "-")
-       (ly:warning (_ "cannot convert <stdout> to ~S") "PDF")
-       (postscript->pdf w h name))))
+       (set! name (string-append "./" name)))
+    (postscript->pdf w h name)))
 
 (define-public (convert-to-png book name)
   (let* ((defs (ly:paper-book-paper book))