* scripts/convert-ly.py (conv): remove \notes.

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 69a6f686f3f2732164b2ee225d7ec3b1ca78d609..e33299fbe1db8e0e174271c923bee31d34a178f8 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -378,36 +378,11 @@ L1 is copied, L2 not.
   (make-module 1021 (list (resolve-interface '(scm output-tex)))))
 (define output-ps-module
   (make-module 1021 (list (resolve-interface '(scm output-ps)))))
-(define-public (tex-output-expression expr port)
-  (display (eval expr output-tex-module) port))
+
 (define-public (ps-output-expression expr port)
   (display (eval expr output-ps-module) port))
 
 
-(define output-alist
-  `(
-    ("tex" . ("TeX output. The default output form." ,tex-output-expression))
-    ("scm" . ("Scheme dump: debug scheme stencil expressions" ,write))
-;    ("sketch" . ("Bare bones Sketch output." ,sketch-output-expression))
-;    ("sodipodi" . ("Bare bones Sodipodi output." ,sodipodi-output-expression))
-;    ("pdftex" . ("PDFTeX output. Was last seen nonfunctioning." ,pdftex-output-expression))
-    ))
-
-
-(define (document-format-dumpers)
-  (map
-   (lambda (x)
-     (display (string-append  (pad-string-to 5 (car x)) (cadr x) "\n"))
-     output-alist)
-   ))
-
-(define-public (find-dumper format)
-  (let ((d (assoc format output-alist)))
-    (if (pair? d)
-       (caddr d)
-       (scm-error "Could not find dumper for format ~s" format))))
-
-
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; other files.