diff --git a/basis/tools/ps/macosx/macosx.factor b/basis/tools/ps/macosx/macosx.factor index f02e2152f3..e2bd4e2912 100644 --- a/basis/tools/ps/macosx/macosx.factor +++ b/basis/tools/ps/macosx/macosx.factor @@ -24,7 +24,7 @@ IN: tools.ps.macosx : hostname ( -- str ) { 1 10 } sysctl-query-string ; : sysctl-query-bytes ( seq -- n ) - [ make-int-array ] [ length ] bi f 0 uint + [ int >c-array ] [ length ] bi f 0 uint [ f 0 sysctl io-error ] keep uint deref ; STRUCT: _pcred