1;;;LilyPondDefinition
2(let ((name #f)(def #f))
3	(if (and (defined? 'LilyPondDefinition::params) (pair? LilyPondDefinition::params))
4		(begin
5			(set! name (car LilyPondDefinition::params))
6			(set! def (cdr LilyPondDefinition::params)))
7		(begin
8			(set! name (d-GetUserInput (_ "Creating LilyPond Definition") (_ "Give name (alphabetical only): ") "Barline"))
9			(if name
10					(set! def (d-GetUserInput (_ "Creating LilyPond Definition") (_ "Give valid LilyPond syntax for this definition: ") "\\bar \"||\"")))))
11	(if def
12		(let ( (tag (string-append "Allow\n" name)))
13		(set! def (string-trim-both def char-set:whitespace))
14		(if (string-null? def)
15			(set! def "{}"))
16		(d-DirectivePut-score-prefix tag (string-append name " = " def "\n"))
17		(d-DirectivePut-score-display tag name)
18		(d-DirectivePut-score-override tag DENEMO_OVERRIDE_AFFIX)
19		(d-SetSaved #f))))