feat: start of assertions

This commit is contained in:
Henri Saudubray 2025-06-11 12:00:36 +02:00
parent 65918ab59b
commit 883e5fff01
Signed by: hms
GPG key ID: 7065F57ED8856128
6 changed files with 341 additions and 93 deletions

View file

@ -58,7 +58,9 @@ module InPlace =
(h, Some vec), s
else (h, None), s in
let copy _ = raise Common.Errors.TODO in
let copy s =
let vec = zmake (length s.vec) in
blit s.vec vec; s.vec <- vec; s in
DNodeC { state; step; reset; copy }
end