From 9f907c287e2bccb112e7aa54b8d6c437558c43a5 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 5 May 2009 11:40:28 -0500
Subject: [PATCH] alien.strings: fix native-string>alien on Windows

---
 core/alien/strings/strings.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/core/alien/strings/strings.factor b/core/alien/strings/strings.factor
index 896fb7f09f..3b778d2bd1 100644
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@@ -40,9 +40,7 @@ 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: windows native-string>alien utf16n string>alien ;
 
 M: unix native-string>alien utf8 string>alien ;