From d4458d5e5f5322121b66b613e7640a2f8be6d3a8 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Fri, 9 Sep 2016 16:38:50 +0200
Subject: Propagate location info on pattern match compilation.

This is a follow-up to #244 and corrects a minor bug introduced by the
patch.
---
 pretyping/cases.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/pretyping/cases.ml b/pretyping/cases.ml
index 4cda689e9c..ad57c16438 100644
--- a/pretyping/cases.ml
+++ b/pretyping/cases.ml
@@ -56,14 +56,14 @@ let error_bad_pattern ?loc env sigma cstr ind =
     (env, sigma, BadPattern (cstr,ind))
 
 let error_bad_constructor ?loc env cstr ind =
-  raise_pattern_matching_error
+  raise_pattern_matching_error ?loc
     (env, Evd.empty, BadConstructor (cstr,ind))
 
 let error_wrong_numarg_constructor ?loc env c n =
-  raise_pattern_matching_error (env, Evd.empty, WrongNumargConstructor(c,n))
+  raise_pattern_matching_error ?loc (env, Evd.empty, WrongNumargConstructor(c,n))
 
 let error_wrong_numarg_inductive ?loc env c n =
-  raise_pattern_matching_error (env, Evd.empty, WrongNumargInductive(c,n))
+  raise_pattern_matching_error ?loc (env, Evd.empty, WrongNumargInductive(c,n))
 
 let rec list_try_compile f = function
   | [a] -> f a
-- 
cgit v1.2.3