steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

basis: some more os require cleanup.

db4
John Benediktsson 2014-11-15 15:56:37 -08:00
parent b7ed0a431c
commit 2a89e5c2cc
2 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/environment/unix/unix.factor
View File

@ -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

10
basis/unix/utmpx/utmpx.factor
View File

@ -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