From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Oct 1998 04:59:36 +0000 (+0000)
Subject: Adjust DOS/WINDOWS-TYPE to recognize Win98.
X-Git-Tag: 20090517-FFI~4731
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=90b657e6a015b47315f9bfc6d7314130b51c4776;p=mit-scheme.git

Adjust DOS/WINDOWS-TYPE to recognize Win98.
---

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index acd0ddb34..bedc84b11 100644
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dos.scm,v 1.46 1997/12/30 21:19:30 cph Exp $
+;;;	$Id: dos.scm,v 1.47 1998/10/23 04:59:36 cph Exp $
 ;;;
-;;;	Copyright (c) 1992-97 Massachusetts Institute of Technology
+;;;	Copyright (c) 1992-98 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -50,10 +50,10 @@
   (cond ((string-prefix? "Microsoft Windows NT"
 			 microcode-id/operating-system-variant)
 	 'WINNT)
-	((string-prefix? "Microsoft Windows 95"
+	((string-prefix? "Microsoft Windows 9"
 			 microcode-id/operating-system-variant)
 	 'WIN95)
-	((string-prefix? "Microsoft Win32s"
+	((string-prefix? "Microsoft Windows"
 			 microcode-id/operating-system-variant)
 	 'WIN31)
 	(else #f)))