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.

diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index bbcdab741cb29589ec9b58e743a3c5534753bd96..3acee5c6b9d6f648258a770d32c019f0b6b2ca95 100644 (file)
--- 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. |#
       "\\"))
 \f
 (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)))