From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Fri, 29 May 1992 00:11:34 +0000 (+0000)
Subject: Upcasing environment variables.
X-Git-Tag: 20090517-FFI~9311
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=183001f154b73ad69ea1e3f00ef5258beebf424e;p=mit-scheme.git

Upcasing environment variables.
---

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index 4fdec139b..88c804f25 100644
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dosprm.scm,v 1.6 1992/05/28 23:31:22 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dosprm.scm,v 1.7 1992/05/29 00:11:34 mhwu Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -151,23 +151,25 @@ MIT in each case. |#
   (define-integrable *variable-deleted* false)
   (set! get-environment-variable
 	(lambda (variable)
-	  (cond ((not (string? variable))
-		 (error "GET-ENVIRONMENT-VARIABLE: Variable must be a string"
-			variable))
-		((assoc variable environment-variables) => cdr)
-		(else
-		 ((ucode-primitive get-environment-variable) variable)))))
+	  (if (not (string? variable))
+	      (error "GET-ENVIRONMENT-VARIABLE: Variable must be a string"
+		     variable)
+	      (let ((variable (string-upcase variable)))
+		(cond ((assoc variable environment-variables) => cdr)
+		      (else ((ucode-primitive get-environment-variable)
+			     variable)))))))
   (set! set-environment-variable!
 	(lambda (variable value)
 	  (if (string? variable)
-	      (cond ((assoc variable environment-variables)
-		     =>
-		     (lambda (pair)
-		       (set-cdr! pair value)))
-		    (else
-		     (set! environment-variables
-			   (cons (cons variable value)
-				 environment-variables))))
+	      (let ((variable (string-upcase variable)))
+		(cond ((assoc variable environment-variables)
+		       =>
+		       (lambda (pair)
+			 (set-cdr! pair value)))
+		      (else
+		       (set! environment-variables
+			     (cons (cons variable value)
+				   environment-variables)))))
 	      (error "SET-ENVIRONMENT-VARIABLE: Variable must be a string"
 		     variable value))
 	  unspecific))