From 6f955cc6d9ed4314f229e780b77b3b7a24d726c2 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 19 Oct 2011 21:52:57 +0200 Subject: [PATCH] incipit.ly: combine Scheme expressions --- input/regression/incipit.ly | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/input/regression/incipit.ly b/input/regression/incipit.ly index ad25f3a7cf..1d5de3a04b 100644 --- a/input/regression/incipit.ly +++ b/input/regression/incipit.ly @@ -6,14 +6,15 @@ grob." } %% to prevent warnings/programming errors: -#(set-object-property! 'music 'backend-type? ly:music?) -#(set-object-property! 'music 'backend-doc "Incipit music") -#(ly:add-interface 'incipit-interface "An incipit." '(music)) -#(let* ((instrument-def (assoc 'InstrumentName all-grob-descriptions)) - (meta-def (assoc 'meta (cdr instrument-def))) - (interfaces-def (assoc 'interfaces (cdr meta-def))) - (interfaces (cdr interfaces-def))) - (set-cdr! interfaces-def (cons 'incipit-interface interfaces))) +#(begin + (set-object-property! 'music 'backend-type? ly:music?) + (set-object-property! 'music 'backend-doc "Incipit music") + (ly:add-interface 'incipit-interface "An incipit." '(music)) + (let* ((instrument-def (assoc 'InstrumentName all-grob-descriptions)) + (meta-def (assoc 'meta (cdr instrument-def))) + (interfaces-def (assoc 'interfaces (cdr meta-def))) + (interfaces (cdr interfaces-def))) + (set-cdr! interfaces-def (cons 'incipit-interface interfaces)))) \score { \new Staff { @@ -59,4 +60,4 @@ grob." indent = 5\cm incipit-width = 3\cm } -} \ No newline at end of file +} -- 2.39.5