From 6a0732ffe8b1bbc3e25df1948de0aba1bad2163d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 1 Mar 1996 08:53:41 +0000 Subject: [PATCH] Fix bug in previous change. --- v7/src/runtime/dospth.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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 -- 2.25.1