let enqueue_exn t key value = match enqueue t key value with | `Key_already_present -> raise (Enqueue_duplicate_key key) | `Ok -> ()