From: David Kastrup Date: Sat, 24 Mar 2012 09:22:12 +0000 (+0100) Subject: Reduce confusion about strings and symbols in graphviz code X-Git-Tag: release/2.15.35-1~18 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c956f86bddf93ec5bfa7c9afb8462df783207558;p=lilypond.git Reduce confusion about strings and symbols in graphviz code --- diff --git a/input/regression/graphviz.ly b/input/regression/graphviz.ly index 710752d78d..f1fbcab90b 100644 --- a/input/regression/graphviz.ly +++ b/input/regression/graphviz.ly @@ -9,9 +9,6 @@ #(whitelist-grob 'NoteHead) #(whitelist-grob 'Stem) #(whitelist-grob 'Flag) -#(whitelist-grob "NoteHead") -#(whitelist-grob "Stem") -#(whitelist-grob "Flag") #(for-each whitelist-symbol '(stencil style duration-log stem-attachment end-position staff-position diff --git a/ly/graphviz-init.ly b/ly/graphviz-init.ly index df797e4c0a..6eb1b8b1df 100644 --- a/ly/graphviz-init.ly +++ b/ly/graphviz-init.ly @@ -19,8 +19,8 @@ #(define (whitelist-symbol sym) (set! sym-whitelist (cons sym sym-whitelist))) -#(define (whitelist-grob str) - (set! grob-whitelist (cons str grob-whitelist))) +#(define (whitelist-grob sym) + (set! grob-whitelist (cons sym grob-whitelist))) #(define graph (make-empty-graph (ly:parser-output-name parser)))