From 9bb0fb91c44d4b83afb5d87d87882ceb0aa38432 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 11 Sep 1999 03:27:41 +0000 Subject: [PATCH] Look for USER environment variable before searching password file. This is needed for systems in which users aren't recorded in the password file. --- v7/src/runtime/unxprm.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm index 2ea40192e..be706397d 100644 --- a/v7/src/runtime/unxprm.scm +++ b/v7/src/runtime/unxprm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: unxprm.scm,v 1.55 1999/04/07 04:09:07 cph Exp $ +$Id: unxprm.scm,v 1.56 1999/09/11 03:27:41 cph Exp $ Copyright (c) 1988-1999 Massachusetts Institute of Technology @@ -218,8 +218,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (or (get-environment-variable "HOME") (user-home-directory (current-user-name)))) -(define-integrable current-user-name - (ucode-primitive current-user-name 0)) +(define (current-user-name) + (or (get-environment-variable "USER") + ((ucode-primitive current-user-name 0)))) (define (file-time->local-decoded-time time) (universal-time->local-decoded-time (file-time->universal-time time))) -- 2.25.1