Dos-specific libraries are also defined under NT so that bands can be
authorGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Sun, 22 Aug 1993 20:47:32 +0000 (20:47 +0000)
committerGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Sun, 22 Aug 1993 20:47:32 +0000 (20:47 +0000)
shared.

v7/src/edwin/loadef.scm

index 639f2622c850526bb2e8db89690fc8140b3713b8..284bbee24d37ac8d5e13a4a7b5ec749452721106 100644 (file)
@@ -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."
 \f
 ;;;; 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)))