rename cs to buf in fortuna

hannesm · Mar 6, 2024 · 4664b90 · 4664b90
1 parent 3004f1c
commit 4664b90
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/rng/fortuna.ml b/rng/fortuna.ml
@@ -119,6 +119,6 @@ let add ~g (source, _) ~pool data =
  *)
 let accumulate ~g source =
   let pool = ref 0 in
-  `Acc (fun cs ->
-    add ~g source ~pool:!pool cs ;
+  `Acc (fun buf ->
+    add ~g source ~pool:!pool buf ;
     incr pool)