From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 Jul 2008 20:35:25 +0000 (+0000)
Subject: Add HTTP line ending.
X-Git-Tag: 20090517-FFI~265
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=53ccc0fe7cae8610f50f7e25555a49d62d9e75fb;p=mit-scheme.git

Add HTTP line ending.
---

diff --git a/v7/src/runtime/genio.scm b/v7/src/runtime/genio.scm
index 5c7aeba53..033615da2 100644
--- a/v7/src/runtime/genio.scm
+++ b/v7/src/runtime/genio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: genio.scm,v 1.66 2008/07/26 05:12:19 cph Exp $
+$Id: genio.scm,v 1.67 2008/07/26 20:35:25 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -1873,11 +1873,6 @@ USA.
   (lambda (ob char)
     (encode-char ob char)))
 
-(define-normalizer-alias 'LF 'NEWLINE)
-(define-denormalizer-alias 'LF 'NEWLINE)
-(define-normalizer-alias 'BINARY 'NEWLINE)
-(define-denormalizer-alias 'BINARY 'NEWLINE)
-
 (define-normalizer 'CR
   (lambda (ib)
     (let ((c0 (decode-char ib)))
@@ -1953,6 +1948,13 @@ USA.
 	      #\U+000A))))
 	((#\U+0085 #\U+2028) #\U+000A)
 	(else c0)))))
+
+(define-normalizer-alias 'LF 'NEWLINE)
+(define-denormalizer-alias 'LF 'NEWLINE)
+(define-normalizer-alias 'BINARY 'NEWLINE)
+(define-denormalizer-alias 'BINARY 'NEWLINE)
+(define-normalizer-alias 'HTTP 'XML-1.0)
+(define-denormalizer-alias 'HTTP 'CRLF)
 
 ;;;; Conditions