From 3fba92e1fa75924f4dbc78eb4a844a247fe1b90b Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 22 Nov 2020 22:09:02 +0100
Subject: Factorise vector-ref

---
 guile/starlet/playback.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index efbd1d6..39ccbe0 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -435,9 +435,9 @@
 
 
 (define (ensure-cue-zero-realized cue-list)
-  (unless (get-realized-state (vector-ref cue-list 0))
-    (set-realized-state! (vector-ref cue-list 0)
-                         (make <starlet-state>))))
+  (let ((cue-zero (vector-ref cue-list 0)))
+    (unless (get-realized-state cue-zero)
+      (set-realized-state! cue-zero (make <starlet-state>)))))
 
 
 ;; Get the state for a cue, taking into account tracking etc
-- 
cgit v1.2.3