diff options
| author | herbelin | 2003-09-21 22:44:27 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-21 22:44:27 +0000 |
| commit | 0df8820d7fbdd21c46b2b2945b25d770a40de463 (patch) | |
| tree | 8a690fb2aecefb2a1477f8167e2fb67a2e029f6f /parsing/ppconstr.ml | |
| parent | 2e594ffc47bb73c5aa69aaf570af4606092b9e7f (diff) | |
Mise en place d'implicites par noms en v8
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4430 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/ppconstr.ml')
| -rw-r--r-- | parsing/ppconstr.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml index af651a4f20..4afdf55f41 100644 --- a/parsing/ppconstr.ml +++ b/parsing/ppconstr.ml @@ -81,7 +81,8 @@ let pr_sort = function let pr_explicitation = function | None -> mt () - | Some n -> int n ++ str "!" + | Some (_,ExplByPos n) -> int n ++ str "!" + | Some (_,ExplByName n) -> anomaly "Argument made explicit by name" let pr_expl_args pr (a,expl) = pr_explicitation expl ++ pr (lapp,L) a |