From c92529cd8e51b043597f4e014a2c9101d69d93b9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 12 Nov 1997 22:38:03 +0000 Subject: [PATCH] Fix code that determines system directory. My memory as to the relevant environment variable was faulty when I wrote this. --- v7/src/runtime/ntprm.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm index 2384b7e0b..6f79a9afd 100644 --- a/v7/src/runtime/ntprm.scm +++ b/v7/src/runtime/ntprm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: ntprm.scm,v 1.15 1997/11/12 08:40:05 cph Exp $ +$Id: ntprm.scm,v 1.16 1997/11/12 22:38:03 cph Exp $ Copyright (c) 1992-97 Massachusetts Institute of Technology @@ -267,10 +267,10 @@ MIT in each case. |# (trydir (get-environment-variable "USERDIR")))) (%system-root-directory (lambda () - (let ((sysdrive (get-environment-variable "SYSTEM_DRIVE"))) - (if (not sysdrive) - (error "Unable to find Windows system drive.")) - (trydir (string-append sysdrive "\\")))))) + (let ((sysroot (trydir (get-environment-variable "SystemRoot")))) + (if (not sysroot) + (error "Unable to find Windows system root.")) + (pathname-new-directory sysroot '(ABSOLUTE)))))) (set! current-user-name (lambda () -- 2.25.1