diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-29 21:53:30 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-29 21:53:30 +0000 |
| commit | 7cae78ffc70a9097beb6d0f1a0e9f741f483e591 (patch) | |
| tree | 3908b81ac623f7910578365a4fe4b18b607de3d5 /parsing/q_coqast.ml4 | |
| parent | dfe97724fb6034fc06b3ef693f6a3ed94733adbc (diff) | |
Exports manquants dans ring
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9315 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/q_coqast.ml4')
| -rw-r--r-- | parsing/q_coqast.ml4 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/parsing/q_coqast.ml4 b/parsing/q_coqast.ml4 index 7475754c3..70bc3f682 100644 --- a/parsing/q_coqast.ml4 +++ b/parsing/q_coqast.ml4 @@ -441,8 +441,12 @@ and mlexpr_of_tactic : (Tacexpr.raw_tactic_expr -> MLast.expr) = function $mlexpr_of_bool lz$ $mlexpr_of_bool lr$ $mlexpr_of_list (mlexpr_of_match_rule mlexpr_of_tactic) l$>> + + | Tacexpr.TacFun (idol,body) -> + <:expr< Tacexpr.TacFun + ($mlexpr_of_list mlexpr_of_ident_option idol$, + $mlexpr_of_tactic body$) >> (* - | Tacexpr.TacFun of $dloc$ * tactic_fun_ast | Tacexpr.TacFunRec of $dloc$ * identifier * tactic_fun_ast *) (* |