diff options
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index b3865e0..02bca86 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -220,13 +220,13 @@ (+ 1 event-buffer-index) buffer-size))) - (atomic-box-set! current-state-id-and-event-buffer-index-box - (cons new-state-id - new-event-index)) - (vector-set! event-buffer new-event-index - (list new-state-id event-name data)))))) + (list new-state-id event-name data)) + + (atomic-box-set! current-state-id-and-event-buffer-index-box + (cons new-state-id + new-event-index)))))) (spawn-fiber (lambda () |