let _self = Db.register_compute "Value.compute" [ Db.Value.self ] Db.Value.compute (fun () -> if not (Db.Value.is_computed ()) then force_compute ())