Fix a compilation issue with the previous patch.

ocamliface/mlstub.ml

@@ -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