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

[hannes at gwydiondylan.org]

Author: hannes
Date: Mon Dec  4 01:38:14 2006
New Revision: 11022

Modified:
   trunk/libraries/xml-parser/stream-parser.dylan
Log:
Job: minor
*some constant definitions for slots
*resolved method ordering problem (between dispatch(<xml-stream-parser>, '<', #f, <boolean>) and dispatch(<xml-stream-parser>, <character>, #f, #f))

Modified: trunk/libraries/xml-parser/stream-parser.dylan
==============================================================================
--- trunk/libraries/xml-parser/stream-parser.dylan	(original)
+++ trunk/libraries/xml-parser/stream-parser.dylan	Mon Dec  4 01:38:14 2006
@@ -11,8 +11,8 @@
 define class <xml-stream-parser> (<object>)
   slot stream :: <stream>,
     required-init-keyword: stream:;
-  slot handlers :: <table> = make(<table>);
-  slot opened-elements :: <deque> = make(<deque>);
+  constant slot handlers :: <table> = make(<table>);
+  constant slot opened-elements :: <deque> = make(<deque>);
   slot text-buffer :: <string> = "";
   slot tag-buffer :: <string> = "";
   slot parsing-tag? :: <boolean> = #f;
@@ -32,7 +32,7 @@
 
 define generic dispatch (parser :: <xml-stream-parser>, char :: <character>, in-tag? :: <boolean>, in-root? :: <boolean>) => ();
 
-define method dispatch (parser :: <xml-stream-parser>, char == '<', in-tag? == #f, in-root? :: <boolean>) => ();
+define method dispatch (parser :: <xml-stream-parser>, char == '<', in-tag? == #f, in-root? == #f) => ();
   parser.parsing-tag? := #t;
   parser.tag-buffer := add!(parser.tag-buffer, char);
 end method;