diff options
| -rw-r--r-- | guile/starlet/cue-list.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/guile/starlet/cue-list.scm b/guile/starlet/cue-list.scm index a2361b0..4bb072b 100644 --- a/guile/starlet/cue-list.scm +++ b/guile/starlet/cue-list.scm @@ -237,10 +237,14 @@ (define-syntax cue-list (syntax-rules () ((_ body ...) - (let ((the-cue-list (vector (cue 0 - (make-empty-state) - (snap)) - body ...))) + (let ((the-cue-list + (list->vector + (remove unspecified? + (list + (cue 0 + (make-empty-state) + (snap)) + body ...))))) (track-all-cues! the-cue-list) (preset-all-cues! the-cue-list) the-cue-list)))) |