From f0c0a982306c113dc9dcc45bdcd77f79c5eec173 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 23 Oct 1995 06:52:09 +0000
Subject: [PATCH] Implement new operation OS/FILE-END-OF-LINE-TRANSLATION,
 which is used to determine appropriate line-translation by interrogating the
 file system to determine its type.  Currently this is interesting only for
 OS/2, in which it is common to mount unix file systems.

---
 v7/src/runtime/os2prm.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index bbcdab741..3acee5c6b 100644
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2prm.scm,v 1.19 1995/10/23 06:38:35 cph Exp $
+$Id: os2prm.scm,v 1.20 1995/10/23 06:52:09 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -252,7 +252,9 @@ MIT in each case. |#
       "\\"))
 
 (define (os2/fs-drive-type pathname)
-  (let ((type ((ucode-primitive drive-type 1) (pathname-device pathname))))
+  (let ((type
+	 ((ucode-primitive drive-type 1)
+	  (pathname-device (merge-pathnames pathname)))))
     (let ((colon (string-find-next-char type #\:)))
       (if colon
 	  (cons (string-head type colon) (string-tail type (fix:+ colon 1)))
-- 
2.25.1