fix compile errors

db4
Doug Coleman 2008-11-16 15:50:48 -06:00
parent e7ccb46254
commit a85be4658c
1 changed files with 3 additions and 3 deletions

View File

@ -12,11 +12,11 @@ FUNCTION: int sysctl ( int* name, uint namelen, void* oldp, size_t* oldlenp, voi
: make-int-array ( seq -- byte-array )
[ <int> ] map concat ;
: (sysctl-query) ( name namelen oldp oldlenp -- oldp error/f )
over >r f 0 sysctl io-error r> ;
: (sysctl-query) ( name namelen oldp oldlenp -- oldp )
over [ f 0 sysctl io-error ] dip ;
: sysctl-query ( seq n -- byte-array )
>r [ make-int-array ] [ length ] bi r>
[ [ make-int-array ] [ length ] bi ] dip
[ <byte-array> ] [ <uint> ] bi (sysctl-query) ;
: sysctl-query-string ( seq -- n )