system-info.linux: Add username

diff --git a/basis/system-info/linux/linux.factor b/basis/system-info/linux/linux.factor
index 721daa43ac0f670f5e9dce6545453380324d1377..30fe7a99ba485533b40cd01de8c2202b44618437 100644 (file)
--- a/basis/system-info/linux/linux.factor
+++ b/basis/system-info/linux/linux.factor
@@ -3,7 +3,7 @@
 USING: accessors alien.c-types alien.syntax byte-arrays io
 io.encodings.string io.encodings.utf8 io.streams.byte-array
 libc kernel sequences splitting strings system system-info unix
-unix.linux.proc math ;
+unix.linux.proc math unix.users ;
 IN: system-info.linux
 
 FUNCTION-ALIAS: (uname)
@@ -26,4 +26,5 @@ M: linux cpus parse-proc-cpuinfo sort-cpus cpu-counts 2drop ;
 : hyperthreads ( -- n ) parse-proc-cpuinfo sort-cpus cpu-counts 2nip ;
 M: linux cpu-mhz parse-proc-cpuinfo first cpu-mhz>> 1,000,000 * ;
 M: linux physical-mem parse-proc-meminfo mem-total>> ;
-M: linux computer-name nodename ;
\ No newline at end of file
+M: linux computer-name nodename ;
+M: linux username real-user-name ;