diff options
| author | herbelin | 2003-04-09 10:35:30 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-09 10:35:30 +0000 |
| commit | d434ab34709e0ce40f049d709332800d9a96bcc5 (patch) | |
| tree | adc6e5ac006c3de8d9dbda1ad06905da31a5efdb /interp/constrextern.ml | |
| parent | fa2571f711bf6ba6b99a04bf2cc10b68b37682f9 (diff) | |
Réorganisation de Impargs + mise en place d'une infrastructure
(notatemment des tables de parsing et d'affichage différenciées)
permettant au traducteur de changer les implicites
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3874 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 6a4de103b0..a094e17ab8 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -225,9 +225,14 @@ let rec extern inctx scopes vars r = | RRef (loc,ref) -> let subscopes = Symbols.find_arguments_scope ref in let args = extern_args (extern true) scopes vars args subscopes in - extern_app loc (implicits_of_global ref) + extern_app loc (implicits_of_global_out ref) (extern_reference loc vars ref) args + | RVar (loc,id) -> (* useful for translation of inductive *) + let args = List.map (extern true scopes vars) args in + extern_app loc (implicits_of_global_out (VarRef id)) + (Ident (loc,id)) + args | _ -> explicitize loc [] (extern inctx scopes vars f) (List.map (extern true scopes vars) args)) |