From: Chris Hanson Date: Thu, 18 Jun 1998 19:13:51 +0000 (+0000) Subject: Add code to detect NTFS file system under Linux. X-Git-Tag: 20090517-FFI~4784 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=618e52feaa4f3238ad68938aa1d323a3fc2a2703;p=mit-scheme.git Add code to detect NTFS file system under Linux. --- diff --git a/v7/src/microcode/uxfs.c b/v7/src/microcode/uxfs.c index 8e41565b6..36bac9073 100644 --- a/v7/src/microcode/uxfs.c +++ b/v7/src/microcode/uxfs.c @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: uxfs.c,v 1.14 1998/06/18 19:11:14 cph Exp $ +$Id: uxfs.c,v 1.15 1998/06/18 19:13:42 cph Exp $ -Copyright (c) 1990-97 Massachusetts Institute of Technology +Copyright (c) 1990-98 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm index 6225e1ac9..2a3e3f686 100644 --- a/v7/src/runtime/unxprm.scm +++ b/v7/src/runtime/unxprm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: unxprm.scm,v 1.49 1998/05/31 03:20:10 cph Exp $ +$Id: unxprm.scm,v 1.50 1998/06/18 19:13:51 cph Exp $ Copyright (c) 1988-98 Massachusetts Institute of Technology @@ -308,6 +308,7 @@ MIT in each case. |# (if (or (string-ci=? "fat" type) (string-ci=? "hpfs" type) (string-ci=? "iso9660" type) + (string-ci=? "ntfs" type) (string-ci=? "smb" type)) "\r\n" #f)))