From 958599031dc67394cacdd29720b8ab56abd47dc2 Mon Sep 17 00:00:00 2001
From: Matej Kosik
Date: Wed, 12 Oct 2016 15:00:22 +0200
Subject: changing "ssreflect.ml4" so that we avoid triggering bugs in camlp5's
 "pr_o.cmo" plugin

---
 mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'mathcomp')

diff --git a/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4 b/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4
index 0b46980..93a1ba7 100644
--- a/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4
+++ b/mathcomp/ssreflect/plugin/trunk/ssreflect.ml4
@@ -1139,7 +1139,7 @@ let interp_view_nbimps ist gl rc =
     let si = sig_it gl in
     let gl = re_sig si sigma in
     let pl, c = splay_open_constr gl t in
-    if isAppInd gl c then List.length pl else ~-(List.length pl)
+    if isAppInd gl c then List.length pl else (-(List.length pl))
   with _ -> 0
 
 (* }}} *)
-- 
cgit v1.2.3