update docs

[factor.git] / basis / elevate / windows / windows.factor

diff --git a/basis/elevate/windows/windows.factor b/basis/elevate/windows/windows.factor
index f57787961de28ccaca0f8d9018b856c5ca827b3c..18034b8b1d2be21f0e611bd5a6b5de1694ce3c14 100644 (file)
--- a/basis/elevate/windows/windows.factor
+++ b/basis/elevate/windows/windows.factor
@@ -18,9 +18,9 @@ M:: windows elevated ( command replace? win-console? posix-graphical? -- process
         ! hwnd lpOperation
         f "runas"
         command dup string? [ " " split ] when
-        ! lpFile lpParameters lpDirectory (int)nShowCmd
+        ! lpFile lpParameters lpDirectory (enum)nShowCmd
         [ first ] [ rest ] bi " " join f SW_SHOW
-        ! call shell function
+        ! call shell function with questionable return pointer handling (should use WaitForSingleObject but it hangs)
         ShellExecuteW alien-address :> retval retval 32 <= [ retval n>win32-error-check ] [ ] if
         replace? [ exit ] [ ] if
     ] if ;