alien.strings cleanup

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index 943530d4f274c274ec7df8b7df37fe9ec392e5bf..896fb7f09f724864fffcb35c3f91d18260da9995 100644 (file)
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@@ -34,16 +34,16 @@ M: string string>alien
 
 HOOK: alien>native-string os ( alien -- string )
 
-HOOK: native-string>alien os ( string -- alien )
-
 M: windows alien>native-string utf16n alien>string ;
 
+M: unix alien>native-string utf8 alien>string ;
+
+HOOK: native-string>alien os ( string -- alien )
+
 M: wince native-string>alien utf16n string>alien ;
 
 M: winnt native-string>alien utf8 string>alien ;
 
-M: unix alien>native-string utf8 alien>string ;
-
 M: unix native-string>alien utf8 string>alien ;
 
 : dll-path ( dll -- string )