Adds vertical skylines to slurs.

[lilypond.git] / input / regression / graphviz.ly

diff --git a/input/regression/graphviz.ly b/input/regression/graphviz.ly
index 42fab60ad331a0c058926c36bbcf85b657e1f547..710752d78ddd54105735bd070fbf43c485e2890e 100644 (file)
--- a/input/regression/graphviz.ly
+++ b/input/regression/graphviz.ly
@@ -8,12 +8,14 @@
 
 #(whitelist-grob 'NoteHead)
 #(whitelist-grob 'Stem)
+#(whitelist-grob 'Flag)
 #(whitelist-grob "NoteHead")
 #(whitelist-grob "Stem")
+#(whitelist-grob "Flag")
 
-#(map whitelist-symbol '(stencil style duration-log
-                        stem-attachment end-position staff-position
-                        glyph-name direction))
+#(for-each whitelist-symbol '(stencil style duration-log
+                             stem-attachment end-position staff-position
+                             glyph-name direction))
 
 
 \book { \score {