From 20a663fc7c2636833d7c789ca70efebe545df747 Mon Sep 17 00:00:00 2001
From: regisgia
Date: Fri, 14 Sep 2012 10:04:47 +0000
Subject: kernel/Term:   Backtrack on a type definition that was moved by error
 by the   previous patch.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15798 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/term.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'kernel')

diff --git a/kernel/term.ml b/kernel/term.ml
index 16649b1815..07152d4b6a 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -108,8 +108,6 @@ type ('constr, 'types) kind_of_term =
    -rectypes of the Caml compiler to be set *)
 type constr = (constr,constr) kind_of_term
 
-type strategy = types option
-
 type existential = existential_key * constr array
 type rec_declaration = name array * constr array * constr array
 type fixpoint = (int array * int) * rec_declaration
@@ -649,10 +647,12 @@ let rec constr_ord m n=
 
 type types = constr
 
+type strategy = types option
+
 type named_declaration = identifier * constr option * types
 type rel_declaration = name * constr option * types
 
-let map_named_declaration f (id, v, ty) = (id, Option.map f v, f ty)
+let map_named_declaration f (id, (v : strategy), ty) = (id, Option.map f v, f ty)
 let map_rel_declaration = map_named_declaration
 
 let fold_named_declaration f (_, v, ty) a = f ty (Option.fold_right f v a)
-- 
cgit v1.2.3