diff --git a/basis/unix/utmpx/netbsd/netbsd.factor b/basis/unix/utmpx/netbsd/netbsd.factor index 40fce746b1..93092a7cbf 100644 --- a/basis/unix/utmpx/netbsd/netbsd.factor +++ b/basis/unix/utmpx/netbsd/netbsd.factor @@ -1,22 +1,20 @@ ! Copyright (C) 2008 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: alien.syntax unix.utmpx unix.bsd.netbsd accessors -unix.utmpx system kernel unix combinators ; +USING: alien.syntax unix unix.utmpx unix.ffi.bsd.netbsd accessors +system kernel combinators ; IN: unix.utmpx.netbsd -TUPLE: netbsd-utmpx-record < utmpx-record termination exit -sockaddr ; - +TUPLE: netbsd-utmpx-record < utmpx-record +termination exit sockaddr ; + M: netbsd new-utmpx-record ( -- utmpx-record ) - netbsd-utmpx-record new ; - + netbsd-utmpx-record new ; + M: netbsd utmpx>utmpx-record ( utmpx -- record ) - [ new-utmpx-record ] keep - { - [ - utmpx-ut_exit - [ exit_struct-e_termination >>termination ] - [ exit_struct-e_exit >>exit ] bi - ] - [ utmpx-ut_ss >>sockaddr ] - } cleave ; + [ new-utmpx-record ] dip + [ + ut_exit>> + [ e_termination>> >>termination ] + [ e_exit>> >>exit ] bi + ] + [ ut_ss>> >>sockaddr ] bi ; diff --git a/basis/unix/utmpx/platforms.txt b/basis/unix/utmpx/platforms.txt index 509143d863..abe56c1458 100644 --- a/basis/unix/utmpx/platforms.txt +++ b/basis/unix/utmpx/platforms.txt @@ -1 +1,2 @@ -unix +macosx +netbsd