new file. (Thanks Hendrik Maryns)

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

diff --git a/scm/output-sketch.scm b/scm/output-sketch.scm
index 398c52da5c1dbb66fee37732b39d436be96bd451..69af56f3518309cfd6ba4b1978a58f0444a32208 100644 (file)
--- a/scm/output-sketch.scm
+++ b/scm/output-sketch.scm
@@ -164,12 +164,6 @@
 (define font-count 0)
 (define current-font "")
 
-(define (fontify x y name-mag-pair exp)
-  (string-append (select-font name-mag-pair)
-                (apply (eval (car exp) this-module)
-                       (append (list x y) (cdr exp)))))
-;;              (if (string? exp) exp "")))
-
 (define (define-fonts x) "")
 
 (define (font-def x)