diff options
| author | Son Ho | 2022-11-06 13:17:09 +0100 |
|---|---|---|
| committer | Son HO | 2022-11-07 10:36:13 +0100 |
| commit | 55a4a7c8ef7bf9b393b593c8d4591aad7895cf06 (patch) | |
| tree | c2737530e63a80632dacb18bc59de42b3232b738 /compiler/PureMicroPasses.ml | |
| parent | ef4ac7cb389e2b135b1a81f448aa90ee7d7d8430 (diff) | |
Replace all the occurrences of `failwith ...` with `raise (Failure ...)`
Diffstat (limited to '')
| -rw-r--r-- | compiler/PureMicroPasses.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/PureMicroPasses.ml b/compiler/PureMicroPasses.ml index 9899cfcf..239b0b4f 100644 --- a/compiler/PureMicroPasses.ml +++ b/compiler/PureMicroPasses.ml @@ -1117,7 +1117,7 @@ let eliminate_box_functions (_ctx : trans_ctx) (def : fun_decl) : fun_decl = let arg, args = match args with | _ :: given_back :: args -> (given_back, args) - | _ -> failwith "Unreachable" + | _ -> raise (Failure "Unreachable") in mk_apps arg args | A.BoxFree, _ -> |