diff --git a/generator/tests/jsref/JsInterpreter.ml b/generator/tests/jsref/JsInterpreter.ml index 37ef90a647c32b28e54008512c796034f1577416..9fd7b5763d501729c4f728a686865df20e43e2d3 100644 --- a/generator/tests/jsref/JsInterpreter.ml +++ b/generator/tests/jsref/JsInterpreter.ml @@ -3625,7 +3625,7 @@ and run_stat_try s c t1 t2o t3o = | Some t3 -> let%success (s2, rv_2) = (run_stat s1 c t3) in res_ter s2 r | None -> res_ter s1 r) (fun finallycont -> - if_any_or_throw (run_stat s c t1) finallycont (fun s1 v -> + ifx_any_or_throw (run_stat s c t1) finallycont (fun s1 v -> match t2o with | Some y -> let (x, t2) = y in diff --git a/generator/tests/jsref/JsInterpreterMonads.ml b/generator/tests/jsref/JsInterpreterMonads.ml index a8e795b971c04964882e73123c47a2604549575b..e6c318bf099611fd9159e915dc80fe0c4d3b9f55 100644 --- a/generator/tests/jsref/JsInterpreterMonads.ml +++ b/generator/tests/jsref/JsInterpreterMonads.ml @@ -365,3 +365,4 @@ let ifx_success_state a b c = if_success_state a b c let ifx_some_or_default v d f = if_some_or_default v d f let ifx_success_or_return a b c = if_success_or_return a b c let ifx_empty_label a b c = if_empty_label a b c +let ifx_any_or_throw a b c = if_any_or_throw a b c