hedgewars/uScript.pas
changeset 10306 4fca8bcfaff0
parent 10297 e5ed72b40c57
child 10312 eda8d563f677
--- a/hedgewars/uScript.pas	Sat Jun 14 23:59:20 2014 +0200
+++ b/hedgewars/uScript.pas	Sun Jun 15 00:02:25 2014 +0200
@@ -136,7 +136,7 @@
     WriteLnToConsole(s);
     AddChatString(#5 + s);
     if cTestLua then
-        halt(rtnTestLuaErr);
+        halt(HaltTestLuaError);
 end;
 
 procedure LuaCallError(error, call, paramsyntax: shortstring);
@@ -2849,8 +2849,8 @@
 
 if cTestLua then
     begin
-    ScriptSetInteger('TEST_SUCCESSFUL'  ,rtnTestSuccess);
-    ScriptSetInteger('TEST_FAILED'      ,rtnTestFailed);
+    ScriptSetInteger('TEST_SUCCESSFUL'   , HaltTestSuccess);
+    ScriptSetInteger('TEST_FAILED'       , HaltTestFailed);
     lua_register(luaState, _P'EndLuaTest', @lc_endluatest);
     end;