Fix bug in ref

ocaml-multicore · Dec 8, 2016 · 26ec6fd · 26ec6fd
1 parent ca9a2e8
commit 26ec6fd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/lib/ref.ml b/src/lib/ref.ml
@@ -102,6 +102,6 @@ module Make(Sched: Scheduler.S)
 
   let upd r f = upd r f Reagent.commit
 
-  let cas r expect update = upd r (fun current ->
-    if current = expect then Some update else None)
+  let cas r expect update = upd r (fun current () ->
+    if current = expect then Some (update, ()) else None)
 end