From b8c5a91a09352d4376e85444c09a0b69b454435a Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 19 Oct 1999 12:05:27 +0000
Subject: [PATCH] [project @ 1999-10-19 12:05:27 by sewardj] Make typeVarsIn
non-static since interface.c needs to see it.
---
ghc/interpreter/static.c | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/ghc/interpreter/static.c b/ghc/interpreter/static.c
index 3794bc5483d9..f2a949e5b60b 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. */
--
GitLab