From a74da602dfcd44bb643b29ce2f5552cf39659173 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Fri, 5 Mar 2010 04:31:45 +0000
Subject: Minor fixes.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12845 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Program/Tactics.v | 2 +-
 toplevel/indschemes.ml     | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/theories/Program/Tactics.v b/theories/Program/Tactics.v
index e692876dad..6f7645841c 100644
--- a/theories/Program/Tactics.v
+++ b/theories/Program/Tactics.v
@@ -101,7 +101,7 @@ Ltac revert_last :=
     [ H : _ |- _ ] => revert H
   end.
 
-(** Reapeateadly reverse the last hypothesis, putting everything in the goal. *)
+(** Repeatedly reverse the last hypothesis, putting everything in the goal. *)
 
 Ltac reverse := repeat revert_last.
 
diff --git a/toplevel/indschemes.ml b/toplevel/indschemes.ml
index 3c06471128..1cd00068b3 100644
--- a/toplevel/indschemes.ml
+++ b/toplevel/indschemes.ml
@@ -60,8 +60,8 @@ let _ =
     { optsync  = true;
       optname  = "automatic declaration of case analysis schemes";
       optkey   = ["Case";"Analysis";"Schemes"];
-      optread  = (fun () -> !elim_flag) ;
-      optwrite = (fun b -> elim_flag := b) }
+      optread  = (fun () -> !case_flag) ;
+      optwrite = (fun b -> case_flag := b) }
 
 let eq_flag = ref true
 let _ =
-- 
cgit v1.2.3