From d042dcd57bb0bfb6e95486592df6daa540aaf7d4 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 29 Nov 2011 17:24:24 +0000
Subject: Extraction: typo in last commit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14741 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/extraction/mlutil.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/extraction/mlutil.ml')

diff --git a/plugins/extraction/mlutil.ml b/plugins/extraction/mlutil.ml
index 5cef4764de..93b6445a0d 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) =
-- 
cgit v1.2.3