Check for a null string before using `placebox'

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

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index 60be72180619e429ab69a271d72cf6a7b4cee5a6..ab38e62967bc6c60b5cef2a08efa61d9a394659c 100644 (file)
--- a/scm/output-socket.scm
+++ b/scm/output-socket.scm
@@ -30,7 +30,9 @@
          ))
 
 (define-public (placebox x y s) 
-  (format "at ~a ~a ~a\n" x y s))
+  (if (not (string-null? s))
+      (format "at ~a ~a ~a\n" x y s)
+      ""))
 
 (define-public (round-filled-box  breapth width depth height blot-diameter)
   (format "draw_round_box ~a ~a ~a ~a ~a"