From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 7 Sep 1993 21:59:02 +0000 (+0000)
Subject: Add default value for the TERM environment variable.
X-Git-Tag: 20090517-FFI~7888
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e943f6ca7a1da846b3d9c7782ce0f7988ad73b25;p=mit-scheme.git

Add default value for the TERM environment variable.
---

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