diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-01-07 22:19:13 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-01-07 22:19:13 +0000 |
| commit | 4fb95ddde5870ab484f9d154bd406f344e6f88d5 (patch) | |
| tree | 81cb602b000bc67e7f37f5d96479e4d7b1aa0310 /parsing/astterm.ml | |
| parent | 46e708f92deef78043f4f221293df131e29aeff1 (diff) | |
Restructuration printer et parser
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@263 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/astterm.ml')
| -rw-r--r-- | parsing/astterm.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index 7dad63a00..989b78638 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -286,7 +286,7 @@ let dbize k sigma = | Node(loc,"APPLIST", f::args) -> RApp (loc,dbrec env f,List.map (dbrec env) args) - | Node(loc,"MULTCASE", p:: Node(_,"TOMATCH",tms):: eqns) -> + | Node(loc,"CASES", p:: Node(_,"TOMATCH",tms):: eqns) -> let po = match p with | Str(_,"SYNTH") -> None | _ -> Some(dbrec env p) in @@ -449,7 +449,7 @@ let globalize_ast ast = (* Installation of the AST quotations. "command" is used by default. *) let _ = Pcoq.define_quotation true "command" - (Pcoq.map_entry globalize_command Pcoq.Command.command) + (Pcoq.map_entry globalize_command Pcoq.Constr.constr) let _ = Pcoq.define_quotation false "tactic" (Pcoq.map_entry globalize_ast Pcoq.Tactic.tactic) |