return m;
}
-
LY_DEFINE(ly_find_glyph_by_name, "ly:find-glyph-by-name", 2 , 0, 0,
(SCM font, SCM name),
"This function retrieves a Molecule for the glyph named @var{name} in "
/*
Two shift/reduce problems:
- - empty music-list
- - empty pre-events
-
-
-
-(bullshit.
-
-s/r:
1. foo = bar.
- "bar" -> String -> Lyric -> Music
+ "bar" -> String -> Lyric -> Music -> music-assignment
- "bar" -> String
+ "bar" -> String -> string-assignment
2. \repeat
)
(define (make-head-type-elem t)
- (let* ( (m (make-music-by-name 'Music)))
+ (let* ( (m (make-music-by-name 'OverrideProperty)))
(set-mus-properties!
m
- `((iterator-ctor . ,Push_property_iterator::constructor)
- (symbol . NoteHead)
+ `((symbol . NoteHead)
(grob-property . style)
(grob-value . ,t)
(pop-first . #t)))