Current File : /home/mmdealscpanel/yummmdeals.com/sxml.zip
PK<�Z�4ӱ�P�P	simple.gonu�[���GOOF----LE-8-2.0�P]�4hI]gguile�	�	gdefine-module*�	�	�	gsxml�	gsimple�	�		gfilenameS�	
fsxml/simple.scm�	gimportsS�	gssax�	
ginput-parse�	
�	�	�	�	g	transform�	�	�	gice-9�	gmatch�	�	�	gsrfi�	gsrfi-13�	�	�	�	gexportsS�	g	xml->sxml�	 g	sxml->xml�	!gsxml->string�	" !�	#gset-current-module�	$#�	%#�	&gstring-concatenate/shared�	'gstring?�	(gssax:reverse-collect-str�	)g
next-token�	*]�	+freading internal DOCTYPE�	,gpeek-next-char�	-g	read-char�	.f]�	/gread-internal-doctype-as-string�	0g
namespacesS�	10��	2gdeclare-namespaces?S�	32	��	4gtrim-whitespace?S�	54	��	6gentitiesS�	76	��	8gdefault-entity-handlerS�	98	��	:gdoctype-handlerS�	;:	��	<13579;�	=gcurrent-input-port�	>gmap�	?gssax:uri-string->symbol�	@gerror�	A@�	B@�	Cfno matching pattern�	Dg
symbol-append�	Egstring->symbol�	Ff:�	Ggssax:scan-Misc�	HG�	IG�	Jgeof-object?�	KJ�	LJ�	Mgparser-error�	NM�	OM�	PfXML [22], unexpected EOF�	QgPI�	Rg*PI*�	Sgssax:read-pi-body-as-string�	TgDECL�	UE�	VE�	WfDOCTYPE�	Xf.XML [22], expected DOCTYPE declaration, found �	Ygassert-curr-char�	ZY�	[Y�	\gssax:S-chars�	]\�	^\�	_fXML [28], space after DOCTYPE�	`gssax:skip-S�	a`�	b`�	cgssax:read-QName�	dc�	ec�	fgssax:ncname-starting-char?�	gf�	hf�	igssax:read-external-id�	ji�	ki�	l>[�	mfXML [28], end-of-DOCTYPE�	ngcall-with-values�	ogssax:skip-internal-dtd�	p6
��	qp1�	rgappend�	sgassq�	tg	*DEFAULT*�	ugSTART�	vfXML [22], unexpected markup �	wgssax:Prefix-XML�	xw�	yw�	zfspace�	{gssax:complete-start-tag�	|{�	}{�	~g	EMPTY-TAG�	g ssax:reverse-collect-str-drop-ws��gattlist-fold��g@��gEMPTY��gssax:assert-token��������gssax:read-markup-token��������gEND��f[elementvalid] broken for ��f while expecting ��gassoc��������fpreserve��gssax:read-char-data��������gstring-null?��f[GIMatch] broken for ��g
ENTITY-REF��gssax:handle-parsed-entity��������gPCDATA��f* with char content only; unexpected token ��fXML [43] broken for ��gopen-input-string��greverse��g*TOP*��gmake-hash-table��g	hashq-ref��gsymbol->string��gstring-index��g	substring��f"Invalid QName: more than one colon��gfor-each��gchar-alphabetic?��g
string-ref��fInvalid name starting character��gstring-for-each��f
0123456789.-_��fInvalid name character��g
hashq-set!��g
check-name��gattribute-value->xml��gstring->escaped-xml��g
procedure?��gwith-output-to-port��gcall-with-output-string��gdisplay��f="��gattribute->xml��f
bad attribute��fbad attributes��f</��f>��fbad element body��f />��gelement->xml��gentity->xml��f<?��f?>��gpi->xml��gcurrent-output-port��g*ENTITY*��fbad *ENTITY* args��glength��f
bad *PI* args��gstring-concatenate-reverse��gfoldts��gappend!��glist->char-set��gcar��g
string-length��gassv��gmake-char-quotator��f&lt;��<Ό��f&gt;��>Ќ��f&amp;��&Ҍ��f&quot;��"Ԍ�������C5hh?]4	
"54%>"G&'h��](C�(C"c((C45�C4�5$���"�����("
45��"���"����g	fragments
	�g	fragments		{gresult			{gstrs			{gfilenamefsxml/simple.scm�
	,
��		-	��			.	��	
	/	��		-	��		1	��		2	��	$	4	��	(	5	��	1	5	��	3	6	��	8	6	��	:	6	��	>	2	��	A	7	��	F	7	/��	I	7	)��	S	7	��	V	9	��	Y	;	��	_	<	��	f	=	��	o	=	��	p	:	��	q	>	��	{	9	��	{	1	��	~	1	/��		1	:���	1	��	�gnamegssax:reverse-collect-str�C(R&)*+,-.hH�]4L5>4L5�$4L>"GC4L5��C�gfragment
		Bgfilenamefsxml/simple.scm�
	B	��		D	
��		D	��		D	��	
	D	$��		D	
��		C	��		E	��		E	��		E	��		G	��	5	H	��	:	I	��	;	I	 ��	@	I	��		B
gnamegloop�Ch �]	OQ456�gport
		gloop	
	gfilenamefsxml/simple.scm�
	@
��	
	B	��		A	��		gnamegread-internal-doctype-as-string�C/R<=>?BCh@�]�$#��L$"45��C456�gel
		9gw		,gx			,gfilenamefsxml/simple.scm�
	l		��		m	��		o	��	#	q	��	*	o	��	-	m	��		9Ch�]LO6xg
namespaces
		gfilenamefsxml/simple.scm�
	k	��		l	��		gnamegmunge-namespaces�CDEFh(�]�$��456C�gname
		%gw		"gx			"gfilenamefsxml/simple.scm�
	}	��		~	��	�	��	�	-��	�	��	"�	��		%gnameg
name->sxml�CILOPQRSTVWX[^_behklmn/oh@C]L$LLLL$4L5"6L$4L>"G"D;gfilenamefsxml/simple.scm�
�	��		@
Cqrsthp-/03##4L$4L5$L"L�L�"L544L54LL55LDgentities
		kg
namespaces		kgfilenamefsxml/simple.scm�
�	��	�	��	#�	/��	'�	��	1	x	��	2	y	��	6	y	��	:	y	��	>	x	��	F	z	��	I	z	��	T�	��	U�	��	X�	��	_	u	��	g�	��	k�	��		k

gentitiesS
�g
namespacesS�CuhC]L$L6D;gfilenamefsxml/simple.scm�
�	��		
Cqrsthp-/03##4L$4L5$L"L�L�"L544L54LL55LDgentities
		kg
namespaces		kgfilenamefsxml/simple.scm�
�	��	�	��	#�	/��	'�	��	1	x	��	2	y	��	6	y	��	:	y	��	>	x	��	F	z	��	I	z	��	T�	��	U�	��	X�	��	_	u	��	g�	��	k�	��		k

gentitiesS
�g
namespacesS�CvILOPQRSuv
h�+]4545$6��$3�45�"����$L��6	6#gport
	�gelems	�gentities		�g
namespaces		�gseed		�gtoken			�gkey		!�gtarget		/	Egseed		E	_	gfilenamefsxml/simple.scm�
�	��	�	gnameg#scan-for-significant-prolog-token-2�CyVz}~(�hi]4L�5��Cagattr
		gaccum		gfilenamefsxml/simple.scm�
�	��			C���b��O��h�]L6{gtoken
		gexp-kind		gexp-head			gfilenamefsxml/simple.scm�
�	��			Chi]4L�5��Cagattr
		gaccum		gfilenamefsxml/simple.scm�
�	��			C����h �]45$�C��Cxgstring1
		gstring2		gseed			gfilenamefsxml/simple.scm�
�	��			CL��O��h�]LL6{gtoken
		gexp-kind		gexp-head			gfilenamefsxml/simple.scm�
�	��			C(�hi]4L�5��Cagattr
		gaccum		gfilenamefsxml/simple.scm�
�	��			C�QRS��h~]L6vgport
		
gentities		
gseed			
gfilenamefsxml/simple.scm�
�	��		
	C�h �]45$�C��Cxgstring1
		gstring2		gseed			gfilenamefsxml/simple.scm�
�	��			Cu�O���hpd],4>G45$C��$j4LO>"GL$45"454	
L
OL54L
L	5("���L�C�$/�
45�"��*�$-4�LO5"����$NL&4L	>"G"4L�LL5"���6\gport
	ogentities	ogexpect-eof?		ogseed		ogseed		og
term-token		ogkey		+ogseed		|�gattrs		|�gtarget	��gseed	��gseed	�gseed	Oe
gfilenamefsxml/simple.scm�
�	��	o	gnamegloop�ChP�]64L>G		�$IL$
45"454LO5
4L5(
"�
���C	�$~4	<4
5�$45"
O>"GL$
45"454LO5
4L5(
"�
���C4M5

$

��"

O
L	LLQ6�gstart-tag-head
	Pgport	Pgentities		Pg
namespaces		Pgpreserve-ws?		Pgparent-seed		Pgelem-gi		Pg
attributes		Pg
namespaces		Pgexpected-content			Pgseed	
	N	rgattrs		N	rgseed	
��gattrs	��gt	
gpreserve-ws?	
Pgloop	-Pgfilenamefsxml/simple.scm�
�	��	P	gnameghandle-start-tag�Ch@2]H45�KOLLQ6*gstart-tag-head
		:gport		:gelems			:gentities			:g
namespaces			:gpreserve-ws?			:gseed			:gxml-space-gi			:ghandle-start-tag			:	gfilenamefsxml/simple.scm�
�	��		:	gnamegelement-parser�Ch�o]r"�4545$6��$'�45�"����$��4	
5�		$"4>"G	4
>"G4>"G45	4455$45"
4>"G[45�4	
LOLLLLO>G

6�$@�4LOLLLLO>G
	�	
66OOQLLQ"��Bggport
	�gseed	�gport		�gseed		�gtoken		
�gkey		%�gtarget		3	Igseed		I	Wg
token-head		cEgt			o�gdocname		�Egsystemid	
�Eginternal-subset?	Egelems	,Egentities	
,Eg
namespaces	,Egseed	,Egelems	q�gentities		q�g
namespaces	
q�gseed	q�g#scan-for-significant-prolog-token-2	��gelement-parser	��gfilenamefsxml/simple.scm�
�	��	�	gnamegparser�C'���
h�V-/03#45######OO	QQ	45$45"
44	
55	�CNgstring-or-port
	�g
namespaces	�gdeclare-namespaces?		�gtrim-whitespace?		�gentities		�gdefault-entity-handler		�gdoctype-handler		�gmunge-namespaces		p�g
name->sxml		p�gparser			p�gport	
��gelements	��gfilenamefsxml/simple.scm�
	V
��		V	/��	'	W	 ��	B	Z	����	����	����	����	����	����	����	)����	����	����	����	��	�
g
namespacesS�gdeclare-namespaces?S	�gtrim-whitespace?S	�gentitiesS	�gdefault-entity-handlerS	�gdoctype-handlerS	�gnameg	xml->sxml�g
documentationf�Use SSAX to parse an XML document into SXML. Takes one optional
argument, @var{string-or-port}, which defaults to the current input
port.�CR4�i5����@����@�����@�h8�]	45$C45$CLL6�gc
		4gt			4gt		4gfilenamefsxml/simple.scm�
�	��	�	��		�	��	�	0��	�	>��	�	0��	�	��	,�	"��	4�	��
		4Chh�]$X44
55$"&4
5_�$"4L5$LO6CC�gs
		bgt		Kgt		-	Hgfilenamefsxml/simple.scm�
�	
��	�	��		�	��	�	*��	�	��	�	��	#�	��	-�	��	-�	��	;�	��	?�	��	E�	��	O�	��	^�	��		bC�
h��]!4L5$C454:5$4
5"$"$4�5"$144�5:5$4>"G""4O>"G	L6�gname
	�gstr	�gi		#�gt		:	Mghead		M�gtail		d�gfilenamefsxml/simple.scm�
�	��	�	��	�	��	�	��	�	
��	�	��	#�	
��	+�	��	,�	"��	:�	��	M�	
��	U�	��	V�	��	]�	-��	_�	��	d�	
��	l�	��	m�	��	p�	!��	w�	0��	y�	!��	}�	����	����	����	����	����	����	
����	����	��	�CO�R�'�����h_]L6Wgport
		
gfilenamefsxml/simple.scm�
	��	
	-��		
Chh]�$4�>"G�6(C45$645$64O56gvalue
		ggport		ggfilenamefsxml/simple.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	#�	��	'�	��	-�	��	0�	��	:�	��	B�	��	C�	��	M�	��	U�	��	X	��	g	��		g	gnamegattribute-value->xml�C�R����hX�]4>"G4>"G4>"G4>"G"6�gattr
		Xgvalue		Xgport			Xgfilenamefsxml/simple.scm�

��		��		��	)	��	-	��	4	��	=		��	X
	��			X	gnamegattribute->xml�C�R���@�� ����hp�]4>"G4<>"G4>"G$�"��$^�4 >"G�$4��>"G"4>"G�"���(""4>"G""��o"�$�4>>"G"e�$4�>"G�"���(04>"G4>"G	6
6"���6�gtag
	ogattrs	ogbody		ogport		ogattrs		F�gattr		P�gbody	�_gfilenamefsxml/simple.scm�

��	
	��		��	)	��	B	��	F	��	I	��	M	��	P	��	P	��	S	��	i	��	m	��	n	��	s	"��	v	-��	}	���	���	���	���	���	���	���	���	���	���	���	���	���	���	��� 	��	
��!	��!	��!	��"	��"	��%	
��&$	��*$	��1$	��:%	��Q&	��U&	��Y(	��_(	��_	��k)	��o)	��3	o	gnamegelement->xml�C�R�h8�]4&>"G4>"G;6�gname
		2gport		2gfilenamefsxml/simple.scm�
,
��	-	��	.	��	2/	��		2	gnamegentity->xml�C�R���h`�]4>"G4>"G4 >"G4>"G6�gtag
		Zgstr		Zgport			Zgfilenamefsxml/simple.scm�
2
��	3	��	3	��	3	��	4	��	+5	��	?6	��	V7	��	Z7	��
		Z	gnamegpi->xml�C�R�� �@���R����� h\]L6Tgx
		
gfilenamefsxml/simple.scm�
T	��	
T	��		
C'�����h_]L6Wgport
		
gfilenamefsxml/simple.scm�
^	��	
^	-��		
Chp�-.,3#45�$���$���$	�6�$5"	�6��$4�5�$
��6"���"���	�$;"	
�6��$"4�5	�$�����6"���"�����$$��$��&��"""
$�"6O645$6(C$.&C45$64O56C�gtree
	kgport	kgtag		+
gelems	�
gattrs	�
gfilenamefsxml/simple.scm�
9
��	9	*��	>	��	 =	��	#?	��	$?	��	(?	��	+A	��	+A	��	6B	
��	;D	��	?D	
��	HB	
��	PH	��	SH	,��	UH	��	UF	
��	XF	��	YF	��	]F	
��	^F	,��	cF	4��	eF	,��	gF	)��	kF	��	pG	��	uG	���B	
���L	���L	(���L	���J	
���J	���J	���J	
���J	,���J	4���J	,���J	)���J	���K	���K	&���K	���N	���N	
���O	 ���O	���O	5���O	.���O	���P	%���P	(���O	���Q	 ���N	
��R	'��R	1��
R	��T	��U	��%=	��-V	��3=	��EZ	��O=	��W[	��Z^	��i]	��E	kgnameg	sxml->xml�g
documentationf�Serialize the sxml tree @var{tree} as XML. The output will be written
to the current output port, unless the optional argument @var{port} is
present.�C R��hq]Cigseed
		gtree		gfilenamefsxml/simple.scm�
f	��	g	��			C�h�]6gseed
		
gkid-seed		
gtree			
gfilenamefsxml/simple.scm�
h	��	
i	��		
	C'h�]45$�CC{gseed
		gtree		gfilenamefsxml/simple.scm�
j	��	k	
��	
k	��	k	��			Ch�]456�gsxml
		gfilenamefsxml/simple.scm�
a
��	e	��	l	��	e	��	d	��		gnamegsxml->string�g
documentationfMDetag an sxml tree @var{sxml} into a string. Does not perform any
formatting.�C!R�>�������h��]*4L
5$�"�45�$C$s445L5��4L5�$!445>"G"4>"G�"��w44556
"��V6�gstr
	�gport	�gbad-pos		�gfrom		�gto		�gi		B	Rgquoted-char		R�gnew-to		R�gfilenamefsxml/simple.scm�
y	��	v	��	z	��	{	��	}	��		��	"	��	&~	��	/�	��	2�	"��	>�	��	?�	��	B�	'��	B�	��	Ev	��	R�	��	[�	��	_�	��	`�	��	c�	��	t�	����	����	����	����	����	-����	����	���}	���|	��	�	Ch �]	4455OC�g
char-encoding
		g	bad-chars		gfilenamefsxml/simple.scm�
o
��	p	��	p	#��	p	��	p	��		gnamegmake-char-quotator�C�R4�i�5�RC
gm
		,g*good-cache*
"�(gfilenamefsxml/simple.scm�		
��x	,
���	@
��"�	V
��"��	��"��	��(�
��*,�
��+w
��/�
��0�,
��1�2
��8�9
��;�a
��?Zo
��?[�	��?a�	��?c�	��?f�
��	?h
C6PK<�Z�@���%�%fold.gonu�[���GOOF----LE-8-2.0�%]-4h�]gguile�	�	gdefine-module*�	�	�	gsxml�	gfold�	�		gfilenameS�	
f
sxml/fold.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	�	gexportsS�	gfoldt�	gfoldts�	gfoldts*�	gfold-values�	gfoldts*-values�	gfold-layout�	�	gset-current-module�	�	�	gatom?�	gmap�	gapply�	gappend�	 gassq�	!gassq-ref�	"gerror�	#fno binding available�	$g@�	%gmacro�	&gpre�	'greverse�	(gbindings�	)g
pre-layout�	*gpost�	+g	*default*�	,g*text*�C5hp"�]4	
54>"Ghq]��Cigx
		gfilenamef
sxml/fold.scm�
	&
��		'	��		'	��		gnamegatom?�CRhZ]LL6Rgkid
		gfilenamef
sxml/fold.scm�
	0	��		1	��		Ch(0]45$64O56(gfup
		'gfhere		'gtree			'gfilenamef
sxml/fold.scm�
	)
��		.	��	
	.	��		/	��		0	��	'	0	��		'	gnamegfoldt�g
documentationfjThe standard multithreaded tree fold.

@var{fup} is of type [a] -> a. @var{fhere} is of type object -> a.
�CRhm]LLL6egkid
		gkseed		gfilenamef
sxml/fold.scm�
	:	��		;	��			Ch8j]45$64O4556bgfdown
		8gfup		8gfhere			8gseed			8gtree			8gfilenamef
sxml/fold.scm�
	4
��		7	��	
	7	��		8	��		:	��	(	<	��	4	:	��	8	9	��			8	gnamegfoldts�g
documentationfnThe single-threaded tree fold originally defined in SSAX.
@xref{sxml ssax,,(sxml ssax)}, for more information.�CRhm]LLL6egkid
		gkseed		gfilenamef
sxml/fold.scm�
	J	��		K	��			ChH�]45$64>G4O56�gfdown
		Egfup		Egfhere			Egseed			Egtree			Egkseed		"	Egtree		"	Egfilenamef
sxml/fold.scm�
	@
��		D	��	
	D	��		E	��		G	��	%	F	��	.	J	��	E	I	
��			E	gnamegfoldts*�g
documentationf�A variant of @ref{sxml fold foldts,,foldts} that allows pre-order
tree rewrites. Originally defined in Andy Wingo's 2007 paper,
@emph{Applications of fold to XML transformation}.�CRh8�-13(E4�>G�@�gproc
			3glist			3gseeds				3gseeds		#	3gfilenamef
sxml/fold.scm�
	Q
��		U	��		V	��		X	��		X	!��	"	X	��	&	W	��	/	Z	"��	3	Z	
��
			3	
	gnamegfold-values�g
documentationf�A variant of @ref{SRFI-1 Fold and Map, fold} that allows multi-valued
seeds. Note that the order of the arguments differs from that of
@code{fold}.�CRho-13LLL@ggtree
			gseeds			gfilenamef
sxml/fold.scm�
	h	��		i	��			
Ch`-1345$@4>G4O>G45@�gfdown
			`gfup			`gfhere				`gtree				`gseeds				`gtree		+	`gkseeds		+	`gkseeds		L	`gfilenamef
sxml/fold.scm�
	\
��	
	`	��		`	��		a	��		c	��	.	b	��	3	g	��	O	e	
��	V	m	��	`	m	��			`	
	gnamegfoldts*-values�g
documentationf�A variant of @ref{sxml fold foldts*,,foldts*} that allows
multi-valued seeds. Originally defined in Andy Wingo's 2007 paper,
@emph{Applications of fold to XML transformation}.�CR h �]45$�CC�galist
		gkey		gdefault			gt			gfilenamef
sxml/fold.scm�
	o
��		p		��		p	��			gnamegassq-ref�C!R"#hx-136pgargs
			gfilenamef
sxml/fold.scm�
�	��	
�	��	�	��			


gnamegerr�Ch�-13LL�@zgargs
			gfilenamef
sxml/fold.scm�
�	��	�	)��	�	��			


gnameg
cont-with-tag�C!$%&'h�]45D�gparams
		
glayout		
g
old-layout			
gkids			
gfilenamef
sxml/fold.scm�
�	��	�	��	
�	��		
	C()h{]Csgtag
		gparams		glayout			gfilenamef
sxml/fold.scm�
�	��			C*+
h`b]>"�O	Q	$
45"4L�5
�(
	�D"�
	�D���$/���& 4���5���
	D"���"���4�5$�45$!4?"��45$4?D4544	
5544L55"���4L5"���Zgtree
	_gbindings	_gpcont		_gparams		_glayout		_gret		_gnew-bindings		�g
new-layout		�gcont		�g
cont-with-tag			�gbindings	
	6�gstyle-params		6�gparams	��gtag-bindings	�_gt	�Ggt	�Ggfilenamef
sxml/fold.scm�
�	��	�	��	�	��	�	��	�	��	,�	��	3�	/��	4�	:��	6�	��	6�	��	=�	��	A�	��	B�	��	K�	&��	N�	L��	P�	
��	W�	��	`�	-��	c�	S��	e�	
��	e�	��	h�	��	j�	��	n�	��	q�	(��	u�	5��	y�	
��	z�	��	�	&����	����	����	
����	
����	B����	����	����	+����	����	����	����	����	����	����	����	
����	����	����	����	����	����	���	���	���	���	���	���	���	���	��!�	��)�	��*�	��0�	��1�	��7�	$��;�	��=�	��G�	��K�	��Q�	1��U�	��_�	��I	_	gnamegfdown�C'h8�,3
4	4
5>G�D�gtree
		2gbindings		2gcont			2gparams			2glayout			2gret			2g	kbindings			2gkcont			2gkparams			2gklayout				2gkret	
		2gklayout			2gkret			2
gfilenamef
sxml/fold.scm�
�	��	�	
��	�	(��	�	
��	�	��	0�	-��	2�	��		2	gnamegfup�C!,h06]44L5>G�D.gtree
		0gbindings		0gcont			0gparams			0glayout			0gret			0gtlayout			0gtret			0gfilenamef
sxml/fold.scm�
�	��	�	
��	�	��	
�	��	�	��	�	
��	�	��	.�	-��	0�	��
		0	gnamegfhere�ChP�]=OQ4O>	G
	�
D�gtree
		Ngbindings		Ngparams			Nglayout			Ng
stylesheet			Ngerr			Ngfdown			Ngbindings		:	Ngcont		:	Ngparams			:	Nglayout	
	:	Ngret		:	Ngfilenamef
sxml/fold.scm�
	s
��	�	��	1�	7��	4�	C��	9�	��	=�	��	J�	��	N�	��			N	gnamegfold-layout�g
documentationf	A traversal combinator in the spirit of SSAX's @ref{sxml transform
pre-post-order,,pre-post-order}.

@code{fold-layout} was originally presented in Andy Wingo's 2007 paper,
@emph{Applications of fold to XML transformation}.

@example
bindings := (<binding>...)
binding  := (<tag> <bandler-pair>...)
          | (*default* . <post-handler>)
          | (*text* . <text-handler>)
tag      := <symbol>
handler-pair := (pre-layout . <pre-layout-handler>)
          | (post . <post-handler>)
          | (bindings . <bindings>)
          | (pre . <pre-handler>)
          | (macro . <macro-handler>)
@end example

@table @var
@item pre-layout-handler
A function of three arguments:

@table @var
@item kids
the kids of the current node, before traversal
@item params
the params of the current node
@item layout
the layout coming into this node
@end table

@var{pre-layout-handler} is expected to use this information to return a
layout to pass to the kids. The default implementation returns the
layout given in the arguments.

@item post-handler
A function of five arguments:
@table @var
@item tag
the current tag being processed
@item params
the params of the current node
@item layout
the layout coming into the current node, before any kids were processed
@item klayout
the layout after processing all of the children
@item kids
the already-processed child nodes
@end table

@var{post-handler} should return two values, the layout to pass to the
next node and the final tree.

@item text-handler
@var{text-handler} is a function of three arguments:
@table @var
@item text
the string
@item params
the current params
@item layout
the current layout
@end table

@var{text-handler} should return two values, the layout to pass to the
next node and the value to which the string should transform.
@end table
�CRC�gm
		,gfilenamef
sxml/fold.scm�		
���	&
���	)
���	4
���	@
��	�	Q
���	\
��
�	o
��"n	s
��
	"p
C6PK<�Z���V	V	apply-templates.gonu�[���GOOF----LE-8-2.0>	]"4h�]gguile�	�	gdefine-module*�	�	�	gsxml�	gapply-templates�	�		gfilenameS�	
fsxml/apply-templates.scm�	gimportsS�	gssax�	
�	
�	gxpath�	�	ghideS�	gfilter�	�	�	�	gexportsS�	�	gset-current-module�	�	�	gnode-typeof?�	g
procedure?�	gerror�	fambiguous template match�	gnodeset?�	 g	map-union�	!gappend�C5h�d]4	
54>"GhP*](C��$/44��55$��4L�5�C�"����"���"gnode
		Og	templates		Ogfilenamefsxml/apply-templates.scm�
	>	��		?	��		A	��		A	��		?	��		C	��		C	��		C	��		C	��	!	C	��	%	?	��	(	D	��	*	D	��	1	D	4��	3	D	��	4	D	��	:	F	��	B	F	��	G	B	��	O	B	��		O	gnamegfilter-templates�ChH�]�$;4�5$&4L�5$4>"G"�C�"���C�g	templates
		Fgfilenamefsxml/apply-templates.scm�
	K	��		L		��			L	��	
	N	��		N	��		N	��		M		��		O	��		O	��		O	��	!	O	��	"	P	��	&	P	��	+	P	��	:	Q	��	>	R	��	D	R	��		Fgnamegfind-handler�C hh]LL6`ga-tree
		
gfilenamefsxml/apply-templates.scm�
	W	��	
	W	$��		
C!h`@]45$LO644L54LL554L5$6�$
�"���C8gtree
		`gactive-templates		`gstill-active-templates		3	`gt		<	`gfilenamefsxml/apply-templates.scm�
	T	��		V	��	
	V	��		W	��		Y	��	 	Z	��	)	[	��	3	Y	��	3	X	��	6	^	��	<	\	
��	J	_	��	M	`	��	Q	\	
��	T	b	��	^	b	��	_	`	��		`	gnamegloop�Ch@�]OOQQOQ6�gtree
		9g	templates		9gfilter-templates			9gfind-handler			9gloop		'	9gfilenamefsxml/apply-templates.scm�
	8
��	'	T	��	7	T	+��	9	T	��		9	gnamegapply-templates�CRC\gm
		,gfilenamefsxml/apply-templates.scm�		2
���	8
��	�
C6PK<�ZC[dssmatch.gonu�[���GOOF----LE-8-2.0[]�4hx�]gguile�	�	gdefine-module*�	�	�	gsxml�	gmatch�	�		gfilenameS�	
fsxml/match.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	gsrfi-11�	�	�	gice-9�	gcontrol�	�	�	�	gexportsS�	g
sxml-match�	gsxml-match-let�	gsxml-match-let*�	�	gset-current-module�	�	�	 gmake-syntax-transformer�	! �	" �	#gsyntax-object->datum�	$gmacro�	%g$sc-dispatch�	&%�	'%�	(gany�	)((�	*g
syntax-object�	+g
syntax->datum�	,gtop�	-,�	.gribcage�	/gdummy�	0gstx�	1/0�	2gm-cd60791-1�	32,�	43-�	5fl-cd60791-6�	6fl-cd60791-7�	756�	8.147�	9.�	:gx�	;:�	<3�	=fl-cd60791-3�	>=�	?.;<>�	@-89?�	Aghygiene�	BA�	C*+@B�	Dgsyntax-violation�	ED�	FD�	Gf-source expression failed to match any pattern�	Hgvoid�	I(�	Jg
*unspecified*�	K/�	Lgm-cd60791-b�	ML,�	NM�	Ofl-cd60791-10�	PO�	Q.KNP�	Rfl-cd60791-d�	SR�	T.;NS�	U-Q9T�	V*JUB�	Wgthrow�	Xgsxml-match-error�	Ygraise-syntax-error�	Zgmodule�	[gfree-id�	\gprovide�	]gm-cd60791-1a�	^],�	_^�	`fl-cd60791-1c�	a`�	b.;_a�	c-9b�	d*\cB�	e[d�	fgeach-any�	gef��	hgrequire�	i*hcB�	j[i�	kjf��	lkf��	mgl��	n(m��	o(n��	p(o��	qgbegin�	rgname�	sglang�	tgp_�	ugr_�	vgbody�	w/rstuv�	x^-----�	yfl-cd60791-1f�	zfl-cd60791-20�	{fl-cd60791-21�	|fl-cd60791-22�	}fl-cd60791-23�	~fl-cd60791-24�	yz{|}~��.wx��-�9b��*q�B��gnodeset?��gerror��gxml-element-tag��fexpected an xml-element, given��gxml-element-attributes��g
fold-right��g@��gfilter��gxml-element-contents��gmatch-xml-attribute��gmember��gfilter-attributes��gcompile-clause��gmap��f(��g
let-values��gcata-binding��gbody-stx������--��fl-cd60791-b1��fl-cd60791-b2������.�����g	cata-defs���v��fl-cd60791-ac��fl-cd60791-ad������.�����gsxml-match-syntax-error��g	ellipsis?��gliteral?��gkeyword?��gextract-cata-fun��gadd-pat-var��gadd-cata-def��gprocess-cata-exp��gprocess-cata-defs��gcata-defs->pvar-lst��gprocess-output-action��gcompile-element-pat��gcompile-end-element��gcompile-attr-list��gcompile-item-list��gcompile-dotted-pattern-list��gcompile-item���������������������-----------------��fl-cd60791-31��fl-cd60791-32��fl-cd60791-33��fl-cd60791-34��fl-cd60791-35��fl-cd60791-36��fl-cd60791-37��fl-cd60791-38��fl-cd60791-39��fl-cd60791-3a��fl-cd60791-3b��fl-cd60791-3c��fl-cd60791-3d��fl-cd60791-3e��fl-cd60791-3f��fl-cd60791-40��fl-cd60791-41���������������������.�����0��-��fl-cd60791-30�����.�����-9�9��9���*��B��gidentifier?��((���(ό��g...��gquote��glst�����fl-cd60791-fe�����.�����gprocess-quasiquote��gexpand-quasiquote-body��gexpand-dotted-item��gselect-dotted-vars��gmerge-pvars��gdotted-var?��gmember-var?��g
expand-lst��gfinite-lst?�����������	��---------	��fl-cd60791-e0��fl-cd60791-de��fl-cd60791-dc��fl-cd60791-da��fl-cd60791-d8��fl-cd60791-d6��fl-cd60791-d4��fl-cd60791-d2��fl-cd60791-d0�����������	��.�����gaction��gdotted-vars������fl-cd60791-ce��fl-cd60791-cf������.�����-9����9���*��B�����gcons��gexp-lft��gexp-rgt������f
l-cd60791-122��f
l-cd60791-123������.����gfst�grst��f
l-cd60791-11b�f
l-cd60791-11c��.��-9�9����9��*�B�	gappend�
f
l-cd60791-116�f
l-cd60791-117�
�
.���gdots��---�f
l-cd60791-10d�f
l-cd60791-10e�f
l-cd60791-10f��.�-9
9����9��*	B�gbound-identifier=?�gfree-identifier=?�gunquote�gy��f
l-cd60791-13d��.�� gwalk-quasi-body�! �"-�#f
l-cd60791-13a�$#�%.!"$�&f
l-cd60791-139�'&�(.;�'�)-9%(���9�
�**)B�+[*�,+(�-,(��.gunquote-splicing�/*.)B�0[/�10(�21(��3-%(���9��4*�3B�5[4�65(��7g
quasiquote�8*73B�9[8�:9(��;gdv�<;�=f
l-cd60791-174�>=�?.<�>�@f
l-cd60791-16f�A@�B.;�A�Cgdvars�DC�Ef
l-cd60791-167�FE�G.D�F�Hgitem�IH�Jf
l-cd60791-166�KJ�L.I�K�M-9?B9G9L���9�
�N*�MB�Oglambda�P*OMB�Qf
l-cd60791-179�RQ�S.;�R�T-9S���9��U*7TB�V[U�WV(��X*TB�Y[X�ZY(�[g
expanded-item�\[�]f
l-cd60791-183�^]�_.\�^�`f
l-cd60791-17f�a`�b.I�a�c-9_b9S���9��d*cB�e*.TB�f[e�gf(�hf
l-cd60791-18a�ih�j.\�i�kf
l-cd60791-186�lk�m.I�l�n-9jm9S���9��o*.nB�pZό�qH�rf
l-cd60791-1a7�sf
l-cd60791-1a8�tf
l-cd60791-1a9�urst�v.qu�w-v9S���9�	�x*7wB�ygexpanded-rst�z[y�{f
l-cd60791-1b0�|f
l-cd60791-1b1�}{|�~.z�}�-9~v9S���9���*.B��f
l-cd60791-19c��f
l-cd60791-19d������.z����f
l-cd60791-193��f
l-cd60791-194��f
l-cd60791-195�������.q���-9��9S���9���*.�B��fbad quasiquote-form��gs�����fl-cd60791-5b�����.�����gmsg��gexp��gsub�������fl-cd60791-56��fl-cd60791-57��fl-cd60791-58�������.����-9�9��9���*�B��-���9���*��B��[����(���*7�B��[����(���gapply��f
l-cd60791-1e6��f
l-cd60791-1e7������.�����f
l-cd60791-1d8��f
l-cd60791-1d9������.����-9�����9�	��*��B��gele��gnextp��gfail-k��gpvar-lst��gdepth��gcata-fun�����������	��---------	��f
l-cd60791-1f5��f
l-cd60791-1f6��f
l-cd60791-1f7��f
l-cd60791-1f8��f
l-cd60791-1f9��f
l-cd60791-1fa��f
l-cd60791-1fb��f
l-cd60791-1fc��f
l-cd60791-1fd�����������	��.�����-9��9���*��B��[����(����(���(ƌ��ggenerate-temporaries��((((��gif��gbx��gfail-to��:�v���----��f
l-cd60791-23d��f
l-cd60791-23e��f
l-cd60791-23f��f
l-cd60791-240��������.�����gtests��gnew-pvar-lst��g
new-cata-defs��gnew-dotted-vars��������f
l-cd60791-236��f
l-cd60791-237��f
l-cd60791-238��f
l-cd60791-239��������.�����gbody-exp�����f
l-cd60791-22f�����.�����gtag��gitems������f
l-cd60791-22b��f
l-cd60791-22c������.�����-9�9�99��9��9���*��B��gand��*��B��gpair?��*��B��geq?��*��B��*��B��*��B��glet��*��B��*��B��(((((��gax��:��v���-----��f
l-cd60791-21c��f
l-cd60791-21d��f
l-cd60791-21e�f
l-cd60791-21f�f
l-cd60791-220�����.���f
l-cd60791-215�f
l-cd60791-216�f
l-cd60791-217�f
l-cd60791-218��	.���
gattr-exp�
��f
l-cd60791-20c�
f
l-cd60791-20d�
�.��g
attr-items����f
l-cd60791-206�f
l-cd60791-207�f
l-cd60791-208��.�-99	999��9��*�B�*�B�*�B�*�B�*�B�*�B�*�B�*�B� *�B�!gattr-lst�"gbody-lst�#gattr-key-lst�$!"
�#��������%------------�&f
l-cd60791-26f�'f
l-cd60791-270�(f
l-cd60791-271�)f
l-cd60791-272�*f
l-cd60791-273�+f
l-cd60791-274�,f
l-cd60791-275�-f
l-cd60791-276�.f
l-cd60791-277�/f
l-cd60791-278�0f
l-cd60791-279�1f
l-cd60791-27a�2&'()*+,-./01�3.$%2�4-93�9��5*4B�6[5�76(�8g->�9*84B�:[9�;:f��<(;��=6<�>=(�?(>�@?(��A6f�BA(�C(B�DC(��E7(�F(E�GF(��H(=�IH(��J(A�KJ(��L(7�ML(��N(f�ON(��P)(��Qgstring?�Rgchar?�Sgnumber?�Tgboolean?�U(((�V�v��Wf
l-cd60791-3b1�Xf
l-cd60791-3b2�Yf
l-cd60791-3b3�ZWXY�[.VZ�\f
l-cd60791-3aa�]f
l-cd60791-3ab�^f
l-cd60791-3ac�_f
l-cd60791-3ad�`\]^_�a.��`�bgatag�cgliteral�dbc�ef
l-cd60791-39f�ff
l-cd60791-3a0�gf
l-cd60791-3a1�hefg�i.dh�j-9[9ai93�9��k*�jB�lgbinding�m*ljB�n*�jB�o*�jB�p*�jB�qgequal?�r*qjB�sgcadr�t*sjB�utm�vgkwd�wgi�xbw�yf
l-cd60791-390�zf
l-cd60791-391�{f
l-cd60791-392�|yz{�}.x|�~-}93�9��*v~B��fbad attribute pattern��f
l-cd60791-380��f
l-cd60791-381��f
l-cd60791-382�������.x���-�93�9���*v�B��f
l-cd60791-373��f
l-cd60791-374��f
l-cd60791-375�������.V���f
l-cd60791-36c��f
l-cd60791-36d��f
l-cd60791-36e��f
l-cd60791-36f��������.�����gvar��b���f
l-cd60791-361��f
l-cd60791-362��f
l-cd60791-363�������.����-9�9��93�9���*��B��*l�B��*��B��*��B��*��B��*s�B���������f<sxml-match pattern: catamorphism not allowed in this context��gct����v���f
l-cd60791-350��f
l-cd60791-351��f
l-cd60791-352��f
l-cd60791-353��������.�����f
l-cd60791-349��f
l-cd60791-34a��f
l-cd60791-34b��f
l-cd60791-34c��������.�����gctemp�����f
l-cd60791-33f�����.�����gcvar��b���f
l-cd60791-339��f
l-cd60791-33a��f
l-cd60791-33b�������.����-9�9�9��93�9�
��*��B��*l�B��*��B��*��B��*��B��*s�B���������f
l-cd60791-32a��f
l-cd60791-32b��f
l-cd60791-32c��f
l-cd60791-32d��������.�����f
l-cd60791-323��f
l-cd60791-324��f
l-cd60791-325��f
l-cd60791-326��������.�����f
l-cd60791-31a�����.�����gcata��b����f
l-cd60791-312��f
l-cd60791-313��f
l-cd60791-314��f
l-cd60791-315��������.�����-9�9�99��93�9���*��B��*l�B��*��B��*��B��*��B��*s�B����������v��f
l-cd60791-305��f
l-cd60791-306������.�����f
l-cd60791-2fe��f
l-cd60791-2ff��f
l-cd60791-300��f
l-cd60791-301��������.�����gdefault��b����f
l-cd60791-2f1��f
l-cd60791-2f2��f
l-cd60791-2f3��f
l-cd60791-2f4��������.�����-9�9��93�9���*��B��*l�B��*��B��*��B��*��B�*s�B�����v�f
l-cd60791-2e0�f
l-cd60791-2e1�f
l-cd60791-2e2��.�f
l-cd60791-2d9�	f
l-cd60791-2da�
f
l-cd60791-2db�f
l-cd60791-2dc�	
�
.���f
l-cd60791-2cf��.���b���f
l-cd60791-2c7�f
l-cd60791-2c8�f
l-cd60791-2c9�f
l-cd60791-2ca��.��-99
993�9�
�*�B�*lB�*�B�*�B�*�B�*sB�� f
l-cd60791-2b8�!f
l-cd60791-2b9�"f
l-cd60791-2ba�# !"�$.#�%f
l-cd60791-2b1�&f
l-cd60791-2b2�'f
l-cd60791-2b3�(f
l-cd60791-2b4�)%&'(�*.��)�+f
l-cd60791-2a8�,+�-.��,�.b����/f
l-cd60791-29e�0f
l-cd60791-29f�1f
l-cd60791-2a0�2f
l-cd60791-2a1�3f
l-cd60791-2a2�4/0123�5..�4�6-9$9*99-593�9��7*�6B�8*l6B�9*�6B�:*�6B�;*�6B�<*s6B�=<8�>g
matched-attrs�?�>v�@f
l-cd60791-28d�Af
l-cd60791-28e�Bf
l-cd60791-28f�C@AB�D.?C�Ef
l-cd60791-286�Ff
l-cd60791-287�Gf
l-cd60791-288�Hf
l-cd60791-289�IEFGH�J.��I�K��Lf
l-cd60791-27f�ML�N.K�M�O-9D9JN93�9��P*�OB�Q*�OB�R*�OB�S:v��Tf
l-cd60791-25d�Uf
l-cd60791-25e�Vf
l-cd60791-25f�WTUV�X.SW�Yg
next-tests�ZY����[f
l-cd60791-256�\f
l-cd60791-257�]f
l-cd60791-258�^f
l-cd60791-259�_[\]^�`.Z�_�a�������b------�cf
l-cd60791-24b�df
l-cd60791-24c�ef
l-cd60791-24d�ff
l-cd60791-24e�gf
l-cd60791-24f�hf
l-cd60791-250�icdefgh�j.abi�k-9X9`99j�9��l*�kB�mgnull?�n*mkB�ogellipsis-allowed?�p����o�����
�q----------
�rf
l-cd60791-3c2�sf
l-cd60791-3c3�tf
l-cd60791-3c4�uf
l-cd60791-3c5�vf
l-cd60791-3c6�wf
l-cd60791-3c7�xf
l-cd60791-3c8�yf
l-cd60791-3c9�zf
l-cd60791-3ca�{f
l-cd60791-3cb�|rstuvwxyz{
�}.pq|�~-9}�9��*~B��[���(��*8~B��[����f���(���������:v��f
l-cd60791-3f8��f
l-cd60791-3f9��f
l-cd60791-3fa�������.����f
l-cd60791-3f1��f
l-cd60791-3f2��f
l-cd60791-3f3��f
l-cd60791-3f4��������.Z����f
l-cd60791-3e8�����.���������f
l-cd60791-3e4��f
l-cd60791-3e5������.�����-9�9�99��9}�9���*��B��f1improper list pattern not allowed in this context��-�9}�9���*�B���f��f
l-cd60791-412��f
l-cd60791-413��f
l-cd60791-414�������.����f
l-cd60791-40b��f
l-cd60791-40c��f
l-cd60791-40d��f
l-cd60791-40e��������.Z����f
l-cd60791-401�����.��������f
l-cd60791-3ff�����.�����-9�9�9��9}�9�
��*��B��gtail��H���������
��f
l-cd60791-43c��f
l-cd60791-43d��f
l-cd60791-43e��f
l-cd60791-43f��f
l-cd60791-440��f
l-cd60791-441��f
l-cd60791-442��f
l-cd60791-443��f
l-cd60791-444��f
l-cd60791-445������������
��.�q���-999��9���*��B��gvalues��gnpv�����f
l-cd60791-458�����.����������f
l-cd60791-452��f
l-cd60791-453��f
l-cd60791-454�������.����-9�9�999��9���*��B��*�B��gfail��*��B��g
t-cd60791-446��g
t-cd60791-447��g
t-cd60791-448��g
t-cd60791-449��������g
m-cd60791-44e���,��������f
l-cd60791-45f��f
l-cd60791-460��f
l-cd60791-461��f
l-cd60791-462��������.�����-99�99��9�
��*��B��f
l-cd60791-46e�����.�����gnew-exp��������f
l-cd60791-467��f
l-cd60791-468��f
l-cd60791-469��f
l-cd60791-46a��������.�����-9�9�99�99��9���*��B��*�B��gcdr��*��B��*��B������*��B��w��f
l-cd60791-4bf�����.�����gtemp-item-pvar-lst�����f
l-cd60791-492���.���gfinal-tests�gfinal-pvar-lst�gfinal-cata-defs�gfinal-dotted-vars��f
l-cd60791-48e�f
l-cd60791-48f�	f
l-cd60791-490�
f
l-cd60791-491�	
�.��
g
item-tests�g
item-pvar-lst�gitem-cata-defs�gitem-dotted-vars�g
tail-tests�g
tail-pvar-lst�gtail-cata-defs�gtail-dotted-vars�
�--------�f
l-cd60791-479�f
l-cd60791-47a�f
l-cd60791-47b�f
l-cd60791-47c�f
l-cd60791-47d�f
l-cd60791-47e�f
l-cd60791-47f�f
l-cd60791-480�� .�!g
t-cd60791-44a�"g
t-cd60791-44b�#g
t-cd60791-44c�$g
t-cd60791-44d�%!"#$�&f
l-cd60791-475�'f
l-cd60791-476�(f
l-cd60791-477�)f
l-cd60791-478�*&'()�+.%�*�,-9�9999 9+9�99��9��-*H,B�.-�/f
l-cd60791-4c1�0/�1.��0�2-919999 9+9�99��9��3*H2B�43�5f
l-cd60791-4c3�65�7.��6�8-979999 9+9�99��9��9*�8B�:9�;gxa�<gxb�=;<�>f
l-cd60791-4cb�?f
l-cd60791-4cc�@>?�A.=�@�Bga�Cgb�DBC�Ef
l-cd60791-4c6�Ff
l-cd60791-4c7�GEF�H.D�G�I-9A99H9999 9+9�99��9��J*�IB�K(((((fffffff�Lgletrec�Mg	tail-body�Ng	item-body�Og
final-body�Pgipv�Qggpv�Rgtpv�Sg	item-void�Tg	tail-void�Ug	item-null�Vg	item-cons�W:�MNOPQRSTUV�Xf
l-cd60791-497�Yf
l-cd60791-498�Zf
l-cd60791-499�[f
l-cd60791-49a�\f
l-cd60791-49b�]f
l-cd60791-49c�^f
l-cd60791-49d�_f
l-cd60791-49e�`f
l-cd60791-49f�af
l-cd60791-4a0�bf
l-cd60791-4a1�cf
l-cd60791-4a2�dXYZ[\]^_`abc�e.W%d�f-9e9999 9+9�99��9��g*LfB�hg
match-tail�i*hfB�j*OfB�k*�fB�l*�fB�mkl�ng
match-item�o*nfB�pk�q*�fB�r*�fB�s*fB�tgmatch-dotted�u*tfB�v*�fB�wgtail-res�x*wfB�y*�fB�z	�{	�|gres�}*|fB�~gnew-x�*~fB��u�����g
last-tail-res��*�fB��f$ellipses not allowed in this context��:v��f
l-cd60791-3df��f
l-cd60791-3e0������.�����f
l-cd60791-3d8��f
l-cd60791-3d9��f
l-cd60791-3da��f
l-cd60791-3db��������.Z����f
l-cd60791-3d1�����.K����-9�9��9}�9���*��B��-�9}�9���*�B��H��������	��f
l-cd60791-4d8��f
l-cd60791-4d9��f
l-cd60791-4da��f
l-cd60791-4db��f
l-cd60791-4dc��f
l-cd60791-4dd��f
l-cd60791-4de��f
l-cd60791-4df��f
l-cd60791-4e0�����������	��.�����-9��9���*�B��[����(��*8�B��[����f���(��������gnx��:��v���f
l-cd60791-514��f
l-cd60791-515��f
l-cd60791-516��f
l-cd60791-517��f
l-cd60791-518���������.�����f
l-cd60791-50d��f
l-cd60791-50e��f
l-cd60791-50f��f
l-cd60791-510��������.Z��������f
l-cd60791-502��f
l-cd60791-503������.�����f
l-cd60791-4fe��f
l-cd60791-4ff������.�����-9�9�99��9��9���*��B��*��B��*��B��*��B��gcar��*��B���f��f
l-cd60791-534��f
l-cd60791-535��f
l-cd60791-536��f
l-cd60791-537��f
l-cd60791-538���������.�����f
l-cd60791-52d��f
l-cd60791-52e��f
l-cd60791-52f��f
l-cd60791-530��������.Z����f
l-cd60791-521��f
l-cd60791-522������.�����f
l-cd60791-51f�����.�����-9�9�9��9��9�
��*��B��*��B��*��B��*��B��*��B��(f���f+bad pattern syntax (not an element pattern)��f7bad pattern syntax (symbol not allowed in this context)��:�v���f
l-cd60791-594��f
l-cd60791-595��f
l-cd60791-596��f
l-cd60791-597��������.�����f
l-cd60791-58d��f
l-cd60791-58e��f
l-cd60791-58f��f
l-cd60791-590��������.Z�������f
l-cd60791-586�����.�����c��f
l-cd60791-584�����.�����-9�9�99��9��9���*��B�*��B�*��B�*q�B�*��B�*��B�*��B�f
l-cd60791-54d��.;��	f
l-cd60791-547�
	�.��
��H�
f
l-cd60791-543�f
l-cd60791-544�
�.��-99999��9�
�*�B�:�v�f
l-cd60791-561�f
l-cd60791-562�f
l-cd60791-563��.�f
l-cd60791-55a�f
l-cd60791-55b�f
l-cd60791-55c�f
l-cd60791-55d��.Z��g
more-pvar-lst� gmore-cata-defs�!gmore-dotted-vars�" !�#f
l-cd60791-552�$f
l-cd60791-553�%f
l-cd60791-554�&#$%�'."&�(-9999'9999��9��)*�(B�**�(B�+f
l-cd60791-572�,f
l-cd60791-573�-f
l-cd60791-574�.+,-�/.S.�0gafter-tests�1gafter-pvar-lst�2gafter-cata-defs�3gafter-dotted-vars�40123�5f
l-cd60791-56b�6f
l-cd60791-56c�7f
l-cd60791-56d�8f
l-cd60791-56e�95678�:.4�9�;-9/9:999��9��<*�;B�=*�;B�>f
l-cd60791-4f5�?f
l-cd60791-4f6�@f
l-cd60791-4f7�Af
l-cd60791-4f8�B>?@A�C.��B�Df
l-cd60791-4ee�Ef
l-cd60791-4ef�Ff
l-cd60791-4f0�Gf
l-cd60791-4f1�HDEFG�I.Z�H�Jf
l-cd60791-4e7�KJ�L.��K�Mf
l-cd60791-4e5�NM�O.K�N�P-9C9I99LO9��9��Q*�PB�R*�PB�S*�PB�T*�PB�U*�PB�Vf&duplicate pattern variable not allowed�Wgnct�X�Wv�Yfl-cd60791-a4�Zfl-cd60791-a5�[fl-cd60791-a6�\YZ[�].X\�^g	new-ctemp�_^�`fl-cd60791-9f�a`�b._�a�cgcfun�d�c��efl-cd60791-95�ffl-cd60791-96�gfl-cd60791-97�hefg�i.dh�j-9]99b9i�9��k*�jB�l*OjB�m��nf
l-cd60791-59c�on�p.m�o�q-9p9�9��r*qB�s[r�ts(�ugguard�v*uqB�w[v�xwf��yx挤zty��{(z(((�|*8qB�}[|�~}f��(~���s���y���(�(((��ggexp��gaction0��gfail-exp�����������	��f
l-cd60791-5c3��f
l-cd60791-5c4��f
l-cd60791-5c5��f
l-cd60791-5c6��f
l-cd60791-5c7��f
l-cd60791-5c8��f
l-cd60791-5c9��f
l-cd60791-5ca��f
l-cd60791-5cb�����������	��.�����-�9p9�9���*��B��*��B��*��B��*q�B��sf���y���(�(((��gatom���������������f
l-cd60791-5d9��f
l-cd60791-5da��f
l-cd60791-5db��f
l-cd60791-5dc��f
l-cd60791-5dd��f
l-cd60791-5de��f
l-cd60791-5df��f
l-cd60791-5e0������������.����-�9p9�9���*��B��*��B��*��B��*q�B��t挤�(�(((���挤�(�(((������������f
l-cd60791-60c��f
l-cd60791-60d��f
l-cd60791-60e��f
l-cd60791-60f��f
l-cd60791-610��f
l-cd60791-611��f
l-cd60791-612��f
l-cd60791-613������������.����-�9p9�9���*��B���挤�(�(((�����������-------��f
l-cd60791-61f��f
l-cd60791-620��f
l-cd60791-621��f
l-cd60791-622��f
l-cd60791-623��f
l-cd60791-624��f
l-cd60791-625�����������.�����-�9p9�9���*��B���y���(�(((���挤�(�(((��fy���(�(((��f挤�(�(((��(y���(�(((��(挤�(�(((���c�������f
l-cd60791-7c0��f
l-cd60791-7c1��f
l-cd60791-7c2��f
l-cd60791-7c3��f
l-cd60791-7c4��f
l-cd60791-7c5��f
l-cd60791-7c6�����������.�����-�9p9�9���*��B��*q�B��*q�B���c��������f
l-cd60791-79f��f
l-cd60791-7a0��f
l-cd60791-7a1��f
l-cd60791-7a2��f
l-cd60791-7a3��f
l-cd60791-7a4��f
l-cd60791-7a5��f
l-cd60791-7a6������������.����-�9p9�9���*��B��*��B��*q�B��*q�B��f
l-cd60791-71b��f
l-cd60791-71c��f
l-cd60791-71d�������.������������f
l-cd60791-707��f
l-cd60791-708��f
l-cd60791-709��f
l-cd60791-70a�f
l-cd60791-70b�f
l-cd60791-70c�f
l-cd60791-70d�f
l-cd60791-70e������.��-9�99p9�9��*qB�gfailure�	-9�9��
*	B��v�f
l-cd60791-72a�
f
l-cd60791-72b�
�.��gresult�����f
l-cd60791-723�f
l-cd60791-724�f
l-cd60791-725�f
l-cd60791-726��.��-9999p9�9�
�*�B�f
l-cd60791-6db�f
l-cd60791-6dc�f
l-cd60791-6dd��.���������	� f
l-cd60791-6c5�!f
l-cd60791-6c6�"f
l-cd60791-6c7�#f
l-cd60791-6c8�$f
l-cd60791-6c9�%f
l-cd60791-6ca�&f
l-cd60791-6cb�'f
l-cd60791-6cc�(f
l-cd60791-6cd�) !"#$%&'(	�*.�)�+-99*9p9�9��,*q+B�-v��.f
l-cd60791-6e1�/f
l-cd60791-6e2�0./�1.-�0�2-9199*9p9�9�
�3*�2B�4*�2B�5f
l-cd60791-6f2�6f
l-cd60791-6f3�756�8.�7�9f
l-cd60791-6eb�:f
l-cd60791-6ec�;f
l-cd60791-6ed�<f
l-cd60791-6ee�=9:;<�>.�=�?-9899>*9p9�9�
�@*�?B�Aglist�Bf
l-cd60791-69f�Cf
l-cd60791-6a0�Df
l-cd60791-6a1�EBCD�F.�E�G��������Hf
l-cd60791-68b�If
l-cd60791-68c�Jf
l-cd60791-68d�Kf
l-cd60791-68e�Lf
l-cd60791-68f�Mf
l-cd60791-690�Nf
l-cd60791-691�Of
l-cd60791-692�PHIJKLMNO�Q.GP�R-9F9Q9p9�9��S*qRB�Tf
l-cd60791-6ae�Uf
l-cd60791-6af�VTU�W.-�V�Xf
l-cd60791-6a7�Yf
l-cd60791-6a8�Zf
l-cd60791-6a9�[f
l-cd60791-6aa�\XYZ[�].�\�^-9W99]Q9p9�9�
�_*�^B�`*�^B�a*�^B�bf
l-cd60791-65c�cf
l-cd60791-65d�df
l-cd60791-65e�ebcd�f.�e�g��������	�hf
l-cd60791-646�if
l-cd60791-647�jf
l-cd60791-648�kf
l-cd60791-649�lf
l-cd60791-64a�mf
l-cd60791-64b�nf
l-cd60791-64c�of
l-cd60791-64d�pf
l-cd60791-64e�qhijklmnop	�r.g�q�s-9f9r9p9�9��t*qsB�ugexp-body�vu��wf
l-cd60791-662�xf
l-cd60791-663�ywx�z.v�y�{-9z9f9r9p9�9�
�|*�{B�}*�{B�~f
l-cd60791-673�f
l-cd60791-674��~��.����f
l-cd60791-66c��f
l-cd60791-66d��f
l-cd60791-66e��f
l-cd60791-66f��������.����-9�99�r9p9�9�
��*��B��*��B��*��B�����������f
l-cd60791-5fc��f
l-cd60791-5fd��f
l-cd60791-5fe��f
l-cd60791-5ff��f
l-cd60791-600��f
l-cd60791-601��f
l-cd60791-602�����������.�����-�9p9�9���*��B������������f
l-cd60791-5b0��f
l-cd60791-5b1��f
l-cd60791-5b2��f
l-cd60791-5b3��f
l-cd60791-5b4��f
l-cd60791-5b5��f
l-cd60791-5b6��f
l-cd60791-5b7������������.����-�9p9�9���*��B��*��B��*��B��*q�B��gsxml-match1��gclause��/�����g
m-cd60791-7cf���,���---��f
l-cd60791-7d4��f
l-cd60791-7d5��f
l-cd60791-7d6��f
l-cd60791-7d7��������.��������f
l-cd60791-7d1�����.;����-�9���*��B��*O�B��*��B��*��B��*�B������fno matching clause found��*��B��������������(֌��(Č��glet/ec��gclause0��/�������----��f
l-cd60791-7dd��f
l-cd60791-7de��f
l-cd60791-7df��f
l-cd60791-7e0��f
l-cd60791-7e1���������.�����-�9���*��B��gescape��*��B��*��B��*O�B��gcall-with-values��*��B��*��B�����gval��/�����g
m-cd60791-7e8���,���---��f
l-cd60791-7ed��f
l-cd60791-7ee��f
l-cd60791-7ef��f
l-cd60791-7f0��������.��������f
l-cd60791-7ea�����.;����-�9���*L�B��*c�B��*O�B��*��B�����*��B��gsxml-match-let1��挤�(��(��(��gsyntag��gsynform��gbody0��/���v��g
m-cd60791-7f6���,���----��f
l-cd60791-7fb��f
l-cd60791-7fc��f
l-cd60791-7fd�f
l-cd60791-7fe�f
l-cd60791-7ff�����.�����f
l-cd60791-7f8��.;�-9�	*�B�
)�
挤(��
(��(
��gpat�/����v��------�f
l-cd60791-807�f
l-cd60791-808�f
l-cd60791-809�f
l-cd60791-80a�f
l-cd60791-80b�f
l-cd60791-80c�f
l-cd60791-80d��.�-9�*�B�*�B�*B�*OB� *�B�!*�B�"fcould not match pattern ~s�#*"B�$geach�%$)�&)%��'&挤(('��)((��*()��+gpat0�,gexp0�-/��+,��v	�.�--------	�/f
l-cd60791-817�0f
l-cd60791-818�1f
l-cd60791-819�2f
l-cd60791-81a�3f
l-cd60791-81b�4f
l-cd60791-81c�5f
l-cd60791-81d�6f
l-cd60791-81e�7f
l-cd60791-81f�8/01234567	�9.-.8�:-99�;*�:B�<*�:B�=��>��?*:B�@*O:B�A*�:B�B*�:B�C*":B�Dgsxml-match-let-help�E%挤F(E��G(F��H(G��Ig	temp-name�JI�Kf
l-cd60791-841�LK�M.J�L�ND����v�Of
l-cd60791-830�Pf
l-cd60791-831�Qf
l-cd60791-832�Rf
l-cd60791-833�Sf
l-cd60791-834�Tf
l-cd60791-835�Uf
l-cd60791-836�VOPQRSTU�W.N�V�Xf
l-cd60791-82d�YX�Z.��Y�[-9MW9Z�\*�[B�]*�[B�^��_f
l-cd60791-859�`_�a.^�`�b��v�cf
l-cd60791-84d�df
l-cd60791-84e�ef
l-cd60791-84f�ff
l-cd60791-850�gf
l-cd60791-851�hcdefg�i.b�h�jf
l-cd60791-84a�kj�l.��k�m-9ai9l�n*DmB�o�v�pf
l-cd60791-862�qf
l-cd60791-863�rf
l-cd60791-864�spqr�t.os�uf
l-cd60791-85f�vu�w.��v�x-t9w�y*�xB�zf
l-cd60791-87a�{z�|.^�{�}+,��v�~f
l-cd60791-86a�f
l-cd60791-86b��f
l-cd60791-86c��f
l-cd60791-86d��f
l-cd60791-86e��f
l-cd60791-86f��f
l-cd60791-870��~�������.}����-9|�9w��*D�B�C5hx��]4	
54>"G4"#$')Ch>]C6gdummy
		
gstx		
		
	CFGh(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/match.scm�
	+
��		"g
macro-typegsyntax-rules�gpatternsgstxC5#R4"H$'IVh-]C%gdummy
				CFGh(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/match.scm�
	.
��		"g
macro-typegsyntax-rules�gpatternsC5HRWXh�]6�gx
		gmsg		gobj			gsub			gfilenamefsxml/match.scm�
	1
��		2		��		2	��			gnamegraise-syntax-error�CYR4"Z$'p�h�]�C{gdummy
		gname		glang			gp_			gr_			gbody						CFGh(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/match.scm�
	5	��		"g
macro-typegsyntax-rules�gpatternsgnameglanggprovidegp_g...grequiregr_g...gbodyg...C5ZRh(�]	�$	���"$C�C�gx
		"gt		"gfilenamefsxml/sxml-match.ss�
		��			
��				��			%��	
		��			��			��	!		0��			"gnamegnodeset?�C�R���h0�]"
6�$��$�C"���"����gs
		+gfilenamefsxml/sxml-match.ss�
		��	
		��			 ��			��			��			
��			��			 ��			��			��	"		��		+gnamegxml-element-tag�C�R�������h�]�$
��"�C}gi
		gfilenamefsxml/sxml-match.ss�
		&��			<��				7��			K��			N��			F��			2��		C��h(�]"�C�$�&C"���"����gc
		'gd		'gfilenamefsxml/sxml-match.ss�
		*��		!	0��			,��			5��			,��			D��			G��			0��			'	Ch8�]�$&�&(	�6�6CC�ga
		2gb		2gfilenamefsxml/sxml-match.ss�
		��			��				��			.��			1��			��			��			Z��	!		��	*	"	,��	,		��		2	Ch8�]"
6�$��$
�6"���"����gs
		1gfilenamefsxml/sxml-match.ss�
		��	
	&	��		&	'��		&	��			��			
��			��			 ��			��			��	$	$	��	'	%	��	)		��		1gnamegxml-element-attributes�C�R�����h�]�$
��"�C}gi
		gfilenamefsxml/sxml-match.ss�
	*	��		+	��			+	��		+	+��		+	.��		+	&��		+	��		Ch0�]"
6�$��$	�6"���"����gs
		0gfilenamefsxml/sxml-match.ss�
	(	��	
	-	��		-	%��		-	��		)	��		)	
��		)	��		)	 ��		)	��		)	��	&	,	��	(	*	��
		0gnamegxml-element-contents�C�R�h(�]�$��&�C�6C�gkey
		"gl		"gfilenamefsxml/sxml-match.ss�
	/	��		0	
��			0	��		2	��	
	2	��		2	��		3	��		4	%��	 	4	��
		"	gnamegmatch-xml-attribute�C�R��h8�](C4��5$	�6�4�5�C�gkeys
		1glst		1gfilenamefsxml/sxml-match.ss�
	6	��		7	��			8	��		9	��		9	��		9	��		9	��	 	:	$��	"	:	��	%	;	��	&	;	��	-	;	4��	/	;	��	0	;	��		1	gnamegfilter-attributes�C�R4"�$�')h>]C6gbvar
		
gbval		
		
	CFGh@�]��4L��������545$@6�gdef
		>gtmp		>gtmp		'	>gfilenamefsxml/sxml-match.ss�
	v	&��		w	<��		x	<��		x	N��		y	N��		z	N��		x	<��		w	(��			>C'��hJ]CBgcata-binding
		gbody-stx					CFGh@�](C4LO545$@6�g	cata-defs
		@gbody		@gtmp			@gtmp		)	@gfilenamefsxml/sxml-match.ss�
	r	��		s	��		v	!��		u	��		@	gnamegprocess-cata-defs�C�hZ]6Rgitem
		gfilenamefsxml/sxml-match.ss�	�	��		Ch,]C$gitem
				C'h]C		
C��hj]L6bgfst
		grst		gfilenamefsxml/sxml-match.ss�	�	��			CFG��+h �]45$45�CC�gfst
		gdots		grst			gfilenamefsxml/sxml-match.ss�		E	��	
	E	��		E	*��		E	/��		E	%��			ChN]CFgfst
		gdots		grst						Ch��]!4?$@45$@45"%45$LO@	6$4
?$@"���"����glst
	�gtmp	�gtmp		"�gtmp		9�gtmp		H	dgfilenamefsxml/sxml-match.ss�
�	��	�gnamegfinite-lst?�C'�h]C		
C�hZ]6Rgitem
		gfilenamefsxml/sxml-match.ss�	�	��		Ch,]C$gitem
				C��')hD]C<gexp-lft
		gexp-rgt					CFGh8�]4LL54L545$@6�gfst
		7grst		7gtmp			7gtmp		 	7gfilenamefsxml/sxml-match.ss�	�	*��	�	*��	�	��		7	CFG��+h �]45$45�CC�gfst
		gdots		grst			gfilenamefsxml/sxml-match.ss�		E	��	
	E	��		E	*��		E	/��		E	%��			C')hD]C<gexp-lft
		gexp-rgt					CFGh@�]4L4LL554L545$@6�gfst
		<gdots		<grst			<gtmp			<gtmp		%	<gfilenamefsxml/sxml-match.ss�	�	*��	�	+��	�	*��	�	*��	�	��		<	Ch��]!45$@4?$@45")45$LLLO@	6$ 4
?$LLLLO@"���"����glst
	�gtmp	
�gtmp		�gtmp		9�gtmp		H	hgfilenamefsxml/sxml-match.ss�
�	��	�gnameg
expand-lst�ChP]";(C4�5$"
4�5$C�"���"���gvar
		Iglst		Iglst			Agt			2gfilenamefsxml/sxml-match.ss�
�	��	�	��	�	��	�	��	�	6��	�	��	�	��	&�	��	-�	5��	/�	��	6�	��	;�	 ��	A�	��	A�	��		I	gnamegmember-var?�Chy]LL6qgvar
		
gfilenamefsxml/sxml-match.ss�
�	��	
�	��		
gnamegdotted-var?�Ch8�](C4L�5$
�"����4L�5�C�glst1
		5glst2		5gfilenamefsxml/sxml-match.ss�
�	��	�	��	�	��	�	%��	�	��	�	��	�	%��	&�	��	)�	��	*�	)��	/�	6��	3�	)��	4�	��		5	gnamegmerge-pvars�C'-hz]L4L54L56rga
		grst		gfilenamefsxml/sxml-match.ss�	�	"��	�	"��	�	��			C2hz]L4L54L56rga
		grst		gfilenamefsxml/sxml-match.ss�	�	"��	�	"��	�	��			C�h|]L4L54L56tgfst
		grst		gfilenamefsxml/sxml-match.ss�	�	"��	�	"��	�	��			Chh�]45$LLLO@45$LLLO@45$
LLO@C�gy
		bgtmp		bgtmp		+	bgtmp		K	bgfilenamefsxml/sxml-match.ss�
�	��	a�	��		bgnamegwalk-quasi-body�C'6hY]CQgrst
		gfilenamefsxml/sxml-match.ss�	�	!��		C:hY]L6Qgrst
		gfilenamefsxml/sxml-match.ss�	�	&��		C�h|]L4L54L56tgfst
		grst		gfilenamefsxml/sxml-match.ss�	�	 ��	�	 ��	�	��			C�hl]45$L6Cdgitem
		gfilenamefsxml/sxml-match.ss�	�	��	
�	��	�	��		ChZ]CRgitem
		gfilenamefsxml/sxml-match.ss�	�	��		Ch��])OLLQ45$@45$O@45$
LLO@4	LO?$
@C�gx
	�gwalk-quasi-body	�gtmp		�gtmp		5�gtmp		Q�gtmp		k�gfilenamefsxml/sxml-match.ss�
�	����	��	�gnamegselect-dotted-vars�C�hW]6Ogx
		gfilenamefsxml/sxml-match.ss�	�	��		Ch)]C!gx
				C'fNPh*]L��C"gdv
				CFGhH�]4L54?$@45$O@6�gitem
		Hgdvars			Hgtmp			Hgtmp		,	Hgfilenamefsxml/sxml-match.ss�
�	��	�	��		�	��		Hgnamegexpand-dotted-item�C'WhY]LL6Qgrst
		gfilenamefsxml/sxml-match.ss�	�	&��		CZdhs]	4LL5Ckgitem
		gtmp		gfilenamefsxml/sxml-match.ss�	�	0��	�	��		Cgohs]	4LL5Ckgitem
		gtmp		gfilenamefsxml/sxml-match.ss�	�	0��	�	��		Cp��')hN]�CFgexpanded-fst
		gexpanded-rst					CFGh8�]4L54L545$@6�gfst
		5grst		5gtmp			5gtmp			5gfilenamefsxml/sxml-match.ss�	�	/��	
�	/��	�	��		5	C��+h �]45$45�CC�gitem
		gdots		grst			gfilenamefsxml/sxml-match.ss�		E	��	
	E	��		E	*��		E	/��		E	%��			Cx')�hO]�CGg
expanded-item
		
gexpanded-rst		
		
	CFGhH�]4L4LL554L545$@6�gitem
		Agdots		Agrst			Agtmp			Agtmp		*	Agfilenamefsxml/sxml-match.ss�	�	0��	�	1��	�	0��	�	/��	�	��		A	C��+h �]45$45�CC�gitem
		gdots		grst			gfilenamefsxml/sxml-match.ss�		E	��	
	E	��		E	*��		E	/��		E	%��			C')�hO]�CGg
expanded-item
		
gexpanded-rst		
		
	CFGh@�]4L4LL554L545$@6�gitem
		<gdots		<grst			<gtmp			<gtmp		%	<gfilenamefsxml/sxml-match.ss�	�	0��	�	1��	�	0��	�	/��	�	��		<	Ch��]145$
LO@45$
LLO@45$
LLO@45"X4	5"4
5$LO@C$ 4?$
LLLLO@"���"���$ 4?$LLLLO@"���"��~�gx
	�gtmp	�gtmp		)�gtmp		G�gtmp		e�gtmp		t�gtmp	��gfilenamefsxml/sxml-match.ss�
�	��	�gnamegexpand-quasiquote-body�C')h�]
4L5C�g
quasiquote
		gterm		gtmp				gfilenamefsxml/sxml-match.ss�	�	B��		�	%��			CY��h0�]	45$LO@L6�gx
		.gtmp		.gfilenamefsxml/sxml-match.ss�
�	��	#�	1��	.	B	��		.gnamegprocess-quasiquote�C'�h+]LC#grst
				C�hY]LL6Qgrst
		gfilenamefsxml/sxml-match.ss�		$��		C�')hD]�C<gexp-lft
		gexp-rgt					CFG�hD]C<gexp-lft
		gexp-rgt					Ch��]4LL5$74LL54LL545$@64LL54L545$@6�gfst
		ygrst		ygtmp		"	Dgtmp		-	Dgtmp		W	ygtmp		b	ygfilenamefsxml/sxml-match.ss�		!��	
	��		8��		8��	"	!��	E	8��	N	8��	W	!��			y	Ch��]bOOOOOOO		O
QLQQQQQL	
Q	L	Q
4
5$O@4

5$

O@4
5

$LO
@C�gaction
	�gdotted-vars	�gfinite-lst?		R�g
expand-lst		R�gmember-var?		R�gdotted-var?		R�gmerge-pvars		R�gselect-dotted-vars		R�gexpand-dotted-item		R�gexpand-quasiquote-body			R�gprocess-quasiquote	
	R�gtmp	��gtmp	��gtmp	
��gfilenamefsxml/sxml-match.ss�
�	��	�	gnamegprocess-output-action�C'��FG�hl]6dgtag
		gitems		gfilenamefsxml/sxml-match.ss�	,	��			C�'���������	hH`]LCXgx
		Bgbx		Bgbody			Bgfail-to			B		B	CFGh�Q]:4L5�4LLLLLLLL>
GLL45$4O?"
45DIgtag
		|gitems		|gbody-exp		
	|gtests		+	|gnew-pvar-lst		+	|g
new-cata-defs		+	|gnew-dotted-vars		+	|gtmp		A	tgtmp		L	q	gfilenamefsxml/sxml-match.ss�	-	&��	
-	<��	-	&��	
-	!��	
-	��	/	!��	..	��	A9	��	|9	��
		|	C�h�]6|gtag
		g
attr-items		gitems			gfilenamefsxml/sxml-match.ss�		��			C�'� 
hPp]L	Chgx
		Ngax		Ngbx			Ngbody			Ngfail-to			N		N	CFGh��]C4L5�4L5�4LLLLLLLL>GLL	4	5

$4O
?"
4	5
	D�gtag
	�g
attr-items	�gitems		�gattr-exp		�gbody-exp		�gtests		<�gnew-pvar-lst		<�g
new-cata-defs		<�gnew-dotted-vars		<�gtmp			T�gtmp	
	_�gfilenamefsxml/sxml-match.ss�		&��	
	<��		&��	
	!��		&��		<��		&��		!��		��		!��	(	4��	;	!��	?	��	T	���	��	�	C
h�L,	345	"L45
"	6
$*4
?$LO	
@"���"���	$*4	?$	LO		@"���"���Dgele
	�gexp	�gnextp		�gfail-k		�gpvar-lst		�gdepth		�gcata-fun		�g	cata-defs		�gdotted-vars		�gtmp			�gtmp	
		agfilenamefsxml/sxml-match.ss�
	��	�		gnamegcompile-element-pat�C'7@DGIKMOPh G]L	LLLLLLLLL6
?gfilenamefsxml/sxml-match.ss�	F	��		
CFG�+QRSThH�]45$64545$C45$C45$C6C�gatag
		Egliteral		Egrst			Egx			Cgfilenamefsxml/sxml-match.ss�	+	��	
+	��		H	��		H	��		I	��	!	I	��	"	I	��	$	J	��	.	I	��	/	J	��	1	K	��	;	I	��	<	K	��	C	L	��		E	C'Ukmnopruh@Q]LLCIgax
		?gbody		?gfail-to			?		?	CFGhx4]34LL
L	LL�LLLLLLL>GL	L45$4O?"
45D,gatag
		wgliteral		wgrst			wgtests		&	wgnew-pvar-lst		&	wg
new-cata-defs		&	wgnew-dotted-vars		&	wgtmp		:	ogtmp		E	l	gfilenamefsxml/sxml-match.ss�	-	��	1	2��	%-	��	),	��	:9	��	w9	��		w	C�h�]45$6C�gatag
		gi		grst			gfilenamefsxml/sxml-match.ss�	&	��	
&	��	&	2��			CY��h �]L6�gatag
		gi		grst			gsub				gfilenamefsxml/sxml-match.ss�		'	��	'	*��		B	��			C�hz]6rgatag
		gi		grst			gfilenamefsxml/sxml-match.ss�	!	��			C�Y��h �]L6�gatag
		gi		grst			gsub				gfilenamefsxml/sxml-match.ss�		"	��	"	*��		B	��			C�h�]45$6C�gatag
		gvar		grst			gfilenamefsxml/sxml-match.ss�		��	
	��		2��			C'U������h@Q]LL�CIgax
		9gbody		9gfail-to			9		9	CFGh�9]34LLL
L	L�LL4LL5LLLL>GL
L45$4O?"
45D1gatag
		~gvar		~grst			~gtests		-	~gnew-pvar-lst		-	~g
new-cata-defs		-	~gnew-dotted-vars		-	~gtmp		A	vgtmp		L	s	gfilenamefsxml/sxml-match.ss�			��	
	2��		2��	,		��	0	��	A	��	~	��		~	C�h}]6ugatag
		gcvar		grst			gfilenamefsxml/sxml-match.ss�	�	��			C�Y��'�������h@a]L�CYgax
		9gct		9gbody			9gfail-to			9		9	CFG
h��];45�L
$"4L>"G4LLLLL�LL4LL5L	L
L	L
L
�L>GLL45		$4O	?"
4	5	D�gatag
	�gcvar	�grst		�gctemp		
�gtests		l�gnew-pvar-lst		l�g
new-cata-defs		l�gnew-dotted-vars		l�gtmp	��gtmp		��
gfilenamefsxml/sxml-match.ss�	�	#��	
�	��	
�	��	�	��		B	��	�	0��	-	B	��	6�	!��	E�	4��	J�	4��	a	e	��	d	e	��	k�	!��	o�	����	����	��	�	C�h�]6�gatag
		gcata		gcvar			grst			gfilenamefsxml/sxml-match.ss�	�	��			C�'�������h@a]L�CYgax
		9gct		9gbody			9gfail-to			9		9	CFGh��]<45�4LLL
L	L�LL4LL5LLLL�L>GL
L	4	5

$4O
?"
4	5
	D�gatag
	�gcata	�gcvar		�grst		�gctemp		
�gtests		F�gnew-pvar-lst		F�g
new-cata-defs		F�gnew-dotted-vars		F�gtmp			\�gtmp	
	g�gfilenamefsxml/sxml-match.ss�	�	#��	
�	��	
�	��	�	!��	�	4��	$�	4��	;	e	��	>	e	��	E�	!��	I�	��	\�	����	��
	�	C�h�]45$6C�gatag
		gvar		gdefault			grst			gfilenamefsxml/sxml-match.ss�	�	��	
�	��	�	2��			C')�����h8<]LLLC4gax
		8gbody		8		8	CFGh�N]44LLL
L	L�LL4LL5LLLL>GL
45		$4O	?"
45	DFgatag
		~gvar		~gdefault			~grst			~gtests		-	~gnew-pvar-lst		-	~g
new-cata-defs		-	~gnew-dotted-vars		-	~gtmp		?	vgtmp			J	s
gfilenamefsxml/sxml-match.ss�	�	��	�	2��	�	2��	,�	��	0�	��	?�	��	~�	��		~	C�h�]6�gatag
		gcvar		gdefault			grst			gfilenamefsxml/sxml-match.ss�	�	��			C�Y��'Uh8L]LLCDgax
		8gct		8gbody			8		8	CFG
h��]<45�L
$"4L>"G4LLLLL�LL4LL5L	L
L	L
L
�L>GL	4	5

$4O
?"
4		5
	D�gatag
	�gcvar	�gdefault		�grst		�gctemp		
�gtests		l�gnew-pvar-lst		l�g
new-cata-defs		l�gnew-dotted-vars		l�gtmp		��gtmp	
��gfilenamefsxml/sxml-match.ss�	�	#��	
�	��	
�	��	�	��		B	��	�	0��	-	B	��	6�	!��	E�	4��	J�	4��	a	e	��	d	e	��	k�	!��	o�	����	����	��	�	C�h�]6�gatag
		gcata		gcvar			gdefault			grst			gfilenamefsxml/sxml-match.ss�	h	��			C�'U789:;=h8L]LLCDgax
		8gct		8gbody			8		8	CFGh��]=45�4LLL
L	L�LL4LL5LLLL�L>G	L

4
5$4O?"
4
5
	D�gatag
	�gcata	�gcvar		�gdefault		�grst		�gctemp		
�gtests		F�gnew-pvar-lst		F�g
new-cata-defs		F�gnew-dotted-vars			F�gtmp	
	Z�gtmp		e�gfilenamefsxml/sxml-match.ss�	i	#��	
i	��	
i	��	k	!��	o	4��	$r	4��	;	e	��	>	e	��	Ek	!��	Ij	��	Z{	���{	��
	�	C�hY]6Qgvar
		gfilenamefsxml/sxml-match.ss�	S	��		C'UPQRh W]LCOgax
		 g
matched-attrs		 gbody			 		 	CFGhx]14LLL
L	L4LL5LLLL>
GLL45$4O?"
45Dgvar
		tgtests	%	tgnew-pvar-lst		%	tg
new-cata-defs		%	tgnew-dotted-vars		%	tgtmp		9	lgtmp		D	igfilenamefsxml/sxml-match.ss�	U	��	Z	2��	$U	��	(T	��	9_	��	t_	��		tC"hC,345"�45
"`45"45"�45"}45"045"�4	5"�4
5"4
5"645$
	LO
@
6$04?$!
	LO@"���"���$4?$LO@"��a"��]$4?$LO@"��."��*$24?$#
	LLO
@"���"���$44?$%LL
L	O@"���"���$24?$#
	LLO
@"��K"��G$24?$#
	LLO
@"��"���$44?$%LL
L	O@"���"���
$24
?$#
	LLO

@"��h"��d$24 ?$#!
	LLO
@"��"��;gattr-lst
	�gbody-lst	�gattr-exp		�gbody-exp		�gattr-key-lst		�gnextp		�gfail-k		�gpvar-lst		�gdepth		�gcata-fun			�g	cata-defs	
	�gdotted-vars		�gtmp		�gtmp	
	�gtmp		-�gtmp		<Fgtmp		K
gtmp		Z�gtmp		i�gtmp		xTgtmp	�0gtmp	�gtmp	��gfilenamefsxml/sxml-match.ss�
P	��	�	gnamegcompile-attr-list�C''UlnhP]CHgx
		gbody		gfail-to						CFGh`�]04LLLL>GLL45$4?"
45D�g
next-tests
		[gnew-pvar-lst		[g
new-cata-defs			[gnew-dotted-vars			[gtmp		%	Sgtmp		0	Pgfilenamefsxml/sxml-match.ss�	G	��	F	��	%H	��	[H	��		[
C���'U�hK]CCgct
		gx		gbody						CFGY���h��]:L$y45�4L4LL5LL�L>GL45$4?"
45D	L
6�gcata
	�gcvar	�gctemp		�g
next-tests		7�gnew-pvar-lst		7�g
new-cata-defs		7�gnew-dotted-vars		7�gtmp		K	ygtmp		V	v	gfilenamefsxml/sxml-match.ss�	c	��		g	'��	g	"��	g	��	i	%��	i	,��	,	e	��	/	e	��	6i	%��	:h	��	Kp	!���p	���d	.���	B	��	�	C��Y��'U�hK]CCgct
		gx		gbody						CFG
h�|]945�L$"4L>"G4L4LL5LLL�L>GL45$4?"
4	5Dtgcvar
	�gctemp	
�g
next-tests		W�gnew-pvar-lst		W�g
new-cata-defs		W�gnew-dotted-vars		W�gtmp		k�gtmp		v�gfilenamefsxml/sxml-match.ss�	x	#��	
x	��	
x	��	y	��		B	��	z	0��	-	B	��	6~	!��	9~	(��	L	e	��	O	e	��	V~	!��	Z}	��	k�	����	��	�C��h �]LLLLLLL6
�gnew-exp
		gnew-pvar-lst		g
new-cata-defs			gnew-dotted-vars			gfilenamefsxml/sxml-match.ss�
�	��	�	!��			Ch0k]L
L	LLLLLLOLLLLLL6	cgitem
		)grst		)gfilenamefsxml/sxml-match.ss�	)�	��		)	CFG��+h �]45$45�CC�gitem
		gdots		grst			gfilenamefsxml/sxml-match.ss�		E	��	
	E	��		E	*��		E	/��		E	%��			C�'f��h+]��C#gnpv
				CFGh8�]45$4?"
45D�gnew-pvar-lst
		3g
new-cata-defs		3gnew-dotted-vars			3gtmp			+gfilenamefsxml/sxml-match.ss�
�	/��	3�	1��		3	C��'f���h+]���C#gnpv
				CFGh8�]45$4?"
45D�gnew-exp
		3gnew-pvar-lst		3g
new-cata-defs			3gnew-dotted-vars			3gtmp			+gfilenamefsxml/sxml-match.ss�
�	*��	3�	,��		3	C�	��.hV]CNgi
		gfilenamefsxml/sxml-match.ss�
�	0��		C4hV]CNgi
		gfilenamefsxml/sxml-match.ss�
�	0��		C:hV]CNgi
		gfilenamefsxml/sxml-match.ss�
�	0��		C')Jh:]C2gxa
		gxb					CFGh0�]45$@6�ga
		+gb		+gtmp				+gtmp			+gfilenamefsxml/sxml-match.ss�
�	0��		�	2��		+	C'Kgijmopqlrskuvxy{}��h ,3	
���
�	
	��	4
5�
��
45�	45�
�	4
5�
45Cgx
	gfail-to	g	tail-body		g	item-body		g
final-body		gipv		ggpv		gtpv		g	item-void		g	tail-void			g	item-null	
	g	item-cons				CFGY��h;]{L$�4LLL>
G4LL�L
L>	G
	4L4L54	L544L	5L5>G
45LL	4	
54	54	54	
545$4?"
45
DL63gitem
	gdots	grst		g
t-cd60791-446		!g
t-cd60791-447		!g
t-cd60791-448		!g
t-cd60791-449		!g
t-cd60791-44a		Fg
t-cd60791-44b		Fg
t-cd60791-44c			Fg
t-cd60791-44d	
	Fgfinal-tests	�gfinal-pvar-lst	�gfinal-cata-defs	
�gfinal-dotted-vars	�gtemp-item-pvar-lst	�gtmp	��gtmp	��gfilenamefsxml/sxml-match.ss�	�	��		�	��	�	/��	�	/��	�	/��	 �	��	$�	��	-�	��	8�	*��	;�	*��	>�	*��	E�	��	I�	��	R�	��	U�	%��	`�	%��	k�	%��	p�	-��	|�	%����	����	����	,����	����	+����	+����	+����	+����	���	��
�	.��	B	�� 		C�hY]6Qgvar
		gfilenamefsxml/sxml-match.ss�	U	��		C')�h;]LC3gx
		gbody					CFGY���
h�+]1L$c4L4LL5LL>GL45$4O?"
45DL	6#gvar
		{g
next-tests		kgnew-pvar-lst			kg
new-cata-defs			kgnew-dotted-vars			kgtmp		0	cgtmp		;	`gfilenamefsxml/sxml-match.ss�	V	��		[	#��	[	*��	[	#��	!Z	��	0\	��	k\	��	pW	.��	{	B	��
		{ChH�,
345

$	O
@45"�45$LL	O	@45

$L	LO	
@45"94	5$
	LLO@6$24
?$#LL	LLO
@"���"���$(4?$LL	O@"���"���glst
	Hgexp	Hgnextp		Hgfail-k		Hgellipsis-allowed?		Hgpvar-lst		Hgdepth		Hgcata-fun		Hg	cata-defs		Hgdotted-vars			Hgtmp	
	Hgtmp		4Hgtmp		Cgtmp	
	ogtmp	�gtmp	��gfilenamefsxml/sxml-match.ss�
Q	��	H	
gnamegcompile-item-list�C'���'������h8p]Chgx
		6gnx		6gct			6gbody			6gfail-to			6		6	CFGh��]B4L5�45�4L4LL5LL�L>GLL45		$4	?"
45	D�gcata
	�gcvar	�gnew-exp		�gctemp		�g
next-tests		@�gnew-pvar-lst		@�g
new-cata-defs		@�gnew-dotted-vars		@�gtmp		X�gtmp			c�
gfilenamefsxml/sxml-match.ss�	/	%��	
/	;��	/	%��	
/	 ��	0	#��	0	��	/	��	2	!��	"3	(��	5	e	��	8	e	��	?2	!��	C1	��	X:	���:	��	�	C��Y��'������h8p]Chgx
		6gnx		6gct			6gbody			6gfail-to			6		6	CFG
h��]A4L5�45�L	$"4L>"G4L4LL5LL	L�L>GLL45$4?"
4	5D�gcvar
	�gnew-exp	�gctemp		�g
next-tests		f�gnew-pvar-lst		f�g
new-cata-defs		f�gnew-dotted-vars		f�gtmp		~�gtmp	��	gfilenamefsxml/sxml-match.ss�	I	%��	
I	;��	I	%��	
I	 ��	J	#��	J	��	I	��	"K	��	'	B	��	,L	0��	:	B	��	CP	!��	HQ	(��	[	e	��	^	e	��	eP	!��	iO	��	~X	���X	��	�C�fY��h_]L6Wgi
		gfilenamefsxml/sxml-match.ss�	�	*��		B	��		C�hW]6Ogi
		gfilenamefsxml/sxml-match.ss�	�	��		CY��h_]L6Wgi
		gfilenamefsxml/sxml-match.ss�	�	*��		B	��		C+QRSTh8�]	4545$C45$C45$C6�gliteral
		8gx			8gfilenamefsxml/sxml-match.ss�		H	��			H	��		I	��		I	��		I	��		J	��	#	I	��	$	J	��	&	K	��	0	I	��	1	K	��	8	L	��
		8C�'��h@`]LCXgx
		=gnx		=gbody			=gfail-to			=		=	CFGhxE]94L5�4LLLL>GLL45$4O?"
45D=gliteral
		qgnew-exp	
	qg
next-tests		 	qgnew-pvar-lst		 	qg
new-cata-defs		 	qgnew-dotted-vars		 	qgtmp		6	igtmp		A	fgfilenamefsxml/sxml-match.ss�	�	%��	
�	;��	�	%��	
�	 ��	
�	��	�	!��	#�	��	6�	��	q�	��
		qCFG�hk]6cgtag
		gitem		gfilenamefsxml/sxml-match.ss�	f	��			C�'U)*h K]CCgx
		gnx		gbody						CFGh`L]34LL>GLL45$4?"
45DDg
more-pvar-lst
		]gmore-cata-defs		]gmore-dotted-vars			]g
next-tests			]gnew-pvar-lst			]g
new-cata-defs			]gnew-dotted-vars			]gtmp		'	Ugtmp		2	R	gfilenamefsxml/sxml-match.ss�
l	6��	p	F��	m	8��	't	B��	]t	:��		]	C'U<=hP]CHgx
		gbody		gfail-to						CFG	h�d]:4L5�4L�LLLOLLLLLL>	GLL45$4?"
45D\gtag
	�gitem	�gnew-exp		
�gafter-tests		;�gafter-pvar-lst		;�gafter-cata-defs		;�gafter-dotted-vars		;�gtmp		O	}gtmp		Z	z	gfilenamefsxml/sxml-match.ss�	g	%��	
g	;��	g	%��	
g	 ��	
g	��	i	!��	>h	��	O�	����	��
	�	C�hY]6Qgvar
		gfilenamefsxml/sxml-match.ss�		��		C�'�QRSTUh8`]LCXgx
		6gnx		6gbody			6gfail-to			6		6	CFGhxS]94L5�4L4LL5LL>GLL45$4O?"
45DKgvar
		xgnew-exp	
	xg
next-tests		'	xgnew-pvar-lst		'	xg
new-cata-defs		'	xgnew-dotted-vars		'	xgtmp		=	pgtmp		H	mgfilenamefsxml/sxml-match.ss�		%��	
	;��		%��	
	 ��	
	��	 	!��	 	0��	& 	!��	*	��	=!	��	x!	��		xChP�,	345	"45

$LO
@45$LLO
@45"i45

$	LO
@4
?$LO@4?$
O@6$*4?$LO	@"��g"��c	$&4	?$LO	@"���"����gitem
	Igexp	Ignextp		Igfail-k		Igpvar-lst		Igdepth		Igcata-fun		Ig	cata-defs		Igdotted-vars		Igtmp			Igtmp	
	gtmp		Hgtmp		vgtmp	
��gtmp	��gtmp	��gfilenamefsxml/sxml-match.ss�
	��	I		gnamegcompile-item�CYV�h8�](C4�L5$LL6�"����glst
		1gfilenamefsxml/sxml-match.ss�
	Y	��		Z	��		\	��		\	,��		\	��		\	��		]	1��	(	B	��	+	`	$��	1	`	��		1gnameg
check-pvar�Ch0�]
OLQ4>"G�C�gpvar
		-gpvar-lst		-g
check-pvar			-gfilenamefsxml/sxml-match.ss�
	X	��		a	��	,	b	��		-	gnamegadd-pat-var�C')h:]C2gcf
		
gct		
		
	CFG�UklhM]CEgct
		gnct		gbody						C	hxV]
�$)45$@645�4L�545$@6Ngdepth
		ugcfun		ugctemp			ugtmp			3gtmp			3g	new-ctemp		>	ugtmp		S	ugtmp		^	ugfilenamefsxml/sxml-match.ss�
	g	��		h	��	
	h	��		i	��	4	l	(��	;	l	>��	=	l	(��	>	l	#��	>	l	��	E	o	(��	J	o	:��	P	o	(��	S	m	��		u	gnamegprocess-cata-exp�C'hP]LL�6Hgfilenamefsxml/sxml-match.ss�	�	/��		�	��			
C�hs]4L5�Ckgfst
		
grst		
gfilenamefsxml/sxml-match.ss�	�	6��	�	#��		
	CFGhH�]45$
LLO@45$LO@6�gitems
		Dgtmp	
	Dgtmp		(	Dgfilenamefsxml/sxml-match.ss�
�	��		Dgnamegiter�Ch(�]	(COLQ���6�glst
		&giter		&gfilenamefsxml/sxml-match.ss�
�	��	�	��		�	��	�	��	"�	*��	#�	$��	&�	��		&gnamegcata-defs->pvar-lst�C'{�����h8�,	3	���C�gcompile-clause
		2gcata		2gcvar			2ggexp			2gaction0			2gaction			2gexp			2gcata-fun			2gfail-exp			2			2		C�'�h]C		
C����Y��hh,3	45$4?"$,���C	
L6gcompile-clause
		ggcvar		gggexp			ggaction0			ggaction			ggexp			ggcata-fun			ggfail-exp			ggtmp			'	gfilenamefsxml/sxml-match.ss�	+�	
��	\�	*��	g	B	��		g	C���h �,3���C�gcompile-clause
		gcata		gcvar			gaction0			gaction			gexp			gcata-fun			gfail-exp						C�'�h]C		
C�Y��hP�]45$4?"$���CL6�gcompile-clause
		Pgcvar		Pgaction0			Pgaction			Pgexp			Pgcata-fun			Pgfail-exp			Pgtmp			#gfilenamefsxml/sxml-match.ss�	'�	
��	E�	*��	P	B	��		P	C���Y��h�,3L6�gcompile-clause
		gi		ggexp			gaction0			gaction			gexp			gcata-fun			gfail-exp			gfilenamefsxml/sxml-match.ss�	B	&��		B	��			C�Y��h�]L6�gcompile-clause
		gi		gaction0			gaction			gexp			gcata-fun			gfail-exp			gfilenamefsxml/sxml-match.ss�	F	&��		B	��			C��FG+QRSTh8E]4545$C45$C45$C6=gcompile-clause
		8gliteral		8gaction0			8gaction			8gexp			8gcata-fun			8gfail-exp			8gx				8gfilenamefsxml/sxml-match.ss�		H	��			H	��		I	��		I	��		I	��		J	��	#	I	��	$	J	��	&	K	��	0	I	��	1	K	��	8	L	��
		8	C���h �]��C�gcompile-clause
		gliteral		gaction0			gaction			gexp			gcata-fun			gfail-exp						C+QRSTh@W,3	4545$C45$C45$C6Ogcompile-clause
		<gliteral		<ggexp			<gaction0			<gaction			<gexp			<gcata-fun			<gfail-exp			<gx		
	<	gfilenamefsxml/sxml-match.ss�		H	��	
	H	��		I	��		I	��		I	��		J	��	'	I	��	(	J	��	*	K	��	4	I	��	5	K	��	<	L	��
		<	C����h0�,3���C�gcompile-clause
		,gliteral		,ggexp			,gaction0			,gaction			,gexp			,gcata-fun			,gfail-exp			,		,	C�h�]6�gcompile-clause
		gpat		gaction0			gaction			gexp			gcata-fun			gfail-exp			gfilenamefsxml/sxml-match.ss�	O	
��			CY��h�]L6�gcompile-clause
		gpat		gaction0			gaction			gexp			gcata-fun			gfail-exp			gfilenamefsxml/sxml-match.ss�	P	&��		B	��			C�h�,36�gcompile-clause
		gpat		ggexp			gaction0			gaction			gexp			gcata-fun			gfail-exp			gfilenamefsxml/sxml-match.ss�	J	
��			CY��h�,3L6�gcompile-clause
		gpat		ggexp			gaction0			gaction			gexp			gcata-fun			gfail-exp			gfilenamefsxml/sxml-match.ss�	K	&��		B	��			C�h�,36�gcompile-clause
		gfst		grst			gaction0			gaction			gexp			gcata-fun			gfail-exp			gfilenamefsxml/sxml-match.ss�	*	
��			Ch �]4L4LLL��55D�gnew-pvar-lst
		 g
new-cata-defs		 gnew-dotted-vars			 gfilenamefsxml/sxml-match.ss�
.	0��	/	:��	0	M��	/	:��	 /	2��		 	C
'�h]C		
C)hA]LC9gfail-to
		gbody					CFG
h��,34L�LLO
45$4?">	G
	45

$O
@	6�gcompile-clause
	�gfst	�grst		�gaction0		�gaction		�gexp		�gcata-fun		�gfail-exp		�gtmp		*	Bgresult		J�gpvar-lst			J�g	cata-defs	
	J�gdotted-vars		J�gtmp		\�gtmp	
	g�gfilenamefsxml/sxml-match.ss�	,	��	 8	0��	C;	0��	D<	0��	I,	��	M+	
��	\=	��	�	C�h�,	3	6�gcompile-clause
		gfst		grst			ggexp			gaction0			gaction			gexp			gcata-fun			gfail-exp				gfilenamefsxml/sxml-match.ss�		
��				C,
')34hA]L�C9gbody
		gfail-to					CFGhX�]4L4LLL��5545$4LO?"
45D�gnew-pvar-lst
		Xg
new-cata-defs		Xgnew-dotted-vars			Xgtmp			Pgtmp		(	Mgfilenamefsxml/sxml-match.ss�
	0��		>��		Q��		>��		3��	X	2��		X	C
'�h]C		
C)@hA]LC9gfail-to
		gbody					CFG
h��,	34L�LLO
45		$4	?"	>	G
		
4
5$O@	
6�gcompile-clause
	�gfst	�grst		�ggexp		�gaction0		�gaction		�gexp		�gcata-fun		�gfail-exp		�gtmp			,	Dgresult			L�gpvar-lst	
	L�g	cata-defs		L�gdotted-vars		L�gtmp	
	^�gtmp		i�gfilenamefsxml/sxml-match.ss�		��	" 	0��	E#	0��	F$	0��	K	��	O	
��	^%	��	�		C�A+h ,345$45�CCgcompile-clause
		glst		grst			gaction0			gaction			gexp			gcata-fun			gfail-exp			gfilenamefsxml/sxml-match.ss�	�	��	�	
��	�	2��	�	8��	�	-��			CSh �]4L4LLL��55D�gnew-pvar-lst
		 g
new-cata-defs		 gnew-dotted-vars			 gfilenamefsxml/sxml-match.ss�
�	.��	�	8��	�	K��	�	8��	 �	0��		 	C
'�h]C		
C)_`ah(A]LLC9gbody
		%gfail-to		%		%	CFG
h��,34LLLO
45$4?">
G
	45

$
O
@	6�gcompile-clause
	�glst	�grst		�gaction0		�gaction		�gexp		�gcata-fun		�gfail-exp		�gtmp		(	@gresult		H�gpvar-lst			H�g	cata-defs	
	H�gdotted-vars		H�gtmp		Z�gtmp	
	e�gfilenamefsxml/sxml-match.ss�	�	��		.��	A	.��	B	.��	G�	��	K�	
��	Z	��	�	C�A+h ",	3	45$45�CCgcompile-clause
		glst		grst			ggexp			gaction0			gaction			gexp			gcata-fun			gfail-exp				gfilenamefsxml/sxml-match.ss�	�	��	�	
��	�	2��	�	8��	�	-��				Ct
')|}hE]L�C=gexp-body
		gfail-to					CFGhX�]4L4LLL��5545$4LO?"
45D�gnew-pvar-lst
		Xg
new-cata-defs		Xgnew-dotted-vars			Xgtmp			Pgtmp		(	Mgfilenamefsxml/sxml-match.ss�
�	.��	�	@��	�	S��	�	@��	�	1��	X�	0��		X	C
'�h]C		
C)���h(A]LLC9gfail-to
		%gbody		%		%	CFG
h��,	34LLLO
45		$4	?"	>
G
		
4
5$
O@	
6�gcompile-clause
	�glst	�grst		�ggexp		�gaction0		�gaction		�gexp		�gcata-fun		�gfail-exp		�gtmp			*	Bgresult			J�gpvar-lst	
	J�g	cata-defs		J�gdotted-vars		J�gtmp	
	\�gtmp		g�gfilenamefsxml/sxml-match.ss�	�	��	 �	.��	C�	.��	D�	.��	I�	��	M�	
��	\�	��	�		C�h�]6�gcompile-clause
		gvar		gaction0			gaction			gexp			gcata-fun			gfail-exp			gfilenamefsxml/sxml-match.ss�	�	
��			C�h�]���C�gcompile-clause
		gvar		gaction0			gaction			gexp			gcata-fun			gfail-exp						C�h�,36�gcompile-clause
		gvar		ggexp			gaction0			gaction			gexp			gcata-fun			gfail-exp			gfilenamefsxml/sxml-match.ss�	�	
��			C����h0�,3���C�gcompile-clause
		-gvar		-ggexp			-gaction0			-gaction			-gexp			-gcata-fun			-gfail-exp			-		-	C3h@�]�OOOOOOOO	O	QQQQ	QQQQ	Q	4
5
"s4
5$
@4
5$O@4
5
"4
5$@4
5$O@4
5"�4
5"q4
5":4
5"4
5$O@4
5$O@4
5"�4
5"e4
5"74
5"	6$4?$ @"���"���$4!?$"@"���"���$4#?$$O@"��{"��w$4%?$&O@"��H"��D$4'?$(O@"���"���$4)?$*O@"���"���$4+?$,O@"��k"��g$4-?$.O@"��4"��0
$4/
?$0
@"���"���
$41
?$2
@"��r"��n�gstx
	9gprocess-cata-defs	U9gprocess-output-action		U9gcompile-element-pat		U9gcompile-attr-list		U9gcompile-item-list		U9gcompile-item		U9gadd-pat-var		U9gprocess-cata-exp		U9gcata-defs->pvar-lst			U9gtmp	
�9gtmp	�gtmp	�gtmp	
�gtmp	��gtmp		�gtmp	%�gtmp	4�gtmp	C�gtmp	R�gtmp	a[gtmp	}[gtmp	�[gtmp	�7gtmp	�gtmp	��gfilenamefsxml/sxml-match.ss�
	>	��	
	?	��	9C5�R4"�$'���hh]����C`gdummy
		gexp		gcata-fun			gclause						C��������h8}]�����Cugdummy
		2gexp		2gcata-fun			2gclause0			2gclause			2		2	CFGh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsxml/sxml-match.ss�
_	��		9g
macro-typegsyntax-rules�gpatternsgexpgcata-fungclausegexpgcata-fungclause0gclauseg...C5�R4"$'�������h0g]����C_gdummy
		,gval		,gclause0			,gclause			,		,	CFGh(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/sxml-match.ss�
l	��		"g
macro-typegsyntax-rules�gpatternsgvalgclause0gclauseg...C5R4"�$'�	h{]���Csgdummy
		
gsyntag		
gsynform			
gbody0			
gbody			
		
	C !#h8�]���C�gdummy
		6gsyntag		6gsynform			6gpat			6gexp			6gbody0			6gbody			6		6	C*;<>A?@ABC
hP�,	3	45�����	C�gdummy
		Jgsyntag		Jgsynform			Jgpat0			Jgexp0			Jgpat			Jgexp			Jgbody0			Jgbody			J			J		CFG
hP�]45$@45$@45$@	6�gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsxml/sxml-match.ss�
s	��		Pg
macro-typegsyntax-rules�gpatternsgsyntaggsynformgbody0gbodyg...gsyntaggsynformgpatgexpgbody0gbodyg...gsyntaggsynformgpat0gexp0gpatgexpg...gbody0gbodyg...C5�R4"D$'H�'f\>A]h01]4L5LL4L5LL�����C)g	temp-name
		-		-CFGh@]4545$O@6�gsxml-match-let-help
		:gsyntag		:gsynform			:gpat			:gexp			:gbody0			:gbody			:gtmp				:gtmp			:	gfilenamefsxml/sxml-match.ss�	�	(��		�		��		:	CFGh(h]	45$@6`gstx
		"gtmp		"gfilenamefsxml/sxml-match.ss�
�	��		"C5DR4"$'Fn>Ah }]L45�����Cugsxml-match-let
		gpat		gexp			gbody0			gbody						CFGh(h]	45$O@6`gstx
		'gtmp		'gfilenamefsxml/sxml-match.ss�
�	��		'C5R4"$'�yh\]���CTgsxml-match-let*
		
gbody0		
gbody			
		
	C(�>Ah0�]L45���C�gsxml-match-let*
		*gpat0		*gexp0			*gpat			*gexp			*gbody0			*gbody			*		*	CFGh@y]45$@45$O@6qgstx
		>gtmp		>gtmp		"	>gfilenamefsxml/sxml-match.ss�
�	��		>C5RC�gm
		,gfilenamefsxml/match.scm�		
��e	1
��gfilenamefsxml/sxml-match.ss�		��$		��
�		���	(	��
�	/	���	6	��
	�x
C6PK<�ZsHA��transform.gonu�[���GOOF----LE-8-2.0l];4h�]gguile�	�	gdefine-module*�	�	�	gsxml�	g	transform�	�		gfilenameS�	
fsxml/transform.scm�	gexportsS�	gSRV:send-reply�	
gfoldts�	g
post-order�	gpre-post-order�	g
replace-range�	
�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	glet*-values�	gmacro�	g$sc-dispatch�	�	�	g_�	gany�	��	 g
syntax->datum�	! �	" �	#g
datum->syntax�	$#�	%#�	&gbegin�	'glet�	(gcall-with-values�	)glambda�	*gsyntax-violation�	+*�	,*�	-f-source expression failed to match any pattern�	.g
procedure?�	/gdisplay�	0gassq�	1g	*default*�	2g*text*�	3g
*preorder*�	4g*macro*�	5gappend�	6gmap�	7gerror�	8fUnknown binding for �	9f and no default�	:greverse�C5h��]4	
54>"G4"%&'()hX�]
L�L���$1�(�CCC�gvars
		Wginitializer		Wgcont			Wgfilenamefsxml/transform.scm�
	V	��		X	��		Y	��	
	Y	��		X	��		W		��		[	��		Z	��		]	��		Z	��		^	
��	 	^	��	%	^	
��	0	`	��	G	\	
��		W	Ch(�-13(�CO�@�gbindings
			#gbody			#gfilenamefsxml/transform.scm�
	S
��		T	��		T	��		T	��	!	b	��	#	U	��			#
Chf]	45L4?6^gargs
		gv			gfilenamefsxml/transform.scm�		S
��		C,-h(d]	45$O@6\gy
		'gtmp		'gfilenamefsxml/transform.scm�
	S
��		'C5R./h��](C�$��(
�"����&�"�����$�4L�5"���4�5$4�>"G�"���4�>"G�"��c�"��V�g	fragments
	�gresult	�gfilenamefsxml/transform.scm�
	n	��		o	��		q	��		o	��		r	��		o	��		r	%��	&	r	��	*	s	��	.	o	��	1	s	&��	:	s	 ��	=	t	��	>	t	��	B	o	��	E	u	��	F	u	��	K	u	$��	O	u	��	W	u	��	X	v	��	]	v	��	_	v	��	c	o	��	d	w	��	g	w		��	l	w	��	w	x	���	x	���	z	���	z	���	z	���	{	���	{	���	q	#���	q	��%	�	gnamegloop�Ch �-13OQ6�g	fragments
			gloop		gfilenamefsxml/transform.scm�
	d
��		n	��			


gnamegSRV:send-reply�g
documentationf
Output the @var{fragments} to the current output port.

The fragments are a list of strings, characters, numbers, thunks,
@code{#f}, @code{#t} -- and other fragments. The function traverses the
tree depth-first, writes out strings and characters, executes thunks,
and ignores @code{#f} and @code{'()}. The function returns @code{#t} if
anything was written at all; otherwise the result is @code{#f} If
@code{#t} occurs among the fragments, it is not written out but causes
the result of @code{SRV:send-reply} to be @code{#t}.�CR012.034567892h��](C�$���$��4L5$"L$_��$F��&��@��&4��?"�����4�4��L55@�4L�5@	6L6L$L
6
	6�gtree
	�gtrigger	�gt		'	:gbinding		:�gfilenamefsxml/transform.scm�
�	��	�	��		�	��	
�	��	�	��	�	��	�	��	�	��	�	��	�	
��	�	��	'�	��	:�	
��	B�	��	E�	��	F�	��	J�	��	L�	��	O�	 ��	T�	��	W�	��	\�	��	^�	��	a�	��	f�	��	g�	��	j�	��	o�	��	u�	��	x�	��	|�	����	"����	-����	5����	-����	����	����	����	-����	7����	-����	����	����	6����	����	$����	����	����	����	����	����	4����	��6	�gnamegloop�Chp�]"4545$"$4�5$�"��"OQ6�gtree
		kgbindings		kgdefault-binding			kgt			)gtext-binding		)	kgtext-handler		M	kgloop		Z	kgfilenamefsxml/transform.scm�
�
��	�	��	�	 ��	�	��	�	��	�	��	�	!��	�	��	�	��	)�	��	1�	��	2�	��	7�	��	9�	��	=�	
��	@�	��	G�	$��	M�	��	Z�	��		k	gnamegpre-post-order�CRiR
h`l](C�$C"+(
64�5�"���45�"���6dgfdown
		]gfup		]gfhere			]gseed			]gtree			]gkid-seed			Agkids			Agfilenamefsxml/transform.scm�
�
��	�	��	�		��	�	��	�	��	�	��	&�	
��	'�	��	4�	1��	6�	��	9�	��	A�	
��	A�	��	B�	��	M�	2��	U�	��	]�	��		]	gnamegfoldts�C
R:5hP�]+(45D�$�4L5$�4455"����$K��4L$�">G�$
��"�"��g��"��S4L5$4�5"��-�$c��4L$�">G�$"�$$
��"�""����"���~gforest
	Pgkeep?	Pg
new-forest		Pgnode		Pgt		%�gnode?		T�gnew-kids		p�gkeep?		p�gt	�Pgnode?	�?gnew-kids	�?gkeep?	�?gfilenamefsxml/transform.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	
��		��	%	��	0	��	2	��	5	 ��	?	��	I	��	L	��	P	��	S		$��	T		��	T	��	W	��	_	��	b	#��	j	7��	o	��	z	���	���	(���	"���
	���	���	���	)���	���	���	���	���	.���	���	���	���	���	$���	���	���	���	���	#���	7���	��	��	��	%��	��  	��# 	,��& 	&��/	��?	��B	��P	��=	P	gnamegloop�Ch0]OQ4>GC�gbeg-pred
		,gend-pred		,gforest			,gloop			,g
new-forest		"	,gkeep?		"	,gfilenamefsxml/transform.scm�
�
��	%	$��	%	4��	!%	$��	%%	��		,	gnameg
replace-range�CRCzgm
		(gfilenamefsxml/transform.scm�		H
���	d
����
����
����
����
��	�
C6PK<�Z���.+.+xpath.gonu�[���GOOF----LE-8-2.0+]@4h�]gguile�	�	gdefine-module*�	�	�	gsxml�	gxpath�	�		gfilenameS�	
fsxml/xpath.scm�	gimportsS�	gice-9�	
gpretty-print�	
�	�	�	gexportsS�	gnodeset?�	gnode-typeof?�	gnode-eq?�	gnode-equal?�	gnode-pos�	gfilter�	g
take-until�	g
take-after�	g	map-union�	gnode-reverse�	g
node-trace�	gselect-kids�	g	node-self�	g	node-join�	 gnode-reduce�	!gnode-or�	"gnode-closure�	#gnode-parent�	$gsxpath�	% !"#$�	&gset-current-module�	'&�	(&�	)g*�	*gmemq�	+g@�	,g*PI*�	-+,�	.g*any*�	/g*text*�	0gstring?�	1glength�	2gerror�	3fyikes!�	4greverse�	5gappend�	6gcons�	7gdisplay�	8f
-->�	9f :�	:g
procedure?�	;g//�	<gequal?�	=geq?�	>gnumber?�	?fInvalid path step: �C5h�%�]4	
%54(>"Gh(�]	�$	���"$C�C�gx
		"gt		"gfilenamefsxml/xpath.scm�
	o
��		p	��			p	��		p	#��	
	p	��		p	��		p	��	!	p	.��			"gnamegnodeset?�CR)*-./0hP�]L�$�$4�5�CCL�$CL�$6�$L��CC�gnode
		Jgfilenamefsxml/xpath.scm�
�	��	�	��	�	��	�	��	�	"��	�	(��	�	"��	�	��	)�	��	:�	��	=�	��	A�	��	F�	#��	G�	��		JChm]OCegcrit
		
gfilenamefsxml/xpath.scm�
�
��		
gnamegnode-typeof?�CRh^]L�CVgnode
		gfilenamefsxml/xpath.scm�
�	��	�	��		Chj]OCbgother
		
gfilenamefsxml/xpath.scm�
�
��		
gnamegnode-eq?�CRh^]L�CVgnode
		gfilenamefsxml/xpath.scm�
�	��	�	��		Chm]OCegother
		
gfilenamefsxml/xpath.scm�
�
��		
gnamegnode-equal?�CR123hx5]	45$e(CL&�CL
�$4L�45�56L
�$"4>"G4L�5�6C-gnodeset
		tgt	D	egfilenamefsxml/xpath.scm�
�	��	�	��	
�	��	 �	��	#�	��	'�	��	,�	��	-�	��	2�	��	3�	&��	:�	��	<�	��	@�	��	C�	
��	D�	��	Q�	��	U�	��	Z�	��	f�	��	k�	��	m�	��	p�	��	r�	��	s�	��		tChf]OC^gn
		
gfilenamefsxml/xpath.scm�
�
��		
gnamegnode-pos�CR4hh9]"?(64L�5�$("��""���45$""���1glst
		dglst		Egres			Egpred-result			Egfilenamefsxml/xpath.scm�
�	��	�	��	�	��	�	
��	�	��	�	$��	�	��	�	
��	�	��	%�	��	+�	��	4�	��	7�	��	E�	��	E�	��	F�	��	P�	��	[�	+��	\�	=��	d�	��		dChh]OC`gpred?
		
gfilenamefsxml/xpath.scm�
�
��		
gnamegfilter�CRh@�]	(C4L�5"
�4L�5�C$("���C"����glst
		<gpred-result		<gfilenamefsxml/xpath.scm�
�	��	�	��	�	��	�	$��	�	��	�	
��	�	��	�	 ��	"�	&��	$�	 ��	%�	��	&�	��	2�	��	7�	��		<gnamegloop�Ch0�]	OLQ45$"6�glst
		,gloop		,gfilenamefsxml/xpath.scm�
�	��	�	��	�	��	�	��	*�	+��	,�	��		,Chl]OCdgpred?
		
gfilenamefsxml/xpath.scm�
�
��		
gnameg
take-until�CRh`
]"8(C4L�5"	�"���$("����C"���45$""���glst
		Zglst		>gpred-result			>gfilenamefsxml/xpath.scm�
�	��	�	��	�	��	�	��	�	$��	�	��	�	
��	 �	��	&�	��	&�	��	2�	��	9�	��	>�	��	?�	��	I�	��	T�	+��	Z�	��		ZChl]OCdgpred?
		
gfilenamefsxml/xpath.scm�
�
��		
gnameg
take-after�CR56h8�]
(C4�545$"4�56�gproc
		6glst		6gproc-res			6gfilenamefsxml/xpath.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	
��	 �		��	+�	��	2�	"��	4�	��	6�	��
		6	gnameg	map-union�CR4h �]45$6C�gnode-or-nodeset
		gfilenamefsxml/xpath.scm�
	��		
��	
	��		��		)��		gnamegnode-reverse�CR789
hP�]4>"G4L>"G4>"G4>"GC�gnode-or-nodeset
		Mgfilenamefsxml/xpath.scm�
	��		��		
��		��		��	'	��	+	
��	0	��	9	��
		MChl]OCdgtitle
		
gfilenamefsxml/xpath.scm�

��		
gnameg
node-trace�CRh8�](C�$!��$4L5�64L56C�gnode
		5gfilenamefsxml/xpath.scm�
3	��	4	��	6	��	4	��	7	��	7	��	4	��	8	��	$8	��	&8	��	)9	��	39	��	46	��		5Chr]OCjg
test-pred?
		
gfilenamefsxml/xpath.scm�
2
��		
gnamegselect-kids�CRiRhH�]"5(C45$4�5"4�5�"���L"����gnodeset
		Ggnodeset		;g	selectors			;gfilenamefsxml/xpath.scm�
I	��	J	��	K	��	M	��	M	��	N	��	 N	��	$N	��	)O	��	,O	��	0O	��	3P	��	;L	
��	;J	��		GChq-13OCig	selectors
			gfilenamefsxml/xpath.scm�
H
��			


gnameg	node-join�CRh0�]"(C4�5�"���L"����gnodeset
		.gnodeset		"g
converters			"gfilenamefsxml/xpath.scm�
]	��	^	��	_	��	`	��	`	��	`	��	`	+��	"`	
��	"^	��
		.Cht-13OClg
converters
			gfilenamefsxml/xpath.scm�
\
��			


gnamegnode-reduce�C R5hH]"5(C44�5$"5�"���L"���gnode-or-nodeset
		Fgresult		;g
converters			;gt			.gfilenamefsxml/xpath.scm�
p	��	q	��	r	��	s	��	s	#��	s	$��	s	#��	s	��	+s	F��	0s	��	3t	��	;s	
��	;q	��	<q	��	Fq	��		FChp-13OChg
converters
			gfilenamefsxml/xpath.scm�
o
��			


gnamegnode-or�C!R)5hH]"5(C444555444L555"���"���gnode
		Fgparent		;gresult			;gfilenamefsxml/xpath.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	,��	�	��	�	��	 �	��	!�	��	&�	��	'�	��	1�	��	3�	��	;�	
��	;�	��	>�	%��	F�	��		FChs]OCkg
test-pred?
		
gfilenamefsxml/xpath.scm�
�
��		
gnamegnode-closure�C"R#! )+"hx�]	45$
4L564444554	4
55544	4554	4
55554454
55L6~gnode
		rgpred	Y	rgfilenamefsxml/xpath.scm�
�	��	�	��	
�	��	�	#��	�	��	�	��	�	��	!�	��	$�	��	(�	*��	*�	��	,�	��	-�	��	0�	��	8�	��	:�	��	;�	��	>�	��	A�	��	E�	,��	G�	��	I�	��	J�	��	M�	��	U�	��	W�	��	Y�	��	Y�	��	\�	��	_�	��	f�	��	n�	��	r�	
��"		rChp]OChgrootnode
		
gfilenamefsxml/xpath.scm�
�
��		
gnamegnode-parent�C#R$:;56".<=>2?h��](C45$
4564�5$4�5�"����&4445$"444	
5555�"�����$444	�555�"��^��$���&444
��?55�"��.��&444��?55�"��"T(
�"���4�5$44�55�"���444�555�"������$444	��555"4L��5��"��u�6�gnodeset
	�gpath	�gnodeset	Tg
reducing-path	Tgfilenamefsxml/xpath.scm�
�	��	�	��	�	��	�	��	�	��	#�	��	$�	��	)�	��	+�	��	/�	��	0�	��	3�	
��	7�	��	:�	!��	B�	��	D�	��	G�	��	K�	��	L�	��	M�	��	W�	��	b�	��	c�		��	f�	��	j�	%��	l�	��	n�		��	r�	��	t�	��	w�	��	�	����	����	����	����	����	
����	����	(����	����	
����	����	����	����	����	����	����	#����	+����	����	����	
����	����	-����	����	
����	����	����	����	#����	(����	����	����	
����	����	*����	����	
����	����	����	���	���	���	.���	 ���	
���	���	
���	�� �	��!�	��&�	��(�	��,�	��/�	��7�	
��8�	��9�	��<�	��A�	$��C�	��E�	��I�	��L�	��T�	
��T�	��W�	"��Y�	��]�	��^�	��_�	��b�	'��g�	5��j�	'��l�	��p�	��u�	��|�	'���	����	#����	����	
����	#����	��r	�	gnamegloop�Chr]	OQL6jgnodeset
		gloop	
	gfilenamefsxml/xpath.scm�
�	��	
�	��		Chg]OC_gpath
		
gfilenamefsxml/xpath.scm�
�
��		
gnamegsxpath�C$RC�gm
		,gfilenamefsxml/xpath.scm�		d
��	o
����
����
����
��)�
��	k�
���
���
��_�
��0
���
��u2
��|A
��lH
��\
��o
��6�
����
��%��
��	%�
C6PK<�ZӜ�
22ssax/input-parse.gonu�[���GOOF----LE-8-2.0�1]l4ho]gguile�	�	gdefine-module*�	�	�	gsxml�	gssax�	ginput-parse�		�	
gfilenameS�	fsxml/ssax/input-parse.scm�	gimportsS�	
gice-9�	grdelim�	
�	�	�	gexportsS�	gpeek-next-char�	gassert-curr-char�	g
skip-until�	g
skip-while�	g
next-token�	g
next-token-of�	gread-text-line�	gread-string�	gfind-string-from-port?�		�	gset-current-module�	�	�	 g
integer->char�	!gascii->char�	"g
char->integer�	#gchar->ascii�	$gchar-newline�	%gchar-return�	&g1+�	'ginc�	(g1-�	)gdec�	*gmake-syntax-transformer�	+*�	,*�	-g
define-opt�	.gmacro�	/g$sc-dispatch�	0/�	1/�	2g_�	3gany�	423��	5g
syntax->datum�	65�	75�	8g
datum->syntax�	98�	:8�	;greverse�	<goptional�	=gdefine*�	>gappend�	?goptionalS�	@gsyntax-violation�	A@�	B@�	Cf-source expression failed to match any pattern�	Dgthrow�	Egparser-error�	Fgcurrent-input-port�	Gg	read-char�	Hg	peek-char�	Igmemv�	JfWrong character �	Kf (0x�	Lgeof-object?�	Mf*eof*�	Ngnumber->string�	Of) �	Pf. �	Qf	 expected�	Rgnumber?�	SfUnexpected EOF while skipping �	Tf characters�	Ugmemq�	Vg*eof*�	Wf$Unexpected EOF while skipping until �	Xgmake-string�	Yginput-parse:init-buffer�	Zf�	[g
string-length�	\g	substring�	]fEOF while reading a token �	^g
string-append�	_gstring-set!�	`gnext-token-old�	agstring-concatenate-reverse�	bg
procedure?�	cg*read-line-breaks*�	dfreading a line�	eglist->string�	fgdelete�	ggread-delimited�	hgpeek�	ig	read-line�	jgchar=?�	kg
string-ref�C5hP(�]4	
54>"G i!R"i#R
$R
%R&i'R(i)R4,-.147:;<=>?hpr-1345�$$��$��&��"""$44��55���C���Cjgbindings
			ngbody			ng	body-rest				ngrev-bindings			ngopt-bindings		>	ngfilenamefsxml/ssax/input-parse.scm�
	J
��	
	K	��		K	��		M	��		M	
��		M	+��		M	$��	!	M	
��	#	N	��	&	N	��	+	M	
��	.	O	��	>	K	��	F	P	��	H	Q	��	I	Q	��	L	Q	��	S	Q	5��	T	Q	$��	V	Q	��	Z	Q	��	_	Q	��	d	T	��			n	
	Chm]	45L4?6egargs
		gv			gfilenamefsxml/ssax/input-parse.scm�		J
��		CBCh(k]	45$O@6cgy
		'gtmp		'gfilenamefsxml/ssax/input-parse.scm�
	J
��		'C5-RDEh�-13@�gport
			gmessage			grest				gfilenamefsxml/ssax/input-parse.scm�
	V
��	
	W	��		W	��				
	gnamegparser-error�CERFGHh8�-.,3#454>"G6�gport
		1gfilenamefsxml/upstream/input-parse.scm�
	,
��		,	,��		-	��	1	.	��		1
gnamegpeek-next-char�CRFGIEJKLMN"OPQhhH-.,3#454545$C45$"4	4
5	5
6
@gexpected-chars
		ggcomment		ggport			ggc		 	ggfilenamefsxml/upstream/input-parse.scm�
	;
��		<	.��		=	��	 	=	��	#	>	��	/	>	��	8	?	��	<	@	��	=	@	��	G	@	��	I	@	&��	N	A	��	Q	A	$��	[	A	��	]	A	;��	a	B	��	e	B	'��	g	?	��		g	gnamegassert-curr-char�CRFRLGEST)IUVW
h��-.,3#4545$O"C
�$94455$4>"G"45"���C"���"B4	5$C45$4
5$C645"���45"����garg
	�gport	�gi		(	kgc		w�gfilenamefsxml/upstream/input-parse.scm�
	Q
��		Q	,��		S	��	$	R	��	(	T	��	+	U	��	0	T	��	1	V	��	4	V	��	<	V	��	@	V	
��	A	W	��	G	W	��	K	X	��	P	W	��	]	T	��	i	T	��	w	Z	��	x	\	
���	[	���	]	
���	[	���	^	���	^	���	^	���	^	���	_	 ���	_	
���	`	���	`	���	Z	���	Z	���	Z	��"	�gnameg
skip-until�CRFIGHh`�-.,3#45"/45$4>"G45"���C45"����g
skip-chars
		Ygport		Ygc			Lgfilenamefsxml/upstream/input-parse.scm�
	k
��		k	3��		l	��		m	��	*	l	��	+	n	��	=	l	��	I	l	��	M	l	
��	Y	l	��		Ygnameg
skip-while�CR4Xi5hQ]LCIgfilenamefsxml/upstream/input-parse.scm�
�	��		
COYRZFY[I\LUVE]^X_G'Hh��-.,3	##4545H4J5HJH"�45$	J
645$ 4	5$	J
6
6J�$!4J4
J55KJK4J5K"4J>"G4>"G4545"��W
45"��E�gprefix-skipped-chars
	�gbreak-chars	�gcomment		�gport		�gbuffer		(�gcurr-buf-len		1�gquantum		5�gi		;�gc		;�	gfilenamefsxml/upstream/input-parse.scm�
�
��	�	+��	�	5��	$�	��	(�	��	+�	��	1�	��	;�	��	<�		��	H�	��	Q�	��	R�		��	\�	��	]�	��	a�	��	e�	��	i�	
��	r�	��	x�	��	|�	����	����	
����	����	1����	����	����	����	!����	����	
����	
����	����	����	
����	����	����	��&	�		gnamegnext-token-old�C`RZF[I\aLUVE]X_G'HYh�-.,3
##45"�45"�4	5$(	
664	5$04	5$(	
66
6�$45�	"��q4
	>"G4>"G4545	"��@
	"��54545"���gprefix-skipped-chars
	gbreak-chars	gcomment		gport		gbuffer		'�gfilled-buffer-l		'�gc		'�gcurr-buf-len		.�gi		4�gc			4�
gfilenamefsxml/upstream/input-parse.scm�
�
��	�	%��	�	/��	'�	��	(�	��	.�	��	4�	��	5�	��	A�	��	G�	��	P�	(��	Z�	��	[�	��	e�	��	f�	��	j�	��	n�	��	r�	��	x�	����	*����	����	!����	����	����	����	����	����	����	����	����	����	����	����	����	���	���	B���	���	��(			gnameg
next-token�CRFY[bXH_G'\aI
hhj-.,3#45454545$�"�"�$45�"���4455$54>"G4>"G4	5"���(	

66
"��z"��k"�"��$45�"���4545$54>"G4>"G4	5"���(	

66
"��x"��ibgincl-list/pred
	hgport	hgbuffer		hgcurr-buf-len		'hgbuffer		8�gfilled-buffer-l		8�gi		<�gc		e�gbuffer	�]gfilled-buffer-l	�]gi	�Vgc	�Vgfilenamefsxml/upstream/input-parse.scm�
�
��	�	+��	�	��	�	��	!�	��	'�	��	*�	��	4�	��	8�	��	<�	��	A�	��	E�	��	F	��	Q	,��	Y	
��	Z	��	]	#��	e	��	e	
��	m	��	n	���	���	���	���	���	*���		����	����	����	1����	���	���
	���	���	���	���	,���	
���	���	
���	��	��		��	��1	��=	��C	��L	,��V	��V
	��]	��`	1��h	��6	hgnameg
next-token-of�CR$i%iVcRFLHcdG%	h�J-.,3#454455$64545�$(45
�$4>"G""CBgport
		zgline	;	zgc		D	zgfilenamefsxml/upstream/input-parse.scm�
*
��	*	,��	+	��	+	��	%+	��	)+	��	/+	%��	0-	
��	3-	��	7.	��	;-	
��	;,	��	>/	��	D,	��	K0	��	O0	��	P0	'��	Y0	!��	]0	��	^1		��		z
gnamegread-text-line�CRFXL\'_GZ	h��-.,3#45
�$m45"P45$	
6454>"G�$C45"���
45"���Cgn
	�gport	�gbuffer		(�gi		.	~gc		.	~gi1		I	~gfilenamefsxml/upstream/input-parse.scm�
<
��	<	+��	=	��	!=	��	">	��	(>	��	.?	��	/@	��	9@	��	B@	��	CA	��	IA	
��	LB	��	fC	��	jC	��	pD	��	~D	��	~?	���?	���?	���=	��	�gnamegread-string�CRZFefVLHUE]ghh�-.,3##4544554(45"	455$4	5$C
64
54455$4	5$C
6Cgprefix-skipped-chars
	�gbreak-chars	�gcomment		�gport		�gdelims		1�gtoken		{�gfilenamefsxml/ssax/input-parse.scm�
	]
��		^	+��		^	5��	$	_	��	'	_	��	+	_	&��	/	_	��	1	_	��	1	_	��	4	`	��	<	`	��	=	a	��	H	b	��	R	`	��	V	`	��	W	c	��	[	c	��	_	c	��	c	c	��	e	d	��	l	e	��	p	e	��	q	f	��	y	f	1��	{	f	��	{	f	��	~	g	���	g	 ���	g	���	g	
���	h	���	h	���	h	���	g	���	i	!���	i	��%	�		gnameg
next-token�CRFih �-.,3#456�gport
		gfilenamefsxml/ssax/input-parse.scm�
	l
��		l	,��		m	��		
gnamegread-text-line�CRRHLbhp]4M5�$"MM�$K4L5M$C45$C4M5$N4M5$CCM�$CCC	gt
	
	gc
	*	ngfilenamefsxml/ssax/input-parse.scm�
	|	��		|	!��	
	|	��	
	|	��		}	��	#	|	��	$	~	!��	*	~	��	2		��	6�	!��	@		��	C�	!��	M		��	P�	!��	Q�	%��	[�	!��	e�	!��	i		��		p
gnamegmy-peek-char�CGjk[hp�-13
HJ("J�KHHO"G45$8K4>"GJ�K44
55$"
"���C"b45�$JC45$B4455$#K4>"GJ�K�"���"C"c�
�$"��<"E	�$"��r44	54	�55$		�	"����"���
	"���Q
KK"���~gstr
	
ig<input-port>	
igmax-no-char		
ig
no-chars-read		igpeeked?		igc		7	ygpos-to-match		}�gc	��gi	�Fgmatched-substr-len	�Fgj	�Fgk		�?gmy-peek-char	Fig
no-chars-read	Segpeeked?	Segfilenamefsxml/ssax/input-parse.scm�
	t
��		w	��		w	/��		w	��		x	��	2�	��	3�	��	7�	
��	?�	��	B�	��	C�	/��	W�	/��	Y�	��	Z�	��	_�	&��	h�	��	l�	��	s�	��	w�	��	}�	����	����	����	
����	����	����	����	����	(����	����	����	����	/����	/����	����	3����	 ����	����	����	����	
����	����	����	����	����	���	���	���	���	"���	"��!�	2��#�	"��%�	��)�	��,�	 ��2�	��5�	%��?�	��?�	��F	x	��i�	��>		i	
	gnamegfind-string-from-port?�g
documentationfdLooks for @var{str} in @var{<input-port>}, optionally within the
first @var{max-no-char} characters.�CRC�gm
		,gbuffer
]�gfilenamefsxml/ssax/input-parse.scm�		6
��	3	B
��	:	C
��	?	D
��	D	E
��	K	F
��	R	G
���	V
��gfilenamefsxml/upstream/input-parse.scm�i	,
��C	;
��	�	Q
��S	k
��T�	��]�	����
����
����
����
���(	:���(	���(
���*
���<
��gfilenamefsxml/ssax/input-parse.scm��	]
�� �	l
��(I	t
��	(K
C6PK<�Z�oC��ssax.gonu�[���GOOF----LE-8-2.0j]�4h$c]gguile�	�	gdefine-module*�	�	�	gsxml�	gssax�	�		gfilenameS�	
f
sxml/ssax.scm�	gimportsS�	ginput-parse�	
�	
�	gsrfi�	gsrfi-1�	�	�	gsrfi-13�	�	�	�	gexportsS�	gcurrent-ssax-error-port�	gwith-ssax-error-to-port�	g
xml-token?�	gxml-token-kind�	gxml-token-head�	gmake-empty-attlist�	gattlist-add�	g
attlist-null?�	 gattlist-remove-top�	!gattlist->alist�	"gattlist-fold�	#gdefine-parsed-entity!�	$g reset-parsed-entity-definitions!�	%gssax:uri-string->symbol�	&gssax:skip-internal-dtd�	'gssax:read-pi-body-as-string�	(g ssax:reverse-collect-str-drop-ws�	)gssax:read-markup-token�	*gssax:read-cdata-body�	+gssax:read-char-ref�	,gssax:read-attributes�	-gssax:complete-start-tag�	.gssax:read-external-id�	/gssax:read-char-data�	0gssax:xml->sxml�	1gssax:make-parser�	2gssax:make-pi-parser�	3gssax:make-elem-parser�	4 !"#$%&'()*+,-./0123�	5gset-current-module�	65�	75�	8gthrow�	9gparser-error�	:g
integer->char�	;gascii->char�	<g
char->integer�	=gchar->ascii�	>gmake-parameter�	?gcurrent-error-port�	@gparameter-fluid�	Ag*current-ssax-error-port*�	Bg
parameter?�	CB�	DB�	Eg	scm-error�	Fgwrong-type-arg�	Gfparameterize�	HfNot a parameter: ~S�	Igwith-output-to-port�	Jgdisplay�	Kf;;; SSAX warning: �	Lgfor-each�	Mgnewline�	Ng	ssax:warn�	Ogstring�	Pgucscode->string�	Qgchar-newline�	Rgchar-return�	Sgchar-tab�	Tf
�	Ugnl�	Vgamp�	Wf&�	XVW��	Yglt�	Zf<�	[YZ��	\ggt�	]f>�	^\]��	_gapos�	`f'�	a_`��	bgquot�	cf"�	dbc��	eX[^ad�	fgssax:predefined-parsed-entities�	ggmake-syntax-transformer�	hg�	ig�	jgbegin0�	kgmacro�	lg$sc-dispatch�	ml�	nl�	ogany�	pgeach-any�	qop��	roq��	sg
syntax-object�	tglet�	ugtop�	vu�	wgribcage�	xgdummy�	ygform�	zgform1�	{xyz�	|gm-b6cceb-18�	}|u�	~}vv�	fl-b6cceb-1d��fl-b6cceb-1e��fl-b6cceb-1f������w{~���w��gx�����}��fl-b6cceb-1a�����w�����v�����ghygiene�����st����gval��s�����gappend�����������gsyntax-violation��������f-source expression failed to match any pattern��glet*-values��o���o����gbegin��gbodies��x���gm-b6cceb-24���u���v��fl-b6cceb-29��fl-b6cceb-2a������w��������fl-b6cceb-26�����w�����v�����s�����o���o���o����o���o����gvar��ginitializer��grest��x�������vvvv��fl-b6cceb-2e��fl-b6cceb-2f��fl-b6cceb-30��fl-b6cceb-31��fl-b6cceb-32���������w�����v�����st����s�����oo���o����o���oŒ��gcall-with-values��gvars��x������fl-b6cceb-39��fl-b6cceb-3a��fl-b6cceb-3b��fl-b6cceb-3c��fl-b6cceb-3d���������w�����v�����s�����glambda��s�����s�����g1+��ginc��g1-��gdec��ginclude-from-path/filtered��gwith-input-from-file��g%search-load-path��geof-object?��greverse��gread��gmemq��g_���oo��g
datum->syntax��g
syntax->datum��gexp�����v��fl-b6cceb-5d�����w�����gaccept-list��gfile������vv��fl-b6cceb-56��fl-b6cceb-57������w�����g
read-filtered�����v��fl-b6cceb-45�����w�����fl-b6cceb-44�����w�����v�������s�����gassert��gatom��fdoit������o�pp�gcond�gexpr�gr-exp�x�gm-b6cceb-62�u�vv�fl-b6cceb-67�fl-b6cceb-68�	fl-b6cceb-69�
	�w
��
fl-b6cceb-64�
�w��v��s��gand�s��g=>�s��s���s������gelse�s��gerror�s��fassertion failure: ~a� s��!glist�"s!��#gquote�$s#��%fcollect�&�%�'o&p�(x�)v�*fl-b6cceb-71�+fl-b6cceb-72�,*+�-w(),�.v-��/s�.��0s�.��1�2gfree-id�3greport:�4v��5s34��625�76p��8p7��9&8��:o9��;fl-b6cceb-77�<fl-b6cceb-78�=fl-b6cceb-79�>;<=�?w>�@v?��As�@��Bs�@��Cpq��D&C��EoD��Fgexpr1�Ggstuff�HxFG�Ivvv�Jfl-b6cceb-80�Kfl-b6cceb-81�Lfl-b6cceb-82�Mfl-b6cceb-83�NJKLM�OwHIN�PvO��Qs�P��Rs%P��SxG�Tfl-b6cceb-8b�Ufl-b6cceb-8c�VTU�WwS)V�XvW��Ys�X��Zs%X��[gassure�\ooo�]g	error-msg�^x�]�_gm-b6cceb-90�`_u�a`vv�bfl-b6cceb-95�cfl-b6cceb-96�dfl-b6cceb-97�ebcd�fw^ae�g`�hfl-b6cceb-92�ih�jw�gi�kvf�j�ls�k��ms3k��ngrun-test�ofscan-exp�p�o�qgdefine�rgm-b6cceb-9c�sru�ts�ufl-b6cceb-9e�vu�ww�tv�xv�w�ysqx��z2y�{zoo�|op{�}gbody�~x�}�svv��fl-b6cceb-a1��fl-b6cceb-a2��fl-b6cceb-a3�������w~���v��w��sq����sn����so����opo��g
letrec-syntax��g?body��x���sv��fl-b6cceb-a8��fl-b6cceb-a9������w�����v��w��s�����gscan-exp��s�����gsyntax-rules��s�����s#����g
quasiquote��s�����g!��s�������������gk-head��s�����gargs��s����������������������������������ghd��s�����gtl��s��������������gk��s����������gscan-lit-lst��s�����gdo-wrap��s���������������������������������s��������������gif��s�����gstring?��s���������gstring->symbol��s���������������������Ȍ�����������gdo-tl��s��������������������������������Ҍ�����������������������gprocessed-hd��s�����gfn��s��������������������ތ������gold-tl��s������������gdo-cons��s������������������������������gprocessed-tl��s������������쌤���������������������s��������������������������������������g	do-finish��s�����gnew-body��s�������������gunquote�s���gunquote-splicing�s������	����
	��������
�����
�������������������������������������������������� ���! �"����#"��$�
!#	�%�$�&����%�'���('�)x}�*fl-b6cceb-ad�+fl-b6cceb-ae�,*+�-w)�,�.v-�w�/s�.��0gmap�10�20�3sn.��4so.��5gmake-xml-token�6gpair?�7gcar�8gtoken�9x8�:gm-b6cceb-b2�;:u�<;v�=fl-b6cceb-b7�>fl-b6cceb-b8�?=>�@w9<?�A;�Bfl-b6cceb-b4�CB�Dw�AC�Ev@�D�Fs7E��Ggcdr�Hgm-b6cceb-bb�IHu�JIv�Kfl-b6cceb-c0�Lfl-b6cceb-c1�MKL�Nw9JM�OI�Pfl-b6cceb-bd�QP�Rw�OQ�SvN�R�TsGS��Ug
string-length�Vgchar-whitespace?�Wg
string-ref�Xgstring-whitespace?�Ygassq-values�Zg
fold-right�[gfold�\	 	
			
�]gssax:S-chars�^g
skip-while�_gssax:skip-S�`gchar?�agchar-alphabetic?�bgchar=?�cgssax:ncname-starting-char?�dg	peek-char�efXMLNS [4] for '�fg
next-token-of�ggstring-index�hf
0123456789.-_�igssax:read-NCName�jg	read-char�kgssax:read-QName�lfxml�mgssax:Prefix-XML�ng=�ogstring<?�pgsymbol->string�qg<�rg>�sgssax:largest-unres-name�tgname-compare�uf#LARGEST-SYMBOL�vgassert-curr-char�w<�xfstart of the token�ygEND�z>�{fXML [42]�|gPI�}gpeek-next-char�~-�fXML [15], second dash��gfind-string-from-port?��f-->��fXML [15], no -->��gCOMMENT��gstring=?��fCDATA[��gread-string��gport���	�����������gCDSECT��gDECL��gSTART��f?>��f$Failed to find ?> terminating the PI��gssax:skip-pi��gstring-concatenate/shared��g
next-token��?��freading PI content��f?��f]>��f5Failed to find ]> terminating the internal DTD subset��f
reading CDATA��f]��f��f]]��gstring-null?��fgt��;��fXML [66]��gstring->number��ginteger?��ff-Legalchar] broken for '��famp��flt��fapos��fquot��gassq��gcall-with-input-string��g
procedure?��gclose-input-port��f[norecursion] broken for ��g	*DEFAULT*��f[wf-entdeclared] broken for ��gssax:handle-parsed-entity��gnull?��<&��fXML [10]��f ��gmemv��fXML [68]��g*eof*��f[CleanAttrVals] broken��=��fXML [25]��'"��g!string-concatenate-reverse/shared��f[uniqattspec] broken for ��f [nsc-NSDeclared] broken; prefix ��gssax:resolve-name��fxmlns��f[dt-NSName] broken for ��>/��fXML [40], XML [44], no '>'��fXML [44], no '>'��gassoc��g	EMPTY-TAG��f#[elementvalid] broken, no decl for ��gANY��gapply��gvalues��gREQUIRED��f[RequiredAttr] broken for��f[ValueType] broken for ��gFIXED��f[FixedAttr] broken for ��gCDATA��gmember��f[enum] broken for ��f=��fdeclared content type ��f not verified yet��f,[uniqattspec] after NS expansion broken for ��fspace after SYSTEM or PUBLIC��fXML [11], XML [12]��fSYSTEM��fXML [11]��fPUBLIC��g
skip-until��fspace after PubidLiteral��f
XML [75], ��f rather than SYSTEM or PUBLIC��f#XML [22], unexpected token of kind ��fXML [22], char '��f' unexpected��gssax:scan-Misc��freading char data��g
ENTITY-REF��gssax:assert-token��g
orig-handlers��x���gm-b6cceb-c4���u���v��fl-b6cceb-c9��fl-b6cceb-ca������w��������fl-b6cceb-c6�����w�����v�����s�����gloop��s�����s�����s��������s����gaccum��s�����s�����gtarget��s�����gseed�s����������g	make-case�s���s���sN���f
Skipping PI: �s���sU���	���
s����
��	�
���
���gdefault�s���������������������ghandlers�s�����gold-def�s������������� �!gtag�"s!���#ghandler�$s#���%"$��&%��'�&����("�)$���*()�+*���,�+���-',�.�� -�/�.�0gclauses�1s0���21��3gcase�4s3���5�1��645��726�8gclause�9s8���:91��;:���<9���=1<��>;=�?�7>�@?�A/@�Bs����C���D����Eooooo�Fgmy-new-level-seed�Ggmy-finish-element�Hgmy-char-data-handler�Igmy-pi-handlers�JxFGHI�Kgm-b6cceb-cd�LKu�MLvvvv�Nfl-b6cceb-d2�Ofl-b6cceb-d3�Pfl-b6cceb-d4�Qfl-b6cceb-d5�Rfl-b6cceb-d6�SNOPQR�TwJMS�UL�Vfl-b6cceb-cf�WV�Xw�UW�YvT�X�Zs�Y��[gstart-tag-head�\s[Y��]s�Y��^gelems�_s^Y��`gentities�as`Y��bg
namespaces�csbY��dgpreserve-ws?�esdY��fs�Y��g\]_acef�hsqY��igxml-space-gi�jsiY��kgcons�lskY��msmY��ns�Y��ofspace�psoY��qnp�rlmq�shjr�tstY��ughandle-start-tag�vsuY��w\\�x]]�yaa�zcc�{ee�|gparent-seed�}s|Y��~}f�wxyz{~��s�Y���gelem-gi��s�Y���g
attributes��s�Y���gexpected-content��s�Y�����c���s-Y����\]_ac������f����c�}��s3Y���s�Y��������c}f��gEMPTY��s�Y������s�Y���sY���geqv?��s�Y���s<Y���s_Y����]�������s)Y����]�������s#Y���syY�������s8Y���gexp-kind��s�Y���gexp-head��s�Y��������s9Y���f[elementvalid] broken for ��s�Y���f while expecting ��s�Y����]�������Z�������\���sY���sY���s�Y����j���sY���g
name-value��s�Y������gequal?��s�Y���fpreserve��s�Y���sGY������������Z����������e�������e������s�Y���gexpect-eof?��s�Y���sY�������ff��xy����g
term-token��s�Y���f���s/Y���s�Y���s�Y�������sY����������f[GIMatch] broken for ��s�Y����]�������Z�������\���s|Y������s2Y���sY�������]�f���]a�f�����s�Y������s�Y���]af��sY����]a�f��Z����s�Y������geq?��s�Y���gPCDATA��s�Y������������f* with char content only; unexpected token ��s�Y����]�����������v�]acef��f������t���������fXML [43] broken for ��s�Y����]�����������g ssax:make-parser/positional-args�oooooooo�g*handler-DOCTYPE�g*handler-UNDECL-ROOT�g*handler-DECL-ROOT�g*handler-NEW-LEVEL-SEED�g*handler-FINISH-ELEMENT�g*handler-CHAR-DATA-HANDLER�g*handler-PI�	x�
gm-b6cceb-dc�
u�vvvvvvv�
fl-b6cceb-e1�fl-b6cceb-e2�fl-b6cceb-e3�fl-b6cceb-e4�fl-b6cceb-e5�fl-b6cceb-e6�fl-b6cceb-e7�fl-b6cceb-e8�
�w	��fl-b6cceb-de��w��v��s���s���s���� sq��!ghandle-decl�"s!��#g
token-head�$s#��%"$�&gor�'s&��(s���)s���*fDOCTYPE�+s*��,)+�-(,$�.s9��/f.XML [22], expected DOCTYPE declaration, found �0s/��1.0$�2'-1�3sv��4s]��5fXML [28], space after DOCTYPE�6s5��7346�8s_��98�:s���;gdocname�<s;��=<�>sk��?>�@=?�Agsystemid�BsA��CB�Ds��Esc��FE9�Gs.��HG�IDFH�JCI�Kginternal-subset?�LsK��ML�Ns���Os���Ps[��Qs#��Rs>��SRP�TQS�UfXML [28], end-of-DOCTYPE�VsU��W3TV�XOPW�YN9X�ZMY�[s^��\s`��]sb��^[\]�_<BL�`g#scan-for-significant-prolog-token-2�as`��ba[\]�cb�dg#scan-for-significant-prolog-token-1�esd��fe�gst��hs8��is���ji�khj�lk�ms���ns���onh�pfXML [22], unexpected EOF�qsp��r.q�ss3��ts��uth�vs|��wv�xs2��ys��zyh�{z�|f�}s���~}�"z��~��s�������z��gelement-parser��s����s����z[\]������s���fXML [22], unexpected markup ��s����.�h���������s3���gssax:define-labeled-arg-macro��geach��oo�������o����oo���g
define-syntax��glabeled-arg-macro-name��gpositional-macro-name��garg-name��garg-def��x������gm-b6cceb-f1���u���vvvv��fl-b6cceb-f6��fl-b6cceb-f7��fl-b6cceb-f8��fl-b6cceb-f9��fl-b6cceb-fa���������w��������fl-b6cceb-f3�����w�����v�����s�����s�����gkw-val-pairs��s�����s�����gfind��s�����gk-args��s�����s����s�����gothers��s����������gnext��s������������������gkey��s�����garg-no-match-name��s�����������Œ���Ì���Č��������ƌ���nj���������������ˌ�����gvals��s�����gkeys��s������ь���Ҍ���ӌ���Ԍ���ό���ь��������،���ٌ�����������g	rev-apply��s��������������������������sy����s�����gxs��s������猤�������䌤�������������������������������gm-b6cceb-105���u��x���gm-b6cceb-106���u������fl-b6cceb-10b��fl-b6cceb-10c������w��������fl-b6cceb-108�����w����gshift���������s���s���s���gDOCTYPE�v����s��gUNDECL-ROOT�	s��
g	DECL-ROOT�s
��gNEW-LEVEL-SEED�
s��gFINISH-ELEMENT�s��gCHAR-DATA-HANDLER�s��s|��	
�s���s����s���s�������������s����� ��! �"	��#	��$"#��%$��&%��'& �(��)��*()��+*��,+��-, �.
��/
��0./��10��21��32 �4��5��645��76��87��98 �:��;��<:;��=<��>=��?> �@��A��B@A��CB��DC��ED �Fs���Gs���HG��IFH��JI��KJ��LF��ML��NM��OKN�P�QP�R��SR��TQS�U	�VU�WVS�X�YX�ZYS�[
�\[�]\S�^�_^�`_S�a�ba�cbS�d�ed�feS�g!'-39?EOTWZ]`cf�hg�is���js���kFj��lik��ml��nm��oi��poj��qi�rs���s�trsi�uqt�vu�wsy��xs���ys���zxy��{rwz�|xw��}r|y�~{}�rw��w��~���r������s���s����s����s;���sA���sK���s�����������gwhen��s����sN���f-Internal DTD subset is not currently handled ��s���������s&�������������f
DOCTYPE DECL ��s����s����f found and skipped��s�������������s����s���s#�����������������������s�������������	�����������
����������������
�����gssax:reverse-collect-str��g*PI*��>[��g
string-append��f:��g@��g*TOP*��g*NAMESPACES*��gSSAX:XML->SXML�C5h�]4	
4547>"G89h�-13@�gport
			gmessage			grest				gfilenamef
sxml/ssax.scm�
�
��	
�	��	�	��				
	gnamegparser-error�C9R:i;R<i=R4>i4?i55R4@ii5ARDEFGHhP�]
45$"4>"G�4	�5Y4>ZCZF�gport
		Mgthunk		Mg
t-b6cceb-a			Mgfilenamef
sxml/ssax.scm�
�
��	�	��	B�	��		M	gnamegwith-ssax-error-to-port�CRIJKLMh0n]4>"G4L>"G6fgfilenamef
sxml/ssax.scm�
�	��	�	��	�	��	�	��	�	��	,�	��		,
Ch �-1345O6�gport
			gargs			gfilenamef
sxml/ssax.scm�
�
��	�	��	�	��			
gnameg	ssax:warn�CNRO:h�]456~g	codepoint
		
gfilenamef
sxml/ssax.scm�
�
��	�	
��	
�	��		
gnamegucscode->string�CPR
QR
RR	SRTURefh�] C�gfilenamef
sxml/ssax.scm�
�
��	�	��	�	��		
gnameg reset-parsed-entity-definitions!�g
documentationfBRestore the set of parsed entity definitions to its initial state.�C$Rfh\]�� CTgentity
		gstr		gfilenamef
sxml/ssax.scm�
�
��	�	��	�	��			gnamegdefine-parsed-entity!�g
documentationf�Define a new parsed entity. @var{entity} should be a symbol.

Instances of &@var{entity}; in XML text will be replaced with the
string @var{str}, which will then be parsed.�C#R4ijknr����h R]45��CJgdummy
		gform		gform1						C��h(�]	45$@6�gx
		"gtmp		"gfilenamef
sxml/ssax.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgformgform1g...C5jR4i�kn��hA]�C9gdummy
		gbodies					C���h }]��Cugdummy
		gvar		ginitializer			grest			gbodies						C����h ~]��Cvgdummy
		gvars		ginitializer			grest			gbodies						C��
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamef
sxml/ssax.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgbodies�gvarginitializergrest�gbodies�gvarsginitializergrest�gbodies�C5�R�i�R�i�R4i�k������hh]"S45$6"45"����$$4�L5$45�"���"���"���45"���gsexp
		Ygout		Ygfilenamef
sxml/ssax.scm�
�	��	�	
��	�	��	�	��	�	!��	�	��	*�	��	*�	��	-�	��	1�	��	2�	 ��	7�	&��	;�	 ��	?�	��	@�	��	I�	��	Q�	��	Y�	
��	Z�	��	_�	(��	g�	
��		g
Ch�]45O6�gaccept-list
		gfile		gfilenamef
sxml/ssax.scm�
�	��	�	��	�	��			gnameg
read-filtered�Cn���np�h+]�C#gexp
				C��h@�]4L4L45455545$@6�gaccept-list
		>gfile		>gtmp			>gtmp		'	>gfilenamef
sxml/ssax.scm�	�	 ��		!��		"��		"��		!��	�	 ��	�	��		>	C��h0|]45$
O@6tgx
		-g
read-filtered		-gtmp			-gfilenamef
sxml/ssax.scm�
�	��		-C5�R4i�kn� "$	h0R]�����CJgdummy
		,gexpr		,gr-exp			,		,	C'/01h?]���C7gdummy
		gexpr					C:ABhR]CJgdummy
		gexpr		gr-exp						CEQR�he]45���C]gdummy
		gexpr		gexpr1			gstuff						CqYZh@]���C8gdummy
		
gstuff		
		
	C��h��])45$@45$@45$@45$	@4
5$@
6�gx
		~gtmp		~gtmp		"	~gtmp		9	~gtmp		P	~gtmp		g	~gfilenamefsxml/upstream/assert.scm�
		��		~g
macro-typegsyntax-rules�gpatternsfdoitgexprg...gr-expg...fcollectgexprg...fcollectgexprg...greport:gr-expg...fcollectgexprg...gexpr1gstuffg...gstuffg...C5�R4i[kn\lmhU]CMgdummy
		gexp		g	error-msg						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/upstream/assert.scm�
	 	��		"g
macro-typegsyntax-rules�gpatternsgexpg	error-msgC5[R4inkn|���hQ]CIgdummy
		gvars		gbody						C��&�(h@]��C8gdummy
		g?body					Cq/234h5]C-g
tmp-b6cceb-b1
				Ch?]45�C7gdummy
		gbody					C��
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsxml/upstream/SSAX.scm�
2��		Pg
macro-typegsyntax-rules�gpatternsfscan-expgdefinegvarsgbodyfscan-expg?bodygbodyg...C5nRh�]�C�gkind
		ghead		gfilenamefsxml/upstream/SSAX.scm�
�
��	�	#��			gnamegmake-xml-token�C5R6iR4ikn�Fh@]C8gdummy
		
gtoken		
		
	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/upstream/SSAX.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgtokenC5R4ikn�Th@]C8gdummy
		
gtoken		
		
	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/upstream/SSAX.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgtokenC5RUVW�h��]45
�$C�$4
56	�$44
55$456C"1�$C4455$
45"���C
"����gstr
	�glen		�gi		U�gt		Z�gfilenamefsxml/upstream/SSAX.scm�
q
��	r	
��		r	��	t	��	s	��	u	��	s	��	 u	"��	)u	��	.v	��	2s	��	3v	��	6v	'��	?v	��	Cv	��	Fw	'��	Ow	��	Uy	��	Zz	��	Zz	��	f{	��	i{	#��	s{	��	w{	��	x|	���|	���y	��	�gnamegstring-whitespace?�CXR�hHP]"6(D���$�4�5D���"���"���Hgval
		Ggalist		Ggalist			<gscanned			<gfilenamefsxml/upstream/SSAX.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	��	'�	*��	)�	��	+�	��	.�	��	1�	��	4�	��	<�	��	<�	��	?�	$��	G�	��		G	gnamegassq-values�CYRh �]	(LC�L4L�56�glis
		ghead		gfilenamefsxml/upstream/SSAX.scm�
�	��	�	��	�	��	�	��	�	��	�	 ��	�	��	�	��			gnamegrecur�Ch �]OQ6�gkons
		gknil		glis1			grecur			gfilenamefsxml/upstream/SSAX.scm�
�
��	�	��			gnameg
fold-right�CZRh0�]"(C�4�5"���"����gkons
		0gknil		0glis1			0glis			$gans			$gfilenamefsxml/upstream/SSAX.scm�
�
��	�	��	�	��	�	
��	�	��	�	��	�	��	$�	��	$�	��
		0	gnamegfold�C[R40i;i\5]R^]h}]6ugport
		
gfilenamefsxml/upstream/SSAX.scm�
�
��	
�	��		
gnamegssax:skip-S�C_R`abh0�]	45$45$C_6C�ga-char
		)gt		'gfilenamefsxml/upstream/SSAX.scm�
�
��	�	��	
�	��	�	��	�	��	'�	��		)gnamegssax:ncname-starting-char?�CcRdc9e`�f�aghh0�]45$C45$C45$CC�gc
		/gfilenamefsxml/upstream/SSAX.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	"�	��	&�	��	*�	��
		/C	hP�]4545$"4>"G456�gport
		Ig
first-char			<gt			9gfilenamefsxml/upstream/SSAX.scm�
�
��	�	��		�	��	�	��	�	��	�	��	%�	��	)�	6��	.�	��	?�	��	I�	��		Ignamegssax:read-NCName�CiRidjh@�]4545:�$4>"G45�CC�gport
		=gprefix-or-localpart			=gkey			=gfilenamefsxml/upstream/SSAX.scm�
�
��	�	��		�	��	�	
��	�	��	�	��	2�	!��	9�	��			=gnamegssax:read-QName�CkR4�il5mRnopqrsh��]�$2�$(&C445455$CCC�$C&C&C��&2��&C445455$CC��&C445455$CCgname1
	�gname2	�gsymb1		k�gsymb2		k�gsymb1	��gsymb2	��gfilenamefsxml/upstream/SSAX.scm�
	��		��			��		��		��		��		"��	
	��	
	��	&
	1��	.
	��	2	��	4	��	7	��	:	��	>	��	B	��	D	��	M	��	O	,��	X	��	Z	,��	^	
��	a	��	e	��	h	��	k	$��	k	��	w	��	y	"��	{
	��	~
	���
	1���
	���	���	���	���	���	)���	
���	���	"���
	���
	���
	1���
	���	���	���	��2	�	CtR4�iu54�iu5�sRvwxdj5yk_z{|i}~��9���������h��]4>"G45/�$M4>"G44554	>"G4
>"GC?�$4>"G4
56!�$�45-�$T4>"G4>"G45$"4>"G6[�$O4>"G44	55$"4>"G64
56456�gport
	�gkey	�gval		J	wgkey	�sgt	9_gfilenamefsxml/upstream/SSAX.scm�
b	��	c	��	c	��		c	��	c	��	d	
��	d	��	+e	
��	=f	��	Af	��	Bf	$��	Jf	��	Jf	��	Mg	��	_h	��	ch	!��	eh	(��	lh	���d	���i	
���i	.���i	2���i	���d	���k	
���k	���l	���X	���X	���X	���X	���Y	
���Y	%���Y	
���Y	���Z	���Z	���Z	��[	��[	��k	��m	��*_	��._	��/_	��9_	��9_	��c`	��f`	��jn	��kn	%��sn	��wo	��xo	#���o	��8	�C)R��9�h �]45$C6�gport
		gfilenamefsxml/upstream/SSAX.scm�
t
��	u	��	u	#��	u	��	u	��	v	��	v	��		gnamegssax:skip-pi�C�R_����}j�hH�]4L5>4L5�$4L>"GC4L5��C�gpi-fragment
		Bgfilenamefsxml/upstream/SSAX.scm�
�	��	�	
��	�	��	�	��	
�	$��	�	
��	�	��	�	��	�	��	�	��	�	��	5�	 ��	:�	��	;�	#��	@�	��		B
gnamegloop�Ch0�]	4>"GOQ456�gport
		0gloop		.gfilenamefsxml/upstream/SSAX.scm�
~
��		��	�	��	0�	��		0gnamegssax:read-pi-body-as-string�C'R��9�h �]45$C6�gport
		gfilenamefsxml/upstream/SSAX.scm�
�
��	�	��	�	#��	�	��	�	��	�	��	�	��		gnamegssax:skip-internal-dtd�C&RRi
]&��jUd}����f�ah ~]45$C45$CCvgc
		gfilenamefsxml/upstream/SSAX.scm�
�	��	�	��	
�	��	�	,��	�	��		CW��]h��]+"~4L545
�$45"���]�$�45]�$x"R45>�$4>"GC]�$45"���4	5"��b4
5$"45"���45"��/&�$o45"44
55"���45$545;�$#4>"G45"���"���"���45
�$4>"G"45"���"��z�gport
	�gstr-handler	�gseed		�gseed		�gfragment		�gkey		�gseed		R�gkey		Y�gent-ref	�O	gfilenamefsxml/upstream/SSAX.scm�
�	��	�	��	�	��	
�	$��	�	$��	�	��	�	��	�	��	�	��	'�	��	7�	��	@�	��	A�	��	J�	��	N�	��	R�	��	S�	��	Y�	��	e�	����	����	����	%����	)����	����	����	����	)����	.����	����	����	����	����	����	����	1����	����	����	����	(����	����	����	����	����	����	
����	"����	����	0���	���	
��	�	��	�	
��
�	���	���	���	
���	/�� �	)��$�	��%�	��7�	��=�	(��A�	��G�	��P�	��Y�	
��]�		��^�	/��t�	����		����	��H	�	CO*Rdj�����P9�`hxi]45x�$4>"G	"	
45454>"G45$6	
6agport
		tgbase	*	tgname		8	tg	char-code		C	tgfilenamefsxml/upstream/SSAX.scm�

��		��		��		��		.��	*	��	-	��	0	��	2	��	4	&��	8	��	8	��	;	��	C	��	F	��	X	��	b	��	h	��	n 	��	r 	<��	t 	��		tgnamegssax:read-char-ref�C+R4�i�5W�4�i�5Z�4�i�5]�4�i�5`�4�i�5c�fR���hf]LLL6^gport
		gfilenamefsxml/upstream/SSAX.scm�
F	
��	F	��		C��9�f��hf]LLL6^gport
		gfilenamefsxml/upstream/SSAX.scm�
X	
��	X	��		C�h�%].45$h���45$O645$)45	4	5
4	>"G
C64	5$�
645$;���
	4	5$4	5
O66
6gport
	�gname	�gentities		�gcontent-handler		�gstr-handler		�gseed		�gt		�gent-body			{gnew-entities			{gport			M	qgval	
	Z	qgt	��gt	��gfallback		��gnew-entities	
��gfilenamefsxml/upstream/SSAX.scm�
<
��	?	��	>	��	A	��	B	 ��	B	��	A	��	"D	
��	,C	��	=E	
��	>G	
��	HC	��	IH	��	MH	
��	PJ	
��	ZI	��	]K	
��	wM	��	{M	
��	|N	���>	���P	���P	(���P		���Q	���Q	
���Q	���>	���S	���T	 ���T	���S	���V	
���U	���W	"���W	
���Z	���Z	
���[	���[		��)	�	gnamegssax:handle-parsed-entity�C�Rhq]Cigfilenamefsxml/upstream/SSAX.scm�
c
��	c	��		
gnamegmake-empty-attlist�CRtnqhH]
(�C4���5�$C�$�C�4�5�C
gattlist
		Eg
name-value		Egkey			Egfilenamefsxml/upstream/SSAX.scm�
i
��	j	��	
j	��	k	��	k	��	k	+��	k	��	k	��	5m	
��	9n	��	:n	"��	?n	/��	Cn	"��	Dn	��		E	gnamegattlist-add�CR�iRh�]��D�gattlist
		
gfilenamefsxml/upstream/SSAX.scm�
t
��	u	
��	u	��	
u	��		
gnamegattlist-remove-top�C Rhz]Crgattlist
		gfilenamefsxml/upstream/SSAX.scm�
w
��		gnamegattlist->alist�C!R[i"R4�i]i�5��j�Rd��]+iv����h�]L6�gport
		gentities		g	fragments			gfilenamefsxml/upstream/SSAX.scm�
�	��	�	��	�	
��			C�h �]�$�C��C�gstr1
		gstr2		g	fragments			gfilenamefsxml/upstream/SSAX.scm�
�	��	�	��	�	��	�	
��	�	��	�	��			C9�hH�]4L�5�4545$"�$C�$;45
�$4>"G"�"��|4	5$�"��X&�$�45#�$.4>"G4
5�"��454
>"G4LO5"���6�g	delimiter
	Agport	Agentities		Agprev-fragments		Ag
new-fragments		Agcterm		Agt		&	;gname	�-gfilenamefsxml/upstream/SSAX.scm�
�	��	�	��	�	��	�	"��	
�	��	�	��	�	��	�	��	�	��	�	��	 �	
��	&�		��	8�	!��	?�	��	G�		��	K�	��	L�	��	U�	��	Y�	
��	Z�	0��	w�	#��	z�	����	
����		����	����	#����	����	
����		����	����	����	
����	
����	����	����	����	����	����	����	���	���	���	���	��9�	��?�	!��A�	��0	A	gnamegread-attrib-value�COQc_kv�����9�h�]""�4455$�454>"G4>"G4>"G454	4
4L55�5$"45"��cC4
5"��U�gport
	�gentities	�g	attr-list		�gname		�g	delimiter		d�gt	��gfilenamefsxml/upstream/SSAX.scm�
�	��	�	��	�	��	
�	+��	�	��	�	��	�	��	�	
��	 �	��	2�	��	6�	��	8�	%��	?�	��	H�	��	Z�	��	^�	%��	`�	1��	d�	��	d�	��	g�	��	n�	��	q�	��	z�	6��	|�	��	~�	��	�	����	����	����	����	&����	����	����	����	����	��$	�	CO,R�m9��hx�]�$=4�5$��"�&"4�5��C$'45$��$���CCCC�gport
		vg
unres-name		vg
namespaces			vgapply-default-ns?			vgt			Ag
default-ns		U	sgfilenamefsxml/upstream/SSAX.scm�
4
��	6	��		5	��	
9	��	9	��	9	��	8	��	&:	��	,8	��	3<	��	9<	��	<<	<��	><	��	D=	��	E7	��	L5	��	M?	��	Q?	��	U?	��	U?	��	]@	��	`@	��	e@	
��	hA	��	lA	
��		v	gnamegssax:resolve-name�C�R�h�]6�guri-str
		gfilenamefsxml/upstream/SSAX.scm�
i
��	j	��		gnamegssax:uri-string->symbol�C%R4�i�5si�9�%hp�]�$4>"G"45"5(���C���&������C�"���"����gport
		ogprefix		oguri-str			og
namespaces			og
uri-symbol		,	ognss		2	ggfilenamefsxml/upstream/SSAX.scm�
�	��	�	��	�		��	�	��	�		��	�	��	�		��	&�	��	,�	��	2�	��	8�	��	?�	��	C�	
��	I�	��	O�	��	T�	��	Y�	��	]�	
��	a�	��	g�	��	g�	��		o	gnamegadd-ns�C,_v��z���9�����9�hPO]"4>G&4L>"G"$	��CCGg	decl-attr
		Ngresult		Ng	attr-name			Ngcontent-type			Nguse-type			Ng
default-value			Ngfilenamefsxml/upstream/SSAX.scm�
�	��	�	��	�	��	�	��	"�		��	#�	��	)�	!��	0�	��	B�		��	G�	��	J�	
��		N	gnamegadd-default-decl�C" tq9�r����������N��h��]S45$
L64>G45$L	""
4>G4��5�$KL��$"��$L���"$�"��WL6�$h4	
>G
	
&4L>"G"$��"	
"���4	
>G
	

&/��$"4L>"G"c	&"W	�$84�	5$"4L�>"G"4L	>"G�"���gattlist
	�g
decl-attrs	�gresult		�gattr		"�gattr-others		"�g	decl-attr		M�gother-decls		M�gkey		_�gt		p�g	attr-name	�gcontent-type		�guse-type	
�g
default-value	�g	attr-name	3�gcontent-type		3�guse-type	
3�g
default-value	3�gt	Lqgt	��gfilenamefsxml/upstream/SSAX.scm�
�	��	�	
��	
�	��	�	
��	�	
��	%�	
��	*�	��	4�	
��	>�	��	C�	��	P�	
��	U�	��	Z�	��	]�	*��	_�	��	_�	��	o�	!��	p�	��	p�	����	"����	����	����	9����	.����	����	/����	����	%����	����	����	����	����	����		����	����	!����	���		���	��
�	
��&�	��'�	��6�	��B�	��F�	��I�	��L�	��L�	��Y�	��_�	(��f�	��y�	#��}�	����	����	����	����	����	����	����	����	(����	G����	����	����	����	!����	����	����	-����	��G	�	gnamegloop�C!���Z�9�h0�]
44L�L5��5$CL6�g
name-value
		/gattlist		/gt			/gfilenamefsxml/upstream/SSAX.scm�
	��		��		��		)��		��		��		��		��		��	+	��	/	��		/	Ch�]E454>"G/45�$45"$B45$$	"�����	","4
>"$	"	"G$:
O	Q	O

LL	Q
4
5
	"45	"�
(
	"�L
��&6
�
���$
���"4L
��5
"���"
�
��
"���
���$0L
���&!
�4L
���
��5
"��b"���"���	
"��KG
454O45
5D�gtag-head
	�gport	�gelems		�gentities		�g
namespaces		�gattlist		�g
empty-el-tag?		A�gt		R�gelem-content	��g
decl-attrs	��gadd-default-decl		��gloop	
��gmerged-attrs		��gattrs	
��gproper-attrs	��g
namespaces	��gproper-attrs	
��g
namespaces	��gfilenamefsxml/upstream/SSAX.scm�
���	�	��	�	��	�	��	"�	��	&�	 ��	(�	+��	,�	��	-�	��	1�	��	2�	��	6�	��	8�	!��	<�	��	A�	��	I�	��	J�	��	R�		��	`	��	b	 ��	i	+��	m	��	u	
��	z	���	���	���	
���	���	'���		����	���		����	����	A����	���
	����	����	����	���	��
�	���	���	���	���	���	���	��!�	��$�	��(�	��-�	��3�	��6�	*��;�	��E�	��L�	��O�	 ��R�	��^�	��^�	��a�	��c�	
��g�	��l�	-��r�	��u�	��x�	���	����	)����	����	����	����	+����	����	���	���	���	���	���	��Q	�	CO-Riv]�_������j���9��h�]!454>"G4>"G454	5&&4
54>"GC4
5&r4>"G4>"G4>"G454
54>"GC6�gport
	�g
discriminator		�g	delimiter		>�gval		\	sg	delimiter	��gsystemid	��gfilenamefsxml/upstream/SSAX.scm�
�
��	�	��		�	��	�	��	�	#��	�	��	"�	��	4�	
��	8�	��	:�	(��	>�	
��	>�	��	C�	��	G�	,��	I�	��	M�	��	N�	��	Q�	��	V�	��	X�	-��	\�	��	\�	
��	_�	��	v�	��	z�	-��	|�	����	����	����	����	����	����	*����	����	����	����	$����	0����	����	����	����	 ����	$����	5����	����	����	����	����	����	��2	�gnamegssax:read-external-id�C.R�b)�_|��9���
h�n]"}45$C4<5$V45��$
45"����$"�$"�$C	
6	645"��vfgport
	�gc	�gtoken		(	wgkey		-	wgfilenamefsxml/upstream/SSAX.scm�

��		��			��		��	
	��	!	��	"
	��	(
	��	-	��	-	
��	9	��	E	��	N	
��	s	!��	u	��	w	��	}	���	0���	���	���	���	��	�gnamegssax:scan-Misc�C�R<&Ri<�&Rid)�y�*/������}j+iv��5�Oh0�],<45�$h45��$"�$D�$456�$6D"�4	$L"L
54545$ 45$"4
5D<�$�45��$+445$"4
55"��g�$"45$"4
5"��<45$"4
5D&�$�45#�$(4>"G4455"���454>"G45$"4
545D45
�$4>"G"44
55"��Y"��Q�gport
	+gexpect-eof?	+gstr-handler		+gseed		+gtoken			xgkey			xgseed		O	]gseed		|#gfragment	�#g	term-char	�#gtoken	�`gkey	�`gkey	p�gname	��gfilenamefsxml/upstream/SSAX.scm�
M	��	Q	��	Q		��	Q	��	T	��	T		��	U	��	U	��	;W	��	DU	��	EY	��	OY	��	]Z	��	fU	��	r[	��	x^	��	|e	��	}g	���g	!���c	���h	!���g	���f	
���i	���f	
���k	���k	���I	
���I		���J	
���J	#���J	
���l	���o	���q	#���q	���r	���r	���u	���I	
���I		��J	
��	J	#��
J	
��u	��t	��r	��I	
��)I		��0J	
��6J	#��:J	
��@x	��AI	
��KI		��RJ	
��XJ	#��\J	
��`z	��io	��j~	��p~	��|	����	����	'����	����	����	%����	����	����	-����	4����	���I	
���I		���J	
���J	#���J	
����	����	,����	����	����	 ����	����	����	���	���	2���	��#�	��#e	��\	+	CO/Rh@]45$�&
��""$C6gtoken
		;gkind		;ggi			;g
error-cont			;gt		&	;gfilenamefsxml/upstream/SSAX.scm�
�
��	�		��	
�	��	�	��	�	��	�	��	�	��	&�	��	;�	��
		;	gnamegssax:assert-token�C�R4i2kn��ABC�Dh H]��C@gdummy
		g
orig-handlers					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/upstream/SSAX.scm�
	��		"g
macro-typegsyntax-rules�gpatternsg
orig-handlersC52R4i3knEZgstv����������������]���f����������a��)h��]	
�
��	����� !�"��#$%&'	������"��(�����C�gdummy
	�gmy-new-level-seed	�gmy-finish-element		�gmy-char-data-handler		�gmy-pi-handlers		�	�	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/upstream/SSAX.scm�
o	��		"g
macro-typegsyntax-rules�gpatternsgmy-new-level-seedgmy-finish-elementgmy-char-data-handlergmy-pi-handlersC53R4ikn %279:@JZ^_cfglmorsuwx{|�����b�z[\]��*h!,3	

��������� �����!���"#$%&'(� ����")������Cgdummy
	�g*handler-DOCTYPE	�g*handler-UNDECL-ROOT		�g*handler-DECL-ROOT		�g*handler-NEW-LEVEL-SEED		�g*handler-FINISH-ELEMENT		�g*handler-CHAR-DATA-HANDLER		�g*handler-PI		�	�	C��h(@]	45$@68gx
		"gtmp		"gfilenamefsxml/upstream/SSAX.scm�
	 	��		"g
macro-typegsyntax-rules�gpatternsg*handler-DOCTYPEg*handler-UNDECL-ROOTg*handler-DECL-ROOTg*handler-NEW-LEVEL-SEEDg*handler-FINISH-ELEMENTg*handler-CHAR-DATA-HANDLERg*handler-PIC5R4i�kn�������2�����h6]������C.gtmp-b6cceb-102
				C�����h6]��C.gtmp-b6cceb-101
				C��khX�]�445	4
5�5���4
5���C�gdummy
		Xglabeled-arg-macro-name		Xgpositional-macro-name			Xgarg-name			Xgarg-def			X		X	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/upstream/SSAX.scm�
	�	��		"g
macro-typegsyntax-rules�gpatternsglabeled-arg-macro-namegpositional-macro-namegarg-namegarg-def�g...C5�R4i1kn�hnpFv��h0G]���	���
����C?gdummy
		,gkw-val-pairs		,		,	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsxml/upstream/SSAX.scm�
	�
��		"g
macro-typegsyntax-rules�gpatternsgkw-val-pairsC51R��h��](C�(C"c((C45�C4�5$���"�����("
45��"���"����g	fragments
	�g	fragments		{gresult			{gstrs			{gfilenamefsxml/upstream/SSAX.scm�

�
��	
�	��		
�	��	

�	��	
�	��	
�	��	
�	��	$
�	��	(
�	��	1
�	��	3
�	��	8
�	��	:
�	��	>
�	��	A
�	��	F
�	/��	I
�	)��	S
�	��	V
�	��	Y
�	��	_
�	��	f
�	��	o
�	��	p
�	��	q
�	��	{
�	��	{
�	��	~
�	/��	
�	:���
�	��	�gnamegssax:reverse-collect-str�C�R�X�h�t]!(C�( 4�5$4�5$CCC"{($C45�C4�5$*���$4�5""�����$"
45��"���"��tlg	fragments
	�g	fragments	5�gresult		5�gstrs		5�gall-whitespace?		5�gfilenamefsxml/upstream/SSAX.scm�

�
��	
�	��			��	
	��	
�	��		��		��		��		��		(��	#	<��	%	(��	)		��	*	��	5	��	;	��	A		��	E
	��	N
	��	P	��	U	��	W	��	[	��	^	��	c	/��	f	)��	l
	��	m	��	r	$��	t	���	���	���	���	���	���	���	���	���	���	���	/���	:���	��,	�gnameg ssax:reverse-collect-str-drop-ws�C(R0%h�]�4�5��C�gel
		gfilenamefsxml/upstream/SSAX.scm�
%	
��	&	��	&	"��	&	;��	&	"��	&	��		C���9p|�'��*/v]5_kc.�UN�&�����mo-��"��p�h@�]
��$�"$�444�54�555��C�gattr
		?gaccum		?gres-name			5gfilenamefsxml/upstream/SSAX.scm�
4	��	+	
��	,	��	-	��	"-	��	$-	��	&.	��	'/	��	,/	��	./	��	0,	��	2+	
��	84	��		?	C��p����_)y9��h�]L6�gtoken
		gexp-kind		gexp-head			gfilenamefsxml/upstream/SSAX.scm�
4	��			C��p�h@�]
��$�"$�444�54�555��C�gattr
		?gaccum		?gres-name			5gfilenamefsxml/upstream/SSAX.scm�
4	��	+	
��	,	��	-	��	"-	��	$-	��	&.	��	'/	��	,/	��	./	��	0,	��	2+	
��	84	��		?	C��/�h �]45$�C��Cgstring1
		gstring2		gseed			gfilenamefsxml/upstream/SSAX.scm�
4	��			C�y�9��h�]LL6�gtoken
		gexp-kind		gexp-head			gfilenamefsxml/upstream/SSAX.scm�
4	��			C�"��p�h@�]
��$�"$�444�54�555��C�gattr
		?gaccum		?gres-name			5gfilenamefsxml/upstream/SSAX.scm�
4	��	+	
��	,	��	-	��	"-	��	$-	��	&.	��	'/	��	,/	��	./	��	0,	��	2+	
��	84	��		?	C��p��|�'��h�]L6}gport
		
gentities		
gseed			
gfilenamefsxml/upstream/SSAX.scm�
4	��		
	C�h �]45$�C��Cgstring1
		gstring2		gseed			gfilenamefsxml/upstream/SSAX.scm�
4	��			C��9���h��],4>G45$C��$v4LO>"G454	L5L�$L"4
44L�5
4L�555("���L�C�$/�45�"���$-4�LO5"����$NL&4L>"G"4L�LL5"���6�gport
	{gentities	{gexpect-eof?		{gseed		{gseed		{g
term-token		{gkey		+{gseed		f�gattrs		f�gtarget	��gseed	��gseed	gseed	[q
gfilenamefsxml/upstream/SSAX.scm�
4	��	x+	
��	{,	��	~-	���-	���-	���.	���/	���/	���/	���,	���+	
���4	��	{	gnamegloop�Chh�]64L>G		�$V4545
�$"444�5	4�555(
"
�
���C	�$�4<4
5�$45"O>"G4545
�$"444�5	4�555(
"
�
���C4M5

$

��"

O	
L	Q6�gstart-tag-head
	dgport	dgentities		dg
namespaces		dgpreserve-ws?		dgparent-seed		dgelem-gi		dg
attributes		dg
namespaces		dgexpected-content			dgseed	
	9	gattrs		9	gseed	
�gattrs	�gt	
3gpreserve-ws?	
3dgloop	Edgfilenamefsxml/upstream/SSAX.scm�
4	��	K+	
��	N,	��	Q-	��	V-	��	X-	��	Z.	��	[/	��	`/	��	b/	��	d,	��	f+	
��	l4	���+	
���,	���-	���-	���-	���.	���/	���/	���/	���,	���+	
��4	��	d	gnameghandle-start-tag�C���hv]��Cngns
		gfilenamefsxml/upstream/SSAX.scm�
l	&��	l	9��	l	B��	l	3��		C'h�]RH45K4"�4545$
45"���$*�	4
5�"����$�4
5�$"4>"G4>"G4>"G454455$45"	4>"G[45�

$*4>"G4>"G"4	>"GJ"P
	�$"��J	"�45"�"�4545$
45"��		�$6�
	
4
5�


"���
	�$$��	"45"R	"=H
 4!5�K
"O
Q4	5"
"��T5#("$%4&5���Cgport
	�gnamespace-prefix-assig	�g
namespaces		�g
namespaces			gport		�gseed		�gtoken		%�gkey		B�gtarget		P	fgseed		f	wg
token-head	��gt	��gdocname	��gsystemid		�ginternal-subset?	
#�gport	�~gelems	�~gentities	�~g
namespaces	�~gseed	�~gtoken	�~gkey		�{gtarget	
	gseed	
<gstart-tag-head	��gport	��gelems	��gentities	��g
namespaces	��gpreserve-ws?	��gseed		��gxml-space-gi	
��ghandle-start-tag	��gresult	��"gfilenamefsxml/upstream/SSAX.scm�
"
��	#	��	%	��	3	��	4	���g	���4	���3	���2	���h	���i	���k	���k	 ���l	!���k	���k	���j	���h	��	�	gnamegssax:xml->sxml�C0R0i�RC�gm
		,gcdata-delimiters
6�<�gvalue-delimeters
G�Qgread-attrib-valueNQgxmlns
T-gSglargest-dummy-decl-attrT-gSgadd-ns	VHgMgterminators-usual
m�ugterminators-usual-eofm�u	gfilenamef
sxml/ssax.scm�	�
���
��
�
���
���	���	���	��"�
��#�	��0�
��W�
����
����
����
����
����
����	����
����
���
����
����
��gfilenamefsxml/upstream/SSAX.scm���
����
���q
��!��
��#g�
��$��
��$��	��$��	&��$��	��$��
��%a�
��&l�
��(��
��*�
��*
�	��*�	(��*�	��*�
��-�
��-�	"��-�	2��-�	"��-� 	"��-� 	2��-� 	"��-�	 ��-�
��2SR
��3?t
��5�~
��6��
��6��	��6��	��<��
��>�
��>�6	��>�6	��>�6	��>�5	��>�7	��>�7	��>�7	��>�5	��?8	��?	8	��?8	��?
5	��?9	��?9	��?9	��?5	��?:	��?%:	��?':	��?)5	��?04
��D�<
��Ec
��F�i
��F�q
��GLt
��G�w
��G�x
��G��	��G��	.��G��	��G����Q�
��Sl4
��Ti
��T�	��T �	��T"�	��T-�	 ��T-���gV�
��kW�
��m�
��m�D	��m�E	'��m�E	��m�C��uB
��v��
����
�
���?
�
����"
����r
��p	��
C6PK<�Z�4ӱ�P�P	simple.gonu�[���PK<�Z�@���%�%Qfold.gonu�[���PK<�Z���V	V	?wapply-templates.gonu�[���PK<�ZC[dss׀match.gonu�[���PK<�ZsHA���transform.gonu�[���PK<�Z���.+.+Bxpath.gonu�[���PK<�ZӜ�
22�Gssax/input-parse.gonu�[���PK<�Z�oC���yssax.gonu�[���PKX��