From 242f8d2e8afb7da4302c07c2f1f8148bfa362b85 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 19 Sep 2001 13:49:34 +0000
Subject: Ajout de la profondeur de section à DischargeAt pour gérer l'«open»
 et le «load» des Remark/Fact

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

(limited to 'parsing')

diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml
index 93751cf5dd..322a61af7d 100644
--- a/parsing/prettyp.ml
+++ b/parsing/prettyp.ml
@@ -532,7 +532,7 @@ open Classops
 let string_of_strength = function
   | NotDeclare -> "(temp)"
   | NeverDischarge -> "(global)"
-  | DischargeAt sp -> "(disch@"^(string_of_dirpath sp)
+  | DischargeAt (sp,_) -> "(disch@"^(string_of_dirpath sp)
 
 let print_coercion_value v = prterm (get_coercion_value v)
 
-- 
cgit v1.2.3