From cbea47ef84ea882d83053fe597aa3754501a1572 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 21 Oct 1992 00:06:20 +0000
Subject: [PATCH] Eliminate extra indirection.

---
 v7/src/microcode/prdosenv.c | 6 ++----
 v7/src/microcode/pruxenv.c  | 6 ++----
 v7/src/microcode/uxenv.c    | 8 +-------
 3 files changed, 5 insertions(+), 15 deletions(-)

diff --git a/v7/src/microcode/prdosenv.c b/v7/src/microcode/prdosenv.c
index 13410e276..e07dc5c45 100644
--- a/v7/src/microcode/prdosenv.c
+++ b/v7/src/microcode/prdosenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prdosenv.c,v 1.8 1992/10/21 00:00:37 jinx Exp $
+$Id: prdosenv.c,v 1.9 1992/10/21 00:02:10 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -147,11 +147,9 @@ The argument, a variable name, must be a string.\n\
 The result is either a string (the variable's value),\n\
  or #F indicating that the variable does not exist.")
 {
-  extern CONST char * EXFUN (OS_get_environment_variable, (CONST char * name));
   PRIMITIVE_HEADER (1);
   {
-    CONST char * variable_value =
-      (OS_get_environment_variable (STRING_ARG (1)));
+    CONST char * variable_value = (DOS_getenv (STRING_ARG (1)));
     PRIMITIVE_RETURN
       ((variable_value == 0)
        ? SHARP_F
diff --git a/v7/src/microcode/pruxenv.c b/v7/src/microcode/pruxenv.c
index 08465791f..a7829c669 100644
--- a/v7/src/microcode/pruxenv.c
+++ b/v7/src/microcode/pruxenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pruxenv.c,v 1.12 1992/10/20 23:59:27 jinx Exp $
+$Id: pruxenv.c,v 1.13 1992/10/21 00:06:20 jinx Exp $
 
 Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
@@ -190,11 +190,9 @@ The argument, a variable name, must be a string.\n\
 The result is either a string (the variable's value),\n\
  or #F indicating that the variable does not exist.")
 {
-  extern CONST char * EXFUN (OS_get_environment_variable, (CONST char * name));
   PRIMITIVE_HEADER (1);
   {
-    CONST char * variable_value =
-      (OS_get_environment_variable (STRING_ARG (1)));
+    CONST char * variable_value = (UX_getenv (STRING_ARG (1)));
     PRIMITIVE_RETURN
       ((variable_value == 0)
        ? SHARP_F
diff --git a/v7/src/microcode/uxenv.c b/v7/src/microcode/uxenv.c
index 1455c47cc..95e265923 100644
--- a/v7/src/microcode/uxenv.c
+++ b/v7/src/microcode/uxenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxenv.c,v 1.7 1992/05/06 14:03:36 jinx Exp $
+$Id: uxenv.c,v 1.8 1992/10/21 00:06:14 jinx Exp $
 
 Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
@@ -321,12 +321,6 @@ DEFUN (OS_set_working_dir_pathname, (name), CONST char * name)
   }
 }
 
-CONST char *
-DEFUN (OS_get_environment_variable, (name), CONST char * name)
-{
-  return (UX_getenv (name));
-}
-
 CONST char *
 DEFUN_VOID (OS_current_user_name)
 {
-- 
2.25.1