From 15a7044b5c90a70e820b588bc0fc18c57d2676e8 Mon Sep 17 00:00:00 2001 From: herbelin Date: Tue, 3 Oct 2000 18:09:55 +0000 Subject: mise en page git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@636 85f007b7-540e-0410-9357-904b9bb8a0f7 --- tactics/refine.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tactics/refine.ml b/tactics/refine.ml index f3bd862a3f..62e872184e 100644 --- a/tactics/refine.ml +++ b/tactics/refine.ml @@ -282,7 +282,8 @@ let dyn_tcc args gl = match args with | [Command com] -> let env = pf_env gl in refine - (Astterm.interp_casted_openconstr (project gl) env com (pf_concl gl)) gl + (Astterm.interp_casted_openconstr (project gl) env com (pf_concl gl)) + gl | [OpenConstr c] -> refine c gl | _ -> assert false -- cgit v1.2.3