From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 1 Mar 1996 08:53:41 +0000 (+0000)
Subject: Fix bug in previous change.
X-Git-Tag: 20090517-FFI~5681
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6a0732ffe8b1bbc3e25df1948de0aba1bad2163d;p=mit-scheme.git

Fix bug in previous change.
---

diff --git a/v7/src/runtime/dospth.scm b/v7/src/runtime/dospth.scm
index 814635f42..e71d6bfe1 100644
--- a/v7/src/runtime/dospth.scm
+++ b/v7/src/runtime/dospth.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dospth.scm,v 1.35 1996/02/29 22:11:54 cph Exp $
+$Id: dospth.scm,v 1.36 1996/03/01 08:53:41 cph Exp $
 
 Copyright (c) 1992-96 Massachusetts Institute of Technology
 
@@ -122,10 +122,11 @@ MIT in each case. |#
 	components
 	(case (string-ref string 0)
 	  ((#\$)
-	   (let ((value (get-environment-variable (string-tail string 1))))
-	     (if (not value)
-		 (error "Unbound environment variable:" name))
-	     (replace-head value)))
+	   (let ((name (string-tail string 1)))
+	     (let ((value (get-environment-variable name)))
+	       (if (not value)
+		   (error "Unbound environment variable:" name))
+	       (replace-head value))))
 	  ((#\~)
 	   (replace-head
 	    (->namestring