system-info.linux: use FUNCTION-ALIAS:
parent
0f028feb22
commit
5b470d8da9
|
@ -6,8 +6,8 @@ specialized-arrays ;
|
||||||
SPECIALIZED-ARRAY: char
|
SPECIALIZED-ARRAY: char
|
||||||
IN: system-info.linux
|
IN: system-info.linux
|
||||||
|
|
||||||
: (uname) ( buf -- int )
|
FUNCTION-ALIAS: (uname)
|
||||||
int f "uname" { c-string } alien-invoke ;
|
int uname ( c-string buf ) ;
|
||||||
|
|
||||||
: uname ( -- seq )
|
: uname ( -- seq )
|
||||||
65536 <char-array> [ (uname) io-error ] keep
|
65536 <char-array> [ (uname) io-error ] keep
|
||||||
|
|
Loading…
Reference in New Issue