6 lines
203 B
OCaml
6 lines
203 B
OCaml
|
(* stub implementation since we actually aren't multithreaded *)
|
||
|
|
type t = unit
|
||
|
|
external create : unit -> t = "%identity"
|
||
|
|
external lock : t -> unit = "%identity"
|
||
|
|
external unlock : t -> unit = "%identity"
|