Permalink
Browse files

fix for 3.12.0

  • Loading branch information...
1 parent 8bdf112 commit 1c59ddb506d58df6f8d0e3693accd55fe21155b9 @camlspotter camlspotter committed Jun 9, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 searchid.ml
View
@@ -414,7 +414,7 @@ let rec bound_variables pat =
| Ppat_construct (_,Some pat,_) -> bound_variables pat
| Ppat_variant (_,None) -> []
| Ppat_variant (_,Some pat) -> bound_variables pat
- | Ppat_record l ->
+ | Ppat_record (l, _) ->
List2.flat_map l ~f:(fun (_,pat) -> bound_variables pat)
| Ppat_array l ->
List2.flat_map l ~f:bound_variables

0 comments on commit 1c59ddb

Please sign in to comment.