Commit 05751436 authored by Jérôme Maloberti's avatar Jérôme Maloberti

Fix a compilation issue with the previous patch.

parent 572d9553
......@@ -403,9 +403,6 @@ and to_ml_descr e = function
let vars = mk_vars tl in
let x = mk_var () in
<:match_case< ($str: String.escaped lab$, Some $lid:x$) ->
(* $matches <:expr< $lid:x$ >>
<:expr< $id:id (p ^ lab)$ $tuple_to_ml tl vars$ >>
vars$ >> *)
$ matches
<:expr< $lid:x$ >> (
List.fold_left
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment