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 c00c69ee78b20850f74c4f20c141ebffa039c4e7..8198484dc9551be1e685618d736c5f68c0c11123 100644 (file)
--- 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