Add Belt.MutableQueue.peekOrThrow and popOrThrow

Author: mediremi

CHANGELOG.md

@@ -56,6 +56,8 @@
   - `Belt.List.getExn` → `Belt.List.getOrThrow`
   - `Belt.List.tailExn` → `Belt.List.tailOrThrow`
   - `Belt.List.headExn` → `Belt.List.headOrThrow`
+  - `Belt.MutableQueue.peekExn` → `Belt.MutableQueue.peekOrThrow`
+  - `Belt.MutableQueue.popExn` → `Belt.MutableQueue.popOrThrow`
   - Old functions remain available but are marked as deprecated with guidance to use the new `OrThrow` variants.
   - https://github.com/rescript-lang/rescript/pull/7518, https://github.com/rescript-lang/rescript/pull/7554, https://github.com/rescript-lang/rescript/pull/7581
 

analysis/reanalyze/src/ExnLib.ml

@@ -21,7 +21,14 @@ let raisesLibTable : (Name.t, Exceptions.t) Hashtbl.t =
   in
   let beltMap = [("getExn", [notFound]); ("getOrThrow", [notFound])] in
   let beltMutableMap = beltMap in
-  let beltMutableQueue = [("peekExn", [notFound]); ("popExn", [notFound])] in
+  let beltMutableQueue =
+    [
+      ("peekExn", [notFound]);
+      ("peekOrThrow", [notFound]);
+      ("popExn", [notFound]);
+      ("popOrThrow", [notFound]);
+    ]
+  in
   let beltSet = [("getExn", [notFound]); ("getOrThrow", [notFound])] in
   let beltMutableSet = beltSet in
   let beltOption = [("getExn", [notFound])] in

runtime/Belt_MutableQueue.res

@@ -70,12 +70,14 @@ let peekUndefined = q =>
   | Some(v) => Js.Undefined.return(v.content)
   }
 
-let peekExn = q =>
+let peekOrThrow = q =>
   switch q.first {
   | None => throw(Not_found)
   | Some(v) => v.content
   }
 
+let peekExn = peekOrThrow
+
 let pop = q =>
   switch q.first {
   | None => None
@@ -92,7 +94,7 @@ let pop = q =>
     }
   }
 
-let popExn = q =>
+let popOrThrow = q =>
   /* TO fix */
   switch q.first {
   | None => throw(Not_found)
@@ -109,6 +111,8 @@ let popExn = q =>
     }
   }
 
+let popExn = popOrThrow
+
 let popUndefined = q =>
   switch q.first {
   | None => Js.undefined

runtime/Belt_MutableQueue.resi

@@ -59,10 +59,16 @@ let peek: t<'a> => option<'a>
 let peekUndefined: t<'a> => Js.undefined<'a>
 
 /**
-raise an exception if `q` is empty
+`peekExn(q)` raises an exception if `q` is empty.
 */
+@deprecated("Use `peekOrThrow` instead")
 let peekExn: t<'a> => 'a
 
+/**
+`peekOrThrow(q)` raises an exception if `q` is empty.
+*/
+let peekOrThrow: t<'a> => 'a
+
 /**
 `pop(q)` removes and returns the first element in queue `q`.
 */
@@ -77,8 +83,14 @@ let popUndefined: t<'a> => Js.undefined<'a>
 /**
 `popExn(q)` raise an exception if q is empty.
 */
+@deprecated("Use `popOrThrow` instead")
 let popExn: t<'a> => 'a
 
+/**
+`popOrThrow(q)` raise an exception if q is empty.
+*/
+let popOrThrow: t<'a> => 'a
+
 /**
 `copy(q)` returns a fresh queue.
 */