From ae2b3a9401724f02b736a116a86227aaed33b8bb Mon Sep 17 00:00:00 2001
From: corbinea
Date: Wed, 2 Jul 2003 14:48:46 +0000
Subject: added hints into Ground

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4215 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/first-order/sequent.ml | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'contrib/first-order/sequent.ml')

diff --git a/contrib/first-order/sequent.ml b/contrib/first-order/sequent.ml
index 4d074f67f1..a91b4956c8 100644
--- a/contrib/first-order/sequent.ml
+++ b/contrib/first-order/sequent.ml
@@ -258,7 +258,7 @@ let create_with_ref_list l depth gl=
 
 open Auto
 
-let create_with_auto_hints depth gl=
+let create_with_auto_hints l depth gl=
   let seqref=ref (empty_seq depth) in
   let f p_a_t =
     match p_a_t.code with
@@ -271,8 +271,13 @@ let create_with_auto_hints depth gl=
 	   with Not_found->())
       | _-> () in
   let g _ l=List.iter f l in
-  let h str hdb=Hint_db.iter g hdb in
-    Util.Stringmap.iter h (!searchtable);
+  let h dbname=
+    let hdb=
+      try
+	Util.Stringmap.find dbname !searchtable 
+      with Not_found-> error ("Ground: "^dbname^" : No such Hint database") in
+      Hint_db.iter g hdb in
+    List.iter h l;
     !seqref
 
 let print_cmap map=
-- 
cgit v1.2.3