[Gd-chatter] r11332 - trunk/libraries/xml-parser

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Sun May  6 19:35:03 2007
New Revision: 11332

Modified:
   trunk/libraries/xml-parser/simple-xml.dylan
Log:
Job: minor
make escape-xml on symbol possible


Modified: trunk/libraries/xml-parser/simple-xml.dylan
==============================================================================
--- trunk/libraries/xml-parser/simple-xml.dylan	(original)
+++ trunk/libraries/xml-parser/simple-xml.dylan	Sun May  6 19:35:03 2007
@@ -85,7 +85,11 @@
 </html>
 */
 
-define function escape-xml (string :: <string>) => (res :: <string>)
+define method escape-xml (symbol :: <symbol>) => (res :: <symbol>)
+  as(<symbol>, escape-xml(as(<string>, symbol)))
+end;
+
+define method escape-xml (string :: <string>) => (res :: <string>)
   let res = "";
   for (char in string)
     if (char = '>')