diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-29 17:24:24 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-29 17:24:24 +0000 |
| commit | d042dcd57bb0bfb6e95486592df6daa540aaf7d4 (patch) | |
| tree | 93a38360c4ac3ee173f2d11cafb0603922c6e2d5 /plugins/extraction/mlutil.ml | |
| parent | 0386971c0a46de481de77bfab9a012520f56b021 (diff) | |
Extraction: typo in last commit
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14741 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/mlutil.ml')
| -rw-r--r-- | plugins/extraction/mlutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/extraction/mlutil.ml b/plugins/extraction/mlutil.ml index 5cef4764d..93b6445a0 100644 --- a/plugins/extraction/mlutil.ml +++ b/plugins/extraction/mlutil.ml @@ -523,7 +523,7 @@ let has_deep_pattern br = array_exists (function (_,pat,_) -> deep pat) br let is_regular_match br = - if Array.length br <> 0 then false (* empty match becomes MLexn *) + if Array.length br = 0 then false (* empty match becomes MLexn *) else try let get_r (ids,pat,c) = |