update environment.winnt for <c-array> change
parent
efe4f838ea
commit
fc9f40b789
|
|
@ -6,6 +6,8 @@ alien.c-types sequences windows.errors io.streams.memory
|
||||||
io.encodings io ;
|
io.encodings io ;
|
||||||
IN: environment.winnt
|
IN: environment.winnt
|
||||||
|
|
||||||
|
<< "TCHAR" require-c-arrays >>
|
||||||
|
|
||||||
M: winnt os-env ( key -- value )
|
M: winnt os-env ( key -- value )
|
||||||
MAX_UNICODE_PATH "TCHAR" <c-array>
|
MAX_UNICODE_PATH "TCHAR" <c-array>
|
||||||
[ dup length GetEnvironmentVariable ] keep over 0 = [
|
[ dup length GetEnvironmentVariable ] keep over 0 = [
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue