]> gitweb.factorcode.org Git - factor.git/commitdiff
system-info.linux: use FUNCTION-ALIAS:
authorJoe Groff <arcata@gmail.com>
Wed, 14 Apr 2010 23:00:11 +0000 (16:00 -0700)
committerJoe Groff <arcata@gmail.com>
Wed, 14 Apr 2010 23:00:11 +0000 (16:00 -0700)
basis/system-info/linux/linux.factor

index 1a565705fb43f86f01e21ab5f6fc8cd9795e49fb..9c6f9fbff3bb6b5f21d56e51a17b99a480c6d847 100644 (file)
@@ -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