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 13e16d0a5aea3c4d00ff040dc897be208bdc2e18..d9f640d36bac0637b293e09732214c5531b261a5 100644 (file)
--- 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