basis: some more os require cleanup.
parent
b7ed0a431c
commit
2a89e5c2cc
|
@ -31,7 +31,4 @@ M: unix set-os-envs-pointer ( malloc -- ) environ set-void* ;
|
||||||
M: unix (set-os-envs) ( seq -- )
|
M: unix (set-os-envs) ( seq -- )
|
||||||
utf8 strings>alien malloc-byte-array set-os-envs-pointer ;
|
utf8 strings>alien malloc-byte-array set-os-envs-pointer ;
|
||||||
|
|
||||||
os {
|
os macosx? [ "environment.unix.macosx" require ] when
|
||||||
{ macosx [ "environment.unix.macosx" require ] }
|
|
||||||
[ drop ]
|
|
||||||
} case
|
|
||||||
|
|
|
@ -1,9 +1,8 @@
|
||||||
! Copyright (C) 2008 Doug Coleman.
|
! Copyright (C) 2008 Doug Coleman.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: alien.c-types alien.data alien.syntax combinators
|
USING: accessors alien.c-types alien.data alien.syntax
|
||||||
continuations io.encodings.string io.encodings.utf8 kernel
|
continuations io.encodings.string io.encodings.utf8 kernel
|
||||||
sequences strings calendar system accessors unix unix.time
|
sequences system unix.ffi vocabs ;
|
||||||
unix.ffi calendar.unix vocabs classes.struct ;
|
|
||||||
IN: unix.utmpx
|
IN: unix.utmpx
|
||||||
|
|
||||||
CONSTANT: EMPTY 0
|
CONSTANT: EMPTY 0
|
||||||
|
@ -48,7 +47,4 @@ M: unix new-utmpx-record
|
||||||
produce nip
|
produce nip
|
||||||
] with-utmpx ;
|
] with-utmpx ;
|
||||||
|
|
||||||
os {
|
"unix.utmpx." os name>> append require
|
||||||
{ macosx [ "unix.utmpx.macosx" require ] }
|
|
||||||
{ linux [ "unix.utmpx.linux" require ] }
|
|
||||||
} case
|
|
||||||
|
|
Loading…
Reference in New Issue