alien.strings: fix symbol>string for Windows

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index 3b778d2bd17384a51ea79dde96b28a28919faadf..c74c325726a82fa156f49d7a61c04930ed202d90 100644 (file)
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@@ -47,10 +47,19 @@ M: unix native-string>alien utf8 string>alien ;
 : dll-path ( dll -- string )
     path>> alien>native-string ;
 
-: string>symbol ( str -- alien )
-    dup string?
-    [ native-string>alien ]
-    [ [ native-string>alien ] map ] if ;
+HOOK: string>symbol* os ( str/seq -- alien )
+
+M: winnt string>symbol* utf8 string>alien ;
+
+M: wince string>symbol* utf16n string>alien ;
+
+M: unix string>symbol* utf8 string>alien ;
+
+GENERIC: string>symbol ( str -- alien )
+
+M: string string>symbol string>symbol* ;
+
+M: sequence string>symbol [ string>symbol* ] map ;
 
 [
     8 getenv utf8 alien>string string>cpu \ cpu set-global