diff options
| author | Thomas White <taw@physics.org> | 2020-11-22 22:09:02 +0100 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-11-22 22:09:02 +0100 |
| commit | 3fba92e1fa75924f4dbc78eb4a844a247fe1b90b (patch) | |
| tree | e0a017666b0c2dd546cf659f8a7ef8e022207235 | |
| parent | 5ba45bfb6da6aa7f8d409172c3166c92f5f2cccd (diff) | |
Factorise vector-ref
| -rw-r--r-- | guile/starlet/playback.scm | 6 |
1 files 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 |