From fb1930a3b983ae076a19546fce1b7bbe2ea689dc Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 23 Oct 1995 07:10:07 +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/dospth.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/dospth.scm b/v7/src/runtime/dospth.scm index 13e16d0a5..d9f640d36 100644 --- a/v7/src/runtime/dospth.scm +++ b/v7/src/runtime/dospth.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: dospth.scm,v 1.31 1995/10/23 06:38:26 cph Exp $ +$Id: dospth.scm,v 1.32 1995/10/23 07:10:07 cph Exp $ Copyright (c) 1992-95 Massachusetts Institute of Technology @@ -371,4 +371,4 @@ MIT in each case. |# (hook/dos/end-of-line-string pathname)) (define (default/dos/end-of-line-string pathname) - (os/file-end-of-line-translation pathname)) \ No newline at end of file + (or (os/file-end-of-line-translation pathname) "\n")) \ No newline at end of file -- 2.25.1