diff options
| author | herbelin | 2002-11-14 20:26:01 +0000 |
|---|---|---|
| committer | herbelin | 2002-11-14 20:26:01 +0000 |
| commit | 724ae6574aa7488f28fefec50fd25c3aa8aef97b (patch) | |
| tree | c38356a25da1714d444c8c8187abb34b55ed0751 /tactics/tacinterp.ml | |
| parent | c302006a565d5cfebf0af1b188a0c05f9257f948 (diff) | |
Re-ajout constrIn
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3237 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacinterp.ml')
| -rw-r--r-- | tactics/tacinterp.ml | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index be6362d3a9..2140640275 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -162,9 +162,18 @@ let valueOut = function else anomalylabstrm "valueOut" (str "Dynamic tag should be value") | ast -> - anomalylabstrm "valueOut" - (str "Not a Dynamic ast: " (* ++ print_ast ast*) ) - + anomalylabstrm "valueOut" (str "Not a Dynamic ast: ") + +(* To embed constr in Coqast.t *) +let constrIn t = CDynamic (dummy_loc,Pretyping.constr_in t) +let constrOut = function + | CDynamic (_,d) -> + if (Dyn.tag d) = "constr" then + Pretyping.constr_out d + else + anomalylabstrm "constrOut" (str "Dynamic tag should be constr") + | ast -> + anomalylabstrm "constrOut" (str "Not a Dynamic ast") let loc = dummy_loc (* Table of interpretation functions *) |