diff --git a/src/bounded_queue/bounded_queue_intf.mli b/src/bounded_queue/bounded_queue_intf.mli index 532b1d4f..03f1cacd 100644 --- a/src/bounded_queue/bounded_queue_intf.mli +++ b/src/bounded_queue/bounded_queue_intf.mli @@ -96,7 +96,7 @@ module type BOUNDED_QUEUE = sig (** {2 Producer functions} *) exception Full - (** Raised when {!push_exn} or {!push_all_exn} is applied to a full queue. *) + (** Raised when {!push_exn} is applied to a full queue. *) val push_exn : 'a t -> 'a -> unit (** [push_exn queue element] adds [element] at the end of the [queue]. diff --git a/src/treiber_stack.mli b/src/treiber_stack.mli index f0647ed4..4553e19b 100644 --- a/src/treiber_stack.mli +++ b/src/treiber_stack.mli @@ -20,7 +20,7 @@ val is_empty : 'a t -> bool (** {2 Consumer functions} *) exception Empty -(** Raised when {!pop_exn}, {!peek_exn}, {!drop_exn}, or {!set_exn} is +(** Raised when {!pop_exn}, {!peek_exn} and {!drop_exn} is applied to an empty stack. *)