From 5e544b71abd2086c85df59898d58f837a106bbec Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 7 Mar 2005 21:59:20 +0000
Subject: Added 'clear - id' to clear all hypotheses except the ones dependent
 in the statement of id

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6807 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_tactic.ml4 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4
index 8972b0a210..09d2117c8c 100644
--- a/parsing/g_tactic.ml4
+++ b/parsing/g_tactic.ml4
@@ -322,8 +322,8 @@ GEXTEND Gram
 	  TacDAuto (n, p)
 
       (* Context management *)
-      | IDENT "Clear"; "-"; l = LIST1 id_or_meta -> TacClear (true, l)
-      | IDENT "Clear"; l = LIST0 id_or_meta -> TacClear (l=[], l)
+      | IDENT "Clear"; "-"; l = LIST1 id_or_ltac_ref -> TacClear (true, l)
+      | IDENT "Clear"; l = LIST0 id_or_ltac_ref -> TacClear (l=[], l)
       | IDENT "ClearBody"; l = LIST1 id_or_ltac_ref -> TacClearBody l
       | IDENT "Move"; id1 = id_or_ltac_ref; IDENT "after"; 
 	  id2 = id_or_ltac_ref -> TacMove (true,id1,id2)
-- 
cgit v1.2.3