| Index: ly/music-functions-init.ly |
| diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly |
| index 9fe65613454f9c987b9b3d601b4a7afd3c7f2a17..4bd7d03fa69fd03fdfa45fe7cb5295470878bc0f 100644 |
| --- a/ly/music-functions-init.ly |
| +++ b/ly/music-functions-init.ly |
| @@ -67,19 +67,20 @@ given fraction of the main note's duration has passed. If |
| @code{afterGraceFraction} which has a default value of @code{3/4}.") |
| (let ((main-length (ly:music-length main)) |
| (fraction (or fraction (ly:parser-lookup 'afterGraceFraction)))) |
| - (make-simultaneous-music |
| - (list |
| - main |
| - (make-sequential-music |
| - (list |
| - |
| - (make-music 'SkipMusic |
| - 'duration (ly:make-duration |
| - 0 0 |
| - (* (ly:moment-main main-length) |
| - (/ (car fraction) (cdr fraction))))) |
| - (make-music 'GraceMusic |
| - 'element grace))))))) |
| + (descend-to-context |
| + (make-simultaneous-music |
| + (list |
| + main |
| + (make-sequential-music |
| + (list |
| + (make-music 'SkipMusic |
| + 'duration (ly:make-duration |
| + 0 0 |
| + (* (ly:moment-main main-length) |
| + (/ (car fraction) (cdr fraction))))) |
| + (make-music 'GraceMusic |
| + 'element grace))))) |
| + 'Bottom))) |
| %% music identifiers not allowed at top-level, |
