diff options
| author | Thomas White <taw@physics.org> | 2021-03-05 19:00:27 +0100 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-03-05 19:00:27 +0100 |
| commit | 685e64ebc6e2d994dbb0def744dec909a4ae3741 (patch) | |
| tree | ca5b5d17ff5ecf1f6723693d1552717e320c4c7f | |
| parent | bc87293c6a2cbcf246876e1a706e987af78dfc60 (diff) | |
Formatting
| -rw-r--r-- | guile/starlet/playback.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index b702d43..4d7fb7c 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -149,8 +149,8 @@ (let* ((cue-list (get-playback-cue-list pb)) (cue-index (cue-number-to-index cue-list (qnum cue-number)))) (set-state-hash-table! pb (copy-hash-table - (get-state-hash-table - (realize-state cue-list cue-index)))) + (get-state-hash-table + (realize-state cue-list cue-index)))) (set-next-cue-index! pb (+ cue-index 1)) ;; Wipe out the old fade params @@ -320,7 +320,6 @@ (define (set-fade pb fix attr fade-record) - (with-fade-times (get-fade-record-fade-times fade-record) (let ((prev-val (fade-previous fade-record)) |