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