From: sewardj <unknown>
Date: Tue, 19 Oct 1999 12:05:27 +0000 (+0000)
Subject: [project @ 1999-10-19 12:05:27 by sewardj]
X-Git-Tag: Approximately_9120_patches~5688
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b8c5a91a09352d4376e85444c09a0b69b454435a;p=ghc-hetmet.git

[project @ 1999-10-19 12:05:27 by sewardj]
Make typeVarsIn non-static since interface.c needs to see it.
---

diff --git a/ghc/interpreter/static.c b/ghc/interpreter/static.c
index 3794bc5..f2a949e 100644
--- a/ghc/interpreter/static.c
+++ b/ghc/interpreter/static.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: static.c,v $
- * $Revision: 1.11 $
- * $Date: 1999/10/16 02:17:30 $
+ * $Revision: 1.12 $
+ * $Date: 1999/10/19 12:05:27 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -65,7 +65,7 @@ static List   local classBindings       Args((String,Class,List));
 static Name   local memberName          Args((Class,Text));
 static List   local numInsert           Args((Int,Cell,List));
 
-static List   local typeVarsIn		Args((Cell,List,List,List));
+       List   local typeVarsIn		Args((Cell,List,List,List));
 static List   local maybeAppendVar      Args((Cell,List));
 
 static Type   local checkSigType        Args((Int,String,Cell,Type));
@@ -1666,7 +1666,7 @@ List xs; {
  * occur in the type expression when read from left to right.
  * ------------------------------------------------------------------------*/
 
-static List local typeVarsIn(ty,us,ws,vs)/*Calculate list of type variables*/
+List local typeVarsIn(ty,us,ws,vs)      /*Calculate list of type variables*/
 Cell ty;				/* used in type expression, reading*/
 List us;				/* from left to right ignoring any */
 List ws;				/* listed in us.		   */