diff options
author | Thomas White <taw@physics.org> | 2022-02-05 19:50:50 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2022-02-05 19:50:50 +0100 |
commit | f1142461fc68f6fe273c5826244197beba68fca9 (patch) | |
tree | 198014c3445f34ae621713772f33ac8e09f3539c /guile/starlet/cue-list.scm | |
parent | 46a95c3da79b9115daa6614f13157b01b7fbc1c6 (diff) |
cue-list: Fix use of apply-state outside lighting-state
Obviously, the parts have to be applied to a separate state, not the
programmer state.
Diffstat (limited to 'guile/starlet/cue-list.scm')
-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)) |