+*)
+
+(* XXX We don't currently keep enough data in the parts structure
+ * to allow us to reconstruct missing partition table entries.
+ *)
+let offset_is_free _ _ = false
+
+let callbacks = {
+ parts_cb_probe = probe;
+ parts_cb_offset_is_free = offset_is_free;
+}