From bad17724eb9d5de4e9c46b0f37cc667999d2ff11 Mon Sep 17 00:00:00 2001
From: "Henry M. Wu" <edu/mit/csail/zurich/mhwu>
Date: Wed, 22 Apr 1992 21:16:09 +0000
Subject: [PATCH] Added ansi.scm to emulate a DOS ANSI.SYS terminal.

---
 v7/src/edwin/decls.scm | 5 +++--
 v7/src/edwin/edwin.ldr | 3 ++-
 v7/src/edwin/edwin.pkg | 4 ++--
 3 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 0dc998ae1..4fdaf9b91 100644
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.35 1992/04/17 20:05:10 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.36 1992/04/22 21:16:09 mhwu Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -78,7 +78,8 @@ MIT in each case. |#
        (sf-edwin (sf-dependent 'edwin-syntax-table))
        (sf-class (sf-dependent 'class-syntax-table)))
   (for-each sf-global
-	    '("class"
+	    '("ansi"
+	      "class"
 	      "clscon"
 	      "clsmac"
 	      "display"
diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index afd561de0..032c0c431 100644
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,5 +1,5 @@
 ;;; -*-Scheme-*-
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.27 1992/04/17 20:05:27 arthur Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.28 1992/04/22 21:15:15 mhwu Exp $
 ;;; program to load package contents
 ;;; **** This program (unlike most .ldr files) is not generated by a program.
 
@@ -54,6 +54,7 @@
       ((access initialize-package! env)))
     (let ((env (->environment '(EDWIN CONSOLE-SCREEN))))
       (load "termcap" env)
+      (laod "ansi" env)
       (load "tterm" env)
       ((access initialize-package! env)))    
     (load "edtstr" environment)
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index a4e32023b..06963cb0c 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.89 1992/04/17 20:05:18 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.90 1992/04/22 21:14:39 mhwu Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -339,7 +339,7 @@ MIT in each case. |#
   (initialization (initialize-package!)))
 
 (define-package (edwin console-screen)
-  (files "termcap" "tterm")
+  (files "termcap" "ansi" "tterm")
   (parent (edwin))
   (export (edwin)
 	  console-display-type)
-- 
2.25.1