More Scheme vector quoting.

diff --git a/Documentation/de/user/fretted-strings.itely b/Documentation/de/user/fretted-strings.itely
index 8d9ddbe2152e6ae2d76a632353a536e1f1e3539c..c6ec8b9a1f3f4e1fcec68b8fbae418967a889143 100644 (file)
--- a/Documentation/de/user/fretted-strings.itely
+++ b/Documentation/de/user/fretted-strings.itely
@@ -298,7 +298,7 @@ Argument eingesetzt wird, wie im nächsten Beispiel:
 #(define RH rightHandFinger)
 {
   \set strokeFingerOrientations = #'(right)
-  \override StrokeFinger #'digit-names = ##("x" "y" "z" "!" "@")
+  \override StrokeFinger #'digit-names = #'#("x" "y" "z" "!" "@")
   <c-\RH #5 >4
   <c-\RH "@">4
 }

diff --git a/Documentation/es/user/fretted-strings.itely b/Documentation/es/user/fretted-strings.itely
index ab317dd46e1c4f504a54744cfe1a1417798edcad..058d033718cdf409a68e883321601a1eddae0cbe 100644 (file)
--- a/Documentation/es/user/fretted-strings.itely
+++ b/Documentation/es/user/fretted-strings.itely
@@ -321,7 +321,7 @@ siguiente:
 #(define RH rightHandFinger)
 {
   \set strokeFingerOrientations = #'(right)
-  \override StrokeFinger #'digit-names = ##("x" "y" "z" "!" "@")
+  \override StrokeFinger #'digit-names = #'#("x" "y" "z" "!" "@")
   <c-\RH #5 >4
   <c-\RH "@">4
   <c-\RH #2 >4

diff --git a/Documentation/es/user/tweaks.itely b/Documentation/es/user/tweaks.itely
index 3c8401673128eeda4eb1a2cf1c5a0785a98114f4..4c2c3cf3d694766dafe801726290e9814a8e7aa1 100644 (file)
--- a/Documentation/es/user/tweaks.itely
+++ b/Documentation/es/user/tweaks.itely
@@ -1002,7 +1002,7 @@ de la instrucción @code{\override}.
 @lilypond[quote,fragment,ragged-right,verbatim,relative=2]
 {
   \time 12/16
-  \override Staff.BarLine #'break-visibility = ##(#f #f #f)
+  \override Staff.BarLine #'break-visibility = #'#(#f #f #f)
   c4 b8 c d16 c d8 |
   g, a16 b8 c d4 e16 |
   e8

diff --git a/Documentation/fr/user/fretted-strings.itely b/Documentation/fr/user/fretted-strings.itely
index 19d50f606e34fa8c9af33ceabcc33c2dcc4acc1d..6b3678f063707d6db13c95883ae5e2c4cb5b1907 100644 (file)
--- a/Documentation/fr/user/fretted-strings.itely
+++ b/Documentation/fr/user/fretted-strings.itely
@@ -291,7 +291,7 @@ chaîne de caractères comme argument de @code{\rightHandFinger}.
 #(define RH rightHandFinger)
 {
   \set strokeFingerOrientations = #'(right)
-  \override StrokeFinger #'digit-names = ##("x" "y" "z" "!" "@")
+  \override StrokeFinger #'digit-names = #'#("x" "y" "z" "!" "@")
   <c-\RH #5 >4
   <c-\RH "@">4
 }
@@ -360,7 +360,7 @@ chaîne de caractères comme argument de @code{\rightHandFinger}.
 #(define RH rightHandFinger)
 {
   \set strokeFingerOrientations = #'(right)
-  \override StrokeFinger #'digit-names = ##("x" "y" "z" "!" "@")
+  \override StrokeFinger #'digit-names = #'#("x" "y" "z" "!" "@")
   <c-\RH #5 >4
   <c-\RH "@">4
 }

diff --git a/Documentation/fr/user/pitches.itely b/Documentation/fr/user/pitches.itely
index c0cbdc867e11b3c246a4d70c47ee7fa43f93c510..da8265d08b1be847c2cd706f6b618db68a3b233f 100644 (file)
--- a/Documentation/fr/user/pitches.itely
+++ b/Documentation/fr/user/pitches.itely
@@ -869,7 +869,7 @@ de symboles.  Le n-ième élément indique le style à utiliser pour le
 n-ième degré de la gamme.  Toutes les combinaisons sont possibles :
 
 @lilypond[verbatim,relative=1,fragment]
-  \set shapeNoteStyles  = ##(cross triangle fa #f mensural xcircle diamond)
+  \set shapeNoteStyles  = #'#(cross triangle fa #f mensural xcircle diamond)
   c8 d4. e8 a2 g1
 @end lilypond
 

diff --git a/Documentation/fr/user/rhythms.itely b/Documentation/fr/user/rhythms.itely
index 6585ea820d4c2a53a5c8cf4a01bacccbf9759601..9b8984ebcb1e91340caadee09de8e06e60efeefe 100644 (file)
--- a/Documentation/fr/user/rhythms.itely
+++ b/Documentation/fr/user/rhythms.itely
@@ -1259,7 +1259,7 @@ Vous pouvez imprimer un numéro de mesure à intervalles réguliers plutôt
 qu'en tête de chaque ligne.  C'est ce qu'illustre l'exemple suivant.
 
 @lilypond[verbatim,ragged-right,quote,fragment,relative]
-\override Score.BarNumber #'break-visibility = ##(#f #t #t)
+\override Score.BarNumber #'break-visibility = #'#(#f #t #t)
 \set Score.currentBarNumber = #11
 \bar ""  % Permit first bar number to be printed
 % Print a bar number every second measure

diff --git a/Documentation/user/rhythms.itely b/Documentation/user/rhythms.itely
index c644863b3bf0e9c6b27c5dcc58cc202c48ccd820..ee87ba5de193d9b1b2d6166a696592166c1b7714 100644 (file)
--- a/Documentation/user/rhythms.itely
+++ b/Documentation/user/rhythms.itely
@@ -2033,7 +2033,7 @@ line visible}, @code{beginning of line visible}.  In the following
 example bar numbers are printed at all possible places:
 
 @lilypond[verbatim,ragged-right,quote,fragment,relative]
-\override Score.BarNumber #'break-visibility = ##(#t #t #t)
+\override Score.BarNumber #'break-visibility = #'#(#t #t #t)
 \set Score.currentBarNumber = #11
 \bar ""  % Permit first bar number to be printed
 c1 c c c
@@ -2049,7 +2049,7 @@ and here the bar numbers are printed every two measures
 except at the end of the line:
 
 @lilypond[verbatim,ragged-right,quote,fragment,relative]
-\override Score.BarNumber #'break-visibility = ##(#f #t #t)
+\override Score.BarNumber #'break-visibility = #'#(#f #t #t)
 \set Score.currentBarNumber = #11
 \bar ""  % Permit first bar number to be printed
 % Print a bar number every second measure
@@ -2097,7 +2097,7 @@ bar line:
 
 @lilypond[verbatim,ragged-right,quote,fragment,relative]
 \set Score.currentBarNumber = #111
-\override Score.BarNumber #'break-visibility = ##(#t #t #t)
+\override Score.BarNumber #'break-visibility = #'#(#t #t #t)
 % Increase the size of the bar number by 2
 \override Score.BarNumber #'font-size = #2
 % Print a bar number every second measure

diff --git a/Documentation/user/tweaks.itely b/Documentation/user/tweaks.itely
index 596cdc1e5c80f2015c088ab001192786019ec4fe..346c9aa3f63dc04a621b348c64b24ee7492f8c2b 100644 (file)
--- a/Documentation/user/tweaks.itely
+++ b/Documentation/user/tweaks.itely
@@ -990,7 +990,7 @@ the @code{\override} command.
 @lilypond[quote,fragment,ragged-right,verbatim,relative=2]
 {
   \time 12/16
-  \override Staff.BarLine #'break-visibility = ##(#f #f #f)
+  \override Staff.BarLine #'break-visibility = #'#(#f #f #f)
   c4 b8 c d16 c d8 |
   g, a16 b8 c d4 e16 |
   e8

diff --git a/input/cary-layout.ly b/input/cary-layout.ly
index c0ec727c2c8c2e7f6b9ca0daee9f32e6f791e246..3bfde1d7b73a68cada473eb7671130c4e922aad8 100644 (file)
--- a/input/cary-layout.ly
+++ b/input/cary-layout.ly
@@ -76,28 +76,28 @@ fraction = #(define-music-function (parser location music) (ly:music?)
        #{ \tweak #'text #tuplet-number::calc-fraction-text $music #})
 
 triangle = #(define-music-function (parser location music) (ly:music?)
-       #{ \once \set shapeNoteStyles = ##(do do do do do do do) $music #})
+       #{ \once \set shapeNoteStyles = #'#(do do do do do do do) $music #})
 
 semicircle = #(define-music-function (parser location music) (ly:music?)
-       #{ \once \set shapeNoteStyles = ##(re re re re re re re) $music #})
+       #{ \once \set shapeNoteStyles = #'#(re re re re re re re) $music #})
 
 blackdiamond = #(define-music-function (parser location music) (ly:music?)
-       #{ \once \set shapeNoteStyles = ##(mi mi mi mi mi mi mi) $music #})
+       #{ \once \set shapeNoteStyles = #'#(mi mi mi mi mi mi mi) $music #})
 
 tiltedtriangle = #(define-music-function (parser location music) (ly:music?)
-       #{ \once \set shapeNoteStyles = ##(fa fa fa fa fa fa fa) $music #})
+       #{ \once \set shapeNoteStyles = #'#(fa fa fa fa fa fa fa) $music #})
 
 square = #(define-music-function (parser location music) (ly:music?)
-       #{ \once \set shapeNoteStyles = ##(la la la la la la la) $music #})
+       #{ \once \set shapeNoteStyles = #'#(la la la la la la la) $music #})
 
 wedge = #(define-music-function (parser location music) (ly:music?)
-       #{ \once \set shapeNoteStyles = ##(ti ti ti ti ti ti ti) $music #})
+       #{ \once \set shapeNoteStyles = #'#(ti ti ti ti ti ti ti) $music #})
 
 harmonic = #(define-music-function (parser location music) (ly:music?)
-       #{ \once \set shapeNoteStyles = ##(harmonic harmonic harmonic harmonic harmonic harmonic harmonic) $music #})
+       #{ \once \set shapeNoteStyles = #'#(harmonic harmonic harmonic harmonic harmonic harmonic harmonic) $music #})
 
 cross = #(define-music-function (parser location music) (ly:music?)
-       #{ \once \set shapeNoteStyles = ##(cross cross cross cross cross cross cross) $music #})
+       #{ \once \set shapeNoteStyles = #'#(cross cross cross cross cross cross cross) $music #})
 
 white = #(define-music-function (parser location music) (ly:music?)
        #{ \once \override NoteHead #'duration-log = #1 $music #})

diff --git a/input/regression/collision-head-solfa-fa.ly b/input/regression/collision-head-solfa-fa.ly
index 5abfd3989d06a1b4e963b817420a83937168e7cc..143ea7e0e42a715f13d7db0a045d2fe147a65a6f 100644 (file)
--- a/input/regression/collision-head-solfa-fa.ly
+++ b/input/regression/collision-head-solfa-fa.ly
@@ -8,7 +8,7 @@
 
 <<
   \key c \major
-  \set Staff.shapeNoteStyles = ##(do re mi fa #f la ti)
+  \set Staff.shapeNoteStyles = #'#(do re mi fa #f la ti)
 
   { f'4 }
   \\

diff --git a/input/regression/easy-notation.ly b/input/regression/easy-notation.ly
index 16497894fc5346e6648d47ca72624004fcefa8e6..381589b4bb4195cc19d12847d42a420e89981dec 100644 (file)
--- a/input/regression/easy-notation.ly
+++ b/input/regression/easy-notation.ly
@@ -5,18 +5,12 @@
 You also get ledger lines, of course."
 }
 
-
-\layout {
-  ragged-right = ##t
-} 
-
 \relative {
   \easyHeadsOn
   f1 e
   f2 e
   f4 e
   
-  \override NoteHead #'note-names = ##("U" "V" "W" "X" "Y" "Z" "z")
-  c2 d4 e 
+  \override NoteHead #'note-names = #'#("U" "V" "W" "X" "Y" "Z" "z")
+  c2 d4 e
 }
-

diff --git a/input/regression/note-head-solfa.ly b/input/regression/note-head-solfa.ly
index 56e47904cfd8dfc7a8522d8f0459371035798b1b..dcde23c6d8ec8850205e8d27fe295b52dc6d045e 100644 (file)
--- a/input/regression/note-head-solfa.ly
+++ b/input/regression/note-head-solfa.ly
@@ -1,4 +1,3 @@
-
 \header {
 
   texidoc = "With @code{shapeNoteStyles}, the style of the note head
@@ -10,15 +9,14 @@ to the @code{tonic} property."
 
 fragment = {
   \key c \major
-  \set shapeNoteStyles = ##(do re mi fa #f la ti)
+  \set shapeNoteStyles = #'#(do re mi fa #f la ti)
   c1 d e f g a b c d e f g a b c
   c,,2 d e f g a b c d e f g a b c
   c,,4 d e f g a b c d e f g a b c
 }
 
-
-\transpose c d 
- \relative {
-  \fragment
+\transpose c d {
+  \relative c' {
+    \fragment
+  }
 }
-