let enqueue_exn t key value =
    match enqueue t key value with
    | `Key_already_present -> failwith "Hash_queue.enqueue_exn: key already present"
    | `Ok -> ()