From 376e61185dadea415d6b7d2df45dc7236e901e5b Mon Sep 17 00:00:00 2001
From: barras
Date: Tue, 6 May 2008 18:31:25 +0000
Subject: checker deals with polymorphic constants and module aliases

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10892 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 checker/declarations.ml | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'checker/declarations.ml')

diff --git a/checker/declarations.ml b/checker/declarations.ml
index d5c34d92b4..94388f4ac1 100644
--- a/checker/declarations.ml
+++ b/checker/declarations.ml
@@ -39,6 +39,14 @@ type resolver
 type substitution = (module_path * resolver option) Umap.t
 type 'a subst_fun = substitution -> 'a -> 'a
 
+let fold_subst fs fb fp =
+  Umap.fold
+    (fun k (mp,_) acc ->
+      match k with
+          MSI msid -> fs msid mp acc
+        | MBI mbid -> fb mbid mp acc
+        | MPI mp1 -> fp mp1 mp acc)
+
 let empty_subst = Umap.empty
 
 let add_msid msid mp =
-- 
cgit v1.2.3