io.files.info.windows: Fix file-systems word in two ways. First, don't

[factor.git] / basis / ui / backend / windows / windows.factor

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index 215da172d13a9dd6a2159ce382a15a22e21979b6..c3ff0b50f22e13bcdaebc761e9ccb58a98d771b5 100755 (executable)
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -201,14 +201,14 @@ PRIVATE>
             CF_UNICODETEXT GetClipboardData dup win32-error=0/f
             dup GlobalLock dup win32-error=0/f
             GlobalUnlock win32-error=0/f
-            utf16n alien>string
+            alien>native-string
         ] if
     ] with-clipboard
     crlf>lf ;
 
 : copy ( str -- )
     lf>crlf [
-        utf16n string>alien
+        native-string>alien
         EmptyClipboard win32-error=0/f
         GMEM_MOVEABLE over length 1 + GlobalAlloc
             dup win32-error=0/f
@@ -642,7 +642,7 @@ M: windows-ui-backend do-events
         0 >>cbClsExtra
         0 >>cbWndExtra
         f GetModuleHandle >>hInstance
-        f GetModuleHandle "APPICON" utf16n string>alien LoadIcon >>hIcon
+        f GetModuleHandle "APPICON" native-string>alien LoadIcon >>hIcon
         f IDC_ARROW LoadCursor >>hCursor
 
         class-name-ptr >>lpszClassName