From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 23 Oct 1995 06:52:09 +0000 (+0000)
Subject: Implement new operation OS/FILE-END-OF-LINE-TRANSLATION, which is used
X-Git-Tag: 20090517-FFI~5879
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f0c0a982306c113dc9dcc45bdcd77f79c5eec173;p=mit-scheme.git

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