From 2b58d61ac287dad51d301ef8358a81b57fe8c8b9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 9 May 1991 03:48:11 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/runtime/unxprm.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index 9a260a843..4c9923a29 100644
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxprm.scm,v 1.12 1991/05/09 03:22:24 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxprm.scm,v 1.13 1991/05/09 03:48:11 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -105,7 +105,7 @@ MIT in each case. |#
 
 (define (unix/current-home-directory)
   (or (get-environment-variable "HOME")
-      (get-user-home-directory (unix/current-user-name))))
+      (unix/user-home-directory (unix/current-user-name))))
 
 (define-integrable unix/current-user-name
   (ucode-primitive current-user-name))
-- 
2.25.1