fix environment on winnt

2009-08-29 20:01:01 -05:00 · 2009-08-29 20:01:01 -05:00 · e5b72af403
parent 0be2e17246
commit e5b72af403
1 changed files with 3 additions and 1 deletions
--- 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
    ] [