From 618e52feaa4f3238ad68938aa1d323a3fc2a2703 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 18 Jun 1998 19:13:51 +0000
Subject: [PATCH] Add code to detect NTFS file system under Linux.

---
 v7/src/microcode/uxfs.c   | 4 ++--
 v7/src/runtime/unxprm.scm | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

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)))
-- 
2.25.1