From cc8d69d508c22bf3329cce55e94ca1244c8cd5fb Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 3 Feb 2004 17:35:49 +0000
Subject: Relachement condition pour afficher @ en cas d'explicitation
 d'implicites

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5285 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/constrextern.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/interp/constrextern.ml b/interp/constrextern.ml
index 933fd33cab..28ab30c057 100644
--- a/interp/constrextern.ml
+++ b/interp/constrextern.ml
@@ -1311,8 +1311,9 @@ let extern_app loc inctx impl (cf,f) args =
   if args = [] (* maybe caused by a hidden coercion *) then
     extern_global loc impl f
   else
-  if !Options.raw_print or 
-    (!print_implicits & not !print_implicits_explicit_args &
+  if 
+    ((!Options.raw_print or
+      (!print_implicits & not !print_implicits_explicit_args)) &
      List.exists is_status_implicit impl)
   then 
     CAppExpl (loc, (is_projection (List.length args) cf, f), args)
-- 
cgit v1.2.3