'=' should not escape '{ ... }' blocks in patterns.

OCamlPro · Mar 26, 2012 · 7dd83fb · 7dd83fb
1 parent d39fc9a
commit 7dd83fb
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/src/block.ml b/src/block.ml
@@ -507,7 +507,7 @@ let rec update_path t stream tok =
 
     | EQUAL when in_pattern t.path ->
         let path =
-          unwind (function KExternal|KParen|KModule|KType|KLet|KLetIn -> true | _ -> false) t.path in
+          unwind (function KExternal|KParen|KBrace|KModule|KType|KLet|KLetIn -> true | _ -> false) t.path in
         (match path with
         | []   -> append (KBody KNone) L 2 []
         | {k=KParen}::_ -> path

diff --git a/tests/pattern.ml b/tests/pattern.ml
@@ -1,3 +1,8 @@
+let f = match x with
+  | { x = 3 } ->
+    let x = 4 in
+    ()
+
 let f = match x with
   | (X|Y) | (Z|U) -> 1
   | K -> 2