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)
|
