Mozart’s Musikalisches Würfelspiel: Difference between revisions
No edit summary |
Make it work in 2.25 |
||
| Line 414: | Line 414: | ||
((null? elts) | ((null? elts) | ||
(list->vector measures)) | (list->vector measures)) | ||
((music-is-of-type? (car elts) 'bar-check) | ((or (music-is-of-type? (car elts) 'bar-check) ;; until 2.25.5 | ||
(music-is-of-type? (car elts) 'bar-check-event)) ;; since 2.25.6 | |||
(let ((measure-music (make-sequential-music measure))) | (let ((measure-music (make-sequential-music measure))) | ||
(loop (cdr elts) '() (cons measure-music measures)))) | (loop (cdr elts) '() (cons measure-music measures)))) | ||