this repo has no description
1type t = Jv.t
2
3include (Jv.Id : Jv.CONV with type t := t)
4
5let state_effect = Jv.get Jv.global "__CM__StateEffect"
6let define () = Jv.call state_effect "define" [||]
7let of_ t v = Jv.call t "of" [| v |]
8let is instance t = Jv.to_bool (Jv.call instance "is" [| t |])
9let value instance = Jv.get instance "value"