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.

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))