diff options
-rw-r--r-- | examples/demo.scm | 4 | ||||
-rw-r--r-- | guile/starlet/playback.scm | 8 |
2 files changed, 7 insertions, 5 deletions
diff --git a/examples/demo.scm b/examples/demo.scm index 3936b28..ec8ad6c 100644 --- a/examples/demo.scm +++ b/examples/demo.scm @@ -78,10 +78,6 @@ (define my-cue-list (cue-list - (cue 0 - (cue-state (apply-state home-state)) - #:fade-up 1 - #:fade-down 1) (cue 1 (cue-state (apply-state example-state-1)) diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index 98ce445..6c7ed1b 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -265,4 +265,10 @@ (define-syntax cue-list - (identifier-syntax vector)) + (syntax-rules () + ((_ body ...) + (vector (cue 0 + (cue-state (apply-state home-state)) + #:fade-up 1 + #:fade-down 1) + body ...)))) |