(define-fonts):

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

diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index 344c40e04b1f90405c410f3cc4f6576b5a9bca05..c30d9a4ab2e67cbb316781e4c7b0fd2c9b842017 100644 (file)
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -73,19 +73,10 @@
 
 (define (define-fonts paper font-list)
   (apply string-append
-        (map (lambda (x)
-               (font-load-command paper x))
-             font-list)
-        ))
-
-;;
-;; urg, how can exp be #unspecified?  -- in sketch output
-;;
-;; set! returns #<unspecified>  --hwn
-;;
+        (map (lambda (x) (font-load-command paper x)) font-list)))
+
 (define (fontify font exp)
-  (string-append "\\" (font-command font)
-                exp))
+  (string-append "\\" (font-command font) exp))
 
 (define (unknown) 
   "%\n\\unknown\n")