diff options
| author | filliatr | 2000-11-22 15:09:17 +0000 |
|---|---|---|
| committer | filliatr | 2000-11-22 15:09:17 +0000 |
| commit | dcfeca5f828bc2648b567616e3dfabd03e13d9ab (patch) | |
| tree | e6ff8cddaa26116cd023bc30e790aa6aa2da0f61 /parsing | |
| parent | 24cb368c8cda29daa0c34a807e49146c4885226a (diff) | |
deplacement poly_args; iterateurs sur les segments
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@917 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_basevernac.ml4 | 2 | ||||
| -rw-r--r-- | parsing/pretty.mli | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/parsing/g_basevernac.ml4 b/parsing/g_basevernac.ml4 index efe9d77cd2..d9eaf2a0a3 100644 --- a/parsing/g_basevernac.ml4 +++ b/parsing/g_basevernac.ml4 @@ -95,7 +95,7 @@ GEXTEND Gram <:ast< (PrintOpaqueId $id) >> (* Pris en compte dans PrintOption ci-dessous (CADUC) *) | IDENT "Print"; id = identarg; "." -> <:ast< (PrintId $id) >> - | IDENT "Search"; id = identarg; "." -> <:ast< (SEARCH $id) >> + | IDENT "Search"; id = Tactic.qualidarg; "." -> <:ast< (SEARCH $id) >> | IDENT "Inspect"; n = numarg; "." -> <:ast< (INSPECT $n) >> (* TODO: rapprocher Eval et Check *) | IDENT "Eval"; r = Tactic.red_tactic; "in"; c = constrarg; "." -> diff --git a/parsing/pretty.mli b/parsing/pretty.mli index 946965c6db..64e2cb1094 100644 --- a/parsing/pretty.mli +++ b/parsing/pretty.mli @@ -48,7 +48,6 @@ val print_path_between : identifier -> identifier -> std_ppcmds val search_by_head : global_reference -> unit -val crible : (string -> env -> constr -> unit) -> global_reference -> - unit +val crible : (string -> env -> constr -> unit) -> global_reference -> unit val inspect : int -> std_ppcmds |