remove set_return_code_pst

Win/PlatformObjectIO.icl

@@ -6,6 +6,7 @@ import set_return_code
 import StdPSt
 from UtilIO import GetLongPathName
 import StdIOCommon
+from IdeState import app_world_instead_of_ps,ioStGetWorld,ioStSetWorld
 
 cl_args =: getCommandLine
 
@@ -27,7 +28,7 @@ initPlatformCommandLineArguments ps
 
 pAbort :: !(PSt .a) -> PSt .a
 pAbort ps
-	= set_return_code_pst (-1) ps
+	= app_world_instead_of_ps (set_return_code_world (-1)) ps
 
 installPlatformEventHandlers :: !*(PSt .l) -> *(PSt .l)
 installPlatformEventHandlers ps

Win/set_return_code.dcl

 definition module set_return_code
 
-from StdPSt import :: PSt
-
-:: *UniqueWorld :== World
-
-set_return_code_world	:: !Int !UniqueWorld -> UniqueWorld
-set_return_code_pst		:: !Int    !(PSt .l) ->      PSt .l
+set_return_code_world	:: !Int !*World -> *World

Win/set_return_code.icl

@@ -2,18 +2,13 @@ implementation module set_return_code;
 
 import code from "c_set_return_code.";
 
-import StdString;
-import StdPSt;
-
-:: *UniqueWorld :== World;
-
-set_return_code_world :: !Int !UniqueWorld -> UniqueWorld;
+set_return_code_world :: !Int !*World -> *World;
 set_return_code_world a0 a1 = code {
     ccall set_return_code "I:V:A"
     fill_a 0 1
     pop_a 1
 }
-
+/*
 set_return_code_pst :: !Int !(PSt .l) -> PSt .l;
 set_return_code_pst a0 a1 = set_return_code_a a0 a1;
 
@@ -21,5 +16,5 @@ set_return_code_a :: !Int !.a -> .a;
 set_return_code_a a0 a1 = code {
     ccall set_return_code "I:V:A"
 }
-
+*/
 // void set_return_code (int return_code);