diff options
| author | glondu | 2010-09-28 15:32:14 +0000 |
|---|---|---|
| committer | glondu | 2010-09-28 15:32:14 +0000 |
| commit | 5754edd0bfc8c38cee2e721ef8d2130c97664f05 (patch) | |
| tree | 523fdec4b715c5e79fa8e679684dd41697e3d6c2 /interp | |
| parent | 86919192359dee7e274ab4af17bd32efe11a5f44 (diff) | |
Fix function applications without labels (OCaml warning 6)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13469 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 18f1d13ea6..6022e10070 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -208,7 +208,7 @@ let same c d = try check_same_type c d; true with _ -> false let has_curly_brackets ntn = String.length ntn >= 6 & (String.sub ntn 0 6 = "{ _ } " or String.sub ntn (String.length ntn - 6) 6 = " { _ }" or - string_string_contains ntn " { _ } ") + string_string_contains ~where:ntn ~what:" { _ } ") let rec wildcards ntn n = if n = String.length ntn then [] |