From c956f86bddf93ec5bfa7c9afb8462df783207558 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sat, 24 Mar 2012 10:22:12 +0100 Subject: [PATCH] Reduce confusion about strings and symbols in graphviz code --- input/regression/graphviz.ly | 3 --- ly/graphviz-init.ly | 4 ++-- 2 files changed, 2 insertions(+), 5 deletions(-) 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))) -- 2.39.2