Changeset 25928 in project

Timestamp:

02/19/12 17:36:32 (9 years ago)

Author:

sjamaan

Message:

ssax: Apply patch from Taylor Venable from ​http://lists.nongnu.org/archive/html/chicken-users/2009-10/msg00074.html which was never applied, as pointed out by Stephen Ramsay

File:

• release/4/ssax/trunk/ssax-chicken.scm (modified) (1 diff)

release/4/ssax/trunk/ssax-chicken.scm

@@ -5 +5 @@
 
 (ssax:read-char-data xml-token-kind xml-token-head
- (ssax:make-parser fold)
- (ssax:make-pi-parser fold)
- (ssax:make-elem-parser fold)
+ (ssax:make-parser ssax:scan-Misc ssax:Prefix-XML ssax:complete-start-tag ssax:read-char-data ssax:assert-token ssax:warn parser-error ssax:skip-internal-dtd ssax:ncname-starting-char? ssax:skip-pi ssax:skip-S ssax:S-chars ssax:read-external-id ssax:read-QName ssax:read-markup-token ssax:handle-parsed-entity)
+ (ssax:make-pi-parser ssax:scan-Misc ssax:Prefix-XML ssax:complete-start-tag ssax:read-char-data ssax:assert-token ssax:warn parser-error ssax:skip-internal-dtd ssax:ncname-starting-char? ssax:skip-pi ssax:skip-S ssax:S-chars ssax:read-external-id ssax:read-QName ssax:read-markup-token ssax:handle-parsed-entity)
+ (ssax:make-elem-parser ssax:scan-Misc ssax:Prefix-XML ssax:complete-start-tag ssax:read-char-data ssax:assert-token ssax:warn parser-error ssax:skip-internal-dtd ssax:ncname-starting-char? ssax:skip-pi ssax:skip-S ssax:S-chars ssax:read-external-id ssax:read-QName ssax:read-markup-token ssax:handle-parsed-entity)
  ssax:xml->sxml
  ssax:warn