- (define (embedded-lilypond parser lily-string filename line
- closures location)
- (let* ((clone (ly:parser-clone parser closures location))
+ (define (embedded-lilypond lily-string filename line closures)
+ (let* ((clone (ly:parser-clone closures (*location*)))