Issue 4120
Fixes disappeared strings, restores the behaviour before the fix
for Issue 2752
Does not scale those strings, though, in order to fix the regression first
and do other feature requests for issue 4120 in a follow up.
(car this-list)
;; fret
(- (second this-list) base-fret)
- ;; finger
- (if (or (null? (cddr this-list))
- (not (number? (caddr this-list))))
- '()
- (third this-list))
+ ;; finger-number or markup
+ (if (and (not (null? (cddr this-list)))
+ (or (markup? (caddr this-list))
+ (number? (caddr this-list))))
+ (third this-list)
+ '())
;; inverted
(dot-is-inverted this-list)
;; parenthesis