diff options
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/starlet/cue-list.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guile/starlet/cue-list.scm b/guile/starlet/cue-list.scm index 5821444..1b6c269 100644 --- a/guile/starlet/cue-list.scm +++ b/guile/starlet/cue-list.scm @@ -153,11 +153,12 @@ (car (get-cue-parts the-cue))))))) (set-cue-part-state! (car (get-cue-parts the-cue)) the-tracked-state) - (for-each - (lambda (part) - (apply-state (get-cue-part-state part))) - (cdr (get-cue-parts the-cue))) - the-tracked-state)) + (lighting-state + (apply-state the-tracked-state) + (for-each + (lambda (part) + (apply-state (get-cue-part-state part))) + (cdr (get-cue-parts the-cue)))))) (make-empty-state) the-cue-list)) |