using old version functions.

lua.c

@@ -3,7 +3,7 @@
 ** Linguagem para Usuarios de Aplicacao
 */
 
-char *rcs_lua="$Id: lua.c,v 1.15 1997/04/04 22:24:51 roberto Exp roberto $";
+char *rcs_lua="$Id: lua.c,v 1.16 1997/06/09 17:29:16 roberto Exp roberto $";
 
 #include <stdio.h>
 #include <string.h>
@@ -56,7 +56,7 @@ static void testC (void)
 
       case 'r': { int n = getnum(s); reg[n] = lua_getref(locks[getnum(s)]); break; }
 
-      case 'u': lua_unlock(locks[getnum(s)]); break;
+      case 'u': lua_unref(locks[getnum(s)]); break;
 
       case 'p': { int n = getnum(s); reg[n] = lua_getparam(getnum(s)); break; }
 

strlib.c

@@ -3,7 +3,7 @@
 ** String library to LUA
 */
 
-char *rcs_strlib="$Id: strlib.c,v 1.42 1997/06/16 20:29:59 roberto Exp roberto $";
+char *rcs_strlib="$Id: strlib.c,v 1.43 1997/06/18 20:15:47 roberto Exp roberto $";
 
 #include <string.h>
 #include <stdio.h>
@@ -94,7 +94,7 @@ static void str_sub (void)
     addnchar(s+start-1, end-start+1);
     lua_pushstring(luaI_addchar(0));
   }
-  else lua_pushliteral("");
+  else lua_pushstring("");
 }
 
 /*