test4

generator/js_of_ast.ml

@@ -662,7 +662,7 @@ let to_javascript module_name typedtree =
 
 (*
 ctx_empty
-ctx_push(ctx, bindings)   where bindings = [ { key:"ls", val:ls}, { key:"xs", val:xs } ]
+ctx_push(ctx, bindings)   where bindings = [ { key: "ls", val: ls}, { key:"xs", val:xs } ]
 
 push("ls", ls, push("v", v, push("y", y, ctx314)); 
 

generator/tests/testctx.ml

@@ -68,7 +68,14 @@ let test3 x =
     in
   y
 
-
+let test4 x =
+  match x with
+  | None -> 1
+  | Some y -> 
+    begin match y with
+    | None -> 2
+    | Some z -> z 
+    end
 
 
 (*