Remove raise_notrace

Author: cknitt

analysis/reanalyze/src/Exception.ml

@@ -249,11 +249,7 @@ let traverseAst () =
            case.c_guard |> iterExprOpt self;
            case.c_rhs |> iterExpr self)
   in
-  let isRaise s =
-    s = "Pervasives.raise"
-    || s = "Pervasives.raise_notrace"
-    || s = "Pervasives.throw"
-  in
+  let isRaise s = s = "Pervasives.raise" || s = "Pervasives.throw" in
   let raiseArgs args =
     match args with
     | [(_, Some {Typedtree.exp_desc = Texp_construct ({txt}, _, _)})] ->

tests/tests/src/test_per.res

@@ -1,7 +1,6 @@
 /* Exceptions */
 
 external raise: exn => 'a = "%raise"
-external raise_notrace: exn => 'a = "%raise_notrace"
 
 let failwith = s => throw(Failure(s))
 let invalid_arg = s => throw(Invalid_argument(s))