Docs makefiles: get rid of unconditional translations postprocessing

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 01677fa9dd8dad39a2e62900df4accec2c76d3cb..ae8d1e2478207571422a16de71fe1a38d6eb45cc 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -181,9 +181,9 @@
    x-radius y-radius thick))
 
 (define (placebox x y s) 
-  (ly:format
-"~4f ~4f moveto
-~a\n" x y s))
+  (if (not (string-null? s))
+      (ly:format "~4f ~4f moveto ~a\n" x y s)
+      ""))
 
 (define (polygon points blot-diameter filled?)
   (ly:format "~a ~4l ~a ~4f draw_polygon"