GOOF----LE-8-2.0�P ] � 4 hI ] g guile� � g define-module*� � � g sxml� g simple� � g filenameS�
f sxml/simple.scm� g importsS� g ssax�
g input-parse�
� � � � g transform� � � g ice-9� g match� � � g srfi� g srfi-13� � � � g exportsS� g xml->sxml� g sxml->xml� !g sxml->string� " ! � #g set-current-module� $# � %# � &g string-concatenate/shared� 'g string?� (g ssax:reverse-collect-str� )g
next-token� *] � +f reading internal DOCTYPE� ,g peek-next-char� -g read-char� .f ]� /g read-internal-doctype-as-string� 0g
namespacesS� 10�� 2g declare-namespaces?S� 32 �� 4g trim-whitespace?S� 54 �� 6g entitiesS� 76 �� 8g default-entity-handlerS� 98 �� :g doctype-handlerS� ;: �� <13579; � =g current-input-port� >g map� ?g ssax:uri-string->symbol� @g error� A@ � B@ � Cf no matching pattern� Dg
symbol-append� Eg string->symbol� Ff :� Gg ssax:scan-Misc� HG � IG � Jg eof-object?� KJ � LJ � Mg parser-error� NM � OM � Pf XML [22], unexpected EOF� Qg PI� Rg *PI*� Sg ssax:read-pi-body-as-string� Tg DECL� UE � VE � Wf DOCTYPE� Xf .XML [22], expected DOCTYPE declaration, found � Yg assert-curr-char� ZY � [Y � \g ssax:S-chars� ]\ � ^\ � _f XML [28], space after DOCTYPE� `g ssax:skip-S� a` � b` � cg ssax:read-QName� dc � ec � fg ssax:ncname-starting-char?� gf � hf � ig ssax:read-external-id� ji � ki � l>[ � mf XML [28], end-of-DOCTYPE� ng call-with-values� og ssax:skip-internal-dtd� p6
�� qp1 � rg append� sg assq� tg *DEFAULT*� ug START� vf XML [22], unexpected markup � wg ssax:Prefix-XML� xw � yw � zf space� {g ssax:complete-start-tag� |{ � }{ � ~g EMPTY-TAG� g ssax:reverse-collect-str-drop-ws� �g attlist-fold� �g @� �g EMPTY� �g ssax:assert-token� �� � �� � �g ssax:read-markup-token� �� � �� � �g END� �f [elementvalid] broken for � �f while expecting � �g assoc� �� � �� � �f preserve� �g ssax:read-char-data� �� � �� � �g string-null?� �f [GIMatch] broken for � �g
ENTITY-REF� �g ssax:handle-parsed-entity� �� � �� � �g PCDATA� �f * with char content only; unexpected token � �f XML [43] broken for � �g open-input-string� �g reverse� �g *TOP*� �g make-hash-table� �g hashq-ref� �g symbol->string� �g string-index� �g substring� �f "Invalid QName: more than one colon� �g for-each� �g char-alphabetic?� �g
string-ref� �f Invalid name starting character� �g string-for-each� �f
0123456789.-_� �f Invalid name character� �g
hashq-set!� �g
check-name� �g attribute-value->xml� �g string->escaped-xml� �g
procedure?� �g with-output-to-port� �g call-with-output-string� �g display� �f ="� �g attribute->xml� �f
bad attribute� �f bad attributes� �f </� �f >� �f bad element body� �f />� �g element->xml� �g entity->xml� �f <?� �f ?>� �g pi->xml� �g current-output-port� �g *ENTITY*� �f bad *ENTITY* args� �g length� �f
bad *PI* args� �g string-concatenate-reverse� �g foldts� �g append!� �g list->char-set� �g car� �g
string-length� �g assv� �g make-char-quotator� �f <� �<Ό� �f >� �>Ќ� �f &� �&Ҍ� �f "� �"Ԍ� ����� �C 5 hh? ]4
"5 4% > "