~ chicken-core (chicken-5) f2fbf3ae612773777fc9f809f34c911a2b531741

commit f2fbf3ae612773777fc9f809f34c911a2b531741
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Dec 15 15:11:56 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Dec 15 15:11:56 2009 +0100

    car is better than list-ref here

diff --git a/posixunix.scm b/posixunix.scm
index 8e0f1d45..b403f6c3 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -1312,10 +1312,10 @@ EOF
           _user-shell) ) ) )
 
 (define (current-user-name)
-  (list-ref (user-information (current-user-id)) 0) )
+  (car (user-information (current-user-id))) )
 
 (define (current-effective-user-name)
-  (list-ref (user-information (current-effective-user-id)) 0) )
+  (car (user-information (current-effective-user-id))) )
 
 (define-foreign-variable _group-name nonnull-c-string "C_group->gr_name")
 (define-foreign-variable _group-passwd nonnull-c-string "C_group->gr_passwd")