"freefunc" now is public.

func.c

@@ -43,7 +43,7 @@ void luaI_insertfunction (TFunc *f)
 /*
 ** Free function
 */
-static void freefunc (TFunc *f)
+void luaI_freefunc (TFunc *f)
 {
   luaI_free (f->code);
   luaI_free (f->locvars);
@@ -68,7 +68,7 @@ Long luaI_funccollector (void)
         function_root = next;
       else
         prev->next = next;
-      freefunc (curr);
+      luaI_freefunc (curr);
       ++counter;
     }
     else

func.h

@@ -1,5 +1,5 @@
 /*
-** $Id: $
+** $Id: func.h,v 1.7 1996/03/08 12:04:04 roberto Exp roberto $
 */
 
 #ifndef func_h
@@ -7,6 +7,7 @@
 
 #include "types.h"
 #include "lua.h"
+#include "tree.h"
 
 typedef struct LocVar
 {
@@ -33,6 +34,7 @@ Long luaI_funccollector (void);
 void luaI_insertfunction (TFunc *f);
 
 void luaI_initTFunc (TFunc *f);
+void luaI_freefunc (TFunc *f);
 
 void luaI_registerlocalvar (TaggedString *varname, int line);
 void luaI_unregisterlocalvar (int line);