Use new variable MICROCODE-ID/OPERATING-SYSTEM.

diff --git a/v7/src/edwin/ansi.scm b/v7/src/edwin/ansi.scm
index 6f6ad977f92f02373a23641f56f18c7dd71ddd67..639b35144ebaf6101dc94bfa92597b344c2952b3 100644 (file)
--- 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 960f4e42d92fa7c82de6a99c232e96e37f71ab52..fd88080f6efd1eb3c1b1af73b5e7c6b5e8d6f0e6 100644 (file)
--- 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."
 \f
 ;;;; 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 1453b4cda00a26d73637d78d75d4e5d72142e53e..1e00094c4b1925800434512c1321a20b8d1fb795 100644 (file)
--- 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