From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Feb 2004 01:58:53 +0000 (+0000)
Subject: Restore colon as name-initial char.
X-Git-Tag: 20090517-FFI~1663
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5a7882fbc45a814b3de803e686917a3dcc933748;p=mit-scheme.git

Restore colon as name-initial char.
---

diff --git a/v7/src/xml/xml-chars.scm b/v7/src/xml/xml-chars.scm
index d7fc34ff9..ab7706a08 100644
--- a/v7/src/xml/xml-chars.scm
+++ b/v7/src/xml/xml-chars.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: xml-chars.scm,v 1.6 2003/07/30 19:43:55 cph Exp $
+$Id: xml-chars.scm,v 1.7 2004/02/26 01:58:53 cph Exp $
 
-Copyright 2001,2003 Massachusetts Institute of Technology
+Copyright 2001,2003,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -384,7 +384,7 @@ USA.
 (define alphabet:name-initial
   (alphabet+ alphabet:xml-base-char
 	     alphabet:xml-ideographic
-	     (string->alphabet "_")))
+	     (string->alphabet "_:")))
 
 (define alphabet:name-subsequent		;[4]
   (alphabet+ alphabet:xml-base-char