diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2010-10-21 23:59:33 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2010-10-21 23:59:33 +0000 |
| commit | ce605c042a5b19bacc0de87cf2469fca9463fd1d (patch) | |
| tree | 2a8153f65f54296ee32af01bfebcba023c85de3d /otherlibs/labltk | |
| parent | 9498d009f0116ce057c7327a11a74692d3addc94 (diff) | |
merge branches/implicit-unpack + update camlp4
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10738 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk')
| -rw-r--r-- | otherlibs/labltk/browser/searchid.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/otherlibs/labltk/browser/searchid.ml b/otherlibs/labltk/browser/searchid.ml index 284814390..6742039c1 100644 --- a/otherlibs/labltk/browser/searchid.ml +++ b/otherlibs/labltk/browser/searchid.ml @@ -406,7 +406,7 @@ open Parsetree let rec bound_variables pat = match pat.ppat_desc with - Ppat_any | Ppat_constant _ | Ppat_type _ -> [] + Ppat_any | Ppat_constant _ | Ppat_type _ | Ppat_unpack _ -> [] | Ppat_var s -> [s] | Ppat_alias (pat,s) -> s :: bound_variables pat | Ppat_tuple l -> List2.flat_map l ~f:bound_variables |