From 04ccc3c411295faada35ff36dc3bcd9774fbe893 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 19 Aug 2008 05:03:29 +0000 Subject: [PATCH] Make TEXT line ending be the more generic XML-1.0 on input; behavior on output is unchanged. When speaking of generic text this will support all the standard line endings for input. --- v7/src/runtime/genio.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/v7/src/runtime/genio.scm b/v7/src/runtime/genio.scm index c1c89e64c..dc0fa623e 100644 --- a/v7/src/runtime/genio.scm +++ b/v7/src/runtime/genio.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: genio.scm,v 1.68 2008/08/18 00:15:17 cph Exp $ +$Id: genio.scm,v 1.69 2008/08/19 05:03:29 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -456,10 +456,9 @@ USA. (define (line-ending channel name for-output?) (guarantee-symbol name #f) - (if (or (eq? name 'TEXT) - (and for-output? - (known-input-line-ending? name) - (not (known-output-line-ending? name)))) + (if (and for-output? + (known-input-line-ending? name) + (not (known-output-line-ending? name))) (if (and channel (eq? (channel-type channel) 'TCP-STREAM-SOCKET)) 'CRLF (default-line-ending)) @@ -1941,6 +1940,7 @@ USA. ((#\U+0085 #\U+2028) #\U+000A) (else c0))))) +(define-normalizer-alias 'TEXT 'XML-1.0) (define-normalizer-alias 'LF 'NEWLINE) (define-denormalizer-alias 'LF 'NEWLINE) (define-normalizer-alias 'BINARY 'NEWLINE) -- 2.25.1