From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 Feb 1995 00:35:23 +0000 (+0000)
Subject: Change definition of OS2/FS-LONG-FILENAMES? so that it is true of any
X-Git-Tag: 20090517-FFI~6647
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bb0ad304f90094c0349fc24d70a469563096a173;p=mit-scheme.git

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 af28e77f9..f98b3ee02 100644
--- 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))