From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 9 May 1991 03:48:11 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~10625
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2b58d61ac287dad51d301ef8358a81b57fe8c8b9;p=mit-scheme.git

Fix typo.
---

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))