Fix signature of throw and add throwAny

Author: cknitt

runtime/Pervasives.res

@@ -23,16 +23,32 @@ Raises the given exception, terminating execution unless caught by a surrounding
 ## Examples
 
 ```rescript
-let error = Error.make("Everything is upside down.")
+exception MyException(string)
 
-if 5 > 10 {
-  throw(error)
-} else {
-  Console.log("Phew, sanity still rules.")
+try {
+  throw(MyException("Error message"))
+} catch {
+| MyException(message) => Console.log("Caught exception: " + message)
 }
 ```
 */
-external throw: Stdlib_Error.t => 'a = "%raise"
+external throw: exn => 'a = "%raise"
+
+/**
+Raises the given exception, terminating execution unless caught by a surrounding try/catch block.
+
+## Examples
+
+```rescript
+try {
+  // You can throw any JS value, but it is not good practice
+  throwAny(42)
+} catch {
+| Exn.Error(error) => Console.log("Caught exception: " + error->String.make)
+}
+```
+*/
+external throwAny: 'a => 'b = "%raise"
 
 /* Composition operators */
 

runtime/Stdlib_Error.res

@@ -40,8 +40,6 @@ module URIError = {
 
 external raise: t => 'a = "%raise"
 
-external throw: t => 'a = "%raise"
-
-let panic = msg => make(`Panic! ${msg}`)->raise
+let panic = msg => make(`Panic! ${msg}`)->toException->throw
 
 external ignore: t => unit = "%ignore"

runtime/Stdlib_Error.resi

@@ -149,34 +149,15 @@ Raises (throws in JavaScript language) the provided `Error.t`, which will stop e
 let error = Error.make("Everything is upside down.")
 
 if 5 > 10 {
-  error->Error.raise
+  throw(error->Error.toException)
 } else {
   Console.log("Phew, sanity still rules.")
 }
 ```
 */
-@deprecated(
-  "`raise` has been renamed to `throw` to align with JavaScript vocabulary. Please use `throw` instead"
-)
+@deprecated("Please use the global `throw` or `throwAny` function instead")
 external raise: t => 'a = "%raise"
 
-/**
-Raises the given exception, terminating execution unless caught by a surrounding try/catch block.
-
-## Examples
-
-```rescript
-let error = Error.make("Everything is upside down.")
-
-if 5 > 10 {
-  Error.throw(error)
-} else {
-  Console.log("Phew, sanity still rules.")
-}
-```
-*/
-external throw: t => 'a = "%raise"
-
 /**
 Raises a panic exception with the given message.
 

runtime/Stdlib_Int.res

@@ -64,7 +64,7 @@ let range = (start, end, ~options: rangeOptions={}) => {
   let step = switch options.step {
   | None => isInverted ? -1 : 1
   | Some(0) if start !== end =>
-    Stdlib_Error.throw(Stdlib_Error.RangeError.make("Incorrect range arguments"))
+    throw(Stdlib_Error.RangeError.make("Incorrect range arguments")->Stdlib_Error.toException)
   | Some(n) => n
   }