From e943f6ca7a1da846b3d9c7782ce0f7988ad73b25 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 7 Sep 1993 21:59:02 +0000
Subject: [PATCH] Add default value for the TERM environment variable.

---
 v7/src/runtime/site.scm.dos | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/v7/src/runtime/site.scm.dos b/v7/src/runtime/site.scm.dos
index c00c69ee7..8198484dc 100644
--- a/v7/src/runtime/site.scm.dos
+++ b/v7/src/runtime/site.scm.dos
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: site.scm.dos,v 1.11 1992/10/17 22:24:21 jinx Exp $
+$Id: site.scm.dos,v 1.12 1993/09/07 21:59:02 gjr Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -53,3 +53,10 @@ MIT in each case. |#
    '("/scheme")))
 
 (set-environment-variable-default! "MITSCHEME_INF_DIRECTORY" "\\scheme")
+(set-environment-variable-default!
+ "TERM"
+ (lambda ()
+   (if (string-ci=? microcode-id/operating-system-name "NT")
+       "ansi.sys"
+       "ibm_pc_bios")))
+				   
\ No newline at end of file
-- 
2.25.1