From 72fb50ce5d3e802aadff66495a0e90065f2fab42 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 12 Oct 2002 14:28:58 +0000
Subject: Nettoyage

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3116 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/impargs.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'library')

diff --git a/library/impargs.ml b/library/impargs.ml
index 14a93123b7..86535370ae 100644
--- a/library/impargs.ml
+++ b/library/impargs.ml
@@ -250,7 +250,7 @@ let var_table = ref Idmap.empty
 let compute_var_implicits id =
   let env = Global.env () in
   let (_,_,ty) = lookup_named id env in
-  auto_implicits env (body_of_type ty)
+  auto_implicits env ty
 
 let cache_var_implicits (_,(id,imps)) =
   var_table := Idmap.add id imps !var_table
-- 
cgit v1.2.3