From 8d55fdb8b20e047a781dd4a0e798a819567d29ba Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Dec 1994 19:41:06 +0000
Subject: [PATCH] Use new variable MICROCODE-ID/OPERATING-SYSTEM.

---
 v7/src/edwin/ansi.scm   | 6 +++---
 v7/src/edwin/loadef.scm | 4 ++--
 v7/src/edwin/make.scm   | 5 ++---
 3 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/v7/src/edwin/ansi.scm b/v7/src/edwin/ansi.scm
index 6f6ad977f..639b35144 100644
--- a/v7/src/edwin/ansi.scm
+++ b/v7/src/edwin/ansi.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: ansi.scm,v 1.6 1994/11/01 23:04:22 adams Exp $
+$Id: ansi.scm,v 1.7 1994/12/19 19:37:10 cph Exp $
 
-Copyright (c) 1992-1993 Massachusetts Institute of Technology
+Copyright (c) 1992-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -62,7 +62,7 @@ MIT in each case. |#
 
   (let ((foregnd (get-numstring "FOREGROUND"))
 	(backgnd (get-numstring "BACKGROUND")))
-    (let ((full? (not (eq? (intern microcode-id/operating-system-name) "dos")))
+    (let ((full? (not (eq? 'DOS microcode-id/operating-system)))
 	  (normal
 	   (string-append "\033[0"
 			  (make-mode foregnd)
diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 960f4e42d..fd88080f6 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: loadef.scm,v 1.26 1994/10/12 00:30:42 cph Exp $
+;;;	$Id: loadef.scm,v 1.27 1994/12/19 19:40:55 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -220,7 +220,7 @@ variable's value is #F, the text is printed using LPR-COMMAND."
 
 ;;;; DOS-specific commands
 
-(if (memq (intern microcode-id/operating-system-name) '(dos nt))
+(if (memq microcode-id/operating-system '(DOS NT))
     (begin
       (define-library 'DOSCOM
 	'("doscom" (EDWIN DOSJOB)))
diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index 1453b4cda..1e00094c4 100644
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 3.84 1994/06/21 19:38:40 cph Exp $
+$Id: make.scm,v 3.85 1994/12/19 19:41:06 cph Exp $
 
 Copyright (c) 1989-94 Massachusetts Institute of Technology
 
@@ -47,7 +47,6 @@ MIT in each case. |#
        (declare-shared-library "edwin" (lambda () true))
        (package/system-loader
 	"edwin"
-	`((os-type
-	   . ,(intern (microcode-identification-item 'OS-NAME-STRING))))
+	`((os-type . ,microcode-id/operating-system))
 	'QUERY)))))
 (add-system! (make-system "Edwin" 3 84 '()))
\ No newline at end of file
-- 
2.25.1