Change definition of OS2/FS-LONG-FILENAMES? so that it is true of any

filesystem type except FAT.  This is still not accurate, but is a
better default, since there are compression filesystems that have
unusual types but also have long filenames.

diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index af28e77f9374aa3243fa92768eace9b4538ee62d..f98b3ee02c3dc452fcb535d28213e521c24385e2 100644 (file)
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2prm.scm,v 1.5 1995/01/31 22:36:55 cph Exp $
+$Id: os2prm.scm,v 1.6 1995/02/14 00:35:23 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -200,9 +200,9 @@ MIT in each case. |#
          (error "Can't find temporary directory.")))))
 
 (define (os2/fs-long-filenames? pathname)
-  (let ((type ((ucode-primitive drive-type 1) (pathname-device pathname))))
-    (or (string-ci=? "hpfs" type)
-       (string-ci=? "nfs" type))))
+  (not (string-ci=? "fat"
+                   ((ucode-primitive drive-type 1)
+                    (pathname-device pathname)))))
 
 (define-integrable os2/current-pid
   (ucode-primitive current-pid 0))