* scm/framework-svg.scm:

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index ae0d93e306754708f7d717fe8069643ad3d4b560..d9788b292ca819f57e36eb7d7d7042e89d8bff7b 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -209,13 +209,6 @@
     (ly:numbers->string
      (list x y width height blotdiam)) " draw_round_box"))
 
-
-(define (stem breapth width depth height) ; FIXME: use draw_round_box.
-  (string-append
-   (ly:numbers->string (list breapth width depth height))
-   " draw_box" ))
-
-
 (define (text font s)
   (let*