giles
62a1485302
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 43s
batch.sx: persist/append-batch commits (type at data) specs as one contiguous block; persist/append-batch-expect checks the stream is still at expected before writing any event, so the batch is all-or-nothing under a concurrent writer (conflict is a value, not a partial write). 162/162. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
41 lines
1.3 KiB
Plaintext
41 lines
1.3 KiB
Plaintext
; persist/batch — commit several events to a stream as one contiguous block.
|
|
; Each spec is (type at data). Plain append-batch always appends; the -expect
|
|
; form is the transactional commit: it checks the stream is still at `expected`
|
|
; before writing ANY event, so a batch is all-or-nothing under a concurrent
|
|
; writer (conflict is a value, not a partial write). For an order + its line
|
|
; items, an audit entry + its reason, etc. Requires: lib/persist/log.sx.
|
|
|
|
; append a list of (type at data) specs as one block; returns the stored events
|
|
; (a real cons-list, in order, with contiguous seqs)
|
|
(define
|
|
persist/append-batch
|
|
(fn
|
|
(b stream specs)
|
|
(reverse
|
|
(reduce
|
|
(fn
|
|
(acc spec)
|
|
(cons
|
|
(persist/append
|
|
b
|
|
stream
|
|
(first spec)
|
|
(nth spec 1)
|
|
(nth spec 2))
|
|
acc))
|
|
(list)
|
|
specs))))
|
|
|
|
; transactional batch: commit all specs only if the stream is still at expected,
|
|
; else return a conflict and write nothing
|
|
(define
|
|
persist/append-batch-expect
|
|
(fn
|
|
(b stream expected specs)
|
|
(let
|
|
((actual (persist/last-seq b stream)))
|
|
(if
|
|
(= actual expected)
|
|
(persist/append-batch b stream specs)
|
|
{:actual actual :expected expected :conflict true}))))
|