issue #358: rename ole32-error -> check-ole32-error

[factor.git] / basis / io / files / temp / windows / windows.factor

diff --git a/basis/io/files/temp/windows/windows.factor b/basis/io/files/temp/windows/windows.factor
index 3d1a66a824ac690370e332fa6fb1ebd126d6c2b8..cb092feba765254bc3e763a742ae8aa96bfa1324 100644 (file)
--- a/basis/io/files/temp/windows/windows.factor
+++ b/basis/io/files/temp/windows/windows.factor
@@ -21,8 +21,8 @@ IN: io.files.temp.windows
     0
     MAX_PATH 1 + WCHAR <c-array>
     [ SHGetFolderPath ] keep
-    swap ole32-error
-    alien>native-string ;
+    swap check-ole32-error
+    utf16n alien>native-string ;
 
 PRIVATE>