diff --git a/basis/system-info/linux/linux.factor b/basis/system-info/linux/linux.factor index 1a565705fb..9c6f9fbff3 100644 --- a/basis/system-info/linux/linux.factor +++ b/basis/system-info/linux/linux.factor @@ -6,8 +6,8 @@ specialized-arrays ; SPECIALIZED-ARRAY: char IN: system-info.linux -: (uname) ( buf -- int ) - int f "uname" { c-string } alien-invoke ; +FUNCTION-ALIAS: (uname) + int uname ( c-string buf ) ; : uname ( -- seq ) 65536 [ (uname) io-error ] keep