* Don't add "ps" to intermediate formats when using eps backend.

[hanwenn]

Reviewers: Neil Puttock,

Message:
LGTM, but I don't understand what this has to do with the error messages
you mention.

Description:
* Don't add "ps" to intermediate formats when using eps backend.
This prevents an error being reported when using
-ddelete-intermediate-files.

Please review this at http://codereview.appspot.com/7262

Affected files:
  M scm/backend-library.scm


Index: scm/backend-library.scm
diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index  
c2c89eed77ed71f90a327b2f9b77f502636850c3..82ec1a72702e1e8e233ceecb149b1895ef47f903  
100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -150,10 +150,12 @@

 (define-public (completize-formats formats)
   (define new-fmts '())
-  (if (member "png" formats)
-      (set! formats (cons "ps" formats)))
-  (if (member "pdf" formats)
-      (set! formats (cons "ps" formats)))
+  (if (not (eq? (ly:get-option 'backend) 'eps))
+      (begin
+       (if (member "png" formats)
+           (set! formats (cons "ps" formats)))
+       (if (member "pdf" formats)
+           (set! formats (cons "ps" formats)))))
   (for-each (lambda (x)
              (if (member x formats) (set! new-fmts (cons x new-fmts))))
            '("tex" "dvi" "ps" "pdf" "png"))