From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 24 Jul 2004 04:39:49 +0000 (+0000)
Subject: Fix definitions of entities so that they work with all character sets.
X-Git-Tag: 20090517-FFI~1603
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eff386349b2a55daae6b3ce081462dc3045aa202;p=mit-scheme.git

Fix definitions of entities so that they work with all character sets.
---

diff --git a/v7/src/xml/xhtml-entities.scm b/v7/src/xml/xhtml-entities.scm
index 186acf51b..ff6295d89 100644
--- a/v7/src/xml/xhtml-entities.scm
+++ b/v7/src/xml/xhtml-entities.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml-entities.scm,v 1.3 2004/07/24 04:21:58 cph Exp $
+$Id: xhtml-entities.scm,v 1.4 2004/07/24 04:39:49 cph Exp $
 
 Copyright 2004 Massachusetts Institute of Technology
 
@@ -279,7 +279,12 @@ USA.
     ))
 
 (define html-entities
-  (map (lambda (b) (make-xml-!entity (car b) (cdr b)))
+  (map (lambda (b)
+	 (make-xml-!entity
+	  (car b)
+	  (list (string-append "&#x"
+			       (number->string (char->integer (cadr b)) 16)
+			       ";"))))
        html-entity-alist))
 
 (define html-char->name-map