X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Finterpreter%2Fsubst.h;h=ffad34fd14e0c1a7b385c8ff40c87917746ce306;hb=abf56cfee9467502af644ff9a961c550d50cae5d;hp=f2de3aea88c4c2ebff91751cb9601607339a0d7b;hpb=170d1670295c7cb9731f8d0eb034cf21f3e613ee;p=ghc-hetmet.git

diff --git a/ghc/interpreter/subst.h b/ghc/interpreter/subst.h
index f2de3ae..ffad34f 100644
--- a/ghc/interpreter/subst.h
+++ b/ghc/interpreter/subst.h
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: subst.h,v $
- * $Revision: 1.5 $
- * $Date: 1999/10/16 02:17:27 $
+ * $Revision: 1.6 $
+ * $Date: 1999/11/17 16:57:50 $
  * ------------------------------------------------------------------------*/
 
 typedef struct {                        /* Each type variable contains:    */
@@ -109,6 +109,7 @@ extern Bool  unifyPred          Args((Cell,Int,Cell,Int));
 extern Inst  findInstFor        Args((Cell,Int));
 
 extern Void  improve		Args((Int,List,List));
+extern Void  improve1		Args((Int,List,Cell,Int));
 
 extern Bool  sameSchemes	Args((Type,Type));
 extern Bool  sameType		Args((Type,Int,Type,Int));