[Wisp-cvs] wisp/src/builtin tostring.wisp,1.72,1.73

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv5049/src/builtin

Modified Files:
	tostring.wisp 
Log Message:
Fixed stringification of named characters and parsing of &...; XML entities.

Index: tostring.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/tostring.wisp,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -d -r1.72 -r1.73
--- tostring.wisp	26 Aug 2002 16:13:01 -0000	1.72
+++ tostring.wisp	31 Aug 2002 14:30:24 -0000	1.73
@@ -134,7 +134,7 @@
                     ((rassv s char-names)
                       => (lambda (c)
                            (emit "#\\")
-                           (emit (symbol->string (car s)))))
+                           (emit (symbol->string (car c)))))
                     ((char=? s #\U+7F)
                       (emit "#\\^?"))
                     ((char<? s #\U+20)