From e5b72af4037f1072f3c75f0fb29ebf6018dc94dc Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 29 Aug 2009 20:01:01 -0500
Subject: [PATCH] fix environment on winnt

---
 basis/environment/winnt/winnt.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/basis/environment/winnt/winnt.factor b/basis/environment/winnt/winnt.factor
index eb90a36ee7..d4ce25397c 100644
--- a/basis/environment/winnt/winnt.factor
+++ b/basis/environment/winnt/winnt.factor
@@ -6,8 +6,10 @@ alien.c-types sequences windows.errors io.streams.memory
 io.encodings io ;
 IN: environment.winnt
 
+<< "TCHAR" require-c-type-arrays >>
+
 M: winnt os-env ( key -- value )
-    MAX_UNICODE_PATH "TCHAR" <c-array>
+    MAX_UNICODE_PATH "TCHAR" <c-type-array>
     [ dup length GetEnvironmentVariable ] keep over 0 = [
         2drop f
     ] [