Index: scm/define-music-display-methods.scm |
diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm |
index 1f3c21b70b5b387a59090eef8937184cd293cfaf..3d41bf4331bcd74024cd75af32ea417d558aeb10 100644 |
--- a/scm/define-music-display-methods.scm |
+++ b/scm/define-music-display-methods.scm |
@@ -988,12 +988,10 @@ Otherwise, return #f." |
Otherwise, return #f." |
(with-music-match (expr (music |
'ContextSpeccedMusic |
+ context-type 'Timing |
element (music |
- 'ContextSpeccedMusic |
- context-type 'Timing |
- element (music |
- 'PartialSet |
- duration ?duration)))) |
+ 'PartialSet |
+ duration ?duration))) |
(and ?duration |
(format #f "\\partial ~a" |