* scm/output-ps.scm (define-fonts): Handle font re-encoding.

[lilypond.git] / scm / encoding.scm

diff --git a/scm/encoding.scm b/scm/encoding.scm
index 310bf150ddbcd3337fcfb21f35892f966ed91222..870abe3a420f60dc615d352e5249180482e63a3d 100644 (file)
--- a/scm/encoding.scm
+++ b/scm/encoding.scm
@@ -103,17 +103,13 @@ vector of symbols."
     (cons (car entry) (force (cdr entry)))))
 
 (define-public (get-coding-filename coding-name)
-  (format (current-error-port) "FILENAME: ~S\n" (get-coding coding-name))
   (car (get-coding coding-name)))
 
 (define-public (get-coding-command coding-name)
-  (format (current-error-port) "COMMAND: ~S\n" (get-coding coding-name))
   (cadr (get-coding coding-name)))
 
 (define-public (get-coding-vector coding-name)
-  (format (current-error-port) "VECTOR: ~S\n" (get-coding coding-name))
   (caddr (get-coding coding-name)))
 
 (define-public (get-coding-table coding-name)
-  (format (current-error-port) "TABLE: ~S\n" (get-coding coding-name))
   (cadddr (get-coding coding-name)))