\remove "Clef_engraver"
} { c4 d4 } #]
%% Context properties
-\test ##[ \once \set Score . skipBars = ##t #] % PropertySet
+\test ##[ \once \set Score.skipBars = ##t #] % PropertySet
\test ##[ \set autoBeaming = ##f #]
-\test ##[ \unset Score . skipBars #] % PropertyUnset
+\test ##[ \unset Score.skipBars #] % PropertyUnset
\test ##[ \unset autoBeaming #]
%% Layout properties
-\test ##[ \override Staff.Stem.thickness = #4.0 #] % OverrideProperty
+\test ##[ \override Staff.Stem.thickness = #4.0 #] % OverrideProperty
\test ##[ \once \override Beam.beam-thickness = #0.6 #]
\test ##[ \revert Staff.Stem.thickness #] % RevertProperty
\test ##[ \revert Beam.beam-thickness #]
(if (and (not (null? once)))
"\\once "
"")
- (if (eqv? (*current-context*) 'Bottom)
+ (if (eq? (*current-context*) 'Bottom)
""
- (format #f "~a . " (*current-context*)))
+ (format #f "~a." (*current-context*)))
property
(value->lily-string value)
(new-line->lily-string))))
(define-display-method PropertyUnset (expr)
(format #f "~a\\unset ~a~a~a"
(if (ly:music-property expr 'once #f) "\\once " "")
- (if (eqv? (*current-context*) 'Bottom)
+ (if (eq? (*current-context*) 'Bottom)
""
- (format #f "~a . " (*current-context*)))
+ (format #f "~a." (*current-context*)))
(ly:music-property expr 'symbol)
(new-line->lily-string)))