release: 1.3.72

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 2b3d8b26c494a0608140853b92a88db835f8306b..7088dd1dabb12dd1cfa6a9b5496f3281a6473764 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -136,6 +136,7 @@
    )
 )
 
+;; silly, use alist? 
 (define (find-notehead-symbol duration style)
   (case style
    ((cross) "2cross")
@@ -228,10 +229,13 @@
 
 
 ; Make a function that checks score element for being of a specific type. 
-(define (make-type-checker name)
+(define (make-type-checker symbol)
   (lambda (elt)
-    (not (not (memq name (ly-get-elt-property elt 'interfaces))))))
-
+;    (display  symbol)
+;    (eq? #t (ly-get-elt-property elt symbol))
+    (not (eq? #f (memq symbol (ly-get-elt-property elt 'interfaces))))
+    
+    ))
        
 ;;;;;;;;;;;;;;;;;;; TeX output
 (define (tex-scm action-name)
@@ -372,7 +376,7 @@
       (string-append"\\vbox to " (number->dim ht) "{\\hbox{%\n"))
 
   (define (stop-line) 
-    "}\\vss}\\interscoreline")
+    "}\\vss}\\interscoreline\n")
   (define (stop-last-line)
     "}\\vss}")
   (define (filledbox breapth width depth height)