@@ -771,15 +771,15 @@ and compile_staticcatch (lam : Lam.t) (lambda_cxt : Lam_compile_context.t)=
771
771
Js_output. append_output
772
772
(Js_output. make (S. declare_variable ~kind: Variable v :: declares) )
773
773
(Js_output. append_output lbody (Js_output. make (
774
- compile_cases ~is_tag: false new_cxt exit_expr handlers NonComplete ( Some {consts = [||]; blocks = [||]}) ) ~value: (E. var v )))
774
+ compile_cases ~is_tag: false new_cxt exit_expr handlers NonComplete None ) ~value: (E. var v )))
775
775
| Declare (kind, id)
776
776
(* declare first this we will do branching*) ->
777
777
let declares = S. declare_variable ~kind id :: declares in
778
778
let new_cxt = {lambda_cxt with jmp_table = jmp_table; continuation = Assign id } in
779
779
let lbody = compile_lambda new_cxt body in
780
780
Js_output. append_output (Js_output. make declares)
781
781
(Js_output. append_output lbody
782
- (Js_output. make (compile_cases ~is_tag: false new_cxt exit_expr handlers NonComplete ( Some {consts = [||]; blocks = [||]}) )))
782
+ (Js_output. make (compile_cases ~is_tag: false new_cxt exit_expr handlers NonComplete None )))
783
783
(* place holder -- tell the compiler that
784
784
we don't know if it's complete
785
785
*)
@@ -788,13 +788,13 @@ and compile_staticcatch (lam : Lam.t) (lambda_cxt : Lam_compile_context.t)=
788
788
let lbody = compile_lambda new_cxt body in
789
789
Js_output. append_output (Js_output. make declares)
790
790
(Js_output. append_output lbody
791
- (Js_output. make (compile_cases ~is_tag: false new_cxt exit_expr handlers NonComplete ( Some {consts = [||]; blocks = [||]}) )))
791
+ (Js_output. make (compile_cases ~is_tag: false new_cxt exit_expr handlers NonComplete None )))
792
792
| Assign _ ->
793
793
let new_cxt = {lambda_cxt with jmp_table = jmp_table } in
794
794
let lbody = compile_lambda new_cxt body in
795
795
Js_output. append_output (Js_output. make declares)
796
796
(Js_output. append_output lbody
797
- (Js_output. make (compile_cases ~is_tag: false new_cxt exit_expr handlers NonComplete ( Some {consts = [||]; blocks = [||]}) )))
797
+ (Js_output. make (compile_cases ~is_tag: false new_cxt exit_expr handlers NonComplete None )))
798
798
799
799
and compile_sequand
800
800
(l : Lam.t ) (r : Lam.t ) (lambda_cxt : Lam_compile_context.t ) =
0 commit comments