From 30f2f8738b52e10cbf1bafafd8562d20be2c593e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 19 Nov 2013 09:27:19 -0800
Subject: [PATCH] unix.users: Add utility word to find a user's home directory.

---
 basis/unix/users/users.factor | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/basis/unix/users/users.factor b/basis/unix/users/users.factor
index d0ed5cd0fd..da47a4cc20 100644
--- a/basis/unix/users/users.factor
+++ b/basis/unix/users/users.factor
@@ -129,6 +129,11 @@ M: integer set-effective-user ( id -- )
 M: string set-effective-user ( string -- )
     ?user-id (set-effective-user) ;
 
+ERROR: no-such-user obj ;
+
+: user-home ( name/uid -- path )
+    dup user-passwd [ nip dir>> ] [ no-such-user ] if* ;
+
 os {
     { [ dup macosx? ] [ drop "unix.users.macosx" require ] }
     { [ dup linux? ] [ drop ] }