diff options
| author | herbelin | 2000-12-18 22:58:51 +0000 |
|---|---|---|
| committer | herbelin | 2000-12-18 22:58:51 +0000 |
| commit | 36da868408c3d73efa1b60c8185e5db25257534e (patch) | |
| tree | 93c54031674de3baeb7ca607a65d569a796522c4 | |
| parent | b7cebe9900fbf93db60ce1a1ee3c04516a618faa (diff) | |
Suppression de l'affichage des instances des ?n
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1144 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/termast.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/parsing/termast.ml b/parsing/termast.ml index cd708e3040..8e7cc12af2 100644 --- a/parsing/termast.ml +++ b/parsing/termast.ml @@ -195,7 +195,10 @@ let rec ast_of_raw = function let astf = ast_of_raw f in let astargs = List.map ast_of_raw args in (match f with + | RRef (_,(EvarRef _ as ref)) -> + ast_of_ref ast_of_raw ref (* we drop args *) | RRef (_,ref) -> ast_of_app (implicits_of_global ref) astf astargs + | RVar (_,id) -> let imp = try |