@@ -1,11 +1,13 @@
%{
-char *rcs_luastx = "$Id: lua.stx,v 1.3 1993/12/28 16:42:29 roberto Exp roberto $";
+char *rcs_luastx = "$Id: lua.stx,v 1.4 1994/02/13 20:38:20 roberto Exp celes $";
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
+#include "mm.h"
+
#include "opcode.h"
#include "hash.h"
#include "inout.h"
@@ -240,7 +242,7 @@ function : FUNCTION NAME {pc=basepc=code; nlocalvar=0;} '(' parlist ')'
{
align(Word,1);
code_byte(SETFUNCTION);
- code_word($1);
+ code_word(lua_nfile-1);
code_word($2);
}
lua_codeadjust (0);