! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types alien.data alien.strings
-alien.syntax kernel layouts libc sequences system unix
-environment io.encodings.utf8 unix.utilities vocabs
-combinators alien.accessors unix.ffi ;
+USING: alien.accessors alien.c-types alien.data alien.strings
+alien.syntax environment io.encodings.utf8 kernel libc system unix.ffi
+unix.utilities vocabs ;
IN: environment.unix
HOOK: environ os ( -- void* )
M: unix unset-os-env ( key -- ) unsetenv io-error ;
M: unix (os-envs) ( -- seq )
- environ void* deref utf8 alien>strings ;
+ environ void* deref native-string-encoding alien>strings ;
: set-void* ( value alien -- ) 0 set-alien-cell ;