system-info.linux: use FUNCTION-ALIAS:

2010-04-14 16:00:11 -07:00 · 2010-04-14 16:00:11 -07:00 · 5b470d8da9
parent 0f028feb22
commit 5b470d8da9
1 changed files with 2 additions and 2 deletions
--- 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 <char-array> [ (uname) io-error ] keep