From 764ee52cde88c6feefcc55a09e5ea689e65356a9 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 5 May 2009 14:41:38 -0500 Subject: [PATCH] alien.strings: fix symbol>string for Windows --- core/alien/strings/strings.factor | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor index 3b778d2bd1..c74c325726 100644 --- 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