From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Dec 1999 19:21:31 +0000 (+0000)
Subject: Don't use geteuid to determine the current user; use getuid.
X-Git-Tag: 20090517-FFI~4397
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=12cae426cd850594a4ccf1101a2e75350381dc24;p=mit-scheme.git

Don't use geteuid to determine the current user; use getuid.
---

diff --git a/v7/src/microcode/uxenv.c b/v7/src/microcode/uxenv.c
index d716c55a4..3c643d75a 100644
--- a/v7/src/microcode/uxenv.c
+++ b/v7/src/microcode/uxenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxenv.c,v 1.18 1999/04/07 04:01:48 cph Exp $
+$Id: uxenv.c,v 1.19 1999/12/21 19:21:31 cph Exp $
 
 Copyright (c) 1990-1999 Massachusetts Institute of Technology
 
@@ -439,7 +439,7 @@ DEFUN_VOID (OS_current_user_home_directory)
       }
   }
   {
-    struct passwd * entry = (UX_getpwuid (UX_geteuid ()));
+    struct passwd * entry = (UX_getpwuid (UX_getuid ()));
     if (entry != 0)
       return (entry -> pw_dir);
   }