From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 31 Jan 1995 22:06:04 +0000 (+0000)
Subject: Move OS2/FS-LONG-FILENAMES? to runtime system.
X-Git-Tag: 20090517-FFI~6680
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7ff4aad325895a7e1ed951b0f9ec7265674b7dda;p=mit-scheme.git

Move OS2/FS-LONG-FILENAMES? to runtime system.
---

diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index 74e0ff10d..55b7a907b 100644
--- a/v7/src/edwin/os2.scm
+++ b/v7/src/edwin/os2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: os2.scm,v 1.5 1995/01/23 20:05:42 cph Exp $
+;;;	$Id: os2.scm,v 1.6 1995/01/31 22:06:04 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -242,11 +242,6 @@ Includes the new backup.  Must be > 0."
 		pathname
 		(loop (+ i 1))))))
       (os/auto-save-pathname pathname #f)))
-
-(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))))
 
 ;;;; Miscellaneous