From 91fa6da9b907785eb98ce0aefb90ecb0c8cc6c59 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Jan 1998 05:56:11 +0000
Subject: [PATCH] Detect FAT32 file system and treat it the same as VFAT.

---
 v7/src/runtime/ntprm.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index f82d53ff8..db0d84ce8 100644
--- a/v7/src/runtime/ntprm.scm
+++ b/v7/src/runtime/ntprm.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: ntprm.scm,v 1.20 1997/12/30 01:25:40 cph Exp $
+$Id: ntprm.scm,v 1.21 1998/01/08 05:56:11 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 Electrical Engineering and
@@ -378,7 +378,8 @@ MIT in each case. |#
   ;; version, even if the VFAT driver is being used to provide long file names.
   (let* ((volume-info (nt-volume-info pathname))
 	 (fs-type     (nt-volume-info/file-system-name volume-info)))
-    (cond ((string-ci=? fs-type "VFAT")
+    (cond ((or (string-ci=? fs-type "VFAT")
+	       (string-ci=? fs-type "FAT32"))
 	   'VFAT)			; ``kind of''
 	  ((string-ci=? fs-type "FAT")
 	   #F)
-- 
2.25.1