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