* scm/part-combiner.scm: skip name string. Fixes segfault problem.

[lilypond.git] / scm / part-combiner.scm

diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm
index 69180a978a5f6ca8dbcd4bb0eba79b6132d13ccd..62b60260c7d9cbfa181496e0b591ab63357a4557 100644 (file)
--- a/scm/part-combiner.scm
+++ b/scm/part-combiner.scm
@@ -187,6 +187,8 @@ Voice-state objects
        
 (define noticed '())
 (define part-combine-listener '())
+
+; UGH - should pass noticed setter to part-combine-listener
 (define-public (set-part-combine-listener x)
   (set! part-combine-listener x))
 
@@ -501,4 +503,6 @@ the mark when there are no spanners active."
         (evs (last-pair noticed)))
     (if (pair? evs)
        (hash-set! tab name
-                  (list->vector (reverse! (car evs) '()))))))
+                  ;; cdr : skip name string
+                  (list->vector (reverse! (cdar evs) '()))))))
+