From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 23 Oct 1995 07:10:07 +0000 (+0000)
Subject: Implement new operation OS/FILE-END-OF-LINE-TRANSLATION, which is used
X-Git-Tag: 20090517-FFI~5878
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb1930a3b983ae076a19546fce1b7bbe2ea689dc;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/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