Issue 3897: Some spring cleaning mostly concerning cumbersome apply calls

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

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 60ad51f2814788d22008ab75d572fb9ee5f4f9c3..d00757f4e217c59d01d7e6d4f2d0fd7f864a9bea 100644 (file)
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -71,10 +71,10 @@
   (string-append "<!-- " s " -->\n"))
 
 (define-public (entity entity string . attributes-alist)
-  (if (equal? string "")
+  (if (string-null? string)
       (apply eoc entity attributes-alist)
       (string-append
-       (apply eo (cons entity attributes-alist)) string (ec entity))))
+       (apply eo entity attributes-alist) string (ec entity))))
 
 (define (offset->point o)
   (ly:format "~4f ~4f" (car o) (- (cdr o))))