From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sun, 22 Aug 1993 20:47:32 +0000 (+0000)
Subject: Dos-specific libraries are also defined under NT so that bands can be
X-Git-Tag: 20090517-FFI~8014
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=71b2acd38a449ed49f36fd7fb3da64b87774aa09;p=mit-scheme.git

Dos-specific libraries are also defined under NT so that bands can be
shared.
---

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 639f2622c..284bbee24 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: loadef.scm,v 1.23 1993/08/10 06:45:55 cph Exp $
+;;;	$Id: loadef.scm,v 1.24 1993/08/22 20:47:32 gjr Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
 ;;;
@@ -230,7 +230,7 @@ variable's value is #F, the text is printed using LPR-COMMAND."
 
 ;;;; DOS-specific commands
 
-(if (string=? microcode-id/operating-system-name "dos")
+(if (memq (intern microcode-id/operating-system-name) '(dos nt))
     (begin
       (define-library 'DOSCOM
 	'("doscom" (EDWIN DOSJOB)))