/home/fresvfqn/waterdamagerestorationandrepairsmithtown.com/Compressed/ccache.tar
language/scheme/spec.go000064400000003727150536206120011065 0ustar00GOOF----LE-8-2.0�]:4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gscheme�	gspec�		�	
gfilenameS�	flanguage/scheme/spec.scm�	gimportsS�	
gsystem�	gbase�	gcompile�	
�	�	
�	�	gcompile-tree-il�	�	�	gdecompile-tree-il�	�	�	�	gexportsS�	�	gset-current-module�	�	�	 ginvalidate-compilation-cache!�	!g
make-language�	"gnameS�	#gtitleS�	$fScheme�	%greaderS�	&gand=>�	'gmodule-variable�	(gcurrent-reader�	)gvariable-ref�	*g	fluid-ref�	+gread�	,g	compilersS�	-gtree-il�	.gdecompilersS�	/g	evaluatorS�	0gprimitive-eval�	1gprinterS�	2gwrite�	3gmake-default-environmentS�	4gmake-fresh-user-module�	5gmodule-define!�	6g
make-fluid�	7gmodule-set!�	8gformat�	9g
simple-format�C5h�]4	
54>"G4 i>"G4!i"#$%&'()*+h0�]
444555$"6�gport
		-genv		-gt			-gfilenameflanguage/scheme/spec.scm�
	!	��		$	��		$	��			$	%��		$	:��		$	%��		$	��		$	��		$	��
		-	C,-i�.-i�/0hw]6ogx
		gmodule		gfilenameflanguage/scheme/spec.scm�
	,	��		,	#��			C12i345(6789h@�]45445>"G4>"GC�gm
		;gfilenameflanguage/scheme/spec.scm�
	/	��		2	��		2	��	
	6	��		6	&��		6	6��		6	��	#	<	��	)	<	#��	0	<	��		;
C5RC}gm
		,gfilenameflanguage/scheme/spec.scm�		
��	-	
��	K	 	��Z	*	��f	+	��	
��	
C6language/scheme/decompile-tree-il.go000064400000202662150536206120013432 0ustar00GOOF----LE-8-2.0�]4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gscheme�	gdecompile-tree-il�		�	
gfilenameS�	f%language/scheme/decompile-tree-il.scm�	gimportsS�	
gtree-il�	
�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-26�	�	�	gice-9�	greceive�	�	�	gvlist�	�	�	gmatch�	�	 �	!gsystem�	"gbase�	#gsyntax�	$!"#�	%$�	& %�	'gexportsS�	(�	)gset-current-module�	*)�	+)�	,gdo-decompile�	-guse-derived-syntax?S�	.-	��	/g
avoid-lambda?S�	0/	��	1g	use-case?S�	21	��	3gstrip-numeric-suffixes?S�	43	��	5.024�	6gchoose-output-names�	7g	hashq-ref�	8gif�	98�	:gbegin�	;glet�	<glambda*�	=gdefine*�	>gdefine�	?glambda�	@gmap�	Aglist�	Bglet*�	Cgletrec*�	Dgletrec�	Egappend�	FE�	GE�	Hglength�	Igand�	Jgor�	KH�	LH�	Mgx�	NM�	Ogelse�	Pgreverse�	QP�	RP�	SO�	TS�	Ugeqv?�	Vgquote�	Wgmemv�	Xgcase�	Ygc�	ZVO�	[g_�	\Z[��	]IY\�	^]�	_gcond�	`g
take-while�	agidentity�	bgdrop�	cgcar�	dgcdr�	egcons�	fgtake�	gg<void>�	hg<const>�	ig	const-exp�	jgself-evaluating?�	kg
<sequence>�	lg
sequence-exps�	mg
<application>�	ngapplication-proc�	ogapplication-args�	pg<primitive-ref>�	qgprimitive-ref-name�	rg
<lexical-ref>�	sglexical-ref-gensym�	tg
<lexical-set>�	uglexical-set-gensym�	vglexical-set-exp�	wgset!�	xg<module-ref>�	ygmodule-ref-mod�	zgmodule-ref-name�	{gmodule-ref-public?�	|g@�	}g@@�	~g<module-set>�	gmodule-set-mod��gmodule-set-name��gmodule-set-public?��gmodule-set-exp��g<toplevel-ref>��gtoplevel-ref-name��g<toplevel-set>��gtoplevel-set-name��gtoplevel-set-exp��g<toplevel-define>��gtoplevel-define-name��gtoplevel-define-exp��g<lambda>��glambda-meta��glambda-body��gassq-ref��g
documentation��gcase-lambda*��gcase-lambda�����g
<lambda-case>��glambda-case-req��glambda-case-opt��glambda-case-rest��glambda-case-kw��glambda-case-inits��glambda-case-gensyms��glambda-case-body��glambda-case-alternate��gcons*��glist-ref��g	list-head��goptionalS��g	list-tail��gkeyS��gcaddr��gallow-other-keysS�����g
<conditional>��gconditional-test��gconditional-consequent��gconditional-alternate��VU��gv��VV��g
last-datum�����������Z������gvoid?��g<let>��glet-gensyms��glet-vals��glet-body��g<letrec>��gletrec-in-order?��gletrec-gensyms��gletrec-vals��gletrec-body��g<fix>��gfix-gensyms��gfix-vals��gfix-body��g<let-values>��glet-values-exp��glet-values-body��gcall-with-values��gmake-lambda��g	<dynwind>��gdynwind-body��gdynwind-winder��gdynwind-unwinder��gdynamic-wind��g<dynlet>��g
dynlet-fluids��gdynlet-vals��gdynlet-body��gwith-fluids��g<dynref>��gdynref-fluid��g	fluid-ref��g<dynset>��gdynset-fluid��g
dynset-exp��g
fluid-set!��g<prompt>��g
prompt-tag��gprompt-body��gprompt-handler��gcall-with-prompt��g<abort>��g	abort-tag��g
abort-args��g
abort-tail��gapply��gabort��gerror��funhandled record��gmake-hash-table��8V|}w>=:;BDCIJ_X?<����������WU��gfor-each��g
hashq-set!��gstring->char-set��f
0123456789��gstring-skip-right��g
string-length��g
string-ref��g	substring��gstring->symbol��gsymbol->string��ghashq-create-handle!��gmemq��g	top-level��gvhash-foldq*��glexical-ref?��greverse!��g=>��gcadr��gfold��gvhash-consq��g	let-names��gletrec-names��g	fix-names��g
vlist-null��g	sort-list��gany��gand=>��g
string-append�f-�gnumber->string�C5h0��] 4	
&'(54+>"G,h�]@�ge
		genv		gopts			gfilenamef%language/scheme/decompile-tree-il.scm�
	
��			��			gnamegdecompile-tree-il�CR567h�]L6�gs
		
gfilenamef%language/scheme/decompile-tree-il.scm�
	,	��	
	,	!��		
gnamegoutput-name�C9:h0�](C"�C�$�(�C"���"����ges
		/gfilenamef%language/scheme/decompile-tree-il.scm�
	4	��		5	��	
	2	��		8	��		5	��		/gnamegbuild-begin�C:;h��]!"5�$(��&�$CCCC�$C��&-�$"��(�$C"���"���"���"���"��}�ge
	�gw		5gx			5gw	H�gx		H�gw		a	}gx		a	}gfilenamef%language/scheme/decompile-tree-il.scm�
	:	��		;	��	.	>	��	;	;	��	�gnamegbuild-lambda-body�C:h8�]�$(��&�$CCCC�ge
		7gw		1gx			1gfilenamef%language/scheme/decompile-tree-il.scm�
	@	��		A	��	*	C	��		7gnamegbuild-begin-body�C<=>?h�H]""uL$e�$T��&8�$'���$���CCCCCCL$M�$B��&,�$!���$���C"��D"��@"��<"��8"��4@gname
	�ge	�gw			ggx			ggw		2	Sgx		2	Sgw	��gx	��gw	��gx	��
gfilenamef%language/scheme/decompile-tree-il.scm�
	E	��		F	��	?	L		��	K	M	��	{	F	���	I		���	F	��	�	gnamegbuild-define�C;@ABh�m][454L5��"�"�L$��$����$����$��(���$s�(i��$Z��
		&E
�$;
�
��$'�(�
�$
��CCCCCCCCCCCCCC�$����$����$��(x��$h�(]��$M��
		&7
�$,
�
��$�$���C"���"���"���"���"���"���"���"���"���"���"����$B���$.��(�$�(�C"��B"��>"��:"��6"��2egnames
	�gvals	�gbody		�gv		�gx		2�gw		E�gx		E�gw		Z�gw		m�gw			|�gx	
	|�gw	��gx	��gw	
��gx	��gw	�gx	�gw	�gw	-�gw		<�gx	
<�gw	U{gx	U{gx	��gw	��gx	��gfilenamef%language/scheme/decompile-tree-il.scm�
	O	��		P	��		P	��		Q	��		P	���	W		���	P	��i	T		��w	P	��
	�	gnameg	build-let�CCD@A;G?H	hX
]|$"454L5��"�"�"]L$T�$J��&5�$+���$44L55��CCCCCC�$)���$���$�(���$���
	
�$�
�(�
��$���
&�
�$�
�
��$�$t�$i�(^��$N��	�$7�$,4545�$	45���C"���"���"���"���"���"���"���"���"���"���"���"���"���"��"��{"��w"��s"��o�$;���$'��(�$��C"��1"��-"��)"��%�$B���$.��(�$�(�C"���"���"���"���"���g	in-order?
	Vgnames	Vgvals		Vgbody		Vgv		$Vgw		E�gx		E�gx		[�gx	��gw	��gx	��gw	��gw		��gx	
��gw	��gw	��gx	
��gw	
�gx	
�gw	0�gw	?�gx	?�gx	�gw	�gx	�gx	Rgw	&Ngx	&Ngfilenamef%language/scheme/decompile-tree-il.scm�
	Z	��		[	��	
	[	��		[	'��		\	��		]	��	#	[	��	j	h		��	o	i	��	}	h		���	[	��T	c	��[	c	!��b	c	
��f	c		��h	d	
��k	d	��x	d	
��	e	
���	[	���	_	���	[	��	V	gnamegbuild-letrec�C8h�]#�$���&d�$Q��&4"C�$�(�C"���"���CCCCgtest
	�g
consequent	�g	alternate		�gw		�gx		�gw		(	sgx		(	sgfilenamef%language/scheme/decompile-tree-il.scm�
	m	��		n	��	9	p	��	C	n	��	W	o	��	i	p	��	�	gnamegbuild-if�CIh0�](C"�C�$�(�C"���"����gxs
		.gfilenamef%language/scheme/decompile-tree-il.scm�
	r	��		s	��		v	��		s	��		.gnameg	build-and�CJh0�](C"�C�$�(�C"���"����gxs
		.gfilenamef%language/scheme/decompile-tree-il.scm�
	x	��		y	��		|	��		y	��		.gnamegbuild-or�CILNORT8hpl]I"	�$���&�45�$45"$	�"$4L5�C"��$I45"4L5�C�$#�(�	4L54L	5��C"���"����$����"���4L5�C"��p4L5�C4L5�C�$R��&<�$1��&�$�(�C"���"���"���"���"���"���dge
	lgw	gx		gtail-len		&�glen		;�gls		c�gn		c�gp-ls		c�gxs		s�gw		��gw	��gwhgx	hgw	5`gx	5`gfilenamef%language/scheme/decompile-tree-il.scm�
�	��	�	��	S�	��	T�	��	[�	��	c�	��	{�	��	|�	����	����	����	����	.����	����	����	����	����	����	����	����	����	���	���	���	��S�	��X�	��	lgnamegbuild-else-tail�C8UhZ]LL6Rgfilenamef%language/scheme/decompile-tree-il.scm�	�	��		
CVWXh��]��"d"A�$4���$��&�$����$���
		&�
�$�
�
��$�O
LQ
�$��(}��$k��&S
�$D�(9��$'��4L5�4L4L55�CL666L6L6
6
6L6L6L6L6L6L6L6L6�$���$���&��$����$���
		&�
�$�
�
��$��$��({�

�$k
�
�&U�$J�(?��$/�$$��4L5�4L4L55�C"���"���"���"���"���"���"���"���"���"���"���"���"���"���"���"����$[���$F��&0�$%���$�$C"��J"��F"��B"��>"��:"��6�gv
	�ge	�gv		�gw		Lgx		Lgw		/Fgx		/Fgw		H:gx		H:gw			Y4gx	
	Y4gw		r(gx		r(gfailure	
�"gw	�gw	�gx	�gfailure	�gw	�gw	�gx	�gw	_mgx	_mgw	pigx	pigw	�agx	�agw		�]gx	
�]gw	�Ugx	�Ugw	
�Igw	�Egx	�Egw	�9gw	1gx	1gw	~�gx	~�gw	��gx	��gw	��gx	��+gfilenamef%language/scheme/decompile-tree-il.scm�
�	��	�	����		����	����		����	
����	%����	
����		���	��R�	���	��!�		��"�	
��'�	%��/�	
��0�		��5�	��	�	gnamegbuild-case-else-tail�CL^ROh��]A45�$45"$	�"$D"��$X45"D�$;�(0��$��&	DDD"���"����$����"��~D"��j�gclauses
	�gtail-len		�glen		�gls		=�gn		=�gp-ls		=�gcs		M�gw		i�gw		u�gw	��
gfilenamef%language/scheme/decompile-tree-il.scm�
�	��	�	��	7�	��	9�	��	=�	��	V�	��	X�	��	X�	����	1����	&����	����	����	����	����	����	����	����	��	�gnamegclauses+tail�CH_G@h�]4L5�C�gtest
		
g
consequent		
gfilenamef%language/scheme/decompile-tree-il.scm�
�	��	�	(��	�	��		
	Ch�C]45
�$C�$L��644LO5�$;��&�$"4L5"4L5"4L55�C;gtests
	�gconsequents	�g	alternate		�gkey			�gw		L	}gx		L	}gfilenamef%language/scheme/decompile-tree-il.scm�
�	��	�	��		�	��	#�	��	&�	#��	*�	
��	,�	��	0�	��	B�	��	f�	����	��	�	gnameg
build-cond�CUVW`a@UVWhp�]YL�"��$����$���&o�$f���$Q�$H�(?��$1��
		&
�$
�(
�CCCCCCCCCCCC�$����$���&��$|���$e�$Z�(O��$?��
		&)
�$
�(
��$C"���"���"���"���"���"���"���"���"���"���"���"����gt-df5d6f08a2a2c7b-4dd8
	igv	igw		�gx		�gw		+�gx		+�gw		D�gx		D�gw		b�gw			q�gx	
	q�gw	��gw	�egx	�egw	�agx	�agw	�Ygx	�Ygw	Mgw		Igx	
Igw	-=gfilenamef%language/scheme/decompile-tree-il.scm�
�	/��	�	����		����	��	iCHbEcdXGefh��]KL$�("��"��$���&��$����$"�$"{�$_�(S��$?��
		&"
�$
�(

�"7"2"-"(	
""""""��$���&��$����$"�$"���"��$��(r��$[��
		&;
�$,
�(
��$""���""���""���""���	
""��z""��o""��g""��Y""��Q""��C44O55454L4L4	54	5554L>G45�4
4554
4L4555
			�$
L6
44
4L4	5555��CL6�gtests
	�gconsequents	�g	alternate		�gtest		�gw		)�gx		)�gw		B�gx		B�gw		o�gw			~�gx	
	~�gw	��gx	��gw	
�gx	
�gw	:�gw		I�gx	
I�gw	f|gv	��gdatum-lists	��gn	��gtail	�gclauses	+�gtail	+�gn		c�gdatum-lists	
c�gconsequents	c�gfilenamef%language/scheme/decompile-tree-il.scm�
�	��	�	��	�	��	�	(��	�	��			��	I	0	��	M	0	��	N	0	��	U	0	)��	Y		��	0	��	0	��	0	��	0	)��!		����	
����	����	*����	����	
����	����	
����	���	/���	0���	0���	/���	���	
��!�	$��.�	��5�	��<�	��=�	!��B�	)��L�	!��M�	!��R�	)��W�	.��a�	)��c�	!��c�	��n�	��r�	��|�	��~�	����	����	/����	4����	/����	����	����	
��7	�	gnamegbuild-cond-or-case�Cg9hiVjkl@mno?Hpqrs7tuvwxyz{|}~������������������<��������������A��G�c�����XL�ROUVWG8h�0]�"�"�$��&��$����$"�$C45�$45"$	�"$C"��$4	5
�$��(���$���
&�
�$�
�(�
��$���&��$����$j�$`�(V��$G��&2�$(�(�4	
5CCCCCCCCCCCCCCCCC�$j�

�$[
�
��$G�(=�
�$.�($�&��
	�	"���CCCCCCC	"��qCCC�$���
&��$����$���&u�$j���$"�$"����$>�(3�		�$#	�	�

&
�$�(���$���

&��$��(���$���&��$����$t�$i�(^��$N��&8�$-�("��$�C"���"���"���"��"��{"��w"��s"��o"��k"��g"��c"��_"��["��W"��S"��O"��K"��G"��C"��?"��;"��7"��3"��/"��+"��'"��#�$���
&��$����$���&l�$a���$"�$"����$5�(*�		�$	�	�

&�$��(���$���

&��$��(���$���&��$����$k�$`�(U��$E��&/�$$�(�C"���"���"���"���"���"���"���"���"���"���"���"���"���"���"���"���"���"��|"��x"��t"��p"��l"��h"��d"��`"��\(ge
	�gw	gx		gw		0gx		0gtail-len		Qglen		fgls	�gn	�gp-ls		�gdatum	
��gw	��gw	��gx	
��gw	�}gw	�zgx	�zgw	�tgx	�tgw	kgw	'hgx	'hgw	D_gw	
�gw	��gx	��gw	
��gw	��gw(�gx	(�gw	A�gx	A�gw	R�gx	R�gw	k�gx	k�gw		��gw	
��gx	��gw	��gw	
��gx	��gw	��gw	��gx	��gw	�gx	�gw	4�gw	C�gx	C�gw	`gw��gx	��gw	
�gx	
�gw	�gx	�gw	7�gx	7�gw		c�gw	
r�gx	r�gw	�zgw	
�vgx	�vgw	�jgw	�fgx	�fgw	�^gx	�^gw	Rgw	Ngx	Ngw	,BJgfilenamef%language/scheme/decompile-tree-il.scm�
M		��	N	��	7	0	��	;	0	��	<	0	��	C	0	)��	GN	��HV	���N	��r	0	��v	0	��w	0	��~	0	)���N	��kR	��N	��>	0	��B	0	��C	0	��J	0	)��NN	��0P	��FN	��	�gnameg
simplify-test�C8�UXW_IJ����;���������������������������������������������h�� ]��&C&245"C45$�$"���C"���&45L4	L56
&�45454L54	L5��$����$l��
&W�$M��
		�$9
�$/�$%4	545�$L	4L
56CCCCCCCC&6&45L6&(45454L54L5C&1454545$"C&F454 54!54"5$"4L5C#&$6%&!4&54'54L5C(&4)54*5L4L56+&�4,54-5$�4L54./5$�"/"�"j�$`��0&K�$A��	�$-��
�$	�$0
��	��CCCCCCC�$e��1&O�$D��	�$/��
�$	�$1
��	��C"��:"��6"��2"��."��*"��&�$B��2&,�$!��		�$2	���C"���"���"���"����$B��
&,�$!��		�$
	���C"���"���"���"���C3C4&�4554654754854954:54;54<5	4	L5
$"$"	�$$
$4=
?"
4L4L55��C$"�$�4L	5$4=
?"
�


�$14L4L55��C
2�$04L4L55��C
1�$14L4L55����C
0�$04L4L55����CC	$4L	5"45$45"

$4>

�5"4?
5$.@4	A4?4B
5
54	L4?
555�"$LC4D4	A4	L4	E�554	L4B
554	F�55�$G"5�"4D4D4D555$d�
�$"2�$04L4L55��C1�$"0�$04L4L55����CC24L4L55��CH&	H4I54J54K5LM44L554L54N5$"
4L5���""M"�"�"�"�"T"|"�"Z�$P��M&;�$1��
		�$	�	�O&�$���

�$"
�$C�$��(���$���&��$��(��
�$�
�
��$o�(e��$V��P&A�$7��
�$!�$P
4L5����CCCCCCCCCCCCCCCCCCCCC�$l��M&V�$K��
		�$6	�	�Q& �$��

�$"
�$"��;�$��(���$���&��$��(���$�
�$�
�
��$r�(g��$W��P&A�$6��
�$�$P
4L5����C"��"��{"��w"��s"��o"��k"��g"��c"��_"��["��W"��S"��O"��K"��G"��C"��?"��;"��7"��3"��/�$���M&��$w��
	
�$b
�
��$M�(B�

�$2
�
�R&�$R	4L5���C"���"���"���"���"���"���"���"���"���L
$��$���M&��$���
	
�$�
�
��$t�(i�

�$Y
�
�M&C�$8���$#��L	4L56"���"���"���"���"���"���"���"���"���"���"���L
$|�$q��M&[�$P��
	
�$;
�
��$&�(�

&L	6"��B"��>"��:"��6"��2"��."��*"��&�$���M&��$z��
	
�$e
�
��$P��
S
&:�$/�$$�(�&	L	�6"���"���"���"���"���"���"���"���"���"��|�$P��M&:�$/��
	
�$
�(
�M	C"��-"��)"��%"��!"��L
$��$���M&t�$i��
		�$"	�$"���
�$=
�
�	�$&�$�(�
L
	
6"���"���"���"���"���"���"��~"��z�$���M&��$���
		�$"	�$"��5
�$g
�
�	�$P�$E�(:�

�$*
�
�T&�$	L
	�6"���"���"���"���"���"���"���"���"���"���L
$��$���M&��$���
	
�$u
�(j
��$Z��
M&D
�$9
�
��$$�(�L	4L	56"��"��"��"��"��"��"��"���"���"���"����$���M&��$���
	
�$�
�(�
��$���
M&n
�$c
�
��$N��S&8�$-�$"�(�L	4L	�56"��?"��;"��7"��3"��/"��+"��'"��#"��"��"��"��"��U&n4V54W54X54L4	L54	L54L55"�$��Y&��$���	�$��(��

�$�
�
��$��(��
	�$�	�(�	��$y��P&d�$Z���$D�$:("�4L544L55��$	P
��CCCCCCCCCCCCCCCCC�$��Y&��$���	�$��(��

�$�
�
��$��(��
	�$�	�(�	��$s��T&]�$R���$;�$0("	�4L5�$	T
��C"��
"��	"��"��"���"���"���"���"���"���"���"���"���"���"���"���Z&C4[54\54]54^5L4	L54	L54L56_&94`54a54b5L4	L54	L54L56c&74d54e5f
4L4L55��4L4g55Ch&@4i54j54k5l4L5
4L4L55��4L5Cm&E4n54o54p5q4	A4	L54	L554L4L55��Cr&4s5t4L5Cu&&4v54w5x4L54L5Cy&@4z54{54|5}4L5
4L4L55��4L5C~&B454�54�5��4L54D4	L54L55���C��6� ge
	�grtd	�gexp		!	Lgexps		[	jgproc	�!gargs	�!gv	�!gw	�gx	�gw	�gx	�gw		�gx	
�ggensym	>Hggensym	^xgexp	^xgmod	��gname	��gpublic?	��gmod	��gname	��gpublic?	��gexp	��gname	#6gexp	#6gname	L]gexp	L]gmeta	sgbody	sgbody	�gdoc	�gw	�
gx	�
gw	�gx		�gw	
�gx	�gw	ygx	ygw	3qgx		3qgw	
Dmgx	Dmgw	��gx	��gw	��gx		��gw	�gx	�gw	�gx		�greq	]�gopt	]�grest	]�gkw	]�ginits	]�ggensyms	]�gbody	]�g	alternate		]�gnames	
v�g
alt-expansion	�rgformals	�rgkey	
�rg
alt-expansion	��gnreq	��gnopt	
��grestargs	��greqargs	��goptargs	��gkwargs	Q�gformals	j�gkey	u�gtest	9g
consequent	9g	alternate	9g
simplify-test	9gv	B9gw	y�gx	y�gw		��gx	
��gw	��gx	��gw	
��gx	��gw	��gw	��gx	��gw	�gw	"�gx	"�gw	7�gw	F�gx	F�gw	_�gx	_�gw	�
9gx	�
9gw		�
1gx	
�
1gw	�
-gx	�
-gw	
	
%gx		
%gw		B
gw		Q
gx		Q
gw		n

gw		�
gx		�
gw		�	�gw		�	�gx		�	�gw		�	�gx		�	�gw	
J
�gx	
J
�gw		
c
�gx	

c
�gw	
t
�gx	
t
�gw	

�
�gw	
�
�gx	
�
�gw	
��gx	
��gw		�gx	
�gw	�gx	�gw	
2�gw	A�gx	A�gw	Z�gx	Z�gw	k�gx	k�gw	�2gx	�2gw		�*gx	
�*gw	�&gx	�&gw	
gw	G�gx	G�gw		`�gx	
`�gw	q�gx	q�gw	
��gx	��gw	��gw	�
7gx	�
7gw		

/gx	


/gw	

'gw	
N
�gx	
N
�gw		
g
�gx	

g
�gw	
�
�gx	
�
�gw	

�
�gw	
��gx	
��gw		�gx	
�gw	(�gx	(�gw	
F}gw	Uygx	Uygw	�Qgx	�Qgw		�Igx	
�Igw	�Agw	�=gx	
�=gw	5gx	5gw	-gw	f5gx	f5gw		-gx	
-gw	�%gw	�!gx	
�!gw	�gx	�gw	�gx	�gw	�ggensyms	V�gvals	V�gbody	V�gv	z�gw	��gx	��gw	��gx		��gw	
��gw	��gx	��gw	
�}gw	�wgw	tgx	tgw	ngx	ngs	<Jgw	��gx	��gw	��gx		��gw	
��gw	��gx	��gw	
��gw	�gw	�gx	�gw	/{gx	/{gs	Sag	in-order?	��ggensyms	��gvals	��gbody	��ggensyms	;gvals	;gbody	;gexp	Qzgbody	Qzgbody	��gwinder	��gunwinder	��gfluids	�gvals	�gbody	�gfluid	-gfluid	C[gexp	C[gtag	x�gbody	x�ghandler	x�gtag	��gargs	��gtail	���gfilenamef%language/scheme/decompile-tree-il.scm�
�	��	�	��		2	��	�	��	)�	
��	/�		��	0�	��	:�		��	=�	.��	A�	
��	T�	��	`�	��	j�		��	r�	����	����	$����		����	����	$����	����	���	(��	�	��)�	��H	,	!��P�	��d�		��e	,	!��n�	'��w�		����	����	����	����	����		����	����		����	����	����	!����		����	3����		���	��)�		��,�	��5�		��>�	��U�	��]�		��e�	��}		��~	���	���	'���	���	
���	���	���	��
	��X
	��i	���	���	���		��	��	
��%�	��n	��v		��~	
���	%���	���	
���	���	 ����	����	����	���	
���	
���	���	���	"���	���	%���	
���	���	���	����	����	���	��	��	!��	��	��!	���	�� �	��(�	��)!	��,"	"��/!	��9	��;$	��>�	��A�	��I�	��J$	��M%	"��N$	��Y	��['	��^�	��a�	��i�	��j'	��m(	#��n'	��x*	#��y*	2���*	
���+	���*	
���,	���,	"���*	
���-	���-	'���-	7���-	'���-	F���*	
���.	���*	
���/	���0	!���1	%���2	*���2	5���2	*���3	*���4	/���3	*���1	%���0	!���5	!���*	
��6	��7	 ��
8	$��9	)��9	:��9	E��9	:��9	)�� :	)��%;	.��/:	)��0<	)��7<	2��9<	)��;8	$��>=	(��B=	$��D>	(��I?	(��K7	 ��Q@	 ��Q*	
��TA	��j*	
��rB	��uD	��uD	���F	����	����	����	���F	���G	&���F	���D	���I	����	����	����	���I	���J	'���I	���C	����	����	����	���C	����	��X		��X	��X	%��X	��Y	��&Z	��0Z	��1Z	-��6[	!��?[	��@X		���	0	���	0	���	0	���	0	)���X		��u�	��}�	����	���X		��		0	��	!	0	��	"	0	��	)	0	)��	-X		��	�|	��	�|	��	�|	��	�X		��
�x	��
�x	��
�x	��
�X		��xt	 ��u	 ���v	 ���t	���X		��p	��p	��X		���m	���m	���X		��
k	��
+X		��
n	0	��
r	0	��
s	0	��
z	0	)��
~X		��
�i	��
�i	��
�X		��	0	��	0	��	0	��	0	)��X		��of	��qf	��uX		��b	��%b	!��'b	��+	2	��-b	��1X		���]	���]	!���]	��	2	��]	��	X		��A�	��]�		��`�	��i�	��r�	��z�		��4�	��<�	*��<�	��?	-	!��K�	��N�	$��V�	��W�	��X�	��\�	��^�	����		��I�	��S�	,��S�	��V	-	!��b�	��f�	��h�	��s�	��w�		����	����	����	����	����		���	��!�	��*�	��3�	��;�		��C�	��W�		��[�	��^�	��f�	��g�		��i�	
��l�	��p�	&��t�	��v�	
��y�		����	����		����	����		����	����	����	����		����	����		����	����		����	����	����	���	���	���	���	��
�		���	��"�		��#�	��,�		��5�	��I�		��J�	��Q�	(��Z�		��c�	����		����	����		����	����	����	����		����	����		����	����		����	����		����	(����	����		����	��q	�gnamegrecurse�Ch@�-/03####4>GO	
OO
	O

OOOOOQQ
Q

QQ	QQ	Q

	Q45D�ge
	@genv	@guse-derived-syntax?		@g
avoid-lambda?		@g	use-case?		@gstrip-numeric-suffixes?		@goutput-name-table		F@goccurrence-count-table		F@goutput-name	�@gbuild-begin		�@gbuild-lambda-body	
�@gbuild-begin-body	�@gbuild-define	�@g	build-let	
�@gbuild-letrec	�@gbuild-if	�@g	build-and	�@gbuild-or	�@gbuild-else-tail	�@gbuild-case-else-tail	�@gclauses+tail	�@g
build-cond	�@gbuild-cond-or-case	�@grecurse	�@gfilenamef%language/scheme/decompile-tree-il.scm�
	!
��	8	*	��	I	)	��6�	��@�	��	@	
guse-derived-syntax?S	�g
avoid-lambda?S	�g	use-case?S	�gstrip-numeric-suffixes?S	�gnamegdo-decompile�C,RHH4�i4Hi�554�i�h~]L6vgt-df5d6f08a2a2c7b-6cc8
		gfilenamef%language/scheme/decompile-tree-il.scm�
,	��		CO�>"G7hu]L6mgname
		
gfilenamef%language/scheme/decompile-tree-il.scm�
-	��	
-	��		
COK4�i�5����h`]	4L5$G�45�$5-45&#04�5&C4
5"���CCCgstr
		]gi		]gfilenamef%language/scheme/decompile-tree-il.scm�
4	��	5	��	5	
��	6	��	6	��	6	!��	6	��	"6	��	%7	��	16	��	48	#��	;8	3��	=8	#��	A6	��	E9	"��	T9	��		]gnamegbase-name-string�COQ��h�]4L4556�gsym
		gfilenamef%language/scheme/decompile-tree-il.scm�
;	��	<	��	<	,��	<	��	<	
��		COK�h0�]	4M
5�
�$M�N"���C�gs
		+gh		+gfilenamef%language/scheme/decompile-tree-il.scm�
N	��	O	��	O	��	P	��	P	��	P	
��	Q	$��	Q	��	'R	��	(R	��	)R	
��		+gnamegincrement-occurrence-count!�C�h0�]
�$CL$4M5"M6�gs
		*gname		*gname			*gfilenamef%language/scheme/decompile-tree-il.scm�
\	��	I	��		]	��	^	��	_	��	^	��	*a	��		*	gnamegset-source-name!�C��hh�]
�$"*4M54�5$"	����$C4M54�5$C���C�ga
		ggb		ggh			7gh		J	ggfilenamef%language/scheme/decompile-tree-il.scm�
i	��	I	��		k	
��	l	��	l	>��	l	��	l	��	m	��	!m	!��	#m	��	'm	��	2n	(��	3n	 ��	4n	��	:I	��	>k	
��	Al	��	Hl	>��	Jl	��	Jl	��	Mm	��	Tm	!��	Vm	��	Zm	��	cn	(��	dn	 ��	en	��		g	gnameg
add-conflict!�C���h(�]4L5�$C���C�gname
		(gh		(gt			(gfilenamef%language/scheme/decompile-tree-il.scm�
E	
��	F	��	F	��	G	��	G	��	 G	3��	#G	-��	$G	!��	'H	!��
		(C�h0�]4L5�$C4M5��C�gname
		*gh		*gt			*gfilenamef%language/scheme/decompile-tree-il.scm�
V	
��	W	��	W	��	X	��	X	��	X	-��	&X	!��	)Y	!��			*Cg8�e�h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
ChVh~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Cmno�s7pqh~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Cr�`h|]L��Ctgs*
			gfilenamef%language/scheme/decompile-tree-il.scm�
�	��	�	&��	�	!��			C�h~]LL6vgt-df5d6f08a2a2c7b-6d65
		
gfilenamef%language/scheme/decompile-tree-il.scm�
�	��		
Ctuvwh~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch|]L��Ctgs*
			gfilenamef%language/scheme/decompile-tree-il.scm�
�	��	�	&��	�	!��			Ch~]LL6vgt-df5d6f08a2a2c7b-6d65
		
gfilenamef%language/scheme/decompile-tree-il.scm�
�	��		
Cx{|}h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C~��h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C��h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C���h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C���h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C����Ih~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
CJh~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C_h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
CXh~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
COh~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C�h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ckl:h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C���h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C���������?h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C<h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C�h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C;h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
CBh~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
CE@��������h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C������h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
CCDh~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6dd7
		
gfilenamef%language/scheme/decompile-tree-il.scm�
�	��		
C�����h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6deb
		
gfilenamef%language/scheme/decompile-tree-il.scm�
�	��		
C����h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C�����h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C�����h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C���h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C����h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C�����h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
Ch~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C�����h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C�h~]LL6vgt-df5d6f08a2a2c7b-6d57
		
gfilenamef%language/scheme/decompile-tree-il.scm�
z	��		
C���h��-]a�&/4M54M
54L5L	O6&/4M54M
54L5	L	O6
&�45454
5$T45�$�"	4M54M5$4L	4M
5>"G""4L>"GL6&8454M54M
54L5L	O6&{454M
5�
�$M�N"���4O444M�$�"	4M55L555L	O6&�45454M54M
54L54L	O>"G4M
5�
�$M�N"���4O444M�$�"	4M55L5554L	O>"G"��P &P4!54M$""#54M
$""#54L5$L	O6%&�4&54'54M54M
54L54(L	O>"G4M$""#54M
$""#54L54)L	O>"G"��6*&84+54M54M
54L5,L	O6-&�4.54/54M54M
54L540L	O>"G4M54M
54L541L	O>"G"��L2&^4354454M54M
54L545L	O>"G"���6&-475485495L$�4M:54M
:54L54;L	O>"G4M<54M
<54L54=L	O>"G4M>54M
>54L54?L	O>"G4M@54M
@54L54AL	O>"G4MB54M
B54L54CL	O>"G4MD54M
D54L54EL	O>"G"4M54M
54L54FL	O>"G4L>"G4L>"G"���G&U4H54MI54M
I54L54JL	O>"GL6K&F4L5$"��54MM54M
M54L5NL	O6O&�4P54Q54R54S54T54U54V54W5	4MX5
4M
X54
L54YL	O>"G
$"
$"	$�4MZ5
4M
Z54
L54[L	O>"G
4MM5
4M
M54
L54\L	O>"G
4M]5
4M
]54
L54^L	O>"G
"4M_5
4M
_54
L54`L	O>"G
L$H4Ma5
4M
a54
L54bL	O>"G
"4c$"$	"4de$�"55
4dM
54fgL54L>"G4L
>"G4L>"G4L>"G	$	"��?Ch&R4i54j54k54l54M_54M
_54L54mL	O>"GL$�4Ma54M
a54L54nL	O>"G4M<54M
<54L54oL	O>"G"4L>"G4L>"G4L>"GL4fgL4dM556p&�4q54r54s54t54u54M_54M
_54L5	4vL	O	>"G	L$�4Ma54M
a54L5	4wL	O	>"G	4M<54M
<54L5	4xL	O	>"G	"4M$y"z54M
$y"z54L5	4{L	O	>"G	4L>"G4L>"G4dM54fgL54|LO>"GL6}&�4~5454�54�54M_54M
_54L54�L	O>"G4My54M
y54L54�L	O>"GL$�4Ma54M
a54L54�L	O>"G4M<54M
<54L54�L	O>"G"4L>"G4L>"G4dM54fgL54�LO>"GL6�&p4�54�54M�54M
�54L54�L	O>"G4L>"G"����&�4�54�54�54M�54M
�54L54�L	O>"G4L>"G4L>"G"��]�&�4�54�54�54M�54M
�54L54�L	O>"G4L>"G4L>"G"����&U4�54M�54M
�54L54�L	O>"G"��i�&p4�54�54M�54M
�54L54�L	O>"G4L>"G"����&�4�54�54�54M�54M
�54L54�L	O>"G4MX54M
X54L54�L	O>"G4L>"G4L>"G"���&�4�54�54�54M�54M
�54L54�L	O>"G4M�54M
�54L54�L	O>"G4L>"G4L>"G"��A��6�-ge
	�grtd	�gbname			>gs		+	>g	conflicts		+	>gbname		M	ugs		b	ug	conflicts		b	ugproc	�gargs	�ggensym	��gname	��gname	Hgbname	 Hgs	5Hg	conflicts	5Hggensym	W�gh	c�g	conflicts	��ggensym	��gexp	��gbname	�)gs	&g	conflicts	&gh	3Sg	conflicts	��gpublic?	�
gbname	�
gs	�
g	conflicts	�
gpublic?	 �gexp	 �gbname	+hgs	@eg	conflicts	@egbname	{�gs	��g	conflicts	��gname	�gbname	�gs	�g	conflicts	�gname	"�gexp	"�gbname	-jgs	Bgg	conflicts	Bggbname	q�gs	��g	conflicts	��gname	�gexp	�gbname	�gs	�g	conflicts	�gtest	9Qg
consequent	9Qg	alternate	9Qgbname	L�gs	a�g	conflicts	a�gbname	��gs	��g	conflicts	��gbname	�gs	�g	conflicts	�gbname	Ugs	-Rg	conflicts	-Rgbname	\�gs	q�g	conflicts	q�gbname	��gs	��g	conflicts	��gbname	�%gs	�"g	conflicts	�"gexps	`�gbname	i�gs	~�g	conflicts	~�gbody	��gbname	��gs	��g	conflicts	��greq	<
�gopt	<
�grest	<
�gkw	<
�ginits	<
�ggensyms	<
�gbody	<
�g	alternate		<
�gbname	
S�gs	h�g	conflicts	h�gbname	
��gs	��g	conflicts	��gbname	
�	4gs			1g	conflicts			1gbname	
	;	xgs		P	ug	conflicts		P	ugbname	
	�	�gs		�	�g	conflicts		�	�gbname	
	�

gs		�
g	conflicts		�
gnames	

G
�g
base-names	
R
�g
body-bindings	
a
�gnames	
�ggensyms	
�gvals	
�gbody	
�gbname	
�5gs	
2g	conflicts	
2gbname	Bgs	W|g	conflicts	W|gbname	��gs	��g	conflicts	��g	in-order?	J
�gnames	J
�ggensyms	J
�gvals	J
�gbody	J
�gbname	[�gs	p�g	conflicts		p�gbname	��gs	��g	conflicts		��gbname	�
&gs	�
#g	conflicts		�
#gbname	
=
�gs	
^
�g	conflicts		
^
�g
base-names	
�
�gbindings	
�
�gnames	�ggensyms	�gvals	�gbody	�gbname	 ]gs	5Zg	conflicts	5Zgbname	d�gs	y�g	conflicts	y�gbname	��gs	��g	conflicts	��gbname	�/gs	,g	conflicts	,g
base-names	f�gbindings	u�gexp	�gbody	�gbname	��gs	��g	conflicts	��gwinder	/�gbody	/�gunwinder	/�gbname	<ygs	Qvg	conflicts	Qvgfluids	�<gvals	�<gbody	�<gbname	�gs	�	g	conflicts	�	gfluid	K�gbname	T�gs	i�g	conflicts	i�gfluid	�gexp	�gbname	��gs	��g	conflicts	��gtag	.�gbody	.�ghandler	.�gbname	;xgs	Pug	conflicts	Pugbname	�gs	��g	conflicts	��gtag	�gargs	�gtail	�gbname	Ogs	'Lg	conflicts	'Lgbname	V�gs	k�g	conflicts	k��gfilenamef%language/scheme/decompile-tree-il.scm�
s	��	�	
��	w	��	�	"��	w	��	w	��	x	��	�	"��	x	��	 y	��	%y	2��	+y	��	+x	��	>z	��	F�	
��	Gw	��	K�	"��	Mw	��	Mw	��	Px	��	T�	"��	Vx	��	Wy	��	\y	2��	by	��	bx	��	uz	��	}�	
����	����	
����	 ����	���I	���c	���J	!���e	����	����	����	����	����	-����	����	
���	
���	
��w	�� w	��#x	��*y	��/y	2��5y	��5x	��Hz	��P�	
��ZO	��cO	��hP	��iP	��nP	
��sQ	$��uQ	��~R	��R	���R	
����	����	����	����	,����	,���I	���c	���J	!���e	����	,����	����	����	����	����	����	
���w	����	���w	���w	���x	����	���x	���y	���y	2��y	��x	��z	��*O	��3O	��8P	��9P	��>P	
��CQ	$��EQ	��NR	��OR	��PR	
��T�	��^�	��a�	��f�	,��g�	,��lI	��pc	��sJ	!��xe	����	,����	����	����	����	����	����	0����	
���w	����	/����	;����	>���w	���w	���x	����	/����	;����	>���x	���y	���y	2���y	���x	��
z	���	
��%w	��)�	��+w	��+w	��.x	��2�	��4x	��5y	��:y	2��@y	��@x	��Ez	��iw	��q�	*��s�	6��y�	9��{w	��{w	��~x	����	*����	6����	9���x	���y	���y	2���y	���x	���z	����	?����	
���w	���w	���x	���y	���y	2���y	���x	��z	���	
��'w	��+�	��-w	��-w	��0x	��4�	��6x	��7y	��<y	2��By	��Bx	��Gz	��kw	��qw	��tx	��{y	���y	2���y	���x	���z	����	0����	
���w	���w	���x	���y	���y	2���y	���x	���z	���	;��$�	
��E�	
��Fw	��J�	��Lw	��Lw	��Ox	��S�	��Ux	��Vy	��[y	2��ay	��ax	��fz	���w	����	0���w	���w	���x	����	0���x	���y	���y	2���y	���x	���z	���w	����	���w	���w	���x	����	���x	���y	���y	2���y	���x	���z	��w	���	1��w	��w	��x	���	1��!x	��"y	��'y	2��-y	��-x	��2z	��Vw	��Z�	��\w	��\w	��_x	��c�	��ex	��fy	��ky	2��qy	��qx	��vz	���w	����	1���w	���w	���x	����	1���x	���y	���y	2���y	���x	���z	���w	����	���w	���w	���x	����	���x	���y	���y	2���y	���x	��z	��&�	
��8�	��Q�	1��Y�	
��cw	��g�	*��iw	��iw	��lx	��p�	*��rx	��sy	��xy	2��~y	��~x	���z	����	2����	
����	
����	���w	����	0���w	���w	���x	����	0���x	���y	���y	2���y	���x	���z	���	
��Mw	��Q�	��Sw	��Sw	��Vx	��Z�	��\x	��]y	��by	2��hy	��hx	��mz	����	����	
���w	����	���w	���w	���x	����	���x	���y	���y	2���y	���x	���z	���w	����	���w	���w	���x	����	��	x	��	y	��	y	2��	y	��	x	��	z	��	5w	��	9�	��	;w	��	;w	��	>x	��	B�	��	Dx	��	Ey	��	Jy	2��	Py	��	Px	��	Uz	��	}w	��	��	��	�w	��	�w	��	�x	��	��	��	�x	��	�y	��	�y	2��	�y	��	�x	��	�z	��	��	
��	�w	��	��	0��	�w	��	�w	��	�x	��	��	0��	�x	��	�y	��	�y	2��	�y	��	�x	��	�z	��
�	��
�	'��
 �	/��
&�	4��
+�	=��
0�	I��
1�	#��
;�	-��
>�	4��
C�	=��
E�	#��
G�	��
G�	
��
J�	 ��
R�	
��
U�	��
a�	
��
d�	��
x�	��
��	��
��	��
��	��
��	��
��	
��
�w	��
��	��
�w	��
�w	��
�x	��
��	��x	��y	��y	2��
y	��
x	��z	��;�	
��<w	��@�	3��Bw	��Bw	��Ex	��I�	3��Kx	��Ly	��Qy	2��Wy	��Wx	��\z	���w	����	E���w	���w	���x	����	E���x	���y	���y	2���y	���x	���z	����	
����	
����	
��
�	���	.���	���	
��'�	
��Uw	��Y�	��[w	��[w	��^x	��b�	��dx	��ey	��jy	2��py	��px	��uz	����	
���w	����	3���w	���w	���x	����	3���x	���y	���y	2���y	���x	���z	���w	����	E���w	���w	���x	����	E���x	���y	���y	2���y	���x	��
z	��
+w	��
3�	��
5�	&��
;�	/��
=w	��
=w	��
@x	��
H�	��
J�	&��
P�	/��
Rx	��
Sy	��
Xy	2��
^y	��
^x	��
cz	��
��	
��
��	
��
��	 ��
��	
��
��	��
��	
��
��	��
��	��
��	
��w	���	�� w	�� w	��#x	��'�	��)x	��*y	��/y	2��5y	��5x	��:z	��^w	��b�	��dw	��dw	��gx	��k�	��mx	��ny	��sy	2��yy	��yx	��~z	����	
���w	����	3���w	���w	���x	����	3���x	���y	���y	2���y	���x	���z	���w	����	E���w	���w	���x	����	E���x	���y	��y	2��y	��x	��z	��4�	
��H�	
��^�	 ��f�	
��i�	��u�	
��x�	����	����	
���w	����	���w	���w	���x	����	���x	���y	���y	2���y	���x	���z	����	
���	���	
��6w	��:�	��<w	��<w	��?x	��C�	��Ex	��Fy	��Ky	2��Qy	��Qx	��Vz	��z�	
����	����	-����	
���w	����	���w	���w	���x	����	���x	���y	���y	2���y	���x	���z	��
�	
��!�	
��<�	
��D�	
��Nw	��R�	)��Tw	��Tw	��Wx	��[�	)��]x	��^y	��cy	2��iy	��ix	��nz	����	5����	
���w	����	���w	���w	���x	����	���x	���y	���y	2���y	���x	���z	����	%���	5���	
��5w	��9	��;w	��;w	��>x	��B	��Dx	��Ey	��Jy	2��Py	��Px	��Uz	��yw	��}	��w	��w	���x	���	���x	���y	���y	2���y	���x	���z	���	
���	���	*����	
��w	��	��w	��w	��x	��	��x	��y	��!y	2��'y	��'x	��,z	��Pw	��T	��Vw	��Vw	��Yx	��]	��_x	��`y	��ey	2��ky	��kx	��pz	���		
���		���		3����	
���	�gnamegrecurse�Ch@�]
O
L
L	LLLLLLLLLQ6�ge
		9gbindings		9grecurse			9gfilenamef%language/scheme/decompile-tree-il.scm�
r	��	s	��		9	gnamegrecurse-with-bindings�C��h�]M6�gs
		gname		gfilenamef%language/scheme/decompile-tree-il.scm�

	��		
��			gnamegset-output-name!�C�7h@�]
4M5$"
4M5$"
�C�ga
		:gb		:gt			gt		&	8gfilenamef%language/scheme/decompile-tree-il.scm�
	��	M	'��	M	#��	M	'��	&M	#��	9	#��		:	C�7��7h~]L�Cvgt-df5d6f08a2a2c7b-6e32
		gfilenamef%language/scheme/decompile-tree-il.scm�
!	,��		Ch(�]�$�"	4M5LO6�gs*
		$gfilenamef%language/scheme/decompile-tree-il.scm�
	#��	I	��		
��	J	!��		��	$ 	%��		$C���7h~]L�Cvgt-df5d6f08a2a2c7b-6e32
		gfilenamef%language/scheme/decompile-tree-il.scm�
!	,��		Ch(�]�$�"	4M5LO6�gs*
		$gfilenamef%language/scheme/decompile-tree-il.scm�
	#��	I	��		
��	J	!��		��	$ 	%��		$C�
h��])L4M5$"�$�"	4M54LO5$^4455"84LO5$�444	555"���""���"6�gs
	�gt		!g
the-conflicts	8�gthe-source-name		8�gprefix		^�gi		d�gname		d�gfilenamef%language/scheme/decompile-tree-il.scm�
	��	h	 ��	h	��	h	=��	$I	��	(c	��	+J	!��	0e	��	8	��	=	��	P#	��	Q%	)��	T&	*��	\'	*��	^%	)��	^%	��	d(	��	e	��	x)	��	{+	)��	|,	)��	-	*���/	+���-	*���,	)���+	#���(	���	��	�Ch�]cHHHHHHO	O
OQ	Q
QK45OK45K45LOK45K45KOL	
Q4>"GH
H	OQ45K4
JO5K
4
OJ
>"GJJD�ge
	guse-derived-syntax?	gstrip-numeric-suffixes?		glexical-gensyms		gtop-level-intern!		goccurrence-count-table		g	base-name		gsource-name-table		gconflict-table		gincrement-occurrence-count!			/gset-source-name!	
	/g
add-conflict!		/gtable		L	Xgtable		f	tgrecurse-with-bindings	��goutput-name-table	�gsorted-lexical-gensyms	
�gset-output-name!	�gfilenamef%language/scheme/decompile-tree-il.scm�
?	��	EA	��	HD	��	LD	��	[L	%��	bU	��	fU	��	w[	 ��	~g	���r	���	"���	
���	��1	��		CO6RC�gm
		,g
primitive?
x�)gcompute-base-namex�)gtable	x+y�gdigits	y�|gbase-name-string	{4{�gfilenamef%language/scheme/decompile-tree-il.scm�		
��	
��x	!
��x+	��x!+	%��x'$	��x)+	%��x++	��x+$	��x.,	��x�$	��x�,	��y�3	��y�3	&��y�3	��y�3	���,
��	�.
C6language/scheme/compile-tree-il.go000064400000002251150536206120013111 0ustar00GOOF----LE-8-2.0�]4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gscheme�	gcompile-tree-il�		�	
gfilenameS�	f#language/scheme/compile-tree-il.scm�	gimportsS�	
gtree-il�	
�	�	�	gexportsS�	�	gset-current-module�	�	�	gsave-module-excursion�	gmacroexpand�	gc�	gcompile�	gload�	geval�	�	gcurrent-module�C5ho]4	
54>"Gh0�]4L>"G4L545D�gx
		0gcenv	&	0gfilenamef#language/scheme/compile-tree-il.scm�
		��			��			��			��			!��			��			��	"		��	&		��	0	 	��		0
Ch�]O6�gx
		ge		gopts			gfilenamef#language/scheme/compile-tree-il.scm�
	
��			��			gnamegcompile-tree-il�CRCggm
		,gfilenamef#language/scheme/compile-tree-il.scm�		
��	
��	
C6language/elisp/parser.go000064400000016746150536206120011304 0ustar00GOOF----LE-8-2.0�]W4hL]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	gparser�		�	
gfilenameS�	flanguage/elisp/parser.scm�	gimportsS�	
glexer�	
�	�	�	gexportsS�	g
read-elisp�	�	gset-current-module�	�	�	gerror�	gparse-error�	g
make-fluid�	gcircular-definitions�	gmake-hash-table�	gmake-circular-definitions�	gcircular-ref�	finvalid token for circular-ref�	g	hashq-ref�	 fundefined circular reference�	!gcircular-def�	"f"invalid token for circular-define!�	#g
hashq-set!�	$gmake-promise�	%$�	&$�	'gcircular-define!�	(gpromise?�	)gforce�	*gforce-promises!�	+g
vector-length�	,gfinish�	-f'lexer-buffer is not empty when finished�	.gpeek�	/gget�	0finvalid lexer-buffer action�	1gmake-lexer-buffer�	2gsquare-close�	3gparen-close�	4fgot different token than peeked�	5gget-expression�	6gget-list�	7gdot�	8glength�	9f&expected exactly one element after dot�	:gquote�	;::��	<g	backquote�	=g`�	><=��	?gunquote�	@g,�	A?@��	Bgunquote-splicing�	Cg,@�	DBC��	E;>AD�	Fgquotation-symbols�	Ggeof�	Hfend of file during parsing�	Iginteger�	Jgfloat�	Kgsymbol�	Lg	character�	Mgstring�	Ngset-source-properties!�	Ogsource-properties�	Pgfunction�	Qgassq-ref�	Rg
paren-open�	Sgsquare-open�	Tglist->vector�	Ufexpected expression, got�	Vg	get-lexer�C5h0�]4	
54>"Gh�-13@�gtoken
			gmsg			gargs				gfilenameflanguage/elisp/parser.scm�
	"
��		#	��				
	gnamegparse-error�CR4i5Rhy]6qgfilenameflanguage/elisp/parser.scm�
	3
��		4	��		
gnamegmake-circular-definitions�CR hH]�&"4>"G�4[5$C6�gtoken
		Ggid	&	Ggvalue		2	Ggfilenameflanguage/elisp/parser.scm�
	6
��		7	��		7	��		7	��		8	��		8	
��		8	��	&	9	
��	&	9	��	)	:	��	2	9	��	:	;	��	C	=	��	G	=	��		Ggnamegcircular-ref�CR!"#&hL]MCDgfilenameflanguage/elisp/parser.scm�
	I	��		
C#hu]NLL6mg
real-value
		gfilenameflanguage/elisp/parser.scm�
	J	��		K	��		L	��		C	h`	]�&"4>"G[�H44O5>"GOCgtoken
		\gvalue	*	\gtable		*	\gid		*	\gfilenameflanguage/elisp/parser.scm�
	C
��		D	��		D	��		D	��		E	��		E	
��		E	��	*	H	��	*	F	��	1	I	��	8	I	��	H	I	��
		\gnamegcircular-define!�C'R()*+h��]�$N4�5$4�5�"4�>"G4�5$
4�5�C�6�$\45"H�$=�45$45�"4>"G�"���C
"���C�gdata
	�glen	e�gi		k�gel		y�gfilenameflanguage/elisp/parser.scm�
	U
��		W	��			V	��	
	Y	
��		Y	��		Y	
��		Y	��		Z	��		Z	 ��		Z	��	 	Z	
��	%	[	
��	*	[	��	/	[	
��	8	\	
��	=	\	��	?	\	
��	C	\	��	F	]	��	K	]	 ��	M	]	��	N	]	
��	U	^	��	W	^	
��	Z	_	��	^	V	��	_	`	��	e	`	��	k	a	��	p	b	��	t	b	��	y	c	��	y	c	��	|	d	���	d	���	e	&���	e	���	f	���	g	���	g	���	a	��*	�gnamegforce-promises!�C*R,-./0hP�]	&M$6CM$"4L5N�$MC�$
MNC6�gaction
		Pgresult	@	Hgfilenameflanguage/elisp/parser.scm�
	t	��		u	��	
	u	��		v	
��		w	��		w	��		z	��	#	{	!��	)	{	��	2	|	��	@		��	E�	��	L�	��	P�	��		PCh�]	HOC�glex
		g
look-ahead		gfilenameflanguage/elisp/parser.scm�
	r
��		s	��		gnamegmake-lexer-buffer�C1R.23/456789
h��]#45�$"&&45�&"4>"GC"4545�C$e	&Y45�&"4>"G454
5�$"4>"G�C"��y"��u�glex
	�g	allow-dot	�gclose-square		�gnext			�gtype		�ghead		U	jgtail		b	jgtail	��gfilenameflanguage/elisp/parser.scm�
�
��	�	��	�	��		�	��		�	��	�	��	�	��	�	��	�	!��	 �	/��	$�	��	%�	��	)�	 ��	+�	��	,�	��	2�	��	7�	��	;�	��	@�	��	I�	��	O�	��	U�	��	X�	��	b�	��	i�	��	j�	��	t�	��	x�	��	y�	��	}�	 ��	�	����	����	����	����	����	����	����	����	����	����	
����	����	����	����	
��.	�	gnamegget-list�C6REFR/GHIJKLMNOP5:<?BQFR6ST!'*Uh�]!45��$6�$"/�$"!�$"�$"	�$,��$4
45>"G"C�$54
5�$4
45>"G"C�$"!�$"�$"�$<454
5�$4
45>"G"C�$245�$4
45>"G"C�$74455�$4
45>"G"C�$6�$9454
54>"G4>"GC6�glex
	gtoken		gtype		gresult		e�gresult	��gresult	;gresult	Mvgresult	��gsetter	�gexpr	�
gfilenameflanguage/elisp/parser.scm�
�
��	�	��	�	��		�	��		�	��	�	��	�	��	�	��	�	��	!�	��	*�	��	e�	��	e�	��	j�	��	n�	��	o�	��	t�	��	�	����	����	����	����	����	����	����	����	����	����	����	���	��	�	���	���	���	���	���	��!�	��,�	��D�	��E�	��M�	��R�	��V�	��W�	��\�	��g�	���	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����		����		��
�	���	��D	gnamegget-expression�C5RV1.G5,	hXd]!45Y454545�&�"454>"GZCZF\gport
		Wglexer		Sglexbuf			Sgnext		$	Sgresult		=	Sgfilenameflanguage/elisp/parser.scm�
�
��	�	&��	�	��	�	��	�	��	�	��	�	��	"�	��	$�	��	$�	��	)�	��	+�	��	/�	��	2�	
��	7�	��	=�	
��	@�	��	D�	��	I�	��		Wgnameg
read-elisp�CRC�gm
		,gfilenameflanguage/elisp/parser.scm�		
��	"
��	1	��
	1
���	3
��
	6
���	C
��h	U
��
u	r
��#�
��%�	��(�
��F�
��'�
��	)
C6language/elisp/runtime/macros.go000064400000022453150536206120012747 0ustar00GOOF----LE-8-2.0%]n4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	gruntime�		gmacros�	
	�	gfilenameS�	f!language/elisp/runtime/macros.scm�	
gimportsS�	�	�	�	gset-current-module�	�	�	g
make-fluid�	�	�	gmacro�	gfunction�	glambda�	gmacro-lambda�	gcall-with-deferred-observers�	�	�	gmodule-export!�	�	 �	!gcurrent-module�	"!�	#!�	$�	%ggensym�	&glexical-let�	'gappend�	('�	)'�	*gmacro-prog1�	+*�	,gprogn�	-gprog1�	.gmacro-prog2�	/.�	0gif�	1gnil�	21�	3g
macro-when�	43�	5gmacro-unless�	65�	7gmacro-error�	8finvalid clause in cond�	9g
macro-cond�	:9�	;gt�	<g	macro-and�	=<�	>gmacro-or�	?>�	@glength�	Afinvalid dotimes arguments�	Bf#expected symbol as dotimes variable�	Cglet�	D
�	Egwhile�	Fgguile-primitive�	Gg<�	HFG�	Igsetq�	Jg1+�	KFJ�	Lg
macro-dotimes�	ML�	Nfinvalid dolist arguments�	Ognot�	PFO�	Qgnull?�	RFQ�	Sgcar�	TFS�	Ugcdr�	VFU�	Wf"expected symbol as dolist variable�	Xgmacro-dolist�	YX�	Zfcatch with empty body�	[gcatch�	\F[�	]gwith-always-lexical�	^geq�	_gthrow�	`F_�	agmacro-catch�	ba�	cf#unwind-protect without cleanup code�	dgdynamic-wind�	eFd�	f1�	ggmacro-unwind-protect�	hg�	ig	macro-pop�	ji�	kgcons�	lg
macro-push�	ml�C5h�]4

54>"G4hp-13�Chgcdr
			gfilenamef!language/elisp/runtime/macros.scm�
		��			��			


C�5R4 #$hS]456Kgfilenamef!language/elisp/runtime/macros.scm�
	
��		
C>"G4%&)h0�-134545��C�gform1
			+grest			+gtemp			+gfilenamef!language/elisp/runtime/macros.scm�
	%	��	
	&	��		&	��		'	��			+
C�5*R4 #+hS]456Kgfilenamef!language/elisp/runtime/macros.scm�
	$
��		
C>"G4,-h �-13��C�gform1
			gform2			grest				gfilenamef!language/elisp/runtime/macros.scm�
	,	��		-	��				
	C�5.R4 #/hS]456Kgfilenamef!language/elisp/runtime/macros.scm�
	+
��		
C>"G40,2h�-13����C�g	condition
			gthens			gfilenamef!language/elisp/runtime/macros.scm�
	2	��		3	��			
C�53R4 #4hS]456Kgfilenamef!language/elisp/runtime/macros.scm�
	1
��		
C>"G401,h�-13�C�g	condition
			gelses			gfilenamef!language/elisp/runtime/macros.scm�
	6	��		7	��			
C�55R4 #6hS]456Kgfilenamef!language/elisp/runtime/macros.scm�
	5
��		
C>"G4178%&0,hp~](C�4L�5�$�"$6�(#45�C���Cvgtail
		pgcur		pgrest			pgvar		A	_gfilenamef!language/elisp/runtime/macros.scm�
	@	��		A	��	
	B	
��		C	��		D	��		D	��		D	��		C	
��		F	!��	!	F	��	$	F	.��	)	F	��	-	E	��	1	G	 ��	5	G	��	8	H	��	<	E	��	=	I	��	A	I	��	E	J	��	J	J	+��	M	J	��	a	O	��	d	O	��	f	O	��	i	P	!��	j	O	��		pgnamegiterate�Ch �-13OQ6�gclauses
			giterate		gfilenamef!language/elisp/runtime/macros.scm�
	?	��		@	��			


C�59R4 #:hS]456Kgfilenamef!language/elisp/runtime/macros.scm�
	>
��		
C>"G4;02h �](C4L��5���C�gx
		 gtail		 gfilenamef!language/elisp/runtime/macros.scm�
	Z	��		[	��	
	]	��		^	��		^	��		^	%��		^	��		]	��			 	gnamegiterate�Ch8�)3C)3C-13OQ6�gx
		gx
	!	6gargs	!	6giterate		)	6gfilenamef!language/elisp/runtime/macros.scm�
	V	��		W	��		V	��	)	Z	��			
			!	6
C�5<R4 #=hS]456Kgfilenamef!language/elisp/runtime/macros.scm�
	U
��		
C>"G41%&0h8�]
(C454L��5C�gx
		6gtail		6gvar			6gfilenamef!language/elisp/runtime/macros.scm�
	f	��		g	��		i	��		i	��		j	
��	%	m	��	*	m	��	-	m	)��	/	m	��	2	j	
��		6	gnamegiterate�Ch8�)3C)3C-13OQ6�gx
		gx
	!	6gargs	!	6giterate		)	6gfilenamef!language/elisp/runtime/macros.scm�
	b	��		c	��		b	��	)	f	��			
			!	6
C�5>R4 #?hS]456Kgfilenamef!language/elisp/runtime/macros.scm�
	a
��		
C>"G4@7ABCDEH)IKh��-13�$(45	�$"
45	�"$6����$"4>"G�4	
5��45	�$���"���C�gargs
		�gbody		�gt			4gvar		L�gcount		L�gfilenamef!language/elisp/runtime/macros.scm�
	r	��		t	��		s	��		u	��		u	��		s	��	(	v	��	1	v	��	9	t	��	=	s	��	A	w	��	E	w	��	H	x	��	K	y	��	L	x	��	S	z	��	W	z	
��	\	{	��	`	{	��	e	{	��	o	|	
����	����	����	����	����	����	���	|	
��		�
C�5LR4 #MhS]456Kgfilenamef!language/elisp/runtime/macros.scm�
	q
��		
C>"G4@7N%C&EPRIT)VWh��-13�$(45	�$"
45	�"$6���45�$l	
4

5���45	�$���"���C6�gargs
		�gbody		�gt			4gvar		Q�g	iter-list		Q�gtailvar		Q�gfilenamef!language/elisp/runtime/macros.scm�
�	��	�	��	�	��	�	��	�	��	�	��	(�	��	1�	��	9�	��	=�	��	A�	��	E�	��	H�	��	K�	��	M�	��	Q�	��	Z�	��	^�	
��	`�	����	����	����	����	����	����	����	����	����	��		�
C�5XR4 #YhT]456Lgfilenamef!language/elisp/runtime/macros.scm�
�
��		
C>"G47Z%&\]0^`h��-13(4>"G"45��454545	
C~gtag
		�gbody		�gtagsym		*�g	dummy-key		G�g	elisp-key		N�gvalue		U�garglist		`�gfilenamef!language/elisp/runtime/macros.scm�
�	��	�	��	�	��	�	��	�	��	&�	��	*�	��	.�	��	C�	��	G�	��	J�	��	N�	��	Q�	��	U�	��	`�	��	`�	��	d�	
����	��		�
C�5aR4 #bhT]456Lgfilenamef!language/elisp/runtime/macros.scm�
�
��		
C>"G47cefh@�-13(4>"G"��C�gbody
			<g	clean-ups			<gfilenamef!language/elisp/runtime/macros.scm�
�	��	�	��	�	��	�	��	�	��	'�	��			<
C�5gR4 #hhT]456Lgfilenamef!language/elisp/runtime/macros.scm�
�
��		
C>"G4-SIUh v]Cng	list-name
		gfilenamef!language/elisp/runtime/macros.scm�
�	��	�	��		C�5iR4 #jhT]456Lgfilenamef!language/elisp/runtime/macros.scm�
�
��		
C>"G4Ikh�]C�gnew-el
		g	list-name		gfilenamef!language/elisp/runtime/macros.scm�
�	��	�	��			C�5lR #mhT]456Lgfilenamef!language/elisp/runtime/macros.scm�
�
��		
C6�gm
		(gfilenamef!language/elisp/runtime/macros.scm�		
��	)	
��Y	$
���	+
��9	1
���	5
���	>
��
)	U
���	a
���	q
����
����
����
��z�
����
��	�
C6language/elisp/runtime/value-slot.go000064400000000751150536206120013553 0ustar00GOOF----LE-8-2.0�]4h]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	gruntime�		g
value-slot�	
	�	gfilenameS�	f%language/elisp/runtime/value-slot.scm�	
gset-current-module�	
�	
�C5h(g]4
54>"GC_gm
	
	$gfilenamef%language/elisp/runtime/value-slot.scm�
	
��		$
C6language/elisp/runtime/function-slot.go000064400000007034150536206120014265 0ustar00GOOF----LE-8-2.0]�4hx]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	gruntime�		g
function-slot�	
	�	gfilenameS�	f(language/elisp/runtime/function-slot.scm�	
g
duplicatesS�	glast�	�	gimportsS�	gsubrs�	�	�	gmacros�	�	gselectS�	gmacro-lambda�	glambda�	��	gmacro-prog1�	gprog1�	��	gmacro-prog2�	gprog2�	��	 g
macro-when�	!gwhen�	" !��	#gmacro-unless�	$gunless�	%#$��	&g
macro-cond�	'gcond�	(&'��	)g	macro-and�	*gand�	+)*��	,gmacro-or�	-gor�	.,-��	/g
macro-dotimes�	0gdotimes�	1/0��	2gmacro-dolist�	3gdolist�	423��	5gmacro-catch�	6gcatch�	756��	8gmacro-unwind-protect�	9gunwind-protect�	:89��	;g	macro-pop�	<gpop�	=;<��	>g
macro-push�	?gpush�	@>?��	A"%(+.147:=@�	BA�	Cgcompile-tree-il�	DC�	Eg
compile-progn�	Fgprogn�	GEF��	Hg
compile-if�	Igif�	JHI��	Kgcompile-defconst�	Lgdefconst�	MKL��	Ngcompile-defvar�	Ogdefvar�	PNO��	Qgcompile-setq�	Rgsetq�	SQR��	Tgcompile-let�	Uglet�	VTU��	Wgcompile-lexical-let�	Xglexical-let�	YWX��	Zgcompile-flet�	[gflet�	\Z[��	]gcompile-let*�	^glet*�	_]^��	`gcompile-lexical-let*�	aglexical-let*�	b`a��	cg
compile-flet*�	dgflet*�	ecd��	fgcompile-with-always-lexical�	ggwith-always-lexical�	hfg��	igcompile-guile-ref�	jg	guile-ref�	kij��	lgcompile-guile-primitive�	mgguile-primitive�	nlm��	og
compile-while�	pgwhile�	qop��	rgcompile-function�	sgfunction�	trs��	ug
compile-defun�	vgdefun�	wuv��	xgcompile-defmacro�	ygdefmacro�	zxy��	{g	compile-`�	|g`�	}{|��	~g
compile-quote�	gquote��~���GJMPSVY\_behknqtwz}���D���B���g
re-exportsS��geq��gequal��gfloatp��gintegerp��gnumberp��g	wholenump��gzerop��g=��g/=��g<��g<=��g>��g>=��gmax��gmin��gabs��gfloat��g1+��g1-��g+��g-��g*��g%��gffloor��gfceiling��g	ftruncate��gfround��gconsp��gatomp��glistp��gnlistp��gnull��gcar��gcdr��gcar-safe��gcdr-safe��gnth��gnthcdr��glength��gcons��glist��g	make-list��gappend��greverse��g	copy-tree��gnumber-sequence��gsetcar��gsetcdr��gsymbol-value��gsymbol-function��gset��gfset��g
makunbound��gfmakunbound��gboundp��gfboundp��gapply��gfuncall��gthrow��gnot��geval��gload��FILORUX[^adgjmpsvy|!$'*-0369<?��������������������������������������������������������������`��gset-current-module�������C5h0j]4

���5	4�>"GCbgm
		0gfilenamef(language/elisp/runtime/function-slot.scm�
	
��		0
C6language/elisp/runtime/subrs.go000064400000056465150536206120012633 0ustar00GOOF----LE-8-2.0]]�4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	gruntime�		gsubrs�	
	�	gfilenameS�	f language/elisp/runtime/subrs.scm�	
gimportsS�	�	�	gsystem�	gbase�	gcompile�	�	�	�	gset-current-module�	�	�	g
elisp-bool�	geq�	gcall-with-deferred-observers�	�	�	gmodule-export!�	�	 �	!gcurrent-module�	"!�	#!�	$�	%gequal�	&%�	'greal?�	(ginexact?�	)ginteger?�	*gfloatp�	+*�	,gexact?�	-gintegerp�	.-�	/gnumberp�	0/�	1g	wholenump�	21�	3gzerop�	43�	5g=�	65�	7g/=�	87�	9g<�	:9�	;g<=�	<;�	=g>�	>=�	?g>=�	@?�	Agmax�	BA�	CA�	DA�	Egmin�	FE�	GE�	HE�	Igabs�	JI�	KI�	LI�	Mgexact->inexact�	Ngfloat�	ON�	Pg1+�	QP�	RP�	SP�	Tg1-�	UT�	VT�	WT�	Xg+�	YX�	ZX�	[X�	\g-�	]\�	^\�	_\�	`g*�	a`�	b`�	c`�	dgmodulo�	eg%�	fe�	ggfloor�	hg�	ig�	jgffloor�	kj�	lgceiling�	ml�	nl�	ogfceiling�	po�	qgtruncate�	rq�	sq�	tg	ftruncate�	ut�	vground�	wv�	xv�	ygfround�	zy�	{gconsp�	|{�	}gatomp�	~}�	glistp����gnlistp�����gnull�����g	nil-value��gcar�����gcdr�����gcar-safe�����gcdr-safe�����gnth�����gnthcdr�����glength�����������gcons�����������glist�����������g	make-list�����������gappend�����������greverse�����������g	copy-tree�����������g
runtime-error��f&too many arguments for number-sequence��f infinite list in number-sequence��gnumber-sequence�����gsetcar�����gsetcdr�����greference-variable��gvalue-slot-module��gsymbol-value�����gfunction-slot-module��gsymbol-function�����g
set-variable!��gset�����gfset�����g
module-bound?��gresolve-interface��gmodule-variable��gresolve-module��gfluid?��gfluid-unset!��gvariable-unset!��g
makunbound�����gfmakunbound�����gfluid-bound?��gboundp�����gfboundp�����glambda��gfromS��gtoS��gvalue��flist is not a function��gapply�����������gfuncall�����gthrow��������gelisp-exception�����gt-value��gnot�����geval�����gcompile-file��gload����C5hM{]4

54>"Gh�]�6�ga
		gb		gfilenamef language/elisp/runtime/subrs.scm�
	 	��			!	��		!	��			gnamegeq�CR4 #$hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	
��		
C>"Gh�]�6�ga
		gb		gfilenamef language/elisp/runtime/subrs.scm�
	$	��			%	��		%	��			gnamegequal�C%R4 #&hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	#
��		
C>"G'()h8�]	45$$45$"45�"6�gnum
		6gt		/gfilenamef language/elisp/runtime/subrs.scm�
	*	��		+	��		+	��		,	��		,	��	%	-	#��	,	-	��	6	+	��			6gnamegfloatp�C*R4 #+hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	)
��		
C>"G,)h �]45$45"6�gnum
		gfilenamef language/elisp/runtime/subrs.scm�
	0	��		1	��		1	��		2	��		1	��		gnamegintegerp�C-R4 #.hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	/
��		
C>"G'h�]456�gnum
		
gfilenamef language/elisp/runtime/subrs.scm�
	5	��		6	��	
	6	��		
gnamegnumberp�C/R4 #0hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	4
��		
C>"G,)h0�]45$45$
�""6�gnum
		*gfilenamef language/elisp/runtime/subrs.scm�
	9	��		:	��		:	��		;	��		:	��		<	��	*	:	��		*gnameg	wholenump�C1R4 #2hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	8
��		
C>"Gh�]
�6gnum
		
gfilenamef language/elisp/runtime/subrs.scm�
	?	��		@	��	
	@	��		
gnamegzerop�C3R4 #4hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	>
��		
C>"Gh�]�6�gnum1
		gnum2		gfilenamef language/elisp/runtime/subrs.scm�
	E	��			F	��		F	��			gnameg=�C5R4 #6hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	D
��		
C>"Gh�]��6�gnum1
		gnum2		gfilenamef language/elisp/runtime/subrs.scm�
	I	��			J	��	
	J	��		J	��			gnameg/=�C7R4 #8hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	H
��		
C>"Gh�]�6�gnum1
		gnum2		gfilenamef language/elisp/runtime/subrs.scm�
	M	��			N	��		N	��			gnameg<�C9R4 #:hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	L
��		
C>"Gh�]�6�gnum1
		gnum2		gfilenamef language/elisp/runtime/subrs.scm�
	Q	��			R	��		R	��			gnameg<=�C;R4 #<hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	P
��		
C>"Gh�]�6�gnum1
		gnum2		gfilenamef language/elisp/runtime/subrs.scm�
	U	��			V	��		V	��			gnameg>�C=R4 #>hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	T
��		
C>"Gh�]�6�gnum1
		gnum2		gfilenamef language/elisp/runtime/subrs.scm�
	Y	��			Z	��		Z	��			gnameg>=�C?R4 #@hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	X
��		
C>"GCh�-13@xgnums
			gfilenamef language/elisp/runtime/subrs.scm�
	]	��		^	��			


gnamegmax�CAR4 #DhR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	\
��		
C>"GGh�-13@xgnums
			gfilenamef language/elisp/runtime/subrs.scm�
	a	��		b	��			


gnamegmin�CER4 #HhR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	`
��		
C>"GKIR4 #LhR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	d
��		
C>"G,Mh�]45$6C�gnum
		gfilenamef language/elisp/runtime/subrs.scm�
	j	��		k	��	
	k	��		l	��		gnamegfloat�CNR4 #OhR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	i
��		
C>"GRPR4 #ShR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	s
��		
C>"GVTR4 #WhR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	u
��		
C>"GZXR4 #[hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	w
��		
C>"G^\R4 #_hR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	y
��		
C>"Gb`R4 #chR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	{
��		
C>"GdieR4 #fhR]456Jgfilenamef language/elisp/runtime/subrs.scm�
	}
��		
C>"GijR4 #khS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"GnoR4 #phS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"GstR4 #uhS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"GxyR4 #zhS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"Gh�]�6�gel
			gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��		�	��			gnamegconsp�C{R4 #|hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"Gh�]��6�gel
		
gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��	�	��	
�	��		
gnamegatomp�C}R4 #~hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"Gh�]�$"�6�gel
		gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��	�	��	�	��	�	��	�	��		gnameglistp�CR4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"Gh�]�$"��6�gel
		gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��	�	��	�	��	�	��	�	��		gnamegnlistp�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"Gh�]�6�gel
			gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��		�	��			gnamegnull�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G�h�](C�Cgel
		gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��	�	��		gnamegcar�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G�h�](C�Cgel
		gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��	�	��		gnamegcdr�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G�h�]�$�CC�gel
		gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��		�	��	�	��		gnamegcar-safe�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G�h�]�$�CC�gel
		gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��		�	��	�	��		gnamegcdr-safe�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G�hH]
�$�C"#(C
�$�C��"���"���
gn
		Aglst		Agi			5gtail			5gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��	
�	��	
�	��	�	��	�	
��	�	��	#�	
��	&�	��	*�	��	-�	&��	5�	��	5�	��		A	gnamegnth�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G�h@]
�$C""(C
�$C��"���"����gn
		?glst		?gi			3gtail			3gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��	
�	��	�	��	�	
��	�	��	"�	
��	(�	��	+�	&��	3�	��	3�	��		?	gnamegnthcdr�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G��R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G��R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G��R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G�h�]6�glen
		
gobj		
gfilenamef language/elisp/runtime/subrs.scm�
�	��	�	��		
	gnameg	make-list�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G��R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G��R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G��R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"G����K�h�-1345	�$���6(C���$"���$"���$"�$C"W���$C"!�$�C��"���4�545���"���
�$�$"���6"����gfrom
		�grest		�gt		5	Lgto		Y�gsep		Y�gt		b	wgi	��gresult	��gfilenamef language/elisp/runtime/subrs.scm�
�	��	
�	��	�	��	�	��	�	��	�	��	"�	��	(�	��	-�	��	1�	��	4�	&��	5�	��	5�	��	G�	.��	I�	��	P�	��	X�	��	Y�	��	b�	��	b�	��	t�	'��	{�	����	9����	����	(����	����	����	;����	���	���	���	���	���	���	����	����	3����	9����	3���	3����	-����	'����	!���	&����	����	����	����	����	+����	����	����	��5		�
gnamegnumber-sequence�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
�
��		
C>"Gh(�](("�"�C�gcell
		#gval		#gfilenamef language/elisp/runtime/subrs.scm�

	��		��		��	
	��		#	gnamegsetcar�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
	
��		
C>"Gh(�](("�"�C�gcell
		#gval		#gfilenamef language/elisp/runtime/subrs.scm�
	��		��		��		��		#	gnamegsetcdr�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�

��		
C>"G��h�]6�gsym
		
gfilenamef language/elisp/runtime/subrs.scm�
	��	
	��		
gnamegsymbol-value�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�

��		
C>"G��h�]6�gsym
		
gfilenamef language/elisp/runtime/subrs.scm�
	��	
	��		
gnamegsymbol-function�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�

��		
C>"G��h�]6�gsym
		gvalue		gfilenamef language/elisp/runtime/subrs.scm�
"	��	#	��			gnamegset�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
!
��		
C>"G��h�]6�gsym
		gvalue		gfilenamef language/elisp/runtime/subrs.scm�
&	��	'	��			gnamegfset�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
%
��		
C>"G��������	h�1]	4455$i4455$945$4>"G"4>"G"4>"G"C)gsym
	�gvar	"	ygfilenamef language/elisp/runtime/subrs.scm�
*	��	+	��	+	��	+	��	+	��	,	��	,	"��	",	��	",	��	'.	��	+.	��	,.	'��	1.	/��	3.	'��	7.	��	8/	��	=/	��	B/	��	O0	��	�gnameg
makunbound�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
)
��		
C>"G��������	h�2]	4455$i4455$945$4>"G"4>"G"4>"G"C*gsym
	�gvar	"	ygfilenamef language/elisp/runtime/subrs.scm�
4	��	5	��	5	��	5	��	5	��	6	��	7	��	"6	��	"6	��	'9	��	+9	
��	,9	)��	19	1��	39	)��	79	��	8:	��	=:	��	B:	��	O;	��	�gnamegfmakunbound�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
3
��		
C>"G�������	hX+]	4455$<4455$45$45"""6#gsym
		Ugvar	$	Ngfilenamef language/elisp/runtime/subrs.scm�
?	��	B	��	B	��	B	��	A	��	C	��	C	"��	$C	��	$C	��	)E	
��	-E	��	.F	��	3F	��	5F	��	9F	
��	:G	��	?G	��	AG	��	U@	��		Ugnamegboundp�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
>
��		
C>"G�������	hX,]	4455$<4455$45$45"""6$gsym
		Ugvar	$	Ngfilenamef language/elisp/runtime/subrs.scm�
K	��	N	��	N	��	N	��	M	��	O	��	O	#��	$O	��	$O	��	)Q	��	-Q	��	.R	��	3R	��	5R	��	9R	��	:S	��	?S	��	AS	��	UL	��		Ugnamegfboundp�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
J
��		
C>"G���������hhN-13�$
45">�$5("��$45"	4	
5"@Fgfunc
			egargs			eg	real-func		[	egfilenamef language/elisp/runtime/subrs.scm�
Z	��	\	��	[	��	]	��	 ^	��	$[	��	*_	��	2`	%��	4`	5��	5`	 ��	9_	��	:a	��	Ba	0��	Fa	<��	Ha	��	Mb	��	Qb	*��	Ub	��	[[	��	ee	��			e
gnamegapply�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
Y
��		
C>"G�h�-136�gfunc
			gargs			gfilenamef language/elisp/runtime/subrs.scm�
h	��	i	��			
gnamegfuncall�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
g
��		
C>"G��h�]6�gtag
		gvalue		gfilenamef language/elisp/runtime/subrs.scm�
n	��	o	��	o	��	o	��			gnamegthrow�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
m
��		
C>"G��h}]$CCugx
		gfilenamef language/elisp/runtime/subrs.scm�
t	��	u	��		gnamegnot�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
s
��		
C>"G���h�]6�gform
		gfilenamef language/elisp/runtime/subrs.scm�
x	��	
y	��	y	%��	y	��		gnamegeval�C�R4 #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
w
��		
C>"G����h �]4>"GC�gfile
		gfilenamef language/elisp/runtime/subrs.scm�
|	��	}	��	}	��	}	*��	}	��		gnamegload�C�R #�hS]456Kgfilenamef language/elisp/runtime/subrs.scm�
{
��		
C6sgm
		(gfilenamef language/elisp/runtime/subrs.scm�		
���	
��	#
���	)
��	/
��L	4
���	8
��		>
��
A	D
���	H
���	L
��
	P
��I	T
���	X
���	\
���	`
��t	d
���	i
��D	s
���	u
��d	w
���	y
���	{
��	}
����
��5�
����
��U�
����
����
��'�
����
�� ��
��!��
��#�
��$X�
��%��
��'��
��)n�
��)��
��*��
��+�
��,a�
��,��
��-}�
��.
�
��2��
��4	
��5y
��6�
��7�
��9=!
��:�%
��<�)
��?E3
��Av>
��C�J
��FY
��GZg
��H�m
��I�s
��K&w
��L�{
��@	M
C6language/elisp/spec.go000064400000002075150536206120010730 0ustar00GOOF----LE-8-2.0%](4h]]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	gspec�		�	
gfilenameS�	flanguage/elisp/spec.scm�	gimportsS�	
gcompile-tree-il�	
�	�	gparser�	�	�	gsystem�	gbase�	�	�	�	gexportsS�	�	gset-current-module�	�	�	ginvalidate-compilation-cache!�	g
make-language�	gnameS�	 gtitleS�	!f
Emacs Lisp�	"greaderS�	#g
read-elisp�	$gprinterS�	%gwrite�	&g	compilersS�	'gtree-il�C5h�{]4	
54>"G4i>"G4i !"#hv]6ngport
		genv		gfilenameflanguage/elisp/spec.scm�
		��			!��			C$%i&'
i�5
RCsgm
		,gfilenameflanguage/elisp/spec.scm�		
��	-	
��	K		���		���	
��	�
C6language/elisp/bindings.go000064400000011010150536206120011560 0ustar00GOOF----LE-8-2.0�]/4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	gbindings�		�	
gfilenameS�	flanguage/elisp/bindings.scm�	gexportsS�	
g
make-bindings�	gmark-global-needed!�	gmap-globals-needed�	gwith-lexical-bindings�	gwith-dynamic-bindings�	gget-lexical-binding�	
�	gset-current-module�	�	�	gmake-record-type�	gneeded-globals�	glexical-bindings�	�	g
bindings-type�	grecord-constructor�	gmake-hash-table�	grecord-accessor�	g	assoc-ref�	 gmemq�	!g
assoc-set!�	"grecord-modifier�	#ghash-ref�	$gand-map�	%gsymbol?�	&gerror�	'fcan't bind non-symbols�	(gfor-each�	)g	hash-set!�	*g
make-fluid�	+gwith-fluids*�	,gmap�	-gwith-symbol-bindings�	.f#invalid targets for lexical binding�C5hH
�]4	
54>"G4i5Rh�]45456gfilenameflanguage/elisp/bindings.scm�
	1
��		2	��	
	2	&��		2	*��		2	��		
gnameg
make-bindings�C
R !"hh�]#445545$"45$"�45456�gbindings
		egsym		egmodule			eg
old-needed			egt			-g
old-in-module		-	eg
new-in-module		G	eg
new-needed		T	egfilenameflanguage/elisp/bindings.scm�
	7
��		8	��		8	��	
	8	5��		8	��		8	��		8	��		:	��		:	��	*	:	:��	-	8	��	0	;	��	<	;	��	G	=	��	G	8	��	J	>	��	T	8	��	W	?	��	]	?	$��	_	?	��	e	?	��		e	gnamegmark-global-needed!�CRh�']B4455"`(C����"$(	"$�4�5	�	"���	"���"���"���gbindings
	�gproc	�gneeded		�gmod-tail			vg
mod-result			vgaentry		%	ngmodule		*	kgsymbols		/	hgsym-tail		5	Yg
sym-result			5	Y
gfilenameflanguage/elisp/bindings.scm�
	F
��		G	��		G	��	
	G	0��		G	��		G	��		G	��		I	��		K	��	"	N	��	%	O	��	%	O	��	*	P	��	*	O	��	/	Q	��	/	O	��	5	R	
��	;	T	��	D	V	$��	E	W	*��	L	W	7��	N	W	*��	Q	W	$��	Y	V	��	Y	R	
��	v	M	
��	v	I	��	y	J	&���	I	��	�	gnamegmap-globals-needed�CR#h0]445545$[CC�gbindings
		*gsym		*glex			*gslot			*gfilenameflanguage/elisp/bindings.scm�
	]
��		^	��		^	��	
	^	.��		^	��		^	��		^	��		`	��		^	��	$	a	��		*	gnamegget-lexical-binding�CR$%&'(#)*h �]4L5$CL456xgsym
		gfilenameflanguage/elisp/bindings.scm�
	n	��		o	��		o	��		p	'��		p	��		C+,#hh]L6`gsym
		
gfilenameflanguage/elisp/bindings.scm�
	r	��	
	r	%��		
C
hx_]�$45�"$4>"G"44554	O>"G
4O56Wgbindings
		sgsyms		sgtargets			sgproc			sglex		B	sgfilenameflanguage/elisp/bindings.scm�
	h
��		i	��			i	��	
	j	��		j	
��		i	
��		i	��		k	��	!	k	
��	(	k	��	5	l	
��	6	l	��	<	l	-��	>	l	��	B	l	
��	B	l	��	E	n	��	`	r	��	s	r	��		s	gnamegwith-symbol-bindings�C-R$%&.-h0]�$45�"$66�gbindings
		0gsyms		0gtargets			0gproc			0gfilenameflanguage/elisp/bindings.scm�
	v
��		w	��			w	��	
	x	��		x	
��		w	
��		w	��	 	y	
��	$	y	��	0	z	��		0	gnamegwith-lexical-bindings�CR-,h_]CWgel
		gfilenameflanguage/elisp/bindings.scm�
		��		Ch�]456�gbindings
		gsyms		gproc			gfilenameflanguage/elisp/bindings.scm�
	|
��				��		}	��			gnamegwith-dynamic-bindings�CRC�gm
		(gfilenameflanguage/elisp/bindings.scm�		
��	)	,	��	/	,	��	1	,	��	3	,	��	6	+
���	1
��9	7
��	F
��K	]
��
�	h
���	v
��
E	|
��	
G
C6language/elisp/runtime.go000064400000015734150536206120011467 0ustar00GOOF----LE-8-2.0�]�4h|]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	gruntime�		�	
gfilenameS�	flanguage/elisp/runtime.scm�	gexportsS�	
g	nil-value�	gt-value�	gvalue-slot-module�	gfunction-slot-module�	g
elisp-bool�	g
ensure-fluid!�	greference-variable�	g
set-variable!�	g
runtime-error�	gmacro-error�	g
built-in-func�	gbuilt-in-macro�	g
defspecial�	gprim�	
�	gset-current-module�	�	�	g
value-slot�	 �	!g
function-slot�	"!�	#gerror�	$gresolve-interface�	%gresolve-module�	&gmodule-defined?�	'gmake-unbound-fluid�	(gmodule-define!�	)gmodule-export!�	*g
module-ref�	+gmodule-set!�	,gmake-syntax-transformer�	-,�	.,�	/gmacro�	0g$sc-dispatch�	10�	20�	3gany�	4333�	5g
syntax-object�	6gbegin�	7gtop�	87�	9gribcage�	:gdummy�	;gname�	<gvalue�	=:;<�	>gm-9d4fb909439-25�	?>7�	@?88�	Afl-9d4fb909439-2a�	Bfl-9d4fb909439-2b�	Cfl-9d4fb909439-2c�	DABC�	E9=@D�	F9�	Ggx�	HG�	I?�	Jfl-9d4fb909439-27�	KJ�	L9HIK�	M8EFL�	Nghygiene�	ON�	P56MO�	Qg
define-public�	R5QMO�	Sgsyntax-violation�	TS�	US�	Vf-source expression failed to match any pattern�	Wg
datum->syntax�	Xgmap�	Ygidentifier?�	Zg
syntax->datum�	[gidentity�	\gstring->symbol�	]g
string-append�	^gsymbol->string�	_gmake-id�	`g_�	a`33�	bgmacro-�	cgscheme-name�	dc�	e8�	ffl-9d4fb909439-44�	gf�	h9deg�	i;<�	j88�	kfl-9d4fb909439-3e�	lfl-9d4fb909439-3f�	mkl�	n9ijm�	ofl-9d4fb909439-3b�	po�	q9Hep�	r8FhnFq�	s56rO�	t5QrO�	ug
make-fluid�	v5urO�	wgcons�	x5wrO�	ygquote�	z5yrO�	{5/rO�	|z{�	}geach-any�	~3}��	3~���`���gcompile-��fl-9d4fb909439-52�����9de���gargs��gbody��;����888��fl-9d4fb909439-4a��fl-9d4fb909439-4b��fl-9d4fb909439-4c�������9�����fl-9d4fb909439-47�����9He���8F��F���56�O��gdefine��5��O��5u�O��5w�O��5y�O��gspecial-operator��5��O������glambda��5��O��g@��gsym��:����gm-9d4fb909439-55���7���88��fl-9d4fb909439-5a��fl-9d4fb909439-5b��fl-9d4fb909439-5c�������9��������fl-9d4fb909439-57�����9H����8�F���5��O��5�O����C5h��]4	
54>"G
RR R"R#h�-13@�gmsg
			gargs			gfilenameflanguage/elisp/runtime.scm�
	5
��		6	��			
gnamegmacro-error�CRiR
h{]$CCsgb
		gfilenameflanguage/elisp/runtime.scm�
	<
��		=	��		gnameg
elisp-bool�CR$%&'()hP]454545$C454>"G6gmodule
		Kgsym		Kgintf			Kgresolved			Kgfluid		(	Kgfilenameflanguage/elisp/runtime.scm�
	G
��		H	��	
	I	��		H	��		J	
��	!	J	��	$	K	��	(	K	��	+	L	
��	I	M	#��	K	M	
��		K	gnameg
ensure-fluid!�CR%*h@�]
45�$64>"G45[C�gmodule
		;gsym		;gresolved				;gfilenameflanguage/elisp/runtime.scm�
	O
��		P	��			P	��		R	��		Q	��		S	��		U	��	1	V	��			;	gnamegreference-variable�CR$%&+()*
h�>]4545�$X45$4>"G"-4>"G4>"G" 4>"G4	5\C6gmodule
	�gsym	�gvalue		�gintf		�gresolved		�gfilenameflanguage/elisp/runtime.scm�
	X
��		Y	��	
	Z	��		Y	��		\	��		[	��		^	��	*	]	��	+	_	��	E	a	��	[	b	��	d	b	 ��	i	b	��	v	d	���	e	��	�	gnameg
set-variable!�CR4./24PRhR]CJgdummy
		gname		gvalue						CUVh(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/elisp/runtime.scm�
	l	��		"g
macro-typegsyntax-rules�gpatternsgnamegvalueC5RWXYZ[h y]45$"6qgdatum
		gfilenameflanguage/elisp/runtime.scm�
	x	��		y	 ��	
	y	��		y	��		C\]^h0�-13454445?56�gtemplate-id
			0gdata			0gsymbols			.gfilenameflanguage/elisp/runtime.scm�
	q
��		x	��		w	��		t	��		u	��		u	!��	)	u	��	+	t	��	0	v	��
			0
gnamegmake-id�C_R4./2a_bstvx|h0�]
45C�gname
		*gvalue		*gtmp		
	*gfilenameflanguage/elisp/runtime.scm�	�	"��		�	2��	
�	"��	
�	��		*	CUVh(n]	45$@6fgx
		"gtmp		"gfilenameflanguage/elisp/runtime.scm�
�	��		"C5R4./2�_�������	h0�]45��C�gname
		0gargs		0gbody			0gtmp		
	0gfilenameflanguage/elisp/runtime.scm�	�	"��		�	2��	
�	"��	
�	��		0	CUVh(n]	45$@6fgx
		"gtmp		"gfilenameflanguage/elisp/runtime.scm�
�	��		"C5R4./2��hP]�CHgdummy
		gsym		gargs						CUVh(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/elisp/runtime.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgsymgargsg...C5RC�gm
		(gfilenameflanguage/elisp/runtime.scm�		
��	,	%
��	0	'
��	2	-	��	5	-
��	7	/	��	:	/
���	5
��	8
���	<
��*	G
��b	O
��i	X
��	�	q
��	�
C6language/elisp/lexer.go000064400000030112150536206120011106 0ustar00GOOF----LE-8-2.020]{4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	glexer�		�	
gfilenameS�	flanguage/elisp/lexer.scm�	gimportsS�	
gice-9�	gregex�	
�	�	�	gexportsS�	g	get-lexer�	gget-lexer/1�	�	gset-current-module�	�	�	gerror�	glexer-error�	gset-char-bit�	geof-object?�	gchar=?�	gis-char?�	g
integer->char�	 greal-character�	!gchar-alphabetic?�	"g
char->integer�	#gchar-upcase�	$gadd-control�	%g	read-char�	&g
char-numeric?�	'gunread-char�	(finvalid digit in escape-code�	)gcharcode-escape�	*a	��	+b	��	,t		��	-n	
��	.v	��	/f	��	0r	
��	1e	��	2s	 ��	3d	��	4*+,-./0123
�	5gbasic-escape-codes�	6A	��	7s	��	8H	��	9S	��	:gassq-ref�	;g
get-character�	<g	peek-char�	=f!expected - after control sequence�	>gchar>=?�	?gchar<?�	@gmake-regexp�	Af^[+-]?[0-9]+\.?$�	Bg
integer-regex�	Cf7^[+-]?([0-9]+\.?[0-9]*|[0-9]*\.?[0-9]+)(e[+-]?[0-9]+)?$�	Dgfloat-regex�	Egstring->char-set�	Ff-+=*/_~!@$%^&:<>{}?.�	Ggno-escape-punctuation�	Hglist->string�	Igreverse�	Jgregexp-exec�	Kginteger�	Lgfloat�	Mgsymbol�	Ngchar-set-contains?�	Ogget-symbol-or-number�	Pgcircular-ref�	Qgcircular-def�	Rf!invalid circular marker character�	Sgget-circular-marker�	Tg
file-port?�	Ug
port-filename�	Vg	port-line�	Wgport-column�	Xgset-source-property!�	Ygfilename�	Zgline�	[gcolumn�	\geof�	]gchar-whitespace?�	^glex�	_g	character�	`gstring�	agfunction�	bg
paren-open�	cgparen-close�	dgsquare-open�	egsquare-close�	fgquote�	gg	backquote�	hgunquote-splicing�	ifexpected @ in unquote-splicing�	jgunquote�	kg
string-length�	lfinvalid character in input�	mgstring->symbol�	nginexact->exact�	ogstring->number�	pginteger?�	qfexpected integer�	rgexact?�	sfexpected inexact float�	tfwrong number/symbol type�	ugdot�	vgbinary-ports�	w
v�	xg
eof-object�	ywx�	zwx�C5h�%H]4	
54>"Gh�-13@�gport
			gmsg			gargs				gfilenameflanguage/elisp/lexer.scm�
	'
��		(	��				
	gnameglexer-error�CRh�]��C�gchr
		
gbit		
gfilenameflanguage/elisp/lexer.scm�
	-
��		.	��			.	��		
	gnamegset-char-bit�CRh�]45$C6�gtested
		g	should-be		gfilenameflanguage/elisp/lexer.scm�
	4
��		5	��	
	5	��		6	��			gnamegis-char?�CRh�]�$6C�gchr
		gfilenameflanguage/elisp/lexer.scm�
	<
��		=	��		=	��		>	��		gnamegreal-character�C R !"#hH�]	4545$4455	@�C?�$	C@�$
C	6�gchr
		Egreal			Egfilenameflanguage/elisp/lexer.scm�
	F
��		G	��			G	��		H	��		H	��		I	��		I	��	"	I	��	$	I	.��	%	I	��	/	J	��	E	M	��
		Egnamegadd-control�C$R%&"!#'(	h�t],"�"�4545$45	0�"645$*4455	A�
�$"	
�"$	�"$���"��w$"$4>"GC6$�$C"��1"��-

"��lgport
	�gbase	�gdigits		�gearly-return		�gresult		�gprocdigs		�gcur		�gcode		F	]gvalue		b�gvalid		t�
gfilenameflanguage/elisp/lexer.scm�
	V
��		W	��		[	��		[	��		]	��		\	��		^	��	'	^	/��	(	^	��	-	_	��	7	\	��	8	`	'��	;	`	6��	C	`	'��	E	a	'��	F	`	$��	F	`	��	L	b	��	P	b	��	Z	d	��	b	[	��	j	f	��	o	f	!��	t	[	��	|	g	
���	p	���	p	���	p	1���	p	���	h	���	h	���	h	���	j	���	m	���	l	���	Y	���	Y	���	Y	���	W	��(	�	gnamegcharcode-escape�C)R45R6789%:5$;<=)">?'h�C]*M$	"	�454\5$r454545"�$C"�^�$
	4
56C�$J445-5$5445-5$"4
>"G	4
56Cx�$
	6u�$		6U�$		66405$0485$4>"G		6"��"��$M445-5$7445-5$"4
>"G4
56"���"���6;gport
	�g	in-string	�g	meta-bits		%�gcur		%�gescaped		=�gesc-code		H�gmeta		S�gfilenameflanguage/elisp/lexer.scm�
�
��	�	��	�	��	�	��	�	
��	%�	��	*�	��	6�	��	7�	��	=�	��	@�	��	H�	��	K�	��	S�	��	_�	
��	o�	��	r�	"��	|�	����	����	����	����	����	����	����	&����	����	����	����	 ����	����	"����	����	����	����	����	����	��
�	���	���	
���	���	
���	'��*�	��+�	��I�	��Q�	
��X�	��[�	 ��e�	��i�	��j�	��m�	��w�	��{�	����	����	����	����	����	����	��>	�	gnameg
get-character�C;R4@iA5BR4@iC5DR4EiF5GR%HIJBKDLM&!NG'hH�])"24545$P4455$"	45$" $"	45$	"
D45$" 45$"	4
5$�"��R4\5$45�"��24>"G4455$"	45$" $"	45$	"
D"����gport
	Bgresult-chars	8g
had-escape		8gc		
8gresult		&	jgt		q�gt	��gresult	�8gfilenameflanguage/elisp/lexer.scm�
�
��	�	��	�	��	
�	��	�	��	�	��	�	#��	�	$��	&�	#��	&�	��	.�	��	4�	��	@�	��	B�	��	L�	��	R�	��	^�	��	`�	��	f�	��	j�	��	k�	"��	q�	��	�	"����	����	"����	����	%����	����	����	����	&����	 ����	����	����	#����	$����	#����	����	���	���	���	���	�� �	��,�	��.�	��4�	��8�	��8�	��9�	��B�	��4	Bgnamegget-symbol-or-number�COR%&"PQRhx�]"84545$45	0�	
��"���	"
"���G#�$�C=�$�C6�gport
		ugresult		>gcur		
	>gval		$	4gid	F	ugtype		F	ugfilenameflanguage/elisp/lexer.scm�
�
��	�	��	�	��	
�	
��	�	��	�	��	�	��	#�	2��	$�	��	$�	��	+�	��	.�	��	4�	��	>�	��	>�	��	I�	��	V�	��	X�	��	e�	��	g�	��	q�	��	u�	��		ugnamegget-circular-marker�CSRTUVWXYZ[hP�]
�4L>"G4L>"G4L>"GC�gtoken
		Ngvalue		Ngobj			Ngfilenameflanguage/elisp/lexer.scm�
	��		��		��	
	��		0��		��	 	��	&	0��	-	��	6	��	<	0��	C	��
		N	C%\]^_;`HI'Sabcdefg<hijOMklmKnopqLrstu0h {])45$45"45�45�O4545$64	5$
6"x;�$?"74545$"	4
5$
6"���"���?�$4
56"�$�"�45"�$44556\�$f45
�$" �$"���4>"G4>"G44
55�"��m�"��b"��[#�$�450�$"u1�$"g2�$"Y3�$"K4�$"=5�$"/6�$"!7�$"8�$"9�$'4>"G45��6'�$6C(�$6)�$6[�$6]�$6'�$6`�$6,�$8445@5$445@5$66 64>"G4!>G"�$44#5
�$4>"G$6"4%56&�$>&4'4(554)5$"4*>"G6+�$9+4(54,5$4->"G"6.64.5$4	455$/6"��`"��\sgport
	gfile	)	Cgline		)	Cgcolumn		)	Cgreturn	Jgc		Jgcur	��gt	��gresult-chars	��gcur	��gescaped	ugc	�Ygmark	;Ggtype	�gstr	�gnum	v�gnum	��gfilenameflanguage/elisp/lexer.scm�
�
��	�	 ��	
�	��		 ��		 ��	!	��	"	"��	)	��	)�	��	D	��	J�	��	O	��	Y
	��	]	��	a	��	b	��	l
	��	r	��		���		���	���	���	���	���	'���	
��� 	���!	���		���	���$	���$	���$		���	���*		���+	���+	���,	
���.	���.	 ���.	.��.	 ��.	��,	
��0	��0	��!1	��73	��85	��L6	��`8	��c8	+��l8	��o8	��u7	��z:	���:	���*		���*	%���*		���	���<	���<		���=	
��!?	
��5@	��;@	
��BA	��EA	"��GA	��P=	
��TC	��WC	
��b	��fE	��iE	��r	��vF	��yF	���	���G	���G	���	���H	���H	���	���I	���I	���	���J	���J	���	���M	
���M	���M	
���M		���N	���N	���N	���N	
���P	���P	���O	���O	���Q	���Q	
���V		��X	��W		��)Z	
��*a	��1a	��6a	��7e	��Lf	��Pf	��Tg	��Ug	$��]g	��fZ	
��jn	��ko	��no	,��vo	��vo	��yp	���p	���q	���q	���q	���m	���Z	
���t	���t	*���t	���u	%���u	!���v	%���v	,���v	%���t	���z	���z	���
	���	���
	���	���	��	��	��	��	���	gnameglex�C^R^hU]L6Mgfilenameflanguage/elisp/lexer.scm�
�	��	�	
��		
Cht]OClgport
		
gfilenameflanguage/elisp/lexer.scm�

��		
gnameg	get-lexer�CR\zbdcefgjhQh�L]M$	45�C4L5H��$"�$	M�N"h�$"�$	M�N"H�$"/�$"!	�$"
�$"�$K"J$"M
�$N"CDgnext
	�g	quotation	�gkey		�gfilenameflanguage/elisp/lexer.scm�
�	��	�	��	
�	��	�	��	
�	��	�	��	�	
��	�	��	�	
��	�	��	�	��	:�	!��	<�	��	I�	��	Z�	!��	\�	��	i�	����	����	����	%����	����	��	�
Ch �]45
HHOC�gport
		glex		gfinished			gparen-level			gfilenameflanguage/elisp/lexer.scm�
�
��	�	
��	�	��		gnamegget-lexer/1�CRC@gm
		,gfilenameflanguage/elisp/lexer.scm�		
���	'
���	-
���	4
��B	<
���	F
��	V
��		y	��	x
��
>�
��
?�	��
E�	#��
G�	��
J�
��
K�	��
Q�	��
S�	��
V�
��
W�	��
]�	0��
_�	��
b�
����
����
��!N�
��"W
��%��
��	%�
C6language/elisp/compile-tree-il.go000064400000104315150536206120012765 0ustar00GOOF----LE-8-2.0��]�4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gelisp�	gcompile-tree-il�		�	
gfilenameS�	f"language/elisp/compile-tree-il.scm�	gimportsS�	
gbindings�	
�	�	gruntime�	�	�	gtree-il�	�	�	gsystem�	gbase�	gpmatch�	�	�	gcompile�	�	�	gsrfi�	gsrfi-1�	 �	! �	"gsrfi-8�	#"�	$#�	%gsrfi-11�	&%�	'&�	(gsrfi-26�	)(�	*)�	+!$'*	�	,gexportsS�	-g
compile-progn�	.g
compile-if�	/gcompile-defconst�	0gcompile-defvar�	1gcompile-setq�	2gcompile-let�	3gcompile-lexical-let�	4gcompile-flet�	5gcompile-let*�	6gcompile-lexical-let*�	7g
compile-flet*�	8gcompile-without-void-checks�	9gcompile-with-always-lexical�	:gcompile-guile-ref�	;gcompile-guile-primitive�	<g
compile-while�	=gcompile-function�	>gcompile-defmacro�	?g
compile-defun�	@g	compile-`�	Ag
compile-quote�	B-./0123456789:;<=>?@A�	Cgset-current-module�	DC�	EC�	Fg
make-fluid�	Gg
bindings-data�	Hgdisable-void-check�	Igalways-lexical�	Jgsource-properties�	Kglocation�	Lg
make-const�	Mg	nil-value�	NM�	OM�	Pgt-value�	QP�	RP�	Sgvalue-slot-module�	TS�	US�	Vg
value-slot�	Wgfunction-slot-module�	XW�	YW�	Zg
function-slot�	[g,�	\gunquote?�	]g,@�	^gunquote-splicing?�	_gmake-application�	`gmake-primitive-ref�	agcall-primitive�	bgerror�	cgreport-error�	dg
runtime-error�	egmake-module-ref�	fg
ensure-fluid!�	gggenerate-ensure-global�	hg
make-sequence�	igappend�	ji�	ki�	lgmap-globals-needed�	mgensuring-globals�	ngwith-fluids*�	oglist�	pgmap�	qgmake-lambda�	rgmake-lambda-case�	sglet-dynamic�	tgget-lexical-binding�	ugaccess-variable�	vgmake-lexical-ref�	wgmark-global-needed!�	xg	fluid-ref�	ygreference-variable�	zg
set-variable!�	{gmake-lexical-set�	|g
fluid-set!�	}gnil�	~glength�	f,expected symbol or list of 2 elements in let��fexpected symbol in let��gprocess-let-bindings��glexical��gall��gmemq��gbind-lexically?��greverse��gsplit-let-bindings��gfor-each��gcar��gcompile-expr��ggensym��gmake-let��gwith-lexical-bindings��ggenerate-let��g
generate-let*��gbind-arg-lexical?��g&rest��f'expected exactly one symbol after &rest��grequired��goptional��f&invalid mode in split-lambda-arguments��f%expected symbol in argument list, got��g	&optional��gsplit-lambda-arguments��fexpected list for argument-list��ffunction body must not be empty��gcons��glset-intersection��gwith-dynamic-bindings��gcdr��gmake-conditional��gnull?��g	make-void��gcompile-lambda��ftoo many arguments to defvar��gstring?��f0expected string as third argument of defvar, got��fexpected symbol, got��ghandle-var-def��gmodule-defined?��gresolve-interface��g
module-ref��gresolve-module��gfluid?��g
find-operator��gcontains-unquotes?��g
unquote-cell?��gunquote-splicing-cell?��gprocess-backquote��f%non-pair expression contains unquotes��f$symbol-list construct has empty body��gand-map��gsymbol?��finvalid symbol list��gwith-added-symbols��F��F��gspecial-operator��g
module-bound?��gfluid-bound?��fexpected symbol in setq��giterate��gmake-letrec�����glambda��gmacro��gfromS��gtoS��gvalue��fexpected symbol as macro name��f expected symbol as function name��gcompile-pair��gt��gcompile-symbol��gvalid-symbol-list-arg?����fInvalid compiler options��gwarningsS��galways-lexicalS��f"Invalid value for #:always-lexical��fInvalid compiler option��gprocess-options!��g
make-bindings�C5h(t�]4	
+,B54E>"G4Fi5GR4Fi5HR4Fi5IRJh �]	�$45(CCC�gx
		gprops		gfilenamef"language/elisp/compile-tree-il.scm�
	K
��		L	��			L	��	
	M	��		M	��		N		��		gnameglocation�CKRLOh�]6|gloc
		
gfilenamef"language/elisp/compile-tree-il.scm�
	S
��	
	T	��		
gnameg	nil-value�CMRLRh�]6zgloc
		
gfilenamef"language/elisp/compile-tree-il.scm�
	V
��	
	W	��		
gnamegt-value�CPRRUVRYZR[h�]�$�CC�gsym
		gfilenamef"language/elisp/compile-tree-il.scm�
	f
��		g	��			g	��	
	g	��		g	��		gnamegunquote?�C\R]h�]�$�CC�gsym
		gfilenamef"language/elisp/compile-tree-il.scm�
	i
��		j	��			j	��	
	j	��		j	��		gnamegunquote-splicing?�C^R_`h �-13456�gloc
			gsym			gargs				gfilenamef"language/elisp/compile-tree-il.scm�
	n
��		o	��		o	��				
	gnamegcall-primitive�CaRbh�-13@�gloc
			gargs			gfilenamef"language/elisp/compile-tree-il.scm�
	t
��		u	��			
gnamegreport-error�CcR_`bLh(�-134545�6�gloc
			$gmsg			$gargs				$gfilenamef"language/elisp/compile-tree-il.scm�
	w
��		y	��		y	,��		y	��		z	��	"	z	��	$	x	��			$	
	gnameg
runtime-error�CdR_efLh0�]4545456�gloc
		)gsym		)gmodule			)gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	1��	�	��	�	��	�	��	'�	��	)�	��			)	gnameggenerate-ensure-global�CgRhklgh�]L6zgmod
		gsym		gfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	��			Ch(�]44[O556�gloc
		!gbindings		!gbody			!gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	
�	��	�	��	!�	��		!	gnamegensuring-globals�CmRan_`opehq]LL6igsym
		
gfilenamef"language/elisp/compile-tree-il.scm�
�	��	
�	��		
Cqr
hX�]4454O55445544	5	56~gloc
		Sgsyms		Sgmodule			Sgvals			Sgbody			Sgfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��		�	��	�	��	�	-��	�	��	�	��	(�	��	)�	��	.�	��	4�	1��	6�	��	:�	��	;�	��	@�	��	A�	��	E�	%��	I�	2��	J�	6��	O�	��	Q�	��	S�	��		S	gnameglet-dynamic�CsRtGZh0X]4[5$6�$66Pgloc
		+gsym		+gmodule			+g
handle-global			+ghandle-lexical			+ghandle-dynamic			+glexical			+gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	��	�	��	�	��	�	��	#�	��	'�	$��	+�	��
		+	gnamegaccess-variable�CuRueh_]LLL6Wgfilenamef"language/elisp/compile-tree-il.scm�
�	��	
�	��		
Cvhu]L6mglexical
		gfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	��		CwGaxeh0z]4[LL>"GL4LLL56rgfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	��	�	��	 �	��	-�	��		-
Ch0�]OOO6�gloc
		)gsym		)gmodule			)gfilenamef"language/elisp/compile-tree-il.scm�
�
��	)�	��		)	gnamegreference-variable�CyRu_ezLh0�]L4L54LL54LL5L6�gfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	��	�	#��	�	��	�	��	�	$��	)�	��	+�	��			+
C{hu]LL6mglexical
		gfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	��		CwGa|eh0z]4[LL>"GL4LLL5L6rgfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	��	�	��	 �	��	/�	��		/
Ch0�]OOO6�gloc
		/gsym		/gmodule			/gvalue			/gfilenamef"language/elisp/compile-tree-il.scm�
�
��	/�	��		/	gnameg
set-variable!�CzRp}~c�hP#]�$�C�$45	��"$L6��$	����CL6gb
		Kgfilenamef"language/elisp/compile-tree-il.scm�
�	��	�		��		�	��	
�	��	�		��	�	��	�	
��	�	��	 �	��	!�	��	&�	��	*�		��	0�	��	2�	
��	5�	��	6�	��	:�	
��	=�	��	@�	��	B�	��	I�	#��	K�	��		KCh�]O6�gloc
		gbindings		gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��			gnamegprocess-let-bindings�C�R�ZVI��tG	hXG]&C�$C�$,[&C45$C[6C?gsym
		Sgmodule		Sgt			Sgalways		(	Qgt		=	Qgfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	!�	��	%�	��	(�	��	.�	��	2�	
��	3�	��	5�	��	=�	
��	Q�	��		S	gnamegbind-lexically?�C�R��hh�]"O(4545D4��5$���"������"���"����gbindings
		cgmodule		cgtail			Uglexical			Ugdynamic			Ugfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��		��	
	��		"��		��		��	"	��	'	��	+	��	.	��	1	&��	4	 ��	@	��	C	��	H	.��	K	(��	U	��	U�	��	X�	��	Y	��	c�	��		c	gnamegsplit-let-bindings�C�R���wGhq][L6igsym
		
gfilenamef"language/elisp/compile-tree-il.scm�
	��	
	��		
Cp�s�hy]�6qgel
			gfilenamef"language/elisp/compile-tree-il.scm�
	"��		=��			/��			Ch��hp]6hgel
		gfilenamef"language/elisp/compile-tree-il.scm�
&	(��	&	5��		C�hp]6hgel
		gfilenamef"language/elisp/compile-tree-il.scm�
'	(��	'	5��		Ci�hy]�6qgel
			gfilenamef"language/elisp/compile-tree-il.scm�
	"��		=��			/��			C�hy]�6qgel
			gfilenamef"language/elisp/compile-tree-il.scm�
	"��		=��			/��			C��Ghp�s�vhq]L6igsym
		gfilenamef"language/elisp/compile-tree-il.scm�
9	/��	:	1��		ChH�]L(L4L56L4L5L4LOL54L4L556�gfilenamef"language/elisp/compile-tree-il.scm�
2	��	3	��	
"	.��	"	��	6	.��	'8	.��	5"	��	:"	.��	D"	��	F5	!��		F
Ch�j]<454>G4O45>"G(*45454	4
55645454
5	4
45455
		
4[45O56bgloc
	�gmodule	�gbindings		�gbody		�gbind		�glexical		�gdynamic		�glexical-syms		z�gdynamic-syms	��gall-syms		��gvals	
��gfilenamef"language/elisp/compile-tree-il.scm�

��		��		��		��		��	"	��	,	��	9	��	G#	
��	L$	��	W	��	`"	��	e"	.��	o"	��	q$	��	r&	#��	z&	��	}'	#���&	���(	���&	���)	���	���)	���&	���/	���1	���/	���+	��	�	gnameggenerate-let�C�R���wGh �]4L5$C[L6{gsym
		gfilenamef"language/elisp/compile-tree-il.scm�
F	��	G	��	G	��	H	��		Cp�hp�����Ghh]LL�6`gfilenamef"language/elisp/compile-tree-il.scm�
[	��	[	3��		[	*��			
Csh��](L4L56��4��54L5$745L4[	LO56
L��L4L�56�gtail
	�gsym	$�gvalue		$�gtarget		:	lgfilenamef"language/elisp/compile-tree-il.scm�
L	��	M	��	
N	��	N	��	O	��	P	��	!P	'��	$P	��	$O	��	)Q	��	5Q	��	6R	 ��	:R	��	ET	��	JU	��	OV	��	PW	��	ZY	��	_Z	��	jW	��	lS	��	s]	"��	w]	��	~_	��	`	���`	(���`	���\	��	�gnamegiterate�ChP]454O45>"GOQ6gloc
		Igmodule		Igbindings			Igbody			Igbind			Igiterate		8	Igfilenamef"language/elisp/compile-tree-il.scm�
C
��	D	��	D	��	F	��	K	��	%F	��	8L	��		I	gnameg
generate-let*�C�RI��h �]	[&C6�garg
		galways		gfilenamef"language/elisp/compile-tree-il.scm�
i
��	j	��	k	��	k	��	k	��	l	��		gnamegbind-arg-lexical?�C�R��c����b���h��]b"�(/45454545
		
D"-�&���$"����$6��45	45
454	$	�"54	$"�5


D��$��45		$	�"
	$"��$ ��
"����$ ��
"���	6
�6&*�&�"��l"���"���"��L�gloc
	�gargs	�gtail		�gmode		�grequired		�goptional		�glexical		�gdynamic		�gfinal-required		(	;gfinal-optional			(	;g
final-lexical	
	(	;g
final-dynamic		(	;gt		L	bgrest		r�grest-lexical			{�gfinal-required	
��gfinal-optional	��g
final-lexical	��g
final-dynamic	
��garg	�agbind-lexical		�agnew-lexical	
�agnew-dynamic	agfilenamef"language/elisp/compile-tree-il.scm�
n
��	o	��	u	��	
w	��	x	��	y	��	"z	��	(w	��	;{	��	B�	��	D�	��	Hu	��	K�	��	L�	��	L�	
��	\�	��	^�	��	_�	��	f�	��	l�	��	n�	
��	q�	��	r�	
��	u�	��	{�	
��	~�	!����	
����	!����	
����	 ����	)����	-����	 ����	
����	 ����	)����	-����	 ����	
����	����	����	����	����	����	
����	����	
����	����	"����	
����	���	"���	
���	���	#���	#��0�	��9�	��<�	#��E�	,��Y�	��]�	��a�	��g�	��j�	��l�	
��lu	��p�	��tu	��w�	��y�	��}�	����	����	����	���o	���p	���q	���r	���s	���t	���o	��S	�	gnamegsplit-lambda-arguments�C�Rc���p�ho]6ggx
		gfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	$��		C��h�]��C�gname+sym
			gx			gfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	"��	�	��				Ch�]��C�gname+sym
			gx			gfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	"��	�	��				Ch@-]!45454L54L5D%gargs
		>gsyms		>gpairs			>g
lexical-pairs		%	>g
dynamic-pairs		2	>gfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	��	�	��	�	��	�	��	�	��	%�	��	(�	��	2�	��	>�	��		>gnamegprocess-args�Ci�wGVhq][6igsym
		
gfilenamef"language/elisp/compile-tree-il.scm�
�	��	
�	��		
C�G�Gp��qrpMho]L6ggx
		gfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	��		Ch��a�v{M�sVvh�]L��6�gname-sym
		gfilenamef"language/elisp/compile-tree-il.scm�
	(��			+��		+��		*��		Ch�x]L4LLL4LOL5L4L4L554LL$84L4L	4
LLL554LLL4L554
L55"4
L5L("4LL4LOL5555	6pg
compiled-body
	2�gfilenamef"language/elisp/compile-tree-il.scm�
�	
��	�	
��	�	
��	�	��	#�	��	(�	(��	2�	��	2�	��	5�	��	?�	��	@�	��	E�	��	K	'��	L	'��	X�	��	Y	��	b	)��	j	��	k	��	s�	��	x		���
	���	���	#���	����	����	����	
����	��	�
Ch8q][4L	54L	5LLLLLLLLLO	6igfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	
��	�	
��	2�		��		2
ChH<]��$"4>"G(4>"G"4>GOQ4>G
	4>G
4$	">G$�"G4	
>G4>G4>G4>"G	
[O
64gloc
	Agargs	Agbody		Agrequired		NAgoptional		NAgrest		NAglexical		NAgdynamic		NAgprocess-args		dAg
required-syms			vAgrequired-pairs	
	vAgrequired-lex-pairs		vAgrequired-dyn-pairs		vAg
optional-syms	
�Agoptional-pairs	�Agoptional-lex-pairs	�Agoptional-dyn-pairs	�Ag	rest-syms	�Ag
rest-pairs	�Agrest-lex-pairs	�Agrest-dyn-pairs	�Agthe-rest-sym	�Agall-syms	�Ag
all-lex-pairs	�Ag
all-dyn-pairs	Agfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��		�	��	�	��	�	��	�	��	)�	��	*�	��	0�	��	5�	��	B�	��	Q�	��	l�	��	y�	����	����	����	����	!����	*����	6����	����	����	"����	+����	����	����	����	#����	����	#��	�	���	��A�	��"	A	gnamegcompile-lambda�C�R~c����hPF]�$:45�$6("	4�5�$�6C6>gloc
		Mgsym		Mgdoc			Mgfilenamef"language/elisp/compile-tree-il.scm�

��			��			��	
	��		��		��		)��		��	$ 	��	* 	 ��	/ 	)��	1 	 ��	2 	��	6	��	<!	��	?"	��	A!	��	I	*��	M	��		M	gnameghandle-var-def�C�R��Z���h`U]�$R4455$>445545$["�$�&�CCCCCMgsym
		]gtype		]gop		)	Ygop		?	Ygfilenamef"language/elisp/compile-tree-il.scm�
(
��	*	��		)	��	
+	��	
+	��	+	��	)	��	,	��	,	��	),	��	),	��	,-	��	6-	��	?,	��	D.	��	H.	��	K.	��	Q.		��	T/		��		]	gnameg
find-operator�C�R\^�hP3]	�$@4�5$"4�5$C4�5$C�6C+gexpr
		Kgt		)gt	7	Igfilenamef"language/elisp/compile-tree-il.scm�
4
��	5	��		5	��	
6	��	6	��	6	��	6	
��	6	$��	$6	7��	&6	$��	-6	��	08	��	58	"��	78	��	78	
��	G9	"��	I9	��		Kgnamegcontains-unquotes?�C�R~\h(�]�$45	�$�6CC�gexpr
		"gfilenamef"language/elisp/compile-tree-il.scm�
B
��	C	��		C	��	
C	��	C	��	C	��	C	2��	C	(��			"gnameg
unquote-cell?�C�R~^h(�]�$45	�$�6CC�gexpr
		"gfilenamef"language/elisp/compile-tree-il.scm�
E
��	F	��		F	��	
F	��	F	��	F	��	F	;��	F	(��			"gnamegunquote-splicing-cell?�C�R�����~\^ai�c�Lh��]*45$��$�45$"45$��6�4�5�$45	�"$4�5"$4�5"$	
4��56	$
4��5"	456
66�gloc
	�gexpr	�gt			2ghead		A�gprocessed-tail		M�ghead-is-list-2		e�ghead-unquote		z�ghead-unquote-splicing	��gfilenamef"language/elisp/compile-tree-il.scm�
H
��	I	��	
I	��	J	
��	J	��	K	��	K	��	)K	'��	6K	
��	;L	��	>L	��	AM	��	AM	��	DN	%��	KN	<��	MN	%��	MM	��	RO	*��	VO	%��	WP	-��	`P	*��	eM	��	mQ	#��	nR	(��	sR	2��	uR	(��	zM	���S	,���T	1���U	2���T	1���M	���V	���X	$���Y	$���Y	2���Y	$���W	���[	(���\	$���]	(���]	6���]	(���^	(���[	���a	���`	
���c	��1	�	gnamegprocess-backquote�C�Rc�����hp�ih��](4>"G"&"�$
45"$"4>"G[&4	56&"	4
5Y44	5>ZCZF�gloc
	�gfluid	�gsyms		�gbody		�gold		c�gnew	��gfilenamef"language/elisp/compile-tree-il.scm�
i
��	j	��		k	��	k	��	k	��	$l	��	(l	��	)l	��	0m	��	4m	��	5m	!��	Fl	��	Kn	��	Qn	��	Xn	��	co	��	ir	��	mr	��	rq	(��	|q	���t	!���t	���u	���v	���t	���q	���q	(���q	��	�	gnamegwith-added-symbols�C�R4��hp�h�]456�gloc
		gargs		gfilenamef"language/elisp/compile-tree-il.scm�
|
��	}	��	}	��			C�5-R4����Mhph`
]"�$R���$?��4545(45"44556CCgloc
		]gargs		]gvx			[gvy			[gvx		 	Ygvy		 	Ygfilenamef"language/elisp/compile-tree-il.scm�

��	�	��	)�	��	0�	��	<�	��	=�	��	H�	��	M�	*��	W�	��	Y�	��		]	C�5.R4���hzV�Lh`
]"�$R���$?��45$$4455456CCCgloc
		]gargs		]gvx			[gvy			[gvx		 	Ygvy		 	Ygfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	%�		��	3�	��	8�	��	A�	-��	I�	��	J�	��	U�	��	W�		��		]	C�5/R4���h�a��LV�e�z�h��]""��$����$���45$z44444554554	4
554554544
555456CCC�$��(6"��,"��(�gloc
	�gargs	�gvx		�gvy		�gvx		$�gvy		$�gvx	��gvy	��gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	)�		��	7�	��	<�	��	A�	��	F�	
��	L�	��	M�	��	S�	��	T�	��	^�	��	_�	��	i�	
��	j�	
��	p�	��	q�	��	~�	
��	�	
����	����	����	����	.����	����	����	����	
����		����	����	����	�� 	�	C�50R4��h�zVyc�hx�](C�4�("�5�$54L54L�("�4L55�CL6�gargs
		tglast		tgx			*gsym		,	tgval		,	tgx		J	]gfilenamef"language/elisp/compile-tree-il.scm�
�	��	�	��	
�		��	�	��	�	��	�	%��	�	��	�	��	 �	!��	'�	%��	,�	��	,�		��	3�	��	7�	��	8�	��	E�	��	J�	%��	J�	��	R�	��	S�	!��	Z�	%��	^�	��	j�	��	k�	��	r�	!��	t�	��		t	gnamegloop�CMh0�]
OQ44556�gloc
		)gargs		)gloop			'gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	 ��	$�	��	)�	��		)	C�51R4���Vh(�]�$��6C�gloc
		!gargs		!gvx			gvy			gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	��		!	C�52R4����h(�]�$��6C�gloc
		!gargs		!gvx			gvy			gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	��	�	��		!	C�53R4���Zh(�]�$��6C�gloc
		!gargs		!gvx			gvy			gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	��		!	C�54R4���Vh(�]�$��6C�gloc
		!gargs		!gvx			gvy			gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	��		!	C�55R4����h(�]�$��6C�gloc
		!gargs		!gvx			gvy			gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	��	�	��		!	C�56R4���Zh(�]�$��6C�gloc
		!gargs		!gvx			gvy			gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	��		!	C�57R4���Ih(�]�$��6C�gloc
		!gargs		!gvx			gvy			gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	��		!	C�59R4��ehP�]"�$B���$/��(�$�$6CCCCC�gloc
		Mgargs		Mgvx			Kgvy			Kgvx		 	Igvy		 	Igfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	-�	 ��	1�	��	4�	/��	8�	��	C�	��		M	C�5:R4��`h(�]�$��(6CC�gloc
		%gargs		%gvx			#gvy			#gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	!�	��		%	C�5;R4���p�_v�hk�Mqr��h�l]B�$���4545445544554	454
55445	5	
	6Cdgloc
	�gargs	�gvx		�gvy		�gitersym		�g
compiled-body		#�g	iter-call		:�g	full-body		O�glambda-body		h�g
iter-thunk		��
gfilenamef"language/elisp/compile-tree-il.scm�

��			��		��		��		��	#	��	&
	��	+	)��	1	;��	5	)��	8	)��	:
	��	:	��	=	��	B	&��	O	��	O	��	R	��	W	+��	`	+��	h	��	h	��	k	��	p	%��	q	%��	u	7��	y	7��	z 	7��		%���	���	���%	���&	���'	���#	��$	�	C�5<R4��yZ��h�B]2".�$%��(�$
6CCC�$T���$?��&)�$��(
6"���"��"��{"��w"��s:gloc
	�gargs	�gvx			2gvy			2gvx		A�gvy		A�gvx		R�gvy		R�gvx		k�gvy		k�
gfilenamef"language/elisp/compile-tree-il.scm�
*
��	+	��	 .	��	$+	��	./	��	4+	��	-	���+	��		�	C�5=R4��hzZ_e�L��mG���c�h��]*�$����$����$p444454	54
55545544
5>"GC6CC�gloc
	�gargs	�gvx		�gvy		�gvx		 �gvy		 �gtree-il		s�gfilenamef"language/elisp/compile-tree-il.scm�
1
��	2	��	'4	��	+4	��	,7	��	1:	��	:>	��	?@	��	E@	*��	G@	3��	J@	��	KA	��	QA	+��	SA	��	TB	��	aA	��	c>	��	e:	��	fC	��	q9	��	s7	��	s6		��	vD	��	yD	���E	���F	���D	���5	���5		��	�	C�5>R4��hzZ�Lc�hh]"�$V���$C���$(44554566CCgloc
		agargs		agvx			_gvy			_gvx		 	]gvy		 	]gfilenamef"language/elisp/compile-tree-il.scm�
I
��	J	��	'L	��	+L	��	0O	��	9R	-��	EO	��	FU	��	QO	��	SN		��	YM	��	]M		��
		a	C�5?R4���h(�]�$��(6CC�gloc
		%gargs		%gvx			#gvy			#gfilenamef"language/elisp/compile-tree-il.scm�
W
��	X	��	!Z	��		%	C�5@R4��Lh(�]�$��(6CC�gloc
		%gargs		%gvx			#gvy			#gfilenamef"language/elisp/compile-tree-il.scm�
\
��	]	��	!_	��		%	C�5AR����_yZp	hp�]"��45$645$4?6�$45"45456�gloc
		mgexpr		mgoperator			mg	arguments			mgt			mgt		.	mgfilenamef"language/elisp/compile-tree-il.scm�
c
��	d	��	e	��	d	��	
g	��	g	��	g	��	f	��	%i	��	&j	��	,j	��	.j	��	.f	��	9l	��	Al	��	Ho	��	Lo	��	Mp	��	\s	��	ct	��	mn	��		m	gnamegcompile-pair�C�R}M�PyVh0�]�$6�$66�gloc
		*gsym		*gfilenamef"language/elisp/compile-tree-il.scm�
y
��	z	��	{	��	z	��	 |		��	*}	
��		*	gnamegcompile-symbol�C�RK��Lh8�]	45�$6�$66�gexpr
		1gloc			1gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	
��		�	��	�	��	�	��	�	��	�	��	!�	��	)�	��	1�	��		1gnamegcompile-expr�C�R���h �]&C�$6C�gvalue
		gfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	�	��		gnamegvalid-symbol-list-arg?�C�R�c����I��
hpR]("��$S�(	6����$C�$45$\C6	6CJgopt
		lgkey	.	jgvalue		.	jgfilenamef"language/elisp/compile-tree-il.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	'�	
��	*�	��	-�	��	.�	
��	;�	��	G�	��	Q�	��	]�	!��	a�	��	f�	"��	j�	��		lgnamegprocess-options!�C�RGHI���mK	hH]45Y4>"G454455ZDgexpr
		Fgenv		Fgopts			Fgcompiled		*	?gfilenamef"language/elisp/compile-tree-il.scm�
�
��		�	 ��	�	%��	�	!��	�	��	$�	��	*�	��	-�	��	0�	��	<�	��	F�	��		F	gnamegcompile-tree-il�CRC�gm
		,gfilenamef"language/elisp/compile-tree-il.scm�		
��	-	=	��	6	=
��	7	A	��	@	A
��	A	F	��	J	F
��6	K
���	S
���	V
���	[	���	[
���	]
���	_
��^	f
��/	i
��	n
���	t
���	w
��1�
��	��
��y�
���
����
��5�
����
��J�
��c�
��"�
��(C
��)i
��0�n
��>��
��@Y
��B0(
��C�4
��D�B
��E�E
��I�H
��L�i
��L�|
��Mb
��N��
��P��
��S��
��V��
��W��
��X��
��Y��
��Z��
��[��
��\��
��]z�
��^��
��_�
��c*
��e	1
��g�I
��i{W
��jj\
��m|c
��n�y
��o��
��p��
��r��
��t"�
��C	t$
C6language/brainfuck/spec.go000064400000002221150536206120011551 0ustar00GOOF----LE-8-2.0y],4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	g	brainfuck�	gspec�		�	
gfilenameS�	flanguage/brainfuck/spec.scm�	gimportsS�	
gcompile-tree-il�	
�	�	gcompile-scheme�	�	�	gparse�	�	�	gsystem�	gbase�	�	�	�	gexportsS�	�	gset-current-module�	�	�	 ginvalidate-compilation-cache!�	!g
make-language�	"gnameS�	#gtitleS�	$f	Brainfuck�	%greaderS�	&gread-brainfuck�	'g	compilersS�	(gtree-il�	)gscheme�	*gprinterS�	+gwrite�C5h]4	
54>"G4 i>"G4!i"#$%&hz]6rgport
		genv		gfilenameflanguage/brainfuck/spec.scm�
	&	��		&	#��			C'(
i�)i�*+i5
RCwgm
		,gfilenameflanguage/brainfuck/spec.scm�		
��	-	$
��	K	%	���	'	��	$
��	
C6language/brainfuck/parse.go000064400000004022150536206120011732 0ustar00GOOF----LE-8-2.0�]#4h#]gguile�	�	gdefine-module*�	�	�	glanguage�	g	brainfuck�	gparse�		�	
gfilenameS�	flanguage/brainfuck/parse.scm�	gexportsS�	
gread-brainfuck�	
�	gset-current-module�	�	�	g<bf-nop>�	greverse-without-nops�	g	read-char�	geof-object?�	gprocess-input-char�	g	<bf-move>�	�		��	g<bf-increment>�	�		��	g
<bf-print>�	�	g	<bf-read>�	 �	!g	<bf-loop>�	"�C5hx]4	
54>"GhH9]!"7(C���&"����"���"���1glst
		Hgcur		=gresult			=ghead			=gtail			=gfilenameflanguage/brainfuck/parse.scm�
	*
��		+	��		-	��		/	��		0	��		/	��		1	��		1	��	"	1	��	.	2	
��	5	3	��	=	3	
��	=	+	��	@	,	��	H	+	��		Hgnamegreverse-without-nops�CRhX9]"J4545$45(CC]�$645�"���"���1gp
		Wgparsed		Pgchr		
	Pgparsed		!	/gfilenameflanguage/brainfuck/parse.scm�
	>
��		?	��		@	��	
	@	��		B	��		A	��		C	��	!	C	��	)	D	
��	4	G	��	8	A	��	>	H	��	?	J	��	J	J	��	P	J	��	P	?	��	Q	?	��	W	?	��		Wgnamegread-brainfuck�C
R !
"
hh]>�$C<�$C+�$C-�$C.�$C,�$C[�$45�C	Cgchr
		agp		agfilenameflanguage/brainfuck/parse.scm�
	U
��		V	��	
	W	��		V	��		X	��	#	V	��	%	Y	��	/	V	��	1	Z	��	;	V	��	=	[	��	G	V	��	I	\	��	S	V	��	U	]	��	V	]	��	]	]	��	`	^	
��		a	gnamegprocess-input-char�CRCpgm
		(gfilenameflanguage/brainfuck/parse.scm�		
���	*
��l	>
��	U
��	
C6language/brainfuck/compile-scheme.go000064400000004732150536206120013522 0ustar00GOOF----LE-8-2.0�	]>4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	g	brainfuck�	gcompile-scheme�		�	
gfilenameS�	f%language/brainfuck/compile-scheme.scm�	gexportsS�	
�	gset-current-module�	�	�	g	tape-size�	glet�	gpointer�	
�	gtape�	gmake-vector�	
�	gappend�	�	�	gcompile-body�	g
write-char�	
�	�	greverse�	 gcompile-instruction�	!g	<bf-move>�	"gset!�	#g+�	$g<bf-increment>�	%gvector-set!�	&g
vector-ref�	'&�	(g
<bf-print>�	)g
integer->char�	*)'�	+*�	,g	<bf-read>�	-g
char->integer�	.g	read-char�	/.�	0-/�	1%0�	2g	<bf-loop>�	3giterate�	4gif�	5gnot�	6g=�	76'
�	857�	9gbegin�	:3�	;:�	<gerror�	=funknown brainfuck instruction �C5h(�]4	

54>"Gu0R
h0�]��44�5	5��D�gexp
		-genv		-gopts			-gfilenamef%language/brainfuck/compile-scheme.scm�
	5
��		7	��		9		��		9	��	!	9		��	#	7	��	-	6	��		-	gnamegcompile-scheme�CR h8-]"&(64�5��"���"���%ginstructions
		7gcur		,gresult			,gcompiled			,gfilenamef%language/brainfuck/compile-scheme.scm�
	D
��		E	��		G	��		H	��		I	��		I	+��		I	��		I	��		J	��	$	J	��	,	J	��	,	E	��	/	F	��	7	E	��		7gnamegcompile-body�CR!"#$%'(+,123489;<=h�s]��$��C�$��C	�$
C�$C
�$"44�55�C6kgins
	�gkey	�gdir			'ginc		4	Igfilenamef%language/brainfuck/compile-scheme.scm�
	P
��		Q	��		Q	��		V	��		V	��		W	��	0	Q	��	3	\	��	4	\	��	8	]	��	R	Q	��	T	c	��	^	Q	��	`	i	��	j	Q	��	l	t	��	y	w	��	~	w	���	w	���	t	���	z	���	z	2���	z	
��	�gnamegcompile-instruction�C RC�gm
		(gfilenamef%language/brainfuck/compile-scheme.scm�		
��	.	$
��Z	5
���	D
��&	P
��	(
C6language/brainfuck/compile-tree-il.go000064400000006733150536206120013622 0ustar00GOOF----LE-8-2.0�
]X4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	g	brainfuck�	gcompile-tree-il�		�	
gfilenameS�	f&language/brainfuck/compile-tree-il.scm�	gimportsS�	
gsystem�	gbase�	gpmatch�	
�	�	gtree-il�	�	�	�	gexportsS�	�	gset-current-module�	�	�	g	tape-size�	g
parse-tree-il�	glet�	gpointer�	gtape�	 �	!gconst�	"!
�	#gapply�	$g	primitive�	%gmake-vector�	&$%�	'"�	(gcompile-body�	)gvoid�	*)�	+gbegin�	,greverse�	-g	<bf-loop>�	.ggensym�	/gletrec�	0giterate�	10�	2glambda�	3glambda-case�	4�	5gif�	6g=�	7$6�	8g
vector-ref�	9$8�	:glexical�	;:�	<:�	=#9;<�	>#7="�	?�	@gerror�	Afunknown brainfuck instruction�	Bg	<bf-read>�	Cgvector-set!�	D$C�	Eg
char->integer�	F$E�	Gg	read-char�	H$G�	I#H�	J#FI�	K#D;<J�	Lg
<bf-print>�	Mg
write-char�	N$M�	Og
integer->char�	P$O�	Q#P=�	R#NQ�	Sg<bf-increment>�	Tg+�	U$T�	Vg	<bf-move>�	Wgset!�C5h��]4	
54>"Gu0R "#&!'(h8�]4	���4
55D�gexp
		2genv		2gopts			2gfilenamef&language/brainfuck/compile-tree-il.scm�
	[
��		]	��		^	��	!	a	��	*	^	��	,	]	��	2	\	��		2	gnamegcompile-tree-il�CR*+,-./12345>(#:?@ABKLRSD;<U=!VW h(�]A"((C�(�C45�C�"�""�"��$���&f45	
4
5����"��G�6�6�$0��&(��"��"��<"��8"��4�$0��&(��"���"���"���"����$b��&L�$A��(-��"��b"���"���"���"����$^��&H�$=��()��"���"��#"��"��"��"����ginstructions
	(gin	gout		gv		.gvx		M�gvy		M�giterate		^�gx	��gvx	�gvy	�gvx	Cgvy	Cgvx	T�gvy	T�gvx	m�gvy	m�gx	��gvx	�gvy	�gvx	�gvy	�gx	�
gfilenamef&language/brainfuck/compile-tree-il.scm�
	h
��		i	��		l	��		o	��		p	��		q	��		o	��		q	��	"	r	��	#	r	��	*	r	��	.	u	��	.	u	��	Z�	��	^�		��	b�	��	y�	+����	����	���	k	
���	k	���	k	����	����	5����	����	����	5����	���	u	���	k	
����	���	k	��	k	��	u	��.	k	
��0�	��3	k	��;	k	��?	u	��y�	����		���	k	
���	k	���	k	���	u	���	z	���	z		��	k	
��	k	��
	k	��	u	��	i	�� 	i	"��(	i	��7	(gnamegcompile-body�C(RCygm
		,gfilenamef&language/brainfuck/compile-tree-il.scm�		
��	2	-
��l	[
���	h
��	�
C6language/tree-il/inline.go000064400000001431150536206120011474 0ustar00GOOF----LE-8-2.0]4hx]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	ginline�		�	
gfilenameS�	flanguage/tree-il/inline.scm�	gexportsS�	
ginline!�	
�	gset-current-module�	�	�	gissue-deprecation-warning�	f?`inline!' is deprecated.  Use (language tree-il peval) instead.�C5h�g]4	
54>"Gh�]4>"GC�gx
		gfilenameflanguage/tree-il/inline.scm�
	
��			��			��			��		gnameginline!�C
RC_gm
		(gfilenameflanguage/tree-il/inline.scm�		
���	
��	�
C6language/tree-il/spec.go000064400000003431150536206120011152 0ustar00GOOF----LE-8-2.0]54h6]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	gspec�		�	
gfilenameS�	flanguage/tree-il/spec.scm�	gimportsS�	
gsystem�	gbase�	
�	�	gpmatch�	
�	�	gglil�	�	�	�	�	gcompile-glil�	�	�	�	gexportsS�	�	gset-current-module�	 �	!�	"gwrite�	#gunparse-tree-il�	$g
write-tree-il�	%g	make-void�	&g
make-sequence�	'gjoin�	(ginvalidate-compilation-cache!�	)g
make-language�	*gnameS�	+gtitleS�	,fTree Intermediate Language�	-greaderS�	.gread�	/gprinterS�	0gparserS�	1g
parse-tree-il�	2gjoinerS�	3g	compilersS�	4gfor-humans?S�C5h��]4	
54!>"G"#h�-1345@�gexp
			gport			gfilenameflanguage/tree-il/spec.scm�
	
��			��			��			
gnameg
write-tree-il�C$R%&h8�](6�$��(C66�gexps
		5genv		5gvx			.gvy			.gfilenameflanguage/tree-il/spec.scm�
	
��		 	��	
	!	��		 	��	.	#	
��		5	gnamegjoin�C'R4(i>"G4)i*+,-.hx]6pgport
		genv		gfilenameflanguage/tree-il/spec.scm�
	'	��		'	#��			C/$i01i2'i3i�45RC�gm
		,gfilenameflanguage/tree-il/spec.scm�		
���	
��	
��	%
��"	&	���	+	���	%
��	�
C6language/tree-il/peval.go000064400000536330150536206120011340 0ustar00GOOF----LE-8-2.0��]4hM�]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	gpeval�		�	
gfilenameS�	flanguage/tree-il/peval.scm�	gimportsS�	
�	
�	g
primitives�	�	�	geffects�	�	�	gice-9�	gvlist�	�	�	gmatch�	�	�	gsrfi�	gsrfi-1�	�	�	 gsrfi-9�	! �	"!�	#gsrfi-11�	$#�	%$�	&gsrfi-26�	'&�	('�	)gcontrol�	*)�	+*�	,"%(+
�	-gexportsS�	.�	/gset-current-module�	0/�	1/�	2gmake-syntax-transformer�	32�	42�	5g	*logging*�	6gmacro�	7gidentifier?�	87�	97�	:g
syntax-object�	;gtop�	<;�	=gribcage�	>gid�	?>�	@gm-9d6212d37ae-5919�	A@;�	BA�	Cfl-9d6212d37ae-5920�	DC�	E=?BD�	F=�	Ggx�	HG�	Ifl-9d6212d37ae-591b�	JI�	K=HBJ�	L<EFK�	Mghygiene�	NM�	O:LN�	Pg$sc-dispatch�	QP�	RP�	Sg_�	Tgeach-any�	UST��	Vfl-9d6212d37ae-5923�	WV�	X=HBW�	Y<XFK�	Z:YN�	[gsyntax-violation�	\[�	][�	^f-source expression failed to match any pattern�	_glog�	`gany�	agfree-id�	bgquote�	cgm-9d6212d37ae-5926�	dc;�	ed�	ffl-9d6212d37ae-5928�	gf�	h=Heg�	i<Fh�	j:biN�	kaj�	lk`�	mlT��	n`m��	ogif�	pgdummy�	qgevent�	rgarg�	spqr�	td<<�	ufl-9d6212d37ae-592b�	vfl-9d6212d37ae-592c�	wfl-9d6212d37ae-592d�	xuvw�	y=stx�	z<yFh�	{:ozN�	|gand�	}:|zN�	~:5zN�	gor��:zN��geq?��:�zN��:zN���~���gmemq��:�zN��:bzN��~��glog*��:�zN��g
module-ref��gresolve-interface��gpretty-print�����gnewline��glet/ec��gtree-il-fold��gabort-to-prompt��gtree-il-any��gvlist-length��g	vlist-ref��g	vlist-any��g
<application>��g<lambda>��g<primitive-ref>��gvalues��g<const>��g
<lexical-ref>��g<void>��g<module-ref>��g<toplevel-ref>��gsingly-valued-primitive?��gsingly-valued-expression?��gmake-application��gtree-il-src��gmake-primitive-ref��gtruncate-values��g<var>��g%make-var-procedure��gmake-var��S````��glambda��gm-9d6212d37ae-5be1���;��gt-9d6212d37ae-5bdd��gt-9d6212d37ae-5bde��gt-9d6212d37ae-5bdf��gt-9d6212d37ae-5be0��������������fl-9d6212d37ae-5be6��fl-9d6212d37ae-5be7��fl-9d6212d37ae-5be8��fl-9d6212d37ae-5be9��������=��������fl-9d6212d37ae-5be3�����=H����gshift��g	proc-name��gargs������<<��fl-1e8ba8b5a-60��fl-1e8ba8b5a-61������=�����gkey��gvalue��gname��gformals��gbody���������<<<<<��fl-1e8ba8b5a-53��fl-1e8ba8b5a-54��fl-1e8ba8b5a-55��fl-1e8ba8b5a-56��fl-1e8ba8b5a-57���������=�����gmake-procedure-name�����<��fl-1e8ba8b5a-43�����=�����<��fl-1e8ba8b5a-42�����=H������F��FFFF����
��M ��:�����<�F���:��N��ggensym��:��N��grefcount��:��N��gset?��:��N��������gmake-struct��gm-9d6212d37ae-5bdb���;��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���;�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������=�����g	ctor-args�����fl-1e8ba8b5a-120�����=�����gctor��gfield����fl-1e8ba8b5a-11c�fl-1e8ba8b5a-11d��=��gform�g	type-name�gconstructor-spec�gfield-names�	�
<<<<�fl-1e8ba8b5a-111�fl-1e8ba8b5a-112�
fl-1e8ba8b5a-113�fl-1e8ba8b5a-114�
�=	
�g
record-layout�gfunctional-setters�gsetters�gcopier�ggetters�gconstructor�ggetter-identifiers�gfield-identifiers��<<<<<<<<�fl-1e8ba8b5a-e9�fl-1e8ba8b5a-e7�fl-1e8ba8b5a-e5�fl-1e8ba8b5a-e3�fl-1e8ba8b5a-e1� fl-1e8ba8b5a-df�!fl-1e8ba8b5a-dd�"fl-1e8ba8b5a-db�# !"�$=#�%fl-1e8ba8b5a-da�&%�'=H�&�(��F��F�FFF�F$'�):�(��*:��N�+:
(��,)*+�����-��,�.![�/![�0fWrong number of arguments�1!7�2!7�3<F��4:�3N�5grecord-type-vtable�6!5�7!5�8gpwpwpwpw�9gdefault-record-printer�:!9�;!9�<�����=gset-struct-vtable-name!�>!=�?!=�@gvtable-offset-user�A!@�B!@�Cg%var?-procedure�Dgvar?�ES`�Fgm-9d6212d37ae-5bf4�GF;�Hgt-9d6212d37ae-5bf3�IH�JG�Kfl-9d6212d37ae-5bf9�LK�M=IJL�Nfl-9d6212d37ae-5bf6�ON�P=HJO�QGMFP�FFFF����
�R:�Q��Sgobj�Tgt-1e8ba8b5a-224�Ugt-1e8ba8b5a-21e�Vgt-1e8ba8b5a-21f�Wgt-1e8ba8b5a-220�Xgt-1e8ba8b5a-223�Ygt-1e8ba8b5a-222�Zgt-1e8ba8b5a-221�[TUVWXYZ�\gm-1e8ba8b5a-225�]\;�^]]]]]]]�_fl-1e8ba8b5a-229�`fl-1e8ba8b5a-22a�afl-1e8ba8b5a-22b�bfl-1e8ba8b5a-22c�cfl-1e8ba8b5a-22d�dfl-1e8ba8b5a-22e�efl-1e8ba8b5a-22f�f_`abcde�g=[^f�hg	copier-id�ih�jfl-1e8ba8b5a-21c�kj�l=i�k�mg	ctor-name�nm�ofl-1e8ba8b5a-214�po�q=n�p�r�sfl-1e8ba8b5a-212�ts�u=r�t�vglayout�wv�xfl-1e8ba8b5a-210�yx�z=w�y�{g
immutable?�|{�}fl-1e8ba8b5a-20e�~}�=|�~��gfield-count�����fl-1e8ba8b5a-20c�����=�����g
getter-ids�����fl-1e8ba8b5a-209�����=�����g	field-ids�����fl-1e8ba8b5a-206�����=�����gpredicate-name��g
field-spec��{����<<<<<<��fl-1e8ba8b5a-1f9��fl-1e8ba8b5a-1fa��fl-1e8ba8b5a-1fb��fl-1e8ba8b5a-1fc��fl-1e8ba8b5a-1fd��fl-1e8ba8b5a-1fe����������=������MFP�FgFFFFlFqFuFzFF�F�F��$'��:S�������:|����gstruct?��:���������:�����g
struct-vtable��:���������<MFP��:��N������������R����<FP��:C�N��gthrow-bad-struct��!���!���gvar-name��g%var-name-procedure��g
%%on-error��gm-9d6212d37ae-5c00���;�����fl-9d6212d37ae-5c02�����=H�����F��FFFF������:�����a����`��g%%type��gt-1e8ba8b5a-14b��gt-1e8ba8b5a-14c��gt-1e8ba8b5a-14d��gt-1e8ba8b5a-14e��gt-1e8ba8b5a-14f��gt-1e8ba8b5a-150��gt-1e8ba8b5a-151�����������gm-1e8ba8b5a-152���;�����������fl-1e8ba8b5a-156��fl-1e8ba8b5a-157��fl-1e8ba8b5a-158��fl-1e8ba8b5a-159��fl-1e8ba8b5a-15a��fl-1e8ba8b5a-15b��fl-1e8ba8b5a-15c�����������=�����ggetter��gindex������fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a������=������h��<<<��fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������=������F��F�FFF�F�$'��:�����a���S��`��gck��gerr��gs����������fl-9d6212d37ae-5c05��fl-9d6212d37ae-5c06������=�������F��FFFF����
��:�����:b����<�F���:��N���������g%%index��:�����a���S��`��fl-9d6212d37ae-5c0a��fl-9d6212d37ae-5c0b������=�������F��FFFF����
��:�����:b�����F��:
�N����g%%copier�:���a�S�`�fl-9d6212d37ae-5c0f�fl-9d6212d37ae-5c10�	�
=��	��
F��FFFF����
�:���
:b��g%%<var>-set-fields�<
F��:N�
��gt-9d6212d37ae-5bff��fl-9d6212d37ae-5c14��=���F��FFFF����
�:����F��F�FFF�F�$'�:����:o��:���:��� �!<F��":�!N�# "�$g
struct-ref�%:$��&F��':
&N�(%'�):���*:b��+:�!N�,*+�-),�.#(-�/.�0<F��1:�0N�2g
var-gensym�3g%var-gensym-procedure�4gm-9d6212d37ae-5c1b�54;�65�7fl-9d6212d37ae-5c1d�87�9=H68�:5F9�FFFF�����;:�:��<a;�=<`�>�F9�F�FFF�F�$'�?:�>��@a?�AS=@`�B55�Cfl-9d6212d37ae-5c20�Dfl-9d6212d37ae-5c21�ECD�F=�BE�G5FF9�FFFF����
�H:�G��I:bG��J<FF9�K:�JN�LIK�ML�N:�>��OaN�PS=O`�Qfl-9d6212d37ae-5c25�Rfl-9d6212d37ae-5c26�SQR�T=�BS�U5TF9�FFFF����
�V:�U��W:bU��XTF9�Y:XN�ZWY�[Z�\:>��]a\�^S=]`�_fl-9d6212d37ae-5c2a�`fl-9d6212d37ae-5c2b�a_`�b=�Ba�c5bF9�FFFF����
�d:�c��e:bc��f<bF9�g:fN�heg�ih�jgt-9d6212d37ae-5c1a�kj�lfl-9d6212d37ae-5c2f�ml�n=k6m�o5nF9�FFFF����
�p:�o��q�nF9�F�FFF�F�$'�r:�q��sr�t:oq��u:�q��v:�q��wvr�x<nF9�y:�xN�zuwy�{:$q��|nF9�}:|N�~{r}�:�q���:bq���:2xN������r���tz~���ps���<F9��:3�N��gvar-refcount��g%var-refcount-procedure��gm-9d6212d37ae-5c36���;�����fl-9d6212d37ae-5c38�����=H�����F��FFFF������:�����a����`���F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-5c3b��fl-9d6212d37ae-5c3c������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-5c40��fl-9d6212d37ae-5c41������=�������F��FFFF����
��:�����:b�����F���:	�N���������:����a���S��`��fl-9d6212d37ae-5c45��fl-9d6212d37ae-5c46������=�������F��FFFF����
��:�����:b����<�F���:�N���������gt-9d6212d37ae-5c35�����fl-9d6212d37ae-5c4a�����=�������F��FFFF����
��:�������F��F�FFF�F�$'��:��������:o����:�����:���������<�F���:��N�������:$�����F���:	�N�������:�����:b����:��N����������������������<F���:��N��gvar-set?��g%var-set?-procedure��gm-9d6212d37ae-5c51���;�����fl-9d6212d37ae-5c53�����=H�����F��FFFF������:�����a����`���F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-5c56��fl-9d6212d37ae-5c57������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-5c5b��fl-9d6212d37ae-5c5c�����=�����F��FFFF����
�:���:b��F��:	N���:���	a�
S�	`�fl-9d6212d37ae-5c60�fl-9d6212d37ae-5c61�
�=��
��F��FFFF����
�:���:b��<F��:N���gt-9d6212d37ae-5c50��fl-9d6212d37ae-5c65��=���F��FFFF����
�:����F��F�FFF�F�$'�:���� :o��!:���":���#"�$<F��%:�$N�&!#%�':$��(F��):	(N�*')�+:���,:b��-:�$N�.,-�/+.�0 &*/�10�2<F��3:�2N�4geach�5``�645�7`6��8`7��9`8��:g%%set-fields�;gcheck?�<gexpr�=p;��<�>gm-9d6212d37ae-5c6c�?>;�@?�����Afl-9d6212d37ae-5c71�Bfl-9d6212d37ae-5c72�Cfl-9d6212d37ae-5c73�Dfl-9d6212d37ae-5c74�Efl-9d6212d37ae-5c75�FABCDE�G==@F�H?�Ifl-9d6212d37ae-5c6e�JI�K=HHJ�Lgt-1e8ba8b5a-16a�Mgt-1e8ba8b5a-16c�Ngt-1e8ba8b5a-16b�OLMN�Pgm-1e8ba8b5a-16d�QP;�RQQQ�Sfl-1e8ba8b5a-171�Tfl-1e8ba8b5a-172�Ufl-1e8ba8b5a-173�VSTU�W=ORV�Xfl-1e8ba8b5a-167�Yfl-1e8ba8b5a-168�Zfl-1e8ba8b5a-169�[XYZ�\=��[�]�GFK�FWFFF\$'
�^::]��_<GFK�`:�_N�a:�_N�b:2_N�c:�_N�d:�_N�eabcd�fgmap�gf�hf�iglist�jgset-var-refcount!�kg%set-var-refcount!-procedure�lS``�mgm-9d6212d37ae-5c80�nm;�ogt-9d6212d37ae-5c7e�pgt-9d6212d37ae-5c7f�qop�rnn�sfl-9d6212d37ae-5c85�tfl-9d6212d37ae-5c86�ust�v=qru�wn�xfl-9d6212d37ae-5c82�yx�z=Hwy�{nvFz�FFFF����
�|:�{��}gt-1e8ba8b5a-18c�~gt-1e8ba8b5a-18d�}~��gm-1e8ba8b5a-18e���;������fl-1e8ba8b5a-192��fl-1e8ba8b5a-193������=����gsetter�������fl-1e8ba8b5a-186��fl-1e8ba8b5a-187��fl-1e8ba8b5a-188�������=���������fl-1e8ba8b5a-17d��fl-1e8ba8b5a-17e������=�����gfield-specs�����fl-1e8ba8b5a-179��fl-1e8ba8b5a-17a������=������vFz�F��F�F�$'��:�����gval��:���������:o����:�����:���������<vFz��:��N�������gstruct-set!��:�����vFz��:	�N��������:�����:b����:j�N�����������������|����<Fz��:k�N��g
set-var-set?!��g%set-var-set?!-procedure��gm-9d6212d37ae-5c90���;��gt-9d6212d37ae-5c8e��gt-9d6212d37ae-5c8f����������fl-9d6212d37ae-5c95��fl-9d6212d37ae-5c96������=��������fl-9d6212d37ae-5c92�����=H������F��FFFF����
��:�������F��F��F�F�$'��:�����:���������:o����:�����:���������<�F���:��N�������:������F���:	�N��������:�����:b����:��N����������������������<F���:��N��g
vlist-null��g
vhash-assq��g
<lambda-case>��gfold��gvhash-consq��gappend��greverse��������g<let>��g<letrec>��g<fix>��g
<lexical-set>��gbuild-var-table��g	<counter>��g%%make-counter-procedure��g
%make-counter��S``````��gm-9d6212d37ae-63bc���;��gt-9d6212d37ae-63b6��gt-9d6212d37ae-63b7��gt-9d6212d37ae-63b8��gt-9d6212d37ae-63b9��gt-9d6212d37ae-63ba��gt-9d6212d37ae-63bb������������������fl-9d6212d37ae-63c1��fl-9d6212d37ae-63c2��fl-9d6212d37ae-63c3��fl-9d6212d37ae-63c4��fl-9d6212d37ae-63c5��fl-9d6212d37ae-63c6���������=������fl-9d6212d37ae-63be��=H��F�FFFF����
�:���geffort�<F�	:N�
gsize�:
N�gcontinuation�
:N�g
recursive?�:N�gdata�:N�gprev�:N�	
�gm-9d6212d37ae-63b4�;�F�F�FFF�F$'�:���:�N�:
��	
	��<F�:�N�gpwpwpwpwpwpw� 
�!g%counter?-procedure�"gcounter?�#gm-9d6212d37ae-63d3�$#;�%gt-9d6212d37ae-63d2�&%�'$�(fl-9d6212d37ae-63d8�)(�*=&')�+fl-9d6212d37ae-63d5�,+�-=H',�.$*F-�FFFF����
�/:�.��0*F-�FgFFFFlFqFuFzFF�F�F��$'�1:S0��21�3:|0��4:�0��541�6:�0��7:�0��871�9<*F-�::�9N�;68:�<35;�=/2<�><F-�?:!>N�@geffort-counter�Ag%effort-counter-procedure�Bgm-9d6212d37ae-63df�CB;�DC�Efl-9d6212d37ae-63e1�FE�G=HDF�HCFG�FFFF�����I:�H��JaI�KJ`�LFG�F�FFF�F�$'�M:�L��NaM�OSKN`�PCC�Qfl-9d6212d37ae-63e4�Rfl-9d6212d37ae-63e5�SQR�T=�PS�UCTFG�FFFF����
�V:�U��W:bU��X<TFG�Y:�XN�ZWY�[Z�\:�L��]a\�^SK]`�_fl-9d6212d37ae-63e9�`fl-9d6212d37ae-63ea�a_`�b=�Pa�cCbFG�FFFF����
�d:�c��e:bc��fbFG�g:
fN�heg�ih�j:L��kaj�lSKk`�mfl-9d6212d37ae-63ee�nfl-9d6212d37ae-63ef�omn�p=�Po�qCpFG�FFFF����
�r:�q��s:bq��tg%%<counter>-set-fields�u<pFG�v:tuN�wsv�xw�ygt-9d6212d37ae-63de�zy�{fl-9d6212d37ae-63f3�|{�}=zD|�~C}FG�FFFF����
�:�~���}FG�F�FFF�F�$'��:��������:o����:�����:���������<}FG��:��N�������:$����}FG��:
�N�������:�����:b����:@�N���������������������<FG��:A�N��gsize-counter��g%size-counter-procedure��gm-9d6212d37ae-63fa���;�����fl-9d6212d37ae-63fc�����=H�����F��FFFF������:�����a����`��F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-63ff��fl-9d6212d37ae-6400������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-6404��fl-9d6212d37ae-6405������=�������F��FFFF����
��:�����:b�����F���:�N���������:����a���S��`��fl-9d6212d37ae-6409��fl-9d6212d37ae-640a������=�������F��FFFF����
��:�����:b����<�F���:t�N���������gt-9d6212d37ae-63f9�����fl-9d6212d37ae-640e�����=�������F��FFFF����
��:������F��F�FFF�F�$'��:��������:o����:�����:���������<�F���:��N�������:$�����F���:�N�������:�����:b����:��N����������������������<F���:��N��gcounter-continuation��g%counter-continuation-procedure��gm-9d6212d37ae-6415���;�����fl-9d6212d37ae-6417�����=H�����F��FFFF������:�����a����`��F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-641a��fl-9d6212d37ae-641b����=����F��FFFF����
�:���:b��<F��:�N���	:����
a	�S�
`�fl-9d6212d37ae-641f�
fl-9d6212d37ae-6420�
�=����F��FFFF����
�:���:b��F��:	N���:���a�S�`�fl-9d6212d37ae-6424�fl-9d6212d37ae-6425��=����F��FFFF����
�:��� :b��!<F��":t!N�# "�$#�%gt-9d6212d37ae-6414�&%�'fl-9d6212d37ae-6429�('�)=&�(�*�)F��FFFF����
�+:�*��,)F��F�FFF�F�$'�-:�,��.-�/:o,��0:�,��1:�,��21-�3<)F��4:�3N�5024�6:$,��7)F��8:	7N�96-8�::�,��;:b,��<:�3N�=;<�>:-=�?/59>�@+.?�A<F��B:�AN�Cgcounter-recursive?�Dg%counter-recursive?-procedure�Egm-9d6212d37ae-6430�FE;�GF�Hfl-9d6212d37ae-6432�IH�J=HGI�KFFJ�FFFF�����L:�K��MaL�NM`�OFJ�F�FFF�F�$'�P:�O��QaP�RSNQ`�SFF�Tfl-9d6212d37ae-6435�Ufl-9d6212d37ae-6436�VTU�W=�SV�XFWFJ�FFFF����
�Y:�X��Z:bX��[<WFJ�\:�[N�]Z\�^]�_:�O��`a_�aSN``�bfl-9d6212d37ae-643a�cfl-9d6212d37ae-643b�dbc�e=�Sd�fFeFJ�FFFF����
�g:�f��h:bf��ieFJ�j:	iN�khj�lk�m:O��nam�oSNn`�pfl-9d6212d37ae-643f�qfl-9d6212d37ae-6440�rpq�s=�Sr�tFsFJ�FFFF����
�u:�t��v:bt��w<sFJ�x:twN�yvx�zy�{gt-9d6212d37ae-642f�|{�}fl-9d6212d37ae-6444�~}�=|G~��FFJ�FFFF����
��:�����FJ�F�FFF�F�$'��:��������:o����:�����:���������<FJ��:��N�������:$����FJ��:	�N�������:�����:b����:C�N����������������������<FJ��:D�N��gcounter-data��g%counter-data-procedure��gm-9d6212d37ae-644b���;�����fl-9d6212d37ae-644d�����=H�����F��FFFF������:�����a����`��F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-6450��fl-9d6212d37ae-6451������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-6455��fl-9d6212d37ae-6456������=�������F��FFFF����
��:�����:b�����F���:	�N���������:����a���S��`��fl-9d6212d37ae-645a��fl-9d6212d37ae-645b������=�������F��FFFF����
��:�����:b����<�F���:t�N���������gt-9d6212d37ae-644a�����fl-9d6212d37ae-645f�����=�������F��FFFF����
��:������F��F�FFF�F�$'��:��������:o����:�����:���������<�F���:��N�������:$�����F���:	�N�������:�����:b����:��N����������������������<F���:��N��gcounter-prev��g%counter-prev-procedure��gm-9d6212d37ae-6466���;�����fl-9d6212d37ae-6468�����=H�����F��FFFF������:�����a����`��F��F�FFF�F�$'��:�����a���S��`�����fl-9d6212d37ae-646b�fl-9d6212d37ae-646c��=����F��FFFF����
�:���:b��<F��:�N�	�
	�:����a�
S�`�fl-9d6212d37ae-6470�fl-9d6212d37ae-6471��=����F��FFFF����
�:���:b��F��:	N���:���a�S�`�fl-9d6212d37ae-6475�fl-9d6212d37ae-6476��=��� �F��FFFF����
�!:� ��":b ��#<F��$:t#N�%"$�&%�'gt-9d6212d37ae-6465�('�)fl-9d6212d37ae-647a�*)�+=(�*�,�+F��FFFF����
�-:�,��.+F��F�FFF�F�$'�/:�.��0/�1:o.��2:�.��3:�.��43/�5<+F��6:�5N�7246�8:$.��9+F��::	9N�;8/:�<:�.��=:b.��>:�5N�?=>�@</?�A17;@�B-0A�C<F��D:�CN�Egm-9d6212d37ae-6481�FE;�GF�Hfl-9d6212d37ae-6486�Ifl-9d6212d37ae-6487�Jfl-9d6212d37ae-6488�Kfl-9d6212d37ae-6489�Lfl-9d6212d37ae-648a�MHIJKL�N==GM�OF�Pfl-9d6212d37ae-6483�QP�R=HOQ�SNFR�FWFFF\$'
�T::S��U<NFR�V:�UN�W:@UN�X:�UN�Y:�UN�Z:CUN�[:�UN�\:�UN�]WXYZ[\�^gset-counter-recursive?!�_g"%set-counter-recursive?!-procedure�`gm-9d6212d37ae-6495�a`;�bgt-9d6212d37ae-6493�cgt-9d6212d37ae-6494�dbc�eaa�ffl-9d6212d37ae-649a�gfl-9d6212d37ae-649b�hfg�i=deh�ja�kfl-9d6212d37ae-6497�lk�m=Hjl�naiFm�FFFF����
�o:�n��piFm�F��F�F�$'�q:�p��r:�p��sqr�t:op��u:�p��v:�p��wvq�x<iFm�y:�xN�zuwy�{:�p��|iFm�}:	|N�~{q}r�:�p���:bp���:^xN������q���tz~���os���<Fm��:_�N��g
abort-counter��grecord-effort!��grecord-size!��gfind-counter��gmin��g	transfer!��g
make-variable��gmake-top-counter��gmake-nested-counter��gmake-recursive-counter��g	<operand>��g%%make-operand-procedure��g
%make-operand��S``````````��gm-9d6212d37ae-6564���;��gt-9d6212d37ae-655a��gt-9d6212d37ae-655b��gt-9d6212d37ae-655c��gt-9d6212d37ae-655d��gt-9d6212d37ae-655e��gt-9d6212d37ae-655f��gt-9d6212d37ae-6560��gt-9d6212d37ae-6561��gt-9d6212d37ae-6562��gt-9d6212d37ae-6563������������
������������
��fl-9d6212d37ae-6569��fl-9d6212d37ae-656a��fl-9d6212d37ae-656b��fl-9d6212d37ae-656c��fl-9d6212d37ae-656d��fl-9d6212d37ae-656e��fl-9d6212d37ae-656f��fl-9d6212d37ae-6570��fl-9d6212d37ae-6571��fl-9d6212d37ae-6572������������
��=��������fl-9d6212d37ae-6566�����=H������F��FFFF����
��:�����gvar��<�F���:��N��gsym��:��N��gvisit��:��N��gsource��:��N��gvisit-count��:��N��g	use-count��:��N��g	copyable?��:��N��gresidual-value��:��N��gconstant-value��:��N��galias��:��N������������
��gm-9d6212d37ae-6558���;����F��F�FFF�F$'��:�����:��N��:
�����������������
�������<F���:��N��gpwpwpwpwpwpwpwpwpwpw������������
��g%operand?-procedure��goperand?��gm-9d6212d37ae-6583���;��gt-9d6212d37ae-6582��������fl-9d6212d37ae-6588�����=�����fl-9d6212d37ae-6585�����=H������F��FFFF����
��:�������F��FgFFFFlFqFuFzFF�F�F��$'��:S�������:|����:���������:�����:���������<�F���:��N�����������������<F���:��N��goperand-var��g%operand-var-procedure��gm-9d6212d37ae-658f���;�����fl-9d6212d37ae-6591�����=H�����F��FFFF�����:����a�`��F��F�FFF�F�$'�:���a�S`����fl-9d6212d37ae-6594�	fl-9d6212d37ae-6595�
	�=�
��F��FFFF����
�
:���:b��<F��:�N���:���a�S`�fl-9d6212d37ae-6599�fl-9d6212d37ae-659a��=���F��FFFF����
�:���:b��F��:
N�� �!:��"a!�#S"`�$fl-9d6212d37ae-659e�%fl-9d6212d37ae-659f�&$%�'=�&�(�'F��FFFF����
�):�(��*:b(��+g%%<operand>-set-fields�,<'F��-:+,N�.*-�/.�0gt-9d6212d37ae-658e�10�2fl-9d6212d37ae-65a3�32�4=1�3�5�4F��FFFF����
�6:�5��7�4F��F�FFF�F�$'�8:�7��98�::o7��;:�7��<:�7��=<8�><4F��?:�>N�@;=?�A:$7��B4F��C:
BN�DA8C�E:�7��F:b7��G:�>N�HFG�IE8H�J:@DI�K69J�L<F��M:�LN�Ngoperand-sym�Og%operand-sym-procedure�Pgm-9d6212d37ae-65aa�QP;�RQ�Sfl-9d6212d37ae-65ac�TS�U=HRT�VQFU�FFFF�����W:�V��XaW�YX`�Z�FU�F�FFF�F�$'�[:�Z��\a[�]SY\`�^QQ�_fl-9d6212d37ae-65af�`fl-9d6212d37ae-65b0�a_`�b=�^a�cQbFU�FFFF����
�d:�c��e:bc��f<bFU�g:�fN�heg�ih�j:�Z��kaj�lSYk`�mfl-9d6212d37ae-65b4�nfl-9d6212d37ae-65b5�omn�p=�^o�qQpFU�FFFF����
�r:�q��s:bq��tpFU�u:tN�vsu�wv�x:Z��yax�zSYy`�{fl-9d6212d37ae-65b9�|fl-9d6212d37ae-65ba�}{|�~=�^}�Q~FU�FFFF����
��:����:b���<~FU��:+�N���������gt-9d6212d37ae-65a9�����fl-9d6212d37ae-65be�����=�R���Q�FU�FFFF����
��:�������FU�F�FFF�F�$'��:��������:o����:�����:���������<�FU��:��N�������:$�����FU��:�N�������:�����:b����:N�N����������������������<FU��:O�N��g%operand-visit��g%%operand-visit-procedure��gm-9d6212d37ae-65c5���;�����fl-9d6212d37ae-65c7�����=H�����F��FFFF������:�����a����`���F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-65ca��fl-9d6212d37ae-65cb������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-65cf��fl-9d6212d37ae-65d0������=�������F��FFFF����
��:�����:b�����F���:	�N���������:����a���S��`��fl-9d6212d37ae-65d4��fl-9d6212d37ae-65d5������=�������F��FFFF����
��:�����:b����<�F���:+�N���������gt-9d6212d37ae-65c4�����fl-9d6212d37ae-65d9�����=�������F��FFFF����
��:�������F��F�FFF�F�$'��:��������:o����:�����:���������<�F���:��N�������:$�����F���:	�N�������:�����:b����:��N����������������������<F���:��N��goperand-source��g%operand-source-procedure��gm-9d6212d37ae-65e0���;�����fl-9d6212d37ae-65e2���=H���F�FFFF�����:���a�`��F�F�FFF�F�$'�:���a�	S`�
���fl-9d6212d37ae-65e5�fl-9d6212d37ae-65e6�
�=�

��F�FFFF����
�:���:b��<F�:�N���:���a�S`�fl-9d6212d37ae-65ea�fl-9d6212d37ae-65eb��=�
��F�FFFF����
�:���:b�� F�!:	 N�"!�#"�$:��%a$�&S%`�'fl-9d6212d37ae-65ef�(fl-9d6212d37ae-65f0�)'(�*=�
)�+�*F�FFFF����
�,:�+��-:b+��.<*F�/:+.N�0-/�10�2gt-9d6212d37ae-65df�32�4fl-9d6212d37ae-65f4�54�6=3�5�7�6F�FFFF����
�8:�7��9�6F�F�FFF�F�$'�::�9��;:�<:o9��=:�9��>:�9��?>:�@<6F�A:�@N�B=?A�C:$9��D6F�E:	DN�FC:E�G:�9��H:b9��I:�@N�JHI�KG:J�L<BFK�M8;L�N<F�O:�NN�Pgoperand-visit-count�Qg%operand-visit-count-procedure�Rgm-9d6212d37ae-65fb�SR;�TS�Ufl-9d6212d37ae-65fd�VU�W=HTV�XSFW�FFFF�����Y:�X��ZaY�[Z`�\�FW�F�FFF�F�$'�]:�\��^a]�_S[^`�`SS�afl-9d6212d37ae-6600�bfl-9d6212d37ae-6601�cab�d=�`c�eSdFW�FFFF����
�f:�e��g:be��h<dFW�i:�hN�jgi�kj�l:�\��mal�nS[m`�ofl-9d6212d37ae-6605�pfl-9d6212d37ae-6606�qop�r=�`q�sSrFW�FFFF����
�t:�s��u:bs��vrFW�w:	vN�xuw�yx�z:\��{az�|S[{`�}fl-9d6212d37ae-660a�~fl-9d6212d37ae-660b�}~��=�`��S�FW�FFFF����
��:�����:b����<�FW��:+�N���������gt-9d6212d37ae-65fa�����fl-9d6212d37ae-660f�����=�T���S�FW�FFFF����
��:�������FW�F�FFF�F�$'��:��������:o����:�����:���������<�FW��:��N�������:$�����FW��:	�N�������:�����:b����:P�N����������������������<FW��:Q�N��goperand-use-count��g%operand-use-count-procedure��gm-9d6212d37ae-6616���;�����fl-9d6212d37ae-6618�����=H�����F��FFFF������:�����a����`���F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-661b��fl-9d6212d37ae-661c������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-6620��fl-9d6212d37ae-6621������=�������F��FFFF����
��:�����:b�����F���:	�N���������:����a���S��`��fl-9d6212d37ae-6625��fl-9d6212d37ae-6626������=�������F��FFFF����
��:�����:b����<�F���:+�N���������gt-9d6212d37ae-6615�����fl-9d6212d37ae-662a�����=�������F��FFFF����
��:�������F��F�FFF�F�$'��:��������:o����:�����:���������<�F���:��N�������:$�����F���:	�N�������:�����:b����:��N����������������������<F���:��N��goperand-copyable?��g%operand-copyable?-procedure��gm-9d6212d37ae-6631���;�	��	fl-9d6212d37ae-6633�		�	=H		�	�F	�FFFF�����	:�	��	a	�		`�	�F	�F�FFF�F�$'�		:�	��	
a		�	S		
`�	���	
fl-9d6212d37ae-6636�	fl-9d6212d37ae-6637�		
	�	=�		�	�	F	�FFFF����
�	:�	��	:b	��	<	F	�	:�	N�			�		�	:�	��	a	�	S		`�	fl-9d6212d37ae-663b�	fl-9d6212d37ae-663c�			�	=�		�	�	F	�FFFF����
�	 :�	��	!:b	��	"	F	�	#:		"N�	$	!	#�	%	$�	&:	��	'a	&�	(S		'`�	)fl-9d6212d37ae-6640�	*fl-9d6212d37ae-6641�	+	)	*�	,=�		+�	-�	,F	�FFFF����
�	.:�	-��	/:b	-��	0<	,F	�	1:+	0N�	2	/	1�	3	2�	4gt-9d6212d37ae-6630�	5	4�	6fl-9d6212d37ae-6645�	7	6�	8=	5		7�	9�	8F	�FFFF����
�	::�	9��	;�	8F	�F�FFF�F�$'�	<:�	;��	=	<�	>:o	;��	?:�	;��	@:�	;��	A	@	<�	B<	8F	�	C:�	BN�	D	?	A	C�	E:$	;��	F	8F	�	G:		FN�	H	E	<	G�	I:�	;��	J:b	;��	K:�	BN�	L	J	K�	M	I	<	L�	N	>	D	H	M�	O	:	=	N�	P<F	�	Q:�	PN�	Rgoperand-residual-value�	Sg!%operand-residual-value-procedure�	Tgm-9d6212d37ae-664c�	U	T;�	V	U�	Wfl-9d6212d37ae-664e�	X	W�	Y=H	V	X�	Z	UF	Y�FFFF�����	[:�	Z��	\a	[�	]	\`�	^�F	Y�F�FFF�F�$'�	_:�	^��	`a	_�	aS	]	``�	b	U	U�	cfl-9d6212d37ae-6651�	dfl-9d6212d37ae-6652�	e	c	d�	f=�	b	e�	g	U	fF	Y�FFFF����
�	h:�	g��	i:b	g��	j<	fF	Y�	k:�	jN�	l	i	k�	m	l�	n:�	^��	oa	n�	pS	]	o`�	qfl-9d6212d37ae-6656�	rfl-9d6212d37ae-6657�	s	q	r�	t=�	b	s�	u	U	tF	Y�FFFF����
�	v:�	u��	w:b	u��	x	tF	Y�	y:		xN�	z	w	y�	{	z�	|:	^��	}a	|�	~S	]	}`�	fl-9d6212d37ae-665b�	�fl-9d6212d37ae-665c�	�		��	�=�	b	��	�	U	�F	Y�FFFF����
�	�:�	���	�:b	���	�<	�F	Y�	�:+	�N�	�	�	��	�	��	�gt-9d6212d37ae-664b�	�	��	�fl-9d6212d37ae-6660�	�	��	�=	�	V	��	�	U	�F	Y�FFFF����
�	�:�	���	��	�F	Y�F�FFF�F�$'�	�:�	���	�	��	�:o	���	�:�	���	�:�	���	�	�	��	�<	�F	Y�	�:�	�N�	�	�	�	��	�:$	���	�	�F	Y�	�:		�N�	�	�	�	��	�:�	���	�:b	���	�:	R	�N�	�	�	��	�	�	�	��	�	�	�	�	��	�	�	�	��	�<F	Y�	�:	S	�N�	�goperand-constant-value�	�g!%operand-constant-value-procedure�	�gm-9d6212d37ae-6667�	�	�;�	�	��	�fl-9d6212d37ae-6669�	�	��	�=H	�	��	�	�F	��FFFF�����	�:�	���	�a	��	�	�`�	��F	��F�FFF�F�$'�	�:�	���	�a	��	�S	�	�`�	�	�	��	�fl-9d6212d37ae-666c�	�fl-9d6212d37ae-666d�	�	�	��	�=�	�	��	�	�	�F	��FFFF����
�	�:�	���	�:b	���	�<	�F	��	�:�	�N�	�	�	��	�	��	�:�	���	�a	��	�S	�	�`�	�fl-9d6212d37ae-6671�	�fl-9d6212d37ae-6672�	�	�	��	�=�	�	��	�	�	�F	��FFFF����
�	�:�	���	�:b	���	�	�F	��	�:		�N�	�	�	��	�	��	�:	���	�a	��	�S	�	�`�	�fl-9d6212d37ae-6676�	�fl-9d6212d37ae-6677�	�	�	��	�=�	�	��	�	�	�F	��FFFF����
�	�:�	���	�:b	���	�<	�F	��	�:+	�N�	�	�	��	�	��	�gt-9d6212d37ae-6666�	�	��	�fl-9d6212d37ae-667b�	�	��	�=	�	�	��	�	�	�F	��FFFF����
�	�:�	���	��	�F	��F�FFF�F�$'�	�:�	���	�	��	�:o	���	�:�	���	�:�	���	�	�	��	�<	�F	��	�:�	�N�	�	�	�	��	�:$	���	�	�F	��	�:		�N�	�	�	�	��	�:�	���	�:b	���	�:	�	�N�	�	�	��	�	�	�	��	�	�	�	�	��	�	�	�	��	�<F	��	�:	�	�N�	�g
operand-alias�	�g%operand-alias-procedure�
gm-9d6212d37ae-6682�

;�

�
fl-9d6212d37ae-6684�

�
=H

�

F
�FFFF�����
:�
��
a
�
	
`�

�F
�F�FFF�F�$'�
:�

��
a
�

S
	
`�


�
fl-9d6212d37ae-6687�
fl-9d6212d37ae-6688�


�
=�

�


F
�FFFF����
�
:�
��
:b
��
<
F
�
:�
N�


�

�
:�

��
a
�
S
	
`�
fl-9d6212d37ae-668c�
fl-9d6212d37ae-668d�


�
 =�

�
!

 F
�FFFF����
�
":�
!��
#:b
!��
$
 F
�
%:		
$N�
&
#
%�
'
&�
(:

��
)a
(�
*S
	
)`�
+fl-9d6212d37ae-6691�
,fl-9d6212d37ae-6692�
-
+
,�
.=�

-�
/

.F
�FFFF����
�
0:�
/��
1:b
/��
2<
.F
�
3:+
2N�
4
1
3�
5
4�
6gt-9d6212d37ae-6681�
7
6�
8fl-9d6212d37ae-6696�
9
8�
:=
7

9�
;

:F
�FFFF����
�
<:�
;��
=�
:F
�F�FFF�F�$'�
>:�
=��
?
>�
@:o
=��
A:�
=��
B:�
=��
C
B
>�
D<
:F
�
E:�
DN�
F
A
C
E�
G:$
=��
H
:F
�
I:		
HN�
J
G
>
I�
K:�
=��
L:b
=��
M:	�
DN�
N
L
M�
O
K
>
N�
P
@
F
J
O�
Q
<
?
P�
R<F
�
S:	�
RN�
Tgm-9d6212d37ae-669d�
U
T;�
V
U�����
Wfl-9d6212d37ae-66a2�
Xfl-9d6212d37ae-66a3�
Yfl-9d6212d37ae-66a4�
Zfl-9d6212d37ae-66a5�
[fl-9d6212d37ae-66a6�
\
W
X
Y
Z
[�
]==
V
\�
^
U�
_fl-9d6212d37ae-669f�
`
_�
a=H
^
`�
b�
]F
a�FWFFF\$'
�
c::
b��
d<
]F
a�
e:�
dN�
f:�
dN�
g:N
dN�
h:�
dN�
i:�
dN�
j:P
dN�
k:�
dN�
l:�
dN�
m:	R
dN�
n:	�
dN�
o:	�
dN�
p
f
g
h
i
j
k
l
m
n
o
�
qgset-operand-visit-count!�
rg#%set-operand-visit-count!-procedure�
sgm-9d6212d37ae-66b1�
t
s;�
ugt-9d6212d37ae-66af�
vgt-9d6212d37ae-66b0�
w
u
v�
x
t
t�
yfl-9d6212d37ae-66b6�
zfl-9d6212d37ae-66b7�
{
y
z�
|=
w
x
{�
}
t�
~fl-9d6212d37ae-66b3�

~�
�=H
}
�
�
t
|F
��FFFF����
�
�:�
���
��
|F
��F��F�F�$'�
�:�
���
�:�
���
�
�
��
�:o
���
�:�
���
�:�
���
�
�
��
�<
|F
��
�:�
�N�
�
�
�
��
�:�
���
�
|F
��
�:	
�N�
�
�
�
�
��
�:�
���
�:b
���
�:
q
�N�
�
�
��
�
�
�
��
�
�
�
�
��
�
�
�
��
�<F
��
�:
r
�N�
�gset-operand-use-count!�
�g!%set-operand-use-count!-procedure�
�gm-9d6212d37ae-66c1�
�
�;�
�gt-9d6212d37ae-66bf�
�gt-9d6212d37ae-66c0�
�
�
��
�
�
��
�fl-9d6212d37ae-66c6�
�fl-9d6212d37ae-66c7�
�
�
��
�=
�
�
��
�
��
�fl-9d6212d37ae-66c3�
�
��
�=H
�
��
�
�
�F
��FFFF����
�
�:�
���
��
�F
��F��F�F�$'�
�:�
���
�:�
���
�
�
��
�:o
���
�:�
���
�:�
���
�
�
��
�<
�F
��
�:�
�N�
�
�
�
��
�:�
���
�
�F
��
�:	
�N�
�
�
�
�
��
�:�
���
�:b
���
�:
�
�N�
�
�
��
�
�
�
��
�
�
�
�
��
�
�
�
��
�<F
��
�:
�
�N�
�gset-operand-copyable?!�
�g!%set-operand-copyable?!-procedure�
�gm-9d6212d37ae-66d1�
�
�;�
�gt-9d6212d37ae-66cf�
�gt-9d6212d37ae-66d0�
�
�
��
�
�
��
�fl-9d6212d37ae-66d6�
�fl-9d6212d37ae-66d7�
�
�
��
�=
�
�
��
�
��
�fl-9d6212d37ae-66d3�
�
��
�=H
�
��
�
�
�F
��FFFF����
�
�:�
���
��
�F
��F��F�F�$'�
�:�
���
�:�
���
�
�
��
�:o
���
�:�
���
�:�
���
�
�
��
�<
�F
��
�:�
�N�
�
�
�
��
�:�
���
�
�F
��
�:	
�N�
�
�
�
�
��
�:�
���
�:b
���
�:
�
�N�
�
�
��
�
�
�
��
�
�
�
�
��
�
�
�
��
�<F
��
�:
�
�N�
�g%set-operand-residual-value!�
�g'%%set-operand-residual-value!-procedure�
�gm-9d6212d37ae-66e1�
�
�;�
�gt-9d6212d37ae-66df�
�gt-9d6212d37ae-66e0�
�
�
��
�
�
��
�fl-9d6212d37ae-66e6�
�fl-9d6212d37ae-66e7�
�
�
��
�=
�
�
��
�
��
�fl-9d6212d37ae-66e3�
�
��
�=H
�
��
�
�
�F
��FFFF����
�:�
����
�F
��F��F�F�$'�:���:����:o��:���:����	<
�F
��
:�	N�
�:���

�F
��:	
N��:���:b��:
�	N�����<F
��:
�N�gset-operand-constant-value!�g&%set-operand-constant-value!-procedure�gm-9d6212d37ae-66f1�;�gt-9d6212d37ae-66ef�gt-9d6212d37ae-66f0�� �!fl-9d6212d37ae-66f6�"fl-9d6212d37ae-66f7�#!"�$= #�%�&fl-9d6212d37ae-66f3�'&�(=H%'�)$F(�FFFF����
�*:�)��+�$F(�F��F�F�$'�,:�+��-:�+��.,-�/:o+��0:�+��1:�+��21,�3<$F(�4:�3N�5024�6:�+��7$F(�8:	7N�96,8-�::�+��;:b+��<:3N�=;<�>:,=�?/59>�@*.?�A<F(�B:AN�Cgset-operand-alias!�Dg%set-operand-alias!-procedure�Egm-9d6212d37ae-6701�FE;�Ggt-9d6212d37ae-66ff�Hgt-9d6212d37ae-6700�IGH�JFF�Kfl-9d6212d37ae-6706�Lfl-9d6212d37ae-6707�MKL�N=IJM�OF�Pfl-9d6212d37ae-6703�QP�R=HOQ�SFNFR�FFFF����
�T:�S��U�NFR�F��F�F�$'�V:�U��W:�U��XVW�Y:oU��Z:�U��[:�U��\[V�]<NFR�^:�]N�_Z\^�`:�U��aNFR�b:		aN�c`VbW�d:�U��e:bU��f:C]N�gef�hdVg�iY_ch�jTXi�k<FR�l:DkN�mgand=>�ngmake-operand�ogmake-bound-operands�pgmake-unbound-operands�qgset-operand-residual-value!�rgapply�sg
visit-operand�tgnot�ugpair?�vgnull?�wglist?�xgsymbol?�ygvector?�zglength�{geqv?�|gequal?�}gtypes-check?�~goperator-size-limitS�~	���goperand-size-limitS���	���gvalue-size-limitS���	���geffort-limitS���	���grecursive-effort-limitS���	���������gcurrent-module��gerror��funbound var��gvlist->list��g
string-append��gsymbol->string��f ��gmake-lexical-ref��������fno matching pattern��gevery��gconst?��g	const-exp��gcatch��gthe-scm-module��geffect��g	make-void��gtest��g
make-const��g	<dynwind>��gmake-dynwind��g<dynlet>��gmake-dynlet��g
<sequence>��z��z��gtail�����g
make-sequence��g<let-values>��gmake-let-values��gmake-lambda-case��gmake-fix��gmake-letrec��gmake-let��g<abort>��g<prompt>��g
<conditional>��gmake-lambda��g<dynref>��g<toplevel-set>��g<toplevel-define>��g<module-set>��g<dynset>��g	constant?��goperator��gcar��gcdr��gfilter��gcompose��gvoid?��gmake-effects-analyzer��glexical-ref?��glexical-ref-gensym��gmake-prompt-tag��gabort?��g	tree-il=?��g	abort-tag��������g
abort-args��g
abort-tail��gmake-prompt��g
make-abort��g	sequence?��g
sequence-exps��g@apply��glambda-case-alternate��gcall��gand-map��gtake��gdrop��gsplit-at��g
fold-right��glambda?��geffect-free-primitive?��gaccessor-primitive?��gmemv��ft-��gt��gmake-conditional��gcons��gconstructor-primitive?��gstring?��gvector��g@call-with-values��ffailure-��gfailure��gmake-toplevel-set��gmake-toplevel-define��gmake-module-set��������gresolve-module��gensureS��gmodule?��gmodule-variable��gresolve-primitives!��gprimitive-ref?��gmake-dynset��gmake-dynref��fpost-��gpost�����fpre-��gpre���������fwhat!��galist-delete��gassq-ref��grest�����grest-sym�����g$��bi����S��g	rest-args���S���g?�gcut�g<>�������	����
g=�glexical-refcount���

�|	
������S��g	make-list�gtmp�ftmp �gmake-lexical-set�C5h���]4	
,-.541>"G44569h_]6Wgid
		gfilenameflanguage/tree-il/peval.scm�		2	��		COh*]C"gid
				CRUZh)]�C!gx
				C]^h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/peval.scm�
	2	��		:g
macro-typegidentifier-syntax�C55R44_6Rn{}~������
h0Q]��	��CIgdummy
		0gevent		0garg			0		0	C]^h(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/peval.scm�
	>	��		"g
macro-typegsyntax-rules�gpatternsgquotegeventgargg...C5_R����_�hH�-1344554��>"G4>"GD�gevent
			Cgargs			Cgpp			Cgfilenameflanguage/tree-il/peval.scm�
	E
��	
	F	��	
	F	��		F	+��		F	��		G	��		F	��		F	��		H	��		H	��	)	H	��	2	I	��	C	J	��			C
gnameglog*�C�R���h �]
4L5$L6C�gexp
		gres		gres				gfilenameflanguage/tree-il/peval.scm�
	N	��		O	��			O	��		P	��		M	��			C�h �]
4L5$L6C�gexp
		gres		gres				gfilenameflanguage/tree-il/peval.scm�
	Q	��		R	��			R	��		S	��		M	��			Chp]Chgexp
		gres		gfilenameflanguage/tree-il/peval.scm�
	T	��			Ch@�]U#4OO>XCXFGE�gproc
		>gexp		>gtag			>g_		3	>gresults		3	>gfilenameflanguage/tree-il/peval.scm�
	L
��		M	��		N	��	6	M	��		>	gnamegtree-il-any�C�R��hH]45"-�$"4455$C�"���C
"���gproc
		Cgvlist		Cglen				Cgi			<gt		&	:gfilenameflanguage/tree-il/peval.scm�
	W
��		X	
��			X	��		Y	��		Z	��		Z	��		[	��		[	��	&	[	��	&	[	��	4	\	��	:	\	��	<	Y	��		C	gnameg	vlist-any�C�R��hN]L��CFgfilenameflanguage/tree-il/peval.scm�		_	��			
C���������h0])"��$��&q
��OQ�$N�&A
��&'	��$�(�C66��C66��CC�$��&C�&C�&C�&C�	&C�
&C�&?
���$)�&
��45$C"���"���"���"���"����gexp
	)gw	�gfailure		)�gw		G	gw		V	xgfailure		Z	xgw�!gw	gfilenameflanguage/tree-il/peval.scm�
	^
��		_	��	)gnamegsingly-valued-expression?�C�R�����h(�]45$C45456�gx
		(gfilenameflanguage/tree-il/peval.scm�
	m
��		o	��	
	o	��		q	��		r	��		r	/��	!	r	��	&	s	��	(	q	��
		(gnamegtruncate-values�g
documentationf%Discard all but the first value of X.�C�R�h�]�C�gname
		ggensym		grefcount			gset?			gfilenameflanguage/tree-il/peval.scm�
	y
��			gnameg%make-var-procedure�C�R44�6R�-h�]C�gt-9d6212d37ae-5bdd
		gt-9d6212d37ae-5bde		gt-9d6212d37ae-5bdf			gt-9d6212d37ae-5be0						CU/�0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C4h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
	y
��		nC5�R78;�<�4?�>"G	B��i��R�hz]�$��CCrgobj
		gfilenameflanguage/tree-il/peval.scm�
	y
��		gnameg%var?-procedure�CCR44D6RE�h:]C2gt-9d6212d37ae-5bf3
		
		
CU/D0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
	y
��		nC5DR���h|]�&
�C6tgs
		gfilenameflanguage/tree-il/peval.scm�
	y
��		gnameg%var-name-procedure�C�R44�6R���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					CE/h:]C2gt-9d6212d37ae-5bff
		
		
CU/�0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C1h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
	y
��	�C5�R��2h~]�&�C6vgs
		gfilenameflanguage/tree-il/peval.scm�
	y
��		gnameg%var-gensym-procedure�C3R4426RAHMh:]��C2gerr
		gs					CPV[h:]��C2gerr
		gs					C^dih:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-5c1a
		
		
CU/20h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
	y
��	�C52R���h �]�&	�C6xgs
		gfilenameflanguage/tree-il/peval.scm�
	y
��		gnameg%var-refcount-procedure�C�R44�6R���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-5c35
		
		
CU/�0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
	y
��	�C5�R���h |]�&	�C6tgs
		gfilenameflanguage/tree-il/peval.scm�
	y
��		gnameg%var-set?-procedure�C�R44�6R���h:]��C2gerr
		gs					C�h:]��C2gerr
		gs					C
h:]��C2gerr
		gs					CE1h:]C2gt-9d6212d37ae-5c50
		
		
CU/�0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C3h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
	y
��	�C5�R446R9^`ehih v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C]^h(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/peval.scm�
	y
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5R��jh �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�
	y
��			gnameg%set-var-refcount!-procedure�CkR44j6Rl�hZ]CRgt-9d6212d37ae-5c7e
		gt-9d6212d37ae-5c7f					CU/j0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
	y
��		nC5jR���h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�
	y
��			gnameg%set-var-set?!-procedure�C�R44�6Rl�hZ]CRgt-9d6212d37ae-5c8e
		gt-9d6212d37ae-5c8f					CU/�0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
	y
��		nC5�R�������jh��]�$v�&j
��	�45��&		�"	45��&	�"4>"GCCC�gexp
	�gres	�gw		!	|gvar		-	|gval		K	ygfilenameflanguage/tree-il/peval.scm�
�	��	�	��	$�	��	-�	��	-�	��	2�	%��	K�	!��	K�	
��		�	C����h�]
�6�gname
		gsym		gres			gfilenameflanguage/tree-il/peval.scm�
�	��	�	!��	�	��			C�����h�]
�6�gname
		gsym		gres			gfilenameflanguage/tree-il/peval.scm�
�	��	�	!��	�	��			C���h�]
�6�gname
		gsym		gres			gfilenameflanguage/tree-il/peval.scm�
�	��	�	!��	�	��			C���h�]
�6�gname
		gsym		gres			gfilenameflanguage/tree-il/peval.scm�
�	��	�	!��	�	��			C�����hh�]��$X�&S
��	�	�	�	�	�	�	�4$"$	"�$���"�(/4	>"G4>"G4
5"��$~��$j��
�$N���$2�(&��	�
�
�
	"��l"4"/"$
""
	"��0"56�&*
��	�	�	�6�&0
��	�	�	�	�	6�
&*
��	�	�	�6�&Q
��	�	�4
5��&	�"4>"GCCC�gexp
	dgres	dgw		egw		"egw		)egw		0egw		=egx		}Zgls	�Fgp-ls		�Fgp-ls	
�Fgp-ls	�Fgw	�Agw	
�9gx	�9gw	�.gx	�.gw	�gw	w�gw	~�gw	��gw	��gw	�gw	�gw	^gs	.[gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	R�	��	\�	��	c�	"��	i�	'��	n�	0��	s�	<��	v�	���	��F�	��_�	��a�	��e�	��h�	����	����	����	����	���	���	��%�	��.�	��.�	��	d	Chq]Cigexp
		gres		gfilenameflanguage/tree-il/peval.scm�
�	��			Ch(�-.,3#6�gexp
		$gtable		$gfilenameflanguage/tree-il/peval.scm�
�
��	$�	��		$gnamegbuild-var-table�C�R�h�]�C�geffort
		gsize		gcontinuation			g
recursive?			gdata			gprev			gfilenameflanguage/tree-il/peval.scm�
�
��			gnameg%%make-counter-procedure�C�R44�6R�h�]C�gt-9d6212d37ae-63b6
		gt-9d6212d37ae-63b7		gt-9d6212d37ae-63b8			gt-9d6212d37ae-63b9			gt-9d6212d37ae-63ba			gt-9d6212d37ae-63bb						CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
Ch]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
�
��		nC5�R7;� �4?�>"G	B��i��R�h]�$��CCwgobj
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%counter?-procedure�C!R44"6RE=h:]C2gt-9d6212d37ae-63d2
		
		
CU/"0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C?h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
�
��		nC5"R��@h�]�&
�C6{gs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%effort-counter-procedure�CAR44@6ROV[h:]��C2gerr
		gs					C^dih:]��C2gerr
		gs					Clrxh:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-63de
		
		
CU/@0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5@R���h�]�&�C6ygs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%size-counter-procedure�C�R44�6R���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-63f9
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5�R���h �]�&	�C6�gs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%counter-continuation-procedure�C�R44�6R�h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C$h:]��C2gerr
		gs					CE@h:]C2gt-9d6212d37ae-6414
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
CBh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5�R��Ch �]�&	�C6gs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%counter-recursive?-procedure�CDR44C6RRY^h:]��C2gerr
		gs					Caglh:]��C2gerr
		gs					Couzh:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-642f
		
		
CU/C0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5CR���h �]�&	�C6ygs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%counter-data-procedure�C�R44�6R���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-644a
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5�R���h �]�&	�C6ygs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%counter-prev-procedure�C�R44�6R�
h:]��C2gerr
		gs					C
h:]��C2gerr
		gs					C!&h:]��C2gerr
		gs					CEBh:]C2gt-9d6212d37ae-6465
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
CDh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5�R44t6R9TV]hih v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C]^h(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/peval.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5tR��^h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�
�
��			gnameg"%set-counter-recursive?!-procedure�C_R44^6Rl�hZ]CRgt-9d6212d37ae-6493
		gt-9d6212d37ae-6494					CU/^0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
�
��		nC5^R���h �]�&		�"	456xgc
		gfilenameflanguage/tree-il/peval.scm�
�
��	�	��		gnameg
abort-counter�C�R��@�h8�]	�&
�"	45
�$6�C�gc
		6ge		6gfilenameflanguage/tree-il/peval.scm�
�
��	�	��	�	��	!�	��	"�	��	'�	��	-�	��	0�	��	1�	��	4�	��		6gnamegrecord-effort!�C�R����h8�]	�&�"	45
�$6�C�gc
		6gs		6gfilenameflanguage/tree-il/peval.scm�
�
��	�	��	�	��	!�	��	"�	��	'�	��	-�	��	0�	��	1�	��	4�	��		6gnamegrecord-size!�C�R�����hP�]$E�&		�"	45&C�&		�"	456C�gdata
		Ogcounter		Ogfilenameflanguage/tree-il/peval.scm�
�
��	�	��	
�	��	)�	��	3�	��	M�	��		O	gnamegfind-counter�C�R��@��h �-.,3	#�&
�"	45#�&�"	45�&
�"	45�&
�"	4545���&�"	45�&�"	4545��C�gfrom
	gto	geffort		gsize		gfrom-v	��gto-v	��gfrom-balance	��g
to-balance	��gamount	��gfrom-v	�gto-v	�gfrom-balance	�g
to-balance	�gamount		gfilenameflanguage/tree-il/peval.scm�
�
��	�	*��	-�	��	8�	(��	P�	��	U�	��	o�	+����	����	����	����	����	����	����	����	����	����	����	����	����	)����	����	����	����	����	���	��	�	���	���	���	���	�� 			gnameg	transfer!�C�R��h(
]4545�Cgeffort-limit
		$g
size-limit		$gcontinuation			$gdata			$geffort			$gsize			$gfilenameflanguage/tree-il/peval.scm�
�
��	�	��	
�	��	�	��		$	gnamegmake-top-counter�C�R���hH]4
54
5�4>"GC	gcontinuation
		Agdata		Agcurrent			Ageffort			(gsize			(gc		(	Agfilenameflanguage/tree-il/peval.scm�
�
��	�	��			��	�	��	(�	��	+	��		A	gnamegmake-nested-counter�C�R������h�p]$4
54
5�&		�"	45�&		�"	45�4>"GChgeffort-limit
	�g
size-limit	�gorig		�gcurrent		�geffort		D	hgsize		D	hgcontinuation		D	hgdata		D	hgc		h�	gfilenameflanguage/tree-il/peval.scm�

��			��		
	��		��	,
	��	D		��	h		��	k	��		�	gnamegmake-recursive-counter�C�R�h N,
3
	�CFgvar
		 gsym		 gvisit			 gsource			 gvisit-count			 g	use-count			 g	copyable?			 gresidual-value			 gconstant-value			 galias				 
gfilenameflanguage/tree-il/peval.scm�

��		 	
gnameg%%make-operand-procedure�C�R44�6R��h Z,
3
	CRgt-9d6212d37ae-655a
		 gt-9d6212d37ae-655b		 gt-9d6212d37ae-655c			 gt-9d6212d37ae-655d			 gt-9d6212d37ae-655e			 gt-9d6212d37ae-655f			 gt-9d6212d37ae-6560			 gt-9d6212d37ae-6561			 gt-9d6212d37ae-6562			 gt-9d6212d37ae-6563				 
		 	
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5�R7�;�ר4?�>"G	B��i��R�h]�$��CCwgobj
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand?-procedure�C�R44�6RE�h:]C2gt-9d6212d37ae-6582
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5�R���h�]�&
�C6xgs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-var-procedure�C�R44�6R
h:]��C2gerr
		gs					C h:]��C2gerr
		gs					C#)/h:]��C2gerr
		gs					CEKh:]C2gt-9d6212d37ae-658e
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
CMh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5�R��Nh�]�&�C6xgs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-sym-procedure�COR44N6R]dih:]��C2gerr
		gs					Clrwh:]��C2gerr
		gs					Cz��h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-65a9
		
		
CU/N0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5NR���h �]�&	�C6{gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%%operand-visit-procedure�C�R44�6R���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-65c4
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5�R���h �]�&	�C6{gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-source-procedure�C�R44�6R	h:]��C2gerr
		gs					C#h:]��C2gerr
		gs					C&,1h:]��C2gerr
		gs					CEMh:]C2gt-9d6212d37ae-65df
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
COh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5�R��Ph �]�&	�C6�gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-visit-count-procedure�CQR44P6R_fkh:]��C2gerr
		gs					Cntyh:]��C2gerr
		gs					C|��h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-65fa
		
		
CU/P0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5PR���h �]�&	�C6~gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-use-count-procedure�C�R44�6R���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-6615
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5�R���h �]�&	�C6~gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-copyable?-procedure�C�R44�6R			h:]��C2gerr
		gs					C		 	%h:]��C2gerr
		gs					C	(	.	3h:]��C2gerr
		gs					CE	Oh:]C2gt-9d6212d37ae-6630
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C	Qh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5�R��	Rh �]�&	�C6�gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg!%operand-residual-value-procedure�C	SR44	R6R	a	h	mh:]��C2gerr
		gs					C	p	v	{h:]��C2gerr
		gs					C	~	�	�h:]��C2gerr
		gs					CE	�h:]C2gt-9d6212d37ae-664b
		
		
CU/	R0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C	�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5	RR��	�h �]�&	�C6�gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg!%operand-constant-value-procedure�C	�R44	�6R	�	�	�h:]��C2gerr
		gs					C	�	�	�h:]��C2gerr
		gs					C	�	�	�h:]��C2gerr
		gs					CE	�h:]C2gt-9d6212d37ae-6666
		
		
CU/	�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C	�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5	�R��	�h �]�&		�C6zgs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-alias-procedure�C	�R44	�6R



h:]��C2gerr
		gs					C

"
'h:]��C2gerr
		gs					C
*
0
5h:]��C2gerr
		gs					CE
Qh:]C2gt-9d6212d37ae-6681
		
		
CU/	�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C
Sh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5	�R44+6R9
c
e
phih v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C]^h(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/peval.scm�

��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5+R��
qh �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg#%set-operand-visit-count!-procedure�C
rR44
q6Rl
�hZ]CRgt-9d6212d37ae-66af
		gt-9d6212d37ae-66b0					CU/
q0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C
�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5
qR��
�h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg!%set-operand-use-count!-procedure�C
�R44
�6Rl
�hZ]CRgt-9d6212d37ae-66bf
		gt-9d6212d37ae-66c0					CU/
�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C
�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5
�R��
�h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg!%set-operand-copyable?!-procedure�C
�R44
�6Rl
�hZ]CRgt-9d6212d37ae-66cf
		gt-9d6212d37ae-66d0					CU/
�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C
�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5
�R��
�h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg'%%set-operand-residual-value!-procedure�C
�R44
�6RlhZ]CRgt-9d6212d37ae-66df
		gt-9d6212d37ae-66e0					CU/
�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
Ch]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5
�R��h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg&%set-operand-constant-value!-procedure�CR446Rl@hZ]CRgt-9d6212d37ae-66ef
		gt-9d6212d37ae-66f0					CU/0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
CBh]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5R��Ch �]�&		�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg%set-operand-alias!-procedure�CDR44C6RljhZ]CRgt-9d6212d37ae-66ff
		gt-9d6212d37ae-6700					CU/C0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
Clh]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5CRm�����h�T-.,3###45$ �&		�"	45�"�&		�"	45$"

�CLgvar
	�gsym	�gsource		�gvisit		�galias		�gsource		0�g	copyable?		�galias		�gfilenameflanguage/tree-il/peval.scm�
(
��	(-	��	0-	��	8/	��	;/	$��	T/	��	\0	��	x0	��	.	��
	�		gnamegmake-operand�CnRfnh�]L6�gname
		gsym		gsource			galias			gfilenameflanguage/tree-il/peval.scm�
4	��	5	
��			Cnh�]L6�gname
		gsym		gsource			gfilenameflanguage/tree-il/peval.scm�
7	��	8	
��			Ch@�-.,3#$O6O6�gvars
		?gsyms		?gsources			?gvisit			?galiases			?gfilenameflanguage/tree-il/peval.scm�
2
��	3	��	.4	��	?7	��		?	gnamegmake-bound-operands�CoRfnh�]6�gvars
		gsyms		gfilenameflanguage/tree-il/peval.scm�
;
��	<	��			gnamegmake-unbound-operands�CpR�����
�h��]�$��&q
���$V�&G
��&+	��$�(�"""""""�&	�C6�gop
	�gval	�gw			gw		6	pgw		E	ggval	��gfilenameflanguage/tree-il/peval.scm�
>
��	A	���?	��	�	gnamegset-operand-residual-value!�CqR��P��P
qh@{]L�&	L	�"	4L5�L�&L	�CL6sgval
		9gfilenameflanguage/tree-il/peval.scm�
T		��	U	,��	U	(��	U	��		9
C��P
qh@{]L�&	L	�"	4L5�L�&L	�CL6sgval
		9gfilenameflanguage/tree-il/peval.scm�
e		��	f	,��	f	(��	f	��		9
C��P
qh@{]L�&	L	�"	4L5�L�&L	�CL6sgval
		9gfilenameflanguage/tree-il/peval.scm�
T		��	U	,��	U	(��	U	��		9
C������
��h8r]L�&L	�"4L>"GL6jgfilenameflanguage/tree-il/peval.scm�
[	��	_	��	1Z	��		1
gnamegabort�Cr���P
qh@{]L�&	L	�"	4L5�L�&L	�CL6sgval
		9gfilenameflanguage/tree-il/peval.scm�
e		��	f	,��	f	(��	f	��		9
C��P
qh@{]L�&	L	�"	4L5�L�&L	�CL6sgval
		9gfilenameflanguage/tree-il/peval.scm�
e		��	f	,��	f	(��	f	��		9
Ch��-.,3##�&		�"	45
�$POO4O>"GV�&		�"	45$�$"$"�$D4�&		�"	45�&		�"	45>�"y	UX4�&		�"	45�&		�"	454
O5>X"/G4
>"X4O>"GCX4O>"GFC�gop
	�gcounter	�gctx		�geffort-limit		�g
size-limit		�gtag	�\g_	I\gresults	I\gfilenameflanguage/tree-il/peval.scm�
I
��	!R	��	:R	��	?R	��	NS	��	fW	���W	���X	���X	 ���X	8���X	���Y	���Y	)���Y	���Z	���a	��b	��)c	��Ca	��LZ	��cS	��	�		gnameg
visit-operand�CsR�tuvwxy�z�{|
h��]�$C�$"K�$"=�$"/�$"!�$"�$"�$
4	5�C
�$"�$"�$4	5	�CC�gprimitive-name
	�gargs	�gfilenameflanguage/tree-il/peval.scm�
j
��	k	��	kn	��	sn	��	}k	���p	���p	��	�	gnamegtypes-check?�C}R�������h(�]	4M5$�C4M56�gsym
		&gv		&gfilenameflanguage/tree-il/peval.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	�	-��	&�	��			&gnameg
lookup-var�Cf��������	h@�]	444�&
�"	455554M5NC�gvar
		?gnew	-	?gfilenameflanguage/tree-il/peval.scm�
�		��	�	��	�	��		�	-��	�	=��	'�	-��	)�	-��	+�	��	-�	��	-�	��	0�	��	<�	
��
		?Ch�]LO6|gvars
		gfilenameflanguage/tree-il/peval.scm�
�	��	�	��		gnameg
fresh-gensyms�C���
�h@�]	�&		�"	45��&	�C6�gop
		9gval		9gfilenameflanguage/tree-il/peval.scm�
�	��	�	#��	�	��	�	��		9gnamegrecord-operand-use�C���q
�h`�]
�&		�"	45�
�$4>"G"�&	�C6�gop
		Zgn		Zgcount		 	Zgfilenameflanguage/tree-il/peval.scm�
�	��	�	��	 �	��	 �	��	%�	��	*�	��	+�	��	D�	��			Z	gnamegunrecord-operand-uses�C��q������Nh�-.,3##4L>"G&"�$4>"G"�&
�"	45�&
�"	4	5�&�"	4
56�gop
	�gctx	�gval		�gs		{�gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	8�	��	F�	��	G�	��	d�	#��	{�	����	5����	��
	�	gnamegresidualize-lexical�C�����hH�]"%�$456456�$�(�C"���"����gsrc
		Egvalues		Egfilenameflanguage/tree-il/peval.scm�
�	��		�	��	�	��	�	7��	�	��	�		��	�	��		E	gnamegmake-values�C��f���{r|��hH�]L�$"L�$4L>"44L5L>GD�gresults
	=	Ggfilenameflanguage/tree-il/peval.scm�
�	��	�	��	�	��	*�	��	-�	��	<�	��	@�	
��	G�	��			G
Chr-13Djg_
			
gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	
�	
��			


C�����ho]L6ggt-9d6212d37ae-6b11
		
gfilenameflanguage/tree-il/peval.scm�
	%��		
C��}h�]45$�454O>G$C	�$
6�$�$	�664
O56456"456	&45$
6"���"���gsrc
	�gname	�gargs		�gctx		�gmake-values		�gargs			2gsuccess?		3�gvalues		3�gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	�	��	�	*��	�	��	�	��	6�	��	@�	��	I�	��	O�	��	X�	��	[	��	_	��	f	#��	h	��	m	$��	o	��	t	 ���	����	����	����	����	����	���	����	���	���	���		��	�	gnamegfold-constants�C����������������������������z���������������.h�0
]i"�"�"�"�"�"s""�"V"��$��&7
��	�	�4L5$6C�&7
��	�	�4L5$6C�&�
��45�$45"$	�"$
4	
56"��$Y45�$<�((�	4L	5

$4

56C4	
564	
56�$����"��}4	
56"��a4	
564	
56�$��&�
��	��$��&w
��	�	�	�	�		�
	�	�&/4L5

$4	

5	6C"���"���"���"���"����$M�&@
��	�	�	�4L5$6C"��V"��R�$V�&I
��	�	�	�	�4L5$6C"���"����$M�&@
��	�	�	�4L5$6C"���"����$�&C"��w"��s�$�&C"��Y"��U�$�&C"��;"��7�$�&C"��"���$��&~
���$g�&Z
��&C	�L45�$,L$L45�"$4 L56CC"���"���"���"���"��"�"i""�"|"-�$"�&3L�$)L$L�"$L4 L56CC�!&3L�$)L$L�"$L4 L56CC�"&3L�$)L$L�"$L4 L56CC�#&3L�$)L$L�"$L4 L56CC�$&3L�$)L$L�"$L4 L56CC�%&3L�$)L$L�"$L4 L56CC�&&3L�$)L$L�"$L4 L56CC�&q
���$Z�&M
��4'5$3L�$)L$L�"$4 L56CC"��F"��B"��>"��:"��6�$@�(&3L�$)L$L�"$L4 L56CC"���"����$@�)&3L�$)L$L�"$L4 L56CC"��="��9�$@�*&3L�$)L$L�"$L4 L56CC"���"����$@�+&3L�$)L$L�"$L4 L56CC"���"����$@�,&3L�$)L$L�"$L4 L56CC"��P"��L�$@�-&3L�$)L$L�"$L4 L56CC"��"���(
gexp
	�gw	>	qgw		D	qgw		K	qgw		R	qgbody		[	qgw	~�gw	��gw	��gw	��gbody	��gw��gw	��gtail-len	��glen	��gls		�gn		�gp-ls		�ghead	kgw		,Qgtail	
5Qgw	u�gw�tgw	�tgw	�tgw	�lgw	�lgw	lgw	
lgw	lgw		lgw	
"lgw	)lgw	0lgbody	
@hgw��gw	��gw	��gw	��gw	��gbody	��gw�-gw	�-gw	�-gw	�-gw	-gw	
-gbody	-gwI�gw	O�gw	V�gw	]�gw	d�gbody	m�gw	�gw	�gw	*{gw	9wgw[�gw	a�gw	|�=gfilenameflanguage/tree-il/peval.scm�
	��		��	UG	��	[G		��	cH	��	oI	��	t	���K	���K		���L	���M	���	���O		��/Q	��5Q	��=R	��BS	&��KS	3��MS	&��OS	��RO		���	��:A	��@A		��HB	��OD	!��fC	��l	���<	���<		���=	���>	���	��
8	��8		��9	��+:	��1	��g4	��m4		��u5	���6	���	��>%	��E%	��I%		��O%	&��R%	>��Y%	5��^%	*��b%		��g&	$��k&	4��o&	$��s&	��{	��� 	��� 		��� 	��� 	)��� 	��� 		���!	$���!	4���!	$���!	B���!	���	��� 	��� 		��� 	�� 	)�� 	��
 		��!	$��!	4��!	$��!	B��!	��%	��/ 	��3 		��9 	��= 	)��B 	��F 		��K!	$��O!	4��S!	$��X!	B��Z!	��a	��k 	��o 		��u 	��y 	)��~ 	��� 		���!	$���!	4���!	$���!	B���!	���	��� 	��� 		��� 	��� 	)��� 	��� 		���!	$���!	4���!	$���!	B���!	���	��� 	��� 		��� 	��� 	)��� 	��� 		���!	$��!	4��!	$��!	B��!	��	�� 	��# 		��) 	��- 	)��2 	��6 		��;!	$��?!	4��C!	$��H!	B��J!	��Q	��� 	��� 		��� 	��� 	)��� 	��� 		���!	$���!	4���!	$���!	B���!	���	��� 	��� 		��� 	��� 	)��� 	��� 		��!	$��!	4��!	$��
!	B��!	��	��/ 	��3 		��9 	��= 	)��B 	��F 		��K!	$��O!	4��S!	$��X!	B��Z!	��b	��z 	��~ 		��� 	��� 	)��� 	��� 		���!	$���!	4���!	$���!	B���!	���	��� 	��� 		��� 	��� 	)��� 	��� 		���!	$���!	4���!	$���!	B���!	���	�� 	�� 		�� 	�� 	)��# 	��' 		��,!	$��0!	4��4!	$��9!	B��;!	��C	��[ 	��_ 		��e 	��i 	)��n 	��r 		��w!	$��{!	4��!	$���!	B���!	���	���	�gnamegloop�Ch(�]
OQ6�gsrc
		!gexp		!gnmin			!gnmax			!gconsumer			!gloop			!gfilenameflanguage/tree-il/peval.scm�

	��		��		!	gnameg
inline-values�C�h�]4M56�gx
		
gfilenameflanguage/tree-il/peval.scm�
X	��	]	��	
]	��		
gnamegconstant-expression?�C����h0�]L&C�&		�"	45
��C�gop
		+gfilenameflanguage/tree-il/peval.scm�
f	��	m	��	
m	��	m	
��	n	��	(n	��	*n	
��		+gnamegreferenced?�Cfqh y]4>"GCqgop
		gval		gfilenameflanguage/tree-il/peval.scm�
�	"��	�	$��			C���	S���O�����	R��qs���hT]^OQ"�"�
(�45

�$�445455$<45(C44	
5545456("4544
�55(C4
544	
5545456
	"��
�
4
5$
�
"���
�&	
	�"	4
5$
�
�
"���&"
�&	
	�"	4
5
��$14
4
5>"G
�
�
"��^
�4
545$"
��
"��&	
"��45	"���Lgops
	g	in-order?	gbody		gcounter		gctx		gbuild-result		greferenced?		
gold		gvalues		geffects			gops*	
	�gvalues		�geffects		�gnew	
	&geffects		J�gvalues		[�geffect-vals	��gbody	��gvalues	��gop	
�geffect	��gfilenameflanguage/tree-il/peval.scm�
_	��	�	��	�	��	�	��	�	��	&�	
��	-�	��	1�	��	2�	��	7�	"��	@�	4��	J�	��	J�	��	Rt	��	Sv	��	[v	��	cw	
��	iy	��	ly	!��	xy	��	yz	���{	���y	���	����	&����	����	����	'����	0����	'����	���~	����	
����	����	����	����	#����	����	����	����	����	"���	���	���	
��	�	���	���	��&�	��)�	��E�	��H�	��M�	��Y�	��]m	��am	��bm	
��in	���n	���n	
����	����	����	.����	H����	.����	����	����	����	����	����	 ����	:����	 ����	����	����	����	����	����	���	���	���	4���	B���	��U		gnamegprune-bindings�C��hx]�Cpgx
		gres		gfilenameflanguage/tree-il/peval.scm�
�	��	�		��			Chx]�Cpgx
		gres		gfilenameflanguage/tree-il/peval.scm�
�	��	�		��			C�h�]L�$CL6�gx
		gres		gfilenameflanguage/tree-il/peval.scm�
�	��	�	
��	�		��	�	��			Ch@�]U%4O
>"GXCXFGE�gx
		@glimit		@gtag			@g_		5	@gresults		5	@gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	�	��	8�	��		@	gnamegsmall-expression?�C���Nh0�]�&�"	45456�gsym
		-gop		-genv			-gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	!�	%��	-�	��		-	gnameg
extend-env�C������h0�]
�$ �&
��6CC�gx
		,gr		,gw			&gfilenameflanguage/tree-il/peval.scm�
�	
��	�	��	&�	��		,	C���������hH�]	4M5$�"44M55�&	�C6�gsym
		Fgv		-gs	-	Fgfilenameflanguage/tree-il/peval.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	�	��	"�	-��	*�	��	-�	��		Fgnamegassigned-lexical?�C����������	Rs����h��]"45$�454L5$�"	45$��&
�"	45�	&		�"	4
5$D�&		�"	45$";4L
	
	
5$"�&		�"	45"n454M5$�"44M55�	&		�"	45�$4L5DD45$m454M5$�"44M55�	&		�"	45�$"��,"��"��D�$DD�gx
	�g	n-aliases	�gvar			=gt			:gt		=�gs		_	gt	��gt	��gy	��gsym	�Kgv	(gs	(Hgsym	t�gv	�gs	��gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	
�	��	�	��	�	
��	�	��	�	��	/�	
��	3�	��	7�	
��	=�	��	H�	��	_�	����	����	����	 ����	����	 ����	:����	 ����	����	 ����	����	,����	����	
���	���	���	���	���	���	-��%�	��(�	��N�	��R�	��S�	��^�	��b�	��b�	��c�	��m�	��n�	1��t�	��w�	
���	����	����	����	����	����	-����	����	����	����	����	����	
����	����	����	����	
��>	�	gnamegfind-definition�C�h�]LLL6�gexp
		gfilenameflanguage/tree-il/peval.scm�
�	��	�	*��	�	��		gnameg	for-value�C������h��]!�$y�&n
���$Z�&O
��&:	�(C�$"�(�44M55$CCCCCCCCC�gx
	�gw	�gw		6	|gw		E	zgw		`	vgfilenameflanguage/tree-il/peval.scm�
	��			��	c]	��	f]	��	n]	��	r		��	�gnamegmake-prompt-tag?�C��hy]L6qgval
		gop		gfilenameflanguage/tree-il/peval.scm�
	��		
��			Chy]4L>"GLCqgval
		gop		gfilenameflanguage/tree-il/peval.scm�
	��		��			C���h0�]4L5$4L5$
4L5L6CC�gval
		)gop		)gfilenameflanguage/tree-il/peval.scm�
"	��	#	��	
#	
��	$	��	#	
��	%	��	%%	��		)	C���r����	hp>]
4L	>"G4L445454544L54L55��54LLLLL55LLLL66gval
		ngop		ngexp		`	ngfilenameflanguage/tree-il/peval.scm�
&	��	-	��	/	��	1	��	 1	'��	%1	>��	'1	'��	(2	'��	-2	>��	/2	'��	03	'��	53	>��	73	'��	82	$��	;4	(��	B5	'��	K2	$��	Q1	��	R�	��	`/	��	`.	��	n�	��		n	C���f������������p���Nh(�]	4L5��&�C6�gold
		$gs		$gfilenameflanguage/tree-il/peval.scm�
�	��	�	+��	�	&��	�	��		$gnamegnew-sym�C��������i�h�]LLL6ygt-9d6212d37ae-8149
		gfilenameflanguage/tree-il/peval.scm�
�	!��	�	:��	�	!��		C������������z������i����h �]L6�gvar
		ggensym		ginit			gbody			gfilenameflanguage/tree-il/peval.scm�
i	*��	k	6��	l	6��	m	6��	j	,��			Chx)]HL
LL	��$JL4LL$L"L$	L"5L4LL$45"5L6L
LL	��$QL4LL$L"L5L44LLL	�54454LLL	�555L64	LLL	�>G4	L
>G4	4LL5L
>GL$	L"GL$45"G4LL
L�>GL45454L54
LOL56!gnon-rest-gensyms
�vgrest-gensyms�vgprovided-gensyms	�vgdefault-gensyms	�vg
provided-vars	�vgdefault-vars	�vg	rest-vars	vg
rest-inits	'vg
default-inits	<v	gfilenameflanguage/tree-il/peval.scm�
(	��		*	��	
*	��	)	��	,	��	-	$��	$-	,��	*.	$��	/.	-��	4.	9��	6,	��	90	��	C1	$��	D2	.��	H2	=��	J2	.��	M2	(��	R3	(��	T0	��	X+	��	_5	��	`5	��	d)	��	i7	��	s8	$��	z8	,��	9	$���7	���;	���;	$���;	4���;	$���<	*���>	+���>	B���>	+���?	+���?	;���?	+���<	*���<	$���;	���6	���X	���X	*���X	���V	���Z	���V	���\	���\	"���\	���V	��^	��^	!��^	-��V	��`	��a	"��a	1��a	"��!a	��&b	��*V	��-d	��6d	$��;d	��?V	��Ff	��Og	��Xh	��ai	��ve	��J	v
gnameginlined-application�Cm�D���C^����f�h0�]4L4LLLL54LL55L6�gtmp
		)gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	�	��	�	*��	�	��	�	)��	�	��	�	��	)�	��
		)
gnamegabort�C���������������������{����
h`G]	H44L&"54L54�55K�(JC	LJ454L�56?gelts
		Zgtest		Zgfilenameflanguage/tree-il/peval.scm�
	��		��	
	 ��		,��		��		3��		8��		 ��	 		#��	%		8��	)		#��	*
	#��	0
	2��	2
	#��	5		��	7	��	<	%��	@	��	J	0��	Q	0��	V	4��	X	0��	Z
	��		Zgnameglp�C��i����hX]LLLL6Pgfilenameflanguage/tree-il/peval.scm�	�	1��	�	��		
C�������ho]6ggt-9d6212d37ae-9754
			gfilenameflanguage/tree-il/peval.scm�
�	��			Cr��������������������������h`�
]I"�"�"|454	�M5NL445	54	4
554LL4L4LLL5556�$s�&LL4L4LLL556�
&LL4L4LLL556�&LL4L4LLL556"��
"���$��&�
��"�"|454	�M5NL445	54	4
554LL4L4LLL5556�&LL4L4LLL556�
&LL4L4LLL556�&LL4L4LLL556"��"D�&7
��	�(LL4L4LLL556"���"����$L�(A�	�"�"|454	�M5NL445	54	4
554LL4L4LLL5556�&LL4L4LLL556�
&LL4L4LLL556�&LL4L4LLL556"��"D�&7
��	�(LL4L4LLL556"���"����$��(��	�"�"|454	�M5NL445	54	4
554LL4L4LLL5556�&LL4L4LLL556�
&LL4L4LLL556�&LL4L4LLL556"��"D�&7
��	�(LL4L4LLL556"���"����$��(�"�"|454	�M5NL445	54	4
55	4LL4L4LLL	55	5	6�&LL4L4LLL556�
&LL4L4LLL556�&LL4L4LLL556"��"D�&7
��	�(LL4L4LLL556"���"����$0�&#	�4L56"���"���"��+"��'"���"���"��i"��e�&7
��	�(LL4L4LLL556"��"��"���$S�&F
��4L5$*	�	�LL4L4LLL556"���"���"����
g	alternate
	`gt	�gfailure		f�gw�gw	"�gt	3�gfailure	��gw	7_gw	t�gw	{�gt	�gfailure	��gw	��gw	��gw	��gt	�Zgfailure	6Xgw	�gw	&�gt	7�gfailure		��gw	;cgw	|�gw��gwXgw	/Tgw	6Tgfilenameflanguage/tree-il/peval.scm�
[	��	\	��	
=		��	C	��	C	��	C	��	C	��	�	��	 D	%��	(�	!��	,�	��	.�	��	4F	��	7F	��	<F	#��	=H	��	AI	��	BJ	��	FJ	&��	JJ	3��	KJ	7��	PJ	��	RH	��	UG	��	VK	��	ZK	*��	_K	?��	cK	*��	dL	'��	fK	��	fK	��	iv	��	px	��	sy	���x	���v	���E	���=		���x	���y	���x	���v	���=		���x	���y	���x	���v	���=		���x	���y	���x	��v	��=		��\	��(=		��-C	��1C	��3C	��3C	��6�	��>D	%��F�	!��J�	��L�	��RF	��UF	��ZF	#��[H	��_I	��`J	��dJ	&��hJ	3��iJ	7��nJ	��pH	��sG	��tK	��xK	*��}K	?���K	*���L	'���K	���K	���v	���x	���y	���x	���v	���E	���=		���x	���y	���x	���v	���=		���x	���y	���x	���v	���=		��x	��y	��x	��v	��=		��Fx	��Iy	��Wx	��[v	��_=		��c\	���=		���C	���C	���C	���C	����	���D	%����	!����	����	���F	���F	���F	#���H	���I	���J	���J	&���J	3���J	7���J	���H	���G	���K	���K	*���K	?���K	*���L	'���K	���K	���v	���x	���y	���x	���v	��E	��=		��x	��y	��"x	��&v	��)=		��6x	��9y	��Gx	��Kv	��N=		��[x	��^y	��lx	��pv	��t=		���x	���y	���x	���v	���=		���\	���=		���C	���C	���C	���C	����	���D	%����	!����	����	��F	��F	��F	#��
H	��I	��J	��J	&��J	3��J	7�� J	��"H	��%G	��&K	��*K	*��/K	?��3K	*��4L	'��6K	��6K	��9v	��@x	��Cy	��Qx	��Uv	��ZE	��Z=		��jx	��my	��{x	��v	���=		���x	���y	���x	���v	���=		���x	���y	���x	���v	���=		���x	���y	��	x	��
v	��=		��\	��,=		��1C	��5C	��7C	��7C	��:�	��BD	%��J�	!��N�	��P�	��VF	��YF	��^F	#��_H	��cI	��dJ	��hJ	&��lJ	3��mJ	7��rJ	��tH	��wG	��xK	��|K	*���K	?���K	*���L	'���K	���K	���v	���x	���y	���x	���v	���E	���=		���x	���y	���x	���v	���=		���x	���y	���x	���v	���=		��x	��	y	��x	��v	��=		��Jx	��My	��[x	��_v	��c=		��g\	���k	���k	&���k	1���l	���j	���=		���x	���y	���x	���v	���=		��\	��_	'��*\	��?c	��Bd	��Pc	��Ta	��X\	��.	`gnameglp�C��t�hx�]Q"��$��&�
���$��&~
��	�	��$Z�&N
��&9	�	�	O	

LLLQ

	6CCCCCCC�$��&�
���$��&}
���$g�&Z
��&C	��$1�(&�	�	�45"���"���"���"���"���"���"���"���"���"����gc
	ugw	�gw		 �gw		6�gw		<�gw		C�gw		J�gw		e�gw		s�gw			z�glp	
��gw�mgw	�mgw	�egw	]gw	Ygw	.Qgw	5Qgw	<Qgfilenameflanguage/tree-il/peval.scm�
M	��	N		���[	���N		��?T	
��QS	��UN		��	ugnamegsimplify-conditional�C�����������hW]L6Ogfilenameflanguage/tree-il/peval.scm�
&	��	'	��		
Chc-13C[gargs
			gfilenameflanguage/tree-il/peval.scm�
&	��			


C������������������������h�]LM6�gexp
		gcounter		gctx			gfilenameflanguage/tree-il/peval.scm�
�	��	�	��			gnamegvisit�Co�h�]L6�gnames
		ggensyms		gvals			gbody			gfilenameflanguage/tree-il/peval.scm�
�	��	�	��			C�h�]LM6�gexp
		gcounter		gctx			gfilenameflanguage/tree-il/peval.scm�
�	��	�	��			gnamegvisit�C�h�]LL6�gnames
		ggensyms		gvals			gbody			gfilenameflanguage/tree-il/peval.scm�
�	��	�	��			C���������
h�]�$��&z
��	�4L5$�"	45�&
�"	45�&		�"	4	5$CCCC
gexp
	�gw	!�gt		,	Ggop		G�gs		c�gfilenameflanguage/tree-il/peval.scm�
�	��	�		��	$�	��	,�	��	<�	
��	@�	��	D�	
��	G�	��	L�	"��	c�	����	��	�gnameglookup-alias�Ch�]LL6�gexp
		gcounter		gctx			gfilenameflanguage/tree-il/peval.scm�
�	(��	�	*��			C���h0�](4>"G"L6�gnames
		.ggensyms		.gvals			.gbody			.gfilenameflanguage/tree-il/peval.scm�
�	��	�	��		�	/��	
�	6��	�	/��	.�	��		.	C����������������h(�]	454�M5NC�gelt
		$gnew			$gfilenameflanguage/tree-il/peval.scm�
�		��	�	��	�	��		�	��		�	��	�	��	�	$��	�	!��	�	��	!�	��		$C�h�]6�gt-9d6212d37ae-af4a
		gt-9d6212d37ae-af4b		gfilenameflanguage/tree-il/peval.scm�
�	"��			C���N	���	����h0�]	45$C45$C6�gx
		,gt			,gt		,gfilenameflanguage/tree-il/peval.scm�
%	��	%	"��		%	��	%	-��	%	��	,%	7��		,Cs�
���h8/�?,35OOLQLQ$4>"G"".�".�"+�"*�"%�"$�"#�""�"!�" ("�"�"C"�"�""�"�"d" "�""�"�"":"�"-"?�$+�&�
��	�	�	O
LQ
4L54L54>G
4
O
?$
	LO
@4	>G4

O?$L	LO@4L	56�
&C
��	�	�	4L5454L	56456456�$��&�
��"��$��(:�
	(
"���44L
5	�56��
4L
545$4455		"��|45$		"��e	�	"��V456	"��>"���"����$X�&K
��	�	�		�
	�	�	�
	�4L54L54L455OQ4L
5$"x	$q
$"b�$Z�&L
���$2� &$
��!&		��$����$��"&�
��	��$��&�"�(04#5�$4$5$"k"e"`�$F��$2�%&$
��	���"���""""��m"""""""""""$C&	
�$�
�
�"�(?4#54#54#54'455�"��$~��$j���$N���$2�(&�����"��\"4"/"$"""�� "4(LO5$4L5"6	"��t"��p�$��"&�
��	��$)6*�$+6,�$C4-$4L5"5	4.	4/M5

$
�"
M5N	C"���"����$��&�
��	�"�"�"i"""04L15456	�$�	�2&�	
�	�		�		�
		�43L	
5$"	43L	5$�4L5"	"��b�$\�2&O
��
	�	�	�44
4055"���"���"���04L15456"���"���	�$�	�"&�	
�	�		�

�$�
�&�

�
�
	�
	�

	�&}
	�
	�
	�
	�&V455455$455"
4/	M5$�"	6O
Q�$"
$"��$04L154564748595$"4:5$�485$��;&		�"	4<=5$e"U&"Q�;&	�"4<>>"G�;&		�"	4<?5"���"���""45"���@U�HHAOLQ485$4BLL5""$4C5"
4DLL5K4L45J5K$4EJ>"G"JXCXFGE"��"��"��
"��"��"���	�$T	� &G	
�	�
4F
5$-454L

5$C0	6"���"���"���	�$|	� &o	
�	�
4G
5$U
45�"Y"k"�"�""�"?�$+��4L

5

$
C0	6456�$5��
"
�$
�
��$��(���$��H&�
���$��$(44)55"��f*�$�4I5$>
J�$K"
L�$M"+44N55$"6()44+55"���4OP54554.QR�M5N44RSO
Q455"��m4I5$4
J�$K"
L�$M"+44N556()44+55"��0	4+56"���"���"���"���"���"���J&"���L&"���"���"����$���
T&r
�$g
�(\
��$L�H&?
���$(��4+5"��;"��"���"���"���"���"���"����$���
U&r
�$g
�(\
��$L�H&?
���$(��4+5"��"��k"��g"��c"��_"��["��W"��S�$���
T&�
�$�
�(�
��$��&�
���$s� &f
��V&O	��$=��4404WV555"���"���"���"���"���"���"���"��}"��y"��u"��q�$���
U&�
�$�
�(�
��$��&�
���$i� &\
��V&E	��$3��4455"��"���"���"���"���"���"���"���"���"���"����$���
T&�
�$�
�(�
��$��&�
���$� &r
��X&[	��$I���$4�()�45"�� "���"���"���"���"���"���"���"���"���"���"���"����$���
U&�
�$�
�(�
��$��&�
���$� &r
��X&[	��$I���$4�()�45"��6"���"���"���"���"���"���"���"���"���"���"���"���"��"��"��	�$~	� &q	
�	�
4Y
5$W"k
45��$I��
X&)
�$
�
�"��0	6�$��(��"�ZO	Q�$q�&d
���$I� &<
��V&	�04WV5�60	66666�$7�H&*
��&04WV56"��4"��0"��,"���"���
0	6
0	6456&"*�$�
�""�"�"|�$p��
[&S
�$G
�(;
��$'�H&
��4\5"""	""�"�
"��$$�(�[&"�"��`"��Y"��U�$��]&"�"��0"��)�$��V&"x"��"����$b��
X&B
�$3
�
��$�(	�""���""���""���""���
""���$D&
4)5"4+54455"��"���"���"��"��"��4L,5	"��l"��"���$��&�
���$|� &o
��"D	�		�$2	�	�
4^_5�$4^5"

$	
�"$"��v"��$�4#5�$��(��"x"""I$4L5"���445504L
5�6�$��&�
���$�� &�
��V&y	�"f((40
455"����$-�$4`4M55"$	�"���"��"��"���"���"���"���"���"����$��&�
���$�� &�
��X&�	��$���$4`4M55"$j�$_�(T�$4`4M55"$040
45�5"��"��"��"��
"��	"��"��"���"���"���"����$V�H&I
���$34a540
455"��4"���"���"���45"��w"��"���$����"��%"��
"��"��b&"���!&"���"��d"��`"��\"��X"��T�$��&�
���$�� &�
��&�	�		(&)6C4	5
"04W5
6�$"*�$"�$"
��$<4cd
5$+44
�
�55"���"���"��~"��_"��["��W"��S"��O�$L�&?
���$(� &
��e&	�		�$�	�	�
�$��(���$��"&�
��	�

�$�
�&�
�
�
	�&p
	�
	�&X
	�(G
	�
	�
	�&)4f40
5
5"��"��0"��,"��("��$"�� "��"��"��"��"��"��"��"��"��"��"����$��g&�
��	�	�	hO
L
Q
4L*5"'
4i4L54L	556�$F�H&9
��$"��	"��"���"���"��$"�� �$-� & �$)6*�$+6C"���"����$5�j&(
��	�k4L56"��"���$5�l&(
��	�m4L56"��`"��\�$G�n&:
��	�	�		�
o	4L
56"��
"���$�p&C"���"����$��p&x
��	�4F5$V	�		&D4qrOs5
4t
5$%4u
54uv5&W6CC"��_"��["��W"��S�$�w&C"��8"��4�$d�w&W
��4F5$=4/M5$C4xL54y5$"��SC"���"���"���$@�z&3
��	�{4L54L56"��v"��r�$,�|&
��}4L56"��;"��7�$L�~&?
��	�	�	45454L	56"���"����$���&�
��	�	�	4L54L54L	5
4`4M
55$b4`4M55$�
64O�5
4.
Q�
�M5N4�
4�
4��
5564`4M55$F4O�5
4.
Q�
�M5N4�

4�4��
5564O�54O�5
4.
Q�
�M5N4.Q��M5N4�

4�4��
54��556"��D"��@�$&��&
��	�4L5	�$��&�
��
	�	�	�

&�	�	�	�	�&a45
5$"$455"
�4L
	5$4L5"""

""

$
Cf	4L56"��"���$���&�
��	�	�	�	HH
HHH
�O
LQ4L5K
4LJ
5K4�J
J5K4LJ5K
4L	J
5K4IJ5$JCLJJ�O6"��Q"��M�$���&�
��	�	�	�		�
HHH
HH�OLQ4L5K4LJ5K4�JJ	5K
4LJ
5K4L
J5K"LJ
J�O64IJ5$4cL		5$JC"���"���"��p"��l�$R�2&E
��	�	�	�	�O
Q
4L54L54��LO4
55
4L
54L	54I5$)4455"��I"L
�O64�5$l4K4�55$V4�54�5444�4��554�555"�پ"��u"��q"��"���$��2&s
��4^�5�$4^5"		$		�"$"�ٵ"�$�4#5

�$�
�(�
�	�4^�5�$4^5"$	�"$"��O"|�$N4#5�$:�(/�	�4^�5�$4^5"$	�"$"���"��$�4#5�$��(���$}�&p
���$Z� &M
�� V &6	�!	�""�$"�&"
�#"�$$�$�$� &�$
�$�%"�"	�&&�$�&�&�('4^�5)(�$4^(5"**$	*)�"$"���"\,)�$.4#-5.+�$+�(+�//�$�/�%&�/
�/�00&�/	�11&�4/1M522$2�"4��14�M55222�Q&	2	�"	4<2�52�$s4�45!5�524�LO253444
254354!540#'4.4�23555544"��s"���"���"��"�ּ"�ָ"�ִ"�ְ+�$+�.+�,�.-�-,+"���"�֋(*-,+"���"��xb%&"��3!%&"��'"��\"��X"��T"��P"��L"��H"��D"��@"��<"��8"��4"��0�$����"��*"��"��"��"����$����"���"���"��u"�ռ"�ո
�$
�

��
�
"���"�Փ	
"���"�Հ"��|�$���&�
��	�	�	4/5

$
�"	4��5


��&

�"	4<
�5�Q&		�"	4<�5
�$.4L	545$C4)564L
>"G�
��&
�"	4<
�54L	56"��u"��q�$��%&�
��	�"�&)6��&			�"	4<�5$"���1&L6��&
�"	4<�5		�Q&			�"	4<	�5	$L6��&		�"	4<�5$�47��&		�"	4<�5�5$1��&		�"	4<�5		"��4�&"LL5		$p4`4M	55$.4I	5

$"4	5$"4y	5
$F&"�$-��&		�"4<�>"G"	C��&
�"	4<�5

�Q&	
	�"	4<
�5
�$	C,&1"
L	64:	5$4L	L5$	C"���"���"
L	64L	L5$4�:	5$"���	C"�����&	�"4<�>"GL	6L6L64/5$�"	4��5"��5"��y"��u�$��&*�$+6C"��K"��G�$�H&�$)6C"��"���?gexp
	/5genv	/5gcounter		/5gctx		/5gfind-definition		/5g	for-value		/5gw	��gw	��gw	��gw		��gmake-prompt-tag?	
��gtag	�gbody	�gvals	
 �gvals	O�gw	��gw	��gw	��gw		��gw	�gw	�gexps	�geffects		�gw	
/fgw	
l�gx	l�ghead	}�gw	�Cgw	Cgw		Cgw		Cgw	
Cgw	Cgw	%Cgw	
,Cgw	3Cgvars	>Cgnew	GCgenv	]Cgnew-sym	gCgbody	yCgw	��gw	��gw	��gw	��gx	��gw	�gls	"�gp-ls	"�gsym	/Xgw	b�gw	��gt	�Cgw	 gx	 gls	(�gp-ls	(�gp-ls	(�gp-ls	(�gold	Cmgname	Cmgkw	Cmgw	w�gw	��gx	��gw	��gx	��gw	��gw	_�gw	e�gw	l�gnew		��gx	
��gw	�gw	�gw	�gproc		�gw	
i5gt	z�gv	�gw	�gw	
�gw	�gw	�gw	�gexp	�gw	
\gw	wgw	~gw	
�gw	�gw	�gw	�gw	�gw	�gnargs	�gnreq	�gnopt	�gx	��gkey	�ginlined-application		gt		-	Pgt		�	�gfound		�
7gcounter		�
$gtag	
Sgnew-counter	
^
�gresult	
^
�gabort	
q
�gt	
�
�g_	gresults	gw	
?}gargs	Uygt	dygw	
�gv	�gx	�gt	
�gw	!Pgx	
!Pgw	60gx	60gw	K(gw	f gexp	��gmember	��gexp	

!gt	
(
�grefcount	
1
Mglp	
l
�gexp	
�
�gmember	
�
�gexp	
�gw	a�gx	
a�gw	~�gw	��gw	��gx	��gexp	��gw	�vgx	
�vgw	jgw	'bgw	-bgw	9^gexp	H^gw	�Tgx	
�Tgw	�Hgw	�@gw	�@gw	�8gw	�4gw	�0gx	�0gexp	0gw	e(gx	
e(gw	�gw	�gw	�gw	�gw	�gw	�gx	�gexp	�gw	9gx	
9gw	Vgw	l�gw	r�gw	��gw	��gw	��gx	��gw	��gexp	��gw	#�gx	
#�gw	@�gw	V�gw	\�gw	w�gw	��gw	��gx	��gw	��gexp	��gw	
%�gv	B�gw	Q�gx	
Q�gw	jxgx	jxgx	u�gw	�pgfailure	�.gw	�&gw	�&gfailure	�&gw	�gw	�gw	Bhgw	Hhgx	z�gx	��gv	�9gw	�Egx	
�Egw	�0gw	#gw	[qgw	��gw	��gw	�.gx	
�.gx	�gres	V�gexp	k�gw	�Sgw	�Sgw	�Kgw		�/gw	
�+gx	�+gtail-len	
+glen	
+gls	=gn	=gp-ls	=gargs	M�gw	`�gtail*	f�gspeculative?	f�gargs	��gw	�~gw	�vgw	�rgls	jgexp	2gw	<fgw	�ugw	�mgw	�igw	�egx	�egw	Ygexp	?Ugw	��gargs*	��gexp	��gw	gw	oTgw	uTgw	�Lgw		�Hgvals	
�Hgexp	*@gw	p�gw	v�gw	��gw		��gw	
��gx	��gw	��gw	
��gw	�gw	gw	({gw	Awgexp	]sgw	�{gw	�{gw	�{gw		�{gsimplify-conditional	
�{gv	�{gw	Csgw	��gw	��gw	��gw	3gw	3gw	3gw	O�gw	U�gw	\�gw		c�gw	
j�gw	�0gw	�0gw	�0gw		�,gmodule	
�(gvar		%gw	l�gexp	��gw	� gw	� gw	� gw	 ! <gw	 ' <gw	 X �gw	 ^ �gw	 e �gw		 l �gw	 �"+gw	 �"+gw	 �"+gw		 �"+gpre	
 �"+gbody	 �"+gpost	 �"+gpost-sym	
!%!dgpre-sym	
!{!�gpre-sym	
!�"+gpost-sym	!�"+gw	"G#\gw	"M#\gw	"T#\gproducer		"c#\gw	
"~#2gw	"�#/gw	"�#,gw	
"�#)gw	"�#!gnmin	"�#gnmax	"�#gt	"�#gt	
#<#\gw	#x$gw	#�$gw	#�$gw		#�$gvars	
#�$gnew	#�$gops	#�$genv*	
#�$gbody*	#�$gvisit	#�$gw	$2$�gw	$8$�gw	$E$�gw		$L$�gw	
$S$�gvars	$Z$�gnew	$Z$�gops	
$Z$�genv*	$Z$�gbody*	$Z$�gvisit	$m$�gw	%&Pgw	%&Pgw	%"&Pgw		%)&Pglookup-alias	
%3&Pgvars	%A&Pgnew	%J&Pgops	
%i&Pgenv	%x&Pgbody	%�&Pgexp	%�%�gsym	&&Hgpairs	&&Hgexp	&2&Hgw	&l*�gw	&r*�gtail-len	&{*�glen		&�*�gls	
&�*�gn	&�*�gp-ls	&�*�gnames	
&�*�gw	&�*�gw	&�*�gtail-len	&�*�glen	&�*�gls	'*�gn	'*�gp-ls	'*�ggensyms	'$*kgw	'7*cgw	'>*cgtail-len	'G*cglen	'\*cgls	'z*Tgn	'z*Tgp-ls	'z*Tgvals	'�*/gw	'�*'gw	'�*gw	 '�*gw	!'�*gw	"'�*gw	#'�*gw	$(*gw	%( *gw	&(+)�gw	'(:)�gx	((:)�gtail-len	)(E)�glen	*(Z)�gls	+(x)�gn	,(x)�gp-ls	-(x)�gargs	.(�)�gw	/(�)�gw	0(�)�gw	1(�)�gv	2(�(�gs	2(�)gtmps	2).)�gtmp-syms	3)>)�gexp	4)})�gw	.)�)�gw	*9*Pgw	*u*�gw	
*�*�gw	*�+�gw	*�+�gw	++�gw		++�gt	
++1gop	
+1+�gs	+M+mgexp	+�+�gw	,	.�gop	,.�gt	,7.�gs		,o,�gval		,�-gt		-,.�gt	
-K-ygt	-_-vgs	
-�-�gt	.�.��gfilenameflanguage/tree-il/peval.scm�
�	��	5�	��	6�	��	O	����	���	*���	���	*���	��	��	��#		��C!	��R		����	���8	���	����	����	*����	���:	'����	����	*����	���:	���	���	��!�		��7�	��K�	��P	��S�	��b	��d	��f	��i�		��q�	��{�	*��}�	��}	���	���	���	���	���	���	���		���	���
	���	���	����		����	����	%����	���	��6�	��>�	��A�	��G�	��J�	��S�	��]�	��]�	��m�	��y�	����		����	��6�	��:�	��;�	��E�	��[�	����		���	��L�	*��U�	<��_�	*��`�	��p�	���	��/�	��0�	��C�	
��G	��w�	��|�	����	����	����	����	����	&����	����	*����	����	����	����	����	
����	����	����	����	����	���	���	���		��-�	��7�	*��9�	��:�	��D�	��D�		��r�	��z�	����	����	����	����	*����	����	����	����	����	����	����	����	���	��(�	*��*�	��+�	"��5�	��=�		���$	���$	���%	���$	���&	���&	!���$	����	
����	����	����	���$	��	-u	��	-u	��	@u	#��	Lu	<��	Mu	3��	Tt	��	Y�	��	c�	*��	e�	��	fx	"��	pw	��	qy	��	ty	��	�y	��	�y	��	�z	��	�t	��	��	��	��	��	��	��	��	!��	��	��	��	��	��	��	��	��
�	"��
$�	��
$�	��
8�	��
N�	��
P�	��
��	��
��	��
��	��
��	��
��	��
��	��
��	��
��	��
��	��
��	��
��	���	���		��M	��U	��X	��d	��y	��}�		����	����	���	���	��	���	��x�	��y�	����	.����	&����	����	����	����	����	����	����	"����	����	*����	2����	*����	%����	����	����	��
�	0��
	�	(��
�	��
�	��
!�	��
"�	��
&�	%��
(�	��
(�	��
+	2��
1	��
4�	��
<	-��
D�	!��
H�	��
J�	��
N	��
T	"��
W	��
\	&��
a	/��
l	��
�	��
�	��
��	��
�	��
�	��
�	"��
�	��
�	%��
�	-��
�	%��
�	��
�	��
�	��
�	9��
�	1��
�	��
�	���	��	7��	/��	�� �	����	����	����	����	��@�	��H�	��^�	��b�	����	���	 ��
�	%���	<���	%���	 ���	���	���	��0�	��4�	����	����	,����	9����	,����	����	���	���	����	����	,����	����	����	����	����	����	,����	����	����	����	���		��9�	 ��B�	����	����	����	���	*���	A���	*��
�	&���	���	1���	��.�	��M�	2��Q�	��V�	*��[�	A��]�	*��b�	&��d�	��h�	��z�	����	����	����	����	����	����	����	����	��=�	��A�	&��E�	��F�	��P�	��V�	��Y�	��^�	-��g�	?��i�	-��k�	��k�	����	����		����	����	����	1����	����	���	��f�	��j�		��x�	��y�	����	*����	����	����	����	$����	9����	����	����	����	*����	����	$����	����		���	���	1���	���	��2�	��5�		��D�	��E]	��H]	��P]	��U�	��Y�		����	���]	���]	���]	����	����		���	��]	��]	��]	��!�	��%�		��&�	��/�	.��:�	;��<�	.��=�	(��?�	��?�	��U�	��Y�		����	����	����	����	3����	����	����	����		����	����	����	���	����	����	����		����	
����	����		����	%����	<����	%����	����	����	���	#���	���	��	�	���	���	���	,�� �	4��#�	E��&�	?��(�	,��*�	��*�	��@�	��L	��K�	��P�	&��W�	E��Y�	&��]�	��]�	��s�	��w	����	����	*����	���|	���	��
�	��(�	��*�	
��*|	��K~	
��_�	��	���7	���8	���7	���9	���	����	����	*����	���5	���	��%�	��/�	*��1�	��33	��7	��w�	����	*����	���1	���	���&	���&	���(	
��(		��)	��	)	
��*	��*	��"+	��,	��z�	���	���	���	���	���	
����	���	����	����	*����	�� �	*�� �	�� 	�� 		�� .�	�� 8�	*�� :�	�� <	�� @	�� s	�� |	/�� ��	�� �	�� �	�� ��	�� ��	*�� ��	�� ��	*�� ��	�� ��	�� �]	�� �]	�� �]	��!�		��!]	��!]	��!]	��!�		��!	��!	��!#	#��!%	��!%	��!(�	��!0	$��!7�	!��!;�	��!=�	��!C
	��!H
	#��!M
	3��!N	��!W	%��!\	:��!`	%��!b	��!d
	
��!e]	��!h]	��!p]	��!t�	��!u	��!y	$��!{	��!{	
��!~�	��!�	&��!��	!��!��	��!��	��!�	��!�	$��!�	3��!�	��!�	'��!�	<��!�	'��!�	��!�	��!��	��!��	$��!��	��!��	7��!��	?��!��	7��!��	
��!��	��!��	&��!��	!��!��	��!��	��!��	��!��	&��!��	!��!��	��!��	��!��	��"�	)��"�	A��"
�	��"�	'��"�	<��"�	'��"	'��"#	<��"'	'��")�	��"+�	��"/	��"W�	��"a�	*��"c�	��"c�	��"h�	
��"��	��"��	��"��	��"��	5��"��	=��"��	-��"��	��"��	��"��	��"��	��#<�		��#N�	��#\�	
��#`	��#��	��#��	��#��	��#��	��#��	��#��	��#��	
��#��		��$�	
��$	��$Z�	��$u�	��$��	��$��	��$��	��$��	��$��	
��$��		��$��	��$��		��$��	!��$��	
��$�	��%9�	��%A�	��%D�	��%J�	��%M�	��%_�	(��%i�	��%i�	��%l�	��%x�	��%{�	��%��	��%��	��%��		��%��	��%��	(��%��	5��%��	(��%��	��%��	��%��	��%��	��%��		��%��	��%��		��%��	��%��	��%��	��%��	��%��	��%��	��&�	��&	�	��&�	��&�	��&�	 ��&"�	��&#�	��&.�	��&0�	��&2�	��&2�	
��&H�	��&T	��(��	
��(��	��(��	��(��	��(��	��(��	��(��	-��(��	��(��	��)~	 ��) }	��)!	��)$	��),	2��).	��).	��)1�	��)>	��)A�	
��)F�	��)O�	��)X�	��)a�	��)h�	��)m�	��)y�	��){�	��)}�	
��)}�		��)��	��)�	��+�	��+�	��+&�	
��+*�	��+.�	
��+1j	��+6k	"��+Mk	��+nk	
��+sk		��+t�	��+~�	*��+��	��+�l	
��+�m	��+�m	��+�o	0��+�o	&��+�o	��+�q	��+�r	*��+��	��+��	*��+��	��+�r	��+�	��,	��,	��,		��,	��,	��,7		��,K	��,O		��,U	��,X	��,o	��,�		��,�	��,� 	��,�		��,�$	��,�$	��,�$	��,�		��,�'	��,�'	��-�	��-*	��-*	2��-*	%��- *	;��-,*	��-,		��-5]	��-8]	��-@]	��-D0	
��-E9	��-K9	��-Y:	��-_9	��-m;	��-}0	
��-�B	 ��-�B	��-�B	��-�B	1��-�B	(��-�B	��-�E	��-�G	"��-�G	��-�G	��.0	
��.
M	��.0	
��.W	��.P	��.P	��.'P	��.(Q	��.4P	��.Mc	��.M\	��.N\	��.Z\	��.[]	��.g\	��.u7	��.�8	��.�h	��.�#	��.�	��.��	��.��	��.��	
��.��	��.��	
��.�	��.�	��.�		��/
	��/	��/%	��/*	��/1	��=	/5	gnamegloop�C�h��-/03#45##	(#	#	
#�#	dH
H	HOO
O	
O
	Q	Q
Q
Q�$Q�&
��45"(�&
��45""K45K	4	O5K
O
	
Q6�gexp
	}gcenv	}genv		}goperator-size-limit		}goperand-size-limit		}gvalue-size-limit		}geffort-limit		}grecursive-effort-limit		}glocal-toplevel-env		`}gstore			`}gcompute-effects	
	`}g
lookup-var	�}g
fresh-gensyms	�}grecord-operand-use	
�}gunrecord-operand-uses	�}gresidualize-lexical	�}gfold-constants	�}g
inline-values	�}gconstant-expression?	�}gprune-bindings	�}gsmall-expression?	�}g
extend-env	�}gw	��gw	�gloop	E}gfilenameflanguage/tree-il/peval.scm�
t
��	t	%����	����	����	����	���	��V	��E�	��{�	��}�	��	}	goperator-size-limitS	�goperand-size-limitS	�gvalue-size-limitS	�geffort-limitS	�grecursive-effort-limitS	�gnamegpeval�g
documentationf}Partially evaluate EXP in compilation environment CENV, with
top-level bindings from ENV and return the resulting expression.�CRC�gm
		,grtd
$Ngrtd
B�Cgrtd
|�}#gfilenameflanguage/tree-il/peval.scm�		
��G	E
���	L
��
	W
���	^
��&	m
��	y
��>[�
��?{�
��k�
��l;�
��mi�
��n��
��r��
��s��
��ue�
��w�
��y

���((
����2
��б;
���i>
���I
��ܬj
��Ēt
��	Ĕ
C6language/tree-il/canonicalize.go000064400000011317150536206120012661 0ustar00GOOF----LE-8-2.0�]:4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	gcanonicalize�		�	
gfilenameS�	f!language/tree-il/canonicalize.scm�	gimportsS�	
�	
�	gice-9�	gmatch�	�	�	gsrfi�	gsrfi-1�	�	�	�	gexportsS�	g
canonicalize!�	�	gset-current-module�	�	�	gtree-il-fold�	gtree-il-any�	 gpost-order!�	!g<prompt>�	"g
<lambda-case>�	#glexical-ref?�	$glexical-ref-gensym�	%g
<application>�	&g<lambda>�	'gmake-prompt�	(gmake-lambda�	)gmake-lambda-case�	*gmake-application�	+gmake-primitive-ref�	,gthrow�	-g
make-const�	.gwrong-number-of-args�	/fWrong number of arguments�	0g<dynlet>�	1g<fix>�	2g<letrec>�	3g<let>�	4g
<sequence>�	5gany�	6g	sequence?�	7g
make-sequence�	8g
append-map�	9g
sequence-exps�C5hu]4	
54>"Gh�]$CL6gexp
		gres		gfilenamef!language/tree-il/canonicalize.scm�
		��			��			��			Ch�]$CL6gexp
		gres		gfilenamef!language/tree-il/canonicalize.scm�
		��			��			��			Chw]Cogexp
		gres		gfilenamef!language/tree-il/canonicalize.scm�
		��			Ch �]OO6�gproc
		gexp		gfilenamef!language/tree-il/canonicalize.scm�
	
��			��			gnamegtree-il-any�CR !"#$h �]45$45L�CC|gx
		gfilenamef!language/tree-il/canonicalize.scm�
	K	��		L	&��	
	L	!��		M	+��		M	&��		C%&'()*+,-./01234567869h �]45$6C|gx
		gfilenamef!language/tree-il/canonicalize.scm�
	+	(��		,	.��	
	,	*��		-	.��		.	.��		Ch`g]a""�"w""�"w"��$��&�
��	�	��$��&�
���$u��	�	�	�	�	��$?��	�	�		&4O5�"	""""$"��$��&�
���$��&�
��	��$z�&l
��(S	�		&=	�

&'	�&	��""
"	"""""""$CH44	5	5K4
J56CC�$v�&i
��	�&K4	4
454
54
54
54
54
555	6"���"���"����$9�&,
��(	�(	�C"��Q"��M"��I"��E�$J�&=
��((	�(	�(	�C"���"���"���"���"����$P�&C
��	�((	�(	�(	�C"���"���"���"���"����$J�&=
��((	�(	�(	�C"��D"��@"��<"��8"��4�$7�&*
��45$456C"���"����$2�&%
���$�(�C"���"���"���"���_gx
	Ygw	2gw		8gw		?gw		Fgw		a�gw	��gw	��gw	��gw		��gt	��gw	�gw	4�gw	O�gw		\�gw	
j�gw	x�gw	��gthunk	�gw$�gw	*�gw	1�gw��gw	��gw�"gw	�gw	gwI}gw	Vygw	cugw��gw	��gw	��gw�gw	�gw5Q$gfilenamef!language/tree-il/canonicalize.scm�
	$	��		%	��	K	I	
���	K	���	K	
���	_	���	Q	
���	_	���	X	���	X	���	Y	���	Y	.���	Y	;���	Y	?���	Y	���	X	���	Z	
��	Z	%��	Z	
��	b	��	%	��A	<		��E	=	
��I	=	��J	=	��K	>	
��O	@	��T	@	"��V	@	��W	A	��\	A	 ��^	A	��_	B	��f	C	��k	C	 ��m	C	��n	D	��r	D	 ��t	D	��u	E	��~	A	���	>	
���	<		���	:	���	%	���	)	
��	)	��	+	��	*	
��	%	��3	YCh�]6}gx
		
gfilenamef!language/tree-il/canonicalize.scm�
	"
��	
	#	��		
gnameg
canonicalize!�CRCmgm
		,gfilenamef!language/tree-il/canonicalize.scm�		
���	
��	"
��	

C6language/tree-il/effects.go000064400000125024150536206120011642 0ustar00GOOF----LE-8-2.0��]4h�6]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	geffects�		�	
gfilenameS�	flanguage/tree-il/effects.scm�	gimportsS�	
�	
�	g
primitives�	�	�	gice-9�	gmatch�	�	�	�	gexportsS�	gmake-effects-analyzer�	g&mutable-lexical�	g	&toplevel�	g&fluid�	g&definite-bailout�	g&possible-bailout�	g&zero-values�	g&allocation�	 g
&mutable-data�	!g&type-check�	"g&all-effects�	#geffects-commute?�	$gexclude-effects�	%geffect-free?�	&g	constant?�	'gdepends-on-effects?�	(gcauses-effects?�	) !"#$%&'(�	*gset-current-module�	+*�	,*�	-gmake-syntax-transformer�	.-�	/-�	0gdefine-effects�	1gmacro�	2g$sc-dispatch�	32�	42�	5g_�	6gany�	7geach-any�	867��	958��	:giota�	;glength�	<g
syntax-object�	=gbegin�	>gtop�	?>�	@gribcage�	A@�	Bgn�	CB�	D?�	Efl-a141b7f3b9a-1d09�	FE�	G@CDF�	Hgall�	Igname�	JHI�	K??�	Lfl-a141b7f3b9a-1d02�	Mfl-a141b7f3b9a-1d03�	NLM�	O@JKN�	Pgx�	QP�	Rfl-a141b7f3b9a-1cff�	SR�	T@QDS�	U?AGOAT�	Vghygiene�	WV�	X<=UW�	Ygappend�	ZY�	[Y�	\gmap�	]\�	^\�	_g
define-syntax�	`<_UW�	agidentifier-syntax�	b<aUW�	cgash�	d<cUW�	e<UW�	fg*�	g<fUW�	h<	UW�	ih�	jglogior�	k<jUW�	lgsyntax-violation�	ml�	nl�	of-source expression failed to match any pattern�	pgidentifier?�	qp�	rp�	sgm-a141b7f3b9a-1d0f�	ts>�	ugid�	vu�	wgm-a141b7f3b9a-1d10�	xw>�	yx�	zfl-a141b7f3b9a-1d17�	{z�	|@vy{�	}fl-a141b7f3b9a-1d12�	~}�	@Qy~��gshift��t|A�AGOAT
��<c�W��<�W��<f�W��|A��<
�W��<	�W������������57���fl-a141b7f3b9a-1d1a�����@Qy���t�A�AGOAT
��<c�W��<�W��<f�W���A��<
�W��<	�W������������gm-a141b7f3b9a-1d1d���>�����fl-a141b7f3b9a-1d24�����@v����fl-a141b7f3b9a-1d1f�����@Q����t�A��AGOAT
��<c�W��<�W��<f�W���A���<�W��<	�W������������fl-a141b7f3b9a-1d27�����@Q����t�A��AGOAT
��<c�W��<�W��<f�W���A���<�W��<	�W������������gm-a141b7f3b9a-1d2a���>�����fl-a141b7f3b9a-1d31�����@v����fl-a141b7f3b9a-1d2c�����@Q����t�A��AGOAT
��<c�W��<�W��<f�W���A���<	�W��<	�W������������fl-a141b7f3b9a-1d34�����@Q����t�A��AGOAT
��<c�W��<�W��<f�W���A���<	�W��<	�W������������gm-a141b7f3b9a-1d37���>�����fl-a141b7f3b9a-1d3e�����@v����fl-a141b7f3b9a-1d39�����@Q����t�A��AGOAT
��<c�W��<�W��<f�W���A���<	�W��<	�W������������fl-a141b7f3b9a-1d41�����@Q����t�A��AGOAT
��<c�W��<�W��<f�W���A���<	�W��<	�W������������gm-a141b7f3b9a-1d44���>�����fl-a141b7f3b9a-1d4b�����@v����fl-a141b7f3b9a-1d46�����@Q����t�A��AGOAT
��<c�W��<�W��<f�W���A���<	�W�<	�W�������fl-a141b7f3b9a-1d4e��@Q��tA��AGOAT
�<cW�<W�	<fW�
A��<	
W�<	W�
	�
�gm-a141b7f3b9a-1d51�>��fl-a141b7f3b9a-1d58��@v�fl-a141b7f3b9a-1d53��@Q�tA�AGOAT
�<cW�<W�<fW�A�<	W�<	W�� �!fl-a141b7f3b9a-1d5b�"!�#@Q"�$t#A�AGOAT
�%<c$W�&<$W�'<f$W�(#A�)<	(W�*<	$W�+')*�,%&+�-gm-a141b7f3b9a-1d5e�.->�/.�0fl-a141b7f3b9a-1d65�10�2@v/1�3fl-a141b7f3b9a-1d60�43�5@Q/4�6t2A5�AGOAT
�7<c6W�8<6W�9<f6W�:2A5�;<	:W�<<	6W�=9;<�>78=�?fl-a141b7f3b9a-1d68�@?�A@Q/@�BtAA5�AGOAT
�C<cBW�D<BW�E<fBW�FAA5�G<	FW�H<	BW�IEGH�JCDI�Kgm-a141b7f3b9a-1d6b�LK>�ML�Nfl-a141b7f3b9a-1d72�ON�P@vMO�Qfl-a141b7f3b9a-1d6d�RQ�S@QMR�TtPAS�AGOAT
�U<cTW�V<TW�W<fTW�XPAS�Y<	XW�Z<	TW�[WYZ�\UV[�]fl-a141b7f3b9a-1d75�^]�_@QM^�`t_AS�AGOAT
�a<c`W�b<`W�c<f`W�d_AS�e<	dW�f<	`W�gcef�habg�igm-a141b7f3b9a-1d78�ji>�kj�lfl-a141b7f3b9a-1d7f�ml�n@vkm�ofl-a141b7f3b9a-1d7a�po�q@Qkp�rtnAq�AGOAT
�s<crW�t<rW�u<frW�vnAq�w<	vW�x<	rW�yuwx�zsty�{fl-a141b7f3b9a-1d82�|{�}@Qk|�~t}Aq�AGOAT
�<c~W��<~W��<f~W��}Aq��<	�W��<	~W�����������gm-a141b7f3b9a-1d85���>�����fl-a141b7f3b9a-1d8c�����@v����fl-a141b7f3b9a-1d87�����@Q����t�A��AGOAT
��<j�W��?�A���<�W��<�W��<�W��<�W��<�W��<�W��<�W��< �W��<!�W������������
��fl-a141b7f3b9a-1d8f�����@Q����t�A��AGOAT
��<j�W��?�A���<�W��<�W��<�W��<�W��<�W��<�W��<�W��< �W��<!�W������������
��g&no-effects��gm-a141b7f3b9a-1d92���>�����fl-a141b7f3b9a-1d99�����@v����fl-a141b7f3b9a-1d94�����@Q����?�A���<
�W��fl-a141b7f3b9a-1d9c�����@Q����?�A���<
�W��g&all-effects-but-bailout��glogand��gm-a141b7f3b9a-1d9f���>�����fl-a141b7f3b9a-1da6�����@v����fl-a141b7f3b9a-1da1�����@Q����?�A���<��W��<"�W��glognot��<��W��<�W�����������fl-a141b7f3b9a-1da9�����@Q����?�A���<��W��<"�W��<��W��<�W�����������g% cause-procedure��gcause��56��gsyntax-parameterize��gm-a141b7f3b9a-1dad���>��gt-a141b7f3b9a-1dac��������fl-a141b7f3b9a-1db2�����@�����fl-a141b7f3b9a-1daf�����@Q����g	proc-name��gargs������f
l-bde397a-8e8��f
l-bde397a-8e9������@�K���gformals��gbody��I����???��f
l-bde397a-8df��f
l-bde397a-8e0��f
l-bde397a-8e1�������@�����gmake-procedure-name��gprefix������??��f
l-bde397a-8d3��f
l-bde397a-8d1����@���f
l-bde397a-8d0��@QD���A��AAAA��
�V�<��?�A��	<�W�
<a�<�W�
�
	�
�glambda�<�geffect�<W��<cW�<W����fWrong number of arguments�?A��<�W�g% &depends-on-procedure�g&depends-on�gm-a141b7f3b9a-1dc8�>� gt-a141b7f3b9a-1dc7�! �"�#fl-a141b7f3b9a-1dcd�$#�%@!"$�&fl-a141b7f3b9a-1dca�'&�(@Q"'�)%A(�AAAA��
�*<�)�+?%A(�,<+W�-<a)�.<+W�/-.�0,/�10�2<)�3ga�4<3+W�54�6<�+W�7<"+W�8647�9258�:*19�;?A(�<<;W�=g% &causes-procedure�>g&causes�?gm-a141b7f3b9a-1ded�@?>�Agt-a141b7f3b9a-1dec�BA�C@�Dfl-a141b7f3b9a-1df2�ED�F@BCE�Gfl-a141b7f3b9a-1def�HG�I@QCH�J@FAI�AAAA��
�K<�J�L?FAI�M<>LW�N<aJ�O<=LW�PNO�QMP�RQ�S<J�T<3LW�UT�V<�LW�W<�LW�X<"LW�YWX�ZVTY�[SUZ�\KR[�]?AI�^<=]W�_g% depends-on-effects?-procedure�`566�agm-a141b7f3b9a-1e65�ba>�cgt-a141b7f3b9a-1e63�dgt-a141b7f3b9a-1e64�ecd�fbb�gfl-a141b7f3b9a-1e6a�hfl-a141b7f3b9a-1e6b�igh�j@efi�kb�lfl-a141b7f3b9a-1e67�ml�n@Qkm�objAn�AAAA��
�p<�o�q?jAn�r<'qW�s<ao�t<_qW�ust�vru�wv�x<o�y<PqW�z<qW�{yz�|gnot�}<|qW�~gzero?�<~qW��<�qW��<qW���y����z�����}���x{���pw���?An��<_�W��g% causes-effects?-procedure��gm-a141b7f3b9a-1e9f���>��gt-a141b7f3b9a-1e9d��gt-a141b7f3b9a-1e9e����������fl-a141b7f3b9a-1ea4��fl-a141b7f3b9a-1ea5������@��������fl-a141b7f3b9a-1ea1�����@Q������A��AAAA��
��<����?�A���<(�W��<a���<��W�������������<���<P�W��<�W������<|�W��<~�W��<��W��<>�W������<��W�����������������������������?A���<��W��g% effects-commute?-procedure��gm-a141b7f3b9a-1ef9���>��gt-a141b7f3b9a-1ef7��gt-a141b7f3b9a-1ef8����������fl-a141b7f3b9a-1efe��fl-a141b7f3b9a-1eff������@��������fl-a141b7f3b9a-1efb�����@Q������A��AAAA��
��<����?�A���<#�W��<a���<��W�������������<���<3�W��gb��<��W������gand��<��W��<|�W��<(�W��<�W�������������������������������������������?A���<��W��gmake-hash-table��g	hashq-ref��g
hashq-set!��g<prompt>��g<abort>��gerror��������fno matching pattern��g
<sequence>��g
<lambda-case>��gor-map��g<lambda>��g
<application>��g
<lexical-ref>��gmake-application��g<primitive-ref>��gbailout-primitive?��geffect-free-primitive?��gconstructor-primitive?��gaccessor-primitive?��gmake-prompt-tag��gvector��glist��gcons��glist?��gsymbol?��gvector?��gstruct?��gstring?��gnumber?�gchar?�gnull?�gpair?�gequal?�geqv?�geq?�gvalues�g
<conditional>�g<toplevel-set>�	g<toplevel-define>�
g<module-set>�g<module-ref>�g<toplevel-ref>�
g<dynset>�g<dynref>�g<dynlet>�g	<dynwind>�g<let-values>�g<fix>�g<letrec>�g<let>�g
<lexical-set>�g<void>�g<const>�C5h@o�]4	
)54,>"G4/0149:;47X[^`bdegih ^]��CVgtmp-a141b7f3b9a-1d0d
		gtmp-a141b7f3b9a-1d0c					C`bkh0)]44L5LL�5�C!gn
		*		*Cnoh8�]445545$
O@6�gall
		7gname		7gtmp			7gtmp			7gfilenameflanguage/tree-il/effects.scm�		>	��		>	$��		>	��		>	��		7	Cnoh(o]	45$@6ggx
		"gtmp		"gfilenameflanguage/tree-il/effects.scm�
	;	��		"C50R4/1rh`]6Xgid
		gfilenameflanguage/tree-il/effects.scm�		O
��		C�h*]C"gid
				C4��h)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	O
��		:g
macro-typegidentifier-syntax�C5R4/1rh`]6Xgid
		gfilenameflanguage/tree-il/effects.scm�		O
��		C�h*]C"gid
				C4��h)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	O
��		:g
macro-typegidentifier-syntax�C5R4/1rh`]6Xgid
		gfilenameflanguage/tree-il/effects.scm�		O
��		C�h*]C"gid
				C4��h)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	O
��		:g
macro-typegidentifier-syntax�C5R4/1rh`]6Xgid
		gfilenameflanguage/tree-il/effects.scm�		O
��		C�h*]C"gid
				C4��h)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	O
��		:g
macro-typegidentifier-syntax�C5R4/1rh`]6Xgid
		gfilenameflanguage/tree-il/effects.scm�		O
��		Ch*]C"gid
				C4�h)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	O
��		:g
macro-typegidentifier-syntax�C5R4/1rh`]6Xgid
		gfilenameflanguage/tree-il/effects.scm�		O
��		C h*]C"gid
				C4�,h)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	O
��		:g
macro-typegidentifier-syntax�C5R4/1rh`]6Xgid
		gfilenameflanguage/tree-il/effects.scm�		O
��		C>h*]C"gid
				C4�Jh)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	O
��		:g
macro-typegidentifier-syntax�C5R4/ 1rh`]6Xgid
		gfilenameflanguage/tree-il/effects.scm�		O
��		C\h*]C"gid
				C4�hh)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	O
��		:g
macro-typegidentifier-syntax�C5 R4/!1rh`]6Xgid
		gfilenameflanguage/tree-il/effects.scm�		O
��		Czh*]C"gid
				C4��h)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	O
��		:g
macro-typegidentifier-syntax�C5!R4/"1rh`]6Xgid
		gfilenameflanguage/tree-il/effects.scm�		O
��		C�h*]C"gid
				C4��h)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	O
��		:g
macro-typegidentifier-syntax�C5"R4/�1rha]6Ygid
		gfilenameflanguage/tree-il/effects.scm�		{	��		C�h*]C"gid
				C4��h)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
	{	��		:g
macro-typegidentifier-syntax�C5�R4/�1rhb]6Zgid
		gfilenameflanguage/tree-il/effects.scm�	�	��		C�h*]C"gid
				C4��h)]�C!gx
				Cnoh@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/effects.scm�
�	��		:g
macro-typegidentifier-syntax�C5�Rh�]�C�geffect
		gfilenameflanguage/tree-il/effects.scm�
�
��	�	��		gnameg% cause-procedure�C�R4/�14�h:]C2gt-a141b7f3b9a-1dac
		
		
C�n�h`]L6Xga
		gfilenameflanguage/tree-il/effects.scm�	�
��		C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm�	�
��		
Ch]C		
Cnohp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/effects.scm�
�
��		nC5�Rh�]UU�C�ga
		gfilenameflanguage/tree-il/effects.scm�
�
��	�	��		gnameg% &depends-on-procedure�CR4/14�:h:]C2gt-a141b7f3b9a-1dc7
		
		
C�nh`]L6Xga
		gfilenameflanguage/tree-il/effects.scm�	�
��		C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm�	�
��		
C<h]C		
Cnohp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/effects.scm�
�
��		nC5Rh�]���C�ga
		gfilenameflanguage/tree-il/effects.scm�
�
��	
�	��	�	��		gnameg% &causes-procedure�C=R4/>14�\h:]C2gt-a141b7f3b9a-1dec
		
		
C�n>h`]L6Xga
		gfilenameflanguage/tree-il/effects.scm�	�
��		C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm�	�
��		
C^h]C		
Cnohp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/effects.scm�
�
��		nC5>R�h�]4�5�C�geffects
		gexclude		gfilenameflanguage/tree-il/effects.scm�
�
��	�	��	�	��	
�	��	�	��			gnamegexclude-effects�C$Rh�]���
�C�geffects
		gfilenameflanguage/tree-il/effects.scm�
�
��	
�		��	�	��		gnamegeffect-free?�C%Rh�]
�C|geffects
		gfilenameflanguage/tree-il/effects.scm�
�
��	�	��		gnameg	constant?�C&Rh�]UU��
��C�gx
		geffects		gfilenameflanguage/tree-il/effects.scm�
�
��	�	��	�	��	�	��	�	��			gnameg% depends-on-effects?-procedure�C_R4/'14`�hZ]CRgt-a141b7f3b9a-1e63
		gt-a141b7f3b9a-1e64					C�n'h`]L6Xga
		gfilenameflanguage/tree-il/effects.scm�	�
��		C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm�	�
��		
C�h]C		
Cnohp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/effects.scm�
�
��		nC5'Rh�]�����
��C�gx
		geffects		gfilenameflanguage/tree-il/effects.scm�
�
��	
�	��	�	"��	�	��	�	��	�	��			gnameg% causes-effects?-procedure�C�R4/(14`�hZ]CRgt-a141b7f3b9a-1e9d
		gt-a141b7f3b9a-1e9e					C�n(h`]L6Xga
		gfilenameflanguage/tree-il/effects.scm�	�
��		C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm�	�
��		
C�h]C		
Cnohp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/effects.scm�
�
��		nC5(RhX�]
UU������
��$CUU������
���C�ga
		Tgb		Tgeffects			'geffects		9	Rgfilenameflanguage/tree-il/effects.scm�
�
��	�	��	�	��	+�	��	9�	��	9�	��	S�	��		T	gnameg% effects-commute?-procedure�C�R4/#14`�hZ]CRgt-a141b7f3b9a-1ef7
		gt-a141b7f3b9a-1ef8					C�n#h`]L6Xga
		gfilenameflanguage/tree-il/effects.scm�	�
��		C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm�	�
��		
C�h]C		
Cnohp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/effects.scm�
�
��		nC5#R�h`]CXgx
		gfilenameflanguage/tree-il/effects.scm�
�	5��		C��h8�]	4L5$C4L54L>"GC�gexp
		8gt		8geffects		8gfilenameflanguage/tree-il/effects.scm�
�	��	�	��	�	��	�	��	�	��	 �	��		8gnamegcompute-effects�Ch0�]"(C�4L�5�"���
"����gexps
		0gexps		%gout			%gfilenameflanguage/tree-il/effects.scm�
�	��	�	��	�	
��	�	��	�	)��	�	:��	�	)��	�	��	%�	��	%�	��		0gnamegaccumulate-effects�C�������$��������;�������������|	

9hX ]Y"2""�"c"�"-"�"�"�"\"�"0"
"�"b"�"�"f"6"�"$"	�"�"j"�"D"�"�"6"�"N" "")�$�&�
��	�	�4L5$"$4L54L>"G4L5$"$4L54L>"G�4L5$"$4L54L>"G�C�& 
��	�	��?C456456�$��&�
��"��$��(O�4L5$"$4L54L>"G4	5�C��4L5$"$4L54L>"G�"��N456
"��6"���"����$��
&�
��	�	�	�	�	�	�	�4	4L5	@54L5$ "
�4L5$"$4L54L>"G�$B4L5$"$4L54L>"G"
�C"���"����$�&
��	�
C"���"����$'�
&
��	��?C"���"����$��
&�
���$��&s
��	�	�4L5$B454L5$C4L54L>"GC�?C"���"���"���"����$a�
&T
���$>�&1
��45$	�4L5���C"��n"��j"��f"��b"��^�$��
&�
���$��&�
��	�	�4L5"�" &�"�4455"~�$Y�
&L4L5$"$4L54L>"G�"""���"��|�$�
&�
��	�&�	�&�	�&�	�(�	�	�		�

&d4L	5$"$4L	54L	>"G4545�$
"	�""���
	""���""���""��""��t""��f""��^�C"��d"��`"��\"��X�$��
&|
���$f�&Y
��45$?	�4L5�45$ "45$@"
�C"���"���"���"���"����$��
&�
���$��&|
��&e	��$S�(H�4L5$"$4L54L>"G �C"��"��"��"��"��
"��	"���$\�
&O
���$9�&,
��&	�( C"���"���"���"���"���"����$v�
&i
���$S�&F
��"	�4L5 �C"&"���"��5&"���"���"��!"��"��"���$�
&�
���$��&�
��&�	��$����$��(��4L5$"$4L54L>"G4L5$"$4L54L>"G� �C"��""��"��"��"��"��"��
"���$�
&

���$��&�
��"t""�&X	��$F�(;�4L5$C4L54L>"GC"��d"��`&X	��$F�(;�4L5$C4L54L>"GC"��"��&X	��$F�(;�4L5$C4L54L>"GC"��"��&X	��$F�(;�4L5$C4L54L>"GC"��D"��@&X	��$F�(;�4L5$C4L54L>"GC"���"���&X	��$F�(;�4L5$C4L54L>"GC"��"�� &X	��$F�(;�4L5$C4L54L>"GC"��$"�� "��!&X	��$F�(;�4L5$C4L54L>"GC"��"��"���"&X	��$F�(;�4L5$C4L54L>"GC"��\"��X"���#&X	��$F�(;�4L5$C4L54L>"GC"��"���"��("���"���"���"����$��
&�
���$u�&h
��"
	�L6"8"$"$&"���"��y%&"���"���&&"���"���'&"���"���"��E"��A"��="��9�$\�
&O
���$9�&,
��'&	�(C"���"���"���"���"���"����$!�(&
��	�	�4L5$"$4L54L>"G4L5$"$4L54L>"G4L5$"$4L54L>"G�������
��$	��C	��	@6"��"���$�&
C"��"���$`�)&S
��	�	4L5$"$4L54L>"G�C"��"���$`�*&S
��	�	4L5$"$4L54L>"G�C"��"���$s�+&f
��	�	�	�4L5$"$4L54L>"G�C"��$"�� �$�,&
C"��"���$�-&
C"���"����$��.&�
��	�4L5$"$4L54L>"G4L5$"$4L54L>"G��	 �C"��"���$d�/&W
��4L5$"$4L54L>"G�	�C"��"���$��0&u
��	�	�4L54L5��	 �4L5$"$4L54L>"G�C"��"���$��1&�
��	�	�4L5$"$4L54L>"G4L5$"$4L54L>"G�4L5$"$4L54L>"G�C"��)"��%�$��2&�
��	�4L5$"$4L54L>"G4L5$"$4L54L>"G��C"��s"��o�$��3&|
��	�	�	�4L5$ "
4L5�4L5$"$4L54L>"G�C"���"����$��4&�
��	�	�	�	�4L5$ "
4L5�4L5$"$4L54L>"G�C"��="��9�$��5&|
��	�	�	�4L5$ "
4L5�4L5$"$4L54L>"G�C"��"���$f�6&Y
��	�	�	4L5$"$4L54L>"G�C"��0"��,�$-�& 
��	�4L5$C
C"���"����$�7&
C"���"����$�8&
C"��"��gexp
	Rgw�pgw	�pgw	�pgt	��geffects	��gt	�/geffects	,gt	9ngeffects	Nkgw��gexps	��geffects	��gw	�/gt	�#geffects	 gw	5�gx	5�gt	Dygeffects	Yvgw��gw	��gw	��gw	��gt	Ngeffects	.Kgt	^�geffects	s�gw�gw	8�gw	?�gt	H�gexp	Z�gt	e�geffects	w�gw�gw	�gw	�gw1gw	R
gw	Y
gt	��geffects	��gw	�gw	�gw	�gw	*�gw	8�gw		K�gw	
R�gt	d�geffects	y�gw3�gw	N�gw	`�gw�]gw	�Ugw	�Qgw	Igt	Dgeffects	$Agw~�gw	��gw	��gw�	Egw			=gw			gw	f
Pgw		�
Hgw		�
Dgw		�
@gx		�
@gw		�
8gt		�	�geffects		�	�gt		�
2geffects	

/gw
qrgw	
�jgw	
�
�gw	
�
�gt	
�
�geffects	
�
�gw	Zgw	Rgt	%Rgeffects	7Rgw	g�gw	z�gt	��geffects	��gw	�gw	�gt	�geffects	�gw	'zgw	:rgt	Ergeffects	Wrgw	��gw	��gt	��geffects	��gw	�
:gw	�
2gt	

2geffects	

2gw	
K
�gw	
^
�gt	
i
�geffects	
{
�gw	
�gw	
�
�gt	
�
�geffects	
�
�gw	fgw	&^gt	1^geffects	C^gw�gw	�
gw	��gw6|gw	Qtgw	`pgw��gw	��gw	��gt	��geffects	��gt	�)geffects		&gt	2ggeffects	Gdgtfx	g�gcfx	g�gafx	g�gx	u�gw�-gt	�+geffects	(gwT�gt	a�geffects	v�gw�gt	�geffects	�gw{gw	�gt	��geffects	��gt	�geffects	��gw0~gt	;pgeffects	Pmgw�gw	�gw	�gt	�	geffects	�gw,�gw	3�gw	:�gt	Ezgeffects	Zwgt	��geffects	��gt	��geffects	��gw�gw	!�gt	,ageffects	A^gt	j�geffects	�gw�?gw	�?gw	�?gt	=geffects	:gwl�gw	s�gw	z�gt	��geffects	��gwmgw	mgw	mgt	6kgeffects	Khgw��gt	��geffects	��gw�gfilenameflanguage/tree-il/effects.scm�
�	��	�	����	����	����	����	����	����	����	��	�	���	���	��0r	��1�	��9�	��H�	��N�	��Q�	��or	��s�	���w	����	���g	���h	
����	����	����	���	���	��$m	��+m	1��-m	��.j	��2h	
��<�	��D�	��S�	��Y�	��\�	��|o	���o	���h	
���g	����	���^	���^	$���^	���`	��`	��
a	��^	���	���	��(�	��.�	��1�	��O^	��Ud	��V�	��^�	��m�	��s�	��v�	���^	����	���X	����	��BO	
��HN	��QQ	#��ZQ	��]�	��e�	��q�	��w�	��z�	���S	
����	���G	���H	���G	��I	��G	���	��\4	��f5	��tA	��y5	����	����	����	����	����	���=	���<	���5	��\�	��d�	��s�	��y�	��|�	���8	%���8	2���8	"���8	���:	"���7	���5	��	4	���	��c*	��r+	��s*	��t,	��~,	���-	���.	���.	���*	����	���	���	���	��$�	��'�	��G!	)��H!	��M�	���	����	��		��		-��		��	�	��	��	��	��	��	��	��	��	��	��	��	��	��	��	��
�	��
�	��
�	��
3	��
6	��
7	��
<�	��
��	��
��	��
��	��
��	��
��	��
��	���	��%�	��1�	��7�	��:�	��V�	��}�	����	����	����	����	����	����	����	����	����	����	���	��=�	��E�	��Q�	��W�	��Z�	��v�	����	����	����	����	����	����	����	��
�	��
�	��
�	��
�	��
6�	��
a�	��
i�	��
u�	��
{�	��
~�	��
��	��
��	��
��	��
��	��
��	��
��	��
��	��)�	��1�	��=�	��C�	��F�	��b�	���	����	��k	��p�	����	����	����	����	����	����	����	���	��	�	���	��*�	��2�	��A�	��G�	��J�	��g�	��t�	.��u�	"��u�	����	
���	���	"���	����	����	����	����	���	���	���	��,�	��1�	��X�	��Y�	��a�	��p�	��v�	��y�	����	����	����	����	����	����	����	����	���	���	��7�	��<�	��Y�	��^�	����	����	����	����	����	����	����	����	����	����	���	��
�	���	��
�	���	���	��3�	��;�	��J�	��P�	��S�	��y�	��z�	����	����	����	����	����	����	����	����	����	����	����	����	����	��
�	���	��=�	��E�	��T�	��Z�	��]�	��{�	����	����	����	����	����	����	����	����	����	����	����	����	��$�	��,�	��;�	��A�	��D�	��b�	��j�	��y�	���	����	����	����	����	����	����	����	����	����	����	���	���	���	���	�� �	��>�	��C�	��}�	����	����	����	����	����	����	����	����	����	����	����	���	���	�� �	��&�	��-�	��.�	��6�	��E�	��K�	��N�	��l�	��q�	����	����	����	����	����	����	����	����	���	���	���	��~	Rgnamegvisit�ChX�-.,3#OOOLQQLLQ6�gexp
		Rglookup		Rgcompute-effects		3	Rgaccumulate-effects		3	Rgvisit		3	Rgfilenameflanguage/tree-il/effects.scm�
�	��	Rz	��		Rgnamegcompute-effects�Ch >]45OQC6gassigned-lexical?
		gcache		gcompute-effects			gfilenameflanguage/tree-il/effects.scm�
�
��	�	��	�	��		gnamegmake-effects-analyzer�g
documentationfVReturns a procedure of type EXP -> EFFECTS that analyzes the effects
of an expression.�CRC�gm
		,gfilenameflanguage/tree-il/effects.scm�		
���
����
��"��
��&��
��'C�
��'��
��(��
��,��
��0��
��o9�
��	o;
C6language/tree-il/compile-glil.go000064400000173240150536206120012603 0ustar00GOOF----LE-8-2.0��]a4hq+]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	gcompile-glil�		�	
gfilenameS�	f!language/tree-il/compile-glil.scm�	gimportsS�	
gsystem�	gbase�	gsyntax�	
�	�	gpmatch�	
�	�	gmessage�	
�	�	gice-9�	greceive�	�	�	gglil�	�	�	gvm�	 ginstruction�	!
 �	"!�	#�	$#�	%goptimize�	&%�	'&�	(gcanonicalize�	)(�	*)�	+ganalyze�	,+�	-,�	.gsrfi�	/gsrfi-1�	0./�	1gselectS�	2g
filter-map�	32�	4013�	5"$'*-4�	6gexportsS�	7�	8gset-current-module�	98�	:8�	;g
make-fluid�	<g
*comp-module*�	=gunused-variable�	>gunused-variable-analysis�	?gunused-toplevel�	@gunused-toplevel-analysis�	Agunbound-variable�	Bgunbound-variable-analysis�	Cgarity-mismatch�	Dgarity-analysis�	Egformat�	Fgformat-analysis�	Gg%warning-passes�	Hgand=>�	Igmemq�	JgwarningsS�	Kgcadr�	Lg	assoc-ref�	Mganalyze-tree�	Ngmake-lambda�	Ogtree-il-src�	Pgmake-lambda-case�	Qg	optimize!�	Rg
canonicalize!�	Sganalyze-lexicals�	Tgflatten-lambda�	Ugmake-hash-table�	Vg*primcall-ops*�	Wgfor-each�	Xg	hash-set!�	Ygeq?�	ZY	��	[ZY��	\geqv?�	]\	��	^]\��	_gequal?�	`_	��	a`_��	bg=�	cb	��	dgee?�	ecd��	fg<�	gf	��	hglt?�	igh��	jg>�	kj	��	lggt?�	mkl��	ng<=�	on	��	pgle?�	qop��	rg>=�	sr	��	tgge?�	ust��	vg+�	wv	��	xgadd�	ywx��	zg-�	{z	��	|gsub�	}{|��	~g1+�	~���gadd1������g1-������gsub1�������g*���	���gmul�������g/���	���gdiv�������gquotient���	���gquo�������g	remainder���	���grem�������gmodulo���	���gmod�������gash���	��������glogand���	��������glogior���	��������glogxor���	��������gnot�����������gpair?�����������gcons���	��������gcar�����������gcdr�����������gset-car!���	��������gset-cdr!���	��������gnull?�����������glist?�����������gsymbol?�����������gvector?�������Č��glist���nj��gvector���Ɍ��gclass-of�������ˌ��g
vector-ref���	����Ό��gvector-set!���	���g
vector-set���ӌ��gvariable-ref�������Ռ��gvariable-bound?�������،��gstruct?�������ی��g
struct-vtable�������ތ��g
struct-ref���	����ጤ�gstruct-set!���	���g
struct-set���挤�gmake-struct/no-tail��gmake-struct���錤�greturn�������댤�g
return/values����gbytevector-u8-ref���	���g	bv-u8-ref�����gbytevector-u8-set!���	���g	bv-u8-set�������gbytevector-s8-ref���	���g	bv-s8-ref�������gbytevector-s8-set!���	���g	bv-s8-set������gbytevector-u16-ref�	��g
bv-u16-ref���gbytevector-u16-set!�	��g
bv-u16-set���gbytevector-u16-native-ref�		��
gbv-u16-native-ref�	
��gbytevector-u16-native-set!�
	��gbv-u16-native-set�
��gbytevector-s16-ref�	��g
bv-s16-ref���gbytevector-s16-set!�	��g
bv-s16-set���gbytevector-s16-native-ref�	��gbv-s16-native-ref���gbytevector-s16-native-set!�	��gbv-s16-native-set��� gbytevector-u32-ref�! 	��"g
bv-u32-ref�#!"��$gbytevector-u32-set!�%$	��&g
bv-u32-set�'%&��(gbytevector-u32-native-ref�)(	��*gbv-u32-native-ref�+)*��,gbytevector-u32-native-set!�-,	��.gbv-u32-native-set�/-.��0gbytevector-s32-ref�10	��2g
bv-s32-ref�312��4gbytevector-s32-set!�54	��6g
bv-s32-set�756��8gbytevector-s32-native-ref�98	��:gbv-s32-native-ref�;9:��<gbytevector-s32-native-set!�=<	��>gbv-s32-native-set�?=>��@gbytevector-u64-ref�A@	��Bg
bv-u64-ref�CAB��Dgbytevector-u64-set!�ED	��Fg
bv-u64-set�GEF��Hgbytevector-u64-native-ref�IH	��Jgbv-u64-native-ref�KIJ��Lgbytevector-u64-native-set!�ML	��Ngbv-u64-native-set�OMN��Pgbytevector-s64-ref�QP	��Rg
bv-s64-ref�SQR��Tgbytevector-s64-set!�UT	��Vg
bv-s64-set�WUV��Xgbytevector-s64-native-ref�YX	��Zgbv-s64-native-ref�[YZ��\gbytevector-s64-native-set!�]\	��^gbv-s64-native-set�_]^��`gbytevector-ieee-single-ref�a`	��bg
bv-f32-ref�cab��dgbytevector-ieee-single-set!�ed	��fg
bv-f32-set�gef��hg!bytevector-ieee-single-native-ref�ih	��jgbv-f32-native-ref�kij��lg"bytevector-ieee-single-native-set!�ml	��ngbv-f32-native-set�omn��pgbytevector-ieee-double-ref�qp	��rg
bv-f64-ref�sqr��tgbytevector-ieee-double-set!�ut	��vg
bv-f64-set�wuv��xg!bytevector-ieee-double-native-ref�yx	��zgbv-f64-native-ref�{yz��|g"bytevector-ieee-double-native-set!�}|	��~gbv-f64-native-set�}~���[^aeimquy}����������������������������������������#'+/37;?CGKOSW[_cgkosw{R��ggensym��f:L��g
make-label��gmap��g	hashq-ref��gerror��fbad var list element��gvars->bind-list��gmake-glil-bind��g
emit-bindings��gmake-glil-source��greverse��gwith-output-to-code��g<lambda>��g
lambda-src��glambda-meta��glambda-body��gmake-glil-program��gflatten-lambda-case��funhandled record��gpush��gdrop��gmake-glil-void��gmake-glil-lexical��gset��fbad let var allocation��g<void>��gvals��gtail��gmake-glil-branch��gbr��gmake-glil-call��g<const>��g	const-src��g	const-exp��gmake-glil-const��g
<sequence>��g
sequence-exps��g
<application>��gapplication-src��gapplication-proc��gapplication-args��gprimitive-ref?��ghash-ref��gprimitive-ref-name��glength��ginstruction-pushes��f!bad primitive op: too many pushes��g	new-frame��g	tail-call��g
make-const��gtail-call/nargs��gcall��g
call/nargs��gmake-glil-mv-call��gmake-glil-label��gmake-glil-mv-bind��glexical-ref?��gassq��glexical-ref-gensym��glambda-case?��glambda-case-kw��glambda-case-opt��glambda-case-rest��glambda-case-req��gbox��fbad lambda-case arg allocation��glambda-case-gensyms��glambda-case-alternate��f*couldn't find matching case for label call��gassq-ref��gvalues��g
variable-set!��gvariable-set��g@call-with-current-continuation��gtail-call/cc��gmake-application��gmake-primitive-ref��gcall-with-current-continuation��gcall/cc��g@call-with-values��gcall-with-values��g@apply��g
tail-apply��gapply��greturn/values*��g
<conditional>��gconditional-src��gconditional-test��gconditional-consequent��gconditional-alternate��g<primitive-ref>��g	br-if-not��gbr-if��g
br-if-null��gbr-if-eq��gbr-if-not-null��gbr-if-not-eq��gprimitive-ref-src��gmodule-variable��gthe-root-module��gmake-glil-toplevel��gref��gmake-glil-module��gmodule-name��g
<lexical-ref>��glexical-ref-src��fbad lexical allocation��g
<lexical-set>��glexical-set-src��glexical-set-gensym��glexical-set-exp��g<module-ref>��gmodule-ref-src��gmodule-ref-mod��gmodule-ref-name��gmodule-ref-public?��g<module-set>��gmodule-set-src��gmodule-set-mod��gmodule-set-name��gmodule-set-public?��gmodule-set-exp��g<toplevel-ref>��gtoplevel-ref-src��gtoplevel-ref-name��g<toplevel-set>�gtoplevel-set-src�gtoplevel-set-name�gtoplevel-set-exp�g<toplevel-define>�gtoplevel-define-src�gtoplevel-define-name�gtoplevel-define-exp�gdefine�fbad lambda free var allocation�	gmake-closure�
g
<lambda-case>�glambda-case-src�glambda-case-inits�
glambda-case-body�g
list-index�f	bad kwarg�gmax�f,lambda-case gensyms don't correspond to args�gmake-glil-kw-prelude�gmake-glil-opt-prelude�gmake-glil-std-prelude�gdelq�fbad keywords, yo�gappend�g	list-tail�gbound?�fbad arg allocation�gmake-glil-unbind�g<let>�glet-src�g	let-names�glet-gensyms� glet-vals�!glet-body�"g<letrec>�#g
letrec-src�$gletrec-in-order?�%gletrec-names�&gletrec-gensyms�'gletrec-vals�(gletrec-body�)g	empty-box�*fbad letrec var allocation�+g<fix>�,gfix-src�-g	fix-names�.gfix-gensyms�/gfix-vals�0gfix-body�1fbad fix var allocation�2greverse!�3fbad free var allocation�4gfix�5g<let-values>�6glet-values-src�7glet-values-exp�8glet-values-body�9f$unexpected lambda-case in let-values�:fbad let-values var allocation�;g	<dynwind>�<gdynwind-src�=gdynwind-body�>gdynwind-winder�?gdynwind-unwinder�@gwind�Agunwind�Bgreturn/nvalues�Cg<dynlet>�Dg
dynlet-fluids�Egdynlet-vals�Fgdynlet-body�Gg
dynlet-src�Hgwind-fluids�Ig
unwind-fluids�Jg<dynref>�Kgdynref-fluid�Lg
dynref-src�Mg	fluid-ref�Ng<dynset>�Ogdynset-fluid�Pg
dynset-exp�Qg
dynset-src�Rg	fluid-set�Sg<prompt>�Tg
prompt-src�Ug
prompt-tag�Vgprompt-body�Wgprompt-handler�Xgmake-glil-prompt�Yf unexpected lambda-case in prompt�Zf!bad prompt handler arg allocation�[g<abort>�\g	abort-src�]g	abort-tag�^g
abort-args�_g
abort-tail�`gabort�C5h���]4	
56754:>"G4;i5<R=>i�?@i�ABi�CDi�EFi�GRHIJK2LGho]6ggkind
		
gfilenamef!language/tree-il/compile-glil.scm�
	;	��	
	<	 ��		
CMNOPQRS<Th��]+H4455$"K4J54>"G44	54
5	545454
5Y45	"ZCZF�gx
	�ge	�gopts		�gwarnings		�gt			'ganalyses		2	Mgx		i�gx		v�gx		�g
allocation	��
gfilenamef!language/tree-il/compile-glil.scm�
	5
��		7	��			7	��		7	��		7	��	$	8	��	*	;	��	2	;	��	5	>	��	N	@	��	Q	@	��	X	@	)��	Y	A	��	]	A	.��	a	A	;��	b	A	?��	g	A	��	i	@	��	i	@	��	l	B	��	v	@	��	y	C	��		@	���	D	���	@	���	G	���	G	��	�	gnamegcompile-glil�CR4Ui5VR4WiXVh{]��6sgx
		gfilenamef!language/tree-il/compile-glil.scm�
	O��			O	'��		O	/��		O	
��		C�>"G��h}]6ugfilenamef!language/tree-il/compile-glil.scm�
�
��	�	��	�	��		
gnameg
make-label�C�R����hp']*44L5L5�$D��&'�$��C666gid
		kgv		kgv			kgvx		!	_gvy		!	_gvx		9	Ggvy		9	Ggfilenamef!language/tree-il/compile-glil.scm�
�	��	�	��	�	��	�	��	�		��	F�	��	K�	��	S�	��	W�	��	_�	��	c�	��	k�	��
		k	Ch�]O6�gids
		gvars		g
allocation			gproc			gfilenamef!language/tree-il/compile-glil.scm�
�
��	�	��			gnamegvars->bind-list�C�R��h ]44556gsrc
		gids		gvars			g
allocation			gproc			g	emit-code			gfilenamef!language/tree-il/compile-glil.scm�
�
��	�	��	
�	��	�	��	�	��			gnameg
emit-bindings�C�R�h �]M�N$45M�NCC�gsrc
		gx		gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	
��			gnameg	emit-code�C�h(�]	H4O>"GJ6�gproc
		"gout		"gfilenamef!language/tree-il/compile-glil.scm�
�
��	�	
��	�	��	�	��	"�	��		"gnamegwith-output-to-code�C�R���������h@�]L$44L5>"G"LLLL4LL5�6�g	emit-code
		<gfilenamef!language/tree-il/compile-glil.scm�
�	��	�		��		�	��	
�	��	�	��	/�	#��	8�	��	<�		��			<C��
hP]#�&54545454O56	6gx
		Lg
self-label		Lg
allocation			Lgrtd			Lgsrc		$	Dgmeta		$	Dgbody		$	Dgfilenamef!language/tree-il/compile-glil.scm�
�
��	�	��	/�	��	D�	��	H�	��		L	gnamegflatten-lambda�CTR�h�]L6�gtree
		gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	(��	�	��		gnameg	comp-push�C�h�]L6�gtree
		gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	(��	�	��		gnameg	comp-drop�C��WH�������h�*]!4L5�$[��&@�$/��4L45>"GL456L6L6L6"gh
		ygv		ygvx			ogvy			ogvy		/	[gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	 ��	�	��	6�	��	:�	)��	C�	��	O�	)��	U�	B��	Y�	)��	[�	��	_�	'��	e�	 ��	i�	'��	o�	 ��	s�	'��	y�	 ��		yCh w]4L5LLLO6ogv
		gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	��	�	��		Ch0�]�$"�$LLLLO6C�gcontext
		.gsyms		.gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	��	,�		��		.	gnamegclear-stack-slots�C����������������������V��W���������������������������h��])44L5L5"`�$Q��&8�$)��&L4566666�$E��&0�$%��&L456"��\"��X"��T"��P�gsym
	�gv	�gvx		%	pgvy		%	pgvx		=	`gvy		=	`gvx	��gvy	��gvx	��gvy	��
gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	!��	�	,��	�	!��	�	��	L�	*��	R�	C��	V�	*��	X�	��	\�	&��	`�	��	d�	&��	h�	��	l�	&��	p�	��	t�	&��	x�	��	x�	����	*����	C����	*����	����	��	�C�������H������h��])44L5L5"`�$Q��&8�$)��&L4566666�$E��&0�$%��&L456"��\"��X"��T"��P�gsym
	�gv	�gvx		%	pgvy		%	pgvx		=	`gvy		=	`gvx	��gvy	��gvx	��gvy	��
gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	��	�	(��	�	��	�	��	L�	&��	R�	?��	V�	&��	X�	��	\�	"��	`�	��	d�	"��	h�	��	l�	"��	p�	��	t�	"��	x�	��	x�	����	&����	?����	&����	����	��	�C���������������������������Y�����<������������������������������T���hH�]�$5���$��L456L6L6�gloc
		Hgvx		>gvy			>gvy			4gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	��	'�	&��	.�	C��	2�	&��	4�	��	8�	$��	>�	��	B�	$��	H�	��		HC	

��hh])�$V���$=���$%��(
4L5�C6666gx
		ggvx		_gvy			_gvy			Wgvx		0	Ogvy		0	Ogfilenamef!language/tree-il/compile-glil.scm�
�	��	�	!��	=�	.��	F�	$��	K�	0��	O�	)��	S�	0��	W�	)��	[�	0��	_�	)��	c�	0��	g�	)��
		gC~�����hx(])44L5L5�$[��&H�$?��&,4L45>"GL456CCCC gv
		xgv		xgvx		!	vgvy		!	vgvx		9	rgvy		9	rgfilenamef!language/tree-il/compile-glil.scm�
�	
��	�	��	�	��	�	��	�	��	E	��	I	��	O	6��	S	��	X	��	d	��	j	6��	n	��	p	��		xC�I� !������h��])44L5L5"i�$X��&=�$,��&LL456L6L6L6L6�$F��&1�$&��&LL456"��R"��N"��J"��F�gv
	�gv	�gvx		%	wgvy		%	wgvx		=	cgvy		=	cgvx	��gvy	��gvx	��gvy	��
gfilenamef!language/tree-il/compile-glil.scm�
5	��	6	��	6	&��	6	��	6	��	M:	%��	S:	>��	W:	%��	Y:	��	];	"��	c;	��	g;	"��	m;	��	q;	"��	w;	��	{;	"���;	���6	���8	%���8	>���8	%���8	���6	��	�C"#$%&'(��)�*h�C])44L5L5�$X��&=�$,��&LL456L6L6L6L6;gv
		}gv		}gvx		!	sgvy		!	sgvx		9	_gvy		9	_gfilenamef!language/tree-il/compile-glil.scm�
C	��	D	��	D	&��	D	��	D	��	IF	%��	OF	>��	SF	%��	UF	��	YG	"��	_G	��	cG	"��	iG	��	mG	"��	sG	��	wG	"��	}G	��		}C�����*h��]+44L5L5�$n��&S�$B��&'4L>"GLL456L6L6L6L6�gname
	�gv	�gval		�gv		�gvx		!�gvy		!�gvx		9	ugvy		9	ugfilenamef!language/tree-il/compile-glil.scm�
N	��	O	��	O	(��	O	��	O	��	E�	��	K�	(��	R�	��	_R	'��	eR	@��	iR	'��	kR	��	oS	$��	uS	��	yS	$��	S	���S	$���S	���S	$���S	��	�	C����*h�C])44L5L5�$X��&=�$,��&LL456L6L6L6L6;gv
		}gv		}gvx		!	sgvy		!	sgvx		9	_gvy		9	_gfilenamef!language/tree-il/compile-glil.scm�
X	��	Y	��	Y	(��	Y	��	Y	��	I[	'��	O[	@��	S[	'��	U[	��	Y\	$��	_\	��	c\	$��	i\	��	m\	$��	s\	��	w\	$��	}\	��		}C+,-./0�TW�hy]L456qgloc
		
gfilenamef!language/tree-il/compile-glil.scm�
y	 ��	z	0��	
z	"��		
C�	����1���
��
������h(%]J4L5$�4L4L5>"G4L5�("84LO>"G4L4455>"G44L5L5�$X��&=�$,��&LL4	56
6
6
6
6454L4
5>"G"�$��&�4545454545	4L5�
4L4
5>"G
4LLL>"G$4L45>"G"4LLL$L"LL>"G4L45>"G	"��
6L45645"���gx
	#gv	#g	free-locs		5	|gv	��gvx	��gvy	��gvx	��gvy	��gPOST	�#glcase	grtd	%
gsrc	Rgreq	Rggensyms	Rgbody	Rg	alternate		Rglabel	
f�gfilenamef!language/tree-il/compile-glil.scm�
o	
��	q	��	p	��	s	��	s	��	#s	��	,t	$��	5t	��	5t	��	=u	��	By	��	[|	��	_|	$��	c|	4��	d}	4��	l|	$��	q|	��	}~	���~	!���~	���~	����	 ����	9����	 ����	����	����	����	����	����	����	����	����	����	����	����	���	���	 ���	���	���	��"�	��%�	��]�	*��f�	%��f�	��i�	��m�	��x�	����	����	����	����	+����	����	����	(����	����	����	'����	���	���	���	���	���	���	 ��#�	��D	#	C2��W���3hH�]�$5���$��L456L6L6�gloc
		Hgvx		>gvy			>gvy			4gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	��	'�	(��	.�	E��	2�	(��	4�	��	8�	&��	>�	��	B�	&��	H�	��		HC�4�1h��]24L5$4L5�"(C4LO>"G44L5L5�$W��&<�$+��&L4566666�gx
	�gv	�g	free-locs		�gv		S�gvx		b�gvy		b�gvx		z�gvy		z�gfilenamef!language/tree-il/compile-glil.scm�
�	
��	�	!��	�	��	�	&��	�	!��	�	!��	�	��	&�	��	)�	��	D�	��	G�	'��	S�	��	S�	����	%����	>����	%����	����	#����	����	#����	����	#����	����	#����	��	�	C56789�����:�h��])44L5L5"i�$X��&=�$,��&LL456L6L6L6L6�$F��&1�$&��&LL456"��R"��N"��J"��F�gv
	�gv	�gvx		%	wgvy		%	wgvx		=	cgvy		=	cgvx	��gvy	��gvx	��gvy	��
gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	 ��	�	+��	�	 ��	�	��	M�	*��	S�	C��	W�	*��	Y�	��	]�	'��	c�	 ��	g�	'��	m�	 ��	q�	'��	w�	 ��	{�	'����	 ����	����	*����	C����	*����	����	��	�C�;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXY����Z�h��])44L5L5"i�$X��&=�$,��&LL456L6L6L6L6�$F��&1�$&��&LL456"��R"��N"��J"��F�gv
	�gv	�gvx		%	wgvy		%	wgvx		=	cgvy		=	cgvx	��gvy	��gvx	��gvy	��
gfilenamef!language/tree-il/compile-glil.scm�
�	��	�	 ��	�	+��	�	 ��	�	��	M�	*��	S�	C��	W�	*��	Y�	��	]�	"��	c�	��	g�	"��	m�	��	q�	"��	w�	��	{�	"����	����	����	*����	C����	*����	����	��	�C[\]^_`�hx3Z]�OOOLQLQLLLQ�&j�$"�$"�$4L45>"G"$L4	
56&
L456C
&4545	�$"�$"�$4L4	5>"G"$L4	
56&
L456C&\45"G	�(	�

"���	�
4L
>"G
	�	"���	"���&�454545
	"�4	5$944	54
5�5$"44	55"$"4
>"G4L44
55>"G45
�$j�$"�$"�$4L45>"G"$L4	
56&
L456C�$Q�$4L45>"G"$L4	
56&
L456C	��$C 456"X&"4L4!
5>"G4L	>"G4
>"G4
5�$J��$L4"564#5
4L
>"G
L4$
56�$���$4L4%5>"G"=4#5
4L
>"G
4L4&
5>"G$L4	
56&
L456C�$F4L4'5>"G$L4	
56&
L456C�$�4(54(5
4L4'
5>"G4L45>"G4L4	
$"5>"G4L4)
5>"G4L4*
5>"G$L4	
56L4)56C4+	5$�"�4,4-	5L5$�4
>"G"�4.5$�4/5$"4405$"$415$"4
544255�$B43LLLO444555>"G46L5�
L4	

56475"��^86494:L4-	555"��="���L$�4-	5L&�&�4/L5$"E41L5$"54
5442L554;40L55$"
��$V4
>"G4<LLLO4445L55>"G46LL5�L4	
56"��A"��="��9"��5"���4	5$	"{4	5=&��$?4
>"G$L4	
56&
L456C�$�4
5
�$u4L4!
5>"G4L	>"G4L4%
5>"G$L4	
56&
L456C4
�>"G
�4L>"G$L4	
56&
L456C�$@4
>"G4L44
55>"GL4	
56�$C4
>"GL4
5�$45"	4>56C"�4	5?&�4
5	�$�
��4L>"G
�4L>"G4L4@	5>"G�$"�$"�$4L45>"G"$L4	
56&
L456C"���"���"�4	5A&u4
5�$d�$,
�4L>"GL4B56�$X4C4DE5
54L>"G$L4	
56&
L456C�$c
�4L>"G4L4F5>"G$L4	
56&
L456C�$W4C4DE5
54L>"G$L4	
56&
L456CC"���"���4	5G&4
5	�$�$X4C4DH5
54L>"G$L4	
56&
L456C4(54(5
�
��
&"4L4!
5>"G4L>"G4L4!
5>"G4L
>"G4L4'
5>"G�$4L4"5>"G"44L4%5>"G4L4	
5>"G4L4)5>"G�$L4$
564L4&
5>"G4L4)5>"G&4L45>"G"$L4	
56&
L456C"��O"��K4	5I&4
5�$n
�
�"��$?4L>"G4>"GL4J45�56�$�4L4!
5>"G4L>"G4>"G4L4K45�5>"G$L4	
56&
L456C�$[4C4DK5�5
4L
>"G
$L4	
56&
L456C�$Z4C4DK5�5
4L
>"G
$L4	
56&
L456CC45$�45=&�&"��${�$?4>"G$L4	
56&
L456C�$(4>"GL4L4556C"���"���"���"���"���"��9M&z4N54O54P54Q5
	4(54(5
	�&i4	54	5�R&4545"54L	>"G4L4	S5>"�G"�"�T&��$���&|454545�R&45"54L>"G4L4	U5>".G"'"UV&I�$=�4L>"G4L4	W5>"�G"�"��v"��rX&i	�$\�4L>"G��4L>"G4L4	Y5>"hG"a"��:"��64L>"G4L4	U5>"(G"!4L>"G4L4	U5>"�G"�"���"���"UV&I�$=�4L>"G4L4	Z5>"�G"�"���"���X&m	�$\�4L>"G��4L>"G4L4	[5>"G""��:""��2"14L	>"G4L4	S5>"G"14L	>"G4L4	S5>"G4L
>"G$"��$4L4	

5>"G"4L4)5>"G4L>"G$"��$L4)
56CR&�4\545	4]^[	54]_	5&o�$"�$"�$4L4`a	5>"G"$L4	
56&
L456C4]_	5$r�$"�$"�$"4L4bac	5>"G"$L4	
56&
L456C�$"�$"�$(4L4ba4d^[5	5>"G"$L4	
56&
L456Ce&�4f54-5	�$"�$"�$�4646L	5L5

�$d
�
��$3��
4L4g
a5>"G
"4h
>"G"4h
>"G
"$L4	
56&
L456Ci&14j54k54l5
	4L
>"G4646L	5L5�$d��

�$3
�
�4L4gm5>"G"4h>"G
"4h>"G�$"�$"�$4L45>"G"$L4	
56&
L456Cn&�4o54p54q54r5
	4L4ba	
5>"G�$4L45>"G"$L4	
56&
L456Cs&�4t54u54v54w54x5
	4L>"G4L4bm	
5>"G�$"�$"�$4L45>"G"$L4	
56&
L456Cy&~4z54{5	4L4`a	5>"G�$4L45>"G"$L4	
56&
L456C|&�4}54~545
	4L
>"G4L4`m	5>"G�$"�$"�$4L45>"G"$L4	
56&
L456C�&�4�54�54�5
	4L
>"G4L4`�	5>"G�$"�$"�$4L45>"G"$L4	
56&
L456C�&�46L5��$"�$"�$c4L4�L5>"G(":4�LO>"G4L4�455>"G"$L4	
56&
L456C�&�4�54254054154/54�54554754�5

	4	5
$4
5"
$	�"$�"4��O$�"54��$"
�4��4��55?46L5�$	4(5"45�$4
5�$"
��"$"&4�	

>"G4L$4�5"/$"
$4�5"4�5>"G4�LLLO>"G("b4�"�(44$	�"5"%�$����$����$~��  �$Z � �"!"(74�!5$�4�!5"��p"��`4�5"�!"4�5"� 4�5"r4�5"b4�5"O$�"4�44
$
"544	554��$"
�5"���LLL>"G"�("�"�4646L�5L5�$P��&�$���  �$�4(5!4L4g�5>"G4L4	U!5>"G�"4L">"G"4L4gm5>"G4L4)!5>"G���"��	!&4��>"�G"�"� &4��>"�G"�"�&4��>"zG"s"o&4��>"NG"G"C$�$��"��>"��H"��D
4�5"��46L5�4L4)5>"G4L>"G("4L4�5>"G$(4L4)5>"G�LLLLL6C�&�4�54�54�54�54�5
	4>"G4�	
LLL>"G4�LLLO44
5>"G4L>"G4
>"GL4�56�&4�54�54�54�54�54�5

	4�LLLO>"G4�
LLL>"G	$+4�LLLLO
>"G":4>"G4�LLLO445>"G4L
>"G4>"GL4�56�&{4�54�54�54�54�5
	&"$"4(5
4�
LLLLO	
>"G"K(4�5"I4,�L5$��"���������"���
	"���4�4��54��5LLL>"G4�LLLO
>"G4L>"G
$4L4)
5>"G"4
>"GL4�56�&�4�54�54�5
	
��&a42
540
54/
541
545
54�
547
5

$"
$"$4�>"G"4(54L	>"G4L45>"G4L4)5>"G4L4*4�4�$	"5LL5$"5>"G4�LLLO445>"G4L>"G4>"GL4�56�
6�&�4�54�54�54�5
	4L
>"G4L>"G4C
54L>"G4L4�	5>"G�$�4(54L	>"G4L4�
5>"G4C5
4L
>"G
4L45>"G4L4)5>"G4L4�
5>"G4C5
4L
>"G
L4�56�$M4L	>"G4L4�
5>"G4C5"��h�$�4(54L	>"G4L45>"G4L4)5>"G4L4�
5>"G4C5
4L
>"G
L4	
56�$j4L	>"G4L4�
5>"G4C54L>"G$L4	
56CC�&4�54�54�5
	4�>"G4>"G4	>"G4L4�455>"G�$�4(54L
>"G4L4�
5>"G4L45>"G4L4)5>"G4L4�
5>"GL4�56�$#4L
>"GL4�
56�$t4(54L
>"G4L45>"G4L4)5>"G4L4�
5>"GL4	
56�$E4L
>"G4L4�
5>"G$L4	
56CC�&�4�54�>"G�$4L>"G"X�$"�$"�$34L>"G4L4�5>"G"$L4	
56&
L456C�&�4�54�5	4�>"G4L>"G4L	>"G4L4�	5>"G�$"�$"�$4L45>"G"$L4	
56&
L456C�&�4�54�54�54�5
	4(54(546L5
4L	>"G4L4�5>"G�$�4(54L
>"G4L4�
5>"G4L45>"G4L4)5>"G4L4�
5>"G4L4�5>"G"T�$Y4L
>"G4L4�
5>"G4L4	
$"
5>"G"��$�4(54L
>"G4L45>"G4L4)5>"G4L4�
5>"G4L4	
5>"G"b�$Y4L
>"G4L4�
5>"G4L4	
$"
5>"G"4L4)5>"G��&%4254054/54154554�5475$"
$"$4�>"G"4L4*4�4�$	"5LL5$"5>"G4�LLLO445>"G4L>"G4L4�5>"G"4�>"G$"&"�$L4)
56C�&�4�54�54�54�5
	4L	>"G4
>"G4L>"G4L4�4
55>"G�$
L4�56�$.4L4*
5>"G$L4	
56C�$L4*56�$L4	
56C�6Zgx
	3ugcontext	3ugRA		3ugMVRA		3ug	comp-push		3ug	comp-drop		3ugclear-stack-slots		3ugrtd		53ugsrc	�0gexp		�0gexps	?�gexps		E�gtree	
Oegtree	
h�gsrc	��gproc		��gargs	
��gt	��gt	dgkey	C*glen	��gtree	
��gtree	
/gMV	
��gPOST	��glcase	�iglabel	
CTgt	��glabel	?Pgkey	��gtree	o�glen		&	Hgtree		o	�gtree		�	�gtree	
_
zgtree	
�
�gtree	
�gtree	o�gtree	�gMV	L
�gPOST	L
�gproducer	
L
�gconsumer	L
�gproc	vgargs	vgtree	
0gtree	
x�gsrc	�gtest		�g
consequent	
�g	alternate	�gL1	�gL2	
�grtd	�fgproc	�.gargs	�.grtd	�(gname	��glen	��gapp	Jgrtd	O
gproc	g�gargs	g�glen	r�grtd	w�gname	��gtree	��gtree	0Kgtree	Ojgtree	/Jgtree	��gtree	��gsrc	�gname		�gsrc	��ggensym		��gv	
�pgvx	�Sgvy	�Sgvx	

3gvy	
3gsrc	��ggensym		��gexp	
��gv	�ngvx	�Qgvy	
�Qgvx	1gvy	1gsrc	�tgmod		�tgname	
�tgpublic?	�tgsrc	�Hgmod		�Hgname	
�Hgpublic?	�Hgexp	�Hgsrc	^�gname		^�gsrc	��gname		��gexp	
��gsrc	�Jgname		�Jgexp	
�Jg	free-locs	\�gsrc	["�greq		["�gopt	
["�grest	["�gkw	["�ginits	
["�ggensyms	["�g	alternate	["�gbody	["�gnreq	t"�gnopt	�"�grest-idx	�"�gallow-other-keys?	�"�g
kw-indices	�"�gnargs	�"�gnlocs	�"�galternate-label	
"�gb	Cgt	Cxgkw	�gnames	�ggensyms	�gvx	2�gvy	2�gvy	@�gvx	S�gvy	 S�gvx	!d�gvy	"d�ginits	 c"-gn	 c"-ggensyms	 c"-gv	 �"gvx	 �!�gvy	 �!�gvx	 �!�gvy	  �!�gL	! �!]gtree	" �!glabel	"N"kgsrc	"�#�gnames		"�#�ggensyms	
"�#�gvals	"�#�gbody	"�#�gsrc	#�$�g	in-order?		#�$�gnames	
#�$�ggensyms	#�$�gvals	#�$�gbody	
#�$�gsrc	$�&3gnames		$�&3ggensyms	
$�&3gvals	$�&3gbody	$�&3gnew-RA	
%&3gout	%3%~ggensyms	%3%~gnames	%3%~gbinds	%�%�gsrc	&P'�gexp		&P'�gbody	
&P'�grtd	&Y'�greq	&�'�gopt	
&�'�gkw	&�'�grest	&�'�ggensyms	&�'�gbody	&�'�g	alternate	&�'�gMV	&�'�gsrc	'�*�gbody		'�*�gwinder	
'�*�gunwinder	'�*�gtree	(.(IgMV	(q)Dgtree	
(�(�gtree	
))7gtree	)�)�gMV	)�*<gtree	
**.gtree	*~*�gfluids	*�,�gvals		*�,�gbody	
*�,�gMV	+;+�gMV	+�,mgfluid	,�-�gfluid	-�.bgexp		-�.bgsrc	.�2fgtag		.�2fgbody	
.�2fghandler	.�2fgH	.�2fgPOST	
.�2fgescape-only?	.�2fgMV	.�/~gMV	/�0pgrtd	0�27greq	1,2gopt	1,2gkw	1,2grest	1,2ggensyms	1,2gbody	1,2g	alternate	1,2gsrc	2�3mgtag		2�3mgargs	
2�3mgtail	2�3m�gfilenamef!language/tree-il/compile-glil.scm�
�	��	5�	��	H	��	e	
��	i	��	r	
����	����	����	����	����	����	����	
����	����	,����	����	����	���	���		
���		���		
���	���	���	���	���	���	��!�	
��%�	��)�	,��,�	��.�	��8�	��E	��H	��L		��O	��O	
��e�	��h	��h	��k�	��q�	(��x�	���	���	���	����	����	����		����	����	"����	<����	����	����	����	����	+����	��	��	�	���	��"�	��'�	0��/�	��4�	��=�	��C�	��V�	��s�	%��w�	3����	%����	����	����	����	����	����	����	
����	����	,����	����	����	����	����	����	)����	9����	)����	����	����	����	����	����	����	���	
���	��	�	,���	���	���	���	��"�	��*�	��2		��6			��;
	
��@
	��D
	,��G
	��L
	
��U�	��[�	(��b�	��k		��
	���
		���	���	���	���	(���	8���	(���	���	&���	����	����	(����	���	*���	:���	*���	���	���	���	���	���	(���	8���	(��	��
	&��	���	���	(��$�	��0	��5	*��9	:��<	*��A	��O�	��S�	��W�	��[�	��]�	��a�	��e�	
��i�	��m�	,��p�	��r�	��}	��~	���	$���	����	����	����	����	����	����	����	
����	����	,����	����	���	���	���	3���	��� 	��� 	&��� 	���!	���!	%���!	5��!	%��!	���	���	��"	'��"	+��'�	��,�	��5�	��9�	��D�	��M$	��Q$	%��\$	��j%	��n�	��r&	+��v�	��x�	��|�	����	���	����	���	����	����	����	����		����		����		����	����	����	����	
����	����	
����	����	
����	���	#���	+��
�	#���	���	
���	
��!�	��$�	 ��,�	��1�	
��:�	'��C�	"��C�	
��J�	��N�	��R�	��T�	��U�	��a�	
��e	��i	
��i�		��j�	��m�	��r�	/��z�	��|�	����		���	����		����	����		����	����		����	����		����	����		����	����	����	����	����	����	����	����	����	����	����		����		���		���	�� �	��(�	��-�		��6�	#��?�	��?�		��F�	��J�	��N�	��P�	��d	��e	��o	��tE	)��|E	C���E		���J		���K	����	����	����	����	����	����	����	
����	����	,����	����	���J		���M	���M	���Q	���Q	���Q	.���Q	���Q	����	���	(��
�	��S	��S	��S	.��S	��$S	��2�	��6�	��:�	��>�	��@�	��D�	��H�	
��L�	��P�	,��S�	��U�	��XX	��_X	#��dX	��oY	��oY	��r�	��x�	(���	����	����	����	����	����	����	����	
����	����	,����	����	���J		���\	���]	���]	���]	+���]	���]	����	���^	����	����	��	J		��	`	��	 a	&��	&a	��	,b	!��	0b	��	1c	!��	5c	1��	8c	!��	=d	!��	Ad	1��	Ed	!��	Ja	��	Q�	��	Y�	-��	]�		��	^�	��	g�	��	k�		��	n�	��	o�		��	r�	��	x�	(��	�	��	��	��	��		��	��	��	��	(��	��	��	��		��	��	��	��	(��	��	��	��		��	��		��	��	��	��	+��	��	��
�	��
�	��
�	��
�	��
�	��
�	��
�	
��
"�	��
&�	,��
)�	��
+�	��
5	��
:�	��
B�	-��
F�		��
G�	��
O�	��
S�		��
\�		��
_�	��
_�	��
b�	��
h�	(��
o�	��
�	��
��	+��
��	��
��	��
��		��
��	
��
��	��
��	)��
��	��
��	
��
��	��
��	"��
��	-��
��	"��
��	��
��	��
��	��
��	��
��	��
��	��
��	
��
��	��
��	,��
��	��
��	��
��		��
��	��
��	��
��	��
��	(���	���	���	���	+���	��"�	��0�	��4�	��8�	��<�	��>�	��B�	��F�	
��J�	��N�	,��Q�	��S�	��^�		��_�	
��d�	��i�	)��k�	��o�	
��o�	��r�	��x�	(���	����	����	����	����	����	����	����	
����	����	,����	����	���	���g	���g	-���f		���h	���h	���f		���p		���t	
���t	#���t	:���t	#���t	
���s	����	"����	-���	"���	���	���	��"�	��$�	��(�	��,�	
��0�	��4�	,��7�	��9�	��<y	��Ay	*��Hz	��Kz	2��Ly	��X{	$��\{	��a|	��f|	!��j|	1��m|	!��r|	��{�	����	(����	���~	���~	���~	-���~	���~	����	����	(����	����	����	����	����	����	����	'����	7����	'����	��
�	��
�	'��
�	7��
�	'��
�	��
�	��
 �	��
$�	(��
(�	��
-�	��
6�	��
:�	��
E�	��
V�	��
[�	'��
_�	7��
b�	'��
d�	��
e�	��
j�	'��
n�	7��
q�	'��
v�	��
�	��
��	��
��	��
��	)��
��	��
��	��
��	*��
��	:��
��	*��
��	��
��	��
��	��
��	��
��	��
��	��
��	��
��	
��
��	��
��	,��
��	��
��	��
�	��
�	��
�	-��
�		��
�	��	��		��	��	��		��*	
�� �	��&�	(��-�	��6-	��N.	��R.	/��S.	?��Z.	;��\.	��^.	��g*	
��h0	��m0	��q0	/��t0	��y0	����	����	(����	���2	���3	���3	���3	/���3	:���3	6���3	���3	����	����	����	����	����	����	����	
����	����	,����	����	��*	
��7	��7	'��7	>��
7	'��8	#��7	��6	���	"���	-��%�	"��6�	��:�	��>�	��B�	��D�	��H�	��L�	
��P�	��T�	,��W�	��Y�	��d*	
��eA	��jA	'��oA	>��qA	'��vB	#��xA	��x@	��{�	����	(����	����	����	����	����	����	����	����	
����	����	,����	����	���	���	���	���	-���	G���	
���	$���	
���	>���	1���	,���	
���#	
���$	���	���	���	���	�� �	��$�	��(�	
��,�	��0�	,��3�	��5�	��@#	
��A&	��Y'	��]'	/��^'	?��f'	��h'	����	���0	���0	#���0	���2		���4	���6	���6	����	���	(���	���	���	��`	$��"�	��'�	��37	��;B	"��?7	��CB	(��GB	��JC	��JC	��OD	��lF	#��rF	��wG	����	����	(����	����	����	���V	0����	����	���I	���P	.���I	���P	6���P	���Q	*���Q	����	����	(����	����	����	���R	0���	���	��I	�� K	.��$I	��)K	4��-K	��0L	*��0L	��3�	��9�	(��@�	��NM	*��OM	��R�	��X�	(��_�	��k�	��p�	��tN	0��x�	��}�	����	����	(����	����	����	���Y	.����	����	����	����	(����	����	����	���\	)����	����	��7	�� >	"��$7	��(>	*��,>	��/?	��/?	��2�	��8�	(��?�	��K�	��P�	��T@	$��X�	��]�	��q7	��u9	"��y7	��~9	(���9	���:	���:	����	����	(����	���;	���;	����	����	(����	����	����	���<	$����	����	����	����	(���	���	���	��c	 ���	���	��3�	��9�	(��@�	��I�	��N�	��Rf	��V�	��[�	��g�	���k	
���k	-���k	 ���k	���k		����	����	���l	����	����	����	����	����	����	���o	
���o	-���o	 ���o	���o		����	���	���	��t	��)u	��5s	��>v		��[x	��`x	��dx	/��hx	��mx	���	����	����	����	����	����	����	
����	����	,����	����	���z		���s	���{		���}	���}	���}	-���}	2���}	���}	����	���	���	��
�	���	���	���	
���	���	,���	��!�	��,�		��I�	��N�	��R�	��S�	!��_�	��d�	��v�	��z�	��~�	����	����	����	����	
����	����	,����	����	����	����	����	����	����	����	
���	
���	���	=�� �	��%�	
��8�	
��<�	��E�	
��\�	��e�	
��z�	��~�	����	����	����	����	����	
����	����	,����	����	����	����	����	(����	����	����	����	����	��
�	
���	���	:���	��#�	
��6�	
��:�	��C�	
��Z�	��c�	
��w�	����	
����	����	
����	����	����	����	����	����	����	
����	����	,����	����	����	���	��
�	���	(���	���	��,�	��-�	��1�	��5�	/��8�	��=�	��O�	��S�	��W�	��[�	��]�	��a�	��e�	
��i�	��m�	,��p�	��r�	��|�	����	����	(����	����	����	����	(����	����	����	���	
���	���	
��#�	��'�	��+�	��/�	��1�	��5�	��9�	
��=�	��A�	,��D�	��F�	��P�	��c�	��h�	��l�	*��p�	��u�	����	����	����	����	/����	����	����	����	����	����	����	����	����	
����	����	,����	����	����	����	����	(����	���	��
�	���	*���	���	��+�	��H�	
��L�	��U�	
��g�	��k�	��o�	��s�	��u�	��y�	��}�	
����	����	,����	����	����	����	����	(����	����	����	����	*����	����	����	���	
��
�	���	
��%�	��)�	��-�	��1�	��3�	��7�	��;�	
��?�	��C�	,��F�	��H�	��R�	��S�	��\�	��\�	��g�		����	����	����	����	����	����	����	 ����	0����	0����	 ����	����	����	����	����	����	���	���	
��	�	��
�	,���	���	���	��n�	��t�	��|�	��}�	����	����	����	"����	����	!����	(����	����	����	����	&����	/����	����	����	����	 ����	-����	 ����	����	$����	����	����	����	����	����	���	���	.��
�	���	���	
��&�	��-�	��3�	'��:�	��;�	
��C�		��P�	
��T�	��m�	
��y�		����	
����	����	����	
����	����	����		����		���		���	
��	��	��	��	��	%��!	��(	��o	��{	���	���	0���	���	���	���	���	���	���	���	���	���	���	���	���	���	�� 	�� 	"�� 		+�� 
		�� 
		&�� �	�� �	!�� 		&�� 		:�� '		�� (
	 �� 1
	3�� 7	0�� >
	3�� @
	 �� J	�� W	
�� c		�� i	�� r	�� u	 �� |	6�� ~	 �� �	�� �	
�� �	*�� �	
�� �	�� �	�� � 	�� � 	 �� � 	=�� � 	 �� � 	�� �!	�� �!	 �� �!	2�� �!	 �� �!	�� �"	�� �"	�� ��	��!�	(��!�	��!#	��!#	 ��!#	=��!"#	 ��!'#	��!0�	��!4�	��!?�	��!J%	��!M%	"��!P%	)��!Z%	��!`	
��!e&	��!i&	��!l&	/��!s&	��!�	
��!�&	��!�&	��!�&	/��!�&	��!�	
��!�&	��!�&	��!�&	/��!�&	��!�	
��!�&	��!�&	��!�&	/��!�&	��"	��"	��"	
��"	��"	��"%	
��"-		��"2	2��"D		��"E(	��"N(	��"N(		��"Q�	��"U�	��"`�	��"l�	��"�*		��"�+	
��"�+	��"�+	
��"�,		��"��	��"��	��"��	��"�/	��"��	��#	3	��#4	��#95	��#K<	��#V5	��#_�	��#w>	��#�?	��#�?	��#��	��#�C	��#�J	��$K	��$N		��$AW		��$UX		��$g]	��$rX		��${�	��$�_	��$�`	��$�`	��$��	��$�m	*��$�m	��$�m	��$�m	��$�m	8��%m	��%n		��%3�	��%9�	��%:�	/��%E�	��%J�	%��%N�	��%R�	��%W�	'��%Z�	5��%d�	��%g�	*��%j�	8��%k�	#��%q�	#��%t�	1��%~�	��%~�	��%�	$��%��	��%��		��%��	��%��	��%��	.��%��	��%��		��%��	��%��		��%��	��%��	��&	�	��&�		��&-�	��&3�		��&;�	��&Y�	��&��	��&��	
��&��	��&��	��&��	��&��	��&��	
��&��	"��&��	-��&��	"��&��	��&��	��'�	��'�	��'�	��'�	��'$�	��')�	��',�	��'/�	��'9�	)��'>�	2��'C�	>��'E�	��'M�	��'S�	��'[�	��'`�	��'i�	��'{�	��'��	��'��	��'��	��'��	��'��	��'��	��'��	��'��	��'��	(��(�	��(�	(��(�	��(%�	��(,�	/��(.�	��(.�	��(1�	��(7�	(��(>�	��(J�	��(N�	��(R�	%��(V�	��([�	��(l�	��(m�	��(q�	
��(t�	"��(z�	-��(��	"��(��	��(��	��(��	*��(��	��(��	��(��	��(��	6��(��	��(��	��(��	��(��	(��(��	��(��	��(��	��(��	*��(��	��(��	��(��	��(��	��(��	��(��	��(��	��)�	*��)�	��)
�	��)�	��)�	6��)�	��)�	��)�	��)%�	(��),�	��);�	��)?�	*��)B�	��)D�	��)M�	��)N�	��)T�	(��)[�	��)d�	
��)h�	��)l�	(��)o�	��)t�	
��)}�	��)��	4��)��	��)��	
��)��	(��)��	��)��	��)��	��)��	
��)��	"��)��	-��)��	"��)��	��)��	��)��	��)��	��)��	��)��	��)��	��)��	��)��	*��)��	��*�	��*
	��*	6��*	��*	��*�	��*�	(��*#�	��*2�	��*6	��*:�	��*<�	��*E�	��*F�	��*L�	(��*S�	��*\	
��*`	��*d	(��*g	��*l	
��*u	��*|	4��*~	��*~	
��*��	��*��	(��*��	��*�
	
��*��	��*�	��*��	��*��	��*��	��*�	��*�	��+	��+	��+	%��+	2��+ 	��+%	��+6	��+7	��+;	
��+>�	"��+D�	-��+L�	"��+U	��+Y	��+]	*��+`	��+e	��+n	��+r	��+v	*��+y	��+~	��+��	��+��	��+��	��+�!	��+�!	��+�!	*��+�!	��+�!	��+�"	��+�"	*��+�"	��+�"	��+�	��+��	��+��	(��+��	��+�&	��+�&	(��+�&	��+�&	
��+�	��+�)	��+�)	
��,�	"��,�	-��,�	"��,,	��,,	��,&,	��,/�	��,3�	��,>�	��,G0	��,K0	��,O0	*��,R0	��,W0	��,c�	��,g1	��,k�	��,m�	��,v	��,w�	��,}�	(��,��	��,�6	
��,�6	��,�6	(��,�6	��,�6	
��,�8	
��,��	��,�9	��,��	��,��	��,��	��,�<	��,��	��,��	(��,��	��-<	��-)�	��-/�	(��-6�	��-?A	
��-CA	��-GA	(��-JA	��-OA	
��-a�	��-e�	��-i�	��-m�	��-o�	��-s�	��-w�	
��-{�	��-�	,��-��	��-��	��-��	��-��	��-��	(��-��	��-��	(��-��	��-�G	��-�G	��-�G	%��-�G	��-�G	��.H	��.J	
��."J	��.+J	
��.=�	��.A�	��.E�	��.I�	��.K�	��.O�	��.S�	
��.W�	��.[�	,��.^�	��.`�	��.j�	��.�U	��.�V	��.�W	��.�U	��.��	��.��	(��.��	��.�Z		��.�Z	��.�Z		��.�^		��.�`	��.�`	��.��	"��.��	-��.��	"��/c	��/c	��/c	,��/c	��/c	��/d	��/d	��/!d	,��/$d	��/)d	��/2�	��/6�	��/A�	��/Jg	��/Ng	��/Rg	,��/Ug	��/Zg	��/ch	��/gh	��/kh	,��/nh	��/sh	��/�^		��/��	��/��	(��/��	��/�n	��/�n	��/�n	*��/�n	��/�n	��/��	��/��	��/�o	��/�o	 ��/��	��/��	��/�^		��/�r	��/�r	��/��	"��/��	-��0�	"��0u	��0u	��0u	��0#�	��0'�	��02�	��0;x	��0?x	��0Cx	,��0Fx	��0Kx	��0T�	��0X�	��0\y	��0`�	��0e�	��0}^		��0~�	��0��	(��0��	��0�~	��0�~	��0�~	*��0�~	��0�~	��0��	��0��	��0�	��0�	 ��0��	��0��	��0��	��0��	��0��	��0��		��1@�	��1V�	��1W�	��1[�	��1b�	��1o�	��1t�	��1w�	��1z�	��1��	)��1��	2��1��	>��1��	��1��	��1��	��1��	��1��	��1��	��1��	��1��	��1��	��1��	��1��	��1��	��2!�		��2=�	
��2F�	#��2J�	��2K�	��2S�	7��2T�	*��2X�		��2\�	��2d�	��2n�	��2��	��2��	(��2��	��2��	��2��	��2��	(��2��	��2��	��2��	��2��	&��2��	-��2��	��2��	��2��	��2��	��3�	(��3�	��3�	
��3�	��3�	
��3�	��3!�	
��3/�	
��33�	��37�	!��3;�	��3=�	��3H�	��3L�	��3T�	
��3]�	��3a�	��3e�	��3i�	��3k�	��3q�		��3u�	��?	3u	gnamegcomp�C�h0&]OQ6glcase
		+g
allocation		+gself			+g
self-label			+g
fix-labels			+g	emit-code			+gcomp			+gfilenamef!language/tree-il/compile-glil.scm�
�
��	�	��	'�	 ��	+�	��		+	gnamegflatten-lambda-case�C�RC�gm
		,gfilenamef!language/tree-il/compile-glil.scm�		
��	-	,	��	6	,
��	8	/	��	_	.
���	5
���	M	���	M
���	N
��v	P��{	N
��!�
����
��	�
��
��
��
��
��ǒ�
��	ǔ
C6language/tree-il/optimize.go000064400000003753150536206120012067 0ustar00GOOF----LE-8-2.0�]04h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	goptimize�		�	
gfilenameS�	flanguage/tree-il/optimize.scm�	gimportsS�	
�	
�	g
primitives�	�	�	gpeval�	�	�	gcse�	�	�	g
fix-letrec�	�	�	gdebug�	�	�	gice-9�	gmatch�	 �	! �	"!�	#gexportsS�	$g	optimize!�	%$�	&gset-current-module�	'&�	(&�	)gmemq�	*g
partial-eval?S�	+gcse?S�	,gfix-letrec!�	-gverify-tree-il�	.gexpand-primitives!�	/gresolve-primitives!�C5hPi]4	
"#%54(>"G)*ho]Cggx
		ge		gfilenameflanguage/tree-il/optimize.scm�
	"	��			C+h`]CXgx
		gfilenameflanguage/tree-il/optimize.scm�
	'	��		C,-./h�]+45�$\���$=�$0��&�$"""""45�$\���$=�$0��&�$"""""4	44	44
45555556�gx
	genv	gopts		gv			ugw			lgx			lgw		4	Zgx		4	Zgv		~�gw	��gx	��gw	��gx	��gpeval	�gcse	�gfilenameflanguage/tree-il/optimize.scm�
	
��			��	v	$	
���		���	*	���	+	���	,	���	-	���	-	���	-	#��	-	��	-	��	,	��	+	��	*	��	)	��		gnameg	optimize!�C$RCagm
		,gfilenameflanguage/tree-il/optimize.scm�		
��K	
��	M
C6language/tree-il/debug.go000064400000035430150536206120011312 0ustar00GOOF----LE-8-2.0;]e4h6]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	gdebug�		�	
gfilenameS�	flanguage/tree-il/debug.scm�	gimportsS�	
�	
�	gice-9�	gmatch�	�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-26�	�	�	�	gexportsS�	gverify-tree-il�	�	gset-current-module�	�	 �	!g	hashq-ref�	"gerror�	#fduplicate gensym�	$g
hashq-set!�	%gmake-hash-table�	&funexpected tree-il�	'g	<dynwind>�	(g<dynref>�	)g<dynset>�	*g
<conditional>�	+g
<application>�	,gfor-each�	-fexpected list of args�	.g
<sequence>�	/fexpected more than one exp�	0fexpected list of exps�	1g<prompt>�	2g<abort>�	3g<dynlet>�	4glength�	5fmismatch in fluids/vals�	6fvals should be list�	7ffluids should be list�	8g<module-set>�	9f%module name should be list of symbols�	:gand-map�	;gsymbol?�	<fname should be symbol�	=g<toplevel-define>�	>fname should be a symbol�	?g<toplevel-set>�	@g<primitive-ref>�	Ag<module-ref>�	Bg<toplevel-ref>�	Cg<void>�	Dg<const>�	Eg<let-values>�	Fglambda-case?�	Gf%let-values body should be lambda-case�	Hg<fix>�	Ifnames should be list of syms�	Jfgensyms should be list of syms�	Kf'names, syms, vals should be same length�	Lg<letrec>�	Mg<let>�	Ng<lambda>�	Of!lambda body should be lambda-case�	Pfmeta should be alist�	Qgpair?�	Rg
<lexical-set>�	Sgmemq�	Tfdisplaced lexical�	Ufunbound lexical�	Vg
<lexical-ref>�	Wg
<lambda-case>�	Xf-bad required args (should be list of symbols)�	Yf'bad gensyms (should be list of symbols)�	Zgtake�	[gdrop�	\funexpected gensyms length�	]f6bad keywords (should be #f or (aok (kw name sym) ...))�	^gkeyword?�	_f*bad required args (should be #f or symbol)�	`f/bad optionals (should be #f or list of symbols)�	agtree-il-src�	bfbad src�	cgmap�	dgcar�C5h�1f]4	
54 >"G!"#$hX�]
(C��4M5$
45"4M>"G�"����gnew
		Rgenv		Rgsym			Jgfilenameflanguage/tree-il/debug.scm�
	!	��		"	��		$	��		$	 ��		$	��			��	 		��	!		��	%		��	)		��	.		
��	G	 	
��	R	$	��		R	gnamegadd-env�C%"&'()*+,ho]LL6ggt-9d61fd5a44d-1361
		
gfilenameflanguage/tree-il/debug.scm�
�	��		
C-./ho]LL6ggt-9d61fd5a44d-12d8
		
gfilenameflanguage/tree-il/debug.scm�
�	��		
C012ho]LL6ggt-9d61fd5a44d-11cd
		
gfilenameflanguage/tree-il/debug.scm�
�	��		
C34ho]LL6ggt-9d61fd5a44d-1632
		
gfilenameflanguage/tree-il/debug.scm�
�	��		
Cho]LL6ggt-9d61fd5a44d-1638
		
gfilenameflanguage/tree-il/debug.scm�
�	��		
C56789:;<=>?@ABCDEFGHIJho]LL6ggt-9d61fd5a44d-1b64
		
gfilenameflanguage/tree-il/debug.scm�
�	��		
CKLho]LL6ggt-9d61fd5a44d-1c53
		
gfilenameflanguage/tree-il/debug.scm�
�	��		
CMho]LL6ggt-9d61fd5a44d-1d20
		
gfilenameflanguage/tree-il/debug.scm�
�	��		
CNOPQR!STUVWX"YhV]L6Ngfilenameflanguage/tree-il/debug.scm�		>	��	
	>		��		

C#$Z[\]^Shh�])�$[��45$D�$;���$(�$�(��$L6CCCCCCC�gx
		fgw		dgx			dgw		+	`gx		+	`gw		G	Zgfilenameflanguage/tree-il/debug.scm�
	5	��		6	!��	X	8	$��		fC_`abcdLh��]�"
�"
W"�"�"
"	"�"<""�"�""�"S"�"5"@"4>"�G"��$�&b
��	�	�4L>"G4L>"G4L>"mG"f�&&
��4L>"8G"1�&D
��	�4L>"G4L>"�G"��&b
��	�	�4L>"G4L>"G4L>"�G"�&j
��	��$34L>"G4	LO>"(G"!4
>"G"	�&j
���$=(4>"�G"�4
LO>"�G"�4>"�G"��&b
��	�	�4L>"G4L>"G4L>"5G".�&i
��	�	�4L>"G4LO>"G4L>"�G"�"���"����$��&�
��	�	��$��$y4545�$N4LO>"G4LO>"G4L>"G"4>"G"
�4>"
�G"
�4>"
�G"
�"���"����$��&�
��	�	�	�"4>"
vG"
o�$H45$7�$4L>"
CG"
<4>"
+G"
$"���"���"�� "���$\�&O
��	��$4L>"�G"�4>"�G"�"���"����$\� &O
��	��$4L>"jG"c4>"RG"K"��J"��F�$>�!&1
���$"4>"G"�"���"����$��"&y
��	�	�"4>"�G"��$445$#�$"�4>"�G"y"���"���"��h"��d�$>�#&1
���$"=4>",G"%"��"���$�$&	
�""���"����$�%&
��"
�"���"����$t�&&g
��	�4'5$,4L>"G4L>"
�G"
z4(>"
iG"
b"��I"��E�$N�)&A
��	�	�	�"4*>"
G"
�$�45$�"4+>"	�G"	��$�45$��$�4545�$45�"$A4L54,LO>"G4L>"	YG"	R4->"	>G"	74>"	&G"	"��+"��'"���"���"���"����$T�.&G
��	�	�	�	�"4*>"�G"��$�45$�"4+>"�G"y�$�45$��$�4545�$45�"$A4L54/LO>"G4L>"�G"�4->"�G"�4>"�G"�"��+"��'"���"���"���"����$G�0&:
��	�	�	�"4*>"WG"P�$�45$�"4+>"'G" �$�45$��$4545�$45�"$:41LO>"G4L4L5>"�G"�4->"�G"�4>"uG"n"��2"��."���"���"��3"��/�$��2&�
��	�"E$;4'5$4L>"G"�43>"�G"�"�$<"44>"�G"��$455$"���"���"���"��u"��p"��l�$��6&�
��	�	��$b47M5$=485$4L>"0G")49>"G"4:>"G"�4>"�G"�"��"���$��;&�
��	��$N47M5$)485$"�49>"xG"q4:>"`G"Y4>"HG"A"��"���$(�<&
��	�	�	�	�	�	�	�	"4=>"�G"��$�45$�>O
Q
"��$f45$E
45$4545$45"
�$"
�$45�"
��$�"U
�$�"��$a4L�>"G�47M5$
4?5"4@M>"G���"���4L>"G"$@�47M5$
4?5"4@M>"G�"$�""��4L�>"G�47M5$
4?5"4@M>"G�
���
"���4L4A4555$45"
4B455
"��h	$4L	>"LG"E"A4C>"0G")4>"G"4
>"G"�4
>"�G"�"c$Y"4D>"�G"��$2���$4EO5"$"��$"���"���"��"-$#�$"���4F>"]G"V"��l$H"4G>"/G"(�$45$"���""���""���""���
""��M""��E	""���""���4H5$^"4I>"GG"@�$5455$ 44JK55$""���""���""���"C�gexp
	�genv	�gw		{�gw	��gw	��gw	�gw	Pgw	Mgw	b�gw	i�gw	p�gw	�.gw	�+gw	@�gw	�gw	�	gw	�gw	~gw	%{gw	,xgw	�ogw	�lgw	�igw	�gw	�gw	�gw	?�gw	F�gw	��gw	��gw	
5gw	V�gw	]�gw	�gw	w�gw	~�gw	�	.gw	�	+gw		(gw		%gb	{�genv	��gw		U
�gw		\
�gw		c
�gw		j
�gb		�	�genv	
	
Agw	
��gw	
��gw	
��gw	
��gb	3Ugw	�gw	�gw	�
Ygw	�
Vgw	�
Sgw	
z
�gw	
�
�gw	!gw	gw	%gw	,gw	3gw	:gw	Agw		Hgfailure	
��gfailure	��genv	�Pgnopt	
�Pginits	�Pgtail	�Pgenv	�ginits	�gtail	�gsym	&_gsym	��gsym	;gx	<_gsrc	8�Rgfilenameflanguage/tree-il/debug.scm�
	&	��		(	��	K�	��	O�	��	V�	��	b	(	����	����	����	���	(	����	��	(	���	��3�	��S	(	��s�	����	����	���	(	����	����	����		����		���		���	���		��1	(	��E�	��I�	��P�		��T�	��[�		��h�		����		����	����		���	(	����	����	����	��	(	��/�	��C�	��^�	���	(	����	����	����	����	����	����	!����	����	����		����		���		���		��#�	��*�		��7�		��;�	��B�		��O�		��S�	��Z�		��s	(	����		����	����		����	����	����	����	����	����	����	����		����		����	���		��"	(	��K�	��O�	��P�		��h�		��l�	��s�		���	(	����	����	����		����		����	����		���	(	���	���	���		���	��&�		��9	(	��j�		��n�	��u�		����	����	����	����	����	����	����	����		����	����		���	(	����	����	����		����	���		��	(	����	����	����		����		����		����	����		���	(	���		���	���		��)�	��,�	��0�	��1�	!��=�	��B�		��F�	��M�		��Y�	��\�	��`�	��a�	#��m�	��p�	��t�	��u�	 ��{�	��~�	����	����	1����	����	����	����		����	����	����		����	����		����		����	��	�		��	2	(	��	q�		��	u�	��	|�		��	��	��	��	��	��	��	��	!��	��	��	��		��	��	��	��		��	��	��	��	��	��	��	��	#��	��	��	��	��	��	��	��	 ��	��	��	��	��	��	��	��	1��	��	��
�	��
�	��
	�		��
�	��
'�	��
B�		��
F�	��
M�		��
Z�		��
^�	��
e�		��
�	(	��
�	}		��
�	}	��
�	}		��
�	{	��
�	|	��
�	{	��
�	|	!��
�	|	��
�			��
�		��			��	{	��	~	��	{	��	~	#��%	~	��(�	��,	{	��-�	 ��3�	��6�	��?�	��F�	1��M�	��Y	{	��Z�		��u�		��z�	����		����		����	����		����		����	����		���	(	��	r	��	u	��	u		��	y	
��7	v		��;	v	��B	v		��R	r	��]	t		��a	t	��h	t		��t	r	��w	s	��{	s		��|	s	*���	s	���	(	���	i	���	h	���	k	���	h	���	m	���	h	���	p		��
		n		��

	n	��
	n		��
!	l		��
%	l	��
,	l		��
9	j		��
=	j	��
D	j		��
]	(	��
�	a	��
�	`	��
�	c	��
�	`	��
�	e	��
�	`	��
�	f		��
�	f	��
�	f		��
�	d		��
�	d	��
�	d		��
�	b		��
�	b	��
�	b		��
�	(	��O	,		��S	,	��Z	,		��f	*	��i	+	��m	*	��n	+	��z	+	���	*	���	=	���	*	���	=	#���	=	���	*	���	?	#���	?	���	A	���	B	���	C	���	C	���	B	���	F	���	B	���	G	���	G	���	G	���	B	���	A	���	*	���	J		���	N	��	N	��	O	��
	R	��	R	��	T	��	T	��	T	��&	U	 ��&	U	��)		��5		��6		��:		��>		��C		
��\	 	
��b	U	0��e	V	��o	U	��p	W	���	O	���	O	���	O	+���	O	&���		���		���		���		���		���		
���	 	
���	Q	���	Q	'���	O	���	Y	���	Y	���	Y	��	Z	��	Z	��		��		��		��		��		��		
��8	 	
��>	[	��A	\	��D	]	��P	Z	��P	J		��Q	J	��T	J	 ��Y	J	.��a	J	 ��e	J	��k	K	��l	K	 ��z	M	��	M	&���	M	���	J		���	^		���	^	���	H		���	H	���	H		��	*	��	<		��	<	��&	<		��2	*	��5	1	��9	1		��<	1	��E	3	��I	3	��J	4	��c	1	��s	*	���	/	���	/		���	0		���	0	���	0		���	*	���	.		���	.	���	.		���	*	���	-	���	-		���	-	(���	-	��)	(	��2	��8	��@	��E	
��I	��N	
��Z	��]	��a	
��b	)��n	��o	��t	.��~	���	���	�	gnamegvisit�Ch8�]HOQ45KOQ6�gexp
		6gseen-gensyms		6gadd-env			6gvisit		&	6gfilenameflanguage/tree-il/debug.scm�
	
��			��	&	&	��	4	'	��	6	&	��		6gnamegverify-tree-il�CRC^gm
		,gfilenameflanguage/tree-il/debug.scm�		
��1�	
��	1�
C6language/tree-il/fix-letrec.go000064400000046537150536206120012300 0ustar00GOOF----LE-8-2.0GM]�4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	g
fix-letrec�		�	
gfilenameS�	flanguage/tree-il/fix-letrec.scm�	gimportsS�	
gsystem�	gbase�	gsyntax�	
�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-11�	�	�	�	�	geffects�	�	�	�	gexportsS�	 gfix-letrec!�	! �	"gset-current-module�	#"�	$"�	%g
<lexical-set>�	&%�	'%�	(glexical-set-exp�	)g<module-set>�	*)�	+)�	,gmodule-set-exp�	-g<toplevel-set>�	.-�	/-�	0gtoplevel-set-exp�	1g<toplevel-define>�	21�	31�	4gtoplevel-define-exp�	5g
<conditional>�	65�	75�	8gconditional-test�	9gconditional-consequent�	:gconditional-alternate�	;g
<application>�	<;�	=;�	>gapplication-proc�	?gapplication-args�	@g
<sequence>�	A@�	B@�	Cg
sequence-exps�	Dg<lambda>�	ED�	FD�	Gglambda-body�	Hg
<lambda-case>�	IH�	JH�	Kglambda-case-inits�	Lglambda-case-body�	Mglambda-case-alternate�	Ng<let>�	ON�	PN�	Qglet-vals�	Rglet-body�	Sg<letrec>�	TS�	US�	Vgletrec-vals�	Wgletrec-body�	Xg<fix>�	YX�	ZX�	[gfix-vals�	\gfix-body�	]g<let-values>�	^]�	_]�	`glet-values-exp�	aglet-values-body�	bg	<dynwind>�	cb�	db�	egdynwind-body�	fgdynwind-winder�	ggdynwind-unwinder�	hg<dynlet>�	ih�	jh�	kg
dynlet-fluids�	lgdynlet-vals�	mgdynlet-body�	ng<dynref>�	on�	pn�	qgdynref-fluid�	rg<dynset>�	sr�	tr�	ugdynset-fluid�	vg
dynset-exp�	wg<prompt>�	xw�	yw�	zg
prompt-tag�	{gprompt-body�	|gprompt-handler�	}g<abort>�	~}�	}��g	abort-tag��g
abort-args��g
abort-tail��gfix-fold��g<void>��g<const>��g
<lexical-ref>��glexical-ref-gensym��gmemq��gsimple-expression?��gand-map��gprimitive-ref?��gdelq��glset-adjoin��geq?��glexical-set-gensym��gletrec-gensyms��gappend��glet-gensyms��gletrec-in-order?��geffect-free?��gexclude-effects��gmake-effects-analyzer��glset-difference��glambda?��gpartition-vars��g
make-sequence��greverse��gmake-sequence*��gpost-order!��g	make-void��g
letrec-src��gletrec-names��gmap��glist��gmake-let��gcadr��gcar��gcaddr��gmake-fix��gmake-lexical-set��g
module-gensym��ffixlr��gmake-lexical-ref��glet-src��g	let-names��gassq��glset-intersection�C5hH@�]4	
!54$>"Ghhs,3(D4�>G

	�	

"���kgproc
		fgexps		fgunref			fgref			fgset			fgsimple			fglambda			fgcomplex			fgunref		2	fgref			2	fgset	
	2	fgsimple		2	fglambda		2	fgcomplex	
	2	fgfilenameflanguage/tree-il/fix-letrec.scm�
		��		f	gnamegfold-values�C'(+,/034789:=>?BCFGJKLMPQRUVWZ[\_`adefgjklmpqtuvyz{|���9h0�
]�4L>G
	�

&#454L	
>�"�
&#454L	
>�"�
&#454L	
>c"^
&#454L	
>8"3
	&�4
545454L	
>G4L>G4L>�"�

&T45454L	
>G4LL>S"N
&%454LL	
>&"!
&?45$4L	
>�"	
	"�"�
&�4545454LL	
>G$@4L>G4L>N"4L>4"/
&T45454LL	
>G4L>�"�
&T45454LL	
>G4L>|"w
&T454 54LL	
>G4L> "
!&R4"54#54L	
>G4L>�"�
$&�4%54&54'54L	
>G4L>G4L>="8
(&�4)54*54+54LL	
>G4LL>G4L>�"�
,&#4-54L	
>�"�
.&R4/54054L	
>G4L>+"&
1&�4254354454L	
>G4L>G4L>�"�
5&�4654754854L	
>G4LL>G4L>"	
	"G
L
6�
gtree
	.gunref	.gref		.gset		.gsimple		.glambda		.gcomplex		.gunref		.gref		.gset			.gsimple	
	.glambda		.gcomplex		.grtd	
	+gexp		<	Tgexp		g	gexp	��gexp	��gtest	�^g
consequent	�^g	alternate	�^gunref	^gref	^gset	^gsimple	^glambda	^gcomplex	^gunref	9^gref	9^gset	9^gsimple	9^glambda	9^gcomplex	9^gproc	x�gargs	x�gunref	��gref	��gset	��gsimple	��glambda	��gcomplex	��gexps	��gbody	�.ginits	O�gbody	O�g	alternate	O�gunref	n�gref	n�gset	n�gsimple	n�glambda	n�gcomplex	n�gunref	��gref	��gset	��gsimple	��glambda	��gcomplex	��gvals	�5gbody	�5gunref	5gref	5gset	5gsimple	5glambda	5gcomplex	5gvals	O�gbody	O�gunref	l�gref	l�gset	l�gsimple	l�glambda	l�gcomplex	l�gvals	��gbody	��gunref	��gref	��gset	��gsimple	��glambda	��gcomplex	��gexp	Ggbody	Ggunref	"Ggref	"Ggset	"Ggsimple	"Gglambda	"Ggcomplex	"Ggbody	h�gwinder	h�gunwinder	h�gunref	��gref	��gset	��gsimple	��glambda	��gcomplex	��gunref	��gref	��gset	��gsimple	��glambda	��gcomplex	��gfluids	�]gvals	�]gbody	�]gunref	]gref	]gset	]gsimple	]glambda	]gcomplex	]gunref	8]gref	8]gset	8]gsimple	8]glambda	8]gcomplex	8]gfluid	p�gfluid	��gexp	��gunref	��gref	��gset	��gsimple	��glambda	��gcomplex	��gtag	kgbody	kghandler	kgunref	 kgref	 kgset	 kgsimple	 kglambda	 kgcomplex	 kgunref	Fkgref	Fkgset	Fkgsimple	Fkglambda	Fkgcomplex	Fkgtag	��gargs	��gtail	��gunref	��gref	��gset	��gsimple	��glambda	��gcomplex	��gunref	��gref	��gset	��gsimple	��glambda	��gcomplex	��gunref	

.gref	
.gset	
.gsimple	
.glambda	
.gcomplex	
.�gfilenameflanguage/tree-il/fix-letrec.scm�
		��	.	gnamegfoldts�Ch@;,	3O		Q	O

	Q

63gtree
		;gdown		;gup			;gunref			;gref			;gset			;gsimple			;glambda			;gcomplex			;gfold-values				;gfoldts	
		;gfilenameflanguage/tree-il/fix-letrec.scm�
		��		;		gnamegfix-fold�C�R�����589:�@C��hj]LL6bgx
		gfilenameflanguage/tree-il/fix-letrec.scm�
	,	��		,	��		C;>?��hj]LL6bgx
		gfilenameflanguage/tree-il/fix-letrec.scm�
	1	��		2	��		Ch��]#�&C&C&4545�C&G45454	54
5$4
5$

6CC&45
O6&;454545$45$
O6CCC�gx
	�g
bound-vars	�gsimple-primcall?		�grtd		�ggensym		*	7gtest		T�g
consequent		T�g	alternate		T�gexps	��gproc	��gargs	��gfilenameflanguage/tree-il/fix-letrec.scm�
	!
��		"	��	-	&	
��	6	&	��	?	"	��	[	(	
��	i	(	��	j	)	
��	x	(	���	*	
���	"	���	,	���	"	���	/	
���	/	���	0	
���	/	���	1	
��	�	gnamegsimple-expression?�C�R������%�S��N�
h��]�&'454545D& 4545D&4	54
5D&454
5DD�gx
	�gunref	�gref		�gset		�gsimple		�glambda*		�gcomplex		�grtd		�ggensym			6ggensym		E	^ggensyms		m�ggensyms	��gfilenameflanguage/tree-il/fix-letrec.scm�
	:	��		;	��		=	��	"	>	��	6	=	��	>	;	��	L	F	��	^	D	��	f	;	��	p	K	���	K	���	;	���	R	���	R	���	Y	��	�	CS��V��h �]	4M5456�gx
		geffects			gfilenameflanguage/tree-il/fix-letrec.scm�
	d	��		e	(��			e	��		g	��		f	��		gnamegeffect+exception-free-primcall?�C��hj]L6bgx
		
gfilenameflanguage/tree-il/fix-letrec.scm�
	^	0��	
	^	<��		
C��������h �]	4M5456�gx
		geffects			gfilenameflanguage/tree-il/fix-letrec.scm�
	_	��		`	(��			`	��		b	��		b	5��		b	��		a	��		gnamegeffect-free-primcall?�CN�Qh��]_�&�454545
	HOQ4O5K"k
(8$4	5"4
54
54
5D4
�5$l"
��
"���$D4�5$"
4
�	5�$
��
��
"��P"���"���4
�5$
��
��
"��4�5$
��
��
"���4
�	$"O5$
��
��
"���
��
��
"���	

"���&
4545	"�
(#4
54

54
5D4
�5$
��


"���4
�5$
��

��

"���"
��

��

"��a4�5$04
�5$"���
��
�
�

"��%"���	

"��D�gx
	�gunref	�gref		�gset		�gsimple		�glambda*		�gcomplex		�grtd		�g	in-order?		$�gorig-gensyms			$�gvals	
	$�gcompute-effects		+�geffect+exception-free-primcall?		5�ggensyms	
	L�gvals		L�gs		L�gl		L�gc		L�gorig-gensyms	��gvals		��ggensyms	
��gvals	��gs	��gl	
��gc	��gfilenameflanguage/tree-il/fix-letrec.scm�
	Z	��		[	��	;	^	��	L	h	��	R	j	��	X	p	#��	Y	q	'��	n	u	#��	w	v	#���	w	#���	p	���	x	���	x	!���	x	���	j	����	#����	1����	���	z	���	{	)���	{	2���	{	)���	z	���	|	)���	}	*���	|	)���	|	$���	z	���		#���		1����	-����	'���		���	��
�	!���	��	j	���	���	-���	)��"�	#��0�	��1�	��6�	$��8�	��<	j	��?�	��B�	-��G�	'��J�	!��Z�	��[�	��`�	��h�	��w�	��{	j	��~�	����	-����	%����	����	����	����	-����	)����	#����	���	h	���	i	#���	i	+���	i	3���	h	���	[	����	����	����	#���	#��	�	#���	���	���	!���	��!�	��$�	��'�	-��;�	��<�	��A�	!��E�	��I�	��L�	��O�	-��V�	)��Y�	#��g�	��n�	��q�	-��x�	)��{�	#����	����	����	 ����	)����	 ����	����	%����	+����	%����	����	����	-����	'����	!����	����	����	#����	+����	3����	����	��x	�	Ch0E]14>	GD=gx
		0gunref		0gref			0gset			0gsimple			0glambda*			0gcomplex			0gfilenameflanguage/tree-il/fix-letrec.scm�
	6
��		9	��	�	��	
�	��	�	��	�	��	�	��	�	��		9	��		7	��	0�	��		0gnamegpartition-vars�C�R��D���h��]""��((�C4��56��&
�"���&
�"���&
�"���&
�"�����"��p"��e�gsrc
	�gexps	�gin		�gout		�ghead		+�grtd		0�gfilenameflanguage/tree-il/fix-letrec.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	�	��	!�	.��	$�	(��	&�	��	(�	��	+�	��	+�	��	0�	
��	=�	��	G�	��	O�	
��	R�	��	\�	��	d�	
��	g�	!��	q�	��	y�	
��	|�	����	����	����	����	����	����	����	�� 	�	gnamegmake-sequence*�C�R��%�(���S����VW���h0�](C4��L5$
�4L�5�C�"����gbinds
		/gfilenameflanguage/tree-il/fix-letrec.scm�
�	��	�	��		�	 ��	�	��	�	��	�	��	�	��	�	��	�	$��	"�	(��	$�	$��	%�	��	)�	��	/�	��		/gnameglp�Ch�]	OQL6�gset
		glp		gfilenameflanguage/tree-il/fix-letrec.scm�
�	��	�	��		gnameglookup�C������hl]6dgx
		gfilenameflanguage/tree-il/fix-letrec.scm�
�	*��	�	6��		C��h�]������6gc
		gfilenameflanguage/tree-il/fix-letrec.scm�
	��		1��		:��		.��		��		C��hu]6mgx
		gfilenameflanguage/tree-il/fix-letrec.scm�

	&��		7��		(��		C���h �]���4��56�gx
		gtmp		gfilenameflanguage/tree-il/fix-letrec.scm�
	��		$��		-��	
	!��		6��		!��		 ��			CN���QR�hl]L6dgv
		
gfilenameflanguage/tree-il/fix-letrec.scm�
	��	
	��		
C���hl]L6dgv
		
gfilenameflanguage/tree-il/fix-letrec.scm�
	��	
	��		
C�hl]L6dgv
		
gfilenameflanguage/tree-il/fix-letrec.scm�
	��	
	��		
C'h�`]q�&245454L5$456C&b454	54
545454
545O	Q	4	L54	L54	L54	L5

4454
554454
554454
554454545444
5
(	"[$44
55">4
544
54
544
5555556&�4545454 54!5454"O4#$L554%O4#$L554&O4#$L55
	44544	54	54	544
54
54
55556CXgx
	�grtd	�ggensym			Agexp			Agsrc		s�g	in-order?		s�gnames		s�ggensyms		s�gvals		s�gbody		s�gbinds	��glookup		��gu	
��gs	��gl	��gc	
��gtmps	n�gsrc	��gnames	��ggensyms	��gvals	��gbody	��gbinds	��gu	4�gl		4�gc	
4�gfilenameflanguage/tree-il/fix-letrec.scm�
�	��	�	��	"�	��	.�	
��	4�	+��	<�	!��	>�	��	I�	����	����	
����	����	����	����	����	����	����	����	$����	����	����	����	#����	����	����	����	%���	��	�	���	���	!�� �	-��)�	��.�	��1�	��?�	��D�	��N�	��O	��R	��_	��a	��f
	!��n
	��q	��u	���	-���	���	���	���	���	����	����	����	����	����	���	���	
���	���	��	��	��	��(	��4	��4 	��?%	��B'	��K*	��P*	��Y*	,��b*	8��k,	��p,	)��y,	6���,	B���,	���*	���(	���%	���#	��R	�Ch0�]!4>GO6�gx
		+gunref	
	+gsimple		
	+glambda*		
	+gcomplex		
	+gfilenameflanguage/tree-il/fix-letrec.scm�
�
��	�	/��	�	��	+�	��		+gnamegfix-letrec!�C RC�gm
		,gfilenameflanguage/tree-il/fix-letrec.scm�		
��	
��D	!
��-�	6
��0��
��@@�
��	@B
C6language/tree-il/cse.go000064400000127367150536206120011011 0ustar00GOOF----LE-8-2.0߮]�4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	gcse�		�	
gfilenameS�	flanguage/tree-il/cse.scm�	gimportsS�	
�	
�	g
primitives�	�	�	geffects�	�	�	gice-9�	gvlist�	�	�	gmatch�	�	�	gsrfi�	gsrfi-1�	�	�	 gsrfi-9�	! �	"!�	#gsrfi-11�	$#�	%$�	&gsrfi-26�	'&�	('�	)"%(	�	*gexportsS�	+�	,gset-current-module�	-,�	.,�	/gmake-syntax-transformer�	0/�	1/�	2g	*logging*�	3gmacro�	4gidentifier?�	54�	64�	7g
syntax-object�	8gtop�	98�	:gribcage�	;gid�	<;�	=gm-9d6145bdb05-25f0�	>=8�	?>�	@fl-9d6145bdb05-25f7�	A@�	B:<?A�	C:�	Dgx�	ED�	Ffl-9d6145bdb05-25f2�	GF�	H:E?G�	I9BCH�	Jghygiene�	KJ�	L7IK�	Mg$sc-dispatch�	NM�	OM�	Pg_�	Qgeach-any�	RPQ��	Sfl-9d6145bdb05-25fa�	TS�	U:E?T�	V9UCH�	W7VK�	Xgsyntax-violation�	YX�	ZX�	[f-source expression failed to match any pattern�	\glog�	]gany�	^gfree-id�	_gquote�	`gm-9d6145bdb05-25fd�	a`8�	ba�	cfl-9d6145bdb05-25ff�	dc�	e:Ebd�	f9Ce�	g7_fK�	h^g�	ih]�	jiQ��	k]j��	lgif�	mgdummy�	ngevent�	ogarg�	pmno�	qa99�	rfl-9d6145bdb05-2602�	sfl-9d6145bdb05-2603�	tfl-9d6145bdb05-2604�	urst�	v:pqu�	w9vCe�	x7lwK�	ygand�	z7ywK�	{72wK�	|gor�	}7|wK�	~geq?�	7~wK��7wK��{���gmemq��7�wK��7_wK��{��glog*��7�wK��g
module-ref��gresolve-interface��gpretty-print�����gnewline��g
vlist-null��gtree-il-fold��g
<lexical-set>��gvhash-consq��gbuild-assigned-var-table��gnegate-primitive��gnot��gsymbol->string��g
string-ref��g
string-length��gboolean-valued-primitive?��gtest��g<const>��gboolean?��g
<application>��g<primitive-ref>��gboolean-valued-expression?��gvalue��g<lambda>��gvalues��g
<lexical-ref>��g<void>��g<module-ref>��g<toplevel-ref>��gsingly-valued-primitive?��gsingly-valued-expression?��gmake-application��gmake-primitive-ref��g
make-const��g
<conditional>��gmake-conditional��g
vector-length��������g	tree-il=?��gvlist-length��gtree-il-hash��gvhash-assoc��g	vlist-ref��gerror��������fno matching pattern��glambda��geffect-free?��gexclude-effects��gtree-il-src��glexical-ref?��g
vhash-cons��gmake-lexical-ref��g
vhash-assq��gmake-effects-analyzer��gvhash-fold-right��greverse��g	constant?��geffect��glambda-case?��gvoid?��g	make-void��g
<sequence>��g
make-sequence��g	sequence?��gappend��g
sequence-exps��g<prompt>��gmake-prompt��g<abort>��g
make-abort��g
<lambda-case>��gmake-lambda-case��ghashq��gmost-positive-fixnum��gmake-lambda��gequal?��g<toplevel-set>��gmake-toplevel-set��g<toplevel-define>��gmake-toplevel-define��g<module-set>��gmake-module-set��g<dynset>��gmake-dynset��g<dynref>��gmake-dynref��g<dynlet>��gmake-dynlet��g	<dynwind>��gmake-dynwind��g<let-values>��gmake-let-values��g<fix>��gmake-fix��g<letrec>��gmake-letrec��g<let>��gmake-let��gmake-lexical-set�C5hp��]4	
)*+54.>"G41236h]]6Ugid
		gfilenameflanguage/tree-il/cse.scm�		n	��		CLh*]C"gid
				CORWh)]�C!gx
				CZ[h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/cse.scm�
	n	��		:g
macro-typegidentifier-syntax�C52R41\3Okxz{}�����
h0Q]��	��CIgdummy
		0gevent		0garg			0		0	CZ[h(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/cse.scm�
	r	��		"g
macro-typegsyntax-rules�gpatternsgquotegeventgargg...C5\R����\�hH�-1344554��>"G4>"GD�gevent
			Cgargs			Cgpp			Cgfilenameflanguage/tree-il/cse.scm�
	x
��	
	y	��	
	y	��		y	+��		y	��		z	��		y	��		y	��		{	��		{	��	)	{	��	2	|	��	C	}	��			C
gnameglog*�C�R��ho]Cggexp
		gres		gfilenameflanguage/tree-il/cse.scm�
�	��			C��h8�]
�$,�& 
��	�	�6CC�gexp
		8gres		8gw		!	2gfilenameflanguage/tree-il/cse.scm�
�	��	�	��	2�	��		8	Cho]Cggexp
		gres		gfilenameflanguage/tree-il/cse.scm�
�	��			Ch(�-.,3#6�gexp
		$gtable		$gfilenameflanguage/tree-il/cse.scm�
�
��	$�	��		$gnamegbuild-assigned-var-table�C�R�����h@]	45$C&C45445�5?�C
g	primitive
		:gt			:gchars	%	:gfilenameflanguage/tree-il/cse.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	%�	��	(�	��	-�	$��	4�	 ��	6�	��	9�	��		:gnamegboolean-valued-primitive?�C�R������h�]"@"�C�$+�&
��45$C�C"���"����$L�&?
���$)�&
��45$C"��y"��u"��q"��m"��i�gx
	�gctx	�gw		)	>gw		_�gw		z�gfilenameflanguage/tree-il/cse.scm�
�
��	�	��	�	��	�	��	�	��	<�	��	=�	��	F�	��		�	gnamegboolean-valued-expression?�C�R�hV]L�CNgfilenameflanguage/tree-il/cse.scm�	�	��	�	��		
C����������hpI]2"�OQ�$��&�
��"�&C6�$m�&`
��&:	�"�&C6�$�(�C"���"����&C6"��}"��y�&C66�$��&C�&C�&C�&C�	&C�
&C�&?
���$)�&
��45$C"���"���"���"���"���Agx
	igctx	igfailure		�gw		,�gfailure		0�gw		^�gw		m�gfailure		q�gfailure	��gw	+agw	FYgfilenameflanguage/tree-il/cse.scm�
�
��	�	��	i	gnamegsingly-valued-expression?�C�R���hq]45L6igfilenameflanguage/tree-il/cse.scm�	�	��	�	3��	
�	��	�	9��	�	��		
C������������h��]2"�OQ�$y�&l
���$Q�&D
��45$	�445564566666�$��&
��	�6�
&

�	6�&4
��	�	�4L54L56�&p
���$Z�&M
��&6	��$$�(�4
5$C"���"���"���"���"���"��~"��z"��vxgexp
	�gctx	�gfailure		�gw		'�gw		-�gfailure		1�gw		L�gw		^	ugw	��gw	��gw	��gw	�gw	�gw	�gw	�gw	!�gw	<�gw	K|gw	^tgfilenameflanguage/tree-il/cse.scm�
�	��	�	��	e�	��	i�	0��	q�	��	u�	��	y�	��	~�	3����	����	9����	����	����	����	����	����	����	����	"���	:���	���	��a�	��m�	��	�	gnamegnegate�C��h�G]�$"�$w4�$"5	�$V�$"
��$"��$"	�4L5$L$L�CCCCC?gv1
	�gv2	�glen		*�gw		F�gw		l�gfilenameflanguage/tree-il/cse.scm�
�	��	�	��		�	��	�	��	 �	��	8�	��	<�	��	K�	��	O�	��	]�	��	a�	��	o�	��	{�		����	����	����	��	�	gnamegentry-matches?�C���hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			C������
h��]dOQ45454O5$n"c�$X45"�$���
		�$�4	5	�$�	
�	�
		�
�$&$	�"$
45""$C
UU������
��$"&UU�
�����
���$	�"��C4	
564	
564	
56�$<�	�	&'UU�UU�
�$	�"���C"���"���C
"���C�gexp
	�geffects	�gctx		�gdb		�gentry-matches?		�glen		 �gh		 �gn		=�gv		O�gw			bJgx	
	bJglen		t=gw	�0gw	
�0gw	�0gt	�0geffects	��geffects	 gw		a�gfilenameflanguage/tree-il/cse.scm�
�	��	�	��	�	
��	 �	��	%�	��	9�	��	=�	��	B�	��	F�	
��	G�	����	����	����	����	,����	"����	����	����	����	��%�	��(�	"��.�	��1�	��{�	����	����	����	����	����	��	�	gnamegfind-dominating-expression�C����������h@q];4455$"C4L5$4564L4L55$456C�$��&$
��45$C��6�&�
���${�	&n
��
&W	��$E�(:�4L5�$�&
��		�6CC"���"���"���"���"���"���"���Cigexp
	;geffects	;gdb		;gw		v�gw		|�gw	�1gw	�1gw	�)gw	�%gw	�gv	�gw		gfilenameflanguage/tree-il/cse.scm�
	��		��		��		��		��		��		��		��	 	
��	(	2��	,	
��	0	��	3	��	<	
��	=	
��	@	&��	F	2��	H	&��	L	A��	P	
��	T	��	W	��	`	
��	b	��			���		���	!���	���	���	���	��	��	��!	��#	;	gnamegfind-dominating-test�C����hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch��]-(C���4M5$"45$"34545	4		O5	���"��t�genv
	�gnames	�gsyms		�gexps		�gdb		�gname		�gsym		�gexp		�gt		!	8gv		R	ugh			[	rgfilenameflanguage/tree-il/cse.scm�
'	��	(	��	*	��	*	&��	*	7��	*	��	+	��	!+	��	/,	��	<+	��	I#	#��	R#	��	R#	��	U$	��	[#	��	^%	��	x/	��	{/	#��	~/	.���+	
��	�	gnamegaugment-env�C��h�#]�$"�$t4�$"5	�$S�$"
��$"��$"	��$"	�L6CCgv1
	�gv2	�glen		*�gw		F�gfilenameflanguage/tree-il/cse.scm�
2	��	3	��		3	��	3	��	 3	��	83	��	<3	��	K3	��	O3	��	]3	��	a3	��	p3	��	t3	���5		��	�	gnamegentry-matches?�C�����h@�]+
�$C45"��$����$�45	�$}
��	�UU�L�����
��$"&LUU������
���$��"��>C456456456�$E��&0LUU�UU�
�$��"���C"���"����gdb
	=gbase	=gn		=gt		=gv		=gw		*�glen		>�gw		R�geffects		f	geffects	��gw	�9gfilenameflanguage/tree-il/cse.scm�
8	��	9	
��	9	��	:	
��	f@	���@	
���A	���A	'���A	���:	
��=	��!=	
��&>	��)>	'��3>	��9:	
��	=	gnamegunroll�C����hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			C��������hX]�OOQQ454455$4O5$�4545"�	�$�4		5�$���
�$�4
5	�$v
��	�	��
�4
5$A"	��
	"��{
�$ 45$4
56"���"���C456456456C


	"��CCgexp
	Xgeffects	Xgenv		Xgdb		Xgentry-matches?		Xgunroll		Xgh		&Xgenv-len		eTgdb-len		eTgn			mJgm	
	mJgv		Hgw	�;gx	
�;glen	�.gw	�!gw	�!gw	�!gw	�!gniter	�!gfilenameflanguage/tree-il/cse.scm�
1	��	 C	
��	&C	��	)D	��	,D	��	=D	��	AD	��	BE	��	WD	��	XF	��	_G	��	eF	��	mH	
��	rI	��	vI	��	wJ	���L	'���L	$���L	���M	���M	���P	&���P	-���P	"���N	���N	'���N	���N	0��N	"��O	4��O	"��"J	��JH	
��"	X	gnamegfind-dominating-lexical�C��hg]L6_gsym
		
gfilenameflanguage/tree-il/cse.scm�
�	��	
�	��		
C���hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hP]�$64L�LLL>G��45"���45Dgin
		Jgout		Jgdb*			Jgx			?gdb**			?gfilenameflanguage/tree-il/cse.scm�
p	��	q	��		q	��	
r	)��	r	0��	r	)��	r	��	%t	��	*t	��	+f	��	?t	��	@u	��	Ju	��		J	gnameglp�C�h(�]OLQ6�gexps
		$gdb		$genv			$gctx			$glp			$gfilenameflanguage/tree-il/cse.scm�
o	��	p	��	 p	��	$p	��		$	gnamegparallel-visit�C�����h�9]94L5"��$�4L5�$h���$K45	�$,
��	�	�&C�"���456456456C
"��g1gsym
	�genv-len		�gn		�gv		!�gw		-�glen		A�gw		P	xgw		\	xgfilenameflanguage/tree-il/cse.scm�
x	��	S	��		S	��	T	��	U	
��	U	��	V	
��	lX	��	rZ	��	xZ	��	yV	
���T	��
	�Ch(�]	4MLO5�����
��C�gexp
		&gx		&gfilenameflanguage/tree-il/cse.scm�
z	��	x	��	{	��		&gnamegbailout?�C�����h�9]94L5"��$�4L5�$h���$K45	�$,
��	�	�&C�"���456456456C
"��g1gsym
	�genv-len		�gn		�gv		!�gw		-�glen		A�gw		P	xgw		\	xgfilenameflanguage/tree-il/cse.scm�
x	��	S	��		S	��	T	��	U	
��	U	��	V	
��	lX	��	rZ	��	xZ	��	yV	
���T	��
	�C����hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			C���������hp�]*4MLO5"�4L5$4LL5"$D4L5$4LLL5"$D"0L454O5D45$ L&"L	�$D"���"���L
&�45$"`44
55$"A45$"*44
55$4LL5"$45$D45D"���"����gexp
	pgdb*	pgeffects		pgt		3�gt		`�gv	��gh	��gt	�Igt	F	gfilenameflanguage/tree-il/cse.scm�
}	��	x	��	~	��	�	��	#�	
��	$�	��	3	��	A�	��	B�	��	N�	
��	O�	��	`	��	n�	��	}�	
��	~�	
����	����	����	
���	����	���	����	#����	
����	
���	����	���	����	����	
����	����	����	%����	����	����	���	���	���		���	
��*�	��,�	
��.�		��2�	��3		��M�	
��N�	��X�	
��^�	��_�	��h�	��3	p	gnamegreturn�C���hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C���hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C������hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hO]#�$��(]�4L4L5LL>G(L456L4L4�55456��4L4L5L>G4	5$4
455"��C45$"��(�4
5"��456Ggin
	gout	gdb*		gw			mglast		/	mgdb**		/	mgw		s�gx		s�ghead	��gdb**	��
gfilenameflanguage/tree-il/cse.scm�
(	��	)		��	+	'��	f	��	.+	'��	2+	��	<,	��	Af	��	M-	��	P.	��	U.	-��	\.	6��	^.	-��	`.	��	af	��	m.	��	p)		��	x1	'��	}f	���1	G���1	'���1	���3	���2	���4	���4	���4	���4	���5	���2	���6	���8	���f	���8	���)		��$		gnameglp�C�����hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C����hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C���������hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			C����hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C���hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch0�]4LO5$O6C�gk
		,gh		,gout			,gfilenameflanguage/tree-il/cse.scm�
^	��	_	��	_	��	)`	��		,	C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch0�]4LO5$O6C�gk
		,gh		,gout			,gfilenameflanguage/tree-il/cse.scm�
^	��	_	��	_	��	)`	��		,	C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C����hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C������������hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C����hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C�hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C��hw]L�Cogx
		gsize		gfilenameflanguage/tree-il/cse.scm�
�	��	�	��			Ch�]O6~gk
		gh		gtail			gfilenameflanguage/tree-il/cse.scm�
f	��	g	��			C����ch�r]�OOOLQLQLLLLQ""["'"�"%"
{"�"e"�"
�"
�"
'"
"	�"	u"	"�"�"b"�"a"��$q�&4
��O	L	Q		6�&�
��	�		�
4L>G4L	4	
5>G
4L
4	5>G4

56�&�
��	�		�
4L>G4	>G
4L
>G4
54	54	56456456�$��&�
��	�		�
	�	�	�
	�	�4>G4L>G$4L>
"	"G4	

5	$"6"���"����$y�&l
��	�		$24L	45
4

O5
>
"	"G
4
56"��"���$j�&]
��	�	4L>G
4	>G
4
54	 
56"���"����$0�!&#
��	�		�
4L">G4L4L"5">G
4L	4	#5>G4L
4	$5>G4%5""c"�""�""�"64	&54	'54	(O56�$v�!&i
��	�45$	�4	)564	*54	+54	,O56"��M"��I�$D�!&7
��	�	�45$4	-56"���"���"����$q�!&d
��	��$H�.&;
��&%	�"&4	/5"6"���"���"��~"��z"��v�$q�!&d
��	�	��$B�.&5
��&"&4	05"6"��"��"���"���"����$��!&�
��	��$s�.&f
��&P	��$>�.&1
��&4L5"���"��g"��c"��_"��["��W"��S"��O"��K�$��!&�
��415$r	��$`�.&S
��&=	��$+�.&
��&6"���"���"���"���"���"���"���"���"����$��!&�
��	��$t�.&g
��	��$J�.&=
���$%424355"��m"��
"��	"��"��"���"���"����$c�!&V
���$@�.&3
��$4	4564	556"���"���"���"���"��g"��c�$�6&6"��C"��?�$I�7&<
��	�	4L	>G
48
56"���"����$I�9&<
��	�	4L	>G
4:
56"���"����$[�;&N
��	�		�
	�4L>G
4<	
5
6"��)"��%�$�=&6"��"���$�>&6"���"����$j�?&]
��	�	4L>G
4L	>G
4@
54	A
56"��h"��d�$@�B&3
��4L>G
	4C	5
6"��"���$��D&�
��	�		�
4>G4	>G
4L
4	E54	F5>G4G
54	H54	I56"��V"��R�$��J&�
��	�		�
4L>G4L	4	K5>G
4L
>G4L
54	M54	N56"��"���$s�O&f
��	�	4L>G
4L	4	P5>G
4Q
54	R
56"��!"���$��S&x
��	�		�
	�4
>G
4L4	T
5>G4U	54	V
56"��"���$��W&�
��	�		�
	�	�4>G
4L4	X54L	

5>G4Y	

54	Z56"���"����$��[&�
��	�		�
	�4
>G
4L4	\
54L	5>G4]	54	^
56"��B"��>�$R�_&E
��	�		�
4L
>G4`	56"���"����$%�a&
��	�6"��"���$�b&6"��"���$�.&6"��e"��ajgexp
	�gdb	�genv		�gctx		�gparallel-visit		!�gbailout?		!�greturn		!�gw	��gw	��glp		��gw	�jgw	�jgw		�jgw	
�jgtag	jgdb*	jgbody	
/jg_	/jghandler	Pjg_	Pjgw	wgw	}gw		�gw	
�gtag	�gdb*	�gargs	
�gdb**	�gtail	�gdb***	�gdb2	��gw	/�gw	5�gw		<�gw	
C�gw	J�gw	Q�gw	
X�gw	_�gw	f�ginits	y�g_	y�gbody	��gdb*	��galt	��g_	��gw	ogw	
ogw		ogh	
*Agbody	
Wog_	Wogw	��gw	��gw		��gproc	
��gdb*	��gargs	��gdb**	
��gw		gw		gw		
	gw	
	gtest	'	gdb+	'	gconverse	
F	gdb-	F	g
consequent	g	gdb++	g	g	alternate	�	gdb--	�	gv	�	gdb+	��gdb-	��gw	mgdb+	Qkgdb-	Qkgw	��gw	�8gw	�0gw	e�gw	��gw	�[gw	�Sgw	Ogw	Ggw	|gw	��gw	��gw	��gw	��gw	(�gw	C�gw	J�gw	e�gw	�	gw	�	gw		[	�gw		a	�gw			h	�gexp	
	{	�gdb*		{	�gw		�	�gw		�	�gw			�	�gexp	
	�	�gdb*		�	�gw	

Mgw	
	
Mgw		

Mgw	


Mgw	

Mgexp	
1
Mgdb*	

1
Mgw	
�gw	
�gw		
�gfluid	

�gdb*	
�gexp	
�gdb**	

�gw	Mgw	$Mgfluid		7Mgdb*	
7Mgw	igw	ogw		vgw	
}gfluids	�gdb*	�gvals	
�gdb**	�gdb2	��gbody	�gdb***	�gdb2	�
gw	(�gw	.�gw		5�gw	
<�gpre	O�gdb*	O�gbody	
p�gdb**	p�gpost	��gdb***	��gdb2	��gw	�
9gw	�
9gw		�
9gproducer	
�
9gdb*	�
9gconsumer	

9gdb**	


9gw	
U
�gw	
[
�gw		
b
�gw	

i
�gw	
p
�gvals	
�
�gdb*	

�
�gbody	
�
�gdb**	
�
�gw	
�ogw	
�ogw		
�ogw	

�ogw	ogw	ogvals	
ogdb*	ogbody	Hogdb**	Hogw	�gw	�gw		�gw	
�gw	�gvals	�gdb*	
�gbody	�gdb**	�gw	(igw	.igw		5igw	
<igexp	Oigdb*	Oi�gfilenameflanguage/tree-il/cse.scm�
j	��	B�	���(	���(	���(	����	���:	 ��:	2��
:	 ��:	��;	��f	��);	?��.;	��2:	��7<	"��<f	��O<	"��S:	��Z=	��j=		��m�	���@	 ���@	2���@	 ���@	���A	"���A	>���A	"���@	���B	#���B	6���B	#���@	���C	���f	���D	���f	��C		���	��i 	 ��s 	=��x 	 ��| 	���!	!��� 	���"	���#	"���$	"��� 	���%	���&	���%		����	��	��	#��"�	
��&�	��*�	
��*�	��-�	��1�	��>�	��E	.��J	#��V	#��Z	��a	��o		��s�	���	!���	4���	!���	���	"���	>���	"���	���	���f	���		����	���	��!�	+��&�	��*�	��/�	��2�	#��8�	0��:�	#��@�	>��E�	��I�	��N�	��Sf	��f�	��j�	��o�	��tf	����	����	����		���f	���	���]	���	����		��+f	��7	��<f	��Q	��V]	��m	��u�		���f	���
	����		��		#��		��f	��,		��0�		���	#���	���f	���	����		��)	��C	��G�		���	����		���	����		��l�	/��p�		��q�	��w�	0����	%����	����	����		����	���f	����	��	f	��	�	��	�		��	#�	��	?�	��	C�	��	k�	 ��	u�	2��	z�	 ��	~�	��	��	��	��		��	��	��	��	 ��	��	2��	��	 ��	��	��	��	��	��		��	��	��
!�	 ��
+�	2��
0�	 ��
4�	��
;�	��
M�		��
Q�	��
m�	��
q�	��
��	��
��	��
��	"��
��	6��
��	"��
��	��
��	!��
��	3��
��	!��
��	��
��	��
�f	���		���	��'�	"��1�	6��6�	"��:�	��A�	��M�		��Q�	����	#����	A����	#����	����	"����	>����	"����	����	#���f	����	/���f	����	#����	����	���f	����	���f	���		���	��?�	 ��I�	5��N�	 ��R�	��W�	"��\f	��o�	"��s�	��x�	#����	:����	#����	����	���f	����	���f	����		����	����	%����	<����	%����	����	&��
f	��
�	&��
�	��
"�	��
-f	��
9�		��
=�	��
s�	!��
}�	=��
��	!��
��	��
��	"��
�f	��
��	"��
��	��
��	��
�f	��
��		��
��	��
�	!���	=���	!���	��"�	"��'f	��2�	)��G�	"��K�	��R�	��cf	��o�		��s�	����	!����	=����	!����	����	"���f	����	)����	"����	����	��f	���		���	��?�	 ��I�	2��N�	 ��R�	��Y�	��i�		��m�	����	����	����	����	����	����	��)	�	gnamegvisit�C��h��]AHHOOOQQQ45OK4J5K	OQ

6�gexp
	�gassigned-lexical?	�g%compute-effects		�gnegate		+�gfind-dominating-expression		+�gfind-dominating-test		+�gaugment-env		+�gfind-dominating-lexical		+�gtable		G	Sgvisit		l�
gfilenameflanguage/tree-il/cse.scm�
�
��	A�	��	G�	��	V�	��	lj	���m	���j	��	�gnamegcse�g
documentationf'Eliminate common subexpressions in EXP.�CRC�gm
		,gfilenameflanguage/tree-il/cse.scm�		
��=	x
���
��	p�
��7�
����
���m�
��	�o
C6language/tree-il/analyze.go000064400000414605150536206120011674 0ustar00GOOF----LE-8-2.0m]	&4hɴ]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	ganalyze�		�	
gfilenameS�	flanguage/tree-il/analyze.scm�	gimportsS�	
gsrfi�	gsrfi-1�	
�	�	gsrfi-9�	
�	�	gsrfi-11�	
�	�	gsrfi-26�	
�	�	gice-9�	gvlist�	�	�	gmatch�	�	 �	!gsystem�	"gbase�	#gsyntax�	$!"#�	%$�	&gmessage�	'!"&�	('�	)gvm�	*gprogram�	+!)*�	,+�	-�	.-�	/gpmatch�	0!"/�	10�	2 %(,.1�	3gexportsS�	4ganalyze-lexicals�	5ganalyze-tree�	6gunused-variable-analysis�	7gunused-toplevel-analysis�	8gunbound-variable-analysis�	9garity-analysis�	:gformat-analysis�	;456789:�	<gset-current-module�	=<�	><�	?gmake-hash-table�	@g
hashq-set!�	Ag
make-hashq�	Bg
<application>�	Cgapplication-proc�	Dgapplication-args�	Eg
lset-union�	Fgeq?�	Ggmap�	Hg
<conditional>�	Igconditional-test�	Jgconditional-consequent�	Kgconditional-alternate�	Lg
<lexical-ref>�	Mglexical-ref-gensym�	Ng	hashq-ref�	Ogmemq�	Pglambda-case?�	Qglength�	Rglambda-case-req�	Sglambda-case-opt�	Tglambda-case-kw�	Uglambda-case-rest�	Vglambda-case-alternate�	Wglambda-body�	Xg
<lexical-set>�	Yglexical-set-gensym�	Zglexical-set-exp�	[glset-adjoin�	\g<module-set>�	]gmodule-set-exp�	^g<toplevel-set>�	_gtoplevel-set-exp�	`g<toplevel-define>�	agtoplevel-define-exp�	bg
<sequence>�	cg
sequence-exps�	dg<lambda>�	egreverse!�	fg
<lambda-case>�	gglambda-case-inits�	hglambda-case-gensyms�	iglambda-case-body�	jgappend�	kgreverse�	lglset-difference�	mg<let>�	nglet-gensyms�	oglet-vals�	pglet-body�	qg<letrec>�	rgletrec-gensyms�	sgletrec-vals�	tgletrec-body�	ugfor-each�	vg<fix>�	wgfix-gensyms�	xgfix-vals�	ygfix-body�	zgerror�	{funhandled record�	|gcons�	}gassq-ref�	~g
hashq-remove!�	g<let-values>��glet-values-exp��glet-values-body��g	<dynwind>��gdynwind-body��gdynwind-winder��gdynwind-unwinder��g<dynlet>��g
dynlet-fluids��gdynlet-vals��gdynlet-body��g<dynref>��gdynref-fluid��g<dynset>��gdynset-fluid��g
dynset-exp��g<prompt>��g
prompt-tag��gprompt-body��gprompt-handler��g<abort>��g	abort-tag��g
abort-args��g
abort-tail��gmax��gfilter��gcdr��ggensym��f:LCASE��gconditional?��glexical-ref?��f'fixpoint procedures may not be assigned��g<tree-analysis>��g%make-tree-analysis-procedure��gmake-syntax-transformer��������gmake-tree-analysis��gmacro��g$sc-dispatch��������g_��gany����������g
syntax-object��glambda��gm-a11d84f71ea-1a65��gtop������gribcage��gt-a11d84f71ea-1a60��gt-a11d84f71ea-1a61��gt-a11d84f71ea-1a62��gt-a11d84f71ea-1a63��gt-a11d84f71ea-1a64����������������fl-a11d84f71ea-1a6a��fl-a11d84f71ea-1a6b��fl-a11d84f71ea-1a6c��fl-a11d84f71ea-1a6d��fl-a11d84f71ea-1a6e������������������gx��������fl-a11d84f71ea-1a67�����������gshift��g	proc-name��gargs�������������fl-1e8ba8b5a-60��fl-1e8ba8b5a-61������������gkey��gvalue��gname��gformals��gbody����������������fl-1e8ba8b5a-53��fl-1e8ba8b5a-54��fl-1e8ba8b5a-55��fl-1e8ba8b5a-56��fl-1e8ba8b5a-57���������������gmake-procedure-name��������fl-1e8ba8b5a-43��������������fl-1e8ba8b5a-42������������������������
��ghygiene���
��������gleaf�����������������gdown��������gup��������gpost��������ginit���������������gmake-struct��gm-a11d84f71ea-1a5e������gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�����gm-1e8ba8b5a-134����fl-1e8ba8b5a-138�fl-1e8ba8b5a-139�fl-1e8ba8b5a-13a����	g	ctor-args�
	�fl-1e8ba8b5a-120��
�
��gctor�gfield��fl-1e8ba8b5a-11c�fl-1e8ba8b5a-11d�����gform�g	type-name�gconstructor-spec�gfield-names�������fl-1e8ba8b5a-111�fl-1e8ba8b5a-112�fl-1e8ba8b5a-113�fl-1e8ba8b5a-114�� ��!g
record-layout�"gfunctional-setters�#gsetters�$gcopier�%ggetters�&gconstructor�'ggetter-identifiers�(gfield-identifiers�)!"#$%&'(�*���������+fl-1e8ba8b5a-e9�,fl-1e8ba8b5a-e7�-fl-1e8ba8b5a-e5�.fl-1e8ba8b5a-e3�/fl-1e8ba8b5a-e1�0fl-1e8ba8b5a-df�1fl-1e8ba8b5a-dd�2fl-1e8ba8b5a-db�3+,-./012�4�)*3�5fl-1e8ba8b5a-da�65�7���6�8���������
� 47�9��8��:�����;�
8��<9:;������=��<�>geach-any�?�>��@gsyntax-violation�A@�B@�CfWrong number of arguments�Dgidentifier?�ED�FD�G����H��G��I@�J@�Kf-source expression failed to match any pattern�Lgrecord-type-vtable�ML�NL�Og
pwpwpwpwpw�Pgdefault-record-printer�QP�RP�S������Tgset-struct-vtable-name!�UT�VT�Wgvtable-offset-user�XW�YW�Zg%tree-analysis?-procedure�[gtree-analysis?�\���]gm-a11d84f71ea-1a7a�^]��_gt-a11d84f71ea-1a79�`_�a^�bfl-a11d84f71ea-1a7f�cb�d�`ac�efl-a11d84f71ea-1a7c�fe�g��af�h^d�g���������
�i��h��jgobj�kgt-1e8ba8b5a-224�lgt-1e8ba8b5a-21e�mgt-1e8ba8b5a-21f�ngt-1e8ba8b5a-220�ogt-1e8ba8b5a-223�pgt-1e8ba8b5a-222�qgt-1e8ba8b5a-221�rklmnopq�sgm-1e8ba8b5a-225�ts��uttttttt�vfl-1e8ba8b5a-229�wfl-1e8ba8b5a-22a�xfl-1e8ba8b5a-22b�yfl-1e8ba8b5a-22c�zfl-1e8ba8b5a-22d�{fl-1e8ba8b5a-22e�|fl-1e8ba8b5a-22f�}vwxyz{|�~�ru}�g	copier-id����fl-1e8ba8b5a-21c�����������g	ctor-name�����fl-1e8ba8b5a-214�������������fl-1e8ba8b5a-212�����������glayout�����fl-1e8ba8b5a-210�����������g
immutable?�����fl-1e8ba8b5a-20e�����������gfield-count�����fl-1e8ba8b5a-20c�����������g
getter-ids�����fl-1e8ba8b5a-209�����������g	field-ids�����fl-1e8ba8b5a-206�����������gpredicate-name��g
field-spec���������������fl-1e8ba8b5a-1f9��fl-1e8ba8b5a-1fa��fl-1e8ba8b5a-1fb��fl-1e8ba8b5a-1fc��fl-1e8ba8b5a-1fd��fl-1e8ba8b5a-1fe�����������������d�g��~��������������������47���j�������gand��������gstruct?�������������F����g
struct-vtable�������������d�g������������������i������g���Z����gthrow-bad-struct��������gtree-analysis-leaf��g%tree-analysis-leaf-procedure��gfree-id��g
%%on-error��gm-a11d84f71ea-1a86���������fl-a11d84f71ea-1a88���������������������������������������g%%type��gt-1e8ba8b5a-14b��gt-1e8ba8b5a-14c��gt-1e8ba8b5a-14d��gt-1e8ba8b5a-14e��gt-1e8ba8b5a-14f��gt-1e8ba8b5a-150��gt-1e8ba8b5a-151�����������gm-1e8ba8b5a-152���������������fl-1e8ba8b5a-156��fl-1e8ba8b5a-157��fl-1e8ba8b5a-158��fl-1e8ba8b5a-159��fl-1e8ba8b5a-15a��fl-1e8ba8b5a-15b��fl-1e8ba8b5a-15c�����������������ggetter��gindex������fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a��������������������fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������������������������47������������������gck��gerr��gs�������fl-a11d84f71ea-1a8b�fl-a11d84f71ea-1a8c����������������
�����gquote�	���
������
��	�
�g%%index�����������fl-a11d84f71ea-1a90�fl-a11d84f71ea-1a91����������������
������������
����g%%copier������� ����!fl-a11d84f71ea-1a95�"fl-a11d84f71ea-1a96�#!"�$�#�%�$�����������
�&��%��'�%��(g%%<tree-analysis>-set-fields�)�$���*�()��+'*�,+�-gt-a11d84f71ea-1a85�.-�/fl-a11d84f71ea-1a9a�0/�1�.�0�2�1�����������
�3��2��4�1�����������47�5��4��65�7gif�8�74��9�F4��:��4��;:5�<�1���=��<��>9;=�?g
struct-ref�@�?4��A1���B�
A��C@5B�D��4��E�4��F��<��GEF�HD5G�I8>CH�J36I�K����L��K��Mgtree-analysis-down�Ng%tree-analysis-down-procedure�Ogm-a11d84f71ea-1aa1�PO��QP�Rfl-a11d84f71ea-1aa3�SR�T��QS�UP�T����������V��U��W�V�XW��Y��T���������47�Z��Y��[�Z�\�X[��]PP�^fl-a11d84f71ea-1aa6�_fl-a11d84f71ea-1aa7�`^_�a�]`�bPa�T���������
�c��b��d�b��e�a�T�f��e��gdf�hg�i�Y��j�i�k�Xj��lfl-a11d84f71ea-1aab�mfl-a11d84f71ea-1aac�nlm�o�]n�pPo�T���������
�q��p��r�p��so�T�t�s��urt�vu�w�Y��x�w�y�Xx��zfl-a11d84f71ea-1ab0�{fl-a11d84f71ea-1ab1�|z{�}�]|�~P}�T���������
���~����~����}�T���(�����������gt-a11d84f71ea-1aa0�����fl-a11d84f71ea-1ab5�������Q���P��T���������
�����������T���������47������������7�����F�����������������T��������������?������T������������������������M��������������������������T���N����gtree-analysis-up��g%tree-analysis-up-procedure��gm-a11d84f71ea-1abc���������fl-a11d84f71ea-1abe���������������������������������������������������47����������������������fl-a11d84f71ea-1ac1��fl-a11d84f71ea-1ac2������������������������
�����������������������������������������������fl-a11d84f71ea-1ac6��fl-a11d84f71ea-1ac7������������������������
�������������������	��������������������������fl-a11d84f71ea-1acb��fl-a11d84f71ea-1acc������������������������
��������������������(�����������gt-a11d84f71ea-1abb�����fl-a11d84f71ea-1ad0������������������������
���������������������47������������7�����F��������������������������������?����������	���������������������������������������������������������gtree-analysis-post��g%tree-analysis-post-procedure��gm-a11d84f71ea-1ad7���������fl-a11d84f71ea-1ad9����������������������������������������47����������	���
fl-a11d84f71ea-1adc�fl-a11d84f71ea-1add�
�
�	��
����������
���������
����������������fl-a11d84f71ea-1ae1�fl-a11d84f71ea-1ae2���	������������
���������� �	��! �"!�#���$�#�%�$��&fl-a11d84f71ea-1ae6�'fl-a11d84f71ea-1ae7�(&'�)�	(�*�)����������
�+��*��,�*��-�)��.�(-��/,.�0/�1gt-a11d84f71ea-1ad6�21�3fl-a11d84f71ea-1aeb�43�5�2�4�6�5����������
�7��6��8�5����������47�9��8��:9�;�78��<�F8��=��8��>=9�?�5��@��?��A<>@�B�?8��C5��D�	C��EB9D�F��8��G�8��H��?��IGH�JF9I�K;AEJ�L7:K�M���N��M��Ogtree-analysis-init�Pg%tree-analysis-init-procedure�Qgm-a11d84f71ea-1af2�RQ��SR�Tfl-a11d84f71ea-1af4�UT�V��SU�WR�V����������X��W��Y�X�ZY��[��V���������47�\��[��]�\�^�Z]��_RR�`fl-a11d84f71ea-1af7�afl-a11d84f71ea-1af8�b`a�c�_b�dRc�V���������
�e��d��f�d��g�c�V�h��g��ifh�ji�k�[��l�k�m�Zl��nfl-a11d84f71ea-1afc�ofl-a11d84f71ea-1afd�pno�q�_p�rRq�V���������
�s��r��t�r��uq�V�v�	u��wtv�xw�y�[��z�y�{�Zz��|fl-a11d84f71ea-1b01�}fl-a11d84f71ea-1b02�~|}��_~��R�V���������
���������������V���(�����������gt-a11d84f71ea-1af1�����fl-a11d84f71ea-1b06�������S���R��V���������
�����������V���������47������������7�����F�����������������V��������������?������V���	���������������������O��������������������������V���P����geach�������������������������g%%set-fields��gdummy��gcheck?��gexpr���������gm-a11d84f71ea-1b0d�������������fl-a11d84f71ea-1b12��fl-a11d84f71ea-1b13��fl-a11d84f71ea-1b14��fl-a11d84f71ea-1b15��fl-a11d84f71ea-1b16������������������fl-a11d84f71ea-1b0f�����������gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d�����������fl-1e8ba8b5a-171��fl-1e8ba8b5a-172��fl-1e8ba8b5a-173�������������fl-1e8ba8b5a-167��fl-1e8ba8b5a-168��fl-1e8ba8b5a-169������������������������47
���������������������������M�����������������O�����������G��G��glist��gtree-il-fold��gtree-il-src��g<binding-info>��g%make-binding-info-procedure��gmake-binding-info�������gm-a11d84f71ea-1b75������gt-a11d84f71ea-1b73��gt-a11d84f71ea-1b74����������fl-a11d84f71ea-1b7a��fl-a11d84f71ea-1b7b���������������fl-a11d84f71ea-1b77������������������������
��������gvars��������������grefs������������gm-a11d84f71ea-1b71���������������
� 47���������������
�����������������������gpwpw����g%binding-info?-procedure�g
binding-info?�gm-a11d84f71ea-1b84���gt-a11d84f71ea-1b83�	�
�fl-a11d84f71ea-1b89��
�	
�fl-a11d84f71ea-1b86����
�
����������
������
���~��������������������47��j�������������F��������
�������� �!���"�!��#gbinding-info-vars�$g%binding-info-vars-procedure�%gm-a11d84f71ea-1b90�&%��'&�(fl-a11d84f71ea-1b92�)(�*��')�+&�*����������,��+��-�,�.-��/��*���������47�0��/��1�0�2�.1��3&&�4fl-a11d84f71ea-1b95�5fl-a11d84f71ea-1b96�645�7�36�8&7�*���������
�9��8��:�8��;�7�*�<��;��=:<�>=�?�/��@�?�A�.@��Bfl-a11d84f71ea-1b9a�Cfl-a11d84f71ea-1b9b�DBC�E�3D�F&E�*���������
�G��F��H�F��IE�*�J�
I��KHJ�LK�M�/��N�M�O�.N��Pfl-a11d84f71ea-1b9f�Qfl-a11d84f71ea-1ba0�RPQ�S�3R�T&S�*���������
�U��T��V�T��Wg%%<binding-info>-set-fields�X�S�*�Y�WX��ZVY�[Z�\gt-a11d84f71ea-1b8f�]\�^fl-a11d84f71ea-1ba4�_^�`�]'_�a&`�*���������
�b��a��c�`�*���������47�d��c��ed�f�7c��g�Fc��h��c��ihd�j�`�*�k��j��lgik�m�?c��n`�*�o�
n��pmdo�q��c��r�c��s�#j��trs�uqdt�vflpu�wbev�x��*�y�$x��zgbinding-info-refs�{g%binding-info-refs-procedure�|gm-a11d84f71ea-1bab�}|��~}�fl-a11d84f71ea-1bad������~���}���������������������������������������47������������������}}��fl-a11d84f71ea-1bb0��fl-a11d84f71ea-1bb1�����������}������������
�����������������������������������������������fl-a11d84f71ea-1bb5��fl-a11d84f71ea-1bb6�����������}������������
���������������������������������������������fl-a11d84f71ea-1bba��fl-a11d84f71ea-1bbb�����������}������������
��������������������W�����������gt-a11d84f71ea-1baa�����fl-a11d84f71ea-1bbf�������~���}������������
���������������������47������������7�����F��������������������������������?�������������������������������z������������������������������{����gm-a11d84f71ea-1bc6�������������fl-a11d84f71ea-1bcb��fl-a11d84f71ea-1bcc��fl-a11d84f71ea-1bcd��fl-a11d84f71ea-1bce��fl-a11d84f71ea-1bcf������������������fl-a11d84f71ea-1bc8����������������������47
���������������������#�����z��������g
string-any��gsymbol->string��ggensym?��gvhash-consq��j��j��gcadr��gfold��g	let-names��gletrec-names��g	fix-names��gvlist-for-each��g
vhash-assq��gfind��gpair?��gwarning��gunused-variable��g
vlist-drop��g
vlist-null��g<reference-graph>��g%make-reference-graph-procedure��gmake-reference-graph��������gm-a11d84f71ea-1ccf������gt-a11d84f71ea-1ccc��gt-a11d84f71ea-1ccd�gt-a11d84f71ea-1cce��������fl-a11d84f71ea-1cd4�fl-a11d84f71ea-1cd5�fl-a11d84f71ea-1cd6������	fl-a11d84f71ea-1cd1�
	���
������������
�
�����������gdefs����gtoplevel-context�����gm-a11d84f71ea-1cca���������
� 47����������
���
��������gpwpwpw� ��!g%reference-graph?-procedure�"greference-graph?�#gm-a11d84f71ea-1ce0�$#��%gt-a11d84f71ea-1cdf�&%�'$�(fl-a11d84f71ea-1ce5�)(�*�&')�+fl-a11d84f71ea-1ce2�,+�-��',�.$*�-���������
�/��.��0*�-��~��������������������47�1�j0��21�3��0��4��0��541�6�F0��7��0��871�9�*�-�:��9��;68:�<35;�=/2<�>��-�?�!>��@greference-graph-defs�Ag%reference-graph-defs-procedure�Bgm-a11d84f71ea-1cec�CB��DC�Efl-a11d84f71ea-1cee�FE�G��DF�HC�G����������I��H��J�I�KJ��L�G���������47�M��L��N�M�O�KN��PCC�Qfl-a11d84f71ea-1cf1�Rfl-a11d84f71ea-1cf2�SQR�T�PS�UCT�G���������
�V��U��W�U��X�T�G�Y��X��ZWY�[Z�\�L��]�\�^�K]��_fl-a11d84f71ea-1cf6�`fl-a11d84f71ea-1cf7�a_`�b�Pa�cCb�G���������
�d��c��e�c��fb�G�g�
f��heg�ih�j�L��k�j�l�Kk��mfl-a11d84f71ea-1cfb�nfl-a11d84f71ea-1cfc�omn�p�Po�qCp�G���������
�r��q��s�q��tg%%<reference-graph>-set-fields�u�p�G�v�tu��wsv�xw�ygt-a11d84f71ea-1ceb�zy�{fl-a11d84f71ea-1d00�|{�}�zD|�~C}�G���������
���~���}�G���������47������������7�����F���������������}�G��������������?����}�G���
���������������������@�������������������������G���A����greference-graph-refs��g%reference-graph-refs-procedure��gm-a11d84f71ea-1d07���������fl-a11d84f71ea-1d09��������������������������������������������������47����������������������fl-a11d84f71ea-1d0c��fl-a11d84f71ea-1d0d������������������������
�����������������������������������������������fl-a11d84f71ea-1d11��fl-a11d84f71ea-1d12������������������������
���������������������������������������������fl-a11d84f71ea-1d16��fl-a11d84f71ea-1d17������������������������
��������������������t�����������gt-a11d84f71ea-1d06�����fl-a11d84f71ea-1d1b������������������������
��������������������47������������7�����F��������������������������������?�������������������������������������������������������������������g reference-graph-toplevel-context��g+%reference-graph-toplevel-context-procedure��gm-a11d84f71ea-1d22���������fl-a11d84f71ea-1d24��������������������������������������������������47����������������������fl-a11d84f71ea-1d27��fl-a11d84f71ea-1d28�������������������
������������������	����
�	���
��fl-a11d84f71ea-1d2c�
fl-a11d84f71ea-1d2d�
����������������
������������	��������������fl-a11d84f71ea-1d31�fl-a11d84f71ea-1d32�����������������
����� ���!����"�t!��# "�$#�%gt-a11d84f71ea-1d21�&%�'fl-a11d84f71ea-1d36�('�)�&�(�*�)�����������
�+��*��,)�����������47�-��,��.-�/�7,��0�F,��1��,��21-�3�)���4��3��5024�6�?,��7)���8�	7��96-8�:��,��;�,��<��3��=;<�>:-=�?/59>�@+.?�A����B��A��Cgm-a11d84f71ea-1d3d�DC��ED�Ffl-a11d84f71ea-1d42�Gfl-a11d84f71ea-1d43�Hfl-a11d84f71ea-1d44�Ifl-a11d84f71ea-1d45�Jfl-a11d84f71ea-1d46�KFGHIJ�L��EK�MD�Nfl-a11d84f71ea-1d3f�ON�P��MO�QL�P�������47
�R��Q��S�L�P�T��S��U�@S��V��S��W��S��XUVW�Ygand=>�Zggraph-reachable-nodes�[g
vlist-fold�\ggraph-reachable-nodes*�]g
partition*�^gtoplevel-define-name�_gtoplevel-define-src�`gtoplevel-set-name�agtoplevel-set-src�bgmodule?�cgmodule-variable�dgmodule-public-interface�egmacro?�fgvlist-filter�ggunused-toplevel�hg<toplevel-ref>�igtoplevel-ref-name�jgtoplevel-ref-src�kg<toplevel-info>�lg%make-toplevel-info-procedure�mgmake-toplevel-info�ngm-a11d84f71ea-1e83�on��pgt-a11d84f71ea-1e81�qgt-a11d84f71ea-1e82�rpq�soo�tfl-a11d84f71ea-1e88�ufl-a11d84f71ea-1e89�vtu�w�rsv�xo�yfl-a11d84f71ea-1e85�zy�{��xz�|ow�{���������
�}��|��~�w�{���~����~������gm-a11d84f71ea-1e7f�������w�{�����
� 47���������k~����
����������}������{���l�������g%toplevel-info?-procedure��gtoplevel-info?��gm-a11d84f71ea-1e92������gt-a11d84f71ea-1e91��������fl-a11d84f71ea-1e97�����������fl-a11d84f71ea-1e94������������������������
��������������~��������������������47���j������������������������F���������������������k������������������������������gtoplevel-info-refs��g%toplevel-info-refs-procedure��gm-a11d84f71ea-1e9e���������fl-a11d84f71ea-1ea0���������������������������������������������������47����������������������fl-a11d84f71ea-1ea3��fl-a11d84f71ea-1ea4������������������������
��������������������k��������������������������fl-a11d84f71ea-1ea8��fl-a11d84f71ea-1ea9������������������������
�������������������
��������������������������fl-a11d84f71ea-1ead��fl-a11d84f71ea-1eae������������������������
�������������g%%<toplevel-info>-set-fields���������������������gt-a11d84f71ea-1e9d�����fl-a11d84f71ea-1eb2������������������������
���������������������47������������7�����F���������������������k����������?����������
����������������������������������������������������gtoplevel-info-defs�g%toplevel-info-defs-procedure�gm-a11d84f71ea-1eb9����fl-a11d84f71ea-1ebb�	�
��	��
��������������
��
����
���������47�����������fl-a11d84f71ea-1ebe�fl-a11d84f71ea-1ebf�����
���������
����������
��k������� ��!� ��"fl-a11d84f71ea-1ec3�#fl-a11d84f71ea-1ec4�$"#�%�$�&%�
���������
�'��&��(�&��)%�
�*�)��+(*�,+�-���.�-�/�.��0fl-a11d84f71ea-1ec8�1fl-a11d84f71ea-1ec9�201�3�2�43�
���������
�5��4��6�4��7�3�
�8��7��968�:9�;gt-a11d84f71ea-1eb8�<;�=fl-a11d84f71ea-1ecd�>=�?�<>�@?�
���������
�A��@��B�?�
���������47�C��B��DC�E�7B��F�FB��G��B��HGC�I�?�
�J�kI��KFHJ�L�?B��M?�
�N�M��OLCN�P��B��Q�B��R�I��SQR�TPCS�UEKOT�VADU�W��
�X�W��Ygm-a11d84f71ea-1ed4�ZY��[Z�����\fl-a11d84f71ea-1ed9�]fl-a11d84f71ea-1eda�^fl-a11d84f71ea-1edb�_fl-a11d84f71ea-1edc�`fl-a11d84f71ea-1edd�a\]^_`�b��[a�cZ�dfl-a11d84f71ea-1ed6�ed�f��ce�g�b�f�������47
�h��g��i�b�f�j�ki��k��i��l�i��mkl�ng<const>�ogtoplevel-define!�pgresolve-module�qgoop�rggoops�sqr�tg<module-ref>�uggoops-toplevel-definition�vg
vhash-delq�wgunbound-variable�xg
vlist-reverse�yg<arity-info>�zg%make-arity-info-procedure�{gmake-arity-info�|gm-a11d84f71ea-2136�}|��~gt-a11d84f71ea-2133�gt-a11d84f71ea-2134��gt-a11d84f71ea-2135��~���}}}��fl-a11d84f71ea-213b��fl-a11d84f71ea-213c��fl-a11d84f71ea-213d�������������}��fl-a11d84f71ea-2138�����������}������������
��������gtoplevel-calls��������������glexical-lambdas��������gtoplevel-lambdas�������������gm-a11d84f71ea-2131���������������
� 47���������y�����
�����������������������z���������g%arity-info?-procedure��garity-info?��gm-a11d84f71ea-2147������gt-a11d84f71ea-2146��������fl-a11d84f71ea-214c�����������fl-a11d84f71ea-2149������������������������
��������������~��������������������47���j������������������������F���������������������y������������������������������gtoplevel-procedure-calls��g#%toplevel-procedure-calls-procedure��gm-a11d84f71ea-2153���������fl-a11d84f71ea-2155���������������������������������������������������47����������������������fl-a11d84f71ea-2158��fl-a11d84f71ea-2159������������������������
��������������������y��������������������������fl-a11d84f71ea-215d��fl-a11d84f71ea-215e������������������������
�������������������
��������������������������fl-a11d84f71ea-2162��fl-a11d84f71ea-2163������������������������
�������������g%%<arity-info>-set-fields���������������������gt-a11d84f71ea-2152�����fl-a11d84f71ea-2167������������������������
��������������������47�������7���F�������������y��	�
�?�������
��

��������������	
�����������g%lexical-lambdas-procedure�gm-a11d84f71ea-216e����fl-a11d84f71ea-2170�������������������� ��! ��"�����������47�#��"��$�#�%�!$��&�'fl-a11d84f71ea-2173�(fl-a11d84f71ea-2174�)'(�*�&)�+*����������
�,��+��-�+��.�*��/�y.��0-/�10�2�"��3�2�4�!3��5fl-a11d84f71ea-2178�6fl-a11d84f71ea-2179�756�8�&7�98����������
�:��9��;�9��<8��=�<��>;=�?>�@�"��A�@�B�!A��Cfl-a11d84f71ea-217d�Dfl-a11d84f71ea-217e�ECD�F�&E�GF����������
�H��G��I�G��J�F��K��J��LIK�ML�Ngt-a11d84f71ea-216d�ON�Pfl-a11d84f71ea-2182�QP�R�OQ�SR����������
�T��S��U�R����������47�V��U��WV�X�7U��Y�FU��Z��U��[ZV�\�R��]�y\��^Y[]�_�?U��`R��a�`��b_Va�c��U��d�U��e��\��fde�gcVf�hX^bg�iTWh�j���k�j��lg%toplevel-lambdas-procedure�mgm-a11d84f71ea-2189�nm��on�pfl-a11d84f71ea-218b�qp�r��oq�sn�r����������t��s��u�t�vu��w��r���������47�x��w��y�x�z�vy��{nn�|fl-a11d84f71ea-218e�}fl-a11d84f71ea-218f�~|}��{~��n�r���������
���������������r���y������������w��������v����fl-a11d84f71ea-2193��fl-a11d84f71ea-2194�������{���n��r���������
���������������r���	������������w��������v����fl-a11d84f71ea-2198��fl-a11d84f71ea-2199�������{���n��r���������
����������������r���������������gt-a11d84f71ea-2188�����fl-a11d84f71ea-219d�������o���n��r���������
�����������r���������47������������7�����F�����������������r���y����������?������r���	������������������������������������������������r���l����gm-a11d84f71ea-21a4�������������fl-a11d84f71ea-21a9��fl-a11d84f71ea-21aa��fl-a11d84f71ea-21ab��fl-a11d84f71ea-21ac��fl-a11d84f71ea-21ad������������������fl-a11d84f71ea-21a6����������������������47
���������������y���������������������������gprogram?��gprocedure-name��g
arity:nreq��g
arity:nopt��garity:rest?��gcar��garity:kw��garity:allow-other-keys?��gprogram-arities��g
procedure?��gprocedure-minimum-arity��glambda-meta��g	assoc-ref��gconst?��g	const-exp��gkeyword?��garity-mismatch��gwith-output-to-string��gwrite��gvalidate-arity��gapplication-src��g
vlist-tail��gcatch��������g
module-ref��g
toplevel-ref?��glambda?��fformat-string-syntax-error��g
&syntax-error��gthrow��gunterminated-conditional��gtilde��gliteral��g
take-while��0123456789
��gstring->number��glist->string��gevery��gnumber?��glist-ref�	gmin�	gunexpected-semicolon�	g"unexpected-conditional-termination�	gunterminated-iteration�	gunexpected-termination�	fcomputer bought the farm�	gstring->list�	gformat-string-argument-count�	gresolve-interface�		gensureS�	
g	proc-ref?�	ggettext�	ggettext?�	
gngettext�	gN_�	g	ngettext?�	gstring?�	g	const-fmt�	gboolean?�	gformat�	g
wrong-port�	gnegate�	gnon-literal-format-string�	z�	z�	fno matching pattern�	gwrong-format-string�	gwrong-num-args�	gwrong-format-arg-count�	gsyntax-error�	g
make-const�	ASas~%�	 g
simple-format�	!	�	"	 �	#	 �	$	!	�	%	!	�C5h�Tk]04	
23;54>>"G?@h(�]
454>"GC�gk
		"gv		"gres			"gfilenameflanguage/tree-il/analyze.scm�
�
��	�	
��	�	��	
�	��		"	gnameg
make-hashq�CARh�]LL6{gy
		
gfilenameflanguage/tree-il/analyze.scm�
�	��		�	&��	
�	��		
gnamegstep�CBCDEFGHIJKLM@NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu@hk]M6cgsym
		gfilenameflanguage/tree-il/analyze.scm�
	��		��		Cvwxy@h|]M6tgsym
		gval		gfilenameflanguage/tree-il/analyze.scm�
	��		#��			CdW@jeNz{	h�]�&o454M>"G4L4LL554M44M55>"G4M>"GC6gx
	�grtd	�gbody			~gfree		A	~gfilenameflanguage/tree-il/analyze.scm�
	��		��		��	 	.��	%	��	.�	��	5�	��	A�	��	A 	��	D!	��	K!	0��	N!	:��	X!	0��	]!	��	f"	���	��	�C|}uN@h0�]4M5$4M>"GL6C~gsym
		,gfilenameflanguage/tree-il/analyze.scm�
*	��	+	!��	+	��	-	#��	*.	#��		,Ch(�]	4L5$LLO6C�gsym
		$grefs		$gfilenameflanguage/tree-il/analyze.scm�
'		��	(	��	(	��	)	
��	"*	��		$gnamegdelabel-dependents!�CNh}]4M5$CL6ugsym
		gfilenameflanguage/tree-il/analyze.scm�
=	��	>	��	>	��	?	��		CN@j~hX�]4M5$G4ML44M54ML55>"G4M>"GM6C�gsym
		Xgval		Xgfilenameflanguage/tree-il/analyze.scm�
D	
��	E	��	E	��	I	��	J	��	J	&��	#K	&��	-J	��	2I	��	;L	��	VM	��		X	C�����������������������Zh�
]MOLQ�&:45454L$"545@&I4	54
545	4L54L54L	56&"4
54M4M
5�>"G"4M>"�G"�$�45$�4M5$�"~	$s4	5$c44	5545�$,4	5$"4	5$"4	5�"

$
"'4	5	"���
""
45	"��u"$""�� ""��""��C&P45454M>"G4M>"G4L56&45"���&4 5"���!&4"5"��d#&m4$5"U(C�(	�
4L
5
6�4	�
4L
5
5	"���	"���%&h454M>"G4L54M4&4M55>"G4M>"GC'&�4(54)54*545
	4>"G4>"G4M4+4,54M55>"G4-4445?4L	555
$4L
5"6.&j4/5405415	4M4+4,54M55>"G-44L	545?62&�435445455	4M4+4,54M55>"G467LO>"G-44L	545?68&�4954:54;5	46<LO>"G4M4+4,54M55>"G4=LLLO5
4>
54L	4+55?O
L
Q
46@
LO>"G46ALLLO>"G-4
?6B&04C54D54L54L56E&E4F54G54H5	4L54L54L	56I&=4J54K54L5	4L	544+55@M&4N5"���O&04P54Q54L54L56R&G4S54T54U5	4L54L54L	56V&B4W54X54Y5	4L54L	545@C�
gx
	
gproc	
glabels-in-proc		
gtail?		
gtail-call-args		
gstep		
grtd		
gproc		-	Ygargs		-	Ygtest		v�g
consequent		v�g	alternate			v�ggensym	��gp	�gc		�gt	
u�ggensym	�,gexp	�,gexp	;Rgexp	axgexp	��gexps	�gexps	�gret		�gy	
��gy	
��gbody	"�gfree	F�ginits	�Iggensyms	�Igbody		�Ig	alternate	
�Iggensyms	f�gvals	f�gbody		f�ggensyms	�Fgvals	�Fgbody		�Fggensyms	cJgvals	cJgbody		cJgvar-refs	
�Jgvars-with-refs	�Jg	body-refs	�Jgdelabel-dependents!	
�Jgexp	`�gbody	`�gbody	��gwinder	��gunwinder		��gfluids	�gvals	�gbody		�gfluid	#:gfluid	Prgexp	Prgtag	��gbody	��ghandler		��gtag	�gargs	�gtail		�>gfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	6�	$��	E�	.��	N�	$��	O�	��	Y�	��	a�	����	����	&����	����	����	����	����	����	(����	$����	����	����	����	��
�	���	���	���	���	��%�	��&�	%��0�	��1�	,��4�	4��<�	,��=�	,��D�	)��H�	$��I�	.��S�	$��Y�	.��c�	$��i�	.��p�	)��u�	#����	(����	$����	����	(����	����	����	����	����	���	���	��$�	&��(�	��,�	��4�	��B�	&��R�	��Z�	��h�	&��x�	����	����	&����	����	����	����		����	����	����		����	/����	$����	����	����	����	����	9����	3����	����	&����	���	���	���	���	!���	���	��%�	��,�	 ��1�	��:�	��A�	4��F�	��F�	��I�		��P�	"��S�	,��]�	"��b�		��k�		����	����	����	����	����	-����	����	���	���	���	%���	;���	%���	��*�	��.�	��4�	��5�	��G�	,��I�	��Q�	��m�	��t�	��w�	��~�	-����	����	���	����	���	?���	���	����	���	���	���	���	-���	���	��	��%		��*�	��8		?��B		��F	��N�	��j	���	���	���	���	-���	���	���	���	���%	���	����	����	����	���	���=		��C		��<P	��JO		��R�	��i�	��p�	&��t�	��|�	&����	���T	����	����	����	&����	����	&����	����	&����	���W	����	����	����	&���	��Z	)��Z	3��Z	)��Z	���	��*�	&��:�	��B�	��Y�	��`�	&��d�	��l�	&��p�	��r`	��z�	����	����	&����	����	&����	����	���c	����	����	����	&����	����	&���	��f	4��f	��h	���	
	gnameganalyze!�Ch{]LLL6sgy
		gfilenameflanguage/tree-il/analyze.scm�
p	��	p	��		gnamegrecur�CBCD�GHIJKXZ\]^_`abcdW@NNhr]4M5L6jgv
		gfilenameflanguage/tree-il/analyze.scm�
�	��	�	 ��	�	��		C��Nht]4M5�Clgsym
		gfilenameflanguage/tree-il/analyze.scm�
�	"��	�	.��	�	$��		CfghiVSThi]LLL6agx
		gfilenameflanguage/tree-il/analyze.scm�
�	!��	�	-��		C��Amnop�Q�Mqrsthi]LLL6agx
		gfilenameflanguage/tree-il/analyze.scm�
�	%��	�	'��		Cvwxyz{�����������j���������P����Vhx�]kOLQ�&*45454L545@&@454	54
54L54L54L56&45"��M
&45"��,&45"��&45"���&4545@&�45"D�$944M�54M�5��>"G��"���"4M5
"���4LO4M5544LO4M5554L
>"G4M�>"GC&�45454 54!54">"G4#>"G"�	(K44L
54$
LO5?4M4%&5�>"G"H4M	�4'4M	�5
��5>"G	�
�
	"��v
	"��j$4L5"6(&u4)54*54+5445?"c"S	(4L
56	�4M4'4M5
��5>"G	�
�
	"���
	"���4,5$�4-5�$��	4M	5$"f4M	
5	�$T4.455$?4/455	&(4.4	55$4/4	55	�""""	$;4M�4'��5>"G�4L4
556"���"���"���0&�415425435"l(*444	LO5?

4L	56�
4M
4'4M
5	��5>"G�	�	"���	"���5&C465475485"(�"�
(4L	564M
�5$S
���

�&"4
544L	55"	49:
5

"���
��44L�	55
"��e	
"��U�
4M
5$9;64M
5$
�		"��4M
4'	��5>"G�	�	"���	"���<&,4=54>54L54L56?&@4@54A54B54L54L54L56C&:4D54E54F54L544G55@H&4I5"���J&,4K54L54L54L56M&�4N54O54P54Q5$45�$45�""4M$4M
5
�">"G4L54L54L56R&>4S54T54U54L54L545@C�gx
	ugproc	ugn		ugrecur		ugrtd		ugproc		0	Lgargs		0	Lgtest		i�g
consequent		i�g	alternate		i�gexp	��gexp	��gexp	��gexp	gexps	'6gbody	Egc	K�gn	K�gfree-addresses	�glabels	�ginits	3ggensyms	3gbody	3g	alternate	3ggensyms		e�gn	
e�gnlocs	��ggensyms	1�gvals	1�gbody	1�gnmax	E�ggensyms		O�gn	
O�gv	i�gv		�Fggensyms	�0gvals	�0gbody	�0ggensyms	�$gn		�$gnmax	
��gv	
�$ggensyms	M{gvals	M{gbody	M{gin	Wogn		Woggensyms	
a�gvals	a�gnmax	a�gr	
��grtd	��gbody	��gv	
ogexp	��gbody	��gbody	��gwinder	��gunwinder	��gfluids	9gvals	9gbody	9gfluid	HZgfluid	p�gexp	p�gtag	�,gbody	�,ghandler	�,gcont-var	�,gtag	Irgargs	Irgtail	IrHgfilenameflanguage/tree-il/analyze.scm�
o	��	q	��	7p	��	Bs	��	Ls	��	Tq	��	rp	���v	���q	���p	���q	���p	���q	���p	���q	��p	�� q	��,�	��6�	��>q	��K�	��N�	
��R�		��S�	��V�	��]�	1��_�	��b�	��c�	!��j�	5��l�	!��o�	��u�	����	����	����	����	����	����	����	����	����	����	����	����	"����	����	����	����	����		����	"����		��q	��e�	��k�	
��l�	��o�	��z�	����	����	����	����	/����	7����	/����	)����	����	����	'����	����	"����	(����	<����	(����	"����	����	����	����	"����	����	���	���	���	��q	��8�	��;�	��E�	��E�	��O�	��U�	
��Z�	��f�	��i�	��i�	��l�	��s�	��x�	 ��y�	&����	 ����	����	����	����	%����	����	����		����	����		����	����	����	����	����	����	����	����	����	����	����	����	%����	����	����	���	0��
�	���	���	���	%���	�� �	��!�	��$�	0��,�	��/�	��J�	��K�	��R�	"��S�	��X�	(��_�	��d�	��s�	��t�	��w�	'����	����	���q	����	����		����	����	 ����	����	
����	����	����	����	
����	����	����	����	"���	��	�	���	���	���	!��$�	��$�	��8q	��W�	��]�		��a�	
��g�	��l�	��x�	��y�	����	#����	����	����	����	����	"����	����	����	"����	����	����	����	����	����	����	����	*����	����	����	����	
���	���	
���	���	��"�	��&�	��'�	��3�	��6�	��@�	��A�	��H�	*��M�	;��T�	*��Y�	��d�	��g�	��o�	��o�	���q	���p	����	���q	���p	���	���q	��p	��(	��-	*��7	��9	��Aq	��Zp	��bq	��wp	���
	���q	���
	���
	���	#���	���
	���	!���	���
	���		���	���	*���	#���		��
p	��,		��4q	��Rp	��h	+��r	���	u	gnameg	allocate!�C?h��]AHHHHHHOOQQ45K45K45K45K45K45K4>"G4
>"GJC�gx
	�g
bound-vars	�g	free-vars		�gassigned		�g	refcounts		�glabels		�g
allocation		�ganalyze!		/�g	allocate!		/�	gfilenameflanguage/tree-il/analyze.scm�
�
��	P�	��	W�	��	^�	��	e�	��	l�	��	sm	��	z	���	���	���	��	�gnameganalyze-lexicals�C4R�h�]�C�gleaf
		gdown		gup			gpost			ginit			gfilenameflanguage/tree-il/analyze.scm�
#
��			gnameg%make-tree-analysis-procedure�C�R4�����=h�]C�gt-a11d84f71ea-1a60
		gt-a11d84f71ea-1a61		gt-a11d84f71ea-1a62			gt-a11d84f71ea-1a63			gt-a11d84f71ea-1a64						C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	#
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	#
��		
CHh]C		
CJKhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/analyze.scm�
#
��		nC5�RNOR�S�4V�>"G	Y��i��R�h�]�$��CCgobj
		gfilenameflanguage/tree-il/analyze.scm�
#
��		gnameg%tree-analysis?-procedure�CZR4�[��\�h:]C2gt-a11d84f71ea-1a79
		
		
C?B[Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	#
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	#
��		
C�h]C		
CJKhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/analyze.scm�
#
��		nC5[R���h�]�&
�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
#
��		gnameg%tree-analysis-leaf-procedure�C�R4�����
h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C &,h:]��C2gerr
		gs					C\Jh:]C2gt-a11d84f71ea-1a85
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	#
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	#
��		
CLh]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
#
��	�C5�R��Mh�]�&�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
#
��		gnameg%tree-analysis-down-procedure�CNR4�M��\chh:]��C2gerr
		gs					Ckqvh:]��C2gerr
		gs					Cy�h:]��C2gerr
		gs					C\�h:]C2gt-a11d84f71ea-1aa0
		
		
C?BMCh`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	#
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	#
��		
C�h]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
#
��	�C5MR���h �]�&	�C6gs
		gfilenameflanguage/tree-il/analyze.scm�
#
��		gnameg%tree-analysis-up-procedure�C�R4�������h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h:]C2gt-a11d84f71ea-1abb
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	#
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	#
��		
C�h]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
#
��	�C5�R���h �]�&	�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
#
��		gnameg%tree-analysis-post-procedure�C�R4����h:]��C2gerr
		gs					C"h:]��C2gerr
		gs					C%+0h:]��C2gerr
		gs					C\Lh:]C2gt-a11d84f71ea-1ad6
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	#
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	#
��		
CNh]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
#
��	�C5�R��Oh �]�&	�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
#
��		gnameg%tree-analysis-init-procedure�CPR4�O��^ejh:]��C2gerr
		gs					Cmsxh:]��C2gerr
		gs					C{��h:]��C2gerr
		gs					C\�h:]C2gt-a11d84f71ea-1af1
		
		
C?BOCh`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	#
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	#
��		
C�h]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
#
��	�C5OR4�(��������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CJKh(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/analyze.scm�
#
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5(R��Gh�]4L5LLL6�ganalysis
		gresult		gfilenameflanguage/tree-il/analyze.scm�
9	��	:	��	:	��			Ch(�]
�4LLOL�5�C�gx
		"gresults		"glocs			"gfilenameflanguage/tree-il/analyze.scm�
6	��	7	!��	7	��	
9	��	<	��	 9	��	!8	��		"	CN�Gh�]4L5LLL6�ganalysis
		gresult		gfilenameflanguage/tree-il/analyze.scm�
9	��	:	��	:	��			Ch8�]
�45�4LLOL�5�C�gx
		1gresults		1glocs			glocs			1gfilenameflanguage/tree-il/analyze.scm�
6	��	7	!��	7	��	@	%��	@	��	7	��	9	��	-<	��	/9	��	08	��		1	C�Gh�]4L5LLL6�ganalysis
		gresult		gfilenameflanguage/tree-il/analyze.scm�
9	��	:	��	:	��			Ch0�]
��4LLOL�5�C�gx
		*gresults		*glocs			
glocs		
	*gfilenameflanguage/tree-il/analyze.scm�
6	��	7	!��	7	��	
A	��	
7	��	9	��	&<	��	(9	��	)8	��
		*	CGPu���h(�]�&		�"	45L6|ganalysis
		#gresult		#gfilenameflanguage/tree-il/analyze.scm�
K	��	L	��		#	Chp�]4OOO4	5�54
O�>"GC�ganalyses
		ngtree		ngenv			ngproc			gproc			)gproc		+	;gresults		J	kgfilenameflanguage/tree-il/analyze.scm�
,
��	D		��	D	��	E	��	+F	��	<G	��	=H	��	FG	��	JD		��	JC	��	MK	��	[N	��	`K	��		n	gnameganalyze-tree�g
documentationfhRun all tree analyses listed in ANALYSES on TREE for ENV, using
`tree-il-fold'.  Return TREE.  The leaf/down/up procedures of each analysis are
passed a ``location stack', which is the stack of `tree-il-src' values for each
parent tree (a list); it can be used to approximate source location when
accurate information is missing from a given `tree-il' element.�C5R�h�]�C�gvars
		grefs		gfilenameflanguage/tree-il/analyze.scm�
Z
��			gnameg%make-binding-info-procedure�C�R4������hZ]CRgt-a11d84f71ea-1b73
		gt-a11d84f71ea-1b74					C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	Z
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	Z
��		
Ch]C		
CJKhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/analyze.scm�
Z
��		nC5�RNR��4V�>"G	Y��i��R�h�]�$��CC~gobj
		gfilenameflanguage/tree-il/analyze.scm�
Z
��		gnameg%binding-info?-procedure�CR4���\ h:]C2gt-a11d84f71ea-1b83
		
		
C?BCh`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	Z
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	Z
��		
C"h]C		
CJKhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/analyze.scm�
Z
��		nC5R��#h�]�&
�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
Z
��		gnameg%binding-info-vars-procedure�C$R4�#��29>h:]��C2gerr
		gs					CAGLh:]��C2gerr
		gs					COU[h:]��C2gerr
		gs					C\wh:]C2gt-a11d84f71ea-1b8f
		
		
C?B#Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	Z
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	Z
��		
Cyh]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
Z
��	�C5#R��zh�]�&�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
Z
��		gnameg%binding-info-refs-procedure�C{R4�z�����h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h:]C2gt-a11d84f71ea-1baa
		
		
C?BzCh`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	Z
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	Z
��		
C�h]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
Z
��	�C5zR4�W��������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CJKh(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/analyze.scm�
Z
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5WR��h�] 456gsym
		gfilenameflanguage/tree-il/analyze.scm�
`
��	b	��	b	��		gnameggensym?�C�R��z#�XY�fRSUThg�G���h�]L6�gvar
		gname		gvars			gfilenameflanguage/tree-il/analyze.scm�
w	��	
x	"��	x	��			Cmn��h�]L6�gvar
		gname		gvars			gfilenameflanguage/tree-il/analyze.scm�
w	��	
x	"��	x	��			Cqr��h�]L6�gvar
		gname		gvars			gfilenameflanguage/tree-il/analyze.scm�
w	��	
x	"��	x	��			Cvw��h�]L6�gvar
		gname		gvars			gfilenameflanguage/tree-il/analyze.scm�
w	��	
x	"��	x	��			C!h��]\�&�"	45�&
�"	4545�&4545		�C	&�4
545454
545
	4>"G44	$	"4
$	
"$4�5"555
4O
5�C&04545	4O	5

�C&04545	4O	5

�C&04545	4 O	5

�CC�gx
	�ginfo	�genv		�glocs		�grefs		=�gvars		=�gsrc		=�grtd		F�ggensym		W	ogrefs			c	ogreq	�gopt		�grest	
�gkw	�ggensyms	�gnames	
�gvars	
ggensyms	/Qgnames		/Qgvars	
EQggensyms	g�gnames		g�gvars	
}�ggensyms	��gnames		��gvars	
��gfilenameflanguage/tree-il/analyze.scm�
p	��	s	��	t	��	7u	��	=s	��	F}	��	Z	"��	c	
��	w}	����	����	����	#����	����	����	$����	0����	����	"����	,����	"����	6����	����	
���w		��
�	��!}	��4w		��E�	
��Y}	��lw		��}�	
���}	���w		����	
��#	�	C��z#�O�P������
h�p]�4L5$m4L5$"4L5�$M�����$"	4L545$"��$
	6CCChgvar
	�ggensym	�gt		;	Ugname		U	gloc		U	gfilenameflanguage/tree-il/analyze.scm�
�	
��	�	��	�	��	�	��	�	��	�	��	!�	��	'�	��	.�	��	2�	��	5�	��	9�	"��	;�	��	J�	"��	U�	��	Z�	"��	d�	��	m�	,��	n�	"��	o�	��	s�	��	w�	!��	}�	��	�C�Qh0�]4LLOL>"GL456�g
inner-vars
		.grefs		.gfilenameflanguage/tree-il/analyze.scm�
�	��	�		��	&�	��	.�		��		.	gnamegshrink�Cfhmnqrvwh�]4�&�"	45�&
�"	45OQ�&4545		�C&4	545		�C
&4545		�C&4
545		�CCgx
	�ginfo	�genv		�glocs		�grefs		6�gvars		6�gshrink		D�grtd		P�ggensyms		a	xgvars			l	xggensyms	��gvars		��ggensyms	��gvars		��ggensyms	��gvars		��gfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	�	��	6�	��	P�	��	d�	��	l�	
����	����	����	
����	����	����	
����	����	����	
��	�	C�i�i�i��i��z#LM�hp&],�&�"	45�&
�"	45�&4545�CCgx
		iginfo		igenv			iglocs			igrefs		6	igvars		6	igrtd		=	iggensym		N	fgrefs		Z	f	gfilenameflanguage/tree-il/analyze.scm�
g	��	i	��	j	��	6i	��	=k	��	Qm	"��	Zm	
��		i	Chv]Cngresult
		genv		gfilenameflanguage/tree-il/analyze.scm�
�	��			C�6R�h�]�C�grefs
		gdefs		gtoplevel-context			gfilenameflanguage/tree-il/analyze.scm�
�
��			gnameg%make-reference-graph-procedure�C�R4�����hz]Crgt-a11d84f71ea-1ccc
		gt-a11d84f71ea-1ccd		gt-a11d84f71ea-1cce						C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	�
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	�
��		
Ch]C		
CJKhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/analyze.scm�
�
��		nC5�RNR� �4V�>"G	Y��i��R�h�]�$��CC�gobj
		gfilenameflanguage/tree-il/analyze.scm�
�
��		gnameg%reference-graph?-procedure�C!R4�"��\=h:]C2gt-a11d84f71ea-1cdf
		
		
C?B"Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	�
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	�
��		
C?h]C		
CJKhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/analyze.scm�
�
��		nC5"R��@h�]�&
�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
�
��		gnameg%reference-graph-defs-procedure�CAR4�@��OV[h:]��C2gerr
		gs					C^dih:]��C2gerr
		gs					Clrxh:]��C2gerr
		gs					C\�h:]C2gt-a11d84f71ea-1ceb
		
		
C?B@Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	�
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	�
��		
C�h]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
�
��	�C5@R���h�]�&�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
�
��		gnameg%reference-graph-refs-procedure�C�R4�������h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h:]C2gt-a11d84f71ea-1d06
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	�
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	�
��		
C�h]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
�
��	�C5�R���h �]�&	�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
�
��		gnameg+%reference-graph-toplevel-context-procedure�C�R4�����h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C$h:]��C2gerr
		gs					C\@h:]C2gt-a11d84f71ea-1d21
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	�
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	�
��		
CBh]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
�
��	�C5�R4�t���RTX��h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CJKh(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/analyze.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5tR�Y���h]LL6wgkid
		gresult		gfilenameflanguage/tree-il/analyze.scm�
�	��	�	!��			C�h]6wgkid
		gresult		gfilenameflanguage/tree-il/analyze.scm�
�	��	�	��			Ch�{]45$"	45$C44L55$"454LO56sgroot
		ygpath		ygresult			ygt			$gt		;	Mgchildren		M	ygpath		Y	ygresult		m	ygfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	�	��	�	��	(�	��	,�	��	/�	$��	;�	��	;�	��	J�	@��	M�	��	P�	��	Y�	��	\�	��	m�	��	y�	
��		y	gnamegloop�C�h �]OQ6�groot
		grefs		g	reachable			gloop			gfilenameflanguage/tree-il/analyze.scm�
�
��	�	��			gnameggraph-reachable-nodes�CZR[Z�h �]�4L56�g	root+true
		gresult		groot			g	reachable			gfilenameflanguage/tree-il/analyze.scm�
�	��	�	"��	�	��	�	"��	�	��	�	��			C�h�]O6�groots
		grefs		gfilenameflanguage/tree-il/analyze.scm�
�
��	�	��			gnameggraph-reachable-nodes*�C\R[�h@]"����4L5$45�C45�Cgk+v
		?gresult		?gk			?gv			?gr1			?gr2			?gfilenameflanguage/tree-il/analyze.scm�
�	��	�	!��	�	!��	�	!��	�	!��	�	��	�	��	!�	��	"�	#��	/�	��	3�	&��	>�	��
		?	C�h �]
4O�5��D�gpred
		gvhash		gresult			gfilenameflanguage/tree-il/analyze.scm�
�
��	�		��	�	��	�		��	�	��	�	��	�	��	�	��				gnameg
partition*�C]R���@�Y���
h��]*�&�"	45�&
�"	45�&		�"	454455$"4	�5�C�ggraph
	�gname	�grefs		�gdefs		8�gctx		U�gt		g	ygctx-refs		y�grefs	��gfilenameflanguage/tree-il/analyze.scm�
		��		��		��	!	��	8	��	=	��	U	��	X	 ��	[	'��	g	 ��	g	��	v	B��	y	��	|		#���		4���		#���		
��	�	gnamegadd-ref-from-context�C���@�`^_���^`ah��]4�&�"	45�&
�"	45�&
	�"4>"G�&>45454	$"	4
55		�C&#4
54>"GL6C�gx
	�ggraph	�genv		�glocs		�grefs		6�gdefs		6�grtd		d�gname		|�gsrc		|�gdefs		��gname	��gfilenameflanguage/tree-il/analyze.scm�
	��		��		��	6	��	=	��	d		���"	���"	*���"	2���"	���!	���$	���		���&	��	�	CO]bcdeh`]	4L5$44L55"$C4L5$#4L5$$6CCCgname
		[gt	 	[gvar	?	Ygfilenameflanguage/tree-il/analyze.scm�
A	!��	<	
��	
<		��	=	
��	=	��	=	
��	 B	#��	,	��	6	��	7
	��	?
	��	G	
��	J	��	N	
��	S	��	U	��		[C��@��\f�h�]4�L5�C�gname+src
		gfilenameflanguage/tree-il/analyze.scm�
H	)��	I	0��	I	<��	I	0��	
I	+��		C���gh(�]��45$C6�gname+loc
		#gname		#gloc			#gfilenameflanguage/tree-il/analyze.scm�
L	��	M	)��	N	)��	M	��	
O	(��	O	��	P	,��	#P	#��			#C
h�m]24O�&
�"	45>G45�&�"	45454	
O56eggraph
		}genv		}gpublic-defs		,	}gprivate-defs		,	}groots		<	}grefs		X	}g	reachable		c	}gunused		s	}gfilenameflanguage/tree-il/analyze.scm�
2	��	A	��	D	!��	+A	��	/@	��	4E	��	<E		��	AF	��	XE		��	[G	��	cE		��	fH	��	sE		��	}L	��		}	CQ�i�i�i��i���hijh`�]�&
	�"4>"G�&#454>"GL6C�gx
		\ggraph		\genv			\glocs			\grtd		,	\gname		=	Ygfilenameflanguage/tree-il/analyze.scm�
	��		��	,		��	Y	��		\	CO`���@hX�]�&C�&�"	45�&
�"	45�CC�gx
		Uggraph		Ugenv			Uglocs			Ugrtd			Ugrefs		C	Rgdefs		C	Rgfilenameflanguage/tree-il/analyze.scm�
)	��	+	��	-	��	,.	��	C-	
��	Q/	��		U	C�7Rkh�]�C�grefs
		gdefs		gfilenameflanguage/tree-il/analyze.scm�
^
��			gnameg%make-toplevel-info-procedure�ClR4�m����hZ]CRgt-a11d84f71ea-1e81
		gt-a11d84f71ea-1e82					C?BmCh`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	^
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	^
��		
C�h]C		
CJKhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/analyze.scm�
^
��		nC5mRNRk��4Vk>"G	Y�li�kRkh�]�$��CCgobj
		gfilenameflanguage/tree-il/analyze.scm�
^
��		gnameg%toplevel-info?-procedure�C�R4����\�h:]C2gt-a11d84f71ea-1e91
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	^
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	^
��		
C�h]C		
CJKhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/analyze.scm�
^
��		nC5�Rk��h�]�&
�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
^
��		gnameg%toplevel-info-refs-procedure�C�R4�������h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\h:]C2gt-a11d84f71ea-1e9d
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	^
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	^
��		
Ch]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
^
��	�C5�Rk�h�]�&�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
^
��		gnameg%toplevel-info-defs-procedure�CR4���h:]��C2gerr
		gs					C!',h:]��C2gerr
		gs					C/5:h:]��C2gerr
		gs					C\Vh:]C2gt-a11d84f71ea-1eb8
		
		
C?BCh`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	^
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	^
��		
CXh]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
^
��	�C5R4�����hjm��h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CJKh(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/analyze.scm�
^
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�Rnhopsth�]#"T�$K���$8�&-
���$�$�(�CCCCCCC"@�$7�&,
��&45&"��pCCCC�$R�&E
���$-	�&	�&"��"��s"��o"��k"��g"��c�gproc
	�gargs	�genv		�gargs			Zgw			Xgx			Xgw		0	Tgw		w�gw	��gw	��gw	��gfilenameflanguage/tree-il/analyze.scm�
d
��	h	��		i	��	^n	���t	���t	#���t	���t	���u	
���n	���p	���n	��
	�	gnameggoops-toplevel-definition�CuRk��hijbc����h��]<�&
�"	45�&�"	45�&y454545$
4	5"		$"	4
5	$C$"	45	4
	5

�CC�gx
	�ginfo	�genv		�glocs		�grefs		6�gdefs		6�grtd		=�gname		U�gsrc		U�gt			r�gsrc		��grefs	
��gfilenameflanguage/tree-il/analyze.scm�
{	��	}	��	~	��	6}	��	=�	��	Z�	��	d�	
��	e�	��	r�		����	
����	
����	����	!����	����	$����	��	�	Ck���^`abc����`^vBCDuhp�]D�&
�"	45�&�"	454>"G�&}454>"G4	5$
4
5"$"	45$
�C4
545		�C&*454545		�C&Q454545		�$!4	54	5

�C�C�C�gx
	kginfo	kgenv		kglocs		kgrefs		kgdefs		8kgrtd		Okgname		`�gt	��gsrc	��grefs		��gname	�grefs	�gdefs		�gproc	agargs	agname		-agrefs	
IWgdefs	IWgfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	�	��	!�	��	8�	��	;�	��	O�	��	u�	��	�	
����	����		����	
����	
����	����	����	����	$����	����	����	����	����	
���	��#�	��-�	
��2�	��6�	��7�	$��@�	$��I�	��`�	��j�	
��!	k	C�i�iki��ih�]C�gx
		ginfo		genv			glocs			gfilenameflanguage/tree-il/analyze.scm�
�	��			C��wh�]��6�gname+loc
		gname		gloc			gfilenameflanguage/tree-il/analyze.scm�
�	��	�	#��	�	#��	�	��	�	"��	�	��		Cxk��h(�]4�&
�"	4556�gtoplevel
		'genv		'gfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	�	$��	%�	��	'�	��		'	C�8Ryh�]�C�gtoplevel-calls
		glexical-lambdas		gtoplevel-lambdas			gfilenameflanguage/tree-il/analyze.scm�
�
��			gnameg%make-arity-info-procedure�CzR4�{����hz]Crgt-a11d84f71ea-2133
		gt-a11d84f71ea-2134		gt-a11d84f71ea-2135						C?B{Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	�
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	�
��		
C�h]C		
CJKhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/analyze.scm�
�
��		nC5{RNRy��4Vy>"G	Y�zi�yRyh�]�$��CC|gobj
		gfilenameflanguage/tree-il/analyze.scm�
�
��		gnameg%arity-info?-procedure�C�R4����\�h:]C2gt-a11d84f71ea-2146
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	�
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	�
��		
C�h]C		
CJKhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/analyze.scm�
�
��		nC5�Ry��h�]�&
�C6�gs
		gfilenameflanguage/tree-il/analyze.scm�
�
��		gnameg#%toplevel-procedure-calls-procedure�C�R4�������h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\h:]C2gt-a11d84f71ea-2152
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	�
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	�
��		
Ch]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
�
��	�C5�Ry��h�]�&�C6~gs
		gfilenameflanguage/tree-il/analyze.scm�
�
��		gnameg%lexical-lambdas-procedure�CR4����%,1h:]��C2gerr
		gs					C4:?h:]��C2gerr
		gs					CBHMh:]��C2gerr
		gs					C\ih:]C2gt-a11d84f71ea-216d
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	�
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	�
��		
Ckh]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
�
��	�C5�Ry��h �]�&	�C6gs
		gfilenameflanguage/tree-il/analyze.scm�
�
��		gnameg%toplevel-lambdas-procedure�ClR4����z��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h:]C2gt-a11d84f71ea-2188
		
		
C?B�Ch`]L6Xga
		gfilenameflanguage/tree-il/analyze.scm�	�
��		C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm�	�
��		
C�h]C		
CJKh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/analyze.scm�
�
��	�C5�R4����������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CJKh(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/analyze.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R��G���G���h0�]454545445545C�ga
		0gfilenameflanguage/tree-il/analyze.scm�
�	��	�	 ��	
�	/��	�	>��	�	 ��	�	)��	%�	 ��	&�	 ��	/�	��
		0C���fRSUTVQ�d�W��kh��]Q45$454455D45$7�$

�"���4545������D"$
�&�4	54
545454
5		("�$45"

$
"

("�$45"

$
"

�$4�5"�$�"�"��%&)454545"���D45D"����gproc
	�garity	G	fgname	j�gproc		j�garities		j�grtd		szgreq	�Egopt	�Egrest	�Egkw	�Eg	alternate		�Egt	
��gt	
�gmeta	[vgbody	[vgfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	"�	��	$�	��	%�	��	/�	��	2�	��	6�	��	:�	��	@�	��	A�	��	G�	��	J�	��	S�	%��	V�	1��	Z�	>��	a�	��	d�	��	f�	��	j�	��	p�	
��	s	����	����	����	����	
����	����	����	����	����	����	
����	����	��	+��	&��	6��	?��!	6��)	+��-	&��0	6��8	 ��;	��E	��M	��`		��f		*��h		��v		��z	��}	���	����	����	����	��=	�gnamegarities�CD��k�O��QhX]q�$F���$3���$ ���$
���$���
	
(��$�"�(45"��
"�
�"���4
5$X44
55$"	$44
55"$��$��""��w"���"���
L"��a"L$.$&45�$$C��CCCCCCCCCCgarity
	Qgvx	Ogvy		Ogvx		 Mgvy		 Mgvx		1Kgvy		1Kgvx		BIgvy		BIgvx			SGgvy	
	SGgargs		h�gresult		h�garg	
	|�gt	��gargs	
Egcount	"Agfilenameflanguage/tree-il/analyze.scm�
	��		��	`	%��	d	!��	h�	��	n�	��	o�	
��	|�	��	|�	
����	����	����	����	����	����	����	����	����	����	����	����	����	(����	����	����	!����	����	����	����	����	����	����	���	��
	��	��	��	(��"	��)	"��-	��3	"��=	0��>	&��,	QC����hY]L6Qgfilenameflanguage/tree-il/analyze.scm�
#	5��	#	@��		
C
h��]3OQ45454>GH4O5KJ$".4$"4	O5>"GC�gproc
	�gapplication	�glexical?		�garities		
�gargs		�gsrc		�gname		,�garities		,�gmatches?		4�	gfilenameflanguage/tree-il/analyze.scm�
�
��	
	��		��	
	��	"	!��	/	��	7	
��	L!	��	Q"	��	U"	��	]#	��	d#	��	v"	��	�	gnamegvalidate-arity�C�Ry����dW�LM�hih]3�&
�"	45�&�"	45�&		�"	45�&+4>"G45�C	&/4
545�$�"��?C&+4
>"G45�CCglexical-name
	�gval	�ginfo		�gtoplevel-calls		Q�glexical-lambdas		Q�gtoplevel-lambdas		Q�grtd		Z�glexical-lambdas	��ggensym	��gval*	��glexical-lambdas	��gfilenameflanguage/tree-il/analyze.scm�
/	��	1	��	2	��	93	��	Q1	��	Z4		��	w7	���6	���4		���<	���<	���=	���=	���>	'���>	���4		���C	���B	��	�	gnamegextend�Cy����`^adW�hi�mno�qrsvwxBCD��LM!h��]lOQ�&
�"	45�&�"	45�&		�"	45�&�454	5
	
�
&+4
>"G4	
5�C
&@4
545
445
�$
�"
5�CC&4545
		
6&4545
		
6&4545
		
6&45	4>"G4>"G	�


&*4	>"G4	>"GC

&"4	545�C
&j4 	545�$L�

�
&"4
545�C4
>"GCCCC�gx
	�ginfo	�genv		�glocs		�gextend		
�gtoplevel-calls		^�glexical-lambdas		^�gtoplevel-lambdas		^�grtd		g�gname			gexp	
	grtd	�gtoplevel-lambdas	��gname	�gproc	
�gtoplevel-lambdas	�ggensyms		,gvals	
,ggensyms		BRgvals	
BRggensyms		hxgvals	
hxgproc		��grtd	
��gname	�gtoplevel-calls	ggensym	�gproc	(�gr	
4}grtd	9}gname	Jegtoplevel-calls	We gfilenameflanguage/tree-il/analyze.scm�
-	��	H	��	,I	��	FJ	��	^H	��	gL	���N	
���R	���P	
���N	
���U	���U	
���X	 ���X	-���Y	1���Y	-���Z	1���X	 ���V	��L	��,_	
��4L	��Ra	
��ZL	��xc	
���L	���f	
���h	
���f	
���k	��k	
��f	
�� o	��(o	
��-p	��1p	��4q	 ��4q	��Mt	'��Wt	��fx	��jx	&��rx	��,	�	Cy������h�U]#�&
�"	45�&�"	45�&		�"	4545$45"�CMgname
		gval		ginfo			gtoplevel-calls		Q	glexical-lambdas		Q	gtoplevel-lambdas		Q	glexical-lambdas		q	gfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	�	��	9�	��	Q�	��	X�	��	d�	��	e�	��	q�		��
			gnamegshrink�Cy����mno�qrsvwxh��]$�&	
�"4>"G�&	�"4>"G�&
	�"4>"G�&454	5
6&454
5
6&4545
6C�gx
	�ginfo	�genv		�glocs		�gshrink		�grtd		|�ggensyms	��gvals	��ggensyms	��gvals	��ggensyms	��gvals	��gfilenameflanguage/tree-il/analyze.scm�
�	��		�	��	/�	��	U�	��	|�	����	
����	����	
����	����	
��	�	Cy����Y��b��hY]LL6Qgfilenameflanguage/tree-il/analyze.scm�
�	��	
�	��		

Che-13C]gargs
			gfilenameflanguage/tree-il/analyze.scm�
�	��			


C�i�hY]LL6Qgfilenameflanguage/tree-il/analyze.scm�
�	��	
�	��		

Che-13C]gargs
			gfilenameflanguage/tree-il/analyze.scm�
�	��			


C���h��]!��44L55$"!4L5$4LO5"45$14	54L5$4
LO5""45$	
645$	
6C�gname+application
	�gname	�gapplication		
�gt			Ngproc		N�gname		b�gproc*	��gfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	�	
��	
�	��	
�	
��	
�	��	�	��	�	��	�	��	+�	��	5�	��	6�	��	N�	
��	Q�	��	[�	��	\�	"��	b�	��	e�	��	o�	��	p�	����	
����	����	����	����	����	����	��	�ChP�]�&
�"	45�&		�"	45O6�gresult
		Jgenv		Jgtoplevel-calls		7	Jgtoplevel-lambdas		7	Jgfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	�	��	7�	��	J�	��		J	C�i�i�iyi��ih�]C�gx
		ginfo		genv			glocs			gfilenameflanguage/tree-il/analyze.scm�
*	��			C�9R4�i�5�R�����O��O�h]6wgchar
		
gfilenameflanguage/tree-il/analyze.scm�
�	��	
�	��		
gnamegdigit?�C��kG��Q�����	�h��]4545L$L45�""D45$�45$yLLLL$4	L5�"L$
"(
"4
?��L$4	L5�"L$
"(
"4?��6"��c"��_�gchars
	�gconds	�gmins		)�gmaxs		)�gsel?		)�gfilenameflanguage/tree-il/analyze.scm�

	��		$��	
	$��		$��		5��	$	)��	)	��	5!	&��	7!	+��	9!	��	9	��	:	#��	F	��	G	#��	S	��	Y	*��	Z	3��	f	'��	g	0��	p	+��	z	.���	.���	2���	+���	$���	'���	0���	+���	.���	.��� 	2���	+���	$���	��#	�	C		�	O�h]6wgchar
		
gfilenameflanguage/tree-il/analyze.scm�
�	��	
�	��		
gnamegdigit?�CO�h]6wgchar
		
gfilenameflanguage/tree-il/analyze.scm�
�	��	
�	��		
gnamegdigit?�C	z	h8E	]'($6D�$��~�$"�%�$"�&�$"�t�$"�T�$"u_�$"g
�$"Y(�$"K)�$"=!�$"/|�$"!/�$"q�$"Q�$ �"���0�$"�1�$"�2�$"�3�$"�4�$"�5�$"�6�$"u7�$"g8�$"Y9�$"K,�$"=:�$"/@�$"!+�$"-�$"#�$$��"���v�$"V�$&����"���p�$"P�$V4:5$45"�	�	$
4	5"�"��P[�$j4	5("4
445554@5	
	LO	

"���;�$2$$���

"���6]�$"$�4��566{�$�4@5$D�"V	(
45"N
$	�}&	�"8	�
	"���	�~&	�
	"���	�
	"���
	"�����"���*�$�4@5$D�45("4
44555$"�45("4
44555$"�"��?�$"k�$"K�$D^�$Dh�$"H�$<4:5$	"���"���'�$6�(6�����"��M���"��+�$N�~�$ �"����"���6=	gchars
	6gstate	6gparams		6g
conditions		6g	end-group		6g	min-count		6g	max-count		6gkey		(�gcolon?	e�g	min-count		|�gnumbers	��gselector	�gat?		�gchars	�gchars		�gtilde?	
�gnumbers	b�gt	��gnumbers	��gt	��gargc	Nvgkey	�.gfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	�	��	�	!��	�	��	�	��	%�	��	(�	��	(�	����	����	*����	3��	�	���	����	����	����	+����	%���	���	��"�	��$�	��&�	+��)�	%��0�	��3�	��E�	��N�	��]�	*��e�	��m�	*��n�	.��|�	.��|�	���	 ���	,���	5���	 ���	$���	$���	����	���	���	#���	'����	����	����	����	����	����	)����	����	���		$���	��%	��.�	��4$	��7%	��9%	$��:%	-��?&	��B&	��X%	��^)	'��`)	��i�	��o+	��t,	��u-	��|-	,��-	&���-	���,	���/	'���/	����	���0	���0	���1	.���1	���2	.���2	"����	����	����	
����	����	
����	
����	����	����	����	����	����	����	����	����	����	���	���	��3	"��3	+��5	"��!5	2��32	��<�	��=6	��I6	��K7	$��M7	)��O7	��R8	"��T9	"��U9	+��Z�	��b�	��j�	��p�	��s�	��v�	)��~�	����	���;	%���;	"����	����	����	����	����	����	)����	����	���=	%���=	"���8	����	��B	��B	��B	���	��!D	 ��#D	��,�	��;F	(��GF	$��NF	��SG	 ��UG	,��VG	5��_I	 ��dJ	 ��vG	���	���L	���L	���M	'���M	���N	���N	%���N	2���N	,���N	���P	���P	*���P	3���R	���R	.���P	����	���T	���T	���U	���U	*���U	1��U	��X	��X	*��X	3��.X	��2[	��6[	���	6	gnamegloop�C	�h(�]	OQ45

6�gfmt
		!gloop	
	!gfilenameflanguage/tree-il/analyze.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	!�	��		!gnamegformat-string-argument-count�C	Rt�	hY]L6Qgfilenameflanguage/tree-il/analyze.scm�
p	��	p	)��		
Che-13C]gargs
			gfilenameflanguage/tree-il/analyze.scm�
p	��			


Cp		cLh
hH�],""��$��&l
��	�	�$4O5"
45$
45"$$�CCC�&
���CCC�$c�	&.
��45$$�CCC�&
��	�&C"��"���"����$&�	&
��&C"���"���"����gexp
	Cgproc	Cgspecial-name		Cgenv		Cgw		#�gw		*�gw		1�gmod		V�gvar		l�gw	��gw	��gvar	��gw	�
gw	+;gfilenameflanguage/tree-il/analyze.scm�
]
��	d	��	9o	��	:p	��	Mq	��	Vo	��	^r	��	_r	��	lo	��	ts	��	ws	��	{s	��	~s	+���s	&���d	���b	���d	���i	���i	���j	���j	���j	���k	���k	���d	��	C	gnameg	proc-ref?�g
documentationf�Return #t when EXP designates procedure PROC in ENV.  As a last
resort, return #t when EXP refers to the global variable SPECIAL-NAME.�C	
R	
	�h�]6�gt-a11d84f71ea-25ec
		gt-a11d84f71ea-25ef		gfilenameflanguage/tree-il/analyze.scm�
x	��	
x	+��	x	��			gnameggettext?�C	R	
	
	h�]6�gt-a11d84f71ea-25f6
		gt-a11d84f71ea-25f9		gfilenameflanguage/tree-il/analyze.scm�
y	��	
y	-��	y	��			gnameg	ngettext?�C	RB	n		h��]B"W"��$��&�
��45$�	��$����$w�&l
��45$T�$K���$8�&-
��	4	5$�$�$CCCCCCCCCCCCCC�$��&s
��45$W	��$E�(:��$*�&
��45$C"���"���"���"���"���"���"���"����$*�&
��45$C"��|"��x"��t�gx
	�genv	�gw		#�gw		7�gw		F�gx		F�gw		c�gw		}�gx		}�gw		��gw	�Ugw	�Qgw	Igw	-Agw	v�gfilenameflanguage/tree-il/analyze.scm�
{
��	}	��	&�	��	2}	����	���}	��	�	gnameg	const-fmt�C	R�	��						Ln			Q	��	��		hp]4L>G$R$J&"L�$&"L�"$CLLL6CC	gmin
	
	ngmax	
	ngt		M	jgfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	�	��	�	��	$�	-��	(�	 ��	)�	$��	2�	3��	6�	��	:�	-��	>�	 ��	?�	$��	H�	3��	M�	��	\�	$��	`�	0��	j�	��		n
C�		h�]LL6�g_
		gkey		gfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	
�	%��	�	��			Ch�]]2"&�$���$���45$54455$"445>"G""O"'4455$
64	
56�$�&
��C"���"����$E�
&8
��4455$$"6"��i"��e"��a456456�$����$���4L5$n45$54455$"445>"G"4L545OO6"��9"��5"��1Ugargs
	�gloc	�gvx		gvy		gvx		!
gw	�gw	�gvx	9�gvy	9�gvx	J�gvy	J�gfmt	��gcount	��
gfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	(�	��	2�	
��	3�	��	6�	"��	>�	��	B�	��	G�	��	K�	��	O�	#��	P�	/��	[�	��	k�	
��	q�	��	{�	
����	����	"����	
����	
����	 ����	
����	����	����	,����	
���	
���	���	���	/���	
���	��#�	��$�	/��,�	
��,�	��O�	��[�	��\�	��f�	
��g�	��j�	"��r�	��v�	��{�	���	����	#����	/����	����	����	����	
����	����	��7	�	gnamegcheck-format-args�C			nk			�O	hq]6igt-a11d84f71ea-2e3a
		
gfilenameflanguage/tree-il/analyze.scm�
�	��		
C�		 �	O	hq]6igt-a11d84f71ea-2e41
		
gfilenameflanguage/tree-il/analyze.scm�
�	)��		
ChH]Z"a�$X���$E��4L545$#�$45"���CCCC�$����$����$x�&k
��45$Q�$F"�(45"��$���	~�$�	�$R	�	�
�$
�"���	�$"���4455"�
	

�$
"��e4455"W
	

�$
"��94455"+
	4455"4	5"���4
5$C4
4455>"GC"��"��"���"���"���"���@gargs
	gloc	gw			egx			egw		$	cgx		$	cgw		1	cgx		qgw	�gx	�gw	�gchars	��gresult	��gw	��gx		��gw	
�=gx	�=gx	
7gx	
?igx	
k�gopts	��gt	��gfilenameflanguage/tree-il/analyze.scm�
�	��	�	��	)�	��	1�	��	H�	-��	U�	$��	_�	
��	g�	����		����	����	����	���	���	��
�	��"�	��#�	��T�	��U�	����	����	����		����	����	����		����	
����	����	����	����	����	'����	����	!����	����	����	��%		gnamegcheck-simple-format-args�CBt	��	 	!hb��hY]LL6Qgfilenameflanguage/tree-il/analyze.scm�
�	��	
�	 ��		

Che-13C]gargs
			gfilenameflanguage/tree-il/analyze.scm�
�	��			


C	#	%h�]DOOQQ"�"-�$"�&
���$��&�
���$�	�		&Y	�
4
$"	455$+4
$"	45>"8G"1"-
		&Y	�
4
$"	455$+4
$"	45>"�G"�"�
"�	"�"�"�"�"��$��&�
���$s�&f
��
�$K	�		&5	�
4
$"	45>"+G"$
"��K	"��D"��="��9"��/"��+�$��&�
���$��&�
��	�	45$4
O5"

& 4	$"	455"$"
�$+4	$"	45>"G"
	""��H""��@""��2""��*C�gx
	�g_	�genv		�glocs		�gcheck-format-args		�gcheck-simple-format-args		�gw		;Lgw		AIgw		\>gw			l7gw	
	{�gw	
�0gw	h�gw	n�gw	��gw		��gw	
��gw	�gw	�gw	1�gw		8�gproc	
[�gt	��gfilenameflanguage/tree-il/analyze.scm�
�	��	#�	��	~�	
����	'����	/����	
����	����	
����	%����	-����	
����	����	
����	'����	/����	
����	����	
��	�	%���	-���	
��T�	����	����	 ����	(����	����	��;�	��E�	��F�	��[�	��e�	��f�	��p�	1��w�	9����	����	����	����	
����	����	&����	.����	����	��-	�	C�ih�]C�gx
		g_		genv			glocs			gfilenameflanguage/tree-il/analyze.scm�
�	��			Ch�]C�gx
		g_		genv			glocs			gfilenameflanguage/tree-il/analyze.scm�
�	��			Chq]Cig_
		genv		gfilenameflanguage/tree-il/analyze.scm�
�	��			C�:RCcgm
		,grtd
A�A�grtd
m�ngdown
�A��gup�A��gvars	�K�agrefs	�K�aginit	�a��grtd
����gadd-ref-from-context
����gdown����gpost	����grefs	����gdefs	����ginit	����grtd
­gleaf
�U�gdown�U�grefs	�_�ugdefs	�_�uginit	�u�grtd
��-gdown
~tgup~tgpost	~tgtoplevel-calls	��glexical-lambdas	��gtoplevel-lambdas	��ginit	�kgdown
R�T�gfilenameflanguage/tree-il/analyze.scm�		
���
��=2�
��>5#
��j*,
��j�Z
��~3`
����f	���K�	���af	����d
�����
�����
�����
���S�
����	���s	����S	����	����
����^
����d
��׮z	���_�	���uz	���x
����
����
���)	����	���)	��w'
��x�	���	
����	����
��2-�
��7x]
��8\x
��9Ey
��<�{
��R��	��T��
��,	T�
C6language/tree-il/primitives.go000064400000133444150536206120012423 0ustar00GOOF----LE-8-2.0�]l4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	g
primitives�		�	
gfilenameS�	flanguage/tree-il/primitives.scm�	gimportsS�	
gsystem�	gbase�	gpmatch�	
�	�	gice-9�	gmatch�	�	�	grnrs�	gbytevectors�	�	�	gsyntax�	
�	�	�	�	gsrfi�	 gsrfi-4�	! �	"!�	#gsrfi-16�	$#�	%$�	&"%�	'gexportsS�	(gresolve-primitives!�	)gadd-interesting-primitive!�	*gexpand-primitives!�	+geffect-free-primitive?�	,g effect+exception-free-primitive?�	-gconstructor-primitive?�	.gaccessor-primitive?�	/gsingly-valued-primitive?�	0gbailout-primitive?�	1gnegate-primitive�	2()*+,-./01
�	3gset-current-module�	43�	53�	6gapply�	7g@apply�	8gcall-with-values�	9g@call-with-values�	:gcall-with-current-continuation�	;g@call-with-current-continuation�	<gcall/cc�	=gdynamic-wind�	>g
@dynamic-wind�	?gvalues�	@geq?�	Ageqv?�	Bgequal?�	Cgmemq�	Dgmemv�	Eg=�	Fg<�	Gg>�	Hg<=�	Ig>=�	Jgzero?�	Kg	positive?�	Lg	negative?�	Mg+�	Ng*�	Og-�	Pg/�	Qg1-�	Rg1+�	Sgquotient�	Tg	remainder�	Ugmodulo�	Vgash�	Wglogand�	Xglogior�	Yglogxor�	Zglognot�	[gnot�	\gpair?�	]gnull?�	^glist?�	_gsymbol?�	`gvector?�	agstring?�	bgstruct?�	cgnumber?�	dgchar?�	egcomplex?�	fgreal?�	gg	rational?�	hginf?�	ignan?�	jginteger?�	kgexact?�	lginexact?�	mgeven?�	ngodd?�	ogchar<?�	pgchar<=?�	qgchar>=?�	rgchar>?�	sg
integer->char�	tg
char->integer�	ugnumber->string�	vgstring->number�	wgacons�	xgcons�	ygcons*�	zglist�	{gvector�	|gcar�	}gcdr�	~gset-car!�	gset-cdr!��gcaar��gcadr��gcdar��gcddr��gcaaar��gcaadr��gcadar��gcaddr��gcdaar��gcdadr��gcddar��gcdddr��gcaaaar��gcaaadr��gcaadar��gcaaddr��gcadaar��gcadadr��gcaddar��gcadddr��gcdaaar��gcdaadr��gcdadar��gcdaddr��gcddaar��gcddadr��gcdddar��gcddddr��g
vector-ref��gvector-set!��gvariable-ref��g
variable-set!��gvariable-bound?��g	fluid-ref��g
fluid-set!��g@prompt��gcall-with-prompt��g@abort��gabort-to-prompt��gmake-prompt-tag��gthrow��gerror��g	scm-error��g
string-length��g
string-ref��gstring-set!��g
struct-vtable��gmake-struct��g
struct-ref��gstruct-set!��gbytevector-u8-ref��gbytevector-u8-set!��gbytevector-s8-ref��gbytevector-s8-set!��gu8vector-ref��g
u8vector-set!��gs8vector-ref��g
s8vector-set!��gbytevector-u16-ref��gbytevector-u16-set!��gbytevector-u16-native-ref��gbytevector-u16-native-set!��gbytevector-s16-ref��gbytevector-s16-set!��gbytevector-s16-native-ref��gbytevector-s16-native-set!��g
u16vector-ref��gu16vector-set!��g
s16vector-ref��gs16vector-set!��gbytevector-u32-ref��gbytevector-u32-set!��gbytevector-u32-native-ref��gbytevector-u32-native-set!��gbytevector-s32-ref��gbytevector-s32-set!��gbytevector-s32-native-ref��gbytevector-s32-native-set!��g
u32vector-ref��gu32vector-set!��g
s32vector-ref��gs32vector-set!��gbytevector-u64-ref��gbytevector-u64-set!��gbytevector-u64-native-ref��gbytevector-u64-native-set!��gbytevector-s64-ref��gbytevector-s64-set!��gbytevector-s64-native-ref��gbytevector-s64-native-set!��g
u64vector-ref��gu64vector-set!��g
s64vector-ref��gs64vector-set!��gbytevector-ieee-single-ref��gbytevector-ieee-single-set!��g!bytevector-ieee-single-native-ref��g"bytevector-ieee-single-native-set!��gbytevector-ieee-double-ref��gbytevector-ieee-double-set!��g!bytevector-ieee-double-native-ref��g"bytevector-ieee-double-native-set!��g
f32vector-ref��gf32vector-set!��g
f64vector-ref��gf64vector-set!��6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~�������������������������������������������������������������������������������������������������������������g*interesting-primitive-names*��g
hashq-set!��g*interesting-primitive-vars*��gmodule-variable��gcurrent-module��funbound interesting primitive��gmake-hash-table��gfor-each��gmake-struct/no-tail��wxyz{�����g*primitive-constructors*���|}CD����������������������g*primitive-accessors*��gappend��������g*effect-free-primitives*��?@AB[\]^_`bacdwxyz{��g"*effect+exception-free-primitives*��6789:;<=>?������g*multiply-valued-primitives*�����g*bailout-primitives*�mn��kl��oq��rp���g*negatable-primitives*�g*effect-free-primitive-table*�	g(*effect+exceptions-free-primitive-table*�
g!*multiply-valued-primitive-table*�g*bailout-primitive-table*�g*negatable-primitive-table*�
g	hashq-ref�gpost-order!�g<toplevel-ref>�gtoplevel-ref-src�gtoplevel-ref-name�gand=>�gmake-primitive-ref�g<module-ref>�gmodule-ref-src�gmodule-ref-mod�gmodule-ref-name�gmodule-ref-public?�gresolve-module�gmodule-public-interface�gidentity�g*primitive-expand-table*�g
pre-order!�g
<application>�gapplication-src� gapplication-proc�!gapplication-args�"gprimitive-ref?�#gprimitive-ref-name�$gmake-syntax-transformer�%$�&$�'gdefine-primitive-expander�(gmacro�)g$sc-dispatch�*)�+)�,g_�-gany�.,-��/g
syntax->datum�0/�1/�2g
datum->syntax�32�42�5greverse�6gquote�7g
make-const�8gsrc�9gmake-application�:gself-evaluating?�;f	what what�<gif�=fbad consequent yall�>g
match-lambda*�?,�@gsyntax-violation�A@�B@�Cf-source expression failed to match any pattern�Dglength�ED�FD�Gglast�HG�I5�J5�Kgconst?�Lg	const-exp�Mggensym�Nfb�Ogmake-lexical-ref�Pgb�Qgmake-let�RP�Sgmake-conditional�Tgchained-comparison-expander�UFGHIE�V�Wgmost-negative-fixnum�Xgmost-positive-fixnum�Ygmaybe-simplify-to-eq�Zfpre-�[fthunk-�\fpost-�]gpre�^gthunk�_gpost�`]^_�agmake-dynwind�b]_�cgmake-dynref�dgmake-dynset�egmake-prompt�fgmake-lambda-case�ggtree-il-src�hgargs�ighandler�ji�kg
make-abort�C5h`�b]4	
&'2545>"G��R������h0�]	4455$"	456�gname
		0gt		,gfilenameflanguage/tree-il/primitives.scm�
	t
��		v	��	
	v	#��		v	��		v	��	!	w	��	%	w	��	)	w	��	0	u	��
		0gnamegadd-interesting-primitive!�C)R4�i5�R4�i)i�i>"G��R��R?@ABEFGHIJKLVWXYZMNOPQRSTU[\]^_`bacdefghijklmnopqrstuv������������������������������4��i�i5�������������������������������������������������������������������������������������R��R��RRR4�i5R4�i5	R4�i5
R4�i5R4�i5R4�i�hl]6dgx
		gfilenameflanguage/tree-il/primitives.scm�
�	
��	�	��		C�i>"G4�i�	hl]6dgx
		gfilenameflanguage/tree-il/primitives.scm�
�	
��	�	��		C�i>"G4�i�
hl]6dgx
		gfilenameflanguage/tree-il/primitives.scm�
�	
��	�	��		C�i>"G4�i�hl]6dgx
		gfilenameflanguage/tree-il/primitives.scm�
�	
��	�	��		Ci>"G4�i�h(�]4��>"G��6�gx
		&gfilenameflanguage/tree-il/primitives.scm�
�	
��	�	��	
�	4��	
�	<��	�	��	!�	4��	$�	<��	&�	��			&Ci>"GC�h�]6�gprim
		
gfilenameflanguage/tree-il/primitives.scm�
�
��	
�	��		
gnamegconstructor-primitive?�C-RC�h�]6�gprim
		
gfilenameflanguage/tree-il/primitives.scm�
�
��	
�	��		
gnamegaccessor-primitive?�C.R
h�]6�gprim
		
gfilenameflanguage/tree-il/primitives.scm�
�
��	
�	��		
gnamegeffect-free-primitive?�C+R
	h�]6�gprim
		
gfilenameflanguage/tree-il/primitives.scm�
�
��	
�	��		
gnameg effect+exception-free-primitive?�C,R

h�]45�C�gprim
		
gfilenameflanguage/tree-il/primitives.scm�
�
��	�	��	�	��		
gnamegsingly-valued-primitive?�C/R
h�]6�gprim
		
gfilenameflanguage/tree-il/primitives.scm�
�
��	
�	��		
gnamegbailout-primitive?�C0R
h�]6�gprim
		
gfilenameflanguage/tree-il/primitives.scm�
�
��	
�	��		
gnamegnegate-primitive�C1R
��ho]L6ggname
		
gfilenameflanguage/tree-il/primitives.scm�
�	��	
�	��		
C
��ho]L6ggname
		
gfilenameflanguage/tree-il/primitives.scm�
	��	
	��		
Ch �]44L55LO6gm
		gfilenameflanguage/tree-il/primitives.scm�
�	��	�	��	
�	#��	�	��	�	��		Ch�K])�&-454544L55O6	&K4
545454
5445$"5O6CCgx
	�grtd	�gsrc			<gname			<gsrc		`�gmod		`�gname		`�gpublic?		`�gfilenameflanguage/tree-il/primitives.scm�
�	��	�	��	$�	��	)�	��	3�	��	<�	��	D�	��	k�	��	n�	��	z�	����	����	��
	�Ch�]O6�gx
		gmod		gfilenameflanguage/tree-il/primitives.scm�
�
��	�	��			gnamegresolve-primitives!�C(R4�i5R !"
#	h`
])�&H45454545$ 4455$@CCCgx
		Ygrtd		Ygsrc		$	Wgproc		$	Wgargs		$	Wgexpand		C	Ugfilenameflanguage/tree-il/primitives.scm�
	��		��	+	
��	5	��	6	��	;	&��	C	��	C	
��	K	��	S	��		YCh�]6�gx
		
gfilenameflanguage/tree-il/primitives.scm�
	
��	

	��		
gnamegexpand-primitives!�C*R4&'(+.14z5y�6789:�;
h��]"�(45�C�$4455�C��$F���&����" 	��4L��5�"�����$���"��l4
�5$���"��H�6"��4�gargs
	�gin	�gout		�gfilenameflanguage/tree-il/primitives.scm�
	��		��		��		��		!��		��		
��		��	 	��	$	$��	/	��	6	��	7	
��	;	��	>	��	A	 ��	D	*��	H	��	J 	��	O 	.��	Q 	��	X!	��	c!	L��	g!	��	k"	/��	p"	<��	s"	/��	v!	��	y	���	
���$	���$	
���	���&	���&	 ���&	���&	
���'	
���'	���'	
���	���(	���(	 ���(	2���(	 ���(	���(	
���*	���*	 ���*	
���	���	���	��6	�gnameginline-args�C<986c7�=
h0�]A�$���&��$����$q���$C��(4L54L5C4L5C4L5C4L5C4L5C4L5C�$C45$
C$	6C�gexp
	*gvx	�gvy		�gvx		(�gvy		(�gvx		9�gvy		9�gvx		J�gvy		J�	gfilenameflanguage/tree-il/primitives.scm�
+	��	-	��		,	��	.	��	V0		��	Y1	��	`2	��	i0		��	l4		��	v4	:��	y4		��	}5	���5	*���5	���4		���4	:���4		���5	���5	*���5	���4		���4	:���4		���5	���5	*���5	���4		���4	:���4		���5	���5	*���5	���4		���4	:���4		���5	���5	*���5	���4		���6	��,	��9	��,	��:	�� ,	��$>	��(>	��0	*gnameg
consequent�C�6>5?8
h��-13OOQQ"5(4�5",��	��4��5�"���"����C�gsym
			|gclauses			|ginline-args			|g
consequent			|gin		7	lgout		7	lgfilenameflanguage/tree-il/primitives.scm�

��	(?	��	7B	��	=C	��	>D	��	BD	'��	ED	!��	GD	��	NE	��	QF	"��	TF	,��	UF	"��	VG	%��	[G	1��	^G	%��	aF	"��	dF	��	lE	��	lB	��	oB	-��	wB	��	x?	��			|
Cht]	45L4?6lgargs
		gv			gfilenameflanguage/tree-il/primitives.scm�	
��		CBCh(r]	45$O@6jgy
		'gtmp		'gfilenameflanguage/tree-il/primitives.scm�

��		'C5'R4�iiJ9E7hPZ-13�$=���$*�(!�454
56CCCRgexpr
			Ogw		Mgx			Mgw		+	I			O


C>"G4�iiK9G7hPZ-13�$=���$*�(!�454
56CCCRgexpr
			Ogw		Mgx			Mgw		+	I			O


C>"G4�iiL9F7hPZ-13�$=���$*�(!�454
56CCCRgexpr
			Ogw		Mgx			Mgw		+	I			O


C>"G4�iiMFHJ9MKLRQ7?
hpK-13""��$����$����$���45�$45"$	�"$C"x
�$L45	�$:	�(1	�
45445��5
6CC	�$	�	�
��
	"���C
	"��yCCC�$���$����$��(��"456"T45$E45&4	56	�45&4
56"���"���45$E45&4	56	�45&4
56"��\"��X"��	"��"��"����$L�(�
6���$$�(�456"���"���"���Cgexpr
		kgw	gx		gw		/gx		/gw		@gx		@gtail-len		Kglen		`gls			|�gn	
	|�gp-ls		|�gz	��gw	
��gw	��gwgx	gw	'gx	'gw	<gw%.gw4ggx	4ggw	I_gfilenameflanguage/tree-il/primitives.scm�]\	��i\	*��s\	���^	.���^	���X	���X	"���X	���Z	&���Z	��		k


C>"G4�iiNFHJ9N7?	h`a-13"��$����$����$���45�$45"$	�"$C"x
�$L45	�$:	�(1	�
45445��5
6CC	�$	�	�
��
	"���C
	"��yCCC�$L�(�6���$$�(�456"���"���"���Ygexpr
		\gw	gx		gw		+gx		+gw		<�gx		<�gtail-len		G�glen		\�gls			x�gn	
	x�gp-ls		x�gz	��gw	
��gw	��gwgw%Xgx	%Xgw	:P		\


C>"G4�iiOFHJ9OKLQ7h��-13"�"��$����$����$���45�$45"$	�"$C"x
�$L45	�$:	�(1	�
45445��5
6CC	�$	�	�
��
	"���C
	"��yCCC�$����$r���$]�(R�"45645$$45&4	56"���"���"���"��~"��z"��v�$A���$,�(!�454

56"��."��*"��&�gexpr
		�gw	gx		gw		/gx		/gw		@gx		@gtail-len		Kglen		`gls			|�gn	
	|�gp-ls		|�gz	��gw	
��gw	��gw�gx	�gw	'�gx	'�gw	<�gw��gx	��gw	��gfilenameflanguage/tree-il/primitives.scm�Yj	��ej	"��oj	��		�


C>"G4�iiPFHJ9P7hXQ-13"��$����$����$���45�$45"$	�"$C"x
�$L45	�$:	�(1	�
45445��5
6CC	�$	�	�
��
	"���C
	"��yCCC�$A���$,�(!�45456"���"���"���Igexpr
		Qgw	gx		gw		+gx		+gw		<�gx		<�gtail-len		G�glen		\�gls			x�gn	
	x�gp-ls		x�gz	��gw	
��gw	��gwMgx	Mgw	'E		Q


C>"G4�iiXFHJ9X7h��-13"W"��$����$����$���45�$45"$	�"$C"x
�$L45	�$:	�(1	�
45445��5
6CC	�$	�	�
��
	"���C
	"��yCCC�$P���$;���$&�(�456"���"���"���"����$T�(�
6���$,�(!�454
56"��R"��N"��J�gexpr
		�gw	gx		gw		/gx		/gw		@gx		@gtail-len		Kglen		`gls			|�gn	
	|�gp-ls		|�gz	��gw	
��gw	��gw`gx	`gw	'\gx	'\gw	<Tgwu~gw��gx	��gw	��		�


C>"G4�iiWFHJ9W7h��-13"W"��$����$����$���45�$45"$	�"$C"x
�$L45	�$:	�(1	�
45445��5
6CC	�$	�	�
��
	"���C
	"��yCCC�$P���$;���$&�(�456"���"���"���"����$V�(
�	�6���$-�("�454	�56"��P"��L"��H�gexpr
		�gw	gx		gw		/gx		/gw		@gx		@gtail-len		Kglen		`gls			|�gn	
	|�gp-ls		|�gz	��gw	
��gw	��gw`gx	`gw	'\gx	'\gw	<Tgwugw��gx	��gw	��		�


C>"G4�ii�9|h`Z-13�$H���$5�(,�4544556CCCRgexpr
			Zgw		Xgx			Xgw		+	T			Z


C>"G4�ii�9|}h`Z-13�$H���$5�(,�4544556CCCRgexpr
			Zgw		Xgx			Xgw		+	T			Z


C>"G4�ii�9}|h`Z-13�$H���$5�(,�4544556CCCRgexpr
			Zgw		Xgx			Xgw		+	T			Z


C>"G4�ii�9}h`Z-13�$H���$5�(,�4544556CCCRgexpr
			Zgw		Xgx			Xgw		+	T			Z


C>"G4�ii�9|hpZ-13�$[���$H�(?�45445445556CCCRgexpr
			mgw		kgx			kgw		+	g			m


C>"G4�ii�9|}hpZ-13�$[���$H�(?�45445445556CCCRgexpr
			mgw		kgx			kgw		+	g			m


C>"G4�ii�9|}hpZ-13�$[���$H�(?�45445445556CCCRgexpr
			mgw		kgx			kgw		+	g			m


C>"G4�ii�9|}hpZ-13�$[���$H�(?�45445445556CCCRgexpr
			mgw		kgx			kgw		+	g			m


C>"G4�ii�9}|hpZ-13�$[���$H�(?�45445445556CCCRgexpr
			mgw		kgx			kgw		+	g			m


C>"G4�ii�9}|hpZ-13�$[���$H�(?�45445445556CCCRgexpr
			mgw		kgx			kgw		+	g			m


C>"G4�ii�9}|hpZ-13�$[���$H�(?�45445445556CCCRgexpr
			mgw		kgx			kgw		+	g			m


C>"G4�ii�9}hpZ-13�$[���$H�(?�45445445556CCCRgexpr
			mgw		kgx			kgw		+	g			m


C>"G4�ii�9|h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9|}h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9|}h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9|}h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9|}h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9|}h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9|}h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9|}h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9}|h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9}|h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9}|h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9}|h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9}|h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9}|h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9}|h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�ii�9}h�\-13�$n���$[�(R�454454454455556CCCTgexpr
		�gw		~gx			~gw		+	z		�


C>"G4�iiy9xy?h-13"�"b�$Y���$F���$3��45445�56CCC�$P���$;���$&�(�456"��O"��K"��G"��C�$9���$$�(�456"��"���"���gexpr
		gw		qgx			qgw		/	ogx		/	ogw		@	mgx		@	mgw��gx	��gw	��gx	��gw	��gw�gx	�gw	�		


C>"G4�iiw9xh��-13�$r���$_���$L���$9�(0�4544556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8	~gx		8	~gw		M	z		�


C>"G4�ii697h`�-13�$G���$4���$!��45��6CCCgexpr
			Ygw		Wgx			Wgw		'	Ugx		'	Ugw		8	Sgx		8	S			Y


C>"G4�ii899h`x-13�$J���$7���$$�(�456CCCCpgexpr
			\gw		Zgx			Zgw		'	Xgx		'	Xgw		<	T			\


C>"G4�ii:9;hHZ-13�$5���$"�(�456CCCRgexpr
			Ggw		Egx			Egw		+	A			G


C>"G4�ii<9;hHZ-13�$5���$"�(�456CCCRgexpr
			Ggw		Egx			Egw		+	A			G


C>"G4�ii�KLck9�h�!-13�$����$t���$a��45$J4545$45$
�""$45�6CCCCCgexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gn		N	wgfilenameflanguage/tree-il/primitives.scm�	=�	��	H�	��	N�	��	Q�	��	[�	
��	\�	��	f�	
��	i�	)��	{�	��
		�


C>"G4�ii�9�h`x-13�$J���$7���$$�(�456CCCCpgexpr
			\gw		Zgx			Zgw		'	Xgx		'	Xgw		<	T			\


C>"G4�ii�9�hx�-13�$_���$L���$9���$&�(�456CCCCC�gexpr
			qgw		ogx			ogw		'	mgx		'	mgw		8	kgx		8	kgw		M	g			q


C>"G4�ii�9�h`x-13�$J���$7���$$�(�456CCCCpgexpr
			\gw		Zgx			Zgw		'	Xgx		'	Xgw		<	T			\


C>"G4�ii�9�hx�-13�$_���$L���$9���$&�(�456CCCCC�gexpr
			qgw		ogx			ogw		'	mgx		'	mgw		8	kgx		8	kgw		M	g			q


C>"G4�ii�9�N7hxx-13�$f���$S���$@�(7�454454	556CCCCpgexpr
			xgw		vgx			vgw		'	tgx		'	tgw		<	p			x


C>"G4�ii�9�N7h��-13�${���$h���$U���$B�(9�454454	556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gw		M�		�


C>"G4�ii�9�N7hxx-13�$f���$S���$@�(7�454454	556CCCCpgexpr
			xgw		vgx			vgw		'	tgx		'	tgw		<	p			x


C>"G4�ii�9�N7h��-13�${���$h���$U���$B�(9�454454	556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gw		M�		�


C>"G4�ii�9�N7hxx-13�$f���$S���$@�(7�454454	556CCCCpgexpr
			xgw		vgx			vgw		'	tgx		'	tgw		<	p			x


C>"G4�ii�9�N7h��-13�${���$h���$U���$B�(9�454454	556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gw		M�		�


C>"G4�ii�9�N7hxx-13�$f���$S���$@�(7�454454	556CCCCpgexpr
			xgw		vgx			vgw		'	tgx		'	tgw		<	p			x


C>"G4�ii�9�N7h��-13�${���$h���$U���$B�(9�454454	556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gw		M�		�


C>"G4�ii�9�N7hxx-13�$f���$S���$@�(7�454454	556CCCCpgexpr
			xgw		vgx			vgw		'	tgx		'	tgw		<	p			x


C>"G4�ii�9�N7h��-13�${���$h���$U���$B�(9�454454	556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gw		M�		�


C>"G4�ii�9�N7hxx-13�$f���$S���$@�(7�454454	556CCCCpgexpr
			xgw		vgx			vgw		'	tgx		'	tgw		<	p			x


C>"G4�ii�9�N7h��-13�${���$h���$U���$B�(9�454454	556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gw		M�		�


C>"G4�ii�9�N7hxx-13�$f���$S���$@�(7�454454	556CCCCpgexpr
			xgw		vgx			vgw		'	tgx		'	tgw		<	p			x


C>"G4�ii�9�N7h��-13�${���$h���$U���$B�(9�454454	556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gw		M�		�


C>"G4�ii�9�N7hxx-13�$f���$S���$@�(7�454454	556CCCCpgexpr
			xgw		vgx			vgw		'	tgx		'	tgw		<	p			x


C>"G4�ii�9�N7h��-13�${���$h���$U���$B�(9�454454	556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gw		M�		�


C>"G4�ii�9�N7hxx-13�$f���$S���$@�(7�454454	556CCCCpgexpr
			xgw		vgx			vgw		'	tgx		'	tgw		<	p			x


C>"G4�ii�9�N7h��-13�${���$h���$U���$B�(9�454454	556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gw		M�		�


C>"G4�ii�9�N7hxx-13�$f���$S���$@�(7�454454	556CCCCpgexpr
			xgw		vgx			vgw		'	tgx		'	tgw		<	p			x


C>"G4�ii�9�N7h��-13�${���$h���$U���$B�(9�454454	556CCCCC�gexpr
		�gw	�gx		�gw		'�gx		'�gw		8�gx		8�gw		M�		�


C>"G7MNOPQRS9h�0)
36)3C)3C-134L545454	4
54
�54556(gsrc
			gsrc
		ga		gsrc
	$	&ga	$	&gb		$	&gsrc
	/�ga	/�gb		/�grest		/�gprim		8�gb-sym		A�gb*		N�
gfilenameflanguage/tree-il/primitives.scm�
�	��	�	��	�	��	0�	��	8�	��	;�	��	?�	��	A�	��	A�	��	D�	��	J�	&��	N�	��	N�	��	V�	��	[�	��	`�	��	a�	��	f�	#��	s�	>��	u�	#��	v�	#����	>����	#����	#����	����	��							$	&		/�	
	Ch�]OC�g	prim-name
		
gfilenameflanguage/tree-il/primitives.scm�
�
��		
gnamegchained-comparison-expander�CTR4�i�Th}]456ug	prim-name
		gfilenameflanguage/tree-il/primitives.scm�
�	
��			��		��		CU>"GKLCVjkWX9@h�e]45$|4545$"?�$"345$'45$�$	�"""$	L4
56CC]ga
	�gb	�gv		�gt			ngfilenameflanguage/tree-il/primitives.scm�
		��	
	��	

	��		��		��		��		��	/
	��	3	��	4
	��	9	��	C	��	D	��	N	��	S	��	r	��	w	)��	|	@��	~	)���	%���	��	�	gnamegmaybe-simplify�Ch@),3OQ45$C6-13Cgsrc
			2ga			2gb				2gmaybe-simplify			2gt			2gelse
	;	=gfilenameflanguage/tree-il/primitives.scm�
	��			��		��	2	��	;	��			2		;	=


gnamegmaybe-simplify-to-eq�CYR4�iiAYi>"G4�iiBYi>"G4�ii=MZ[\Q`aO]9^_
hx�)d345454544	54
4554556-13C�gsrc
			jgpre			jgthunk				jgpost				jgPRE			jgTHUNK			jgPOST			jgelse
	s	ugfilenameflanguage/tree-il/primitives.scm�
	��	
	��		"��		��		��		$��		��		��		#��		��		��	*"	��	3#	��	<$	��	=%	��	B'	��	G'	(��	K'	��	L(	��	P(	(��	U(	=��	Y(	(��	Z(	K��	\(	��	])	��	b)	(��	f)	��	h%	��	j 	��	s	��			j		s	u


C>"G4�ii>MZ\QbaO]_
hHh]45454454	556`gsrc
		Ggpre		Ggexpr			Ggpost			GgPRE			GgPOST			Ggfilenameflanguage/tree-il/primitives.scm�
.	��	0	��	0	"��		0	��	
1	��	1	#��	1	��	0	��	4	��	!5	��	(6	��	)7	��	.9	��	39	(��	79	��	:;	��	?;	(��	C;	��	E7	��	G2	��		G	C>"G4�ii�ch �)36-13C�gsrc
			gfluid			gelse
		gfilenameflanguage/tree-il/primitives.scm�
?	��	@	��	?	��						


C>"G4�ii�dh �)
36-13C�gsrc
			gfluid			gexp				gelse
		gfilenameflanguage/tree-il/primitives.scm�
E	��	F	��	E	��						


C>"G4�ii�Mefgh96O
h`�)I3454454454	555	6-13Cygsrc
			Ogtag			Ogexp				Oghandler				Ogargs-sym			Ogelse
	X	Zgfilenameflanguage/tree-il/primitives.scm�
K	��	
M	��	M	��	R	��	S	��	#S	)��	&S	0��	(S	9��	-S	=��	.T	��	2T	(��	7T	?��	9T	(��	<V	+��	AV	@��	EV	+��	HU	%��	JT	��	MR	��	ON	��	XK	��			O		X	Z


C>"G4�ii�MQje9fgh6Oi
h�
)r3454544544544	
5454555	56-13Cgsrc
			xgtag			xgthunk				xghandler				xghandler-sym			xgargs-sym			xgelse
��gfilenameflanguage/tree-il/primitives.scm�
\	��	
^	"��	_	��	^	��	a	��	"a	!��	'a	4��	(b	��	/c	��	5c	6��	7c	��	8f	��	;g	��	Bg	*��	Eg	1��	Gg	:��	Lg	>��	Mh	��	Qi	��	Vi	/��	Xi	��	Yj	��	^j	0��	bj	��	ck	��	hk	0��	lk	��	oj	��	qh	��	tf	��	vb	��	x`	���\	��"			x	��


C>"G4�ii�kh �)36-13C�gsrc
			gtag			g	tail-args				gelse
		gfilenameflanguage/tree-il/primitives.scm�
q	��	s	#��	s	��	q	��						


C>"G�ii�k7h(�*13456-13C�gsrc
		gtag		gargs			gelse
	&	(gfilenameflanguage/tree-il/primitives.scm�
w	��	y	(��	y	7��	y	(��	y	��	&w	��			
		&	(


C6Zgm
		,gfilenameflanguage/tree-il/primitives.scm�		
��	.	&	��	1	%
��\	t
��]	z	%��f	z
��g	|
����	���	~
����	����
����	����
����	����
����	����
����	����
����	����
����	&����
����	1����
����	*����
����	"����
����	$����
����
����
��6�
����
����
��4�
����
����
��	f�
��
/�
��
��
����
��g�
��h	!��r
���	
��	J
���M
���P
�� �U
��%�c
��(�h
��,�o
��/�s
��3ky
��7#
��8�
��9�
��9��
��:��
��;��
��<��
��=��
��>��
��?��
��@��
��A��
��B��
��C��
��D��
��E��
��G�
��H�
��I"�
��J2�
��KB�
��LR�
��Mb�
��Nr�
��O��
��P��
��Q��
��R��
��S��
��V�
��Wr�
��X��
��Y��
��Zh�
��[8�
��]7�
��^>�
��_|�
��`��
��a��
��b��
��dU�
��e~�
��f��
��h�
��iu�
��j��
��l�
��m.�
��n��
��o��
��q%�
��rN�
��s��
��t��
��vE�
��wn�
��x��
��y��
���
���
���	
����
���J
���K
���V	%���`
���i
���t	%���~
����
����	���6
���?,
���J-	���-,
���6=
���A>	���"=
���+C
���6D	���#C
���,I
���7J	���FI
���OZ
���Z[	���*Z
���3o
���>p	���8o
���Kv	���]u
���	�]
C6language/bytecode/spec.go000064400000003163150536206120011411 0ustar00GOOF----LE-8-2.0[]+4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gbytecode�	gspec�		�	
gfilenameS�	flanguage/bytecode/spec.scm�	gimportsS�	
gsystem�	gbase�	
�	�	gvm�	gobjcode�	
�	�	�	gexportsS�	�	gset-current-module�	�	�	gbytecode->objcode�	gcompile-objcode�	gobjcode->bytecode�	gdecompile-objcode�	ginvalidate-compilation-cache!�	 g
make-language�	!gnameS�	"gtitleS�	#fGuile Bytecode Vectors�	$greaderS�	%gread�	&gprinterS�	'gwrite�	(g	compilersS�	)gdecompilersS�	*gfor-humans?S�C5h��]4	
54>"Gh�]45D�gx
		ge		gopts			gfilenameflanguage/bytecode/spec.scm�
	
��			
��			��			gnamegcompile-objcode�CRh�]45D�gx
		
ge		
gopts			
gfilenameflanguage/bytecode/spec.scm�
	
��			
��	
		��		
	gnamegdecompile-objcode�CR4i>"G4 i!"#$%hy]6qgport
		genv		gfilenameflanguage/bytecode/spec.scm�
	!	��		!	#��			C&'i(i�)i�*5RC�gm
		,gfilenameflanguage/bytecode/spec.scm�		
���	
���	
���	
���	 	���	#	���	$	���	
��		�
C6language/assembly/spec.go000064400000002301150536206120011423 0ustar00GOOF----LE-8-2.0�]+4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gassembly�	gspec�		�	
gfilenameS�	flanguage/assembly/spec.scm�	gimportsS�	
gsystem�	gbase�	
�	�	gcompile-bytecode�	�	�	gdecompile-bytecode�	�	�	�	gexportsS�	�	gset-current-module�	�	�	ginvalidate-compilation-cache!�	g
make-language�	gnameS�	 gtitleS�	!f'Guile Virtual Machine Assembly Language�	"greaderS�	#gread�	$gprinterS�	%gwrite�	&gparserS�	'g	compilersS�	(gbytecode�	)gdecompilersS�	*gfor-humans?S�C5h�]4	
54>"G4i>"G4i !"#hy]6qgport
		genv		gfilenameflanguage/assembly/spec.scm�
		��			#��			C$%i&#i'(i�)(i�*5RCgm
		,gfilenameflanguage/assembly/spec.scm�		
��	-	
��	K		���		���	 	��
	
��	
C6language/assembly/disassemble.go000064400000025701150536206120012775 0ustar00GOOF----LE-8-2.0�+]�4h]gguile�	�	gdefine-module*�	�	�	glanguage�	gassembly�	gdisassemble�		�	
gfilenameS�	f!language/assembly/disassemble.scm�	gimportsS�	
gice-9�	gformat�	
�	�	gsrfi�	gsrfi-1�	�	�	gsystem�	gvm�	ginstruction�	�	�	gprogram�	�	�	gbase�	gpmatch�	�	 �	!�	"!�	#gcompile�	$#�	%$�	& "%�	'gexportsS�	(�	)gset-current-module�	*)�	+)�	,fDisassembly of ~A:

�	-gdisassemble-load-program�	.g	decompile�	/gfromS�	0gvalue�	1gtoS�	2gload-program�	3gassq-ref�	4gobjects�	5g	free-vars�	6gmeta�	7gblocs�	8gsources�	9gnewline�	:gfor-each�	;fEmbedded program ~A:

�	<greverse!�	=gbyte-length�	>gnop�	?g
print-info�	@gcode-annotation�	Agand=>�	Bgassq�	Cgsource->string�	Dggensym�	Ef�	Fgdisassemble-free-vars�	Ggdisassemble-meta�	Hgprogram?�	Igdisplay�	Jf)----------------------------------------
�	Kgvector->list�	Lgerror�	Mfbad load-program form�	NfFree variables:

�	Ogfold�	Pgmake-syntax-transformer�	QP�	RP�	Sgunless�	Tgmacro�	Ug$sc-dispatch�	VU�	WU�	Xg_�	Ygany�	ZXY��	[g
syntax->datum�	\[�	][�	^g
datum->syntax�	_^�	`^�	agif�	bgnot�	cgbegin�	dgsyntax-violation�	ed�	fd�	gf-source expression failed to match any pattern�	hgname�	ih�	jg*uninteresting-props*�	kgfilter�	lgmemq�	mf
Properties:

�	nf~a:~a:~a�	ogsource:file�	pf(unknown file)�	qgsource:line-for-user�	rg
source:column�	sg
make-int16�	tgassembly-unpack�	uglist�	vgvector�	wf
~a element~:p�	xgbr�	ygbr-if�	zgbr-if-eq�	{g	br-if-not�	|gbr-if-not-eq�	}gbr-if-not-null�	~g
br-if-null�	f-> ~A��gbr-if-nargs-ne��gbr-if-nargs-lt��gbr-if-nargs-gt��gbind-optionals/shuffle-or-br��g	last-pair��g
object-ref��f~s��g	local-ref��glocal-boxed-ref��g	local-set��glocal-boxed-set��g
binding:start��gbinding:end��f`~a'~@[ (arg)~]��gbinding:name��g
binding:index��glist-ref��gassert-nargs-ee/locals��gassert-nargs-ge/locals��f~a arg~:p, ~a local~:p��gfree-ref��gfree-boxed-ref��gfree-boxed-set��f(closure variable)��gtoplevel-ref��gtoplevel-set��f`~s'��g	variable?��gmv-call��fMV -> ~A��gprompt��fH -> ~A��gassembly->object��f,~4@S    ~32S~@[;; ~1{~@?~}~]~@[~61t at ~a~]
�C5h�]4	
&'(54+>"G,-./01hl]L6dgfilenamef!language/assembly/disassemble.scm�
	!	��	
	!	%��		!	1��		!	��		
Ch0�]4>"G4O>6<�gx
		)gfilenamef!language/assembly/disassemble.scm�
	
��			��			
��			��		 	��		)gnamegdisassemble�CR23456789:;-h �]4�>"G�6�gsym+asm
		 gfilenamef!language/assembly/disassemble.scm�
	1	��		2	��		2	��		2	4��		2	��		3	(��		3	6��	 	3	��			 C<=>?@ABCDEFGHIJh(�]45$4>"G6C�gx
		'gfilenamef!language/assembly/disassemble.scm�
	S	��		T	��	
	T	��		U	��		U	"��		U	��	%	V	��		'CKLMhP�]��$9��&�$���$����$���$
45"$
45"$
45"$
45"$
45"
	"(-4>"G4	
45>"�G"��45
�"I�$���
&x(
45��
"��|4
4	�54$
45"5>"G
45��
"��#4
4	�54$
45"5>"G
45��
"���4
4	�54$
45"5>"G
45��
"��k�$^��&F454
>"G
45����
"��"��U"��N

"���	�$4	>"G"
$4
>"G"$	45�6C66666�gasm
	Jgenv	Jgvx		Bgvy		Bgvx		(2gvy		(2gvy		6*gvy		F"gobjs	�"g	free-vars		�"gmeta	
�"gblocs	�"gsrcs	�"gpos	
��gcode	��gprograms	��gasm	��glen	��gend	�gvx	�gvy	�gvx	]�gsym	r�gfilenamef!language/assembly/disassemble.scm�
	$
��		%	��	R	'	��	S	'	��	Y	'	)��	[	'	��	f	(	��	g	(	��	m	(	-��	o	(	��	z	)	��	{	)	���	)	)���	)	���	*	���	*	���	*	)���	*	���	+	���	+	���	+	)���	+	���	'	���	,	���	-		���	/	���	0	���	4	���	0	���	6	���	6	���	7	���	6	��	8	��	6	��
	9	
��,	@	��3	@	��6	@	.��B	@	��C	B	��J	E	��[	G	��c	G	#��d	G	-��u	G	��z	B	���	H	���	H	���	H	.���	H	���	B	���	E	���	G	���	G	#���	G	-���	G	���	B	���	H	���	H	���	H	.���	H	���	B	��	E	��	G	��	G	#��	G	-��-	G	��2	B	��=	H	��D	H	��G	H	.��S	H	��S	9	
��l	;	��p	;	#��r	;	��r	;	��u	<	��{	<	"���	<	���	=	���	=	���	=	0���	>	���	=	���	9	
���	,	���	,	.���	,	���	J	���	J	���	K	���	L	���	M	��	Q	��	W	��	W	�� 	R	��&	Y	��*	Y	��.	Y	��2	Y	��6	Y	��:	Y	��>	Y	��B	Y	��F	Y	��J	Y	��n	J	gnamegdisassemble-load-program�C-RINO?h �]4>"G�C�gfree-var
		gi		gfilenamef!language/assembly/disassemble.scm�
	]	��		^	
��		_	
��			Ch �]4>"G
6�g	free-vars
		gfilenamef!language/assembly/disassemble.scm�
	[
��		\	��		\	��		\	��		]	��		gnamegdisassemble-free-vars�CFR4RSTWZ]`abch �-13�Cygtest
			gbody			gfilenamef!language/assembly/disassemble.scm�
	c
��		d	��			
Chu]	45L4?6mgargs
		gv			gfilenamef!language/assembly/disassemble.scm�		c
��		Cfgh(s]	45$O@6kgy
		'gtmp		'gfilenamef!language/assembly/disassemble.scm�
	c
��		'C5SRijRkljh�]4�5�C|gx
		gfilenamef!language/assembly/disassemble.scm�
	i	��		j	��		j	$��		j	��	
	j	��		CIm:?hl]6dgx
		gfilenamef!language/assembly/disassemble.scm�
	n	��		n	��		C9hH�]	4���5(C4>"G4>"G6�gmeta
		Bgprops		Bgfilenamef!language/assembly/disassemble.scm�
	h
��		i	��	
	k	��		i	��		i	��		l	��		m	��		m	��	"	m	��	+	n	��	B	o	��		Bgnamegdisassemble-meta�CGRnopqrh8�]	45$"45456�gsrc
		1gt		!gfilenamef!language/assembly/disassemble.scm�
	q
��		r	
��		r	��		r	��		r	.��	"	s	
��	)	s	%��	1	r	��			1gnamegsource->string�CCRh�]��C�gbyte1
		gbyte2		gfilenamef!language/assembly/disassemble.scm�
	u
��		v	��		v	��			gnameg
make-int16�CsRtuvwsxyz{|}~3��������������������������������A��hy]Cqgobj
		
gfilenamef!language/assembly/disassemble.scm�
�	��	�	"��		�	��		
C2h�O].45���$"�$
4?C�$"K�$"=�$"/	�$"!
�$"�$"�$
4�5C�$"�$"�$
4���5C�$
445�5C�$$��CC�$"!�$"�$"�$s$k"W	�$N	�
"		�	"���4
5�$*4	�5�$4
54
5�C"���"���C4�5	"���C �$"!�$"�	��	��C#�$"$�$"%�$&C'�$"(�$?$7��	")	C4*	5$	$		C"���"���C+�$,4��5C-�$.4��5C/40516Ggend-addr
	�gcode	�gobjs		�gnargs		�gblocs		�glabels		�gcode			�ginst		�gargs		�gbindings		U�gb	
_�gv		5fgfilenamef!language/assembly/disassemble.scm�
	x
��		y	��			y	��		z	��		y	��		{	��		y	��		|	��	.	~	
��	/	~	��	8	~	��	B	|	����	
����	����	&����	����	���	|	����	
����	����	&����	����	���	|	����	
����	����	+����	&����	����	��	|	��
�	���	���	-���	���	��!	|	��Q�	��U�	��X�	��\�	��_�	��_�	��h�	��n�	��n�	��o�	!��s�	0��u�	!��x�	��|�	��}�	"����	/����	"����	����	����	����	����	3����	0����	����	����	����	/����	����	���	|	����	
����	����	
����	*����	%����	���	|	���	
���	��	|	��/�	��4�	&��5�	��5�	��=�	��B�	��C�	��D�	��N�	��Q�	%��U�	��W�	��Z�	��]�	��q	|	��s�	
��t�	��{�	)��~�	����	���	|	����	
����	����	(����	����	����	����	��j	�	gnamegcode-annotation�C@R�h�]6�gaddr
		ginfo		gextra			gsrc			gfilenamef!language/assembly/disassemble.scm�
�
��	�	
��	�	��			gnameg
print-info�C?RC�gm
		,gfilenamef!language/assembly/disassemble.scm�		
���	
���	$
��x	[
���	f	���	f
�� 	h
��A	q
��	u
��	x
��	�
��	
C6language/assembly/compile-bytecode.go000064400000023154150536206120013726 0ustar00GOOF----LE-8-2.0T&]V4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gassembly�	gcompile-bytecode�		�	
gfilenameS�	f&language/assembly/compile-bytecode.scm�	gimportsS�	
gsystem�	gbase�	gpmatch�	
�	�	gtarget�	
�	�	�	�	gvm�	ginstruction�	
�	�	grnrs�	gbytevectors�	�	�	gsrfi�	 gsrfi-1�	! �	"gselectS�	#gfold�	$#�	%!"$�	&%�	'gexportsS�	(�	)gset-current-module�	*)�	+)�	,gassq-ref�	-gerror�	.fjump too far forward�	/fjump too far backwards�	0gbig�	1ginstruction->opcode�	2ginstruction-length�	3f$unhanded variable-length instruction�	4glength�	5gfor-each�	6f!bad number of args to instruction�	7gprompt�	8gmv-call�	9gbind-optionals/shuffle-or-br�	:gbr-if-nargs-gt�	;gbr-if-nargs-lt�	<gbr-if-nargs-ne�	=gbr-if-not-null�	>g
br-if-null�	?gbr-if-not-eq�	@gbr-if-eq�	Ag	br-if-not�	Bgbr-if�	Cgbr�	Dg
load-array�	Egbytevector-length�	Fgbytevector-copy!�	Ggload-symbol�	Hg
string-length�	Ig
char->integer�	Jg
string-ref�	Kgload-wide-string�	Lg
string->utf32�	Mgload-string�	Ngload-number�	Ogmake-char32�	Pgload-program�	Qgbyte-length�	Rgmake-bytevector�	Sffailed to fill bytevector�	Tgtarget-endianness�	Ufbad assembly�C5hpr]4	
&'(54+>"G,-./0hi]LML��Cagfilenamef&language/assembly/compile-bytecode.scm�
	\	��			]	��	
	]	��		
C12345hs]LM�M�NCkgx
		gfilenamef&language/assembly/compile-bytecode.scm�
�	��		�	'��		C6789:;<=>?@ABCDEFGHIJKLMNOPQ#h(�]
M4LL>"GM��C�gasm
		&gaddress		&gstart			&gfilenamef&language/assembly/compile-bytecode.scm�
	n	��		o	��		p	��	$	q	$��	%	q	��		&	C+hH�
]�H"v454J5	����$6
�������$6M
�LMM��LM�M	��LM	�M	��M	�NCMLOK��4545$LM�M�N""	�"	W"�"�"9"~"�"�"I"�"�"e""�"?"�"#""�"7
�$	64
5�$LLO6
6�$^��
		&H
�$=
�
��$(��
(LM�M�N
"��h"��p"��l"��h"��d"��`�$^��
		&H
�$=
�
��$(��
(LM�M�N
"���"��"���"���"���"����$��
		&�
�$�
�
��$���
�$����$����$����$y���$d��(PLM�M�NLM
�M�NLM�M�NLM�M�NLM�M�NLM�M�N"��"��"��"���"���"���"���"���"���"���"����$��
		&i
�$^
�
��$I��
�$4��( LM�M�NLM
�M�N"��k"��g"��c"��_"��["��W"��S�$��
		&i
�$^
�
��$I��
�$4��( LM�M�NLM
�M�N"���"���"���"���"���"���"����$��
		&i
�$^
�
��$I��
�$4��( LM�M�NLM
�M�N"��W"��K"��G"��C"��?"��;"��7�$=��
		&'
�$
�
�("��"���"���"���"����$=��
		&'
�$
�
�("���"���"���"���"����$=��
		&'
�$
�
�("��w"��_"��["��W"��S�$=��
		&'
�$
�
�("��/"��"��"��"���$=��
		&'
�$
�
�("���"���"���"���"����$=��
		&'
�$
�
�("���"��{"��w"��s"��o�$=��
		&'
�$
�
�("��W"��/"��+"��'"��#�$���
		&x
�$m
�
�(Y45
LM
	��LM�
	�����LM	�
���M	�N4
LM
>"GM
�NC"���"���"���"����$���
		&�
�$�
�
�(w45
LM
	��LM�
	�����LM	�
���M	�N",
�$LM�4 4!55��"���"
"���M
�NC"���"���"���"����$���
		"&�
�$x
�
�(d4#L5
4
5LM	��LM�	�����LM	����M	�N4
LM>"GM�NC"��/"��+"��'"��#�$���
		$&�
�$�
�
�(w45
LM
	��LM�
	�����LM	�
���M	�N",
�$LM�4 4!55��"���"
"���M
�NC"��t"��p"��l"��h�$���
		%&�
�$�
�
�(w45
LM
	��LM�
	�����LM	�
���M	�N",
�$LM�4 4!55��"���"
"���M
�NC"���"���"���"����$G��
		&&1
�$&
�
�(LM�M	�NC"��c"��_"��["��W�$���
		'&�
�$�
�
��$���
�$y��LM
L�M	�N$4(5�"
LML�M	�N4)*LLO
>"G$
"���C"���"���"���"���"����
gasm
	Eglabels	Egaddress		Egemit-opcode?		Egget-addr		Eglabel				goffset			gstart	��ginst	�Egargs	�Egopcode	�Eglen	�Egvx		Y�gvy	
Y�gvx	r�gvy	r�gvx	
��gvy	��gvx		�gvy	
�gvx	�gvy	�gvx	
�gvy	�gvx		+(gvy	
+(gvx	D gvy	D gvx	
Ugvy	Ugvx	fgvy	fgvx	wgvy	wgvx	�gvy	�gvx	�gvy	�gvx	�gvy	�gvx		9�gvy	
9�gvx	R�gvy	R�gvx	
c�gvy	c�gvx	t�gvy	t�gvx		�<gvy	
�<gvx	�4gvy	�4gvx	
�0gvy	�0gvx	�,gvy	�,gvx		M�gvy	
M�gvx	f�gvy	f�gvx	
w�gvy	w�gvx	��gvy	��gvx		�gvy	
�gvx	�gvy	�gvx		Vgvy	
Vgvx	8Ngvy	8Ngvx		g�gvy	
g�gvx	��gvy	��gvx		��gvy	
��gvx	��gvy	��gvx		�.gvy	
�.gvx	&gvy	&gvx		?vgvy	
?vgvx	Xngvy	Xngvx		��gvy	
��gvx	��gvy	��gvx		�Wgvy	
�Wgvx	�Ogvy	�Oglen	
�Kgvx		hgvy	
hgvx	�gvy	�glen	
�gi	��gvx		�gvy	
�gvx	8�gvy	8�gx	
K�glen	T�gvx		�	igvy	
�	igvx	�	agvy	�	aglen	
�	]gi		!	Mgvx			z
 gvy	
	z
 gvx		�
gvy		�
glen	
	�
gi		�
gvx		
1
rgvy	

1
rgvx	
J
jgvy	
J
jgvx		
�Agvy	

�Agvx	
�9gvy	
�9gvx	

�5gvy	
�5gvx	
�1gvy	
�1gx	
�
��gfilenamef&language/assembly/compile-bytecode.scm�
	U	��			^	��	
	_	��		_	6��		_	3��		_	��		_	
��	(	`	��	)	`	��	-	`	��	1	`	1��	5	`	*��	@	a	��	A	a	��	E	`	��	I	a	4��	M	a	-��	T	b	���	[	
���	d	���	e	���	d	���	f	���	g	���	f	
���	h	���	i	���	j	���	���	��!�	��%�	��&�	��/�	��3�	��B�	��F�	��L�	��L	j	����	)����	C���	j	����	��
�	.��	j	����	����	����	����	����	����	���	��	j	����	+����	;����	K���	j	���	+���	;��(�	K��,	j	����	+����	;����	K���	j	���	#��	j	��J�	��N	j	����	!���	j	����	���	j	��"�	��&	j	��j�	��n	j	����	���	j	���		 ��O	j	���	~	"��	j	��C	}	'���	j	���	|	"��	a	j	��	�	{	"��
	j	��
\	z	 ��
j	j	��
�	l	��
�	m	��
�	m	*��
�	m	&��
�	m	��
�	n	��	t	��!	y	(��/	y	��5	j	��f	E	gnamegwrite-bytecode�CRE-SPQTU
h�-13	"d
HHOQ4	5K4
>"GJ45�$DJ456�$���&t�$e���$M���$4��4	�$45�"
�545"��'	6	6	6	6	6�gassembly
		genv		gopts			gbv		
	qgtarget-endianness		
	qgpos			qgu32-bv			qgwrite-bytecode			qgvx		~gvy		~gvy	��gvx	��gvy	��gvx	��gfilenamef&language/assembly/compile-bytecode.scm�
	
��	
	'	��		(	��	-	,	��	6�	��	;�	��	B�	��	M�	��	T�	
��	X�	��	`�	
��	d�	��	i�	��	q�	
��	t�	����	����	%����	(����	0����	,����	%����	����	����	����	����	
����	����	
����	����	
���	���	
��
�	���	
��#			
	gnamegcompile-bytecode�CRCjgm
		,gfilenamef&language/assembly/compile-bytecode.scm�		
��l	
��	n
C6language/assembly/decompile-bytecode.go000064400000023416150536206120014240 0ustar00GOOF----LE-8-2.0�&]\4hk]gguile�	�	gdefine-module*�	�	�	glanguage�	gassembly�	gdecompile-bytecode�		�	
gfilenameS�	f(language/assembly/decompile-bytecode.scm�	gimportsS�	
gsystem�	gvm�	ginstruction�	
�	�	gbase�	gpmatch�	
�	�	gsrfi�	gsrfi-4�	�	�	grnrs�	gbytevectors�	�	�	�	�	 gobjcode�	!
 �	"gselectS�	#g
byte-order�	$#�	%!"$�	&%�	'gexportsS�	(�	)gset-current-module�	*)�	+)�	,gu8vector-length�	-gdecode-load-program�	.gerror�	/ftried to decode too many bytes�	0f-bad bytecode: only decoded ~a out of ~a bytes�	1gmemq�	2gbr�	3gbr-if�	4g	br-if-not�	5gbr-if-eq�	6gbr-if-not-eq�	7g
br-if-null�	8gbr-if-not-null�	92345678�	:gbr-instruction?�	;gbr-if-nargs-ne�	<gbr-if-nargs-lt�	=gbr-if-nargs-gt�	>gbr-if-nargs-lt/non-kw�	?;<=>�	@gbr-nargs-instruction?�	Ag
bytes->s24�	Bf-error decoding program -- read too many bytes�	Cgload-program�	Dgmap�	Egreverse�	Fgreverse!�	Ggdecode-bytecode�	Hgprompt�	Igassv-ref�	Jggensym�	Kf:L�	Lgmv-call�	Mgbind-optionals/shuffle-or-br�	Ngand=>�	Ogopcode->instruction�	Pginstruction-length�	Qg
load-array�	Rgload-wide-string�	Sgmake-bytevector�	Tgmake-string�	Ugbytevector-u8-set!�	V	U�	W	U�	Xgstring-set!�	Yg
integer->char�	Zg
utf32->string�	[gnative-endianness�C5hp�]4	
&'(54+>"G,-./h@�]ML�$	LM�"ML�$"45$	M�N"C�gb
	)	=gfilenamef(language/assembly/decompile-bytecode.scm�
		��		 	��		 	��		 	!��		!	��		 	��	#	"	��	'	"	"��	)	"	��	)	 	��	1	#	��	4	#	��	6	#	��		=
gnamegpop�C.0h@&]
45H4O5J�$DJ6gx
		9genv		9gopts			9gi		
	9gsize		
	9gret			9gfilenamef(language/assembly/decompile-bytecode.scm�
	
��			��	
		��		%	��		%	��	%	&	
��	)	&	��	/	'	
��	3	(	��	9	(	
��		9	gnamegdecompile-bytecode�CR19h�]6�gx
		
gfilenamef(language/assembly/decompile-bytecode.scm�
	*
��	
	+	��		
gnamegbr-instruction?�C:R1?h�]6�gx
		
gfilenamef(language/assembly/decompile-bytecode.scm�
	,
��	
	-	��		
gnamegbr-nargs-instruction?�C@Rh8�]	�	�����
�$C�C�ga
		4gb		4gc			4gx			4gfilenamef(language/assembly/decompile-bytecode.scm�
	/
��		0	��		0	��	
	0	��		0	��		1	��		1	��		1	��	$	1	��	2	3	
��	3	3	��		4	gnameg
bytes->s24�CAR.BCDh�]���C{gx
		
gfilenamef(language/assembly/decompile-bytecode.scm�
	N	"��		N	4��		N	<��			N	.��		
CE-FG./h@�]ML�$	4L5"ML�$"45$	M�N"C�gb
	)	=gfilenamef(language/assembly/decompile-bytecode.scm�
	D	��		E	��		E	��		E	 ��		F	��		E	��	#	G	��	'	G	"��	)	G	��	)	E	��	1	H	��	4	H	��	6	H	��		=
gnamegsub-pop�CHAIJKLM@:h��,3%4545454545454545	��	��	��		��	��	��
H
H"<J	�$
6J	�$244J55	

�$"454
5����C4	
	O5""("�"�$���&��$����$����$����$p��(UJ45�4
J5$"45�J�K
�
"���
�
"���
�
"���
�
"���
�
"���
�
"���
�
"���
�
"����$���&��$����$����$~���$i��(UJ45�4
J5$"45�J�K
�
"���"��?"��;"��7"��3"��/"��+"��'�$<��&&�$���$���$����$����$����$����$����$���  �$s � �"!"(_J4!5�#4
J#5$$$$"45$#$�J�K$$$#
�
"���"��"��"��"���"���"���"���"���"���"���"���"����$����$����$����$����$����$z��(f45$WJ45�4
J5$"45�J�K
�
"���"��"��"���"���"���"���"���"����$����$����$����$v��(b45$SJ45�4
J5$"45�J�K
�
"���"��:"��6"��2"��."��*"��&
"����gpop
	�ga	�gb		�gc		�gd		 �ge		'�gf		.�gg		5�gh		<�glen			R�gmetalen	
	h�glabels		k�gi		n�gout	
	t�gexp	��gvx	��gvy	��gvx	�gvy	�gvx	�gvy	�gvx	*�gvy	*�gvx	;�gvy	;�gwhere	W�gt	b�gl	w�gvx	��gvy	��gvx	
�gvy	
�gvx	�gvy	�gvx	/�gvy	/�gvx	@�gvy	@�gwhere	\�gt	g�gl	|�gvx	��gvy	��gvx	��gvy	��gvx	��gvy	��gvx	�gvy	�gvx	�gvy	�gvx	%�gvy	%�gvx	6�gvy	6�gvx	G�gvy	G�gvx	X�gvy	 X�gvx	!i�gvy	"i�gwhere	#��gt	$��gl	$��gvx	�gvy	�gvx	 �gvy	 �gvx	1�gvy	1�gvx	B�gvy	B�gvx	S�gvy	S�gvx	d�gvy	d�gwhere	��gt	��gl	��gvx	��gvy	��gvx	�gvy	�gvx	�gvy	�gvx	0�gvy	0�gwhere	U�gt	`�gl	u�Zgfilenamef(language/assembly/decompile-bytecode.scm�
	6
��		7	��		7	��		7	��		7	��		7	 ��		7	��		7	*��	 	7	��	#	8	��	'	7	��	*	8	��	.	7	��	1	8	 ��	5	7	��	8	8	*��	<	7	��	E	9	��	F	9	��	K	9	��	L	9	��	Q	9	(��	R	9	��	R	7	��	[	:	��	\	:	��	a	:	!��	b	:	��	g	:	,��	h	:	��	h	7	��	k	;	��	k	7	��	t	J	��	y	K	
��	}	K	���	L	���	L	
���	M	
���	K	���	N	
���	N	���	O	"���	N	���	Q	!���	Q	���	Q	4���	R	���	N	
���	T	���	T	
���	U	��G	g	��L	>	��W	>	��W	>	��Z	?	��b	?	��q	A	��u	A	��w	A	��w	A	��~	B	���	B	���	g	���	g	���	g	���	i	���	i	���	i	���	i	���	i	���	i	���	i	���	i	���	i	���	i	���	i	���	i	���	i	���	i	���	U	��L	e	��Q	>	��\	>	��\	>	��_	?	��g	?	��v	A	��z	A	��|	A	��|	A	���	B	���	B	���	e	���	e	���	e	���	U	��u	^	���	>	���	>	���	>	���	?	���	?	���	A	���	A	���	A	���	A	���	B	���	B	���	^	���	^	���	^	���	U	��o	X	9��y	U	���	>	���	>	���	>	���	?	���	?	���	A	���	A	���	A	���	A	���	B	���	B	���	Y	���	Y	���	Y	���	U	��;	V	1��E	U	��J	>	��U	>	��U	>	��X	?	��`	?	��o	A	��s	A	��u	A	��u	A	��|	B	���	B	���	W	���	W	���	W	���	U	���	J	���	J	���	J	���	�gnamegdecode-load-program�C-RNOC-PQRSTWXYh�]456�gstr
		gpos		gvalue			gfilenamef(language/assembly/decompile-bytecode.scm�
	}	��			~	2��		~	��			CZ[Fh0/]145&L645
�$�&"�$"&"�$	"
4L54L54L5	�	���45"K�$ &4455"C44L5>"G�"���
"���"!
�$
6�4L5�"���45"���'gopcode
	,ginst		,g
make-sequence		D�g
sequence-set!		d�ga		k�gb		r�gc		y�glen	��gseq	��gi	��gn	�gout	�gfilenamef(language/assembly/decompile-bytecode.scm�
	m		��		n	��			n	��		p	��		o	
��		q	��		s	��	"	s	��	&	o	
��	.	w	��	<	w	��	D	v	��	N	{	��	\	{	��	d	v	��	g		%��	k		��	n		/��	r		��	u		9��	y		����	 ����	+����	���	v	����	���	v	����	����	����	����	.����	 ����	$����	7����	$����	����	����	.����	����	����	����	����	����	����	���	���	��	�	&���	 ���	���	���	��$�	;��,�	��7	,Ch�]45O6�gpop
		gfilenamef(language/assembly/decompile-bytecode.scm�
	k
��		l		��		l	��		gnamegdecode-bytecode�CGRC�gm
		,gfilenamef(language/assembly/decompile-bytecode.scm�		
���	
���	*
��W	,
���	/
��P	6
��k	k
��	m
C6language/ecmascript/spec.go000064400000002132150536206120011740 0ustar00GOOF----LE-8-2.0B](4hm]gguile�	�	gdefine-module*�	�	�	glanguage�	g
ecmascript�	gspec�		�	
gfilenameS�	flanguage/ecmascript/spec.scm�	gimportsS�	
gsystem�	gbase�	
�	�	gparse�	�	�	gcompile-tree-il�	�	�	�	gexportsS�	�	gset-current-module�	�	�	ginvalidate-compilation-cache!�	g
make-language�	gnameS�	 gtitleS�	!f
ECMAScript�	"greaderS�	#gread-ecmascript/1�	$g	compilersS�	%gtree-il�	&gprinterS�	'gwrite�C5h�]4	
54>"G4i>"G4i !"#h{]6sgport
		genv		gfilenameflanguage/ecmascript/spec.scm�
	 	��		 	#��			C$%i�&'i5
RCxgm
		,gfilenameflanguage/ecmascript/spec.scm�		
��	-	
��	K		���	!	���	
��	�
C6language/ecmascript/parse.go000064400000432222150536206120012127 0ustar00GOOF----LE-8-2.0z4]z4h�o]gguile�	�	gdefine-module*�	�	�	glanguage�	g
ecmascript�	gparse�		�	
gfilenameS�	flanguage/ecmascript/parse.scm�	gimportsS�	
gsystem�	gbase�	glalr�	
�	�	gtokenize�	�	�	�	gexportsS�	gread-ecmascript�	gread-ecmascript/1�	gmake-parser�	�	gset-current-module�	�	�	gthrow�	gsyntax-error�	 g
lexical-token�	! �	" �	#gand=>�	$g"source-location->source-properties�	%gmake-tokenizer�	&gmake-tokenizer/1�	'gcall-with-input-string�	(f�	)g	read-char�	*g*eof-object*�	+g	lr-driver�	,g	*default*�	-g*error*�	.,-�	/g*eoi*�	0/	%�	1glbrace�	21	$�	3glparen�	43	#�	5glbracket�	65	"�	7gdot�	87	!�	9g	semicolon�	:9	 �	;g+�	<;	�	=g-�	>=	�	?g++�	@?	�	Ag--�	BA	�	Cg!�	DC	�	Eg~�	FE	�	Ggbreak�	HG	�	Ignew�	JI	�	Kgvar�	LK	�	Mgreturn�	NM	�	Ogvoid�	PO	�	Qgfor�	RQ	�	Sgswitch�	TS	�	Ugwhile�	VU	�	Wgcontinue�	XW	�	Ygfunction�	ZY	�	[gthis�	\[	�	]gwith�	^]	�	_gif�	`_	
�	a	�	bgdelete�	cb	�	dgtry�	ed	
�	fgdo�	gf		�	hgtypeof�	ih	�	jgnull�	kj	�	lgtrue�	ml	�	ngfalse�	on	�	pg
Identifier�	qp	�	rg
StringLiteral�	sr	�	tgNumericLiteral�	ut	�	vg
RegexpLiteral�	wv�	x.02468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw&�	y,	��	zy�	{,	��	|{�	},	��	~}�	,	���gcolon���	P�����,	������,	������,	������1	S��Y	R��p	Q��.�468<>@BDFJP�\cikmo�suw��.2468:<>@BDFHJLNPRTVX�\^`acegikmoqsuw%��1	W��.���3	[��.���3	\��.���,	������3	^��p	]��.����9	`��p	_��.����3	a��.���3	b��.���3	c��.���9	e��.�468�<>@BDFJP�\cikmo�suw��p	g��.���.�468J�\kmo�suw��9	m��p	l��.����,	������t	t��.���grbracket���	v��gcomma���	u��.�46�8�<>@BDFJP�\cikmo�suw��grbrace���	~��p	}��r	|��t	{��.2�468:<>@BDFHJLNPRTVX�\^`acegikmo���w&��,	������9�������.����,������,�.�����,�2��gor������g?�����������,�6��g&&����������,�:��gbor����������,�>��g^����������,�B��g&����������,�F��g==������g!=������g===������g!==�������������,�P��g<������g>������g<=������g>=������g
instanceof������gin���������������,�]��g<<������g>>������g>>>������������,�a��=���;��������,�d��g*������g%����g/������,�h��,�r��,�u�	?��
A��g=���
g+=�
��g-=���g*=���g%=���g<<=���g>>=���g>>>=���g&=���gbor=���g^=� ��!g/=�"!��#	
 "�$,�v�%3��&5��'7��($%&'�),�w�*)�+,	��,5��-7��.+%,-�/,	��0/�1,	��21�3,	��43�5,	��65�7,	��87�9,	��:9�;,	��<;�=,	��>=�?,	��@?�A,	��BA�C,	��DC�E,	��FE�G,	��HG�I,	��JI�K,	��LK�M,	��NM�O,	��PO�Q,	��RQ�S,	��TS2468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw%�U,	��VU�W,	��XW�Y,	��ZY�[/��\.[�]�^p��_.�^�`p��ar��bt��c.�`ab�d,�o�ed�f
	�gU��h.g�igfinally�ji��kgcatch�lk��m.jl�n,�q�on�p9��q.p��r3��s.r�tgrparen�ut��vp��w.uv�x9��y.x�z,	��{z�|9��}K��~.�468|<>@BDFJ}P�\cikmo�suw�,�p����,	������9���.����,	����������,	������,	�����������,	������9���.���,	������,�j�����,�i�����,�m�����,�n�����,�k�����,�l�����,	������,	������,	������,	��������������.�46�8�<>@BDFJP�\cikmo�suw����������.����t���.�����	���{����	���}���,	����������.�����������.��������.2�468:<>@BDFHJLNPRTVX�\^`acegikmoqsuw&��,	������,	������,�(�����,� �����,������,�!�����,�"�����,�#�����,�$�����,�'�����,�)�����,�%�����,�&�����,�*�����,�s�����,�t�����p��.���t��.�4�68<>@BDFJP�\cikmo�suw��,�~�����p��.���,������,	������,	���gaccept��/�������,	������3	��.���,	������,	������,	������3
��.���3��.���,	������,	����j��,	�����t�.��t�.��t�.v�,	���1�	.�
t���.
�
,	��
�t�.��t�.��p�.�9�.�468<>@BDFJP�\cikmo�suw�9���.�,���,�,��,�0��� ��! �",�4�#� �$"#�%,�8�&�!�'%&�(,�<�)�"�*()�+,�@�,�#�-+,�.,�D�/�'�0�&�1�%�2�$�3./012�4,�K�5�,�6�+�7�*�8�)�9�(�:456789�;,�V�<;����=�-�>	
 "=�?,	��@?�A,	��BA�C,	��DC�E,	��FE�G,	��HG�I,	��JI�K,	��LK�M�1�N.�46M8�<>@BDFJP�\cikmo�suw�O,	��PO�Q,	��RQ�S.`ab�T,	��UT�V,	��WV�X,	��YX�Z,��[Z�\�6�].\�^,�5�_^��`,�9�a`��b,�=�cb��d,�A�ed��f,�E�gf�����h,�L�ih�������j,�M�kj�������l,�N�ml�������n,�O�on�������p,�X�qp����r,�W�sr����t,�Y�ut����v,�Z�wv����x,�[�yx����z,�\�{z����|,�^�}|��~,�_�~���,�`������,�b������,�c������,�f�����,�e�����,�g�����,�-�����,�|������7��.����,�{�����,�y�����t9���8��.����,	�������:��.����t;��.�v��p>��.���,	������,	������1A��.���tB��.���,	����2468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw%��pE��.���1F��.���1H��.���,	�������,	����K������9M���L��.����tN��.�4�68<>@BDFJP�\cikmo�suw��9P��.����9S��.�468�<>@BDFJP�\cikmo�suw��,	������,	������,	������,	�������f��.�46�8�<>@BDFJP�\cikmo�suw��,	�������h��.���,�}�����,�z�����,	������1k��.���tl��.���tm��.����tn��.���,	���gelse���o������,	������1q��.����r��.���,	����2468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw%��,	������,	�������v��gcase���u��gdefault���t��.�����,	������,	������9|��.�468�<>@BDFJP�\cikmo�suw��t��.����t���.�4�68<>@BDFJP�\cikmo�suw��,������t���.�4�68<>@BDFJP�\cikmo�suw��9��.������.�,�3�#�,�7�&�,�;�)�	,�?�
	,�,�C�/012�
,�G�
56789�,�H�56789�,�I�56789�,�J�56789�,�Q�����,�R�����,�S�����,�T�����,�U�����t�� .��!,�+�"!�#,	��$#�%,	��&%�',�1�('�),�x�*)�+1��,.+�-9��..-�/���0./�1,	��21�3���4.3�5���6.5�7,	��87�9���:.9��;,	��<;�=���>.=���?t��@.?��A,	��BA�Ct��D.�4C68<>@BDFJP�\cikmo�suw�E9��F.E��G,	��HG�It��J.I��Kt��L.K��Mt��N.�4M68<>@BDFJP�\cikmo�suw�O,	��PO�Q���R.Q�S,	��TS�U,	��VU�W,	��XW�Y,	��Z�	��[�	��\!	��]	��^	��_	��`	��a	��b	��c	��d	��e	��f	��g
	��h	��i�	��j�	��k�	��l�	��m�	��n�	��o�	��p�	��q�	��r�	��s�	��t�	��u�	��v�	��w�	��x�	��y�	��z�	��{�	��|�	��}YZ[\]^_`abcdefghijklmnopqrstuvwxyz{|$�~���.~��,	������,	����2468:<>@BDFHJLNPRTVX�\^`acegikmoqsuw%������.����,	����������.����,	����������.���,	������t���.����t���.�4�68<>@BDFJP�\cikmo�suw��,	������,	������,	������t���.����,�/�����,	������,	����������.���,	����	����	���!	���	���	���	���	���	���	���	���	���	���	���
	���	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���������������������������������������$��,	����2468:<>@BDFHJLNPRTVX�\^`acegikmoqsuw%��,	����2468:<>@BDFHJLNPRTVX�\^`acegikmoqsuw%��,	������,	������,	������,	������t���.����,	������,	������,	������,	������,	����2468:<>@BDFHJLNPRTVX�\^`acegikmoqsuw%��,	������,	������,	������,	������xz|~����������������������������������������������#(*.02468:<>@BDFHJLNPRTVXZ\�]_cefh�moq��swy{��~�������.������������������������������������������������������������������������������������	!$'*-3:<>@�B�DFHJLNPR�SUWY[]_acegikmoqsuwy{}��������������������������������������������������������������������������������������#�
 "$&�(*�,.��0�246�8:<>@BDFH��J�LN��PR�TVX}�����������������������������������������������	I	&���	F	'���	D	(���	B	)���	@	*���	>	+���	<	,���	:	-���	8	.���	6	/���	5	0���	4	1���	3	2���	2	3���	1	4���	0	5���	-	6���	,	7���	+	8���	(	9���	%	:���	$	;��	!	<��	 	=��		>��		?��		@��		A��		B��		C��		D��			E��
		F��		G��		H��
			I��		J��		K��		L��		M��		N��	O������������������������	

*�	2	T��	0	U���������
�		V������������������������	

&�			X���	2	Y���������
�	I	Z������������������������ 	2	d��! �������
�"	I	f��#"����������������������$		h��%		i��&$%�'	,	j��(	+	k��)'(����*	2	n��+*�������
�,	2	o��-,�������
�.	2	p��/.�������
�0	2	q��10�������
�2	2	r��32�������
�4	2	s��54�������
�6	F	w��7	'	x��8	&	y��96������������������78���:	I	z��;:����������������������<	*	��=	)���>	
���?	���@�������������������<=���	
>
?)�A	H���BA�C	.���DC�E	.���FE�G	���H����������������������	

G(�I	���J����������������������	

I&�K<=�L����������������������	
>
?'�M	#���N	"���OMN�P	I���QP����������������������R	I���SR����������������������T	Ō�UT�V	Inj�WV����������������������X	IȌ�YX����������������������Z	Jˌ�[	G̌�\	E͌�]	CΌ�^	Aό�_	?Ќ�`	=ь�a	;Ҍ�b	9ӌ�c	7Ԍ�d	5Ռ�e	0֌�fZ[\]^_`abcd����e�������g	ٌ�hg�i	.ی�ji�k	Fߌ�lk���������������������m	猤n����������������������	

m&�o	F茤po���������������������q	F錤rq���������������������s	@ꌤts�����������������u	>댤vu����������������w	<쌤xw���������������y	:팤zy��������������{	8|{�������������}	6~}������������	6���������������	6����������������	6����������������	5�������������
��	5�������������
��	5���������������
��	5���������������
��	5���������������
��	5���������������
��	3���������������	3���������������	3���������������	3���������������	3���������������	2������������
��	2������������
��	2�����������
��	F��������������������������	I���������������������������	F���	/���������������������������	I���������������������������		������	#
������	������	���	
�������	I���������������������������	H.������	F/��������������������������	0������	F2���	'3���������������������������	F4��������������������������	*5������	<������	I=���������������������������	?�������������������������	

�&��	@�������������������������	

�&��	C���	D�������������������������	

��*��	G�������������������������	

�&��	I������	J������	IO���������������������������	GQ���	0R����\]^_`abcd�������������	IT���������������������������	GU����\]^_`abcd�������������	AV����_`abcd������������	?W����`abcd������������	=X����abcd������������	;Y����bcd������������	9Z����cd������������	7[����d������������	7\����d������������	7]����d������������	7^����d������������	5_��������������
��	5`��������������
��	5a��������������
��	5b��������������
��	5c��������������
��	Id���������������������������	Ge����\]^_`abcd�������������	Fg��������������������������	Fi�������������������������	Fj�����������������������	p������������������������	

�*�	s������������������������	

�*�	w��	x��	y��	�
	Iz��
����������������������	{��
�	I}������������������������	~������������������������	

&�	I�������������������������	I�������������������������	F������������������������	�������������������������	

�*�		����	�������������������������	

&�	�������������������������	

�*� 	I���! ����������������������"	���#"�$	���%	���&$%�'	I���('����������������������)	���*����������������������	

)&�+	���,����������������������	

+&�-	���.����������������������	

-&�/	I���0/����������������������1	G���21\]^_`abcd������������3	���4����������������������	

3&�5	���6����������������������	

5�*�7	
���8����������������������	
7
?'�9%�:	���;����������������������	

:&�<	���=����������������������	

<&�>	I���?>����������������������@	���A����������������������	

@&�B	���C����������������������	

B&�D	���E����������������������	

D&�F	
���G����������������������	
F
?'�H	���I����������������������	

H&�J	���K����������������������	

J&�L	���M����������������������	

L&�N	���O����������������������	

N&�Pglambda�Qgappend�RQ�SQ�Tgbegin�UT�Vgblock�Wgfor-in�Xgref�YW�ZG�[M�\��]glabel�^�_gstring�`gregexp�agnumber�bgstring->number�cg
string-append�df.�egnumber->string�fgarray�gf�hgunquote-splicing�ig$2�jhi�kfj�la
�ml�ngobject�on�pgstring->symbol�qgaref�rgpref�s�tgcall�ugpostinc�vgpostdec�wgpreinc�xgpredec�ygand�C5h���]4	
54>"G"#$hp-.,3#"
6�$<�&/4�5	�$"
�6"���"���gmessage
		mgtoken		mgt		M	bgfilenameflanguage/ecmascript/parse.scm�
	
��		!	
��	&	!	��	&		��	)		��	-		��	0		��	:		
��	>		
��	D		��	H		
��	M		��	M		
��	_		��	e		��		mgnamegsyntax-error�CR%h�]	45456�gport
		gparse		gfilenameflanguage/ecmascript/parse.scm�
	#
��		$	��		$	��		%	��		%	��		gnamegread-ecmascript�CR&h�]	45456�gport
		gparse		gfilenameflanguage/ecmascript/parse.scm�
	'
��		(	��		(	��		)	��		)	��		gnamegread-ecmascript/1�CR4'i()i5*R+�!#&)+-/1359;@BDFHJKLOQSUWYfhjlnprtvxz|~��������������������������������������������������������������	
!#&(*,.024689;=?ACEGIKMO"h��]���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""C�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$1		p�	�	C"hX�]���$�&		�""�$�&	�""6�g___stack
		Tg___sp		Tg
___goto-table			Tg___push			Tg
yypushback			Tgtok			Tg$1		+	T		T	C"*hP�]
���$�&
	�""�$�&	�""6�g___stack
		Og___sp		Og
___goto-table			Og___push			Og
yypushback			Ogtok			O		O	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"KPhp]M���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		��

�$
�&

	�""
�$
�&	
�""	���$�&		�""�$�&	�""	
��

�$
�&

	�""
�$
�&	
�""			6hg___stack
		g___sp		g
___goto-table			g___push			g
yypushback			gtok			gtok		M	g$6		p	gtok	�	gtok		�	gtok	
!	gtok	f	g$2	�	gtok	
�	gfilenameflanguage/ecmascript/parse.scm��	K	Y��			C"KPh`�]]���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		��

�$
�&	
	�"
"

�$
�&	
�""	���$�&
	�""�$�&	�""	
��

�$
�&	
	�"
"

�$
�&	
�""	���$�&
	�""�$�&	�""			��6�g___stack
	Zg___sp	Zg
___goto-table		Zg___push		Zg
yypushback		Zgtok		Zgtok		MZg$7		pZgtok	�Zgtok		�Zgtok	
!Zg$4	DZgtok	kZgtok	
�Zg$2	�Zgtok	�Zgfilenameflanguage/ecmascript/parse.scm�?	L	m��	Z	C"Ph�K]=���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		��

�$
�&

	�""
�$
�&	
�""	���$�&
	�""�$�&	�""			��6Cg___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$5		p�gtok	��gtok		��gtok	
!�gtok	f�gfilenameflanguage/ecmascript/parse.scm��	M	M��	�	C"Ph^]E���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		��

�$
�&

	�""
�$
�&	
�""	���$�&
	�""�$�&	�""	
���$�&
	�""�$�&	�""			6Vg___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$6		p�gtok	��gtok		��gtok	
!�gtok	f�gtok	��
gfilenameflanguage/ecmascript/parse.scm��	N	X��	�	C"Php]M���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		��

�$
�&	
	�"
"

�$
�&	
�""	���$�&
	�""�$�&	�""	
��

�$
�&

	�""
�$
�&	
�""			6hg___stack
	g___sp	g
___goto-table		g___push		g
yypushback		gtok		gtok		Mg$6		pgtok	�gtok		�gtok	
!g$3	Dgtok	kgtok	
�gfilenameflanguage/ecmascript/parse.scm��	O	a��		C"PhP�]U���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		��

�$
�&	
	�"
"

�$
�&	
�""	���$�&
	�""�$�&	�""	
��

�$
�&

	�""
�$
�&	
�""	���$�&
	�""�$�&	�""			��6{g___stack
	Kg___sp	Kg
___goto-table		Kg___push		Kg
yypushback		Kgtok		Kgtok		MKg$7		pKgtok	�Kgtok		�Kgtok	
!Kg$4	DKgtok	kKgtok	
�Kgtok	�Kgfilenameflanguage/ecmascript/parse.scm�:	P	l��	K	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Xg___sp		Xg
___goto-table			Xg___push			Xg
yypushback			Xgtok			Xg$1		+	Xgfilenameflanguage/ecmascript/parse.scm�	T	Q	'��		X	C"Sh�$]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		4	56g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	R	A��	�	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"TSh�a]%���$�&		�""�$�&	�""	���$�&		�""�$�&	�""		"
"0�$%�&4�5�""���""���	��6Yg___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�g$1		u�	gfilenameflanguage/ecmascript/parse.scm��	V	9���	T	4���	T	=���	T	4���	T	M���	T	V���	T	8���	U	9���	U	C���	U	9��	�	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	CUh�]
	
��6�g___stack
		g___sp		g
___goto-table			g___push			g
yypushback			gfilenameflanguage/ecmascript/parse.scm�			X	��			C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"Vh�]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""			6
g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��	gfilenameflanguage/ecmascript/parse.scm��	i	*��	�	C"hX�]���$�&		�""�$�&	�""	
6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"TSh�a]%���$�&		�""�$�&	�""	���$�&		�""�$�&	�""		
"
"0�$%�&4�5�""���""���	��6Yg___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�g$1		u�	gfilenameflanguage/ecmascript/parse.scm��	m	3���	k	.���	k	7���	k	.���	k	G���	k	P���	k	2���	l	3���	l	=���	l	3��	�	C"Kh��]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		�	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm��	o	6��	�	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Xg___sp		Xg
___goto-table			Xg___push			Xg
yypushback			Xgtok			Xg$1		+	Xgfilenameflanguage/ecmascript/parse.scm�	T	p	4��		X	C"Sh�$]-���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&		�""	�$�&	�""		4	56g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	q	R��	�	C"hX�]���$�&		�""�$�&	�""	
6�g___stack
		Xg___sp		Xg
___goto-table			Xg___push			Xg
yypushback			Xgtok			Xg$1		+	Xgfilenameflanguage/ecmascript/parse.scm�	T	r	<��		X	C"Sh�$]-���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&		�""	�$�&	�""		
4	56g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	s	^��	�	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Xg___sp		Xg
___goto-table			Xg___push			Xg
yypushback			Xgtok			Xg$1		+	Xgfilenameflanguage/ecmascript/parse.scm�	T	t	'��		X	C"h�]%���$�&		�""�$�&	�""	���$�&		�""�$�&	�""			��6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�g$1		u�	gfilenameflanguage/ecmascript/parse.scm��	u	3��	�	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Xg___sp		Xg
___goto-table			Xg___push			Xg
yypushback			Xgtok			Xg$1		+	Xgfilenameflanguage/ecmascript/parse.scm�	T	v	+��		X	C"h�]%���$�&		�""�$�&	�""	���$�&		�""�$�&	�""			��6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�g$1		u�	gfilenameflanguage/ecmascript/parse.scm��	w	7��	�	C"h��]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""			��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�	�	C"h��]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""			��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�	�	C"UhP�]
���$�&
	�""�$�&	�""	6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	L	{	!��		P	C"h��]���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""			��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$1		p�	�	C"_h�]U���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&		�""�$�&	�""	��

�$
�&

	�""
�$
�&	
�""	
���$�&
	�""�$�&	�""			
6zg___stack
	g___sp	g
___goto-table		g___push		g
yypushback		gtok		g$7		+gtok		Rgtok	�g$5		�gtok	
�gtok	&g$3	Igtok	
pgtok	�gfilenameflanguage/ecmascript/parse.scm��		I��		C"_hxK]=���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&
	�""�$�&	�""			6Cg___stack
	vg___sp	vg
___goto-table		vg___push		vg
yypushback		vgtok		vg$5		+vgtok		Rvgtok	�vg$3		�vgtok	
�vgtok	&vgfilenameflanguage/ecmascript/parse.scm�k�	:��	v	C"fhr]M���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		��

�$
�&

	�""
�$
�&	
�""	���$�&		�""�$�&	�""	
��

�$
�&

	�""
�$
�&	
�""			6jg___stack
	g___sp	g
___goto-table		g___push		g
yypushback		gtok		gtok		Mgtok	�g$5	�gtok		�gtok	
!gtok	fg$2	�gtok	
�gfilenameflanguage/ecmascript/parse.scm���	Q��		C"UhxK]=���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&
	�""�$�&	�""			6Cg___stack
	vg___sp	vg
___goto-table		vg___push		vg
yypushback		vgtok		vg$5		+vgtok		Rvgtok	�vg$3		�vgtok	
�vgtok	&vgfilenameflanguage/ecmascript/parse.scm�k�	D��	v	C"Qh�L]=���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		��

�$
�&

	�""
�$
�&	
�""	���$�&
	�""�$�&	�""			��6Dg___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$6		+�gtok		R�gtok	��gtok		��gtok	
!�gtok	f�gfilenameflanguage/ecmascript/parse.scm���	K��	�	C"Qhq]M���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	
��

�$
�&

	�""
�$
�&	
�""			
6ig___stack
	g___sp	g
___goto-table		g___push		g
yypushback		gtok		g$7		+gtok		Rgtok	�g$5		�gtok	
�gtok	&gtok	kgtok	
�gfilenameflanguage/ecmascript/parse.scm���	V��		C"Qhq]M���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&			�"	"	
	�$	�&		�""		���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	
��

�$
�&

	�""
�$
�&	
�""		
	6ig___stack
	g___sp	g
___goto-table		g___push		g
yypushback		gtok		g$7		+gtok		Rgtok	�gtok		�g$4	
�gtok	&gtok	kgtok	
�gfilenameflanguage/ecmascript/parse.scm���	V��		C"QhX�]]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&		�""�$�&	�""	��

�$
�&

	�""
�$
�&	
�""	
���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""				��6�g___stack
	Sg___sp	Sg
___goto-table		Sg___push		Sg
yypushback		Sgtok		Sg$8		+Sgtok		RSgtok	�Sg$6		�Sgtok	
�Sgtok	&Sg$4	ISgtok	
pSgtok	�Sgtok	�Sgfilenameflanguage/ecmascript/parse.scm�?�	a��	S	C"Qhq]M���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		��

�$
�&	
	�"
"

�$
�&	
�""	���$�&
	�""�$�&	�""	
��

�$
�&

	�""
�$
�&	
�""			6ig___stack
	g___sp	g
___goto-table		g___push		g
yypushback		gtok		g$7		+gtok		Rgtok	�gtok		�gtok	
!g$3	Dgtok	kgtok	
�gfilenameflanguage/ecmascript/parse.scm���	Z��		C"QhX�]]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&
	�""�$�&	�""	���$�&		�""
�$�&	�""	
���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""		
		��6�g___stack
	Sg___sp	Sg
___goto-table		Sg___push		Sg
yypushback		Sgtok		Sg$8		+Sgtok		RSgtok	�Sg$6		�Sgtok	
�Sgtok	&Sgtok	kSg$3	
�Sgtok	�Sgtok	�Sgfilenameflanguage/ecmascript/parse.scm�?�	e��	S	C"QhX�]]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&			�"	"	
	�$	�&		�""		���$�&
	�""�$�&	�""	���$�&		�""
�$�&	�""	
���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""		

	��6�g___stack
	Sg___sp	Sg
___goto-table		Sg___push		Sg
yypushback		Sgtok		Sg$8		+Sgtok		RSgtok	�Sgtok		�Sg$5	
�Sgtok	&Sgtok	kSg$3	
�Sgtok	�Sgtok	�Sgfilenameflanguage/ecmascript/parse.scm�?�	e��	S	C"Qh��]m���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&		�""�$�&	�""	��

�$
�&

	�""
�$
�&	
�""	
���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""				6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$9		+�gtok		R�gtok	��g$7		��gtok	
��gtok	&�g$5	I�gtok	
p�gtok	��g$3	��gtok	��gtok	D�gfilenameflanguage/ecmascript/parse.scm���	p��	�	C"QKhP�]U���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		��

�$
�&	
	�"
"

�$
�&	
�""	���$�&
	�""�$�&	�""	
��

�$
�&

	�""
�$
�&	
�""	���$�&
	�""�$�&	�""		�	��6|g___stack
	Pg___sp	Pg
___goto-table		Pg___push		Pg
yypushback		Pgtok		Pg$8		+Pgtok		RPgtok	�Pgtok		�Pgtok	
!Pg$4	DPgtok	kPgtok	
�Pgtok	�Pgfilenameflanguage/ecmascript/parse.scm�:�	k��	P	C"QKh��]e���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&
	�""�$�&	�""	���$�&		�""
�$�&	�""	
���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""			
�	6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$9		+�gtok		R�gtok	��g$7		��gtok	
��gtok	&�gtok	k�g$4	
��gtok	��gtok	��gtok	?�gfilenameflanguage/ecmascript/parse.scm���	v��	�	C"QKh��]e���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&			�"	"	
	�$	�&		�""		���$�&
	�""�$�&	�""	���$�&		�""
�$�&	�""	
���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""			
�
6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$9		+�gtok		R�gtok	��gtok		��g$6	
��gtok	&�gtok	k�g$4	
��gtok	��gtok	��gtok	?�gfilenameflanguage/ecmascript/parse.scm���	v��	�	C"QKh��]u���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&		�""�$�&	�""	��

�$
�&

	�""
�$
�&	
�""	
���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	
	�		
��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$10		+�gtok		R�gtok	��g$8		��gtok	
��gtok	&�g$6	I�gtok	
p�gtok	��g$4	��gtok	��gtok	D�gtok	��gfilenameflanguage/ecmascript/parse.scm������	�	C"Wh�]U���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&		�""�$�&	�""	��

�$
�&

	�""
�$
�&	
�""	
���$�&
	�""�$�&	�""			
6{g___stack
	g___sp	g
___goto-table		g___push		g
yypushback		gtok		g$7		+gtok		Rgtok	�g$5		�gtok	
�gtok	&g$3	Igtok	
pgtok	�gfilenameflanguage/ecmascript/parse.scm���	\��		C"TKWXhh�]]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&		�""�$�&	�""	��

�$
�&

	�""
�$
�&	
�""	
���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""		�		��6�g___stack
	ag___sp	ag
___goto-table		ag___push		ag
yypushback		agtok		ag$8		+agtok		Ragtok	�ag$6		�agtok	
�agtok	&ag$4	Iagtok	
pagtok	�agtok	�agfilenameflanguage/ecmascript/parse.scm�?�	a��	a	C"Wh�]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��	gfilenameflanguage/ecmascript/parse.scm���	8��	�	C"Yh��]���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""			��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�gfilenameflanguage/ecmascript/parse.scm���	-��	�	C"Gh�]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��	gfilenameflanguage/ecmascript/parse.scm���	2��	�	C"Zh��]���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""			��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�gfilenameflanguage/ecmascript/parse.scm���	'��	�	C"Mh�]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��	gfilenameflanguage/ecmascript/parse.scm���	4��	�	C"[h��]���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""			��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�gfilenameflanguage/ecmascript/parse.scm���	)��	�	C"]hxK]=���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&
	�""�$�&	�""			6Cg___stack
	vg___sp	vg
___goto-table		vg___push		vg
yypushback		vgtok		vg$5		+vgtok		Rvgtok	�vg$3		�vgtok	
�vgtok	&vgfilenameflanguage/ecmascript/parse.scm�k�	>��	v	C"ShxK]=���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&
	�""�$�&	�""			��6Cg___stack
	ug___sp	ug
___goto-table		ug___push		ug
yypushback		ugtok		ug$5		+ugtok		Rugtok	�ug$3		�ugtok	
�ugtok	&ugfilenameflanguage/ecmascript/parse.scm�k�	B��	u	C"h��]���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""			��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�gfilenameflanguage/ecmascript/parse.scm���	 ��	�	C"h��]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��		�	C"Sh88]5���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		4	5	��60g___stack
	7g___sp	7g
___goto-table		7g___push		7g
yypushback		7gtok		7gtok		M7g$3		p7gtok	�7g$2		�7gtok	
�7gfilenameflanguage/ecmascript/parse.scm�%�	:��	7	C"h�]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��	gfilenameflanguage/ecmascript/parse.scm���	.��	�	C"Sh88]5���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		4	5	��60g___stack
	7g___sp	7g
___goto-table		7g___push		7g
yypushback		7gtok		7gtok		M7g$3		p7gtok	�7g$2		�7gtok	
�7gfilenameflanguage/ecmascript/parse.scm�%�	:��	7	C"hX�]���$�&		�""�$�&	�""	6�g___stack
		Xg___sp		Xg
___goto-table			Xg___push			Xg
yypushback			Xgtok			Xg$1		+	Xgfilenameflanguage/ecmascript/parse.scm�	T�	��		X	C"Sh�]%���$�&		�""�$�&	�""	���$�&		�""�$�&	�""		45	��6	g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�g$1		u�	gfilenameflanguage/ecmascript/parse.scm���	+��	�	C"�h�]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��	gfilenameflanguage/ecmascript/parse.scm���	)��	�	C"�h88]5���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""				��60g___stack
	7g___sp	7g
___goto-table		7g___push		7g
yypushback		7gtok		7g$4		+7gtok		R7gtok	�7g$2		�7gtok	
�7gfilenameflanguage/ecmascript/parse.scm�&�	7��	7	C"\h��]���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""			��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�gfilenameflanguage/ecmascript/parse.scm���	$��	�	C"�h�]%���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""		6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��	gfilenameflanguage/ecmascript/parse.scm���	2��	�	C"]h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""			6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm���	5��	�	C"h�]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		 6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��	gfilenameflanguage/ecmascript/parse.scm���	2��	�	C"d^h�$]-���$�&		�""�$�&	�""	���$�&		�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		!���6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�g$2		u�gtok		��
gfilenameflanguage/ecmascript/parse.scm���	%��	�	C"dh�$]-���$�&		�""�$�&	�""	���$�&		�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		!6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�g$2		u�gtok		��
gfilenameflanguage/ecmascript/parse.scm���	'��	�	C"dh@I]=���$�&		�""�$�&	�""	���$�&		�""�$�&	�""	��		�$	�&			�"	"	
	�$	�&		�""	���$�&
	�""�$�&	�""		!
	��6Ag___stack
	>g___sp	>g
___goto-table		>g___push		>g
yypushback		>gtok		>g$4		+>gtok		R>g$3		u>gtok		�>g$2	
�>gtok	�>gfilenameflanguage/ecmascript/parse.scm�+�	-��	>	C"khxK]=���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&
	�""�$�&	�""		"	6Cg___stack
	vg___sp	vg
___goto-table		vg___push		vg
yypushback		vgtok		vg$5		+vgtok		Rvgtok	�vg$3		�vgtok	
�vgtok	&vgfilenameflanguage/ecmascript/parse.scm�k�	3��	v	C"ih�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		#	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm���	��	�	C"[hP�]
���$�&
	�""�$�&	�""	$6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	L�	��		P	C"jhP�]
���$�&
	�""�$�&	�""	$6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	L�	��		P	C"lhP�]
���$�&
	�""�$�&	�""	$6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	L�	��		P	C"nhP�]
���$�&
	�""�$�&	�""	$6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	L�	 ��		P	C"Xh`�]���$�&		�""�$�&	�""	$6�g___stack
		Zg___sp		Zg
___goto-table			Zg___push			Zg
yypushback			Zgtok			Zg$1		+	Zgfilenameflanguage/ecmascript/parse.scm�	Q�	%��		Z	C"_h`�]���$�&		�""�$�&	�""	$6�g___stack
		Zg___sp		Zg
___goto-table			Zg___push			Zg
yypushback			Zgtok			Zg$1		+	Zgfilenameflanguage/ecmascript/parse.scm�	Q�	(��		Z	C"`h`�]���$�&		�""�$�&	�""	$6�g___stack
		Zg___sp		Zg
___goto-table			Zg___push			Zg
yypushback			Zgtok			Zg$1		+	Zgfilenameflanguage/ecmascript/parse.scm�	Q�	(��		Z	C"ah`�]���$�&		�""�$�&	�""	$6�g___stack
		Zg___sp		Zg
___goto-table			Zg___push			Zg
yypushback			Zgtok			Zg$1		+	Zgfilenameflanguage/ecmascript/parse.scm�	Q�	)��		Z	C"abcdeh�F]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		$444555	��6>g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm���	-����	7����	G����	V����	Z����	G����	7����	-��		�	C"hX�]���$�&		�""�$�&	�""	$6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	$6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"h��]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		$6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��		�	C"gh��]���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""		%	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�gfilenameflanguage/ecmascript/parse.scm���	'��	�	C"kh�]���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""		%6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�gtok	��gfilenameflanguage/ecmascript/parse.scm���	/��	�	C"fh�]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		%�6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��	gfilenameflanguage/ecmascript/parse.scm���	3��	�	C"fh0']-���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		%�	��6g___stack
	.g___sp	.g
___goto-table		.g___push		.g
yypushback		.gtok		.gtok		M.gtok	�.g$2	�.gtok		�.
gfilenameflanguage/ecmascript/parse.scm�!�	9��	.	C"fhp:]5���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		��

�$
�&

	�""
�$
�&	
�""		%	�62g___stack
	mg___sp	mg
___goto-table		mg___push		mg
yypushback		mgtok		mgtok		Mmgtok	�mgtok	�mg$2		�mgtok	
!mgfilenameflanguage/ecmascript/parse.scm�f�	A��	m	C"hX�]���$�&		�""�$�&	�""	&6�g___stack
		Xg___sp		Xg
___goto-table			Xg___push			Xg
yypushback			Xgtok			Xg$1		+	Xgfilenameflanguage/ecmascript/parse.scm�	T�	)��		X	C"Sh�]%���$�&		�""�$�&	�""	���$�&		�""�$�&	�""		&45	��6	g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�g$1		u�	gfilenameflanguage/ecmascript/parse.scm���	1��	�	C"Sh�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		&4	56g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm���	;��	�	C"ShHI]=���$�&		�""�$�&	�""	���$�&		�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""	��

�$
�&	
	�"
"

�$
�&	
�""		&4455	��6Ag___stack
	Fg___sp	Fg
___goto-table		Fg___push		Fg
yypushback		Fgtok		Fg$4		+Fgtok		RFg$3		uFgtok		�Fgtok	
�Fg$1	Fgfilenameflanguage/ecmascript/parse.scm�*�	C��	F	C"mhP�]
���$�&
	�""�$�&	�""	'6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	L�	��		P	C"Smh�]���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""		'45	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$1		p�gfilenameflanguage/ecmascript/parse.scm���	��	�	C"oh��]���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""		(	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�gfilenameflanguage/ecmascript/parse.scm���	$��	�	C"nh�]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		(�6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��	gfilenameflanguage/ecmascript/parse.scm���	=��	�	C"h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		)	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm���	I��	�	C"Sh�]]E���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&		�""�$�&	�""		)4	56Ug___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$5		+�gtok		R�gtok	��g$3		��gtok	
��gtok	&�g$1	I�
gfilenameflanguage/ecmascript/parse.scm�o�	h��	�	C"hX�]���$�&		�""�$�&	�""	*6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"ph`�]���$�&		�""�$�&	�""	*456�g___stack
		Zg___sp		Zg
___goto-table			Zg___push			Zg
yypushback			Zgtok			Zg$1		+	Zgfilenameflanguage/ecmascript/parse.scm�	P�	#��		Z	C"hX�]���$�&		�""�$�&	�""	*6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	+6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	+6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"qh88]5���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&			�"	"	
	�$	�&		�""		+
	��60g___stack
	7g___sp	7g
___goto-table		7g___push		7g
yypushback		7gtok		7gtok		M7g$3		p7gtok	�7gtok		�7g$1	
�7gfilenameflanguage/ecmascript/parse.scm�&�	G��	7	C"rh�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		+	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm���	9��	�	C"Ih�$]-���$�&		�""�$�&	�""	���$�&		�""�$�&	�""	��		�$	�&
		�""	�$	�&		�""		+6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�g$2		u�gtok		��
gfilenameflanguage/ecmascript/parse.scm���	8��	�	C"hX�]���$�&		�""�$�&	�""	,6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"Ish�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		,��	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm���	(��	�	C"th�]%���$�&		�""�$�&	�""	���$�&		�""�$�&	�""		-	��6	g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�g$1		u�	gfilenameflanguage/ecmascript/parse.scm���	2��	�	C"th�]%���$�&		�""�$�&	�""	���$�&		�""�$�&	�""		-	��6	g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�g$1		u�	gfilenameflanguage/ecmascript/parse.scm���	0��	�	C"qh88]5���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	��		�$	�&			�"	"	
	�$	�&		�""		-
	��60g___stack
	7g___sp	7g
___goto-table		7g___push		7g
yypushback		7gtok		7gtok		M7g$3		p7gtok	�7gtok		�7g$1	
�7gfilenameflanguage/ecmascript/parse.scm�&�	C��	7	C"rh�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		-	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm���	5��	�	C"h��]���$�&
	�""�$�&	�""	���$�&
	�""�$�&	�""		.	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�gfilenameflanguage/ecmascript/parse.scm���	 ��	�	C"h��]%���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		.6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$2		p�gtok	��		�	C"hX�]���$�&		�""�$�&	�""	/6�g___stack
		Xg___sp		Xg
___goto-table			Xg___push			Xg
yypushback			Xgtok			Xg$1		+	Xgfilenameflanguage/ecmascript/parse.scm�	T�	*��		X	C"Sh�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		/4	56g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm���	=��	�	C"hX�]���$�&		�""�$�&	�""	06�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	06�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"hX�]���$�&		�""�$�&	�""	16�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"uh�]���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""		1	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$1		p�gfilenameflanguage/ecmascript/parse.scm���	4��	�	C"vh�]���$�&
	�""�$�&	�""	���$�&		�""�$�&	�""		1	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�gtok		M�g$1		p�gfilenameflanguage/ecmascript/parse.scm���	4��	�	C"hX�]���$�&		�""�$�&	�""	26�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"bh�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		2	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm���	/��	�	C"Oh�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		2	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm���	-��	�	C"hh�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		2	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm���	/��	�	C"wh�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		2	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm���	+��	�	C"xh�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		2	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm���	+��	�	C";h�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		2	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm���	*��	�	C"=h�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		2	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm��	*��	�	C"Eh�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		2	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm��	*��	�	C"Ch�]���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""		2	��6�g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$2		+�gtok		R�gfilenameflanguage/ecmascript/parse.scm��	*��	�	C"hX�]���$�&		�""�$�&	�""	36�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		3	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	L��	�	C"h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		3	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	L��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		3	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	L��	�	C"hX�]���$�&		�""�$�&	�""	46�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C";h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		4	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��
	I��	�	C"=h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		4	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	I��	�	C"hX�]���$�&		�""�$�&	�""	56�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		5	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	D��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		5	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	D��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		5	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	E��	�	C"hX�]���$�&		�""�$�&	�""	66�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		6	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	D��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		6	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	D��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		6	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	E��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		6	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	E��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		6	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	M��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		6	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	E��	�	C"hX�]���$�&		�""�$�&	�""	76�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		7	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	L��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		7	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	L��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		7	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	M��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		7	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	M��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		7	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��	U��	�	C"hX�]���$�&		�""�$�&	�""	86�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		8	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��"	F��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		8	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��#	F��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		8	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��$	G��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		8	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��%	G��	�	C"hX�]���$�&		�""�$�&	�""	96�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		9	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��(	R��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		9	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��)	R��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		9	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��*	S��	�	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		9	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��+	S��	�	C"hX�]���$�&		�""�$�&	�""	:6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		:	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��.	G��	�	C"hX�]���$�&		�""�$�&	�""	;6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		;	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��0	S��	�	C"hX�]���$�&		�""�$�&	�""	<6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		<	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��3	I��	�	C"hX�]���$�&		�""�$�&	�""	=6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		=	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��5	U��	�	C"hX�]���$�&		�""�$�&	�""	>6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		>	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��8	I��	�	C"hX�]���$�&		�""�$�&	�""	?6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		?	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��:	U��	�	C"hX�]���$�&		�""�$�&	�""	@6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"yh�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		@	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��=	I��	�	C"hX�]���$�&		�""�$�&	�""	A6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"yh�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		A	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��?	U��	�	C"hX�]���$�&		�""�$�&	�""	B6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		B	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��B	H��	�	C"hX�]���$�&		�""�$�&	�""	C6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"�h�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		C	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��D	T��	�	C"hX�]���$�&		�""�$�&	�""	D6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"_h�]]E���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&		�""�$�&	�""		D	6Ug___stack
	}g___sp	}g
___goto-table		}g___push		}g
yypushback		}gtok		}g$5		+}gtok		R}gtok	�}g$3		�}gtok	
�}gtok	&}g$1	I}
gfilenameflanguage/ecmascript/parse.scm�pG	d��	}	C"hX�]���$�&		�""�$�&	�""	E6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"_h�]]E���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""	��

�$
�&

	�""
�$
�&	
�""		���$�&		�""�$�&	�""		E	6Ug___stack
	}g___sp	}g
___goto-table		}g___push		}g
yypushback		}gtok		}g$5		+}gtok		R}gtok	�}g$3		�}gtok	
�}gtok	&}g$1	I}
gfilenameflanguage/ecmascript/parse.scm�pI	t��	}	C"hX�]���$�&		�""�$�&	�""	F6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"h�6]5���$�&		�""�$�&	�""	���$�&		�""�$�&	�""	��		�$	�&			�"	"	
	�$	�&		�""		F
6.g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�g$2		u�gtok		��g$1	
��gfilenameflanguage/ecmascript/parse.scm��L	\��	�	C"hX�]���$�&		�""�$�&	�""	G6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"h�6]5���$�&		�""�$�&	�""	���$�&		�""�$�&	�""	��		�$	�&			�"	"	
	�$	�&		�""		G
6.g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�g$2		u�gtok		��g$1	
��gfilenameflanguage/ecmascript/parse.scm��N	d��	�	C"hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LO	��		P	C"hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LP	��		P	C"!hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LQ	��		P	C"hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LR	��		P	C"
hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LS	��		P	C"hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LT	��		P	C"hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LU	��		P	C"hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LV	��		P	C"hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LW	 ��		P	C"hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LX	��		P	C"hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LY	��		P	C"hP�]
���$�&
	�""�$�&	�""	H6�g___stack
		Pg___sp		Pg
___goto-table			Pg___push			Pg
yypushback			Pgtok			Pgfilenameflanguage/ecmascript/parse.scm�	LZ	 ��		P	C"hX�]���$�&		�""�$�&	�""	I6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"Th�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		I	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��]	9��	�	C"hX�]���$�&		�""�$�&	�""	J6�g___stack
		Ug___sp		Ug
___goto-table			Ug___push			Ug
yypushback			Ugtok			Ug$1		+	U		U	C"Th�%]-���$�&		�""�$�&	�""	���$�&
	�""�$�&	�""	���$�&		�""	�$�&	�""		J	6g___stack
	�g___sp	�g
___goto-table		�g___push		�g
yypushback		�gtok		�g$3		+�gtok		R�gtok	��g$1		��
gfilenameflanguage/ecmascript/parse.scm��_	E��	�	Czh�q]	

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvJwxyz{|}~����������������'����'�������������������������������������������������������������������������������������������������������������	

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy�6igfilenameflanguage/ecmascript/parse.scm�
	.
���	3	��	�
gnamegmake-parser�CRC�gm
		,gfilenameflanguage/ecmascript/parse.scm�		
���	
���	#
���	'
���	,	���	,	���	,	���	+
����	.
��
	��
C6language/ecmascript/function.go000064400000012561150536206120012642 0ustar00GOOF----LE-8-2.0Y]�4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	g
ecmascript�	gfunction�		�	
gfilenameS�	f language/ecmascript/function.scm�	gimportsS�	
goop�	ggoops�	
�	�	gbase�	�	�	�	gexportsS�	g*function-prototype*�	g*program-wrappers*�	�	gset-current-module�	�	�	gtoplevel-define!�	�	�	g<js-program-wrapper>�	 g
make-class�	!g<js-object>�	"gnameS�	#gdefined?�	$#�	%#�	&gis-a?�	'&�	(&�	)g<class>�	*)�	+)�	,gmemq�	-g<object>�	.-�	/-�	0gclass-precedence-list�	10�	20�	3gclass-redefinition�	43�	53�	6gmake-doubly-weak-hash-table�	7gmake�	8gclassS�	9fFunction�	:gvalueS�	;g*undefined*�	<gpput�	=gtoString�	>g*this*�	?gformat�	@f~A�	Agjs-value�	Bgapply�	Cgwith-fluid*�	Dg<js-array-object>�	Egvector->list�	Fgjs-array-vector�	Ggthrow�	Hg	TypeError�	Igcall�	Jgpget�	K7�	L7�	Mg	<generic>�	NM�	OM�	Pgadd-method!�	QP�	RP�	Sg<method>�	TS�	US�	VgspecializersS�	Wg<applicable>�	Xg<top>�	YX�	ZX�	[gformalsS�	\go�	]gp�	^\]�	_gbodyS�	`glet�	agwrapper�	bg	hashq-ref�	cb\�	dac�	ed�	fgif�	gJa]�	hJ]�	ifagh�	j`ei�	kj�	lgmake-procedureS�	mg	procedureS�	ngv�	o\]n�	p<a]n�	qg	prototypeS�	r7:\89q�	sar�	ts�	ug
hashq-set!�	vu\a�	w`tvp�	xfapw�	y`ex�	zy�	{gjs-prototype�	|\�	}{a�	~fa}�	`e~����gjs-constructor���a��fa���`e�����C5h�]4	
54>"G"+44 i!i"5>"xG"q4%5$b4(i+5$K4,i/42i55$-45i4 i!i"5>"G""��t""��l""��d46i	5R47i!i89:;hh-13C`gargs
			gfilenamef language/ecmascript/function.scm�
		+��			


C5R4<ii=>?@Ahw][456ogthis
		gfilenamef language/ecmascript/function.scm�		"	
��	
	"	��		"	��		
C>"G4<iiB>;CAhT]4L56Lgfilenamef language/ecmascript/function.scm�		&	��		
C&DAEFht]4L544L55@lgfilenamef language/ecmascript/function.scm�		*	��	
	+	��	
	+	+��		+	��		*	��		
CGHBhX�]
[("�$O645$O6	
6�gthis-arg
		Rgarray		Rgthis			Rgfilenamef language/ecmascript/function.scm�	
	%		��		%	
��		%	��		%	��	*	&		��	+	'		��	7	%	��	H	(		��	L	-	��	N	-	��	R	-		��		R	C>"G4<iiI>CAh\]4L5L@Tgfilenamef language/ecmascript/function.scm�		2	��	
	2	��		
Ch �-13[O6�gthis-arg
			gargs			gthis			gfilenamef language/ecmascript/function.scm�		0	��			
C>"G4%J5�$"Ji�$!4J4LO"J5>"G"4RJi4LUVWiZ[^_klmbJh(�]
45$66�go
		#gp		#gwrapper			#gfilenamef language/ecmascript/function.scm�
	4
��		5	��		5	��		6	��		7	��	#	8	��		#	C5>"G4%<5�$"<i�$!4<4LO"<5>"G"4R<i4LUVWiZZ[o_zlmb<7:89quhX�]45$
64	
54>"G6�go
		Rgp		Rgv			Rgwrapper			Rgwrapper		0	Rgfilenamef language/ecmascript/function.scm�
	:
��		;	��		;	��		<	��		=	��		>	��	*	>	D��	0	>	��	0	>	��	3	@	
��	R	A	
��		R	C5>"G4%{5�$"{i�$!4{4LO"{5>"G"4R{i4LUVWi[|_�lmb{h �]	45$6C�go
		gwrapper		gfilenamef language/ecmascript/function.scm�
	C
��		D	��		D	��		E	��		F	��		C5>"G4%�5�$"�i�$!4�4LO"�5>"G"R�i4LUVWi[|_�lmb�h �]	45$6C�go
		gwrapper		gfilenamef language/ecmascript/function.scm�
	I
��		J	��		J	��		K	��		L	��		C56gm
		,gt
2gt
}�gt
	i	~gt

�
�gfilenamef language/ecmascript/function.scm�		
��	1	
���		���	
���		���		7��r		��u	
��v	!
��5	$
���	/
��	4
��v	:
��	b	C
��
�	I
��	�
C6language/ecmascript/tokenize.go000064400000054403150536206120012646 0ustar00GOOF----LE-8-2.0�X]�4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	g
ecmascript�	gtokenize�		�	
gfilenameS�	f language/ecmascript/tokenize.scm�	gimportsS�	
gice-9�	grdelim�	
�	�	gsrfi�	gsrfi-1�	�	gselectS�	gunfold-right�	�	�	gsystem�	gbase�	glalr�	�	�	�	gexportsS�	g
next-token�	 gmake-tokenizer�	!gmake-tokenizer/1�	"g
tokenize/1�	# !"�	$gset-current-module�	%$�	&$�	'gthrow�	(gsyntax-error�	)gand=>�	*g"source-location->source-properties�	+g
port-filename�	,g	port-line�	-gport-column�	.gcatch�	/.�	0.�	1gftell�	2gsource-location�	32�	42�	5gport-source-location�	6geof-object?�	7g	peek-char�	8fEOF while reading a token�	9gread-delimited�	:gpeek�	;g
read-until�	<g
char-numeric?�	=gmemv�	>abcdef�	?ABCDEF�	@g	char-hex?�	Ag
char->integer�	Bg
digit->number�	Cg
char-downcase�	Dghex->number�	Eg	read-char�	Fg
lexical-token�	GF�	HF�	Ig/�	Jgchar=?�	Kg	read-line�	LfEOF while in multi-line comment�	Mg/=�	Ngread-regexp�	Og
read-slash�	Pgstring�	Qgchar-alphabetic?�	Rg
string-append�	Sgreverse�	Tg
RegexpLiteral�	Uf(regexp literals may not contain newlines�	Vf�	Wg
StringLiteral�	Xf(octal escape sequences are not supported�	Yfbad hex character escape�	Zg
integer->char�	[gstring->number�	\f(string literals may not contain newlines�	]gread-string�	^fbreak�	_gbreak�	`^_��	afelse�	bgelse�	cab��	dfnew�	egnew�	fde��	gfvar�	hgvar�	igh��	jfcase�	kgcase�	ljk��	mffinally�	ngfinally�	omn��	pfreturn�	qgreturn�	rpq��	sfvoid�	tgvoid�	ust��	vfcatch�	wv.��	xffor�	ygfor�	zxy��	{fswitch�	|gswitch�	}{|��	~fwhile�	gwhile��~���fcontinue��gcontinue�������ffunction��gfunction�������fthis��gthis�������fwith��gwith�������fdefault��gdefault�������fif��gif�������fthrow���'���fdelete��gdelete�������fin��gin�������ftry��gtry�������fdo��gdo�������f
instanceof��g
instanceof�������ftypeof��gtypeof�������fnull��gnull�������ftrue��gtrue�������ffalse��gfalse�������`cfiloruwz}�������������������g
*keywords*��fabstract��gabstract�������fenum��genum�������fint��gint�������fshort��gshort�������fboolean��gboolean�������fexport��gexport���Œ��f	interface��g	interface���Ō��fstatic��gstatic���Ȍ��fbyte��gbyte���ˌ��fextends��gextends���Ό��flong��glong���ь��fsuper��gsuper���Ԍ��fchar��gchar���׌��ffinal��gfinal���ڌ��fnative��gnative���݌��fsynchronized��gsynchronized�����fclass��gclass���㌤�ffloat��gfloat���挤�fpackage��gpackage���錤�fthrows��gthrows���쌤�fconst��gconst����fgoto��ggoto�����fprivate��gprivate�������f	transient��g	transient�������fdebugger��gdebugger�������f
implements��g
implements������f	protected�g	protected���fvolatile�gvolatile���fdouble�gdouble���	fimport�
gimport�	
��fpublic�
gpublic�
�����������������������������g*future-reserved-words*�glist->string�g	assoc-ref�f&word is reserved for the future, dude.�gstring->symbol�g
Identifier�gread-identifier�ferror reading exponent: EOF�g+�g-�f!error reading exponent: non-digit�e1.0�gexpt�e0.0�f$bad digit reading hexadecimal number�finvalid digit in octal sequence� gread-numeric�!f{�"glbrace�#!"��$f}�%grbrace�&$%��'f(�(glparen�)'(��*f)�+grparen�,*+��-f[�.glbracket�/-.��0f]�1grbracket�201��3f.�4gdot�534��6f;�7g	semicolon�867��9f,�:gcomma�;9:��<f<�=g<�><=��?f>�@g>�A?@��Bf<=�Cg<=�DBC��Ef>=�Fg>=�GEF��Hf==�Ig==�JHI��Kf!=�Lg!=�MKL��Nf===�Og===�PNO��Qf!==�Rg!==�SQR��Tf+�UT��Vf-�WV��Xf*�Yg*�ZXY��[f%�\g%�][\��^f++�_g++�`^_��af--�bg--�cab��df<<�eg<<�fde��gf>>�hg>>�igh��jf>>>�kg>>>�ljk��mf&�ng&�omn��pf|�qgbor�rpq��sf^�tg^�ust��vf!�wg!�xvw��yf~�zg~�{yz��|f&&�}g&&�~|}��f||��gor������f?��g?�������f:��gcolon�������f=��g=�������f+=��g+=�������f-=��g-=�������f*=��g*=�������f%=��g%=�������f<<=��g<<=�������f>>=��g>>=�������f>>>=��g>>>=�������f&=��g&=�������f|=��gbor=�������f^=��g^=�������#&),/258;>ADGJMPSUWZ]`cfilorux{~��������������.��g
*punctuation*��f/���I���f/=���M�������g*div-punctuation*��gassv-ref��g
string-ref��g
string-length��g	substring��f!bad syntax: character not allowed��gread-punctuation��g*eoi*��gNumericLiteral��funexpected right parenthesis��gsrfi-9�����gthrow-bad-struct����������glexical-token-source��glexical-token-category��funexpected right bracket��funexpected right brace��greverse!�C5h�:�]4	
#54&>"G'()*h �-13456�gwhat
			 gloc			 gform				 gargs				 gfilenamef language/ecmascript/tokenize.scm�
	
��	
			��				��	 		��			 	
	gnamegsyntax-error�C(R+,-01h[]L6Sgfilenamef language/ecmascript/tokenize.scm�
	#	��		#	,��		
Chh-13C`gargs
			gfilenamef language/ecmascript/tokenize.scm�
	#	��			


C4h@�]!4545454O5�C�gport
		=ginput	&	=gline		&	=gcolumn		&	=goffset		&	=gfilenamef language/ecmascript/tokenize.scm�
	
��		 	��	
	!	��		"	��		#	��	&	 	��		=gnamegport-source-location�C5R67(89:hH4]4455$	6454455$
6C,gdelims
		Egport		Egloc			Egtoken		&	Egfilenamef language/ecmascript/tokenize.scm�
	'
��		(	��		(	��		(	��		(	��		)	��		)	��		*	��	$	*	/��	&	*	��	&	*	��	)	+	��	,	+	��	4	+	��	8	+	��	<	,	��	B	,	��		E	gnameg
read-until�C;R6<=>?h@�]	45$C45$C45$C6�gc
		=gt		=gt	*	=gfilenamef language/ecmascript/tokenize.scm�
	/
��		0	��	
	0	��		1	��		1	��	"	2	��	*	1	��	=	3	��			=gnameg	char-hex?�C@RAh�]45	0�C�gc
		
gfilenamef language/ecmascript/tokenize.scm�
	5
��		6	��		6	��		6	��		
gnameg
digit->number�CBR<BACh(�]45$6	
4455	a��C�gc
		&gfilenamef language/ecmascript/tokenize.scm�
	8
��		9	��	
	9	��		:	��		;	��		;	��	!	;	��	#	;	1��	$	;	��	%	;	��		&gnameghex->number�CDRE76HIJK(LMN
h0%]4>"G4545$�C4/5$4>"G64*5$�4>"G"c45$		
64*5$545/�$4>"G645"���45"���45"���$1=�$4>"G�C�C6gport
	,gloc	,gdiv?		,gc1		,gc		}�gfilenamef language/ecmascript/tokenize.scm�
	=
��		?	��		@	��		>	��		B	��	(	A	��	,	D	��	2	D	��	4	E	��	@	A	��	A	F	��	Z	G	��	[	H	��	g	A	��	h	I	��	}	J	��	~	L	
���	K	���	M	���	M	
���	N	
���	K	���	O	���	O	���	O	
���	Q	���	R	���	S	���	S	���	U	���	U	
���	J	���	J	���	J	���	A	���	W	���	X	��	X	4��	X	 ��	Y	"��#	Y	��,	[	��+	,	gnameg
read-slash�CORP7JE6Q<RSHT;(UVhx%]B4/\

5"G454/5$�4>"G"�45$"T45		$	";45		$	"#4$5		$	"	4_5			�$454	5�
�C4>"G45�"��L45"��<4\5$@4>"G454544\55"���
645"���gport
	qgloc	qgterms		qgstr		\ghead		\g
terminator		\gc		A�gflags		A�gt		H�gt			\�gt			q�gt		��gvalue	��gechar	+Rgfilenamef language/ecmascript/tokenize.scm�
	]
��		_	��		_	��		`	��		a	��		a	��		c	
��	+	b	��	,	d	
��	A	f	
��	B	g	��	H	g	��	V	h	��	\	h	��	k	i	��	q	h	���	j	���	h	���	k	���	h	���	g	���	m	*���	n	*���	m	$���	l	���	l	$���	l	���	o	���	p	���	p	,���	p	���	f	
���	f	���	f	/��	f	
��	q	
��	b	��	r	
��%	s	��+	s	
��.	t	��9	u	��@	u	(��J	u	��R	t	��V	w	��\	w	
��\	`	��]	`	��i	`	5��q	`	��4	q	gnamegread-regexp�CNREP7JHW6<(XY@ZD[R;\hX5]J454\

5"(4545$4>"G�C4\5$�4>"G45'�$""�$"\�$"sb�$"df�$"Un�$
"Fr�$
"7t�$	"(v�$"0�$<4545$"45$4	
5""�x�$s4545"4	455"=45$.45$4
	45�45�5""���""���"Xu�$M454545	45
4
44	
5	55
	"445455"���	645"���-gport
	Wgloc	Wgc			Wgterms		Wgstr		Fg
terminator		%Fgc		xgnext	@ga	T�gb	]�ga	�gb	�gc		�gd	
�	gechar	<gfilenamef language/ecmascript/tokenize.scm�
	z
��		{	��			{	��		|	��		|	��	�	��	�	��	%�	��	(�	��	4�	
��	5�	��	J�	 ��	Q�	��	S�	��	_�	
��	`�	��	r	~	��	x	~	���		
��	�	���	
���	���	��#�	��-�	��.�	��2�	��7�	��M		
��N�	��T�	
��W�	��]�	
��d�	��h�	��k�	>��u�	��y�	��z�	����	����	$����	����	����	)����	#����	:����	 ����	���		
����	����	
����	����	
����	����	
����	����	
����	����	����	.���	���	���	���	��#�	%��*�	!��6�	��<�	��@�	��F�	��F�	��G�	��W�	��J	W	gnamegread-string�C]R��RR6Q<JS�H(E7h�]*"�45$"T45$";45$"#4$5$"	4_5�$V445545$	�C4
5$
64
5	�C4>"G45�"��45"��xgport
	gloc	gc		�gchars		�gt		
	qgt		!	mgt		6	jgt		M	ggword	��gt	��gvalue	��gfilenamef language/ecmascript/tokenize.scm�
�
��	�	��	�	��	
�	��	�	��	!�	��	0�	��	6�	��	E�	��	M�	��	\�	��	n�	��	u�	��	v�	��	y�	"����	����	����	����	
����	 ����	����	
����	����	����	*����	����	*����	����	����	����	$����	����	����	����	'���	��%		gnamegread-identifier�CRJ7E6B<(@Dh�/]:445.5$0"454545$6"?"*45$C45$.4>"G45	
�45�"���4e5$"	4E5$4>"G4545$45"f4+5$4>"G	"A4-5$4>"G
"45$	"45"k45$"45$24>"G454	
�455"���
�$	�"4
	
5�C45
"���4.5$�4>"G"d45$"45$:4>"G45454
	
5���"����"���45	�"���C45"���405$Y4x5$"	4X5$�4>"G4545$"4>"G"<45$.4>"G45	�45�"���C
"���45$�"�45$C45$n485$"	495$4>"G"4>"G45	�45�"��yC
"��k"��["��W'gport
	�gloc	�gc0		!�gc1		*�gc1		Eogacc		Eogt	��gc	�Ogadd	O�gc	U�ge	U�gc	�Wgdec	�Wgn	�Wgt	��gc	�>gc	�3gacc	�3gc	M�gacc	M�gt	o�gfilenamef language/ecmascript/tokenize.scm�

��		��		��		��		
��		��	!	��	$	
��	*	��	-	��	7	��	=	��	E"	��	F$	
��	P#	��	T%	
��	^#	��	_&	
��	q'	��	|(	��	}(	���(	���'	
���)	���)	
���)	���#	���*	
���+	���+	���,	���,	���-	���-	,���-	���/	���,	���/	-��0	��,	��0	-��11	��;,	��B3	��F3	,��L3	��O+	
��U5	��V6	��`6	��f6	0��p6	��q7	���8	���8	*���8	/���8	8���8	*���8	���:	���:	���:	1���:	*���:	;���:	���5	���5	���5	���;	
���#	���<	
���=	
���>	���>	��>	.��>	��?	��!@	��*A	"��1A	4��:A	��;A	��>B	��H@	��OE	��WE	��W=	
��X=	��`=	.��l=	
��o"	��r"	���"	���	���	���	���	���	���	/���	���		���
	���
	���	���	���	���	���	���	���	��	
��	��	�� 	��!	#��(	��0	��3	��?	��I	��M	��N	��X	��\	��f	��g	��o	��}	&���	���	���	!���	���	���	���	���	 ���	���	���	���	�	gnamegread-numeric�C R��R��R����h��]
(C44��
55$D4��5�$���"4L�4��5���5��"���4��
5�"���gnodes
	�gpuncs	�gt		�gfilenamef language/ecmascript/tokenize.scm�
	��	�	��	�	��	�	,��	�	8��	�	,��	�	��	�	��	%�	(��	*�	7��	-�	(��	/�	%��	3�	!��	8�	9��	:�	%��	A�	/��	F�	3��	G�	7��	L�	B��	P�	7��	S�	9��	U�	3��	Z�	/��	[�	%��	`�	+��	h�	!��	i�	,��	n�	8��	r�	,��	v�	&��	y�	 ����	��!	�	gnameglp�COQ4�i5�E7H(�hpF]""U45$)4>"G45��"���$�C645L"���>gport
		ogloc		ogc			[gtree			[g	candidate			[gt			[gfilenamef language/ecmascript/tokenize.scm�
�	��	�	��	�	
��	�	��	�	��	*�	��	3�	$��	6�	4��	@�	��	F�	��	P�	
��	U�	��	[�	
��	[�	��	\�	��	o�	��		o	CO�R75EO]6�QJ< H��hP]"4545	�$"/�$"!�$" �$"��$4>"G6
�$"
�$4>"G6/�$
6"�$"'�$645$C4	5$""4
$5$"	4
_5$645$4
5�C6gport
	Ogdiv?	Ogc		Ogloc		Ogt	�gt	�gvalue	9Ggfilenamef language/ecmascript/tokenize.scm�
�
��	�	
��	
�	
��	�	��	�	��	V�	��	o�	��	x�	����	����	����	����	����	����	����		����	����		����	
����		����	
����		���	
���	��%�		��&�		��0�	��1�	1��9�		��?�	��F�		��O�		�� 	O	gnameg
next-token�CRH�WhX]4LM5�$:�&,
�&"&"�""NC�gtok
		Tgcat	!	Egfilenamef language/ecmascript/tokenize.scm�
�	��	�	��	�	��	�	��	�	��	�	��	!�	#��	!�	��	'�	'��	+�	��	,�	��	4�	'��	8�	��	9�	��	A�	'��	B�	��	Q�	��		T
Ch�]	HOC�gport
		gdiv?		gfilenamef language/ecmascript/tokenize.scm�
�
��	�	��		gnamegmake-tokenizer�C R�H(+(����.1�"%�7�Whh�]M$C4LM5�$�&
�""�$M�N"��$}"14�&�"	4	5>"KG"DM�$9M��&
�"	4
5&	M�N""���""���"F�$M�N"2�$}"14
�&�"	4	5>"KG"DM�$9M��&
�"	4
5&	M�N""���""���"��$M�N"��$}"14�&�"	4	5>"KG"DM�$9M��&
�"	4
5&	M�N""���""���"�$	M�N"�$:�&,
�&"&"�""NC�gtok
	bgkey	6gs	��gs	.Mgs	��gcat/Sgfilenamef language/ecmascript/tokenize.scm�
�	��	�	��	
�	
��	�	��	�	
��	�	��	�	��	 �	��	*�	+��	6�	��	F�	��	H�	��	U�	��	Z�	��	^�	!��	a�	!��	~�	����	����	����	����	5����	����	B����	����	����	����	����	����	����	����	����	!����	!���	��$�	��'�	��+�	��.�	5��.�	��O�	B��S�	��V�	��X�	��u�	��z�	��|�	����	����	����	!����	!����	����	����	����	����	5����	����	B����	����	����	���	���	���	���	��"�	��%�	��/�	'��/�	��5�	+��9�	��:�	"��B�	+��F�	��G�	"��O�	+��P�	"��_�	��N	b
Ch �]HHHOC�gport
		gdiv?		geoi?			gstack			gfilenamef language/ecmascript/tokenize.scm�
�
��	�	��	�	��		gnamegmake-tokenizer/1�C!R ��h8#]45" 45&6�"���"���gport
		6gnext			6gout			/gtok			/gfilenamef language/ecmascript/tokenize.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	$�	��	)�	��	/�	��	/�	��	0�	��	6�	��		6gnamegtokenize�CR!��h8%]45" 45&6�"���"���gport
		6gnext			6gout			/gtok			/gfilenamef language/ecmascript/tokenize.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	$�	��	)�	��	/�	��	/�	��	0�	��	6�	��		6gnameg
tokenize/1�C"RC�gm
		,glp
(�(�g	punc-tree
(�*�gfilenamef language/ecmascript/tokenize.scm�		
��9	
���	
��'	'
��O	/
��	5
��
	8
���	=
��`	]
��(	z
��*�	��-�
��0�	��4�
����
��&S
��&VJ	��&ZI
��&]z	��&ay
��(�	��(�	#��(�	��(�	��*�~
��.S�
��0��
��7��
��9^�
��:��
��	:�
C6language/ecmascript/impl.go000064400000037723150536206120011765 0ustar00GOOF----LE-8-2.0�?]4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	g
ecmascript�	gimpl�		�	
gfilenameS�	flanguage/ecmascript/impl.scm�	gimportsS�	
goop�	ggoops�	
�	�	gbase�	�	�	gfunction�	�	�	garray�	�	�	�	gexportsS�	gjs-init�	gget-this�	gtypeof�	gbitwise-not�	 glogical-not�	!gshift�	"gmod�	#gband�	$gbxor�	%gbior�	&gmake-enumerator�	' !"#$%&�	(g
re-exportsS�	)g*undefined*�	*g*this*�	+g
call/this*�	,gpget�	-gpput�	.gpdel�	/g
has-property?�	0g	->boolean�	1g->number�	2g
new-object�	3gnew�	4g	new-array�	5)*+,-./01234�	6gset-current-module�	76�	86�	9gdefined?�	:9�	;9�	<g	js-module�	=gis-a?�	>=�	?=�	@g	<generic>�	A@�	B@�	Cgtoplevel-define!�	DC�	EC�	Fgensure-generic�	GF�	HF�	Ig<js-module-object>�	Jg<class>�	KJ�	LJ�	Mgmemq�	Ng<object>�	ON�	PN�	Qgclass-precedence-list�	RQ�	SQ�	Tgclass-redefinition�	UT�	VT�	Wg
make-class�	Xg<js-object>�	Ygmodule�	Zg	init-formS�	[gcurrent-module�	\[�	]g
init-thunkS�	^ginit-keywordS�	_gmoduleS�	`ggetterS�	agnameS�	bgmake�	cb�	db�	egadd-method!�	fe�	ge�	hg<method>�	ih�	jh�	kgspecializersS�	lg<string>�	mgformalsS�	ngo�	ogp�	pno�	qgbodyS�	rgstring->symbol�	sro�	t,ns�	ut�	vgmake-procedureS�	wg	procedureS�	xg<symbol>�	yglet�	zgv�	{gmodule-variable�	|<n�	}{|o�	~z}�	~��gif��gvariable-ref���z��gnext-method������z����y������g<top>��������noz��-nsz�����gmodule-define!���|oz�����g
prop-attrs��gcond��gmodule-local-variable���|o��gquote���������g
DontDelete��gReadOnly����������}���gelse����������������ns�����g	prop-keys��n��gappend��ghash-map->list��glambda��gk���z�������gmodule-obarray���|���������������gresolve-interface��gmap��gstring-split��g
js-require��g<js-global-object>��\��gNaN��e+nan.0��gInfinity��e+inf.0��g	undefined��grequire��gObject��g*object-prototype*��gArray��g*array-prototype*��ginit-js-bindings!��f	undefined��fobject��gboolean?��fboolean��gnumber?��fnumber��gstring?��fstring��g
procedure?��ffunction��fscm��glognot��g->primitive��gash��glogand��glogxor��glogior��gmodulo��g+��ga��gb������g
string-append����������g->string��������������������������1���1�����������g-����������g*����������g/����������g<����������gstring<����������g<=����������gstring<=����������g>=����������gstring>=���������g>�����gstring>�����gobj-and-prototypes�gjs-prototype�gmake-hash-table�	gfor-each�
g
hashq-set!�gfilter�gprop-has-attr?�
gDontEnum�C5h�+!]4	
'(55	48>"G4;<5�$"4?<iB5�$14E<4H4;<5$<i"<5>"G"4;I5$#4?IiL5$l4MiP4SIi55$�4VIi4WiXiYZ\][hP]6Hgfilenameflanguage/ecmascript/impl.scm�		'	��		
C^_`<i	aI5>"G"�4EI4WiXiYZ\][hP]6Hgfilenameflanguage/ecmascript/impl.scm�		'	��		
C^_`<i	aI5>"G"�4EI4WiXiYZ\][hP]6Hgfilenameflanguage/ecmascript/impl.scm�		'	��		
C^_`<i	aI5>"G"�4EI4WiXiYZ\][hP]6Hgfilenameflanguage/ecmascript/impl.scm�		'	��		
C^_`<i	aI5>"G4;,5�$",i�$!4E,4dBa,5>"G"4g,i4djkIilimpquvw,rh}]456ugo
		gp		gfilenameflanguage/ecmascript/impl.scm�
	)
��		*	
��		*	��			C5>"G4;,5�$",i�$!4E,4dBa,5>"G"4g,i4djkIiximpq�v{<h(�]
4455$CL6�go
		$gp		$gv			$gfilenameflanguage/ecmascript/impl.scm�
	+
��		,	��		,	��		,	��		,	��		-	��		.	��	$	+
��			$	Chm]OCegreal-next-method
		
gfilenameflanguage/ecmascript/impl.scm�
	+
��		
Cw5>"G4;-5�$"-i�$!4E-4dBa-5>"G"4g-i4djkIili�m�q�vw-rh�]456�go
		gp		gv			gfilenameflanguage/ecmascript/impl.scm�
	0
��		1	
��		1	��			C5>"G4;-5�$"-i�$!4E-4dBa-5>"G"4g-i4djkIixi�m�q�vw�<h�]456�go
		gp		gv			gfilenameflanguage/ecmascript/impl.scm�
	2
��		3	��		3	��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djkIiximpq�v�<{�h8�]4455$C4455$CL6�go
		3gp		3gfilenameflanguage/ecmascript/impl.scm�
	4
��		5		��		5	 ��		5		��		5	��		5	1��		6		��		6	��	$	6		��	(	5	��	*	6	+��	3	4
��
		3	Chm]OCegreal-next-method
		
gfilenameflanguage/ecmascript/impl.scm�
	4
��		
Cw5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djkIilimpq�vw�rh}]456ugo
		gp		gfilenameflanguage/ecmascript/impl.scm�
	8
��		9	��		9	��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djkIim�q�v��hn]Cfgk
		gv		gfilenameflanguage/ecmascript/impl.scm�
	;	��			C�<h �]4445554L56�go
		 gfilenameflanguage/ecmascript/impl.scm�
	:
��		;	
��	
	;	+��	
	;	;��		;	+��		;	
��		:
��	 	;	��			 Chm]OCegreal-next-method
		
gfilenameflanguage/ecmascript/impl.scm�
	:
��		
Cw5>"GbI_��r�h �]444.5556�gmodstr
		gfilenameflanguage/ecmascript/impl.scm�
	?
��			A	��		A	��		A	/��		A	��		A	��		@	��		gnameg
js-require�C�R"+4E�4WiIia�5>"xG"q4;�5$b4?�iL5$K4MiP4S�i55$-4V�i4WiIia�5>"G""��t""��l""��d4;<5�$"<i�$!4E<4dBa<5>"G"4g<i4djk�im�q�vw[hf]6^go
		gfilenameflanguage/ecmascript/impl.scm�
	D
��		E	��		C5>"G������)������h�]4>"G4>"G4>"G4	>"G4
>"G
6gmod
		zgfilenameflanguage/ecmascript/impl.scm�
	G
��		H	��			H	��		H	��		H	��		I	��		I	��	!	I	 ��	&	I	��	/	J	��	5	J	��	<	J	��	E	K	��	K	K	��	R	K	��	[	P	��	a	P	��	h	P	��	v	Q	��	z	Q	��		zgnameginit-js-bindings!�C�R*b��[h(�]45$C45\456�gt
		%gfilenameflanguage/ecmascript/impl.scm�
	S
��		T		��		T	��		V	��		W	��	%	W		��		%
gnamegjs-init�CR*hc][C[gfilenameflanguage/ecmascript/impl.scm�
	Y
��		
gnamegget-this�CR)����������=X�hh]&C(C45$C45$C45$	C4
5$C4
5$CC	gx
		agfilenameflanguage/ecmascript/impl.scm�
	\
��	
	]	��		]	��		]	��		^	��		_		��	!	]	��	#	_	��	%	`		��	/	]	��	1	`	��	3	a		��	=	]	��	?	a	��	A	b		��	K	]	��	M	b	��	O	c		��	[	]	��	]	c	��	`	d	��		agnamegtypeof�CR�iR0�h�]4455�C�gx
		gfilenameflanguage/ecmascript/impl.scm�
	g
��		h	��		h	��		h	��		h	��		gnameglogical-not�C R�i!R�i#R�i$R�i%R�i"R4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djklilim�q�vw�hu]6mga
		
gb		
gfilenameflanguage/ecmascript/impl.scm�
	r
��	
	s	��		
	C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djkli�m�q�vw��h}]456uga
		gb		gfilenameflanguage/ecmascript/impl.scm�
	u
��		v	��		v	��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djk�lim�q�vw��h}]456uga
		gb		gfilenameflanguage/ecmascript/impl.scm�
	x
��		y	��		y	��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djk��m�q�vw1h�]4545�C}ga
		gb		gfilenameflanguage/ecmascript/impl.scm�
	{
��		|	��	
	|	��		|	��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djk��m�q�vw1h�]4545�C}ga
		gb		gfilenameflanguage/ecmascript/impl.scm�
	~
��			��	
		��			��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djk��m�q�vw1h�]4545�C�ga
		gb		gfilenameflanguage/ecmascript/impl.scm�
�
��	�	��	
�	��	�	��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djk��m�q�vw1h�]4545�C�ga
		gb		gfilenameflanguage/ecmascript/impl.scm�
�
��	�	��	
�	��	�	��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djk��m�q�vw1h�]4545�C�ga
		gb		gfilenameflanguage/ecmascript/impl.scm�
�
��	�	��	
�	��	�	��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djklilim�q�vw�hw]6oga
		
gb		
gfilenameflanguage/ecmascript/impl.scm�
�
��	
�	��		
	C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djk��m�q�vw1h�]4545�C�ga
		gb		gfilenameflanguage/ecmascript/impl.scm�
�
��	�	��	
�	��	�	��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djklilim�q�vw�hw]6oga
		
gb		
gfilenameflanguage/ecmascript/impl.scm�
�
��	
�	��		
	C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djk��m�q�vw1h�]4545�C�ga
		gb		gfilenameflanguage/ecmascript/impl.scm�
�
��	�	��	
�	��	�	��			C5>"G4;�5�$"�i�$!4E�4dBa�5>"G"4g�i4djklilim�q�vw�hw]6oga
		
gb		
gfilenameflanguage/ecmascript/impl.scm�
�
��	
�	��		
	C5>"G4;5�$"i�$#4E4dBa5>"G"4gi4djk��m�qvw1h�]4545�C�ga
		gb		gfilenameflanguage/ecmascript/impl.scm�
�
��	�	��	
�	��	�	��			C5>"G4;5�$"i�$#4E4dBa5>"G"4gi4djklilim�qvwhw]6oga
		
gb		
gfilenameflanguage/ecmascript/impl.scm�
�
��	
�	��		
	C5>"Gh �]$4455�CC�go
		gfilenameflanguage/ecmascript/impl.scm�
�
��	�	��	�	��	�	"��	�	��	�	��	�	��		gnamegobj-and-prototypes�CR		
hi]L6agk
		gfilenameflanguage/ecmascript/impl.scm�
�	��	�	&��		C�hr]LO456jgo
		gfilenameflanguage/ecmascript/impl.scm�
�	��	�	��	�	��		C4
h�]4L5�C|gp
		gfilenameflanguage/ecmascript/impl.scm�
�	��	�	$��	�	:��	
�	$��	�	��		C�ho]Cggk
		gv		gfilenameflanguage/ecmascript/impl.scm�
�	-��			C
hH�]	4	54O45>"G4O4	55@�gobj
		Bgprops			Bgfilenameflanguage/ecmascript/impl.scm�
�
��	�	��		�	��	�	��	�	��	!�	��	,�	��	6�	��	@�	��	B�	��		Bgnamegmake-enumerator�C&RCgm
		0gt
	8	Tgt
cxgt
|�gt
o�gt
��gt
��gt

�
�gt
�gt
��gt
��gt
��gt
��gt
��gt
��gt
gt
(=gt
Pegt
x�gt
 � �gt
!�!�gt
"�"�gt
#�#�gt
$�%
gt
&!&7gfilenameflanguage/ecmascript/impl.scm�		
��	1	&
��\	)
��u	+
��h	0
���	2
���	4
��
�	8
���	:
��5	?
��:	C
���	D
���	G
��m	S
���	Y
���	\
���	f
��Y	g
��`	j
��g	l
��n	m
��u	n
��|	p
��}	r
���	u
���	x
���	{
���	~
����
��!�
��I�
��q�
�� �
��!��
��"��
��#��
��$��
��&�
��( �
��+��
��)	+�
C6language/ecmascript/array.go000064400000022541150536206120012132 0ustar00GOOF----LE-8-2.0I%]�4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	g
ecmascript�	garray�		�	
gfilenameS�	flanguage/ecmascript/array.scm�	gimportsS�	
goop�	ggoops�	
�	�	gbase�	�	�	gfunction�	�	�	�	gexportsS�	g*array-prototype*�	g	new-array�	�	gset-current-module�	�	�	gdefined?�	 �	!�	"gjs-array-vector�	#gis-a?�	$#�	%#�	&g
<accessor>�	'&�	(&�	)gtoplevel-define!�	*)�	+)�	,gensure-accessor�	-,�	.,�	/g<js-array-object>�	0g<class>�	10�	20�	3gmemq�	4g<object>�	54�	64�	7gclass-precedence-list�	87�	97�	:gclass-redefinition�	;:�	<:�	=g
make-class�	>g<js-object>�	?gvector�	@g
init-valueS�	A�	BgaccessorS�	Cginit-keywordS�	DgvectorS�	EgnameS�	Fgmake�	GgclassS�	HfArray�	Ig	prototypeS�	Jgpput�	Kglength�	LgvalueS�	MgconstructorS�	Ng
hashq-set!�	Og*program-wrappers*�	Pg	prototype�	Qgconstructor�	Rgpget�	SF�	TF�	Ug	<generic>�	VU�	WU�	Xgadd-method!�	YX�	ZX�	[g<method>�	\[�	][�	^gspecializersS�	_g<top>�	`_�	a_�	bgformalsS�	cgo�	dgp�	ecd�	fgbodyS�	ggcond�	hgand�	iginteger?�	jid�	kgexact?�	lkd�	mg>=�	nmd
�	ohjln�	pglet�	qgv�	r"c�	sqr�	ts�	ugif�	vg<�	wg
vector-length�	xwq�	yvdx�	zg
vector-ref�	{zqd�	|gnext-method�	}|�	~uy{}�	pt~��o��gor��gsymbol?���d��geq?��gquote���K���d���h����gstring?���d��gstring=?��flength���d���h���������wr������gelse���}��g��������gmake-procedureS��g	procedureS��cdq��m
d��hjl���gvect���r�����w���vd���gvector-set!����dq��gnew��gmake-vector��g1+���d����
���������gvector-move-left!����
��
��gset!���r�����dq��p������u�����p��������g->uint32���q����
���������gmin���������
��
��p�����p��������g��������gsetter��������gtoString��g*this*��gformat��f~A��gconcat��g+��gmap��gerror��f)generic array concats not yet implemented��gjoin��gstring-join��g->string��f,��gpop��g*undefined*��gpush�C5hw]4	
54>"G4!"5�$"4%"i(5�$14+"4.4!"5$"i""5>"G"4!/5$�4%/i25$�43i649/i55$@4</i4=i>i?@AB"iCDE/5>"G":4+/4=i>i?@AB"iCDE/5>"G":4+/4=i>i?@AB"iCDE/5>"G":4+/4=i>i?@AB"iCDE/5>"GF/GHIJKK"hpK-134544	5>"G4
5"(C����"���
"���Cgvals
			lgo		lgvect		<	lgi		B	agvals		B	agfilenameflanguage/ecmascript/array.scm�
	
��	
		��			+��			��			��		!	��	!	!	��	"	!	��	-	!	��	6	"	��	<	"	��	B	#	��	H	$	��	R	%	#��	S	%	��	V	&	��	Y	&	��	a	&	��	a	#	��			l


gnameg	new-array�CR4Fi>iGHLiMi5R4NiOiii>"G4JiiPi>"G4JiiQi>"G4!R5�$"Ri�$!4+R4TWER5>"G"4ZRi4T]^/iabef��ik"wK���	h8�]
45$�45$~
�$%4545�$�CL6�$	�"$"45$
45"$456L6�$	�"$"45$
45"$456L6�$	�"$"45$
45"$456L6}go
	8gp	8gv		'	Egt		V	gt	��gt	�!gfilenameflanguage/ecmascript/array.scm�
	2
��		3	��	
	3	��		3	��		3		��		3	&��	 	3		��	!	4	��	'	4		��	,	5	��	3	5	��	7	5	��	<	6	��	E	2
��	H	8	��	L	8	
��	P	8	%��	Q	8	��	V	8		��	d	9	��	n	9	
��	o	9	��	u	9	*��	w	9	���	3	���	:	���	:		���	2
���	8	���	8	
���	8	%���	8	���	8		���	9	���	9	
���	9	���	9	*���	9	���	3	���	:	���	:		���	2
���	8	���	8	
���	8	%���	8	���	8		��	9	��	9	
��	9	��	9	*��	9	��%	3	��(	:	��0	:		��8	2
��9	8	Chn]OCfgreal-next-method
		
gfilenameflanguage/ecmascript/array.scm�
	2
��		
C�5>"G4!J5�$"Ji�$!4+J4TWEJ5>"G"4ZJi4T]^/iaab�f��K���"����w�ikh0k]"��$	�"$"45$
45"$N45445
54
4	4
5455
>"G456L645$�4
5$v
�$j454
5�$	�C4�
54
4
5
>"G445>"G�C"���"���"���cgo
	0gp	0gv		0gt			@gvect		K�gnew		Z�gvect	�$gnew	�$gfilenameflanguage/ecmascript/array.scm�
	=
��			G	��	
	G	
��		G	%��		G	��		G		��	%	H	��	/	H	
��	0	H	��	6	H	*��	8	H	��	D	>	��	E	I	��	K	I		��	N	J	��	Q	J	#��	Z	J	��	Z	J	��	]	K	
��	c	K	'��	f	K	,��	m	K	A��	u	K	'��	}	K	
���	M	
���	=
���	>	���	>	���	>	���	>	���	>		���	>	&���	>		���	?	���	?		���	@	���	@	���	@	���	A	���	C	���	C	'���	C	���	C	���	D	���	D	+���	D	��	E	��"	F	��1	0	Chn]OCfgreal-next-method
		
gfilenameflanguage/ecmascript/array.scm�
	=
��		
C�5>"G4Jii����"ht][456lgthis
		gfilenameflanguage/ecmascript/array.scm�		Q	
��	
	Q	��		Q	��		
C>"G4Jii����RK��RKh�]456xgx
		gfilenameflanguage/ecmascript/array.scm�
	U	��		U	0��		U	8��	
	U	0��		U	&��		C�F/GHID#"�w��h��-13[4445545?4
5"i(	

64�
5$=4�54
45>"G�45�"���6�
"����grest
		�gthis	�glen		*�grv		4�gobjs		:�gi		:�gv		h�gfilenameflanguage/ecmascript/array.scm�		T	��		T	��		T	!��		T	,��		T	!��		T	��	 	U	��	*	T	��	*	T	��	-	W	
��	4	T	��	:	X	��	@	Y	��	H	Y	:��	R	Y	��	S	\	
��	X	\	��	\	\	
��	`	Y	��	a	]	��	f	]	'��	h	]	��	h	]	
��	k	^	��	q	^	&���	^	���	`	���	`	#���	`	���	`	���	b	���	b	
���	X	���	X	���	X	��$		�


C>"G4Jii�����R�KhhR-13[">
�$$4�5"6�4455�"���4455�"���Jg	separator
			hgthis		hgi			Pgl			Pgfilenameflanguage/ecmascript/array.scm�		e	��		f	��		f	��	$	g	��	%	g	%��	*	g	/��	,	g	%��	2	g	@��	4	g	��	7	h	��	8	i	��	;	i	��	E	i	��	H	i	��	P	h	��	P	e	��	Q	e	��	T	e	��	Z	e	'��	\	e	��	^	e	��	_	e	��	`	e	6��	h	e	��			h


C>"G4Jii���RK�JhH�][4455
�$C4�54�>"GC�gthis
		Hglen		Hgret		,	Hgfilenameflanguage/ecmascript/array.scm�		l	
��		l	��		l	"��		l	��		l	
��		l	��		m	��		m	��	#	o	��	*	o	��	,	o	��	,	o	��	/	p	
��	5	p	��	8	p	��	=	p	
��		H
C>"GJii���RKJh`	-13["?(
45644455�>"G�"���"���gargs
			Ygthis		Ygargs			Qgfilenameflanguage/ecmascript/array.scm�		t	��		u	��		v	��	!	v	��	#	v	��	%	v	��	&	w	��	+	w	��	.	w	$��	4	w	/��	6	w	$��	8	w	��	;	w	9��	@	w	��	K	x	��	Q	x	��	Q	t	��			Y


C6ogm
		,gt
	4	Pgt

gt
�	gfilenameflanguage/ecmascript/array.scm�		
��	-	
���		���	
��		��"	
��J		��`	
���		���	
���	
���	)	���	)	4���	)	���	)
���	-
���	/
���	/	���	/
���	0
���	0	���	0
��	2
���	=
��
�	P
��j	S
��	d
���	k
���	s
��	�
C6language/ecmascript/base.go000064400000047304150536206120011732 0ustar00GOOF----LE-8-2.0�N]04h}]gguile�	�	gdefine-module*�	�	�	glanguage�	g
ecmascript�	gbase�		�	
gfilenameS�	flanguage/ecmascript/base.scm�	gimportsS�	
goop�	ggoops�	
�	�	�	gexportsS�	g*undefined*�	g*this*�	g<js-object>�	g*object-prototype*�	gjs-prototype�	gjs-props�	g
js-prop-attrs�	gjs-value�	gjs-constructor�	gjs-class�	gpget�	g	prop-keys�	g
prop-attrs�	 gprop-has-attr?�	!gpput�	"g
has-property?�	#gpdel�	$gobject->string�	%gobject->number�	&gobject->value/string�	'gobject->value/number�	(g
object->value�	)g->primitive�	*g	->boolean�	+g->number�	,g	->integer�	-g->int32�	.g->uint32�	/g->uint16�	0g->string�	1g->object�	2g
call/this*�	3g	call/this�	4glambda/this�	5gdefine-js-method�	6g
new-object�	7gnew�	8 !"#$%&'()*+,-./01234567%�	9gset-current-module�	:9�	;9�	<gmake-unbound�	=<�	><�	?g
make-fluid�	@gdefined?�	A@�	B@�	Cgis-a?�	DC�	EC�	Fg	<generic>�	GF�	HF�	Igtoplevel-define!�	JI�	KI�	Lgensure-generic�	ML�	NL�	Og
make-class�	Pg	prototype�	QggetterS�	Rginit-keywordS�	Sg	prototypeS�	Tg
init-thunkS�	Ugprops�	Vg	init-formS�	Wgmake-hash-table�	XW	�	Yg
init-valueS�	Zgvalue�	[gvalueS�	\gconstructor�	]gconstructorS�	^gclass�	_fObject�	`gclassS�	agnameS�	bg<class>�	cb�	db�	egmemq�	fg<object>�	gf�	hf�	igclass-precedence-list�	ji�	ki�	lgclass-redefinition�	ml�	nl�	ogmake�	po�	qo�	rgadd-method!�	sr�	tr�	ug<method>�	vu�	wu�	xgspecializersS�	ygformalsS�	zgo�	{z�	|gbodyS�	}ghash-map->list�	~glambda�	gk��gv�����~���z��}�������gmake-procedureS��g	procedureS��g<string>��gp��z���gstring->symbol������z������g<top>��������glet��gh��ghashq-get-handle��������������gif��gcdr������gproto��z�������������������������������������gor��gattrs��z���������gand��g	hashq-ref���������������������gquote������������������������gattr��z����z���e�������z����gReadOnly������ z����gthrow��gReferenceError��������z���g
hashq-set!�����������������!z�������g
DontDelete������ z����gbegin��!z���������������#z������"����������������������gwith-fluid*��gmake-syntax-transformer��������gmacro��g$sc-dispatch��������g_��gany���ጤ�g
syntax->datum��������g
datum->syntax��������gsyntax-violation��������f-source expression failed to match any pattern��gthis��g	fluid-ref������������gtoString��gformat��f[object ~A]��gtoLocaleString��gvalueOf��ghasOwnProperty��g
isPrototypeOf��gpropertyIsEnumerable��gDontEnum��g
procedure?��g	TypeError��g
default-value��gnumber?��gnan?�gstring?�g
string-length�gboolean?�e+nan.0�gstring->number�ginf?�ginexact->exact�ground�f	undefined�	fnull�
ftrue�ffalse�fNaN�
f0�fInfinity�gnumber->string�gBoolean�gString�gNumber�gmap�g	slot-set!�ginitargs�z��gctor�z���gnot������7��z� ���!oS �"z!�#"�$gnew-o�%gapply�&3z%�'$&�('�)C$�*�)$z�+�(*�,�#+�-�,�.�-�/.�C5h�7]4	
854;>"G4>5R4?i5R4B5�$"4EiH5�$14K4N4B5$i"5>"G"4B5�$"4EiH5�$14K4N4B5$i"5>"G"4B5�$"4EiH5�$14K4N4B5$i"5>"G"4B5�$"4EiH5�$14K4N4B5$i"5>"G"4B5�$"4EiH5�$14K4N4B5$i"5>"G"4B5�$"4EiH5�$14K4N4B5$i"5>"G""b4K4OiPQiRSThO]CGgfilenameflanguage/ecmascript/base.scm�
	*	��		
CUQiVXTWhP]	6Hgfilenameflanguage/ecmascript/base.scm�		+	'��		
CQiYZQiYR[\QiYR]^QiY_R`a5>"�G"�4B5$�4Eid5$~4eih4ki55$`4ni4OiPQiRSThO]CGgfilenameflanguage/ecmascript/base.scm�
	*	��		
CUQiVXTWhP]	6Hgfilenameflanguage/ecmascript/base.scm�		+	'��		
CQiYZQiYR[\QiYR]^QiY_R`a5>"G""��
""��""���4B5�$"i�$!4K4qHa5>"G"4ti4qwxiy{|���}hn]Cfgk
		gv		gfilenameflanguage/ecmascript/base.scm�
	2	��			Chn]456fgo
		gfilenameflanguage/ecmascript/base.scm�
	1
��		2	#��		2	��		C5>"G4B5�$"i�$!4K4qHa5>"G"4ti4qwxi�iy�|����h}]456ugo
		gp		gfilenameflanguage/ecmascript/base.scm�
	4
��		5	
��		5	��			C5>"G4B5�$"i�$!4K4qHa5>"G"4ti4qwxi�y�|����h8�]4455$�C45$6C�go
		6gp		6gh			6gproto		#	6gfilenameflanguage/ecmascript/base.scm�
	7
��		8	��		8	��		8	��		8	��		9	��		:	��		;	��	#	;	��	+	<	
��	3	=	��		6	C5>"G4B5�$"i�$!4K4qHa5>"G"4ti4qwxi�y�|����hP]
45$4455"$C45$6C�go
		Kgp		Kgattrs				'gt		'	Kgproto		9	Kgfilenameflanguage/ecmascript/base.scm�
	@
��		A	��			A	��		B	��		B	��		B	��		B	��	'	A	��	3	C	��	9	C	��	A	D	��	I	E	��	J	F	��		K	C5>"G4B 5�$" i�$!4K 4qHa 5>"G"4t i4qwxi��y�|���eh�]456�go
		gp		gattr			gfilenameflanguage/ecmascript/base.scm�
	H
��		I	
��		I	��			C5>"G4B!5�$"!i�$!4K!4qHa!5>"G"4t!i4qwxi��y�|��� ����h0�]45$
6456�go
		*gp		*gv			*gfilenameflanguage/ecmascript/base.scm�
	K
��		L	��		L	��	
	L	��		L	��		M	
��		M	��		N	��	*	N	��
		*	C5>"G4B!5�$"!i�$!4K!4qHa!5>"G"4t!i4qwxi�i�y�|���!�h�]456�go
		gp		gv			gfilenameflanguage/ecmascript/base.scm�
	P
��		Q	
��		Q	��			C5>"G4B#5�$"#i�$!4K#4qHa#5>"G"4t#i4qwxi�y�|��� �!h0�]45$C4>"GC�go
		+gp		+gfilenameflanguage/ecmascript/base.scm�
	S
��		T	��		T	��	
	T	��		T	��		W	��		+	C5>"G4B#5�$"#i�$!4K#4qHa#5>"G"4t#i4qwxi�i�y�|���#�h�]456�go
		gp		gv			gfilenameflanguage/ecmascript/base.scm�
	Z
��		[	
��		[	��			C5>"G4B"5�$""i�$!4K"4qHa"5>"G"4t"i4qwxi�y�|����"h0�]
4455$C45$6C�go
		/gp		/gproto			/gfilenameflanguage/ecmascript/base.scm�
	]
��		^	��		^	��		^	��		^	��		`	��		`	��	%	a	��	-	b	��
		/	C5>"G�h�]6�gthis
		gf		gfilenameflanguage/ecmascript/base.scm�
	e
��		f	��			gnameg
call/this*�C2R4�3������~h �-13�C�gthis
			gf			gargs				gfilenameflanguage/ecmascript/base.scm�
	h
��		i	��				
	Chp]	45L4?6hgargs
		gv			gfilenameflanguage/ecmascript/base.scm�		h
��		C��h(n]	45$O@6fgy
		'gtmp		'gfilenameflanguage/ecmascript/base.scm�
	h
��		'C53R4�4�����~��h -13��Cwgformals
			gbody			gfilenameflanguage/ecmascript/base.scm�
	j
��		k	��			
Chp]	45L4?6hgargs
		gv			gfilenameflanguage/ecmascript/base.scm�		j
��		C��h(n]	45$O@6fgy
		'gtmp		'gfilenameflanguage/ecmascript/base.scm�
	j
��		'C54R4�5�����!�4h(�-13����C�gobject
			"g
name-and-args			"gbody				"gfilenameflanguage/ecmascript/base.scm�
	l
��		m	��		m	��		m	��		m	5��		m	��			"	
	Chp]	45L4?6hgargs
		gv			gfilenameflanguage/ecmascript/base.scm�		l
��		C��h(n]	45$O@6fgy
		'gtmp		'gfilenameflanguage/ecmascript/base.scm�
	l
��		'C55RR4oii5i4!ii���hs][456kgthis
		gfilenameflanguage/ecmascript/base.scm�		s	
��	
	s	��		s	��		
C>"G4!ii��h}-13456ugargs
			gfilenameflanguage/ecmascript/base.scm�	
	u	��		u	��		u	��		u	��			


C>"G4!ii�h][C		
C>"G4!ii��h �]	[4455$CC�gp
		gthis		gfilenameflanguage/ecmascript/base.scm�		y	��		y	��		y	��		y	��		C>"G4!ii�hy]	[45�Cqgv
		gthis		gfilenameflanguage/ecmascript/base.scm�	
	{	��		{	��		C>"G4!ii�� �h(�]	[4455$
45�CC�gp
		(gthis		(gfilenameflanguage/ecmascript/base.scm�		}	��		}	��		}	��		}	��		~	��	"	~	#��	$	~	��	%	~	��			(C>"G���h]L6		
CC���h`U]4545$54O5$45$
	
6CC$
	
6CMgo
		`gerror?		`gtoString			`gx		(	Mgfilenameflanguage/ecmascript/base.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	(�	��	0�	
��	1�	��	=�	��	A�	��	E�	"��	G�	��	S�	��	W�	��	[�	 ��	]�	��		`	gnamegobject->string�C$R���h]L6		
CC���h`T]4545$54O5$45$
	
6CC$
	
6CLgo
		`gerror?		`gvalueOf			`gx		(	Mgfilenameflanguage/ecmascript/base.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	(�	��	0�	
��	1�	��	=�	��	A�	��	E�	"��	G�	��	S�	��	W�	��	[�	 ��	]�	��		`	gnamegobject->number�C%RC%h �]45$6C�go
		gfilenameflanguage/ecmascript/base.scm�
�
��	�	��	�	��	�	��		gnamegobject->value/string�C&RC$h �]45$6C�go
		gfilenameflanguage/ecmascript/base.scm�
�
��	�	��	�	��	�	��		gnamegobject->value/number�C'R&h�]6zgo
		gfilenameflanguage/ecmascript/base.scm�
�
��	�	��		gnameg
object->value�C(RC(h�]45$6C�gx
		gfilenameflanguage/ecmascript/base.scm�
�
��	�	��	�	��	�	��		gnameg->primitive�C)R��h�3]	${("l�$"V45$ 
�$"45"$"45$
45
�""�C+gx
	�gt		gt	5	Mgt	R	|gfilenameflanguage/ecmascript/base.scm�
�
��	�	��	�	��	�	��	�	��	'�	��	1�	��	4�	 ��	5�	��	D�	*��	R�	��	a�	��	k�	��	l�	��	t�	����	����	��	�gnameg	->boolean�C*R�C%��+
hh]45$C45$
$C
C(
C&C45$645$	6
6�gx
		ggfilenameflanguage/ecmascript/base.scm�
�
��	�		��	
�	��	�		��	�	��	!�	��	+�	��	7�	��	9�		��	E�	��	L�	��	M�		��	W�	��	]�	��	a�	��	e�	"��	g�	��		ggnameg->number�C+R+�h@�]	4545$
C
�$C45$C456�gx
		<gn			<gfilenameflanguage/ecmascript/base.scm�
�
��	�	��		�	��	�	��	�	��	�	��	 �	��	$�	��	.�	��	4�	 ��	<�	��		<gnameg	->integer�C,R+�hxP]4545$"
�$"45$
C����4455�
�$
�CCHgx
		sgn			sgt			=gt		#	:gm		Y	sgfilenameflanguage/ecmascript/base.scm�
�
��	�	��		�	��	�	��	�	��	"�	��	#�	��	1�	��	A�	��	L�	��	M�	)��	P�	9��	X�	)��	Y�	��	Y�	��	^�	��	c�	
��	n�	��	o�	��		sgnameg->int32�C-R+�h`]4545$"
�$"45$
C����4455�C
gx
		Zgn			Zgt			=gt		#	:gfilenameflanguage/ecmascript/base.scm�
�
��	�	��		�	��	�	��	�	��	"�	��	#�	��	1�	��	A�	��	L�	��	M�	 ��	P�	0��	X�	 ��	Y�	��		Zgnameg->uint32�C.R+�h`]4545$"
�$"45$
C��4455�C
gx
		Zgn			Zgt			=gt		#	:gfilenameflanguage/ecmascript/base.scm�
�
��	�	��		�	��	�	��	�	��	"�	��	#�	��	1�	��	A�	��	L�	��	M�	 ��	P�	0��	X�	 ��	Y�	��		Zgnameg->uint16�C/R	
��
0&h�U]&C(C45$$CC45$C45$-4	5$
C
�$C45$
C6456Mgx
		~gfilenameflanguage/ecmascript/base.scm�
�
��	
�	��	�	��	�	��	�	��	�		��	!�	��	'�	��	)�	��	,�	#��	.�		��	8�	��	<�		��	F�	��	G�	��	Q�		��	S�	��	W�	��	\�		��	^�	��	`�	��	j�		��	l�	��	s�	��	v�	��	~�	��		~gnameg->string�C0R��1oS[�hx
]&
6(
645$	
645$
64
5$
6Cgx
		rgfilenameflanguage/ecmascript/base.scm�
�
��	
�	��	�	$��	�	1��	�	��	�	��	�	��	"�	'��	$�	��	%�		��	/�	��	=�	��	>�		��	H�	��	V�	��	W�		��	a�	��	o�	��		rgnameg->object�C1Ro!h~]L��6vgpair
		gfilenameflanguage/ecmascript/base.scm�
�		��		�	��	�	��	�	��		Ch0�-13454O>"GC�gpairs
			.go		.gfilenameflanguage/ecmascript/base.scm�
�
��	
�	��	�	��	�	��			.


gnameg
new-object�C6R4ii\6i>"G4B75�$"7i�$!4K74qHa75>"G"t7i4qwx���y|/��oS�h]LL@		
CC��7hp@-1345$L445$"54	O54
5$CC
68go
			nginitargs			ngctor			ngt		&	9go		;	dgnew-o		O	dgfilenameflanguage/ecmascript/base.scm�
�
��	
�	��	�	��	�	��	�	��	 �	#��	&�	��	;�	��	;�	��	>�	��	O�	
��	R�	��	^�	��	h�	��	j�	��	n�	��			n
C56
gm
		,gt
	F	bgt
��gt
�gt
Qmgt
��gt
gt
f{gt
�gt
gt
	�	�gt
��gt
��gt
CXgt
s�gt
��gt
�gt
5U5jgfilenameflanguage/ecmascript/base.scm�		
��	-	%	��	/	%	��	1	%	��	4	%
��	5	&	��	>	&
��	?	(
���	/	(���	(
��)	/	(��9	(
��_	1
���	4
���	7
��	�	@
���	H
���	K
��<	P
��l	S
���	Z
���	]
��	e
��	o
���	p	���	p
���	r
��I	t
��	v
��W	x
��/	z
���	|
�� ��
��"��
��#��
��$��
��%M�
��&
�
��'��
��)�
��*��
��,��
��.@�
��/��
��1��
��3��
��50�
��51�
��5<�	��5E�
��5N�
��4	7�
C6language/ecmascript/compile-tree-il.go000064400000141671150536206120014011 0ustar00GOOF----LE-8-2.0��]\4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	g
ecmascript�	gcompile-tree-il�		�	
gfilenameS�	f'language/ecmascript/compile-tree-il.scm�	gimportsS�	
gtree-il�	
�	�	gice-9�	greceive�	�	�	gsystem�	gbase�	gpmatch�	�	�	gsrfi�	gsrfi-1�	�	�	�	gexportsS�	�	 gset-current-module�	! �	" �	#gmake-syntax-transformer�	$#�	%#�	&g->�	'gmacro�	(g$sc-dispatch�	)(�	*(�	+gany�	,geach-any�	-+,��	.+-�	/g
syntax-object�	0g
quasiquote�	1gtop�	21�	3gribcage�	4gdummy�	5gtype�	6garg�	7456�	8gm-14365c91dc5cf6c7-1�	981�	:922�	;fl-14365c91dc5cf6c7-6�	<fl-14365c91dc5cf6c7-7�	=fl-14365c91dc5cf6c7-8�	>;<=�	?37:>�	@3�	Agx�	BA�	C9�	Dfl-14365c91dc5cf6c7-3�	ED�	F3BCE�	G2?@F�	Hghygiene�	IH�	J/0GI�	Kgmap�	LK�	MK�	Ngunquote�	O/NGI�	Pgsyntax-violation�	QP�	RP�	Sf-source expression failed to match any pattern�	Tg@implv�	U++�	Vgsym�	W4V�	Xgm-14365c91dc5cf6c7-e�	YX1�	ZY2�	[fl-14365c91dc5cf6c7-13�	\fl-14365c91dc5cf6c7-14�	][\�	^3WZ]�	_Y�	`fl-14365c91dc5cf6c7-10�	a`�	b3B_a�	c2^@b�	d/&cI�	eg@�	f/ecI�	ggquote�	h/gcI�	i/cI�	j/cI�	kgimpl�	l/kcI�	mijl�	nhm�	og@impl�	p+-��	q4V6�	rgm-14365c91dc5cf6c7-18�	sr1�	ts22�	ufl-14365c91dc5cf6c7-1d�	vfl-14365c91dc5cf6c7-1e�	wfl-14365c91dc5cf6c7-1f�	xuvw�	y3qtx�	zs�	{fl-14365c91dc5cf6c7-1a�	|{�	}3Bz|�	~2y@}�	/&~I��gapply��/�~I��/T~I��gempty-lexical-environment��glexical��gecons��gassq-ref��gtoplevel��glookup��g
parse-tree-il��gbegin��k��gjs-init��gcomp��gsource-properties��glocation��g
pmatch/source��glet��gclause��4A���gm-14365c91dc5cf6c7-4d���1���22��fl-14365c91dc5cf6c7-52��fl-14365c91dc5cf6c7-53��fl-14365c91dc5cf6c7-54�������3��������fl-14365c91dc5cf6c7-4f�����3B����2�@���/��I��gres��/��I��/�I��gloc��/��I��/��I��gif��/��I��gset-source-properties!��/��I�����gmake-parameter��gcurrent-return-tag��gabort��gerror��freturn outside function��gconst��greturn��ggensym��freturn��g
parameter?��������g	scm-error��gwrong-type-arg��fparameterize��fNot a parameter: ~S�����g	primitive��gmake-prompt-tag��gprompt��fval��glambda-case��gk��gval������gwith-return-prompt��gblock��f compilation not yet implemented:��gfor-in��f%enum ��f
%continue ��g%enum��g	%continue��gletrec������gmake-enumerator��glambda����g	->boolean��gpget��g��������&���glength��g�������&���o�����o����g=��gvar��N���g	call/this��N���gpop��g�������&���N�������������0���ge�������g	statement�������g��������&�������&���������&���g*undefined*��T���������&�������gfor�����gtrue�����gwhile�gdo�f%loop �g%loop���gtypeof�gvoid�gdelete�garef�gpdel�	gpref�
gnew�g^=�g^�
gbor=�gbor�g&=�g&�g>>>=�g>>>�g<<=�g<<�g>>=�g>>�g%=�g%�g*=�g*�g/=�g/�g-=�g-�g+=� g+�!gpput�"gref�#gset!�$gobject�%g
new-object�&gcons�'fbad prop-val pair�(garray�)g	new-array�*gcall�+g
call/this*�,g
string-append�-gsymbol->string�.f �/g	comp-body�0�1gdefine�2fbad var form�3gpredec�4gpreinc�5gpostdec�6ginline�7gset�8gpostinc�9gor�:gand�;gbior�<gbxor�=gband�>g!==�?gnot�@geqv?�Ag===�Bg!=�Cgequal?�Dg==�Egin�Fg
has-property?�Gg>=�Hg>�Ig<=�Jg<�Kgshift�Lgmod�Mg!�Nglogical-not�Og~�Pgbitwise-not�Qg->number�Rgthis�Sgget-this�Tgstring�Ugnumber�Vgfalse�Wgnull�Xgreverse!�Ygmemq�Zgreverse�[gfold�C5h���]4	
54">"G4%&'*.JMOh>]C6gtmp-14365c91dc5cf6c7-c
		
		
ChP]45�CHgdummy
		gtype		garg						CRSh(�]	45$@6�gx
		"gtmp		"gfilenamef'language/ecmascript/compile-tree-il.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgtypegargg...C5&R4%T'*Udfnhh>]C6gdummy
		gsym					CRSh(�]	45$@6�gx
		"gtmp		"gfilenamef'language/ecmascript/compile-tree-il.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgsymC5TR4%o'*p��hO]��CGgdummy
		gsym		garg						CRSh(�]	45$@6�gx
		"gtmp		"gfilenamef'language/ecmascript/compile-tree-il.scm�
	!
��		"g
macro-typegsyntax-rules�gpatternsgsymgargg...C5oRh�]Cgfilenamef'language/ecmascript/compile-tree-il.scm�
	$
��		%	��		
gnamegempty-lexical-environment�C�R�h�]�C�gname
		ggensym		genv			gfilenamef'language/ecmascript/compile-tree-il.scm�
	'
��		(	��		(	��			gnamegecons�C�R��h �]
45$CC�gname
		genv		gt			gfilenamef'language/ecmascript/compile-tree-il.scm�
	*
��		+	��		+	��		,	��			gnameglookup�C�R���e����	h0�]444555D�gexp
		,genv		,gopts			,gfilenamef'language/ecmascript/compile-tree-il.scm�
	.
��		0	��		1	��			1	��		2	��		2	��	!	2	��	$	1	��	&	0	��	,	/	��		,	gnamegcompile-tree-il�CR�h �]	�$45(CCC�gx
		gprops		gfilenamef'language/ecmascript/compile-tree-il.scm�
	6
��		7	��			7	��	
	8	��		8	��		9		��		gnameglocation�C�R4%�'*p��������	hXP]�����CHgdummy
		Rgx		Rgclause			R		R	CRSh(�]	45$@6�gx
		"gtmp		"gfilenamef'language/ecmascript/compile-tree-il.scm�
	?
��		"g
macro-typegsyntax-rules�gpatternsgxgclauseg...C5�R4�i5�R�����h0�]	45$"45C�gexpr
		0gt			!gfilenamef'language/ecmascript/compile-tree-il.scm�
	J
��		K	��		K	��			K	
��		K	&��		K	-��		K	&��	&	L	
��	(	M	
��	)	M	��	,	M	
��	/	K	��
		0gnamegreturn�C�R��������������������h�]4545$"4>"G�4	�	
5Y
45454545	ZCZF�g
body-thunk
	�gtag		�gt-14365c91dc5cf6c7-67		
�gval		|�gfilenamef'language/ecmascript/compile-tree-il.scm�
	O
��		P	
��		P	��			P	
��			P	��	
	Q	��	F	R	��	H	R	!��	M	R	��	O	Q	��	S	S	��	U	S	��	Z	S	��	\	T	��	^	T	 ��	`	T	/��	c	T	 ��	f	T	��	i	T	��	k	U	��	l	U	��	q	V	��	v	W	&��	z	W	.��	|	W	&��	|	W	���	X	���	Y	"���	Y	;���	Y	"���	Z	%���	Z	2���	Z	%���	Y	"���	X	���	U	���	S	��&	�gnamegwith-return-prompt�C�R���������������e����������������	�
K�ht]L6lgx
		
gfilenamef'language/ecmascript/compile-tree-il.scm�
�	��	
�	��		
C�
 !"�#�$%��&���'h`(]!�$N���$5��(4L5C666 gx
		_gvx		Wgvy			Wgvx		 	Ogvy		 	Ogfilenamef'language/ecmascript/compile-tree-il.scm�
~	��		��	,�	"��	.�	-��	0�	<��	3�	-��	5�	-��	;�	-��	F�	"��	K�	)��	O�	"��	S�	)��	W�	"��	[�	)��	_�	"��		_C()�ht]L6lgx
		
gfilenamef'language/ecmascript/compile-tree-il.scm�
{	��	
{	"��		
C��*�ht]L6lgx
		
gfilenamef'language/ecmascript/compile-tree-il.scm�
v	��	
v	"��		
C��ht]L6lgx
		
gfilenamef'language/ecmascript/compile-tree-il.scm�
r	 ��	
r	,��		
C�ht]L6lgx
		
gfilenamef'language/ecmascript/compile-tree-il.scm�
m	 ��	
m	,��		
C+�,-.h�]44556�gx
		gfilenamef'language/ecmascript/compile-tree-il.scm�
Z	��	[	"��	[	1��	[	D��	[	"��	[	��		Ce��ht]Clgx
		gfilenamef'language/ecmascript/compile-tree-il.scm�
_	'��	_	3��		C�/hd]LLLL6\gfilenamef'language/ecmascript/compile-tree-il.scm�
a	��	b	��		
C�ht]L6lgx
		
gfilenamef'language/ecmascript/compile-tree-il.scm�
X	��	
X	"��		
C0�1�e���2h��]1�$����$H��(4L5C(C6(C66�gform
	�gvx	�gvy		�gvx		 	bgvy		 	bgvx		?	bgvy		?	bgvx		f�gvy		f�	gfilenamef'language/ecmascript/compile-tree-il.scm�
K	��	L	��	,N	��	/N	$��	:N	��	=L	��	KP	��	OP	$��	YP	��	^Q	"��	bQ	��	dL	��	rP	��	vP	$���P	���Q	"���Q	���Q	"���Q	��	�C3��456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW��h�8�N]�4>"G"8,"8"7�"7�"7B"7 "6�"64"5�"5^"4�"4D"3�"3*"2�"2"1x"0�"0^"/�"/D".�".("-�"-",i"+�"+K"*�"*"")Y"(�"("&�"%�"#�""�"!w"�"
"�"�"/"�"!"�"�"I"�"�"�"_"_"]"�"q"'"�"P"�"�"�"
�"
_"�"S"�"G"
�"
;"	�"	/"�"#"�"�"�"v""�"�"s"}�$i��&D�$0��(
45"6�45"6�45"6�45"6�45"6}�$���&��$����$����$���(x454	5	4
4
	55

	4
5	"5�
	"���"���"���"���"���"����$b��&F�$;���$ ���$��		�$�	�	�
(�4	54
5

$4
5"	4
54

54$"
54$"
5"4^
"��V
"��L	"��B"��8"��."��*"�� �$��� &��$����$���(�4	54
5	
4	54	5"3U	"��I"��?"��5"��1"��'�$��!&�$����$���(�4"54	5	4
#4
	55

$	4
5	4
5##"2.
	"��"��"��"��"����$\��%&@�$5��(%45"1�"���"���"���"����$\��&&@�$5��(45"1M"��;"��1"��-"��#�$���'&��$����$���(&n�$c��		�$H	�	�
(.($)454
5"0�"���"���
"��x	"��n"��j"��`"��V"��R"��H�$���'&��$����$���*&l�$a��		�$F	�	�
(,(")45+
"/�"���"���
"���	"���"���"���"��}"��y"��o�$��,&c�$X���$=��(#,4-.O�5"/!"��"���"���"���"����$w��/&[�$P���$5��(4015".�"��}"��s"��i"��e"��[�$w��2&[�$P���$5��(4035"."���"���"���"���"����$w��4&[�$P���$5��(4055"-�"��q"��g"��]"��Y"��O�$w��6&[�$P���$5��(4075"-"���"���"���"���"����$w��8&[�$P���$5��(4095",�"��e"��["��Q"��M"��C�$w��:&[�$P���$5��(40;5","���"���"���"���"���$w��<&[�$P���$5��(40=5"+�"��Y"��O"��E"��A"��7�$w��>&[�$P���$5��(40?5"+"���"���"��"��"���$w��@&[�$P���$5��(40A5"*�"��M"��C"��9"��5"��+�$w��B&[�$P���$5��(40C5"*
"���"��"��"��"���$w��D&[�$P���$5��(40E5")�"��A"��7"��-"��)"���$���0&��$����$���(&��$���		�$l	�	�
(R�$G��

(-F454
545"(�"��h
"��^"��Z
"��P	"��F"��B"��8"��."��*"�� �$���0&��$����$���*&��$���		�$j	�	�
(P�$E��

(+F45+
45"'�"��k
"��a"��]
"��S	"��I"��E"��;"��1"��-"��#�$���0&��$����$���G&s�$h��		(N�$C��
()4H5I4
5"&�"��
"��w"��s	"��i"��e"��["��Q"��M"��C�$���(&d�$Y���$>��($J4545"&0"���"���"���"��"���$~��*&b�$W���$<��("J45+"%�"��I"��?"��5"��1"��'�$;��K&L4-MO5��"%I"���"����$;��N&O4-PO5��"%"��"���$S��Q&7�$,��(4R455"$�"��I"��?"��;"��1�${��S&_�$T���$9��(454-TO5��"$7"���"��"��"��"���$���S&��$����$���(&��$���		�$o	�	�
(U�$J��

(04U454
54-VO5���5"#_"���
"���"���
"���	"���"���"��"��"��"���$���S&��$����$���*&��$���		�$m	�	�
(S�$H��

(.4U45+
4-WO5���5""c"���
"���"���
"���	"���"���"��"��"��"���$���U&r�$g���$L��XJ��"!�"�� "��"��"���$���&��$z���$_��(E4-Y54-Z54[\O5" �"��z"��p"��f"��b"��X�$1��&4-]O5�" �"��""���$N��&2�$'��(
45" Y"���"���"���"���$,��&(^" "��"��"���$1��_&4-`O5�"�"��J"��@�$N��G&2�$'��(
4H5"�"��"���"���"����$���a&t�$i���$N��(&2�$'��		�$	�	�
(�(�4545
b

4
545bcCJ

+45bF

"
"��"��~
"��t	"��j"��f"��\"��R"��N"��D�$`��a&D�$9���$��*&�$���		�$�	�	�
(�(�4545
b

cCJ

+
+45bF

+
"�
"��"��
"��	"��"��"���"���"���"����$���a&��$����$��G&c�$X��		(>(44H5
I
cC
+
"�
"��9"��5	"��+"��'"��"��"��"���$���d&t�$i���$N��(&2�$'��		�$	�	�
(�(�4545
b

4
545bcEJ

+45bF

"L
"��"��
"��	"��"��"��~"��t"��p"��f�$`��d&D�$9���$��*&�$���		�$�	�	�
(�(�4545
b

cEJ

+
+45bF

+
"�
"��5"��1
"��'	"��"��"��"��"��"���$���d&��$����$��G&c�$X��		(>(44H5
I
cE
+
"
"��["��W	"��M"��I"��?"��5"��1"��'�$���e&o�$d���$I��(&-�$"��		�$	�	�
(�(�4545
b

4
545bJ

45bF

fC+"
"���"���
"�޽	"�޳"�ޯ"�ޥ"�ޛ"�ޗ"�ލ�$`��e&D�$9���$��*&�$���		�$�	�	�
(�(�4545
b

J

+
45bF

+
cC+"
"��\"��X
"��N	"��D"��@"��6"��,"��("���$���e&��$����$���G&��$���		(v(l4G5
45b
g4H5cC+"
"��J"��F	"��<"��8"��."��$"�� "���$���h&t�$i���$N��(&2�$'��		�$	�	�
(�(�4545
b

4
545bJ

45bF

cE+"u
"�ڵ"�ڱ
"�ڧ	"�ڝ"�ڙ"�ڏ"�څ"�ځ"��w�$`��h&D�$9���$��*&�$���		�$�	�	�
(�(�4545
b

J

+
45bF

+
cE+"

"��F"��B
"��8	"��."��*"�� "��"��"���$���h&��$����$���G&��$���		(v(l4G5
45b
I4H5cE+"�
"��4"��0	"��&"��""��"��"��
"���$���&r�$g���$L��(24545"K"�ׅ"��{"��q"��m"��c�$���&��$����$g���$L��		(2454545"�"���	"���"���"�ֹ"�ֵ"�֫�$���i&��$����$x��(^4545	b						45"
�	"��"��"���"���"����$���j&o�$d���$I��(/4545+"
<"��j"��`"��V"��R"��H�$���3&d�$Y���$>��($k4545"�"���"���"���"���"�Թ�$���1&d�$Y���$>��($l4545"&"��L"��B"��8"��4"��*�$���5&d�$Y���$>��($m4545"�"�ӽ"�ӳ"�ө"�ӥ"�ӛ�$���n&n�$c���$H��(.cocp4545""��$"��"��"��"���$~��q&b�$W���$<��("cp4545"
}"�җ"�ҍ"�҃"��"��u�$���r&n�$c���$H��(.cocs4545"	�"��"���"���"���"����$~��t&b�$W���$<��("cs4545"	_"��q"��g"��]"��Y"��O�$���u&d�$Y���$>��($v4545"�"���"���"���"���"���$~��w&b�$W���$<��("cw4545"K"��U"��K"��A"��="��3�$~��x&b�$W���$<��("cx4545"�"���"�Ͼ"�ϴ"�ϰ"�Ϧ�$~��y&b�$W���$<��("cy4545"9"��;"��1"��'"��#"���$~��z&b�$W���$<��("cz4545"�"�ή"�Τ"�Κ"�Ζ"�Ό�$���;&i�$^���$C��(){454C5" "��"��"��"��"���$���9&d�$Y���$>��(${4545"�"�͋"�́"��w"��s"��i�$���=&d�$Y���$>��($|4545"
"��"���"���"���"����$~��?&b�$W���$<��("c?4545"�"��o"��e"��["��W"��M�$~��A&b�$W���$<��("cA4545"�"���"���"���"���"���$~��C&b�$W���$<��("cC4545"o"��U"��K"��A"��="��3�$~��E&b�$W���$<��("cE4545"�"���"�ʾ"�ʴ"�ʰ"�ʦ�$\��}&@�$5��(~45"u"��S"��I"��E"��;�$\��&@�$5��(�45""���"���"���"����$`��C&D�$9��(cC+
45"�"��y"��o"��k"��a�$n��E&R�$G��(-cE�45+
"*"��"���"���"����&�"�"����$L���&0�$%��(+"�"��"��u"��q"��g�$L���&0�$%��(+"^"��$"��"��"���&
+"0"���&
+""����&
+""�Ǿ45$4�45>"G"C�Ngx
	8�ge	8�gvx	m�gvy	m�gvx	��gvy	��gvx	��gvy	��gvy	�gvx	�gvy	�gvy	!�g%enum	;�g	%continue		;�ge	
S�gvx	�8gvy	�8gvx	�*gvy	�*gvx	 gvy	 gvx	gvy		gvx	
(gvy	(g	%continue	9ge	
F�gvx	I-gvy	I-gvx	bgvy	bgvx	sgvy	sg	%continue	�ge		�gvx	>Wgvy	>Wgvx	WIgvy	WIgvx	h?gvy	h?g%loop	�5g	%continue		�5ge	
�/gvx	h�gvy	h�gvx	��gvy	��gvx	�%gvy	�%gvx	�gvy	�gvx	6�gvy	6�gvx	O�gvy	O�gvx	`�gvy	`�gvx	y�gvy		y�gvx	
��gvy	��gvx	
�gvy	
�gvx	&�gvy	&�gvx	7�gvy	7�gvx	P�gvy		P�gvx	
a�gvy	a�gvx	�	[gvy	�	[gvx	�	Mgvy	�	Mgvx			Cgvy			Cgvx		l	�gvy		l	�gvx		�	�gvy		�	�gvx		�	�gvy		�	�gvx		�
_gvy		�
_gvx	

Qgvy	

Qgvx	

Ggvy	

Ggvx	
p
�gvy	
p
�gvx	
�
�gvy	
�
�gvx	
�
�gvy	
�
�gvx	
�cgvy	
�cgvx	Ugvy	Ugvx	Kgvy	Kgvx	t�gvy	t�gvx	��gvy	��gvx	��gvy	��gvx	�ggvy	�ggvx	Ygvy	Ygvx	 Ogvy	 Ogvx	x�gvy	x�gvx	��gvy	��gvx	��gvy	��gvx	�
kgvy	�
kgvx	

]gvy	

]gvx	
$
Sgvy	
$
Sgvx	
|
�gvy	
|
�gvx	
�
�gvy	
�
�gvx	
�
�gvy	
�
�gvx	
�ogvy	
�ogvx	agvy	agvx	(Wgvy	(Wgvx	��gvy	��gvx	��gvy	��gvx	��gvy	��gvx	�gvy	�gvx	�gvy	�gvx	,�gvy	,�gvx	E�gvy		E�gvx	
V�gvy	V�gvx	m�gvy	
m�gvx	��gvy	��gvx	�gvy	�gvx	'�gvy	'�gvx	@�gvy		@�gvx	
Q�gvy	Q�gvx	h�gvy	
h�gvx	��gvy	��gvx	�gvy	�gvx	 �gvy	 �gvx	9�gvy		9�gvx	
P�gvy	P�gv	c�gvx	�Lgvy	�Lgvx	�>gvy	�>gvx	�4gvy	�4gvx	]�gvy	]�gvx	v�gvy	v�gvx	��gvy	��gvx	�gvy	�gvx	,agvy	,agvx	r�gvy	r�gvx	��gvy	��gvx	�Egvy	�Egvx	�7gvy	�7gvx	�-gvy	�-gvx	VCgvy	VCgvx	o5gvy	o5gvx	�+gvy	�+gvx	�gvy		�gvx	
�gvy	�gvx	�gvy	
�gvx	T?gvy	T?gvx	m1gvy	m1gvx	~'gvy	~'gvx	�gvy		�gvx	
�gvy	�gvx	�gvy	
�gvx	P�gvy	P�gvx	i�gvy	i�gvx	z�gvy	z�gvx	��gvy	��gvx	vgvy	vgvx	lgvy	lgsyms	&bgvx	��gvy	��gvx	�gvy	�gvx	�gvy	�gvx	*Pgvy	*Pgvx	a�gvy	a�gvx	��gvy	��gvx	��gvy	��gvx	��gvy	��gvx	rgvy	rgvx	 hgvy	 hgvx	9Zgvy		9Zgvx	
JPgvy	JPgwhat	cBgsym	
j?gwhat	�5gsym	�2gwhat	�,gsym	�)gvx	��gvy	��gvx	��gvy	��gvx	��gvy	��gvx	��gvy		��gvx	
��gvy	��gwhat	��gsym	
�gwhat	H�gsym	O�gvx	��gvy	��gvx	�gvy	�gvx	&�gvy	&�gvx	?�gvy		?�gv	
X�gvx	�Rgvy	�Rgvx	�Dgvy	�Dgvx	�:gvy	�:gvx	,gvy		,gvx	
"gvy	"gwhat	5gsym	
<gwhat	Xgsym	_gwhat	��gsym	��gvx	c�gvy	c�gvx	|�gvy	|�gvx	��gvy	��gvx	��gvy		��gvx	
��gvy	��gwhat	�gsym	
�|gwhat	rgsym	!ogvx	� �gvy	� �gvx	� {gvy	� {gvx	� qgvy	� qgvx	  cgvy		  cgv	
 * Ugvx	 �"gvy	 �"gvx	 �"gvy	 �"gvx	 �"gvy	 �"gvx	 �!�gvy		 �!�gvx	
 �!�gvy	 �!�gwhat	!!�gsym	
!!�gwhat	!*!�gsym	!1!�gwhat	!d!�gsym	!k!�gvx	"0#�gvy	"0#�gvx	"I#|gvy	"I#|gvx	"Z#rgvy	"Z#rgvx	"s#dgvy		"s#dgvx	
"�#Zgvy	"�#Zgwhat	"�#Lgsym	
"�#Igwhat	"�#?gsym	"�#<gvx	#�$�gvy	#�$�gvx	#�$�gvy	#�$�gvx	#�$vgvy	#�$vgvx	#�$hgvy		#�$hgwhat	
#�$Zgsym	$$Wgvx	$�&)gvy	$�&)gvx	$�&gvy	$�&gvx	$�&gvy	$�&gvx	$�&gvy		$�&gvx	
$�%�gvy	$�%�gwhat	%%�gsym	
%%�gwhat	%/%�gsym	%6%�gwhat	%i%�gsym	%p%�gvx	&:'�gvy	&:'�gvx	&S'�gvy	&S'�gvx	&d'|gvy	&d'|gvx	&}'ngvy		&}'ngvx	
&�'dgvy	&�'dgwhat	&�'Vgsym	
&�'Sgwhat	&�'Igsym	&�'Fgvx	'�(�gvy	'�(�gvx	'�(�gvy	'�(�gvx	'�(�gvy	'�(�gvx	'�(rgvy		'�(rgwhat	
((dgsym	(
(agvx	(�)1gvy	(�)1gvx	(�)#gvy	(�)#gvx	(�)gvy	(�)gvx	)B)�gvy	)B)�gvx	)[)�gvy	)[)�gvx	)l)�gvy	)l)�gvx	)})�gvy		)})�gvx	)�*�gvy	)�*�gvx	**�gvy	**�gvx	* *�gvy	* *�gwhat	*3*�gsym		*:*�gvx	*�+@gvy	*�+@gvx	*�+2gvy	*�+2gvx	*�+(gvy	*�+(gvx	+Q+�gvy	+Q+�gvx	+j+�gvy	+j+�gvx	+{+�gvy	+{+�gvx	+�,Vgvy	+�,Vgvx	+�,Hgvy	+�,Hgvx	,,>gvy	,,>gvx	,g,�gvy	,g,�gvx	,�,�gvy	,�,�gvx	,�,�gvy	,�,�gvx	,�-vgvy	,�-vgvx	--hgvy	--hgvx	--^gvy	--^gvx	-�-�gvy	-�-�gvx	-�-�gvy	-�-�gvx	-�-�gvy	-�-�gvx	..�gvy	..�gvx	.).�gvy	.).�gvx	.:.|gvy	.:.|gvx	.�/gvy	.�/gvx	.�/gvy	.�/gvx	.�/gvy	.�/gvx	/./�gvy	/./�gvx	/G/�gvy	/G/�gvx	/X/�gvy	/X/�gvx	/�01gvy	/�01gvx	/�0#gvy	/�0#gvx	/�0gvy	/�0gvx	0B0�gvy	0B0�gvx	0[0�gvy	0[0�gvx	0l0�gvy	0l0�gvx	0�1Cgvy	0�1Cgvx	0�15gvy	0�15gvx	0�1+gvy	0�1+gvx	1T1�gvy	1T1�gvx	1m1�gvy	1m1�gvx	1~1�gvy	1~1�gvx	1�2\gvy	1�2\gvx	1�2Ngvy	1�2Ngvx	22Dgvy	22Dgvx	2m2�gvy	2m2�gvx	2�2�gvy	2�2�gvx	2�2�gvy	2�2�gvx	2�3rgvy	2�3rgvx	33dgvy	33dgvx	3"3Zgvy	3"3Zgvx	3�3�gvy	3�3�gvx	3�3�gvy	3�3�gvx	3�3�gvy	3�3�gvx	44�gvy	44�gvx	4%4vgvy	4%4vgvx	464lgvy	464lgvx	4�5
gvy	4�5
gvx	4�4�gvy	4�4�gvx	4�4�gvy	4�4�gvx	55�gvy	55�gvx	575�gvy	575�gvx	5H5~gvy	5H5~gvx	5�5�gvy	5�5�gvx	5�5�gvy	5�5�gvx	66dgvy	66dgvx	6'6Vgvy	6'6Vgvx	6u6�gvy	6u6�gvx	6�6�gvy	6�6�gvx	6�7Hgvy	6�7Hgvx	6�7:gvy	6�7:gvx	7w7�gvy	7w7�gvx	7�7�gvy	7�7�gvx	7�8gvy	7�8gvx	7�8gvy	7�8gres	8Z8�gloc	8c8�Fgfilenamef'language/ecmascript/compile-tree-il.scm�
	\
��		]	��		f	���	���	���	���	���	���	���	���	���	���	���	f	��.�	��2�	��4�	��5�	��9�	 ��;�	��;�	��@�	��D�	��G�	&��K�	-��Q�	&��S�	��S�		��W�	��Y�	��`�	*��b�	��l�	4��w�	��y�	��z�	)��|�	#��~�	(����	#����	����	���	���	"���	/���	"���	����	���	f	��3�	��7�	 ��9�	��9�	��<�	��@�	��F�	��F�		��J�	��L�	��Q�	$��S�	��T�	)��V�	#��X�	(��Z�	+��`�	3��b�	7��l�	H��w�	7��|�	7����	=����	7����	3����	>����	>����	D����	L����	>����	>����	I����	V����	I����	>����	3����	3����	+����	(����	#����	����	����	����	"����	(����	1����	"����	"����	-����	:����	-����	"����	����	��	f	��~�	����	 ����	����	����	����	����	����		����	����	����	$����	����	)����	#����	(����	+����	3����	D����	3����	3����	>����	>����	I����	V����	I����	>����	3����	3����	+����	(����	#����	����	����	����	"����	/����	"����	���	��	f	��s�	��w�	��y�	��z�	��~�	 ����	����	����	����	����	&����	-����	&����	����		����	����	����	*����	����	)����	#����	(����	+����	1����	1����	<����	I����	<����	1����	+����	(����	#����	����	����	)����	#����	(����	+����	3����	D����	3����	3����	>����	K����	>����	3���	3���	+���	(���	#���	���	���	���	"���	/��"�	"��%�	��(�	��9	f	����	����	����	���	f	����	����	
����	
��	�	��	f	����	����	����	����	���	f	��s�	��}�	����	����	���	f	��	�	��	"�	��	0�	��	2�	��	5�	��	=	f	��	��	��	��	
��	��	��	�	f	��
#�	��
'�	
��
9�	��
A	f	��
��	��
��	
��
��	��
�	f	��'�	��+�	
��=�	��E	f	����	����	
����	���	f	��+�	��/�	
��A�	��I	f	����	����	
����	���	f	��
/�	��
3�	
��
E�	��
M	f	��
��	��
��	
��
��	��
�	f	��3�	��7�	
��I�	��Q	f	����	����	
����	���	f	��y�	����	����	����	����	���	f	��t�	��~�	����	����	����	���	f	��[�	��c�	��g�		��i�	��l�	��w�	��|�		���	f	���	���	���	��&�	��.	f	����	����	����	����	���	f	���}	���}	���~	��}	��	f	��:z	��<z	��D{	��Rz	��[	f	���x	���x	���x	���	f	��u	��u	��v	��u	��'	f	���p	���p	
���p	���q	���r	���p	
���p	���	f	���k	���k	
���k	���l	���m	���k	
���k	���	f	���d	���f	���f	���g	���i	���g	���f	���d	���	f	��Z	��&Z	��*]		��3_	"��@]		��A`	��U]		��f	f	���X	���X	���X	���	f	���V	��	f	��>T	��F	f	��oJ	��pK	��~J	���	f	���H	���	f	��[9	
��c9	��f	_	��j	_	��n	`	��s	`	��x	`	��}	`	'��~;	���;	���	_	���	_	���	`	���	`	���	`	���	`	'���=	���=	*���=	9���=	*���>	*���?	1���@	1���>	*���A	*���=	���=	���	_	���	_	���	`	���	`	���	`	���	`	'���	d	���C	!���D	(��E	(��
F	(��C	!��	e	��#	d	��&	`	��F	f	���,	
���,	��	_	��	_	��		`	��	`	��	`	��	`	'��.	��.	"��.	1��!.	"��#/	"��.0	)��71	)��?/	"��A2	"��H.	��H.	��K	_	��O	_	��S	`	��X	`	��]	`	��b	`	'��d	d	��f4	��q5	 ��z6	 ���7	 ���4	���	e	���	d	���	`	���	f	��P$	��X$	��\%		��^&	��b'	��d'	#��f'	2��i'	#��m)	#��t'	��w&	��|%		���	f	��-	
��5	��8	_	��<	_	��@	`	��E	`	��J	`	��O	`	'��P	��X	��[	_	��_	_	��c	`	��h	`	��m	`	��r	`	'��t	��v	*��x	9��{	*��}	*���	1���	1���	*���	*���	���	���	_	���	_	���	`	���	`	���	`	���	`	'���	d	���	!��� 	(���!	(���"	(���	!���	e	���	d	���	`	��	f	���		
���		���	_	���	_	���	`	���	`	���	`	���	`	'���	���	"���	1���	"���	"��
	)��		)��	"��	"��	��	��	_	��!	_	��%	`	��*	`	��/	`	��4	`	'��6	d	��8	��C	%��L	 ��S	 ��]	��_	e	��i	d	��l	`	���	f	�� "	�� *	�� .		�� 0	�� 4	�� 6	$�� 8	3�� ;	$�� ?	$�� F	�� I	�� N		�� Y	f	�� ��	
��!�	��!
	_	��!	_	��!	`	��!	`	��!	`	��!!	`	'��!"�	��!*�	��!-	_	��!1	_	��!5	`	��!:	`	��!?	`	��!D	`	'��!F�	��!Q�	&��!Z�	&��!d�	��!d�	��!g	_	��!k	_	��!o	`	��!t	`	��!y	`	��!~	`	'��!�	d	��!��	!��!��	(��!��	(��!��	(��!��	-��!��	0��!��	-��!��	(��!��	!��!�	e	��!�	d	��!�	`	��!�	f	��"��	
��"��	��"�	_	��"�	_	��"�	`	��"�	`	��"�	`	��"�	`	'��"��	��"��	��"��	��"��	��"��	��"�	_	��"�	_	��"�	`	��"�	`	��"�	`	��"�	`	'��"�	d	��"��	��"��	 ��#�	 ��#�	 ��#�	+��#�	:��#�	+��#�	+��# �	+��#'�	 ��#*�	��#,	e	��#6	d	��#9	`	��#P	f	��#��	��#��	��#��	��#��	��#�	_	��$	_	��$	`	��$	`	��$	`	��$	`	'��$	d	��$�	��$�	��$%�	��$'�	%��$)�	4��$,�	%��$.�	%��$7�	%��$>�	��$A�	��$C	e	��$M	d	��$P	`	��$^	f	��%�	
��%�	��%	_	��%	_	��%	`	��%	`	��%!	`	��%&	`	'��%'�	��%/�	��%2	_	��%6	_	��%:	`	��%?	`	��%D	`	��%I	`	'��%K�	��%V�	&��%_�	&��%i�	��%i�	��%l	_	��%p	_	��%t	`	��%y	`	��%~	`	��%�	`	'��%�	d	��%��	!��%��	(��%��	(��%��	(��%��	3��%��	B��%��	3��%��	3��%��	3��%��	(��%��	!��%�	e	��%�	d	��%�	`	��%�	f	��&��	
��&��	��&�	_	��&�	_	��&�	`	��&�	`	��&�	`	��&�	`	'��&��	��&��	��&��	��&��	��&��	��&�	_	��&�	_	��&�	`	��&�	`	��&�	`	��&�	`	'��&�	d	��&��	��'�	 ��'�	 ��'�	 ��'�	+��'�	:��'�	+��'!�	+��'*�	+��'1�	 ��'4�	��'6	e	��'@	d	��'C	`	��'Z	f	��'��	��'��	��(�	��(�	��(		_	��(
	_	��(	`	��(	`	��(	`	��( 	`	'��("	d	��($�	��(%�	��(/�	��(1�	&��(3�	5��(6�	&��(8�	&��(A�	&��(H�	��(K�	��(M	e	��(W	d	��(Z	`	��(h	f	��(��	��(��	��(��	 ��(��	��(��	��)�	��)�	��)	f	��)��	��)��	��)��	 ��)��	��)��	��)��	��)��	��)�	f	��*+�	
��*3�	��*6	_	��*:	_	��*>	`	��*C	`	��*H	`	��*M	`	'��*O�	��*Q�	��*\�	(��*f�	��*h�	��*p�	��*{�	��*~	`	��*�	f	��*��	��*��	��*��	 ��+�	��+	�	��+�	��+�	��+"	f	��+��	��+��	��+��	��+��	��+�	f	��,�	��,�	��,%�	��,0�	��,8	f	��,��	��,��	��,��	��,��	��,�	f	��-(�	��-*�	��-,�	!��-/�	��-1�	��-3�	��-5�	,��-8�	��-9�	��-B�	(��-M�	��-P�	��-X	f	��-��	��-��	��-��	!��-��	��-��	)��-��	4��-��	��-�	f	��.F�	��.H�	��.J�	!��.M�	��.O�	��.Q�	��.S�	,��.V�	��.W�	��.`�	(��.k�	��.n�	��.v	f	��.��	��.��	��.��	!��.��	��.��	+��.��	6��.��	��.�	f	��/d�	��/n�	��/w�	'��/��	��/�	f	��/��	��/��	��/��	!��/��	��/��	'��0�	2��0�	��0	f	��0x�	��0z�	��0|�	!��0�	��0��	&��0��	1��0��	��0�	f	��1�	��1�	��1�	!��1�	��1	�	'��1�	2��1�	��1%	f	��1��	��1��	��1��	!��1��	��1��	&��1��	1��1��	��1�	f	��2�	��2�	��2&�	��2*�	%��23�	��26�	��2>	f	��2��	��2��	��2��	��2��	��2�	f	��3.�	��38�	��3A�	��3L�	��3T	f	��3��	��3��	��3��	!��3��	��3��	&��3��	1��3��	��3�	f	��4B�	��4D�	��4F�	!��4I�	��4J�	&��4S�	1��4^�	��4f	f	��4��	��4��	��4��	!��4��	��4��	&��4��	1��4��	��4�	f	��5T		��5V		��5X		!��5[		��5\		&��5e		1��5p		��5x	f	��5�	}	��5�	}	��5�	}	��5�	f	��63	{	��6=	{	��6H	{	��6P	f	��6�	y	��6�	y	��6�	y	!��6�	y	��6�	y	&��6�	y	5��6�	y	��6�	f	��7	u	��7	u	��7		u	!��7	u	��7	v	��7	v	"��7#	v	��7%	w	��7,	u	��74	f	��7V	s	��7j	f	��7�	q	��7�	f	��7�	o	��8	f	��8"	m	��8.	f	��88	k	��8D	f	��8N	i	��8O	i	��8R	i	��8Z	f	���	8�	gnamegcomp�C�RX���"Yh��]["�""�"�"7�$���"���(45DC�$=���$(4L>G�"��u"���"����$5���$ �&�"��9"��E"��A"��=�$E���$0��&("���"���"���"���"����$����$���&��$����$}��
	
�$h
�
�(T��	�4	5

$"	4	L5
$"	�"��&"��*"��&"��""��"��"��"���$����$���&y�$n���$Y��
	
(E��4	5$"	4	L5$"	�"��s"��s"��o"��k"��g"��c"��_zgin
	�gout	�grvars		�gvx		#	:gvy		#	:gvx		Z�gvy		Z�gsub-out		s�grvars		s�gvx	��gvy	��gvx	�!gvy	�!gvx	�gvy	�gvx	2�gvy	2�gvx	C�gvy	C�gvx	\�gvy	\�gvx		m�gvy	
m�gvx	~�gvy	~�gt	
��gvx	�gvy	�gvx	�gvy	�gvx	/�gvy	/�gvx		@�gvy	
@�gt	]v#gfilenamef'language/ecmascript/compile-tree-il.scm�
	��		��	.0	
��	:/		��	@	��	A3	��	K3		��	M	��	a(	��	e	��	f*	
��	k*	��	r*	
��	v)		���,	���+	���	���$	"���	���$	1���$	9���$	���&	
���%		���	��#		��	���	
���	
���	���	���	$���	
���!	���		���	��L	
��U	��]	��k	$��z	
���	���		���	��-	�	gnameglp�CZK�,-.h�]44556�gx
		gfilenamef'language/ecmascript/compile-tree-il.scm�
8	��	9	 ��	9	/��	9	B��	9	 ��	9	��		C[��e��ht]Clgx
		gfilenamef'language/ecmascript/compile-tree-il.scm�
<	��	<	+��		C�
hp�],OQ4>G45454455454	5C�ge
		pgbody		pgformals			pgformal-syms			pglp			gout			pgrvars			pgnames		-	pgsyms		8	pge		R	p
gfilenamef'language/ecmascript/compile-tree-il.scm�

��		��		��		(��		��	"5	��	'7	��	-7	��	08	��	87	��	;;	��	@;	��	R;	��	R7	��	V<	��	[<	��	d=	��	o<	��		p	gnameg	comp-body�C/RC�gm
		,gfilenamef'language/ecmascript/compile-tree-il.scm�		
���	$
���	'
��z	*
���	.
��	�	6
��~	H	���	H
���	J
���	O
����	\
����
��
	��
C6language/assembly.go000064400000023304150536206120010477 0ustar00GOOF----LE-8-2.0�&]g4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gassembly�	�		gfilenameS�	
flanguage/assembly.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	gsystem�	gbase�	gpmatch�	�	�	gvm�	ginstruction�	�	�	gsrfi�	gsrfi-1�	�	gselectS�	gfold�	�	�	 �	!gexportsS�	"gbyte-length�	#gaddr+�	$g
align-program�	%g
align-code�	&galign-block�	'g
assembly-pack�	(gassembly-unpack�	)gobject->assembly�	*gassembly->object�	+"#$%&'()*	�	,gset-current-module�	-,�	.,�	/g*program-header-len*�	0g	*len-len*�	1gload-program�	2gerror�	3funknown instruction�	4g
load-array�	5gbytevector-length�	6gload-symbol�	7g
string-length�	8gload-wide-string�	9gload-string�	:gload-number�	;ginstruction-length�	<g*program-alignment*�	=g	make-list�	>gnop�	?>�	@gcode-alignment�	Agappend�	BA�	CA�	Dg	make-int8�	ED
�	Fgmake-int8:0�	GEF�	HD�	Igmake-int8:1�	JHI�	KGJ�	Lg*abbreviations*�	Mgmap�	Ng*expansions*�	Og	assoc-ref�	Pg	make-true�	QP�	Rg
make-false�	SR�	Tgmake-nil�	UT�	Vgmake-eol�	WV�	Xgchar?�	Yg
char->integer�	Zg
make-char8�	[gmake-char32�	\ginteger?�	]gexact?�	^g
make-int64�	_gbytevector->u8-list�	`gmake-bytevector�	agbig�	bgmake-uint64�	cg
make-int16�	dgstring->symbol�	eg
integer->char�	fgu8-list->bytevector�C5h��]4	
 !+54.>"G	/R	0R1/"234056789:;hP�]1""�"z"'"�"��$~��&d�$U���$=���$$����$45�"
�C6666
C�$A��&+�$ ��(�45�C"��9"��5"��1"��-�$A��	&+�$ ��(�4
5�C"���"���"���"����$D��&.�$#��(�	4
5��C"���"���"���"����$A��&+�$ ��(�4
5�C"��F"��B"��>"��:�$A��
&+�$ ��(�4
5�C"���"���"���"����$#��45
�$	45�C"���"����gassembly
	Ngvx	'�gvy		'�gvy		=�gvx		P�gvy		P�gvx		^	gvx��gvy	��gvx	��gvy	��gvx�5gvy	�5gvx	-gvy	-gvxF�gvy	F�gvx	_|gvy	_|gvx��gvy	��gvx	��gvy	��gvx�gvy	�gvx	�gvy	�gvx*Jgfilenameflanguage/assembly.scm�
	%
��		&	��	g	4	��	p	4	#��	q	4	0��	x	4	,��	~	4	���	7	���	7	
���	7	���	7	
���	7	���	7	
���	7	���	7	
���	&	���	2	���	2	���	2	���	&	�� 	0	��!	0	��(	0	��-	&	��l	.	��o	.	��v	.	��w	.	��|	&	���	,	���	,	���	,	���	&	��	*	��	*	��	*	��	&	��1	'	��9	'	��=	&	��>	(	
��E	(	��J	&	��,	Ngnamegbyte-length�C"R	<R"hy]45�Cqgx
		
glen		
gfilenameflanguage/assembly.scm�
	=	��		=	��		=	��		
	Ch�]6~gaddr
		gcode		gfilenameflanguage/assembly.scm�
	<
��		=	��			gnamegaddr+�C#R=?h�]����6�gaddr
		g	alignment		g
header-len			gfilenameflanguage/assembly.scm�
	A
��		C	 ��		C	��		B	��		B	
��		E	
��		B	��			gnamegcode-alignment�C@Rhz]Crgaddr
		gfilenameflanguage/assembly.scm�
	G
��		H	��		gnamegalign-block�C&RC@h�]456�gcode
		gaddr		g	alignment			g
header-len			gfilenameflanguage/assembly.scm�
	J
��		K	��		K	��			gnameg
align-code�C%R%<h�]6�gprog
		
gaddr		
gfilenameflanguage/assembly.scm�
	N
��	
	O	��		
	gnameg
align-program�C$RKLR4Mihp]���Chgx
		
gfilenameflanguage/assembly.scm�
	Z	��		Z	��		Z	!��			Z	��		
CLi5NROLh �]	45$CC�gcode
		gt		gfilenameflanguage/assembly.scm�
	\
��		]	��		]	��		gnameg
assembly-pack�C'RONh �]	45$CC�gcode
		gt		gfilenameflanguage/assembly.scm�
	`
��		a	��		a	��		gnamegassembly-unpack�C(RQSUWXYZ[\]^_`abc'Dh�]	&C&C&C(C"645$)45��$
45C45CC4	5$#4
5$"O��
�$��������"$44
	5
�5�CC"?
�$3���������$44
	5
�5�C"��r"��n"P��$B��$.
�$�"��C"��q"��m	��$��$�6"���"���"���"���gx
	�gb��gbv��gbv�gnG[gfilenameflanguage/assembly.scm�
	i
��			j	��		j	��		j	��		k	��		j	��		l	��	&	j	��	(	m	��	.			��	8	j	��	9�	��	C�	��	G�		��	I�	��	J�	��	S�	��	V�	��	W�	��	`�	��	c	j	��	d	n	��	n	j	��	o	n	��	y	n		���	y	���	y	���	o		���	z	���	z	���	{	*���	{	 ���	|	>���	|	"���	z	���	z	���	o		���	t	���	o		���	t	���	u	���	u	 ���	v	+���	v	!���	w	?���	w	#��	u	 ��	u	��	o		��	q	��	o		��)	q	#��-	q	��1	r	��5	r	��A	r	%��G	r	��K	s	��Q	s	 ��W	s	2��Z	s	��c	o		��h	o	��l	o		��r	o	!��v	o	��z	p	���	p	,���	p	���	p	��G	�gnamegobject->assembly�C)R6d9[eZ^fabcDVTRPh<]�"�"�"n"="�"a"m"y"/"�">�$5��&!�$��(6CCCC�$8��&"�$��(C"���"���"���"���$���&��$z���$e���$P���$;��
	
('�����	�6"���"���"���"���"���"���"����$;��&%�$��(6"���"���"���"����$���&��$����$����$����$���
	
�$p
�
��$[��
�$F���$1��(4	
5
	�C"���"���"���"���"���"���"���"���"���"���"����$���
&��$����$����$����$���
	
�$p
�
��$[��
�$F���$1��(4	
5
	�C"���"���"���"���"���"���"���"���"���"���"����$u��&_�$T���$?��(+����$C�C"��/"��+"��'"��#"���$I��&3�$(��(��$C�C"���"���"���"����$"��
&(C"���"���"����$"��&(C"��m"��i"��e�$"��&(C"��<"��8"��4�$"��&(C"��"��"��4gcode
	gvx	;	jgvy		;	jgvx		T	fgvy		T	fgvx	y�gvy		y�gvx	��gvy	��gvx�Qgvy	�Qgvx	�Igvy	�Igvx	�Egvy	�Egvx	�Agvy	�Agvx		=gvy	
=gvxb�gvy	b�gvx	{�gvy	{�gvx��gvy	��gvx	�gvy	�gvx	�{gvy	�{gvx	�wgvy	�wgvx		�sgvy	
�sgvx	ogvy	ogvx	
kgvy	kgvx	'ggvy	'ggvx	8cgvy	8cgvx�wgvy	�wgvx	�ogvy	�ogvx	�kgvy	�kgvx	�ggvy	�ggvx		�cgvy	
�cgvx	�_gvy	�_gvx	
[gvy	[gvx	Wgvy	Wgvx	(Sgvy	(Sgvx��gvy	��gvx	��gvy	��gvx	��gvy	��gn	��gvxKgvy	Kgvx	!Cgvy	!Cgvx\xgvy	\xgvx��gvy	��gvx��gvy	��gvx��gvy	��Ngfilenameflanguage/assembly.scm�
�
��	�	��	d�	��	l�	�� �	��,�	��-�	��3�	��4�	��9�	��=�	����	����	��C�	��X�	��Z�	��]�	��^�	��c�	��3�	��H�	��J�	��M�	��N�	��S�	����	����	����	����	����	����	����	��1�		��5�	��>�	��C�	��o�	��t�	��'	gnamegassembly->object�C*RC�gm
		,gfilenameflanguage/assembly.scm�		
��	.		��	1	
��	6	"
��w	%
��|	:
���	<
���	A
��	]	G
��
M	J
��	N
��	V	��	U
��	Z	���	Y
��m	\
��
7	`
��	i
����
��	�
C6language/glil.go000064400000044020150536206120007605 0ustar00GOOF----LE-8-2.0�G]�4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gglil�	�		gfilenameS�	
flanguage/glil.scm�	gimportsS�	gsystem�	
gbase�	gsyntax�	
�	�	gpmatch�	
�	�	gsrfi�	gsrfi-1�	�	gselectS�	gfold�	�	�	�	gexportsS�	g<glil-program>�	gmake-glil-program�	g
glil-program?�	 gglil-program-meta�	!gglil-program-body�	"g<glil-std-prelude>�	#gmake-glil-std-prelude�	$gglil-std-prelude?�	%gglil-std-prelude-nreq�	&gglil-std-prelude-nlocs�	'gglil-std-prelude-else-label�	(g<glil-opt-prelude>�	)gmake-glil-opt-prelude�	*gglil-opt-prelude?�	+gglil-opt-prelude-nreq�	,gglil-opt-prelude-nopt�	-gglil-opt-prelude-rest�	.gglil-opt-prelude-nlocs�	/gglil-opt-prelude-else-label�	0g<glil-kw-prelude>�	1gmake-glil-kw-prelude�	2gglil-kw-prelude?�	3gglil-kw-prelude-nreq�	4gglil-kw-prelude-nopt�	5gglil-kw-prelude-kw�	6g!glil-kw-prelude-allow-other-keys?�	7gglil-kw-prelude-rest�	8gglil-kw-prelude-nlocs�	9gglil-kw-prelude-else-label�	:g<glil-bind>�	;gmake-glil-bind�	<g
glil-bind?�	=gglil-bind-vars�	>g<glil-mv-bind>�	?gmake-glil-mv-bind�	@g
glil-mv-bind?�	Agglil-mv-bind-vars�	Bgglil-mv-bind-rest�	Cg
<glil-unbind>�	Dgmake-glil-unbind�	Egglil-unbind?�	Fg
<glil-source>�	Ggmake-glil-source�	Hgglil-source?�	Igglil-source-props�	Jg<glil-void>�	Kgmake-glil-void�	Lg
glil-void?�	Mg<glil-const>�	Ngmake-glil-const�	Ogglil-const?�	Pgglil-const-obj�	Qg<glil-lexical>�	Rgmake-glil-lexical�	Sg
glil-lexical?�	Tgglil-lexical-local?�	Ugglil-lexical-boxed?�	Vgglil-lexical-op�	Wgglil-lexical-index�	Xg<glil-toplevel>�	Ygmake-glil-toplevel�	Zgglil-toplevel?�	[gglil-toplevel-op�	\gglil-toplevel-name�	]g
<glil-module>�	^gmake-glil-module�	_gglil-module?�	`gglil-module-op�	agglil-module-mod�	bgglil-module-name�	cgglil-module-public?�	dg<glil-label>�	egmake-glil-label�	fgglil-label?�	ggglil-label-label�	hg
<glil-branch>�	igmake-glil-branch�	jgglil-branch?�	kgglil-branch-inst�	lgglil-branch-label�	mg<glil-call>�	ngmake-glil-call�	og
glil-call?�	pgglil-call-inst�	qgglil-call-nargs�	rg<glil-mv-call>�	sgmake-glil-mv-call�	tg
glil-mv-call?�	ugglil-mv-call-nargs�	vgglil-mv-call-ra�	wg
<glil-prompt>�	xgmake-glil-prompt�	ygglil-prompt?�	zgglil-prompt-label�	{gglil-prompt-escape-only?�	|g
parse-glil�	}gunparse-glil�	~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}a�	gset-current-module������gformat��f
#<glil ~s>��g
print-glil��gmake-record-type��f<glil-program>��gmeta��gbody������grecord-predicate��gmake-procedure-with-setter��grecord-accessor��grecord-modifier��f<glil-std-prelude>��gnreq��gnlocs��g
else-label�������f<glil-opt-prelude>��gnopt��grest���������f<glil-kw-prelude>��gkw��gallow-other-keys?�����������f<glil-bind>��gvars�����f<glil-mv-bind>������f
<glil-unbind>��f
<glil-source>��gprops�����f<glil-void>��f<glil-const>��gobj�����f<glil-lexical>��glocal?��gboxed?��gop��gindex��������f<glil-toplevel>��gname������f
<glil-module>��gmod��gpublic?��������f<glil-label>��glabel�����f
<glil-branch>��ginst������f<glil-call>��gnargs������f<glil-mv-call>��gra������f
<glil-prompt>��gescape-only?������gprompt��gerror��finvalid glil��gmv-call��gcall��gbranch��gmodule��gprivate��gpublic��gtoplevel��glexical��gconst��gvoid��gsource��gunbind��gmv-bind��gbind��g
kw-prelude��gopt-prelude��gstd-prelude��gprogram��gmap�����������funhandled record�C5h�4v]4	
~54�>"G��}h�]456�gx
		gport		gfilenameflanguage/glil.scm�
	Q
��		R	��			R	��		R	��			gnameg
print-glil�C�R4�i���i5Rh�-13�C�gmeta
			gbody			gdefrec-98ee61a7034-32d				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-program�CR4�ii5R4�i4�ii�54�ii�55 R4�i4�ii�54�ii�55!R4�i���i5"R"h�-13�C�gnreq
			gnlocs			g
else-label				gdefrec-98ee61a7034-32f				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-std-prelude�C#R4�i"i5$R4�i4�i"i�54�i"i�55%R4�i4�i"i�54�i"i�55&R4�i4�i"i�54�i"i�55'R4�i���i5(R(h �-13�C�gnreq
			gnopt			grest				gnlocs				g
else-label				gdefrec-98ee61a7034-331				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-opt-prelude�C)R4�i(i5*R4�i4�i(i�54�i(i�55+R4�i4�i(i�54�i(i�55,R4�i4�i(i�54�i(i�55-R4�i4�i(i�54�i(i�55.R4�i4�i(i�54�i(i�55/R4�i���i50R0h -13�Cgnreq
			gnopt			grest				gkw				gallow-other-keys?				gnlocs				g
else-label				gdefrec-98ee61a7034-333				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-kw-prelude�C1R4�i0i52R4�i4�i0i�54�i0i�553R4�i4�i0i�54�i0i�554R4�i4�i0i�54�i0i�557R4�i4�i0i�54�i0i�555R4�i4�i0i�54�i0i�556R4�i4�i0i�54�i0i�558R4�i4�i0i�54�i0i�559R4�i���i5:R:h�-13�C�gvars
			gdefrec-98ee61a7034-335			gfilenameflanguage/glil.scm�
	T
��			
gnamegmake-glil-bind�C;R4�i:i5<R4�i4�i:i�54�i:i�55=R4�i���i5>R>h�-13�C�gvars
			grest			gdefrec-98ee61a7034-337				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-mv-bind�C?R4�i>i5@R4�i4�i>i�54�i>i�55AR4�i4�i>i�54�i>i�55BR4�i��i5CRCh�-13�Cgdefrec-98ee61a7034-339
			gfilenameflanguage/glil.scm�
	T
��			


gnamegmake-glil-unbind�CDR4�iCi5ER4�i���i5FRFh�-13�C�gprops
			gdefrec-98ee61a7034-33b			gfilenameflanguage/glil.scm�
	T
��			
gnamegmake-glil-source�CGR4�iFi5HR4�i4�iFi�54�iFi�55IR4�i��i5JRJh�-13�C}gdefrec-98ee61a7034-33d
			gfilenameflanguage/glil.scm�
	T
��			


gnamegmake-glil-void�CKR4�iJi5LR4�i���i5MRMh�-13�C�gobj
			gdefrec-98ee61a7034-33f			gfilenameflanguage/glil.scm�
	T
��			
gnamegmake-glil-const�CNR4�iMi5OR4�i4�iMi�54�iMi�55PR4�i���i5QRQh�-13�C�glocal?
			gboxed?			gop				gindex				gdefrec-98ee61a7034-341				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-lexical�CRR4�iQi5SR4�i4�iQi�54�iQi�55TR4�i4�iQi�54�iQi�55UR4�i4�iQi�54�iQi�55VR4�i4�iQi�54�iQi�55WR4�i���i5XRXh�-13�C�gop
			gname			gdefrec-98ee61a7034-343				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-toplevel�CYR4�iXi5ZR4�i4�iXi�54�iXi�55[R4�i4�iXi�54�iXi�55\R4�i���i5]R]h�-13�C�gop
			gmod			gname				gpublic?				gdefrec-98ee61a7034-345				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-module�C^R4�i]i5_R4�i4�i]i�54�i]i�55`R4�i4�i]i�54�i]i�55aR4�i4�i]i�54�i]i�55bR4�i4�i]i�54�i]i�55cR4�i���i5dRdh�-13�C�glabel
			gdefrec-98ee61a7034-347			gfilenameflanguage/glil.scm�
	T
��			
gnamegmake-glil-label�CeR4�idi5fR4�i4�idi�54�idi�55gR4�i���i5hRhh�-13�C�ginst
			glabel			gdefrec-98ee61a7034-349				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-branch�CiR4�ihi5jR4�i4�ihi�54�ihi�55kR4�i4�ihi�54�ihi�55lR4�i���i5mRmh�-13�C�ginst
			gnargs			gdefrec-98ee61a7034-34b				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-call�CnR4�imi5oR4�i4�imi�54�imi�55pR4�i4�imi�54�imi�55qR4�i���i5rRrh�-13�C�gnargs
			gra			gdefrec-98ee61a7034-34d				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-mv-call�CsR4�iri5tR4�i4�iri�54�iri�55uR4�i4�iri�54�iri�55vR4�i���i5wRwh�-13�C�glabel
			gescape-only?			gdefrec-98ee61a7034-34f				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-prompt�CxR4�iwi5yR4�i4�iwi�54�iwi�55zR4�i4�iwi�54�iwi�55{R�x���s�n�i�e��^��Y�R�N�K�G�D�?�;�1�)�#��|+h��
]�"z""\"�"]"�"�""L""s""x"�"�"3"�"q�$b��&H�$9���$ ��(666666�$R��&<�$1���$��(6"��B"��>"��:"��6"��2�$R��&<�$1���$��(6"���"���"���"���"����$R��	&<�$1���$��(
6"���"��|"��x"��t"��p�$;��&%�$��(6"��2"��."��*"��&�$���
&u�$j��&T�$I���$4���$��
	
(	6"���"���"���"���"���"���"���"����$���
&u�$j��&T�$I���$4���$��
	
(	6"��"��
"��"��"���"���"���"����$R��&<�$1���$��(6"���"���"���"���"����$���&j�$_���$J���$5���$ ��
	
(	6"��"��"��"��"��
"��"���$;��&%�$��(6"���"���"���"����$$��&(6"���"���"����$;��&%�$��(6"��G"��C"��?"��;�$$��&(6"��"��"���$R��&<�$1���$��(6"���"���"���"���"����$��& 6"���"��|�$���!&��$����$����$z���$e��
	
�$P
�
��$;��
�$&��("	
6"���"���"���"���"���"���"���"���"���"����$���#&��$v���$a���$L���$7��
	
�$"
�
�($	6"��"��"��"��"��"��
"��"���$i��%&S�$H���$3���$��(
&6"���"���"���"���"���"����$:��'&$�$��(4)*56"��I"��E"��A�
gx
	�gvx	W�gvy		W�gvx		p�gvy		p�gvx	��gvy	��gvx�gvy	�gvx	�gvy	�gvx	�gvy	�gvx%qgvy	%qgvx	>igvy	>igvx	Oegvy	Oegvx��gvy	��gvx	��gvy	��gvx	��gvy	��gvx�gvy	�gvx	�gvy	�gvx%�gvy	%�gvx	>�gvy	>�gvx	W�gvy	W�gvx	h�gvy	h�gvx		y�gvy	
y�gvx�@gvy	�@gvx	�8gvy	�8gvx	�0gvy	�0gvx	�,gvy	�,gvx		(gvy	
(gvxQ�gvy	Q�gvx	j�gvy	j�gvx	{�gvy	{�gvx�(gvy	�(gvx	� gvy	� gvx	�gvy	�gvx	�gvy	�gvx		�gvy	
�gvx9ngvy	9ngvx	Rfgvy	Rfgvx�gvy	�gvx��gvy	��gvx	��gvy	��gvx�gvy	�gvx#ogvy	#ogvx	<ggvy	<ggvx	Mcgvy	Mcgvx��gvy	��gvx�fgvy	�fgvx	�^gvy	�^gvx	�Zgvy	�Zgvx	�Vgvy	�Vgvx		�Rgvy	
�Rgvx	Ngvy	Ngvx	
Jgvy	Jgvx	&Fgvy	&Fgvxwgvy	wgvx	�gvy	�gvx	��gvy	��gvx	��gvy	��gvx		��gvy	
��gvx	��gvy	��gvx|gvy	|gvx	2tgvy	2tgvx	Cpgvy	Cpgvx	Tlgvy	Tlgvx��gvy	��gvx	��gvy	��}gfilenameflanguage/glil.scm�
	n
��		o	����	����	����	
����	����	
����	����	
����	����	
����	����	
���	o	���	��	o	��a�	��e	o	����	���	o	���	��	o	����	%���	o	��$�	$��(	o	���		���	o	��	~	*��	o	��b	}	��f	o	���	|	���	o	���	{	���	o	��
	z	��	o	��_	y	��c	o	���	x	���	o	��B	w	��F	o	���	u	���	o	��h	s	��l	o	���	q	���	q	���	o	��4	�gnameg
parse-glil�C|R !��}"%&'�(+,-./�03475689�:=�>AB�C�FI�J�MP�QTUVW�X[\�]`abc���dg�hkl�mpq�ruv�wz{����Uh�d]A�&"454545��C&'454	54
5C&=4
545454545C&S45454545454545C&45�C&4 54!5"C#&$C%&4&5'C(&)C*&4+5,C-&24.54/54054152C3&4454556C7&>4854954:54;5<$=">C?&4@5ACB&4C54D5ECF&4G54H5ICJ&4K54L5MCN&$4O54P>"GQR��CST6\gglil
	�grtd	�gmeta			1gbody			1gnreq		N	`gnlocs		N	`g
else-label		N	`gnreq	��gnopt	��grest	��gnlocs	��g
else-label	��gnreq	�gnopt	�grest	�gkw	�gallow-other-keys?	�gnlocs	�g
else-label	�gvars	gvars	-;grest	-;gprops	U_gobj	y�glocal?	��gboxed?	��gop	��gindex	��gop	��gname	��gop	'gmod	'gname	'gpublic?	'glabel	6@ginst	Vdglabel	Vdginst	z�gnargs	z�gnargs	��gra	��glabel	��*gfilenameflanguage/glil.scm�
�
��	�	��	#�	��	&�	��	/�	��	9�	��	V�	��	h�	����	����	����	���	���	���	��3�	 ��C�	��E�	��N�	��Y�	��g�	��i�	��r�	��}�	����	����	����	����	����	���	���	���	���	#��&�	��/�	��:�	��H�	��\�	 ��l�	����	����	����	����	����	����	��-	�gnamegunparse-glil�C}RCngm
		,gfilenameflanguage/glil.scm�		
���	Q
��	T
��+�	n
��4��
��	4�
C6language/tree-il.go000064400000223161150536206120010224 0ustar00GOOF----LE-8-2.0Y&]p4h�.]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	�		gfilenameS�	
flanguage/tree-il.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	gsrfi-11�	�	�	gsystem�	gbase�	gpmatch�	�	�	gsyntax�	�	�	�	gexportsS�	gtree-il-src�	g<void>�	gvoid?�	 g	make-void�	!gvoid-src�	"g<const>�	#gconst?�	$g
make-const�	%g	const-src�	&g	const-exp�	'g<primitive-ref>�	(gprimitive-ref?�	)gmake-primitive-ref�	*gprimitive-ref-src�	+gprimitive-ref-name�	,g
<lexical-ref>�	-glexical-ref?�	.gmake-lexical-ref�	/glexical-ref-src�	0glexical-ref-name�	1glexical-ref-gensym�	2g
<lexical-set>�	3glexical-set?�	4gmake-lexical-set�	5glexical-set-src�	6glexical-set-name�	7glexical-set-gensym�	8glexical-set-exp�	9g<module-ref>�	:gmodule-ref?�	;gmake-module-ref�	<gmodule-ref-src�	=gmodule-ref-mod�	>gmodule-ref-name�	?gmodule-ref-public?�	@g<module-set>�	Agmodule-set?�	Bgmake-module-set�	Cgmodule-set-src�	Dgmodule-set-mod�	Egmodule-set-name�	Fgmodule-set-public?�	Ggmodule-set-exp�	Hg<toplevel-ref>�	Ig
toplevel-ref?�	Jgmake-toplevel-ref�	Kgtoplevel-ref-src�	Lgtoplevel-ref-name�	Mg<toplevel-set>�	Ng
toplevel-set?�	Ogmake-toplevel-set�	Pgtoplevel-set-src�	Qgtoplevel-set-name�	Rgtoplevel-set-exp�	Sg<toplevel-define>�	Tgtoplevel-define?�	Ugmake-toplevel-define�	Vgtoplevel-define-src�	Wgtoplevel-define-name�	Xgtoplevel-define-exp�	Yg
<conditional>�	Zgconditional?�	[gmake-conditional�	\gconditional-src�	]gconditional-test�	^gconditional-consequent�	_gconditional-alternate�	`g
<application>�	agapplication?�	bgmake-application�	cgapplication-src�	dgapplication-proc�	egapplication-args�	fg
<sequence>�	gg	sequence?�	hg
make-sequence�	igsequence-src�	jg
sequence-exps�	kg<lambda>�	lglambda?�	mgmake-lambda�	ng
lambda-src�	oglambda-meta�	pglambda-body�	qg
<lambda-case>�	rglambda-case?�	sgmake-lambda-case�	tglambda-case-src�	uglambda-case-req�	vglambda-case-opt�	wglambda-case-rest�	xglambda-case-kw�	yglambda-case-inits�	zglambda-case-gensyms�	{glambda-case-body�	|glambda-case-alternate�	}g<let>�	~glet?�	gmake-let��glet-src��g	let-names��glet-gensyms��glet-vals��glet-body��g<letrec>��gletrec?��gmake-letrec��g
letrec-src��gletrec-in-order?��gletrec-names��gletrec-gensyms��gletrec-vals��gletrec-body��g<fix>��gfix?��gmake-fix��gfix-src��g	fix-names��gfix-gensyms��gfix-vals��gfix-body��g<let-values>��glet-values?��gmake-let-values��glet-values-src��glet-values-exp��glet-values-body��g	<dynwind>��gdynwind?��gmake-dynwind��gdynwind-src��gdynwind-winder��gdynwind-body��gdynwind-unwinder��g<dynlet>��gdynlet?��gmake-dynlet��g
dynlet-src��g
dynlet-fluids��gdynlet-vals��gdynlet-body��g<dynref>��gdynref?��gmake-dynref��g
dynref-src��gdynref-fluid��g<dynset>��gdynset?��gmake-dynset��g
dynset-src��gdynset-fluid��g
dynset-exp��g<prompt>��gprompt?��gmake-prompt��g
prompt-src��g
prompt-tag��gprompt-body��gprompt-handler��g<abort>��gabort?��g
make-abort��g	abort-src��g	abort-tag��g
abort-args��g
abort-tail��g
parse-tree-il��gunparse-tree-il��gtree-il->scheme��gtree-il-fold��gmake-tree-il-folder��gpost-order!��g
pre-order!��g	tree-il=?��gtree-il-hash�� !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~�������������������������������������������������������������������������������gset-current-module��������gformat��f
#<tree-il ~S>��g
print-tree-il��gmake-syntax-transformer��������gborrow-core-vtables��gmacro��g$sc-dispatch��������g_�����g
vector-length��g%expanded-vtables��gvtable-offset-user��gmap��g
datum->syntax��g
symbol-append��g<��g>��gmake-��g?��g-��gany�������g
syntax-object��gdefine��gtop�����gribcage�����gt-9d61459b896-a19��gt-9d61459b896-a17��gt-9d61459b896-a18�������gm-9d61459b896-a1a�����������fl-9d61459b896-a1e��fl-9d61459b896-a1f��fl-9d61459b896-a20�������������gacc��������fl-9d61459b896-a15�������glp�gn�gfields�gout�������fl-9d61459b896-9e1�	fl-9d61459b896-9e2�
fl-9d61459b896-9e3�fl-9d61459b896-9e4�	
�
��gpred��fl-9d61459b896-9df�����gctor��fl-9d61459b896-9dd�����gtype��fl-9d61459b896-9db�����gsfields��fl-9d61459b896-9d7� �!�� �"�#fl-9d61459b896-9d5�$#�%�"�$�&gstem�'&�(fl-9d61459b896-9d3�)(�*�'�)�+gvtable�,+�-fl-9d61459b896-9d1�.-�/�,�.�0�1����2fl-9d61459b896-9ca�3fl-9d61459b896-9cb�4fl-9d61459b896-9cc�5234�6�015�7gx�87�9fl-9d61459b896-9c7�:9�;�8�:�<�����
�����!�%�*�/�6�;�=ghygiene�>=�?��<>�@gmake-procedure-with-setter�A�@<>�Bglambda�C�B<>�D�7<>�ED�Fg
struct-ref�G�F<>�Hgv�I�H<>�JDI�Kgstruct-set!�L�K<>�MI�Ngsyntax-violation�ON�PN�Qf-source expression failed to match any pattern�Rgeach-any�S�R�R�Tgt-9d61459b896-9ea�Ugt-9d61459b896-9e9�Vgt-9d61459b896-9ec�Wgt-9d61459b896-9eb�XTUVW�Ygm-9d61459b896-9ed�ZY��[ZZZZ�\fl-9d61459b896-9f1�]fl-9d61459b896-9f2�^fl-9d61459b896-9f3�_fl-9d61459b896-9f4�`\]^_�a�X[`�b��a�����!�%�*�/�6�;�c��b>�dgmake-struct�e�db>�f�
b>�g���hgt-9d61459b896-9fb�igt-9d61459b896-9fc�jhi�kgm-9d61459b896-9fd�lk��mll�nfl-9d61459b896-a01�ofl-9d61459b896-a02�pno�q�jmp�r��q�����!�%�*�/�6�;�s��r>�t�7r>�ut�vgand�w�vr>�xgstruct?�y�xr>�zyt�{geq?�|�{r>�}g
struct-vtable�~�}r>�~t��gt-9d61459b896-a05�����gm-9d61459b896-a06���������fl-9d61459b896-a09�������������������!�%�*�/�6�;���K�>��gvtable-index-printer�����>�����>������gt-9d61459b896-a0c��gt-9d61459b896-a0b������gm-9d61459b896-a0d����������fl-9d61459b896-a11��fl-9d61459b896-a12��������������������!�%�*�/�6�;�����>��g
vector-ref�����>�����>��greverse��gbegin��gt-9d61459b896-a24�����gm-9d61459b896-a25���������fl-9d61459b896-a29���������������6�;�����>��gmake-record-type��f<fix>��gsrc��gnames��ggensyms��gvals��gbody���������grecord-predicate��grecord-accessor��grecord-modifier��f<let-values>��gexp�������f	<dynwind>��gwinder��gunwinder��������f<dynref>��gfluid������f<dynset>�������f<prompt>��gtag��ghandler��������f<abort>��gargs��gtail��������gsource-properties��glocation��gabort��gerror��funrecognized tree-il��gprompt��gdynset��gdynref��gdynlet��gdynwind��g
let-values��gfix��gletrec*��gletrec��glet��gconst��glambda-case��gand=>��gset!��gtoplevel��g@@��gand-map��gsymbol?��g@��glexical��g	primitive��gif��gapply��gvoid�����������funhandled record��gscheme��gdecompile-tree-il��������������gfold���R���gdummy��gseed������gm-9d61459b896-1211����������fl-9d61459b896-1216��fl-9d61459b896-1217���������������fl-9d61459b896-1213������8�����������B�>�gtree���>�gdown���>�gup���>����>�gfold-values���>�	gproc�
�	�>�gexps���>�
���>�gnull?���>��gvalues���>����>�gcar���>��gcdr���>�����>�gfoldts���>������ glist�!glet*-values�"�!�>�#grecord-case�$�#�>�%�2�>�&���>�'%&�(�@�>�)(&�*�M�>�+*&�,�S�>�-,&�.�Y�>�/gtest�0�/�>�1g
consequent�2�1�>�3g	alternate�4�3�>�5.024�6�`�>�7���>�86
7�9�f�>�:9�;�k�>�<���>�=;<�>�q�>�?ginits�@�?�>�A>@<4�B�}�>�C���>�DBC<�E���>�FEC<�G���>�HGC<�I���>�JI&<�K���>�L���>�M���>�NK<LM�O���>�Pgfluids�Q�P�>�ROQC<�S���>�T���>�UST�V���>�WVT&�X���>�Y���>�Z���>�[XY<Z�\���>�]���>�^\Y7]�_gelse�`�_�>�agsetter�ba�ca�dg
string-length�egsymbol->string�fg
struct-layout�ggstruct-nfields�hg	hash-bits�igmake-variable-transformer�jgidentifier?�kglogcount�lgmost-positive-fixnum�mghashq�ngmax�oghash�C5h��]4	
�54�>"G���h�]456�gexp
		gport		gfilenameflanguage/tree-il.scm�
	B
��		C	��			C	��		C	��			gnameg
print-tree-il�C�R4����������h_]L6Wgf
		
gfilenameflanguage/tree-il.scm�
	P	"��	
	P	.��		
C���������?ACEGDJLM
h8w]	���Cogt-9d61459b896-a19
		1gt-9d61459b896-a17		1gt-9d61459b896-a18			1		1	CPQScefh�]����C�gt-9d61459b896-9ea
		gt-9d61459b896-9e9		gt-9d61459b896-9ec			gt-9d61459b896-9eb						Cgsuwz|h X]�CPgt-9d61459b896-9fb
		gt-9d61459b896-9fc					C�����hX]CPgt-9d61459b896-a0c
		gt-9d61459b896-a0b					C�R�h9]�C1gt-9d61459b896-a24
				Ch�]x"�45�$���
��	��4LO54L4	554L4
554L455"n
(" 	�
�4L4
�55		
4

5$4?"
4
5
�
	"���
	4
	5

$4
?"
4	5
		4
	5

$4
?"
4	5
	��	4
	5

$4
?"
4	5
	����
	"���"��@454
5$@6
"��
�gn
	�gout	�gvtable		�gstem		%�gfields		/�gsfields		?�gtype		S�gctor		e�gpred		w�gn			}�gfields	
	}�gout		}�gacc	��gtmp	
��gtmp	��gtmp		�'gtmp	
$gtmp		.\gtmp	
9Ygtmp		k�gtmp	
v�gtmp	��gtmp	��gfilenameflanguage/tree-il.scm�		I	��			J	��		J	
��		J		��		K	��		L	 ��		L	��	$	M	1��	%	M	��	%	L	��	.	N	3��	/	N	 ��	/	L	��	2	O	!��	?	L	��	B	R	��	G	R	/��	K	R	>��	O	R	F��	Q	R	/��	S	R	��	S	L	��	V	S	��	[	S	/��	_	S	>��	c	S	/��	e	S	��	e	L	��	h	T	��	m	T	/��	s	T	C��	u	T	/��	w	T	��	w	L	��	}	U	���	a	���	c	���	d	���	e	(���	f	+���	f	?���	f	B���	f	+���	e	(���	e	���	g	&���	g	���	c	���	U	���	W	#��.	Y	#��k	^	#���	V	!���	U	���	K	
���	l	���	l	���	I	���	I	���	I	��=	�
CPQh(g]	45$O@6_gx
		'gtmp		'gfilenameflanguage/tree-il.scm�
	F	��		'C5�R�i
�Ri�i�i�hh]�$��CC`gx
		gfilenameflanguage/tree-il.scm�
	n
��		gnamegvoid?�CRhn]�Cfgsrc
		
gfilenameflanguage/tree-il.scm�
	n
��		
gnameg	make-void�C R4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5!R�i�"R"i�i�i�"hi]�$��CCagx
		gfilenameflanguage/tree-il.scm�
	n
��		gnamegconst?�C#R"h�]�Cxgsrc
		gexp		gfilenameflanguage/tree-il.scm�
	n
��			gnameg
make-const�C$R4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5%R4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5&R�i	�'R'i�i�i�'hq]�$��CCigx
		gfilenameflanguage/tree-il.scm�
	n
��		gnamegprimitive-ref?�C(R'h�]�C�gsrc
		gname		gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-primitive-ref�C)R4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5*R4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5+R�i	�,R,i�i�i�,ho]�$��CCggx
		gfilenameflanguage/tree-il.scm�
	n
��		gnameglexical-ref?�C-R,h�]�C�gsrc
		gname		ggensym			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-lexical-ref�C.R4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5/R4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C50R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C51R�i	�2R2i�i�i�2ho]�$��CCggx
		gfilenameflanguage/tree-il.scm�
	n
��		gnameglexical-set?�C3R2h�]�C�gsrc
		gname		ggensym			gexp			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-lexical-set�C4R4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C55R4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C56R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C57R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C58R�i	�9R9i�i�i�9hn]�$��CCfgx
		gfilenameflanguage/tree-il.scm�
	n
��		gnamegmodule-ref?�C:R9h�]�C�gsrc
		gmod		gname			gpublic?			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-module-ref�C;R4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5<R4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5=R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5>R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5?R�i	�@R@i�i�i�@hn]�$��CCfgx
		gfilenameflanguage/tree-il.scm�
	n
��		gnamegmodule-set?�CAR@h�]�C�gsrc
		gmod		gname			gpublic?			gexp			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-module-set�CBR4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5CR4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5DR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5ER4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5FR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5GR�i	�HRHi�i�i�Hhp]�$��CChgx
		gfilenameflanguage/tree-il.scm�
	n
��		gnameg
toplevel-ref?�CIRHh�]�C�gsrc
		gname		gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-toplevel-ref�CJR4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5KR4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5LR�i	�MRMi�i�i�Mhp]�$��CChgx
		gfilenameflanguage/tree-il.scm�
	n
��		gnameg
toplevel-set?�CNRMh�]�C�gsrc
		gname		gexp			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-toplevel-set�COR4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5PR4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5QR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5RR�i		�SRSi�i�i�Shs]�$��CCkgx
		gfilenameflanguage/tree-il.scm�
	n
��		gnamegtoplevel-define?�CTRSh�]�C�gsrc
		gname		gexp			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-toplevel-define�CUR4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5VR4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5WR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5XR�i	
�YRYi�i�i�Yho]�$��CCggx
		gfilenameflanguage/tree-il.scm�
	n
��		gnamegconditional?�CZRYh�]�C�gsrc
		gtest		g
consequent			g	alternate			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-conditional�C[R4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5\R4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5]R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5^R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5_R�i	�`R`i�i�i�`ho]�$��CCggx
		gfilenameflanguage/tree-il.scm�
	n
��		gnamegapplication?�CaR`h�]�C�gsrc
		gproc		gargs			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-application�CbR4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5cR4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5dR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5eR�i	�fRfi�i�i�fhl]�$��CCdgx
		gfilenameflanguage/tree-il.scm�
	n
��		gnameg	sequence?�CgRfh�]�C|gsrc
		gexps		gfilenameflanguage/tree-il.scm�
	n
��			gnameg
make-sequence�ChR4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5iR4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5jR�i	
�kRki�i�i�khj]�$��CCbgx
		gfilenameflanguage/tree-il.scm�
	n
��		gnameglambda?�ClRkh�]�C�gsrc
		gmeta		gbody			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-lambda�CmR4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5nR4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5oR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5pR�i	�qRqi�i�i�qho]�$��CCggx
		gfilenameflanguage/tree-il.scm�
	n
��		gnameglambda-case?�CrRqh 
,	3	�
Cgsrc
		greq		gopt			grest			gkw			ginits			ggensyms			gbody			g	alternate				gfilenameflanguage/tree-il.scm�
	n
��				gnamegmake-lambda-case�CsR4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5tR4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5uR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5vR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5wR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5xR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5yR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5zR4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5{R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5|R�i	�}R}i�i�i�}hg]�$��CC_gx
		gfilenameflanguage/tree-il.scm�
	n
��		gnameglet?�C~R}h�]�C�gsrc
		gnames		ggensyms			gvals			gbody			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-let�CR4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5�R4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5�R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5�R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5�R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5�R�i	��R�i�i�i��hj]�$��CCbgx
		gfilenameflanguage/tree-il.scm�
	n
��		gnamegletrec?�C�R�h�]�C�gsrc
		g	in-order?		gnames			ggensyms			gvals			gbody			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-letrec�C�R4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5�R4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5�R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5�R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5�R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5�R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5�R�i	��R�i�i�i��hj]�$��CCbgx
		gfilenameflanguage/tree-il.scm�
	n
��		gnamegdynlet?�C�R�h�]�C�gsrc
		gfluids		gvals			gbody			gfilenameflanguage/tree-il.scm�
	n
��			gnamegmake-dynlet�C�R4@ihV]
�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]
�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5�R4@ihV]�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]�C]gx
			gv			gfilenameflanguage/tree-il.scm�
	n
��				C5�R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5�R4@ihV]	�CNgx
		gfilenameflanguage/tree-il.scm�
	n
��		Che]	�C]gx
		
gv		
gfilenameflanguage/tree-il.scm�
	n
��		
	C5�R4�i���i5�R�h �-13�C�gsrc
			gnames			ggensyms				gvals				gbody				gdefrec-9d61459b896-c7e				gfilenameflanguage/tree-il.scm�
�
��				
	gnamegmake-fix�C�R4�i�i5�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4�i���i5�R�h�-13�C�gsrc
			gexp			gbody				gdefrec-9d61459b896-c80				gfilenameflanguage/tree-il.scm�
�
��				
	gnamegmake-let-values�C�R4�i�i5�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4�i���i5�R�h�-13�C�gsrc
			gwinder			gbody				gunwinder				gdefrec-9d61459b896-c82				gfilenameflanguage/tree-il.scm�
�
��				
	gnamegmake-dynwind�C�R4�i�i5�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4�i���i5�R�h�-13�C�gsrc
			gfluid			gdefrec-9d61459b896-c84				gfilenameflanguage/tree-il.scm�
�
��				
	gnamegmake-dynref�C�R4�i�i5�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4�i���i5�R�h�-13�C�gsrc
			gfluid			gexp				gdefrec-9d61459b896-c86				gfilenameflanguage/tree-il.scm�
�
��				
	gnamegmake-dynset�C�R4�i�i5�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4�i���i5�R�h�-13�C�gsrc
			gtag			gbody				ghandler				gdefrec-9d61459b896-c88				gfilenameflanguage/tree-il.scm�
�
��				
	gnamegmake-prompt�C�R4�i�i5�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4�i���i5�R�h�-13�C�gsrc
			gtag			gargs				gtail				gdefrec-9d61459b896-c8a				gfilenameflanguage/tree-il.scm�
�
��				
	gnameg
make-abort�C�R4�i�i5�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@i4�i�i�54�i�i�55�R4@ih)]
�C!gx
				Ch8]
�C0gx
			gv							C5R�h �]	�$45�$CCC�gx
		 gprops		gfilenameflanguage/tree-il.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	�		��		 gnameglocation�C�R�hu]6mgx
		gfilenameflanguage/tree-il.scm�
�	��	�	��		gnamegretrans�C��������������������������h�$�s�Bm�U��OJ���B;��4.�)�[�b� <h0�]�45"�"�""�"^"�"0"
["�"�""
�"
L"	�"	&"�"�"_""�"B"�""i"�"s"�"�"("��$���&v�$g���$N���$5��
	
(45454	56666666�$z��	&d�$Y���$D���$/��
	
(
45454	56"���"���"���"���"���"����$^��&H�$=���$(��(45456"��"��{"��w"��s"��o�$B��
&,�$!��(
456"��*"��&"��""���$~��&h�$]���$H���$3��
	
(45454	56"���"���"���"���"���"����$z��&d�$Y���$D���$/��
	
(45454	56"��"��"��"��"��"���$^��&H�$=���$(��(45456"���"���"���"���"����$���&x�$m���$X���$C��
	
�$.
�
�(4	5456"��"��"��"��
"��"��"����$���&y�$n���$Y���$D��
	
�$/
�
�(4	5456"��x"��t"��p"��l"��h"��d"��`�$���&y�$n���$Y���$D��
	
�$/
�
�(4	5456"���"���"���"���"���"���"����$���&x�$m���$X���$C��
	
�$.
�
�(4	5456"��="��9"��5"��1"��-"��)"��%�$%��&456"���"����$=��&'�$��(6"���"���"���"����$�� &��$����$����$���
	
�$�
�
��$���
�$����$s���$^��(J�$?��(+(!!	
45456	"���"���"���"���"���"���"���"���"���"���"���"���"���"����$/�� &�$���$����$���
	
�$�
�
��$���
�$����$����${��(g�$\��(H�$=��()!	
45454"56	"��~"��z"��v"��r"��n"��j"��f"��b"��^"��Z"��V"��R"��N"��J"��F�$Y��#&C�$8���$#��($456"���"���"���"���"����$d��%&N�$C���$.��(�$&456"��"��{"��w"��s"��o"��k�$���'&��$����$n��(&X�$M��
	
(9�$.��(	�$)	456"���"���"���"���"���"���"���"���"���"����$H��(&2�$'��(�$*6"��q"��m"��i"��e"��a�$���'&��$����$���+&��$v��
	
�$a
�
�(M�$B��
(.4,-	5$�$.	4
56"��"��"��"��"��"��"��"��"��"��"��"���$q��+&[�$P���$;��('4,-5$�$/6"��"��"��"��"��
"��	"���$���'&��$����$���0&��$v��
	
�$a
�
�(M�$B��
(.4,-	5$�$.	4
56"��U"��Q"��M"��I"��E"��A"��="��9"��5"��1"��-"��)�$q��0&[�$P���$;��('4,-5$�$/6"��"��"��"��"��"��"���$���'&��$����$���1&z�$o��
	
�$Z
�
�(F�$;��
('	�$�$2	4
56"��"��"��"���"���"���"���"���"���"���"���"����$���'&��$����$p��1&Z�$O��
	
(;�$0��(	�$2		456"��C"��?"��;"��7"��3"��/"��+"��'"��#"���$j��1&T�$I���$4��( �$�$
36"��"��"��"��"��"��"���$J��1&4�$)��(�$
36"��]"��Y"��U"��Q"��M�$H��4&2�$'��(�$56"��"��"��"��"���$z��6&d�$Y���$D���$/��
	
(745454	56"��"��}"��y"��u"��q"��m�$A��8&+�$ ��945456"��%"��!"���$&��:&(;6"���"���"����gexp
	+gretrans	+gloc		
+gvx	�gvy	�gvx	�gvy	�gvx	�gvy	�gvx		��gvy	
��gvx	3�gvy	3�gvx	L�gvy	L�gvx	]�gvy	]�gvx		n�gvy	
n�gvx	�gvy	�gvx	�gvy	�gvx	�gvy	�gvx	!]gvy	!]gvx	:Ugvy	:Ugvx	n�gvy	n�gvx	��gvy	��gvx	��gvy	��gvx		��gvy	
��gvx	�kgvy	�kgvx	cgvy	cgvx	!_gvy	!_gvx		2[gvy	
2[gvx	|�gvy	|�gvx	��gvy	��gvx	��gvy	��gvx	�mgvy	�mgvx	�egvy	�egvx	agvy	agvx		 ]gvy	
 ]gvx	1Ygvy	1Ygvx	~gvy	~gvx	��gvy	��gvx	��gvy	��gvx		��gvy	
��gvx	��gvy	��gvx	�gvy	�gvx	1�gvy	1�gvx	B�gvy	B�gvx		S�gvy	
S�gvx	d�gvy	d�gvx	�:gvy	�:gvx	�2gvy	�2gvx	�.gvy	�.gvx		�*gvy	
�*gvx	�&gvy	�&gvx	Kjgvy	Kjgvx	{�gvy	{�gvx	��gvy	��gvx	��gvy	��gvx	��gvy	��gvx	��gvy	��gvx		��gvy	
��gvx	�gvy	�gvx	
 �gvy	 �gvx	1�gvy	1�gvx	B�gvy	B�gvx	S�gvy	S�gvx	j�gvy	j�gvx	�		gvy	�		gvx	�	gvy	�	gvx	
�gvy	
�gvx		�gvy	
�gvx	,�gvy	,�gvx	
=�gvy	=�gvx	N�gvy	N�gvx	_�gvy	_�gvx	p�gvy	p�gvx	��gvy	��gvx	��gvy	��gvx			mgvy			mgvx		3	egvy		3	egvx		D	agvy		D	agvx		~	�gvy		~	�gvx		�	�gvy		�	�gvx		�	�gvy		�	�gvx		�
�gvy		�
�gvx	

�gvy	

�gvx	

gvy	

gvx		
0
wgvy	

0
wgvx	
G
ogvy	
G
ogvx	
�
�gvy	
�
�gvx	
�
�gvy	
�
�gvx	
��gvy	
��gvx	�gvy	�gvx	�gvy	�gvx		2�gvy	
2�gvx	C�gvy	C�gvx	
Z�gvy	Z�gvx	�2gvy	�2gvx	�*gvy	�*gvx	�&gvy	�&gvx	C
gvy	C
gvx	\
gvy	\
gvx	m�gvy	m�gvx		��gvy	
��gvx	��gvy	��gvx	
��gvy	��gvx	

�gvy	

�gvx	
4
~gvy	
4
~gvx	
E
zgvy	
E
zgvx	
�Wgvy	
�Wgvx	
�Ogvy	
�Ogvx	
�Kgvy	
�Kgvx		
�Cgvy	

�Cgvx	
�?gvy	
�?gvx	
7gvy	7gvx	hgvy	hgvx	�gvy	�gvx	��gvy	��gvx		��gvy	
��gvx	��gvy	��gvx	}gvy	}gvx	2ugvy	2ugvx	Cqgvy	Cqgvx	��gvy	��gvx	��gvy	��gvx	�%gvy	�%gvx	�gvy	�gvx	6�gvy	6�gvx	O�gvy	O�gvx	`�gvy	`�gvx		q�gvy	
q�gvx	��gvy	��gvx	��gvy	��gvx	'gvy	'�gfilenameflanguage/tree-il.scm�
�
��	�	��	�	
��	
�	��	�	����	����	$����	����	����	
����	���	
���	��
�	
���	���	
���	���	
���	��"�	
��&�	��&�	��}�	����	����	����	���	���	��I�	��Q�	��U�	����	����	,����	����	����	��A�	��W�	��[�	����	����	����	��D�	"��M�	��U�	��Y�	����	(����	����	����	��x�	(����	����	����	���	"���	��"�	��&�	��\�	��f�	��j�	����	����	����	����	����	����	����	����	����	����	����	��	U�	��	]�	��	a�	��	��	!��	��	��	��	��	��	��	��	��
T�	*��
X�	��
_�	��
g�	��
k�	��
��	��
��	��
��	��
��	��e�	)��q�	��t�	?��x�	����	����	����	����	���	���	3���	���	���	����	(����	����	>����	����	����	����	��
P�	��
\�	��
_�	2��
c�	��
n�	��
r�	���	.���	���	=���	��#�	��+�	��/�	����	)����	����	����	����	��P�	"��T�	��W�	1��[�	��e�	��i�	����	����	����	����	��	�	��
�	���	���	����	����	����	����	����	+����	����	���	��#�	���	+gnameg
parse-tree-il�C�R�`de���Y]^_�'+�,01�2678�9=>?��@DEFGHL�MQRSWX�kopB�quvwxyz{|�"&�fj�}����������������������������������������������������yhP�
]I�&C&'45454545��C	&64
54545
454545C&45C&4545C&145454545C&1454545$"C &F4!54"54#54$5$"45C%&4&5'C(&&4)54*5'45C+&!4,54-5.45C/&0405415$245C23��C4&�4554654754854954:54;54<5	=4545	$4	5"��C>&4?5@CA&4B5C45�CD&>4E54F54G54H5I4545CJ&S4K54L54M54N54O5$P"Q4545CR&>4S54T54U54V5W4545CX&&4Y54Z5[4545C\&64]54^54_5`454545Ca&:4b54c54d5e454545Cf&4g5h45Ci&&4j54k5l4545Cm&64n54o54p5q454545Cr&84s54t54u5v454545Cwx6|
gtree-il
	Lgrtd	Lgproc		(	Agargs		(	Agtest		^	g
consequent		^	g	alternate		^	gname	��gname	��ggensym	��gname	��ggensym	��gexp	��gmod	.gname	.gpublic?	.gmod	R|gname	R|gpublic?	R|gexp	R|gname	��gname	��gexp	��gname	��gexp	��gmeta	$gbody	$greq	d�gopt	d�grest	d�gkw	d�ginits	d�ggensyms	d�gbody	d�g	alternate		d�gexp	��gexps	��gnames		+ggensyms		+gvals		+gbody		+g	in-order?	V�gnames	V�ggensyms	V�gvals	V�gbody	V�gnames	��ggensyms	��gvals	��gbody	��gexp	��gbody	��gwinder	8gbody	8gunwinder	8gfluids	Uzgvals	Uzgbody	Uzgfluid	��gfluid	��gexp	��gtag	�gbody	�ghandler	�gtag	!Dgargs	!Dgtail	!DCgfilenameflanguage/tree-il.scm�
�
��	�	��		��	�	��	.	��	/	��	6	'��	?	��	I�	��	f	��	g	��	n	#��	u	A��	~	����	���		����	���	����	���	���	%���	����	��	�� 	��&	��-	��6�	��\	��b	��d	��j	��q	��r	/��{	����	���	����	���	���	���	����	���	���	���	����	��!	��"		��"	��"		��#		��,�	��v&	��&	*���&	���'	���&	���(	���(	*���(	$���(	G���&	����	���+	����	���.	���.	���.	����	��1	��1	��!1	8��*1	��3�	��f4	��h4	��n4	��s5	��|5	$���4	����	���8	���8	���8	8���8	����	���;	���;	���;	*���;	���	��>	�� >	��'>	*��.?	��7>	��@�	��]B	��^B	��gB	-��pC	��yB	����	���F	���F	���F	����	���I	���I	���I	(���I	����	���L	���L	���L	&���L	>��L	���	��)O	��*O	��1O	%��:P	��CO	��H�	��}	Lgnamegunparse-tree-il�C�R�h0�-.,3##45C�ge
		*genv		*gopts			*gfilenameflanguage/tree-il.scm�
R
��	R	6��	S	
��	!S	��	)S	
��	*S	��		*	gnamegtree-il->scheme�C�R�28@GMRSXY]^_`defjkpqy{|}��������������������������������:h`'	]"("�$
L6�&45L4L4L556&45L4L4L556&45L4L4L556&4	5L4L4L556
&?45454
5L4L4L4L4L55556&+4545L4L�4L556&45L4L4L556&/454L5L$
4L5"6&`454545L$"4L4L4L4L5555"4L4L4L5556&/4545L4L4L4L5556&/4545L4L4L4L5556&/4 54!5L4L4L4L5556"&/4#54$5L4L4L4L5556%&?4&54'54(5L4L4L4L4L55556)&?4*54+54,5L4L4L4L4L55556-&4.5L4L4L556/&/405415L4L4L4L55562&?435445455L4L4L4L4L555566&?475485495L4L4L4L4L55556L6	gtree
	]gresult	]grtd		!]gexp		2	Jgexp		Y	qgexp	��gexp	��gtest	�g
consequent	�g	alternate	�gproc	9gargs	9gexps	H`gbody	o�gresult	z�ginits	��gbody	��g	alternate	��gvals	6gbody	6gvals	Lmgbody	Lmgvals	��gbody	��gexp	��gbody	��gbody	�"gwinder	�"gunwinder	�"gfluids	?igvals	?igbody	?igfluid	x�gfluid	��gexp	��gtag	�gbody	�ghandler	�gtag	+Ugargs	+Ugtail	+U)gfilenameflanguage/tree-il.scm�
`	��	b	��		b	��	b	��	b	��	c	��	!d	��	9f	��	>f	��	Hf	��	Jf	��	Rd	��	`h	��	eh	��	oh	��	qh	��	yd	���j	���j	���j	���j	���d	���l	���l	���l	���l	���d	���n	���o	���p	 ���p	+��p	 ��o	��n	��n	��d	��%r	��,r	��-r	+��7r	��9r	��Ad	��Ot	��Tt	��^t	��`t	��hd	��rv	��zv	���x	���y	���w	
���d	���|	���}	���~	���~	)���~	5���~	)���~	���}	���	���	#���	/���	#���	���|	��d	���	��#�	��(�	 ��2�	��4�	��6�	��>d	��U�	��Z�	��_�	 ��i�	��k�	��m�	��ud	����	����	����	 ����	����	����	���d	����	����	����	)����	����	����	���d	���	���	��
�	 ���	+���	 ���	�� �	��"�	��*d	��J�	��O�	��T�	 ��Y�	-��c�	 ��e�	��g�	��i�	��qd	���	����	 ����	����	���d	����	����	����	*����	����	����	���d	����	����	����	$����	*���	$��
�	���	���	��d	��6�	��;�	��@�	*��E�	4��O�	*��Q�	��S�	��U�	��]�	���	]	gnamegloop�Ch |]
OQ6tgleaf
		 gdown		 gup			 gseed			 gtree			 gloop		
	 gfilenameflanguage/tree-il.scm�
X
��	
`	��		 	gnamegtree-il-fold�g
documentationf�Traverse TREE, calling LEAF on each leaf encountered, DOWN upon descent
into a sub-tree, and UP when leaving a sub-tree.  Each of these procedures is
invoked as `(PROC TREE SEED)', where TREE is the sub-tree or leaf considered
and SEED is the current result, intially seeded with SEED.

This is an implementation of `foldts' as described by Andy Wingo in
``Applications of fold to XML transformation''.�C�R4������

 "$'&)+-502487:=<A@DCFHJNLMRQUTW[YZ^]`9hB]������	
�
�����45������������������� ���!���"	##���$%���	#����#��&'���#��('���#��)'���#��*��#��+#��,��-��./���'���#��01��21����34��#��5��64�� ���7��8���C:gdummy
	gseed			CPQh(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgseedg...C5�R`dec�Y]^_2867@GDEFMRQSXWkpqy{|fj}�����������������������������������Eh��]!�&Z45454454L5>"G4454L5>"G"Y&�45454	54454L5>"G4454L5>"G44	54L5>"G"�
&R454>"G4
>"G4454L5>"G"u&d454>"G4>"G4>"G4454L5>"G"	&@454>"G4454L5>"G"�&@454>"G4454L5>"G"y&845$"4454L5>"G""9&y454545H4LJ5K4454L5>"G$"4454L5>"G""�&04 544 54L5>"G"�!&l4"54#54$>"G44"54L5>"G44#54L5>"G"%&l4&54'54(>"G44&54L5>"G44'54L5>"G"�)&l4*54+54,>"G44*54L5>"G44+54L5>"G"$-&X4.54/544.54L5>"G44/54L5>"G"�0&�41542543544154L5>"G44254L5>"G44354L5>"G":4&�45546547544554L5>"G44654L5>"G44754L5>"G"�8&.49544954L5>"G"v:&X4;54<544;54L5>"G44<54L5>"G"=&�4>54?54@544>54L5>"G44?54L5>"G44@54L5>"G"�A&�4B54C54D544B54L5>"G44C54L5>"G44D54L5>"G"4L5$CC�gx
	�grtd	�gproc			egargs			egtest	��g
consequent	��g	alternate	��gexp	Igexp	\�gexp	��gexp	Egbody	X�ginits	�gbody	�g	alternate	�gexps	>gvals	X�gbody	X�gvals	�&gbody	�&gvals	@�gbody	@�gexp	��gbody	��gbody	�gwinder	�gunwinder	�gfluids	�gvals	�gbody	�gfluid	%Hgfluid	b�gexp	b�gtag	�2gbody	�2ghandler	�2gtag	S�gargs	S�gtail	S�gt��(gfilenameflanguage/tree-il.scm�
�	��	�	��	"�	��	,�	"��	7�	��	@�	��	J�	"��	W�	��	q�	����	����	"����	����	����	(����	����	����	'����	����	��)�	��3�	!��>�	��U�	���	���	 ���	����	���	���	"���	��	�	��%	��/	%��:	��Q�	��`		��a
	��k
	!��v
	����	���
	���
	���	���	"���	���	���	���	+���	���	��	��&	��3	��J�	��o	��y	���	���	���	���	����	���	���	���	��	��
	��	��2�	��W	��a	��n	��w	���	���	����	���"	���"	 ���"	���#	���#	!���#	���	��"&	��,&	��7&	��@'	��J'	 ��U'	��^(	��h(	"��s(	����	���+	���+	���+	���,	���,	���,	���-	���-	��-	���	��(0	��20	��=0	��T�	��g3	��q3	��|3	���4	���4	���4	����	���7	���7	���7	���8	���8	��8	��9	��9	 ��!9	��>�	��Z<	��d<	��o<	��x=	���=	���=	���>	���>	���>	���B	���B	���	�gnameglp�Ch�]
OQ6�gf
		gx		glp			gfilenameflanguage/tree-il.scm�
�
��	�	��			gnamegpost-order!�C�R`dec�Y]^_28@GMRSXkpqy{|fj}��������������������������������;h0�])4L5$"�&Z45454454L5>"G4454L5>"G"�&�45454	54454L5>"G4454L5>"G44	54L5>"G"
&.454454L5>"G"�&.4
544
54L5>"G"�&.454454L5>"G"y&.454454L5>"G"C&845$"4454L5>"G""&y454545H4LJ5K4454L5>"G$"4454L5>"G""�&0454454L5>"G"J&Z45454454L5>"G4454L5>"G"�&Z45454454L5>"G4454L5>"G"� &Z4!54"544!54L5>"G44"54L5>"G"$#&X4$54%544$54L5>"G44%54L5>"G"�&&�4'54(54)544'54L5>"G44(54L5>"G44)54L5>"G":*&�4+54,54-544+54L5>"G44,54L5>"G44-54L5>"G"�.&.4/544/54L5>"G"v0&X41542544154L5>"G44254L5>"G"3&�44545546544454L5>"G44554L5>"G44654L5>"G"�7&�4854954:544854L5>"G44954L5>"G44:54L5>"G"C�gx
	0gt			gx	0grtd		!-gproc		9�gargs		9�gtest	�g
consequent	�g	alternate	�gexp	Agexp	Twgexp	��gexp	��gbody	�#ginits	D�gbody	D�g	alternate	D�gexps	��gvals	�>gbody	�>gvals	X�gbody	X�gvals	�gbody	�gexp	bgbody	bgbody	��gwinder	��gunwinder	��gfluids	
zgvals	
zgbody	
zgfluid	��gfluid	�gexp	�gtag	1�gbody	1�ghandler	1�gtag	�&gargs	�&gtail	�&)gfilenameflanguage/tree-il.scm�
E	��	F	��		F	
��	F	��	!G	��	>I		��	HI	$��	SI		��	\J		��	fJ	$��	sJ		���G	���M		���M	$���M		���N		���N	*���N		���O		���O	)���O		��G	��!R		��+R	#��6R		��MG	��WU		��aU	"��lU		���G	���X		���X	$���X		���G	���[		���[	'���[		���G	���^		���_	
��	_	#��_	
��/G	��Kb	��Ub		��Vc		��`c	$��kc		��yd		��zd	���d	7���d	���G	���g		���g	!���g		���G	���j		��j	��j		��k		��%k	��0k		��JG	��]n		��gn	��tn		��}o		���o	���o		���G	���r		���r	���r		���s		���s	���s		��G	��!v		��+v	"��6v		��?w		��Iw	#��Tw		��nG	���z		���z	 ���z		���{		���{	"���{		���|		���|	$���|		���G	��		��	!��+		��4�		��>�	��K�		��T�		��^�	��i�		���G	����		����	 ����		���G	����		����	 ����		����		����	���		��G	��8�		��B�	��M�		��V�		��`�	��k�		��t�		��~�	"����		���G	����		����	����		����		����	����		���		��
�	���		���	0gnameglp�Ch�]
OQ6�gf
		gx		glp			gfilenameflanguage/tree-il.scm�
D
��	E	��			gnameg
pre-order!�C�Rdefh�]444555	�C�gx
		gfilenameflanguage/tree-il.scm�
�
��	�	��	�	��		�	$��	�	��	�	��	�	��		gnamegstruct-nfields�CgR�gh��]�$T�$K��&?"-
�$C4��5$	�"���C45�"���CC�$$�$4��5$
��6CC�C�ga
	�gb	�gn			Kgt		"	Kgfilenameflanguage/tree-il.scm�
�
��	�	��		�	��	�		��	�	��	�	��	�	 ��	�	��	�		��	!�	��	"�	��	.�	��	5�	��	:�	0��	<�	��	@�	��	C�	��	I�	��	K�		��	L�	��	S�	��	Y�		��	`�	��	d�	��	g�		��	k�	��	l�		��	q�	��	t�	��	v�		��	z�	��	�	����	����		����	��$	�	gnameg	tree-il=?�C�R4�h�4iijh[]6Sgvar
		gfilenameflanguage/tree-il.scm�	�	��		Cklh[]6Sgvar
		gfilenameflanguage/tree-il.scm�	�	��		CPQh(h]	4?$@6`gx
		#gtmp		#gfilenameflanguage/tree-il.scm�
�	��		#C55hRgmln oh0�]:"t454�5
�$C";�$/�4L��5	����	5���"���C4	�5"���"�45
�$C�4L��5	����	5����4L��5	����	5����4L��5	����	5���C�$"����$"��V6�gexp
	0gdepth	0gs			zglen			zgh			zgi		*	egh		*	egh1		C	Zgl		~
gh	�
gh1	��gl	�
gh	�
gh1	��gl	�
gh	�
gh1	�
gfilenameflanguage/tree-il.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�	
��	*�	��	/�	��	3�	��	6�	��	7�	$��	>�	.��	A�	?��	C�	$��	C�	��	K�	��	L�	��	Q�	��	R�	��	T�	2��	U�	��	V�	��	W�	��	b�	��	e�	��	f�	��	m�	��	p�	��	z�	��	~�	��	�	����	����	����	����	����	
����	����	����	'����	/����	����	����	����	����	����	����	2����	����	����	����	����	����	����	'����	/����	����	����	����	����	����	����	2����	����	����	����	����	����	����	'����	/����	����	����	����	���	���	���	2���	���	��	�	��
�	���	���	���	�� �	��(�	��0�	
��[	0	gnameghash-exp�Ch�]	OQ
6�gexp
		ghash-exp	
	gfilenameflanguage/tree-il.scm�
�
��	�	��		gnamegtree-il-hash�C�RCgm
		,gfilenameflanguage/tree-il.scm�		
���	B
���	n
��e��
��r��
�����
�����
����R
����X
��֢�
����D
����
���-�
���6�	����
��	�
C6language/glil/compile-assembly.go000064400000120523150536206120013055 0ustar00GOOF----LE-8-2.0;�]L4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gglil�	gcompile-assembly�		�	
gfilenameS�	f"language/glil/compile-assembly.scm�	gimportsS�	
gsystem�	gbase�	gsyntax�	
�	�	gpmatch�	
�	�	�	�	gassembly�	�	�	gvm�	ginstruction�	
�	�	gprogram�	
�	 gselectS�	!gmake-binding�	"!�	# "�	$gice-9�	%greceive�	&$%�	'&�	(gvlist�	)$(�	*)�	+gsrfi�	,gsrfi-1�	-+,�	.gfold�	/.�	0- /�	1grnrs�	2gbytevectors�	312�	43�	5#'*04
�	6gexportsS�	7�	8gset-current-module�	98�	:8�	;g	vlist-ref�	<gvlist-length�	=gvhash-fold-right2�	>gfold2�	?g
vector-length�	@gvector-fold2�	Agmake-record-type�	Bf<variable-cache-cell>�	Cgkey�	DC�	Eg<variable-cache-cell>�	Fgmake-variable-cache-cell�	Ggrecord-predicate�	Hgvariable-cache-cell?�	Igmake-procedure-with-setter�	Jgrecord-accessor�	Kgrecord-modifier�	Lgvariable-cache-cell-key�	Mgreverse!�	Ngassq-ref�	Ogfilename�	Pgline�	Qgcolumn�	Rglimn-sources�	Sgappend�	TS�	US�	Vgdump-object�	Wgreturn�	XW�	YX�	Zgload-program�	[gaddr+�	\g	make-meta�	]gobject->assembly�	^g
immediate?�	_g	last-pair�	`gscheme-list?�	agvhash-assoc�	bgnumber?�	cgstring?�	dgkeyword?�	eg
vhash-cons�	fgarray?�	ggerror�	hf)build-constant-store: unrecognized object�	igarray-shape�	jgvector->list�	kg<glil-program>�	lgglil-program-body�	mgglil-program-meta�	ng<glil-const>�	ogglil-const-obj�	pg<glil-kw-prelude>�	qgglil-kw-prelude-kw�	rg<glil-toplevel>�	sgglil-toplevel-name�	tgglil-toplevel-op�	ug
<glil-module>�	vgglil-module-mod�	wgglil-module-name�	xgglil-module-public?�	ygglil-module-op�	zg
vlist-null�	{gbuild-constant-store�	|funhandled record�	}gbuild-object-table�	~gmake-open-binding�	gmake-closed-binding��gmap��funknown binding type��gopen-binding��fbroken bindings��g
close-binding��gcdr��gstable-sort��greverse��gclose-all-bindings��g
open-arity��fbad arities��gclose-arity��gbegin-arity��gcompile-program��gbyte-length��gvlist-null?��gdump-constants��g
align-program��g	tail-call���
�����g	make-list��gnop�����gglil->assembly����g
make-false��������g
object-ref��glong-object-ref��fvcache cell key not in table��g
glil-program?��gcompile-objtable��funrecognized constant�����gvector��g<glil-std-prelude>��gglil-std-prelude-nreq��gglil-std-prelude-nlocs��gglil-std-prelude-else-label��gbr-if-nargs-ne��gassert-nargs-ee��greserve-locals��gassert-nargs-ee/locals��g<glil-opt-prelude>��gglil-opt-prelude-nreq��gglil-opt-prelude-nopt��gglil-opt-prelude-rest��gglil-opt-prelude-nlocs��gglil-opt-prelude-else-label��gbr-if-nargs-lt��gassert-nargs-ge��gbind-optionals��g	push-rest��gbr-if-nargs-gt��gglil-kw-prelude-nreq��gglil-kw-prelude-nopt��gglil-kw-prelude-rest��g!glil-kw-prelude-allow-other-keys?��gglil-kw-prelude-nlocs��gglil-kw-prelude-else-label��gand=>��fkw not in objtable��gmax��g1+��gbind-optionals/shuffle��gbind-optionals/shuffle-or-br��gbind-kwargs��g	bind-rest��g<glil-bind>��gglil-bind-vars��g<glil-mv-bind>��gglil-mv-bind-vars��gglil-mv-bind-rest��ginteger?��gtruncate-values��glength��g
<glil-unbind>��g
<glil-source>��gglil-source-props��g<glil-void>��gvoid��������fconst not in table��g<glil-lexical>��gglil-lexical-local?��gglil-lexical-boxed?��gglil-lexical-op��gglil-lexical-index��gref��glocal-boxed-ref��g	local-ref��gset��glocal-boxed-set��g	local-set��gbox��g	empty-box��gfix��gfix-closure��gbound?��gvariable-bound?��������glocal-bound?��fwhat��glong-local-ref��gvariable-ref��������gvariable-set��������glong-local-set��g
make-variable�����glong-local-bound?��gfree-boxed-ref��gfree-ref��gfree-boxed-set��fwhat.��gtoplevel-ref��gtoplevel-set��glong-toplevel-ref��glong-toplevel-set��ftoplevel name not in objtable��glink-now���gdefine���funknown toplevel var kind�fmodule vcache not in objtable�funknown module var kind�g<glil-label>�gglil-label-label�	galign-block�
g
<glil-branch>�gglil-branch-inst�gglil-branch-label�
g<glil-call>�gglil-call-inst�gglil-call-nargs�ginstruction?�fUnknown instruction:�ginstruction-pops�ginstruction-length�f,Unknown length for variable-arg instruction:�f/Wrong number of stack arguments to instruction:�g<glil-mv-call>�gglil-mv-call-nargs�gglil-mv-call-ra�gmv-call�g
<glil-prompt>�gglil-prompt-label�gglil-prompt-escape-only?�gprompt�gload-number�gnumber->string� gstring-bytes-per-char�!gload-string�"g
align-code�#gload-wide-string�$fbad string bytes per char�%gsymbol->string�&gload-symbol�'gmake-symbol�('�)(�*gkeyword->symbol�+gmake-keyword�,+�-,�.g
string-append�/flist�0f	 too long�1glist�2gcons�32�43�5g
array-type�6g
load-array�7guniform-array->bytevector�8garray-contents�9g
make-array�:f dump-object: unrecognized object�;fvector�<f write-table: unrecognized object�=gdup�>=�?g
vector-set�@?�A@�B��C�
�DBC�ED�F�
�Gg	new-frame�HG�Igcall�JI�KCJ�C5h�A]4	
56754:>"G;hH6]
�$D4L�54L��>G�"���.gi
		Ggs0		Ggs1			Ggpair			.gs0		/	Ggs1		/	Ggfilenamef"language/glil/compile-assembly.scm�
	$	��		%	��	
	%	��		&	��		'	%��		'	6��		'	%��		'	��		(	��	"	(	!��	%	(	,��	.	(	��	2	'	��	9	)	��	G	)	
��		G	gnameglp�C<h(�]OQ456�gproc
		$gvhash		$gs0			$gs1			$glp			$gfilenamef"language/glil/compile-assembly.scm�
	#
��		$	��		$	��	$	$	��		$	gnamegvhash-fold-right2�C=Rh8�](D4L�>G�"����gls
		6gs0		6gs1			6gs0			6gs1			6gfilenamef"language/glil/compile-assembly.scm�
	,	��		-	��		.	��		/	��		/	��		/	��	!	/	��	(	0	��	6	0	
��
		6	gnameglp�Ch �]OQ6�gproc
		gls		gs0			gs1			glp			gfilenamef"language/glil/compile-assembly.scm�
	+
��		,	��			gnamegfold2�C>R?h@�]L�$*4LL�>G�"���D�gi
		;gs0		;gs1			;gs0			5gs1			5gfilenamef"language/glil/compile-assembly.scm�
	4	��		5	
��		5	��		6	��		6	!��		6	��	 	6	
��	'	7	��	5	7	��	;	8	
��		;	gnameglp�Ch0�]45OQ
6�gproc
		*gvect		*gs0			*gs1			*glen				*glp			*gfilenamef"language/glil/compile-assembly.scm�
	2
��		3	
��			3	��		4	��		*	gnamegvector-fold2�C@R4AiBD5EREh�-13�C�gkey
			gdefrec-4ed7d27bcd936f9-49d			gfilenamef"language/glil/compile-assembly.scm�
	@
��			
gnamegmake-variable-cache-cell�CFR4GiEi5HR4Ii4JiEiC54KiEiC55LRMNOPQh�C]9"�(6��4��54��54��5�$E("�����$����"����"��y������"��Y"��K;gsources
	�gin	�gout		�gfilename		�gaddr		7�gnew-filename		7�gline		7�gcolumn		7�gfilenamef"language/glil/compile-assembly.scm�
	B
��		C	��		D	��		E	��		F	��		G	��		G	&��		G	1��	!	G	��	"	H	��	'	H	��	*	H	(��	,	H	��	-	I	��	2	I	 ��	5	I	*��	7	I	��	7	F	��	D	K	��	H	J	
��	N	Q	��	O	Q	��	V	Q	)��	\	Q	4��	]	Q	!��	^	Q	��	b	J	
��	e	R	��	l	S	��	|	R	��		W	���	W	���	L	���	M	���	L	���	C	���	C	���	C	��'	�gnameglimn-sources�CRRUVYZ[h0]44���
554
5����Cgbindings
		/gsources		/garities			/gtail			/gbody			/gfilenamef"language/glil/compile-assembly.scm�
	\
��		]	��		]	��		]	��		]	��		]	��		]	��		_	��	 	`	��	(	_	��		/	gnameg	make-meta�C\R]h�]6{gx
		gfilenamef"language/glil/compile-assembly.scm�
	f
��		g	��		gnameg
immediate?�C^R_h0�]	�$!&C45�$��CCC�gx
		,gp		*gfilenamef"language/glil/compile-assembly.scm�
	k
��		l	��			l	��		m	��		m	��		m	��		n	��		n	��		o	��	"	o	
��	%	p	��	&	p	��	'	p	��		,gnamegscheme-list?�C`Ra^bcde<HL.h�]L6zgx
		
gstore		
gfilenamef"language/glil/compile-assembly.scm�
�	��	
�	��		
	Cfghi?h�]L6zgx
		
gstore		
gfilenamef"language/glil/compile-assembly.scm�
�	��	
�	��		
	Cjh`r]
45$C45$C45$"#45$"�$"45$45�645$ 4L4	5545�6�$"4
LO545�6�$$4L4L�5�545�6"#45$45�6
6�$F45
45��$'4
LO45545�6"���"���jgstore
	^gx	^gstore	��gstore	��gstore	��gstore	DVgfilenamef"language/glil/compile-assembly.scm�
	z	��		~	��		}	��	�	��		}	��	!�	
��	+�	��	,�	
��	1�	
��	;�	��	<�	
��	C�	
��	G�	��	H�	
��	M�	
��	W	}	��	\	|	��	c	|	��	g	|	��	h�	��	r	}	��	s�	��	x�	&����	����	���	|	���	|	���	|	����	���	}	����	����	���	|	���	|	���	|	����	���	}	����	����	!����	5����	!����	!����	����	���	|	���	|	���	|	����	���	}	���	|	��	|	��	|	��	�	
��
�	��
	}	���	��	}	���	���	5��$�	1��'�	)��*�	#��+�	��/�	��0�	��<�	��D�	��D�	��K	|	��R	|	��V	|	��H	^	gnamegadd-to-store�Cklm.nopqrstuvwxyFh��]"�&%454>"GL6&45L6&45L6	&#4
54>"GL6&A4
545454>"GL456C�gx
	�gstore	�grtd		�gbody			4gobj		C	Mgkw		\	fgname		u�gmod	��gname	��gpublic?	��
gfilenamef"language/glil/compile-assembly.scm�
�	��	�	��	4�	��	<�	��	M�	��	U�	��	f�	��	n�	����	����	����	����	/����	����	��	�	gnamegwalk�Czh(�]OQOQ6�gx
		'gadd-to-store	
	'gwalk			'gfilenamef"language/glil/compile-assembly.scm�
	y
��	�	��		'gnamegbuild-constant-store�C{Rklm.kmlae<no^pqrstFuvwxyhx�]*�&D4>"G4>"G45$C45�6&7454	5$C45$C45�6
&)4545$C45�6&D4
54>"G4545$C45�6&]4545454>"G4545$C45�6C�gx
	wgtable	wgrtd		wgobj		b�gkw	��gname	�gx	�gmod	,tgname	,tgpublic?	,tgx	Rtgfilenamef"language/glil/compile-assembly.scm�
�	��	�	
��	4�	��	@�	��	H�	��	O�	��	S�	��	[�	
��	e�	��	o�	��	s�	��	�	����	����	����	����	
����	����	����	����	����	����	
����	����	����	����	���	���	���	���	
��E�	��P�	5��R�	��R�	��U�	��a�	��i�	��p�	��t�	��(	w	Czg|	h@�]�&%454>"G66�gx
		<grtd		<gbody			4gfilenamef"language/glil/compile-assembly.scm�
�
��	�	��	4�	��	8�	��		<gnamegbuild-object-table�C}Rh�]C�gname
		gboxed?		gindex			gfilenamef"language/glil/compile-assembly.scm�
�
��	�	��			gnamegmake-open-binding�C~R!h�]������6�gopen-binding
		gstart		gend			gfilenamef"language/glil/compile-assembly.scm�
�
��	�	��	
�	#��	�	��	�	��			gnamegmake-closed-binding�CR�~g�hh]1�$T���$;���$"��(
66666gv
		egvx		]gvy			]gvx		 	Ugvy		 	Ugvx		1	Mgvy		1	Mgfilenamef"language/glil/compile-assembly.scm�
�	��	�	
��	E�	��	I�	��	M�	��	Q�	��	U�	��	Y�	��	]�	��	a�	��	e�	��		eCh�]45�����C�gbindings
		gvars		gstart			gfilenamef"language/glil/compile-assembly.scm�
�
��	�	
��	�	��	�	
��	�	��	�	��	�	��			gnamegopen-binding�C�R.h�]L4LL5��C�go
		gtail		gfilenamef"language/glil/compile-assembly.scm�
�	��	�	 ��	�	��			Cg�hhH]2�$R���$9���$ ��4O5�C666@gbindings
		cgend		cgvx			[gvy			[gvx		 	Sgvy		 	Sgvx		1	Kgvy		1	Kgfilenamef"language/glil/compile-assembly.scm�
�
��	�	��	8�	��	J�	��	O�	��	S�	
��	W�	��	[�	
��	_�	��	c�	
��		c	gnameg
close-binding�C�R����h�]���C�gx
		
gy		
gfilenamef"language/glil/compile-assembly.scm�
	��		)��		1��			&��		
	C��h0�]�(44�556456�gbindings
		-gend		-gfilenamef"language/glil/compile-assembly.scm�
�
��	�	
��		�	��		��		��		!��		��		��		��	!	��	-	��		-	gnamegclose-all-bindings�C�Rh`4]$">$")$
"$"�C,gaddr
		[gnreq		[gnopt			[grest			[gkw			[garities			[gfilenamef"language/glil/compile-assembly.scm�

��	
	��		��	
	��	*	
��	4
	��	=
	
��	G
	��	N	
��	W	
��	Z		��		[	gnameg
open-arity�C�Rg�hH]"(C�$/���$�����C66gaddr
		Hgarities		Hgvx			@gvy			@gvx		(	8gvy		(	8gfilenamef"language/glil/compile-assembly.scm�

��		��			��	
	��	3	��	<	��	@	
��	D	��	H	
��
		H	gnamegclose-arity�C�R��h �]456�gend
		gstart		gnreq			gnopt			grest			gkw			garities			gfilenamef"language/glil/compile-assembly.scm�

��		&��		��			gnamegbegin-arity�C�R{�����Z[U�hxs])45454>"G45$C4>G4545	�4	4	
55����Ckgglil
		xg
all-constants			xgprog			xg	tablecode		A	xgaddr		A	xgprog		Q	xgfilenamef"language/glil/compile-assembly.scm�

��		��			��		��		��		��	)%	��	3$	��	7+	 ��	D+	��	I,	��	Q,	��	U.	
��	W/	��	b/	��	c.	
��		xgnamegcompile-assembly�CRkml.S�RM��\ZU���[h�o]?(�45454455454455
	4	L5$		��	�"

	

�4
$
4
5"5����C4
�L>G
	��	
45"��ggbody
	�gcode	�gbindings		�gsource-alist		�glabel-alist		�garities		�gaddr		�gcode		<�gbindings		<�gsources			<�glabels	
	<�garities		<�gmeta		S�gmeta-pad	
	k�gsubcode	��gbindings	��gsource-alist		��glabel-alist	
��garities	��gfilenamef"language/glil/compile-assembly.scm�
<	��	>	��		@	��	@	"��	@	��	A	��	B	��	B	&��	'B	��	(C	��	/D	��	2D	!��	<D	��	<@		��	GF	��	SF	��	[G	��	bG	2��	cG	-��	fG	%��	kF	��	oH	
��	vI	��	yH	
���L	���M	"���M	6���M	"���N	"���H	
���Q	
���Q	���Q	
���P		���T	���T	���V	���T	��'	�	gnameglp�C�g|hP1]"�&24545OQ
66)gglil
		Ig	constants		Igrtd			Igmeta			Agbody			Aglp		+	Agfilenamef"language/glil/compile-assembly.scm�
9
��	:	��	+<	��	9<	 ��	;<	/��	<<	D��	==	��	>=	)��	A<	��	E:	��		I	gnamegcompile-program�C�R��=a��HLg��}���U[�hH�]44L5$U��$		"!"��		"G��D45$s445L5$U��$		"!"��		"G��D645$L4	54
54L>G45	4
	5�4	5D6�gobj
	Egidx	Egcodes		Egaddr		Egt		Egidx			Tgload		U	hglen		U	hgt	��gidx	��gload	��glen	��gtable	�=gprog	=g	tablecode	=gaddr	=gprog		$=gfilenamef"language/glil/compile-assembly.scm�
i	��	k	��	j	
��	m	7��	m	(��	Z	��	"Z	��	$[	��	4[	��	:]	��	@^	��	F^	(��	I]	��	T]	��	Xm	��	an	��	fo	��	hn	��	ip	��	sj	
��	tr	��	wr	���r	���q	���t	9���t	*���Z	���Z	���[	���[	���]	���^	���^	(���]	���]	���t	���u	 ���v	 ���u	���w	���w	���x	���j	
���}	���}	���~	��}	���	��	���	��$�	��'�	#��2�	��3�	��=�	��A�	��E�	��:	E	C�<.S�
h`�]45$�D4O�>G45�4	��5	�D�g	constants
		`gtable		`gaddr			`gelts		+	`gaddr		+	`glen		:	`gfilenamef"language/glil/compile-assembly.scm�
X
��	a	��	
`	��	c	��	d	��	c	��	h	
��	"�	��	%�	��	*h	
��	.f	��	3�	��	:�	��	:�	��	=�	��	C�	��	I�	��	O�	0��	R�	��	Y�	��	^�	��	`�	
��		`	gnamegcompile-objtable�C�Rkmla��}��U����������[�����������p���q�����g�����������������������no]�������������������������������rtsF������uyvwx	

|�h0
Q]�&�4>"G4>"G45$;�		�$	"	�	�D45	4	5
4		>G4
4
55

D&�4
54545
	"F
$��
"��	�	�"F	�$9		 ��$%
$"���"	�	��""��|""��t4455D&@4545454545
	$��"��	
�$"	��	��
$	��	��"@$  	��	��"	��	��
4

4
4
��555445	
5D!&�4"54#54$54%54&54'54(5

	4)45*5$"4+,5$��"��4-	�4./4.*55?$
$0"1"0��	��	����$
$""�������2����
$	"
$"
�
$$3��
�
�"4
4
4
4

�
�5555445	
$	�"5D4&455465D7&k485495	4:5$ ;	$"
D;4<5	$"
465D=&4>5D?&4@5��DA&BDC&4D54E5		$	

D45

$;
��$"��D+F6G&e4H54I54J54K5
	$��$�
L�$"	$M"
N"�
O�$"	$P"
Q"z
R�$R"c
S�$S"L
T�$U
"4
V�$"	$NW�"
X"	4+Y
5"���

L�$&	$Z
[�"Z
"�
O�$&	$Z
\�"]
"�
R�$^_]
"l
S�$^]
"Q
T�$U
"8
V�$&	$Z
W�"`
"	4+Y
5
"N
L�$	$a"b"+
O�$	$c"	4+d5"	4+Y
5De&�4f54g5	L�$"O�$4)44h	55*5

$t
�$+L�$i"O�$j"
"1L�$k"O�$l"
�
�D4)4	5*5$"	4+m	5�$"��nL�$o"O�$_"Dp�$c4)4	5*5

$
"	4+m	5


�$
"
�
�q�D+r	6s&�4t54u54v54w5
		
L�$"O�$�4)44h55*5

$
"	4+x5


�$+L�$i"O�$j"
"1L�$k"O�$l"
�
�D+y6z&+4{54|5		4	5��D}&*4~545		

D�&�4�54�5	4�5$"4+�>"G4�5


�$c4�5�$	D	�$"	�	�D+�4�56
	�$D+�	6�&,4�54�5	�	

D�&64�54�5	�	$"


D+�6Igglil
	
.gbindings	
.gsource-alist		
.glabel-alist		
.g	constants		
.garities		
.gaddr		
.grtd		
.gt		<�gi			G	gtable		��gprog	
��g	tablecode	��gaddr	��gx	
��gnreq	��gnlocs		��g
else-label	
��gx	z�gnreq	��gnopt		��grest	
��gnlocs	��g
else-label	��g
bind-required	
��gbind-optionals	��g	bind-rest	��gx	��gnreq	�gnopt		�grest	
�gkw	�gallow-other-keys?	�gnlocs	
�g
else-label	�gt	<Tgkw-idx	T�g
bind-required	��gntotal	��gbind-optionals-and-shuffle	�gbind-kw	M�g	bind-rest	z�gcode	��gvars	�gvars	xgrest		xgprops	��gobj	�Ogt		�Ogx	
��gt	
Ogi	Gglocal?	s�gboxed?		s�gop	
s�gindex	s�ga	k\gb	
k\gx	��gop	�
xgname		�
xgt	
	
gx		p	~gt		�	�gi		�
gx		�
gt	


5gi	

5
ngx	
`
ngop	
�ugmod		
�ugname	

�ugpublic?	
�ugkey	
�ugt	

�
�gi	

�kgx	]kglabel	��gcode		��ginst	��glabel		��gx	
��ginst	��gnargs		��gpops	
�gkey	/�gx	CQgx	n|gx	��gnargs	��gra		��gx	
��glabel	�
&gescape-only?		�
&gx	


&_gfilenamef"language/glil/compile-assembly.scm�
�
��	�	��	4�	��	<�	��	G�	��	G�	��	O�	��	S�	��	U�	��	c�	��	i�	$��	o�	6��	r�	��	�	����	����	����	����	����	#����		����	����	&����	����	����	����	����	
����	����	#���	#���	��
�	���	$���	$���	���	
��$�	��*�	��-�	
��4�	��9�	��=�	��D�	#��E�	��I�	
��Y�	
��`�	7��c�	2��d�	%��g�	
��z�	����	����	����	����	����	����	����	����	#����	#����	����	����	$���	$���	��	�	���	���	���	���	-���	#��#�	+��'�	#��*�	��3�	��5�	��:�	&��>�	��C�	$��G�	��J�	��W�	��Y�	��^�	/��b�	%��g�	-��k�	%��p�	��y�	��~�	0����	&����	.����	&����	����	����	����	����	����	����	����	����	����	����	����	��-�	��0�	��<�	��<�	��K�	��O�	��Q�	��T�	��\�	
��^�	��d�	$��j�	$��o�	��x�	��~�	%����	%����	����	����	����	����	-����	5����	-����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	
���	���	
���	��!�	��'�	��-�	��3�	��@�	��G�	��J�	
��M�	��U	
��W	��]	��c	��i	��o	��r	��z	��z�	��}	���	&���
	&���	���	���	���	#���	���	&���	���		����	���	
���	
��	��
�	�� 		��*	��,	��4	+��=	��J		��L!	��M!	%��Y!	4��b!	��f"	��x!		����	���(	
���)	
���(	����	���/	
���1	
���/	����	���6	����	����	���:	���9	���<	���<	����	���=	��9	��?	��?	���	���	���	��+�	��1�	$��7�	6��:�	��G�	��K@	��O@	��W�	���D	���E	���E	
���F	���G	���H	���I	���F	���J	���K	���L	���F	���M	��F	��N	��F	��O	��0F	��6P	��8Q	��FS	��ST	��WT	��[T	��eU	��kV	��kU	��xW	��~Y	���Z	���\	���W	���^	���_	���a	���W	���c	���W	���g	��W	��j	��'W	��-l	��/m	��?o	��Np	��Rp	��Vp	��iq	��or	��qr	"��wr	2���q	���s	���s	"���s	2���s	9���s	2���t	���t	���t	���q	
���C	����	����	���x	���{	
���{	���{	���{	��	{	
��	z	��	~	��	~	��		"��	�	+��	,	"��	.�	+��	8	��	H�	"��	J�	+��	W�	"��	Y�	+��	d�	"��	j�	"��	m�	��	p~	��	~�	��	�	��	��	��	��	��	��	��	��	��	��	��	��	��	��	
��	��	��	��	��	��	��	��	��	��	1��	��	1��	��	��	��	��	��	��	��	#��	��	��	��	#��	��	��	��	��
�	��
x	��
�	��
�	��
�	��
�	��
*�	��
.�	��
2�	��
5�	��
=�	��
A�	��
C�	��
N�	��
T�	/��
Z�	/��
]�	��
_�	��
`�	
��
n�	��
r�	��
x�	��
��	��
��	��
��	��
��	��
��	��
��	��
��	+��
��	��
��	��
��	��
��	��
��	��
��	��
��	
��
��	���	��
�	���	(���	���	(��%�	��5�	��7�	(��D�	��F�	(��Q�	��W�	��Z�	��]�	��k�	��o�	��u�	
��}�	����	����	����	����	����	����	����	����	����	����	����	����	���		���	���		���	���	��$�	��(�	��)�	��/�	��@�	 ��C�	��Q�	��Z�	��b�	*��h�	*��k�	 ��n�	��|�	����	����	"����	����	����	����	����	����	����	����	����	����	����	����	����	��
�	��
�	��
�	��
�	��
&�	��
*�	���	
.	gnamegglil->assembly�C�R]HVLbc !"#g$%&U)d*-`�./01.S[4f5i678?9:;�+h�a	]:45$C45$
45645$45C45$>4	5�$
C	�$		6
6�$E454	5�$C	�$456
645$4455645$�45�$4
45>"G"��"7(
64�5��45"���"����$*4�544�45556"	4 5$�4!5�$Y44!5544"545544#4$54455		5564%54&5"m�$)4�5��45"���444"55'	���	�����56
"���
(6�$�4"5
4&5��$�4&5�$4
4)55"*��"<�$
64�5��45"���
"���"��B"��>Y	gx
	�gaddr	�gt			�gkey		\�gstr	��gkey	��glen	Vgtail	V�gobjects	\�gcodes	\�gaddr	\�gcode	v�gkar	��gtype	�Ggshape	Ggcontents	N�glen	W�gi	]�gcodes	]�gaddr	]�gcode	r�glen		�gtail	A�gi	G�gcodes	G�gaddr	G�gcode	f�gfilenamef"language/glil/compile-assembly.scm�
�
��	�	��		�	��	�	��	"�	��	%�	*��	/�	��	0�	��	:�	��	<�	��	=�	��	F�	��	K�	��	U�	��	V�	
��	\�	��	h�	��	z�	��	~�	����	����	����	����	����	����	����	����	����	����	
����	����	����	
����	����	����	����	����	����	����	����	����	��	�	��
�	���	���	��"�	��#�	��&�	��*�	/��,�	��.�	��3�	��A�	��G�	��M�	/��P�	��V�	��\�	��b�	��l�	��m�	��r�	%��v�	��v�	��{�	����	*����	����	����	����	,����	����	����	����	����	����	����	����	����	
����	����	����	
����	���		����	���	���	���	���	���	���	���	���		��		��			/��		��	��
	��	
��#
	��$
	��-
	��.	��1	��=	��C	
��E
	��H	��N	��Q	��W	��]	��b	��f	��g	��n	%��r	��r	��w	��|	#��}	���	���	���	���	#���	���	���	+���	!���	.���	!���	!���	���	���	���	&���	���!	���!	����	����		����	����	����	3����	/����	'����	!����		���	���	��	�	���	���	���	���	��#�	��%�	��'�	��)�	��/	��5	 ��;	4��>	��A�	��G	��L	��P	��Z	��[	��b	%��f	��f	��k	��p	#��q	���	���	���	&���	���	�	gnamegdump-object�CVRa��hpv]4L5"
L6$I��$;��$	�D��	�D"���"���ngx
		ngi		ngaddr			ngpair			ngidx		.	fgfilenamef"language/glil/compile-assembly.scm�
$	��	%	��	%	��	.	
��	&	��	$&	��	'&	��	+&	
��	.'	��	.'	
��	6(	��	:(	��	<)	��	I*	��	K)	��	M+	��	S+	,��	Y,	,��	\+	��	d-	��	f+	��		n	gnamegref-or-dump�C]�bcdV[HL`>h(�]4LL>G�D�gx
		!gcodes		!gaddr			!gsubcode			!gaddr			!gfilenamef"language/glil/compile-assembly.scm�
@	��	A	+��	A	��	B	��	!B	��		!	C.S�1U4f5i"678@h(�]4LL>G�D�gx
		!gcodes		!gaddr			!gsubcode			!gaddr			!gfilenamef"language/glil/compile-assembly.scm�
e	��	f	4��	f	��	g	&��	!g	��		!	C?9g<h(�]4LL>G�D�gx
		!gcodes		!gaddr			!gsubcode			!gaddr			!gfilenamef"language/glil/compile-assembly.scm�
R	��	S	2��	S	��	T	$��	!T	��		!	C�"h�W];45$45�D45$"#45$"�$"45$4545D45$4	5"��q4
5$N4LO>G4
45��5	�D�$C4L�>G4L�>G4455�D"45$�45�$j4L45>G4L45>G445		5445545D454LO>G4L45>G4
45	4		���		����	�5	5	�D6�$�45���$m45
45��$N4 LO>G4
45!��5	�D"��i"��e"��aOgx
	�gi	�gaddr		�gt			�gcode		b	qgcodes	��gaddr	��glen	��gcar-code	4gaddr	4gcdr-code	4gaddr	4gtype	c�gaddr	c�gshape	~�gaddr	~�gbv	��gcontents	�>gcodes	�>gaddr	�>gshape	�>gaddr	�>glen		3gcodes	��gaddr	��glen	��gfilenamef"language/glil/compile-assembly.scm�
/	��	1	��		0	��	3	��	4	��	 4	��	"3	��	#5	
��	-5	��	.5	
��	36	
��	=5	��	>6	
��	E7	
��	I5	��	J7	
��	O8	
��	Y0	��	Z:	��	b:	��	g;	��	q;	��	r<	��	|0	��	}=	
���=	���>	���0	���@	
���C	���@	
���?	���D	���E	!���E	���F	���F	!���F	5���F	���D	���H	���D	���I	���0	���J	���J	,��J	��J	��	K	!��K	.��K	!��K	�� L	��2M	��4L	
��9[	��C0	��D[	��K[	��O[	��P\	��S\	(��b\	��f\	��k]	��n]	+��}]	���]	���^	���^	 ���^	.���^	 ���^	���^	
���`	���a	���`	���c	���c	���e	���h	#���e	���d	���i	 ���i	-���i	 ���i	
���j	��k	%��k	��
l	��m	5��m	+��!n	8��"n	+��(o	+��+l	��7j	��<q	��>j	��Bs	
��Fs	��F0	��IN	��M0	��NO	��^O	��bN	��cP	��kP	5��rP	1��uP	)��xP	#��yP	��}N	��~R	
���U	���R	
���Q	���V	���W	!���W	���X	���X	#���X	7���X	���V	���Z	���V	���	�	gnamegdump1�C=>][Ah@A]454L45>G����D9gobj
		=gidx		=gcode			=gaddr			=gpre			=gvalcode		&	=gaddr		&	=gfilenamef"language/glil/compile-assembly.scm�
v	��	y	&��	z	)��	y	&��	y	��	{	5��	|	<��	%{	5��	){	��	/}	.��	6}	'��	;�	'��	=}	��		=	CE<�Z.SY�U���FHCK[h�J]9OOQQ4O	>G45�	�	�	��	�4�4	
5����5	4
45��4
5����5�45	�	�DBg	constants
	�gref-or-dump	�gdump1		�gcodes		8�gaddr		8�glen		G�g
pre-prog-addr		Y�gprog		x�gfilenamef"language/glil/compile-assembly.scm�
#
��	#v	��	0�	��	7v	��	;u	��	@�	��	G�	��	G�	��	N�	��	Y�	��	\�	��	`�	��	d�	"��	e�	��	f�	$��	l�	1��	p�	$��	q�	��	x�	��	x�	��	|�	��	~�	)����	����	����	!����	����	����	����	-����	����	����	����	��"	�gnamegdump-constants�C�RC9gm
		,gfilenamef"language/glil/compile-assembly.scm�		
���	#
��	+
���	2
���	@
���	B
��
*	\
��
�	f
���	k
���	y
��T�
��)�
�� +�
��"��
��%[�
��'I�
��(�
��*h
��+�
��-�
��3�9
��;,X
��b��
��p|�
���#
��	�
C6language/glil/spec.go000064400000003126150536206120010541 0ustar00GOOF----LE-8-2.0>]-4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gglil�	gspec�		�	
gfilenameS�	flanguage/glil/spec.scm�	gimportsS�	
gsystem�	gbase�	
�	�	�	�	gcompile-assembly�	�	�	�	gexportsS�	�	gset-current-module�	�	�	gwrite�	gunparse-glil�	g
write-glil�	gcompile-asm�	 ginvalidate-compilation-cache!�	!g
make-language�	"gnameS�	#gtitleS�	$f+Guile Lowlevel Intermediate Language (GLIL)�	%greaderS�	&gread�	'gprinterS�	(gparserS�	)g
parse-glil�	*g	compilersS�	+gassembly�	,gfor-humans?S�C5h��]4	
54>"Gh�-1345@�gexp
			gport			gfilenameflanguage/glil/spec.scm�
	
��			��			��			
gnameg
write-glil�CRh�]45D�gx
		ge		gopts			gfilenameflanguage/glil/spec.scm�
	
��			
��			��			gnamegcompile-asm�CR4 i>"G4!i"#$%&hu]6mgport
		genv		gfilenameflanguage/glil/spec.scm�
	"	��		"	#��			C'i()i*+i�,5RC�gm
		,gfilenameflanguage/glil/spec.scm�		
���	
���	
���	 
���	!	��u	%	���	 
��	�
C6language/value/spec.go000064400000001432150536206120010724 0ustar00GOOF----LE-8-2.0] 4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gvalue�	gspec�		�	
gfilenameS�	flanguage/value/spec.scm�	gimportsS�	
gsystem�	gbase�	
�	�	�	gexportsS�	�	gset-current-module�	�	�	ginvalidate-compilation-cache!�	g
make-language�	gnameS�	gtitleS�	fValues�	greaderS�	gprinterS�	gwrite�	gfor-humans?S�C5h`p]4	
54>"G4i>"G4ii5
RChgm
		,gfilenameflanguage/value/spec.scm�		
��	-	
��	K		��	\	
��		^
C6language/objcode/spec.go000064400000006512150536206120011221 0ustar00GOOF----LE-8-2.02
]D4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gobjcode�	gspec�		�	
gfilenameS�	flanguage/objcode/spec.scm�	gimportsS�	
gsystem�	gbase�	
�	�	gvm�	
�	�	gprogram�	
�	�	�	gexportsS�	�	gset-current-module�	�	�	gmake-program�	gcurrent-module�	gsave-module-excursion�	 gobjcode->value�	!gmap�	"gcdr�	#gsort!�	$gassv-ref�	%g
binding:index�	&gappend!�	'gcollapse-locals�	(gprogram?�	)gprogram-objects�	*gprogram-meta�	+gprogram-free-variables�	,gprogram-bindings�	-gprogram-sources�	.gprogram-objcode�	/gobjects�	0gmeta�	1g	free-vars�	2gblocs�	3gsources�	4gobjcode?�	5gerror�	6f/Object for disassembly not a program or objcode�	7gdecompile-value�	8ginvalidate-compilation-cache!�	9g
make-language�	:gnameS�	;gtitleS�	<fGuile Object Code�	=greaderS�	>gprinterS�	?g
write-objcode�	@g	compilersS�	Agvalue�	BgdecompilersS�	Cgfor-humans?S�C5h��]4	
54>"Gh d]4L>"G4L5LLD\gfilenameflanguage/objcode/spec.scm�
	 		��		!	��		"	��		"	��		
Ch0�]4545&45DO6�gx
		0ge		0gopts			0gthunk			0gfilenameflanguage/objcode/spec.scm�
	
��			��			��			��			��			��	#		��	0		��			0	gnamegobjcode->value�C R!"#h�]���C{gx
		
gy		
gfilenameflanguage/objcode/spec.scm�
	,	��		,	)��		,	1��			,	&��		
	C$%&h�r]!"n(456�4455$$4>"G�"���45��"���"���jglocs
		gret		tglocs			tgb			tgt		.	tgfilenameflanguage/objcode/spec.scm�
	(
��		)	��		*	��		+	��		+	��		-	��		-	��	!	/	��	&	/	��	.	/	��	.	.	
��	7	1	��	@	1	#��	E	1	��	R	2	��	Z	2	��	[	4	��	f	4	)��	i	4	��	l	5	��	t	4	��	t	)	��	u	)	��		)	��		gnamegcollapse-locals�C'R()*+,-'./0123456h��]345$t4545454545$45"45	�
$	45"���
�D45$D6�gx
	�genv	�gopts		�gobjs		0�gmeta		0�g	free-vars		0�gbinds		0�gsrcs		0�gblocs		L�	gfilenameflanguage/objcode/spec.scm�
	7
��		9	��	
	8	��		:	��		;	��		<	��	#	=	��	*	>	��	0	:	��	@	?	��	A	?	��	L	?	��	O	@	��	W	A	��	b	B	��	c	B	(��	m	A	���	@	���	F	���	8	���	G	���	I	���	I	��	�	gnamegdecompile-value�C7R48i>"G49i:;<=>?i@A i�BA7i�C5RC�gm
		,gfilenameflanguage/objcode/spec.scm�		
���	
���	(
��@	7
��A	K
��_	L	��l	O	��x	P	���	K
��
	�
C6oop/goops.go000064400000314760150536206120007032 0ustar00GOOF----LE-8-2.0ؙ]�4h�c]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	�		gfilenameS�	
f
oop/goops.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	gice-9�	gmatch�	�	�	gutil�	�	�	�	gexportsS�	gdefine-class�	gclass�	gstandard-define-class�	gdefine-generic�	gdefine-accessor�	g
define-method�	gdefine-extended-generic�	 gdefine-extended-generics�	!gmethod�	"gis-a?�	#gclass-of�	$gensure-metaclass�	%gensure-metaclass-with-supers�	&g
make-class�	'gmake-generic�	(gensure-generic�	)gmake-extended-generic�	*g
make-accessor�	+gensure-accessor�	,gadd-method!�	-gclass-slot-ref�	.gclass-slot-set!�	/gslot-unbound�	0gslot-missing�	1gslot-definition-name�	2gslot-definition-options�	3gslot-definition-allocation�	4gslot-definition-getter�	5gslot-definition-setter�	6gslot-definition-accessor�	7gslot-definition-init-value�	8gslot-definition-init-form�	9gslot-definition-init-thunk�	:gslot-definition-init-keyword�	;gslot-init-function�	<gclass-slot-definition�	=g
method-source�	>gcompute-cpl�	?gcompute-std-cpl�	@gcompute-get-n-set�	Ag
compute-slots�	Bgcompute-getter-method�	Cgcompute-setter-method�	Dgallocate-instance�	Eg
initialize�	Fg
make-instance�	Ggmake�	Hgno-next-method�	Igno-applicable-method�	Jg	no-method�	Kgchange-class�	Lg#update-instance-for-different-class�	Mg
shallow-clone�	Ng
deep-clone�	Ogclass-redefinition�	Pg
apply-generic�	Qgapply-method�	Rg
apply-methods�	Sgcompute-applicable-methods�	Tg%compute-applicable-methods�	Ugmethod-more-specific?�	Vgsort-applicable-methods�	Wgclass-subclasses�	Xg
class-methods�	Yggoops-error�	Zg
min-fixnum�	[g
max-fixnum�	\g	instance?�	]gslot-ref-using-class�	^gslot-set-using-class!�	_gslot-bound-using-class?�	`gslot-exists-using-class?�	agslot-ref�	bg	slot-set!�	cgslot-bound?�	dg
class-name�	egclass-direct-supers�	fgclass-direct-subclasses�	ggclass-direct-methods�	hgclass-direct-slots�	igclass-precedence-list�	jgclass-slots�	kggeneric-function-name�	lggeneric-function-methods�	mgmethod-generic-function�	ngmethod-specializers�	ogmethod-formals�	pgprimitive-generic-generic�	qgenable-primitive-generic!�	rgmethod-procedure�	sgaccessor-method-slot-definition�	tgslot-exists?�	ugfind-method�	vgget-keyword�	w !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstGuv_�	xgset-current-module�	yx�	zx�	{gcurrent-module�	|g*goops-module*�	}g%init-goops-builtins�	~gprocess-use-modules�	~��~��glanguage��gtree-il��g
primitives�������gselectS��gadd-interesting-primitive!�����gdispatch��������gmake-procedure��gcompute-cmethod��gerror��������fno matching pattern��gexpt��g	scm-error��gmemq��gassoc��g<class>��gdsupersS��gslotsS��gnameS��ggensym��f	metaclass��gmap��g
append-map��gfor-each��gmember��gappend��gkeyword?��fmalformed keyword arguments: ~a��g	kw-do-map��gmake-unbound��gor-map��g<object>��g	metaclassS��gfind-duplicate��f3make-class: super class ~S is duplicate in class ~S��f,make-class: slot ~S is duplicate in class ~S��gmake-syntax-transformer��������gmacro��g$sc-dispatch��������g_��gany�������g
syntax->datum��������g
datum->syntax��������fmalformed superclass list: ~S��g
take-while��g	find-tail��glist��gquote��g	init-formS��g
init-thunkS��glambda��gsyntax-violation��������f-source expression failed to match any pattern��gdefine-class-pre-definition��geach-any���nj���Ȍ���nj���ʌ��nj���̌��g
syntax-object��gbegin��gtop�����gribcage��gout��������fl-bdc1916-ed��������������gx�����fl-bdc1916-d0�����������������ghygiene�����������ggetterS��gsetterS��gkey�����gm-bdc1916-e3���������fl-bdc1916-e4�����������gk��garg��grest��������������fl-bdc1916-db��fl-bdc1916-dc��fl-bdc1916-dd��fl-bdc1916-de����������������������������������gif��������gor�������gnot�����gdefined?�����������"���g	<generic>������	gtoplevel-define!�
�	����(�������
�gaccessorS�g
<accessor>�������+���gdefine-class-pre-definitions�fl-bdc1916-f4������fl-bdc1916-f1��������������nj����nj���� gslotname�!gslotopt�" !���#f
l-bdc1916-115�$f
l-bdc1916-116�%f
l-bdc1916-117�&f
l-bdc1916-118�'#$%&�(�"�'�)�(��*�)��+��)��,gidentifier?�-gslot�.-���/����0f
l-bdc1916-10c�1f
l-bdc1916-10d�2f
l-bdc1916-10e�3012�4�./3�5�4��6�5��7fl-bdc1916-fe�8fl-bdc1916-ff�9f
l-bdc1916-100�:789�;�./:�<�;��=��<��>�Ɍ�?gdummy�@gname�Agsupers�B?@A-�Cg
m-bdc1916-121�DC��ED����Ff
l-bdc1916-126�Gf
l-bdc1916-127�Hf
l-bdc1916-128�If
l-bdc1916-129�JFGHI�K�BEJ�LD�Mf
l-bdc1916-123�NM�O��LN�P�K�O�Q��P��R�P��S��P��Tgand�U�TP��V�P��W��P��X�"P��Y��P��ZY�[��P��\��P��]�iP��^�OP��_�P��`��P��a�	P��b?��cg
m-bdc1916-132�dc��ed��ff
l-bdc1916-137�gf
l-bdc1916-138�hfg�i�beh�jd�kf
l-bdc1916-134�lk�m��jl�n�i�m�o�n��pfbad generic function name: ~S�qgdefine�r�s�tgprefixS�ug
symbol-append�vfno prefixes supplied�wg<generic-with-setter>�xgmake-setter-name�ygsetter�zg<extended-generic-with-setter>�{gextendsS�|g<extended-generic>�}gextended-by!�~gextended-by�ginvalidate-method-cache!��gdelq!��gnot-extended-by!��gprocedure-with-setter?��gdefaultS��g	procedure��g
procedure?��ggeneric-capability?������?@��g
m-bdc1916-19d����������f
l-bdc1916-1a2��f
l-bdc1916-1a3���������������f
l-bdc1916-19f������������������q����gcond�������������������������+����������"�������������G����������gelse��������gstring->symbol��g
string-append��fsetter:��gsymbol->string��gupgrade-accessor��gmethods��gextended-byS��gextends��ggeneric-function��gmodule-define!��gfree-id��g
m-bdc1916-1c5���������f
l-bdc1916-1c7�����������������y������������������nj�������gargs��gbody��?@����������f
l-bdc1916-1ca��f
l-bdc1916-1cb��f
l-bdc1916-1cc��f
l-bdc1916-1cd�������������������������������������������������������"�������������	�����+�������������,�����y�����!����������nj���،��f
l-bdc1916-1d4��f
l-bdc1916-1d5��f
l-bdc1916-1d6��f
l-bdc1916-1d7�������������������������������������������������������	�����G����������������,�����!����gfree-identifier=?���������f
l-bdc1916-26f�����������gcompute-procedures��gcompute-make-procedure��g->proper��gcompute-procedure��gfind-free-id��g
parse-args������������������f
l-bdc1916-1e9��f
l-bdc1916-1e7��f
l-bdc1916-1e5��f
l-bdc1916-1e3��f
l-bdc1916-1e1�f
l-bdc1916-1df�����������f
l-bdc1916-1de����������!������	���
		�
��Ɍ�
����greverse�glp�gls�gformals�gspecializers��f
l-bdc1916-1ed�f
l-bdc1916-1ee�f
l-bdc1916-1ef�f
l-bdc1916-1f0�����f
l-bdc1916-1ec��������������� g<top>�!gtail�"!�#f
l-bdc1916-212�$#�%�"�$�&�%���'� &��(gf�)(��*���+f
l-bdc1916-20a�,f
l-bdc1916-20b�-+,�.�)*-�/�.���0� /��1���2gnext-method�3gid�43�5f
l-bdc1916-26b�65�7�4�6�8��9f
l-bdc1916-269�:f
l-bdc1916-26a�;9:�<�8*;�=��7�<�>�=��?gformal�@?�Af
l-bdc1916-259�BA�C�@�B�D2�Ef
l-bdc1916-255�FE�G�D�F�H��If
l-bdc1916-251�JI�K�H�J�L�2�Mf
l-bdc1916-24c�Nf
l-bdc1916-24d�Of
l-bdc1916-24e�PMNO�Q�L/P�R�C�GK�Q	�S��R��Tgreal-next-method�U�TR��VU�Wglet�X�WR��Y��R��Z��R��[gnull?�\�[R��]\Y�^gapply�_�^R��`_UY�a`�bf
l-bdc1916-263�cb�d�@�c�e�ff
l-bdc1916-25e�gf�h�e�g�i��dh�GK�Q�j��i��k�Ti��lk�m�Wi��n��i��o��i��p�[i��qpn�r�^i��srkn�ts�uf
l-bdc1916-235�vu�w�e�v�xgbody0�yx�zf
l-bdc1916-231�{z�|�y�{�}f
l-bdc1916-22d�~f
l-bdc1916-22e�}~���8*����w|��������������f
l-bdc1916-287��f
l-bdc1916-288��������*���f
l-bdc1916-282��f
l-bdc1916-283��������*���gspecializer�����f
l-bdc1916-27b��f
l-bdc1916-27c��������*���gbody1���x���f
l-bdc1916-272��f
l-bdc1916-273��f
l-bdc1916-274���������/���������������G����g<method>��������gspecializersS��������gcons*��������gformalsS��������������gbodyS��������gmake-procedureS��������g	procedureS��������g	for-each*��gdirect-methods��gadd-method-in-classes!��gdelv!��gremove-method-in-classes!��gcompute-new-list-of-methods��glength*��gmethod-n-specializers��gfold��gmax��gcalculate-n-specialized��g%invalidate-method-cache!��g
n-specialized��ggf��gm����������b��������������b������������g
*unspecified*���������ginternal-add-method!��g<procedure>��gproc����������q���,���������2�����������g<primitive-generic>��gpg������p���,�������gobj������f"~S is not a valid generic function��Y����������glet*��gspec��gmap*�����a�����d�������gsrc��gprocedure-source������a����������������gcadr����������gcddr��������������gcons���!������������������W����T���������������a�������gcar��gcdr��g
allocationS��ginstanceS��g
init-valueS�ginit-keywordS�gassq�ggetters-n-setters�gslot-definition�gequal?�gg-equal?�gy���gset-primitive-generic!�	gdisplay�
gnumber->string�gobject-address�gdisplay-address�
gwrite�go�gfile��f#<instance �	��	>��gwrite-object�#����@�c�f#<�	�d�	� 	 �!� �"�!��#W"�$#�%�&gmeta�'#�(&'�)(�*c&�+T*�,d&�-	,�.�/�-  .�0�+/��1W)0�21�3��4#��5&4�65�7c���8T*7�9k��:@9�;:�<	@�=� <�>�@=�?W;>�@f (�A	@�Bglength�Cl��DBC�E	D�Ff)>�G	F�H�-?AEG�I�8H��JW6I�KJ�L&�ML�Nc��OT*N�P��Qc��Ra��S�QR��T�PS�Un�V�TU�W	V�X�- W �Y�OX��ZWMY�[Z�\�]\�^gmerge-generics�_g<module>�`g<symbol>�agmodule�bgint1�cgval1�dgint2�egval2�fgvar�ggval�ha@bcdefg�ig	<boolean>�jgeq?�kjce�lk�mg
make-variable�n�ec�o)n@�pmo�qTlp�rq�sa@bcdef��t���ua�t�v�eu�wv�x�eu�y�ex�zb�ty�{�~�|ae{�}��|�~��}�be{~���z�f��Tw������gduplicate-handlers��gmerge-accessors��^a@bcdefg	�����gslots��gclassS��g
each-subclassS������gclass-slot-g-n-s��gunbound?��gc��gs������f!Slot `~S' is unbound in object ~S��Y�����������f Slot `~S' is unbound in class ~S��Y����������fUnbound slot in object ~S��Y������f#No slot with name `~S' in object ~S��Y�������f(No class slot with name `~S' in class ~S��Y��������gvalue�������0�����������f0No next method when calling ~S
with arguments ~S��Y��������f&No applicable method for ~S in call ~S���9���Y��������fNo method defined for ~S��Y�������gself�����gclone��g%allocate-instance��#���������������j����1�����������-��c�-��a�-��b�-������������������W���������������\���N���������W����b�-������������������W��������gold��gnew������gremove-class-accessors!������g����������gupdate-direct-method!����������������������g��������b�����W�����gset-car!��gcpl������a������������gdirect-subclasses������f��������b����������e������������������b����������e��������g
%modify-class�������gupdate-direct-subclass!�������������f��������g	redefined������b����g%invalidate-class������������
�g<accessor-method>�"��a������gdelq1!�	a���
�	�b��
����
W���
����g���������gloop�gl�n����gpair?��geqv?���������� ��! �"�!�#�"�$W#�%$�&����'e��(h��)d��*#��+&'(�)�*�,O�+�-,�.gcompute-slot-accessors�/gg-n-s�0/�1g
init-thunk�2�/�312�4�/�5/4�635�7��8/�9gmake-generic-bound-check-getter�:�/�;9:�<8;�=gstandard-get�>=/�?1>�@gbound-check-get�A@/�B�A�C�<?B�Dgslot-definitionS�EG�7�CD/�FW6E�GF�H� �Igstandard-set�JI/�K�82J�LG�H�KD/�MW6L�NM�Ogassert-bound�Pgnum-standard-pre-cache�Qgdefine-standard-accessor-method�Rgcache�Sgvector�Tg
struct-ref�Ugstruct-set!�Vgiota�Wgn�XW�Yg<�Zg
vector-ref�[ZRW�\gnfields�]ginteger?�^f-Bad getter and setter for slot `~S' in ~S: ~S�_f*Bad getter closure for slot `~S' in ~S: ~S�`f*Bad setter closure for slot `~S' in ~S: ~S�af/Class-allocated slots should not reserve fields�bgthunk?�cf&Bad init-thunk for slot `~S' in ~S: ~S�dgcompute-getters-n-setters�e�f?e�gf�hgfilter�ig
only-non-null�jgmerge-lists�kgevery�lgreverse!�mf*merge-lists: Inconsistent precedence graph�ngtop-sort�ogbuild-transitive-closure�pgbuild-constraints�qgstd-tie-breaker�rgcompute-clos-cpl�sftop-sort: Invalid constraints�tfstd-tie-breaker: Nothing valid�u��vgclass-slot-init-value�wv�xgthunk�y9��zxy�{z�|x�}7��~�x|}�W{~��qw��gcase��3������galready-allocated���\��a����������g+������b����W������������1���@������h���1����@���gmake-closure-variable���w��i������������gr�����a����@�����������������!��W����W����������W���������������gvirtualS�����gget��gslot-refS��2���v��������gset��g	slot-set!S��v������������T�������f4You must supply a #:slot-ref and a #:slot-set! in ~S��Y��������������W�����������������������������fAllocation "~S" is unknown��Y�������g%compute-slots��������gobject��ginitargs������g%initialize-object�������������gdslots��v���������v�����A�������g???������v�����b���g
direct-supers������b�A��gdirect-slots������b����b����b����>��b����b���A�������������b����b�
��d���b����.���W����������a��������b������������A��g
%prep-layout!�����g%inherit-magic!���A��W������������
������ginitialize-object-procedure��g<applicable-struct>��gapplicable-struct��������������ggeneric���gprevious-definition�v����v���@��"��	^��
!�	��
����
b��gset-procedure-property!�@��@�W�
��	�ggws���g%set-object-setter!�v������geg���v{���bt���gdummy-procedure� !��!ggeneric-functionS�"v!��#b!�"�$v����%b!�$�&v���'b!�&�(v����)b!�(�*���+v����,b!*+�-���.v���/b!-.�0�#%'),/�1g%modify-instance�2gchange-object-class�3gold-instance�4gnew-instance�534�64�7g	new-class�837�9#3�:2397�;:�<���=<�>Ɍ�?ginstance�@D��A?@�BA�CE?��DWBC?�ED�F[	�GJ���H�FG�IS���J�I�KJ�LV����MR�L��NI���O��MN�PWKO�QHP�Rg%%compute-applicable-methods�ST���TS�U����Vgtargs�W�#��XVW�YX�Zgsort�[gm1�\gm2�][\�^U[\V�_�]^�`Z�_�aWY`�ba�c#�d#�e[\V�fg%method-more-specific?�gf[\V�hg�ig
build-next�j��i��k���lrk�m���nim��o^ln��po�qg<list>�r���sgletrec�tgnext�ugprocs�vu��wgnew-args�xga�y[w�z�y�w�{xz�|{�}[u�~H�x�Q�utx���}~��W|����w����v���t������Q�t���s�������gsystem-procedure��glist2set��g	mapappend��g
%goops-loaded�C5h�"]4	
w54z>"G4{i5|R4}i>"G4����>"G4�i#>"G4��>"Ga�Hmhe-134L56]gargs
			gfilenamef
oop/goops.scm�
	q	��		r	"��		r	��			


C�r��	hX]�$?��45$(O"	4566456gmethods
		Ugtypes		Ugw			Hgx			Hgmake-procedure			Hgfilenamef
oop/goops.scm�
	j
��		k	��		m	��		m	,��		m	��		m	��	$	n	��	,	p	��	8	s	��	B	o	��	H	t	��	I	k	��
		U	gnamegcompute-cmethod�C�R
4�i		5�ZR4�i		5�[R�Yh�-136�g
format-string
			gargs			gfilenamef
oop/goops.scm�
	~
��	
		
��			0��			��			
gnameggoops-error�CYR�ih �]44�55$CC�gobj
		gclass		gfilenamef
oop/goops.scm�
�
��	�	��	�	��	
�	*��	�	��	�	��	�	��			gnamegis-a?�C"RH�G������	h@�]4M5$�C4455�M�NC�gmeta-supers
		=gentry		=gnew		.	=gfilenamef
oop/goops.scm�
�	��	�	��	�	��	�	��	�	��	�	��	#�	/��	&�	.��	*�	6��	,�	.��	.�	��	.�	��	5�	)��	8�	#��	:�	��		=CO%R��hZ]�CRgx
		gfilenamef
oop/goops.scm�
�	��	�	)��		C�ihc]45�C[gm
		gfilenamef
oop/goops.scm�
�	$��	�	+��	
�	&��		C���h8�]4L5$"
4M5�$4M5NCC�gmeta
		4gfilenamef
oop/goops.scm�
�		��	�	��	�	��	�	��	�	��	"�	��	#�	 ��	,�	5��	.�	 ��	0�	
��		4C%	hP$](C4545H4O>"GJ�(J�CJ6gsupers
		Pg	all-metas		Pgall-cpls			Pgneeded-metas		"	Pgfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	�	��	"�	��	"�	��	%�	��	B�	��	F�	��	I�	��	P�	��		Pgnamegensure-metaclass�C$R�Y�hH
]	(C��$"	4�5�$L6�4L��5�Cgl
		Agt		'gfilenamef
oop/goops.scm�
�	��	�	��		�	��	
�	��	�	
��	�	��	�	��	!�	)��	#�	��	$�	��	+�	��	/�	��	3�	��	6�	��	7�	��	<�	#��	?�	��	@�	��		Agnamegkeywords�Ch �](C��4L��5�C�gl
		gfilenamef
oop/goops.scm�
�	��	�	��		�	��	
�	��	�	%��	�	+��	�	%��	�	��			gnamegargs�Ch@]#OOQQ45456�gmapper
		;gf		;gkwargs			;gkeywords			;gargs			;gk		&	;ga		/	;gfilenamef
oop/goops.scm�
�
��	 �	��	&�	��	)�	��	/�	��	;�	��		;	gnameg	kw-do-map�C�Rv�����ihg]456_gclass
		gfilenamef
oop/goops.scm�
�	"��	�	*��	�	$��		C���$��1Y��G��h�-13445545$"4545$"4	54
54
455$4
>"G"$4
>"G"@	gsupers
		�gslots		�goptions			�gname		�gsupers		8�gt		D	\g	metaclass		\�gtmp1		s�gtmp2		s�	gfilenamef
oop/goops.scm�
�
��	
�	��	�	+��	�	��	�	��	�	��	&�	��	-�	��	6�	$��	8�	��	8�	��	;�	��	D�	��	S�	��	\�	��	_�	��	f�	��	i�	 ��	s�	��	s�	��	}�	��	~�	
����	����	
����	����	
����	����	
����	��		�	
	gnameg
make-class�C&R4������Y���hc]45�C[gx
		gfilenamef
oop/goops.scm�
�	��	�	,��	
�	'��		C��&����������h0~]�$CCvgkw
		*garg		*gfilenamef
oop/goops.scm�
�	��	�	��	
�	"��	)�	'��		*	Ch0�]�$�4�5��CC�gdef
		/gfilenamef
oop/goops.scm�
�	��	�		��		�	��	�		��	�	��	�		��	�	��	�	��	�	��	 �		��	$�		��		/Chp-13�$"4>"G4545$"�4	
5����C
gsupers
			igslots			igt		:	Lgslots		L	igoptions		L	igfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	 �	��	)�	��	2�	��	:�	��	I�	0��	L�	��	R�	��	Z�	��	c�	��			i
Chb]	45L4?6Zgargs
		gv			gfilenamef
oop/goops.scm�	�
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamef
oop/goops.scm�
�
��		'C5R4�������h+]�C#gout
				C����h�]456�gk
		
garg		
grest			
gout			
gfilenamef
oop/goops.scm�		��	
	��		
	C�������

h�]45�$"�$f4	
��

	
���
5��C�$f4	
��

	
���
5��C��C�gk
	garg	grest		gout		gkey			gfilenamef
oop/goops.scm�		
��			��		C	hPr]45" 45$@6$4?$@"���"���jgx
		Pgtmp		Pgtmp			1gfilenamef
oop/goops.scm�
	��		PC5�R4����h+]�C#gout
				C*�+h h]45��C`gslotname
		gslotopt		grest			gout						C��,hx]6pgslot
		grest		gout			gfilenamef
oop/goops.scm�	/	��			C6hO]��CGgslot
		grest		gout						C��h�]456ygslot
		
grest		
gout			
gfilenamef
oop/goops.scm�	,	��	
,	��		
	C=hO]�CGgslot
		grest		gout						C
h��]!45$@45"N45" 45$@6$4	?$
@"���"���$4?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		1	vgtmp		@	Wgfilenamef
oop/goops.scm�
'	��	�C5R4���>QRSUVWXZ[\]^_�`ah�j]��	

45��
45��Cbgdummy
	�gname	�gsupers		�gslot		�	�	C��h(�]	45$@6�gx
		"gtmp		"gfilenamef
oop/goops.scm�
6
��		"g
macro-typegsyntax-rules�gpatternsgnamegsupersgslotg...C5R4����oh>]�C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamef
oop/goops.scm�
@
��		"g
macro-typegsyntax-rules�gpatternsgargg...C5R4������Ypq�T�"rG�(shx�]�$"4>"G	��

���C�gname
		xgfilenamef
oop/goops.scm�
J
��	K	��		K	��	L	��	L	��	L	��	#M	��		xChb]	45L4?6Zgargs
		gv			gfilenamef
oop/goops.scm�	J
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamef
oop/goops.scm�
J
��		'C5R4������Ypq)�h8�]�$"4>"GC�gname
		7gval		7gfilenamef
oop/goops.scm�
R
��	S	��		S	��	T	��	T	��	T	��	#U	��		7	Chb]	45L4?6Zgargs
		gv			gfilenamef
oop/goops.scm�	R
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamef
oop/goops.scm�
R
��		'C5R4� �����vt����uh_]L6Wgprefix
		
gfilenamef
oop/goops.scm�
]	$��	
^	&��		
Ch o]4OL5�Cggname
		gfilenamef
oop/goops.scm�
[	��	\	��		]	��	\	��		CYvh8�-1345$4O5�C6�gnames
			3gargs			3gprefixes			3gfilenamef
oop/goops.scm�
W
��	
X	��	X	��	Y	��	Z	��	[	
��	,Z	��	1a	��	3a	��
			3
Chb]	45L4?6Zgargs
		gv			gfilenamef
oop/goops.scm�	W
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamef
oop/goops.scm�
W
��		'C5 RG�h v-.,3#6ngname
		gfilenamef
oop/goops.scm�
c
��	d	��		
gnamegmake-generic�C'R�"wh[]6Sggf
		
gfilenamef
oop/goops.scm�
h	��	
h	!��		
Cx�"w(yh(�]45$445L5CC�ggf
		#gfilenamef
oop/goops.scm�
l	'��	m	-��	m	)��	n	3��	n	C��	n	3��	 n	-��	"p	-��			#CGz�{�|}yh��-.,3#�$"45$n$45"4O54	
4	5544
5>"G"4	54>"GC�ggfs
	�gname	�ggfs		'�ggws?		2�gsname		L�gsetters		\�ges		~�gans	��gfilenamef
oop/goops.scm�
f
��	g	��	g	��	'g	"��	'g	��	*h	��	2g	��	:i	��	@j	!��	Aj	+��	Lj	��	Ol	��	\j	��	_r	��	nu	)��	~r	��	~j	���x	���x	+���x	���z	���i	���}	��	�gnamegmake-extended-generic�C)R�b~ah�]L45�6�ggf
		gfilenamef
oop/goops.scm�
�	��	�	��	�	"��	�	/��	�	"��	�	��	�	��		Ch(�]4O>"G6�ggfs
		!geg		!gfilenamef
oop/goops.scm�
�
��	�	��	!�	��		!	gnamegextended-by!�C}R�b~�ah �]4L4556�ggf
		gfilenamef
oop/goops.scm�
�	��	�	��		�	��	�	#��	�	0��	�	#��	�	��	�	��			Ch(�]4O>"G6�ggfs
		!geg		!gfilenamef
oop/goops.scm�
�
��	�	��	!�	��		!	gnamegnot-extended-by!�C�R"�Gw����y��
h��-.,3#45$C45$45	4
5645$45$C66�gold-definition
		}gname		}gfilenamef
oop/goops.scm�
�
��	�		��	"�	��	&�		��	0�	��	;�	��	D�	��	L�		��	M�		��	W�	��	X�	
��	b�		��	s�	
��	}�	��		}gnamegensure-generic�C(R4�����������������h`?]	��

C7gdummy
		_gname		_		_	C��h(�]	45$@6�gx
		"gtmp		"gfilenamef
oop/goops.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameC5R����h�]44556�gname
		gfilenamef
oop/goops.scm�
�
��	�	��		�	!��	
�	+��	�	��	�	��		gnamegmake-setter-name�CxRG��xh@�-.,3#4$45"56�gname
		<gfilenamef
oop/goops.scm�
�
��	 �	
��	,�	��	-�	 ��	:�	
��	<�	��		<
gnameg
make-accessor�C*R"w�y'�G����(�+�*h��-.,3#"�45$
45645$
45645$#	
45
4455645$-45$4
5"	45664	5$4455$C"��:"��6�gproc
	�gname	�gfilenamef
oop/goops.scm�
�
��	�		��	&�	��	+�	 ��	3�		��	4�		��	@�	��	E�	 ��	M�		��	N�		��	X�	��	c�	��	l�	��	o�	$��	y�	��	{�		��	|�		����	����	����	����	����	����		����		����	����	����	����	����	����	����		�� 	�gnamegensure-accessor�C+Ra�G"|z�k�~���b}�b�hh]L6`gmethod
		gfilenamef
oop/goops.scm�
�	��	�	"��	�	��		Ch��]45445$"4	5
45545$P4
54>"G4
>"G4>"G"4O>"G4>"G4>"GC�ggeneric
	�gsetter	�gmethods		=�ggws		=�ggfs		W�gfilenamef
oop/goops.scm�
�
��	�	��		�	#��	�	��	�	
��	�	��	�	��	&�	��	/�	!��	5�	3��	7�	!��	=�	
��	=�	��	B�	��	N�	��	O�	��	U�	%��	W�	��	W�	��	Z�	
��	n�	
��	t�	��	{�	
����	
����	����	����	����	����	��	�	gnamegupgrade-accessor�C�R�{h�]456�gname
		gval		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			gnamegtoplevel-define!�C	R4������������������hxc]��	
���
��C[gdummy
		qgname		qgargs			qgbody			q		q	C�������������
hXc]	
��C[gdummy
		Ugname		Ugargs			Ugbody			U		U	C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamef
oop/goops.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgsettergnamegargs�gbodyg...gnamegargs�gbodyg...C5R4�!���h �]
4LL5$CLL6zgx
		gy		gt			gfilenamef
oop/goops.scm�		
��			��		
��			C,hR]6Jgx
		gfilenamef
oop/goops.scm�			��		C��h |]	4L545$CCtgx
		gid		gfilenamef
oop/goops.scm�		��			��		��		��		Ch@�]45$
LO@4?$O@C�gexp
		?greferent		?gtmp			?gtmp		%	?gfilenamef
oop/goops.scm�
	��		?	gnamegfind-free-id�C��h,]��C$gargs
				C�
�hf]4L54L�5C^gfilenamef
oop/goops.scm�		��	
	��		��		��		��		
C,hU]6Mgtail
		gfilenamef
oop/goops.scm�		��		C�'h �]44L554L�5C�gtail
		gfilenamef
oop/goops.scm�		��		��		��		��		��		��		��		C��,hd]6\gf
		grest		gfilenamef
oop/goops.scm�	�	��			C0hv]LL�L�6ngf
		grest		gfilenamef
oop/goops.scm�	�	��	�	��	�	��			C,h�]45$6C}gf
		gs		grest			gfilenamef
oop/goops.scm�	�	��	
�	��	�	"��			Ch�]LL�L�6}gf
		gs		grest			gfilenamef
oop/goops.scm�	�	��	�	��	�	��			C
h��]#45"|45"E45$
O@4?$
O@6$4	?$
LO@"���"���$4?$LO@"��`"��\�gls
	�gformals	�gspecializers		�gtmp		�gtmp		�gtmp		(	egtmp		B	egfilenamef
oop/goops.scm�
�	��	�	gnameglp�C�12>����SVXYZ]Ua	h8.]L����L��C&gformal
		4		4C��hk]LL�6cgx
		
gxs		
gfilenamef
oop/goops.scm�		$��	
	��		
	ChB]L6:gfilenamef
oop/goops.scm�		��		
ChH�]45$
LO@45$O@�6�gls
		Dgout		Dgtmp			Dgtmp		(	Dgfilenamef
oop/goops.scm�
	��	B	$��	D	��		D	gnameglp�Cjlmnoqrkt
h8.]LL��	���L��C&gformal
		7		7C��hh�]4L5$
LO@OQ4L545$LLO@6�gbody
		cgtmp		cglp		(	8gtmp		8	cgtmp		C	cgfilenamef
oop/goops.scm�	(	��	3	��	5	��	8.	��		cC���h-]L��C%gbody0
				C����������
h0M]L�LLL�	CEg	procedure
		.gmake-procedure		.		.	Ch�l]"LL�4L5$<45$4O?"
45	";"645$4O?"
45	"G4	5$
LLO@6dgformals
	�gspecializer	�gbody		�gid		�gtmp		%	Lgtmp		_�g	procedure	��gmake-procedure	��gtmp	��gtmp	��
gfilenamef
oop/goops.scm�	I	��	
;	��	;	#��	;	��	;	��	<	��	R>	���@	���G		���K	
��	�	C��hH�]OQ4545$LO@6�gargs
		Fgbody0		Fgbody1			Fglp		
	gtmp			Fgtmp		&	Fgfilenamef
oop/goops.scm�	
�	��	�	"��	�	5��	�	��	F	��		F	C��	hP�]OQ45$@45$O@6�gx
		Kgfind-free-id	
	Kgtmp			Kgtmp		/	Kgfilenamef
oop/goops.scm�
�	��		KC5!R�g�b�h(�]	454L5$CL�6�gx
		'gdm			'gfilenamef
oop/goops.scm�
Z	
��	[	��		[	��	\	��	\	��	 ]	"��	%]	2��	']	��			'Cnh�]O456}gm
		gfilenamef
oop/goops.scm�
X
��	^	
��	Z	��		gnamegadd-method-in-classes!�C�R�b��gh~]4L4556vgx
		gfilenamef
oop/goops.scm�
b	
��	d	��		e	��	e	#��	e	��	c	��		Cnh�]O456�gm
		gfilenamef
oop/goops.scm�
`
��	f	
��	b	��		gnamegremove-method-in-classes!�C�Rna��hhx]4545"?(�C4�5�$4�>"G�C�"���"���pggf
		agnew		agnew-spec			agmethods			agl			Ygfilenamef
oop/goops.scm�
h
��	i	��	
j	��	j	��	j	��	i	��	k	��	 l	��	%m	
��	'n	��	,n	+��	.n	��	1n	��	5n	
��	6q	��	;q	+��	@q	��	Mr	��	St	��	Yt	��	Yk	��		a	gnamegcompute-new-list-of-methods�C�R�ah�]456�gm
		gfilenamef
oop/goops.scm�
v
��	w	��	w	��	
w	��	w	��		gnamegmethod-n-specializers�C�R���hr]456jgm
		gn		gfilenamef
oop/goops.scm�
z	��	z	��	z	��			Clh�]
456ggf
		gfilenamef
oop/goops.scm�
y
��	|	��	z	��		gnamegcalculate-n-specialized�C�R�b���h[]6Sggf
		gfilenamef
oop/goops.scm�
�	��	�	��		Ca~	h@�]4>"G445>"G456�ggf
		>gfilenamef
oop/goops.scm�
~
��		��	�	��	�	��	�	��	'�	��	4�	��	:�	��	<�	��	>�	��		>gnameginvalidate-method-cache!�CR4Gi�i�i�i������b����h`�]4>"G445>"G4>"G4>"GC�ggf
		[gm		[gfilenamef
oop/goops.scm�
�	��	�	��		�	��	�	��	�	��	�	��	 �	��	-�	��	6�	��	H�	��		[	C5�R"$4(i4i,5$,i",5"B4i,5$04"i,ii5$4Gii�,5""���""���,R44ri�i5,i�i>"G4i,5�$",i�$)4	i,4Gii�,5>"G"4,i,i4Gi�i��i�i������q,h0�]45$4>"G6L6�gproc
		/gm		/gfilenamef
oop/goops.scm�
�
��	�	��	
�	��	�	��	'�	��	/�
��		/	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"G4i,5�$",i�$)4	i,4Gii�,5>"G"4,i,i4Gi�i��i�i������,phr]456jgpg
		gm		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4i,5�$",i�$)4	i,4Gii�,5>"G"4,i,i4Gi�i� i�i������Y�hs]6kgobj
		
gm		
gfilenamef
oop/goops.scm�
�
��	�	��	
�	��		
	C5>"G4i=5�$"=i�$)4	i=4Gii�=5>"G"4,i=i4Gi�i��i�������da��!�	hPJ]!44554455$����45��CCBgm
		Jgspec		Jgsrc		"	Jgargs		2	Hgbody		2	Hgfilenamef
oop/goops.scm�
�
��	�	��	�	 ��	�	,��	�	 ��	�	��	�	��	�	��	�	 ��	�	,��	 �	 ��	"�	��	"�	��	*�	��	-�	��	1�	��	2�		��	8�	��	9�	��	F�	��	G�	��		JC5>"G4io5�$"oi�$)4	io4Gii�o5>"G"4,ioi4Gi�i��i������ahb]6Zgm
		
gfilenamef
oop/goops.scm�
�
��	�	��	
�	��		
C5>"G�i1R�i2Rv��h�]�6�gs
		
gfilenamef
oop/goops.scm�
�
��		�	��	
�	��		
gnamegslot-definition-allocation�C3Rv�h�]�6}gs
		gfilenamef
oop/goops.scm�
�
��		�	��	�	��		gnamegslot-definition-getter�C4Rv�h�]�6}gs
		gfilenamef
oop/goops.scm�
�
��		�	��	�	��		gnamegslot-definition-setter�C5Rvh�]�6gs
		gfilenamef
oop/goops.scm�
�
��		�	��	�	��		gnamegslot-definition-accessor�C6Rv��h�]�456�gs
		gfilenamef
oop/goops.scm�
�
��		�	��	
�	$��	�	��		gnamegslot-definition-init-value�C7Rv��h�]�456�gs
		gfilenamef
oop/goops.scm�
�
��		�	��	
�	#��	�	��		gnamegslot-definition-init-form�C8Rv�h�]�6�gs
		gfilenamef
oop/goops.scm�
�
��		�	��	�	��		gnamegslot-definition-init-thunk�C9Rvh�]�6�gs
		gfilenamef
oop/goops.scm�
�
��		�	��	�	��		gnamegslot-definition-init-keyword�C:Rjh�]456�gclass
		g	slot-name		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			gnamegclass-slot-definition�C<Rah�]4455��C�gclass
		g	slot-name		gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	(��	�	��	�	��	�	��			gnamegslot-init-function�C;Rah�]6�gobj
		
gfilenamef
oop/goops.scm�
�
��	�	��	
�	��		
gnamegaccessor-method-slot-definition�g
documentationf5Return the slot definition of the accessor @var{obj}.�CsR4'i5R4,ii4Gi�i� i i��s��h`]CXgx
		gy		gfilenamef
oop/goops.scm�
�	��			C5>"G4iii>"G	
h�]445	56�go
		gfile		gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��			gnamegdisplay-address�CR4i
5�$"
i�$+4	i
4Gii�
5>"G"4,i
i4Gi�i� i i����	h8�]4>"G4>"G>6�go
		2gfile		2gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	2�	��		2	C5>"G4pi
i5R4i
5�$"
i�$+4	i
4Gii�
5>"G"4,i
i4Gi�i��i i��$�c@	dh�]
�45$]4>"G445>"G4 >"G4>"G>6L6�go
		ygfile		ygclass			ygfilenamef
oop/goops.scm�

��		��		��		��		��		��		��		
��		��	 	
��	)	
��	,	��	9	
��	B	
��	V	
��	q	
��	y
��		y	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�

��		
C�5>"G4i
5�$"
i�$+4	i
4Gii�
5>"G"4,i
i4Gi�i��i i�%�2�c@	dh�V]
�45$�45$�4>"G445>"G4 >"G445>"G4 >"G4>"G>6L6L6Ngclass
	�gfile	�gmeta		�gfilenamef
oop/goops.scm�

��		��		��	
	
��	
	 ��	
	
��	
	��		
��		��		
��	!
	��	"	
��	&	��	-	
��	6	
��	9	��	F	
��	O	
��	c	
��	f	��	s	
��	|	
���	
���	
���
��	�	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�

��		
C�5>"G4i
5�$"
i�$+4	i
4Gii�
5>"G"4,i
i4Gi�i�i i�3�K�c@�	dk@BlFh��]�45$�45$�4>"G445>"G45$,4 >"G4>"G"4>"G44	4
55>"G6L6L6�ggf
	�gfile	�gmeta		�gname		U�gfilenamef
oop/goops.scm�

��		��		��		
��		��		
��		��		
��		��		
��	!	��	"	
��	&	��	-	
��	6	
��	9	��	F	
��	O 	��	U 	
��	]!	��	^#	��	r$	���%	
���%	���%	
���&	
���&	���&	���&	���&	
���'	���'	
���
��"	�	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�

��		
C�5>"G4i
5�$"
i�$+4	i
4Gii�
5>"G"4,i
i4Gi�i��i i��[�c@	d�c@ah �]45$6C�gspec
		gfilenamef
oop/goops.scm�
2	��	3	��		3	1��	3	��	3	��	4	.��	4	��		Cnh�e]
�45$�45$�4>"G445>"G4 >"G444	55>"G4 >"G4
>"G>6L6L6]go
	�gfile	�gmeta		�gfilenamef
oop/goops.scm�
*
��	+	��	+	��	,	
��	,	��	,	
��	,	��	-	
��	-	��	-	
��	!,	��	"/	
��	&/	��	-/	
��	60	
��	90	��	F0	
��	O1	
��	c2	
��	f2	��	k6	��	s2	��	z2	
���8	
���9	
���:	
���*
��	�	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
*
��		
C�5>"G4i	5�$"	i�$+4	i	4Gii�	5>"G"4,i	i4Gi�i� i i��]��hk]6cgo
		
gfile		
gfilenamef
oop/goops.scm�
>
��	
?	��		
	C5>"G4i^5�$"^i�$+4	i^4Gii�^5>"G"4,i^i4Gi�i�_i`i_i i_i i i i�h�s��h�,3C�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamef
oop/goops.scm�
E
��			C5>"G4i^5�$"^i�$+4	i^4Gii�^5>"G"4,i^i4Gi�i�_i`i_ii_ii iii�h�r��m)h(�,3&C456�gmodule
		"gname		"gint1			"gval1			"gint2			"gval2			"gvar			"gval			"gfilenamef
oop/goops.scm�
O
��	W	��	X	��	X	-��	 X	��	"X	��		"	C5>"G4i^5�$"^i�$+4	i^4Gii�^5>"G"4,i^i4Gi�i�_i`i_ii_ii i|i�s�����a�b�~h��,34455$C44455�>"G44455�>"G4>"GC�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			ggf			gfilenamef
oop/goops.scm�
Z
��	b	��	b	��	b	$��	b	��	b	��	b	��	d		��	#e	��	&f	��	+f	+��	1f	8��	3f	+��	5f	��	6f	��	;d		��	Dg		��	Jh	��	Mi	��	Ri	'��	Xi	6��	Zi	'��	\i	��	]i	��	bg		��	kj		��			C5>"G4�i�i^^i>"G4i�5�$"�i�$+4	i�4Gii��5>"G"4,i�i4Gi�i�_i`i_i i_i i i i�h�s��h�,3C�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamef
oop/goops.scm�
o
��			C5>"G4i�5�$"�i�$+4	i�4Gii��5>"G"4,i�i4Gi�i�_i`i_ii_ii i i�h����^h �,36�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamef
oop/goops.scm�
y
��	�	��			C5>"G4�i�i��i>"Ga�0�3�	hpu]44554455$"	45��4455$"4>"GCmgclass
		og	slot-name		og	this-slot			ogt		$	>gg-n-s		@	ogfilenamef
oop/goops.scm�
�
��	�	��	�	$��	�	4��	�	$��	�	��	�	��	�	��	�	*��	 �	:��	"�	*��	$�	��	$�	��	3�	��	?�	��	@�	��	C�	
��	F�	��	P�	
��	T�	��	Y�	��		o	gnamegclass-slot-g-n-s�C�R��/h(�]
445�545$6C�gclass
		(gslot		(gx			(gfilenamef
oop/goops.scm�
�
��	�	��	�	��	
�	��	�	��	�	��	�	��	�	��	%�	��
		(	gnamegclass-slot-ref�C-R�h�]45��6�gclass
		gslot		gvalue			gfilenamef
oop/goops.scm�
�
��	�		��	�	��	�	��			gnamegclass-slot-set!�C.R4i/5�$"/i�$)4	i/4Gii�/5>"G"4,i/i4Gi�i��i�i i������Y�h�]6xgc
		go		gs			gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4i/5�$"/i�$)4	i/4Gii�/5>"G"4,i/i4Gi�i��i i������Y�hq]6igc
		gs		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4i/5�$"/i�$)4	i/4Gii�/5>"G"4,i/i4Gi�i��i������Y�hb]6Zgo
		
gfilenamef
oop/goops.scm�
�
��	�	��	
�	��		
C5>"G4i05�$"0i�$)4	i04Gii�05>"G"4,i0i4Gi�i��i�i i������Y�h�]6xgc
		go		gs			gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4i05�$"0i�$)4	i04Gii�05>"G"4,i0i4Gi�i��i i������Y�hq]6igc
		gs		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4i05�$"0i�$)4	i04Gii�05>"G"4,i0i4Gi�i��i�i i i������0h�]6�gc
		go		gs			gvalue			gfilenamef
oop/goops.scm�
�
��	�	��			C5>"G4iH5�$"Hi�$)4	iH4Gii�H5>"G"4,iHi4Gi�i�i i������Y�hu]6mggf
		gargs		gfilenamef
oop/goops.scm�
�
��	�	��	�	��			C5>"G4iI5�$"Ii�$)4	iI4Gii�I5>"G"4,iIi4Gi�i�i i������Y�kh�]45�6ggf
		gargs		gfilenamef
oop/goops.scm�
�
��	�	��		�	��	�	��	�	��			C5>"G4iJ5�$"Ji�$)4	iJ4Gii�J5>"G"4,iJi4Gi�i�i i������Y�hu]6mggf
		
gargs		
gfilenamef
oop/goops.scm�
�
��	�	��	
�	��		
	C5>"G4iM5�$"Mi�$)4	iM4Gii�M5>"G"4,iMi4Gi�i��i��������1j�cbah(x]4L5$L4L56Cpgslot
		"gfilenamef
oop/goops.scm�
�	��	�	��	�	��	�	*��	 �	��		"Ch@�]4�544�554O>"GC�gself
		<gclone		<gslots			<gfilenamef
oop/goops.scm�
�
��	�	��	�	#��		�	3��	�	��	�	��	�	��	�	!��	�	��	�	��	�	��	�	��
		<C5>"G4iN5�$"Ni�$)4	iN4Gii�N5>"G"4,iNi4Gi�i��i��������1j�cba\Nh@�]	4L5$.L4L545$45"6C�gslot
		?gvalue		;gfilenamef
oop/goops.scm�
�	��	�	��	�	��	�	,��	�	��	!�	%��	+�	!��	,�	%��	=�	��
		?Ch@�]4�544�554O>"GC�gself
		<gclone		<gslots			<gfilenamef
oop/goops.scm�
�
��	�	��	�	#��		�	3��	�	��	�	��	�	��	�	!��	�	��	�	��	�	��	�	��
		<C5>"G4iO5�$"Oi�$)4	iO4Gii�O5>"G"4,iOi4Gi�i��i�i������g��hZ]LL6Rgm
		gfilenamef
oop/goops.scm�
�	��	�	��		Cb��a�b��fh~]4L4556vgc
		gfilenamef
oop/goops.scm�
�	��	�	%��		�	#��	�	.��	�	#��	�	��		Ceb��fh �]L4L455�6gc
		gfilenamef
oop/goops.scm�
	��		��		#��		.��		#��		��		��		C��hZ]LL6Rgc
		gfilenamef
oop/goops.scm�
	��	
		��		Cf�h�]
4>"G454O>"G44455>"G4	5�4
O45>"G4O45>"G4
>"G4O45>"G4>"G4>"GCzgold
	gnew	gmethods			]gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	9�	��	?�	��	@�	��	E�	��	M�	��	R�	��	^�	��	d�	��	f�	��	i�	��	j�	��	t�	��	�	���	���	���	���	���	���	���	���	���	���	���	��		C5>"G4i�5�$"�i�$+4	i�4Gii��5>"G"4,i�i4Gi�i��i������"a�b��
hX�]	45$G4544455>"G4>"G	6C�gm
		Xggf		Vgfilenamef
oop/goops.scm�
	��		��		��		��		(��		��		��	 	��	! 	"��	"!	��	'!	)��	-!	6��	/!	)��	1!	��	6 	��	?"	��	V$	��		XCghb]456Zgc
		gfilenamef
oop/goops.scm�

��	%	��		��		C5>"G4i�5�$"�i�$+4	i�4Gii��5>"G"4,i�i4Gi�i��i�i�i��%��nh8�]"%�$��$	�"�"���C45"����gm
		8gold		8gnew			8gl			+gfilenamef
oop/goops.scm�
+
��	.	��		1	��	
1	��	3	��	3	��	3	
��	4	��	#5	��	)5	
��	+.	��	,.	��	8.	��		8	C5>"G4i�5�$"�i�$+4	i�4Gii��5>"G"4,i�i4Gi�i��i�i�i�&�-��O&eh�d�h0�]4454545�56�gc
		)gold		)gnew			)gfilenamef
oop/goops.scm�
;
��	?	��	
?	"��	@	"��	A	)��	%B	.��	'?	��	)>	��			)	C5>"G�456,BCyh�i]454545$44L5>"G"$44L5>"G"$/44L5>"G454L56Cags
	�gg-n-s	�ggetter-function		�gsetter-function		�gaccessor		�gfilenamef
oop/goops.scm�
L	��	M	��	
N	��	O	��	M	��	#P	
��	$Q	��	)R	��	6Q	��	HS	
��	IT	��	NU	��	[T	��	mV	
��	nX	��	sY	���X	���Z	���[	���Z	��	�	Cah�]O456�gclass
		gslots		gfilenamef
oop/goops.scm�
J
��	\	��	\	��	\	��	K	��			gnamegcompute-slot-accessors�C.R4iB5�$"Bi�$)4	iB4Gii�B5>"G"4,iBi4Gi�i��i i�0�G��G��9=@D	hP]�����$4�5"$45"456�gclass
		Lgg-n-s		Lg
init-thunk		
	Lgg-n-s		
	Lgfilenamef
oop/goops.scm�
^
��	_	��		`	��	
_	��	b	��	c	��	"c	��	#d	��	(d	>��	*d	��	4c	��	5f	��	@h	��	La	��		L	C5>"G4iC5�$"Ci�$)4	iC4Gii�C5>"G"4,iCi4Gi�i��i i�0�N��G� �IDh8�]
�����$��"456�gclass
		8gg-n-s		8gg-n-s			8gfilenamef
oop/goops.scm�
k
��	m	��	l	��	l	��	o	��	p	��	#p	��	&q	��	,r	��	8n	��		8	C5>"GOhc]4L56[go
		gfilenamef
oop/goops.scm�
v	��	v	��	v	��		Ch]OCwgproc
		
gfilenamef
oop/goops.scm�
u
��		
gnamegmake-generic-bound-check-getter�C9R	PR4�Q�����qWRS�TU�hH�]�$:�&
���LC�&���L����CL6C�gform
		Fgfilenamef
oop/goops.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	��	"�	��	$�	��	(�	��	+�	��	.�	��	4�	.��	:�	��	C�	��		Fgnameg
body-trans�C��h(�]	OQL4L5��C�gx
		"g
body-trans		"gfilenamef
oop/goops.scm�
�	��	�	��	�	��	 �	��		"gnamegmake-one�CVP�X�YW[hx�-13������4O455�	

		��
�C�gform
			tgbody			tgname			tgn-var			tgargs			tgfilenamef
oop/goops.scm�
~
��		��	�	��	�	��		��	�	��	&�	��	2�	,��	:�	��	;�	��			t
Chb]	45L4?6Zgargs
		gv			gfilenamef
oop/goops.scm�	~
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamef
oop/goops.scm�
~
��		'C5QR�/h 7]	
�45$6C/go
		gx				C�/h 7]	�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]			�45$6C/go
		gx				C�/h 7]		
�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		
�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h 7]		�45$6C/go
		gx				C�/h �]	L�45$6C|go
		gx		gfilenamef
oop/goops.scm�	�	��	�	��	
�	��	�	��	�	��		Ch )]	�$L�COC!gn
				CO@Rh)]
�C!go
				Ch)]�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]		�C!go
				Ch)]	
�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	
�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				Ch)]	�C!go
				ChR]L�CJgo
		gfilenamef
oop/goops.scm�	�	��		Ch )]	�$L�COC!gn
				CO=Rh8]
�C0go
			gv							Ch8]�C0go
			gv							Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]		�C0go
		
gv		
		
	Ch8]	
�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	
�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Ch8]	�C0go
		
gv		
		
	Cha]L�CYgo
		
gv		
gfilenamef
oop/goops.scm�		�	��		
	Ch )]	�$L�COC!gn
				COIR�a\@1]Y^B�_`3���a9bc7�hA]LC9gfilenamef
oop/goops.scm�
�	��		
C�h��]94L54L54L5�4545$"�"4L>"�G"��$y45	�$c���4	5$"4
L>"G4	5$"4L>"G""��h""��`45
�$"�$A"4>"&G"
�$�$""���""�����C45$"45$"
4L5"$"#4545$"O45$"
�$"45��C�gs
	�gindex	�gg-n-s		�gsize		$�gname		-�gt		6�gget		~�gset		~�gkey	��gthunk	S�gt	��ginit	��gt	��
gfilenamef
oop/goops.scm�
�	��	�	��		�	'��	�	��	�		��	�	��	�		��	�	��	�	)��	!�	��	$�	��	$�		��	'�	��	-�		��	0�	��	6�	��	G�	��	K�	��	V�	��	b�	��	e�	��	i�	��	j�	"��	s�	��	w�	��	z�	��	}�	��	~�	����	����	
����	����	����	����	����	
����	����	����	����	����	���	���	���	��#�	��&�	��+�	��.�	(��2�	��H�	��I�	��M�	��S�	��[�	
��\�	��f�	��m�	��q�	 ��y�	����	����	����	����	����	
����	"����	����	"����	����	����	,����	����	����	��I	�Ch�]O6�gclass
		gslots		gfilenamef
oop/goops.scm�
�
��	�	��			gnamegcompute-getters-n-setters�CdR4i>5�$">i�$)4	i>4Gii�>5>"G"4,i>i4Gi�i��i�e�g��?eh]]6Ugclass
		
gfilenamef
oop/goops.scm�
�
��	
�	��		
C5>"Ghhc]��C[gl
		gfilenamef
oop/goops.scm�
�	
��	�	��	�	��		Chu]6mglst
		
gfilenamef
oop/goops.scm�
�
��	
�	��		
gnameg
only-non-null�CiRji��ih0]
454445556�gc
		,gget-direct-supers		,gc-direct-supers				,gfilenamef
oop/goops.scm�
�
��	�	��		�	��	�	��	�	��	�	 ��	�	(��	&	(��	(�	 ��	*�	��	,�	��		,	gnamegcompute-std-cpl�C?Rk[l���hc]L�6[gl
		gfilenamef
oop/goops.scm�
	'��				1��			)��		Ch(�]	(C�4OL5$CC�gl
		&gc	
	&gfilenamef
oop/goops.scm�
	��	
	��	
	,��	
	!��		"��	!	��		&gnameg
candidate-car�CYmji�h�]�L&�CC|gl
		gfilenamef
oop/goops.scm�
	��		$��		��		��		gnamegremove-next�Ch`"]
45$64O5$"4>"G�4	4
O556greversed-partial-result
		]ginputs		]gnext		#	]gfilenamef
oop/goops.scm�

��		��		��		��		��	#	��	+	��	0	
��	4	��	9	
��	H	��	I	��	L	$��	[	��	]	��		]	gnamegmerge-lists�CjRnopqh(�]44554455456�gc
		%gget-direct-supers		%gfilenamef
oop/goops.scm�
#
��	$	��	$	
��	$	��	%	��	%	
��	%	��	&	��	%$	��
		%	gnamegcompute-clos-cpl�CrRhk�h �]	��L��$C�L6�g
constraint
		gt	
	gfilenamef
oop/goops.scm�
2	��	3	)��		3	$��	
3	��	
3	��	4	%��	4	��		ChZ]LOL6Rgx
		gfilenamef
oop/goops.scm�
1	��	2	��		CYshc]L��C[gx
			gfilenamef
oop/goops.scm�
>	��	>	*��	>	%��			C�h��]+"f(C4O5(6�(�"	454O545"���"����gelements
		{gconstraints		{gtie-breaker			{gelements			lgconstraints			lgresult			lg
can-go-in-now			lgchoice		D	lgfilenamef
oop/goops.scm�
)
��	*	��	-	��	0	��	/	��	'7	
��	+8	��	-8	��	09	'��	49	��	7:	 ��	<;	 ��	D9	��	G>	��	WA	��	`A	 ��	bA	��	l=	��	l*	��	q,	��	{*	��		{	gnamegtop-sort�CnRh�hZ]L6Rgx
		
gfilenamef
oop/goops.scm�
H	 ��	
I	&��		
CYthXh]"">�4L54O5(�(6�"����C45"���`gpartial-cpl
		Qgmin-elts		Qgpcpl			Dgcurrent-elt				Dgds-of-ce			Dgcommon		"	Dgfilenamef
oop/goops.scm�
D	��	E	��		F	��		F	��	G	��	G	��	H	��	"H	
��	*K	��	-L	��	1L	��	5M	!��	7M	��	:N	��	@N	��	CO	��	DE	��	EE	��	QE	��		Q	Chu]OCmg
get-supers
		
gfilenamef
oop/goops.scm�
C
��		
gnamegstd-tie-breaker�CqR��hX-]"D(C�45$
�"����44L5�5"���"���%gx
		Xgresult		Jgpending			Jgnext			Jgfilenamef
oop/goops.scm�
S	��	T	��	V	��	X	��	X	
��	Y	��	!Y	��	&Z	��	.Z	��	3[	��	4\	��	7\	��	@]	��	B\	��	J[	��	JT	��	KT	��	PU	��	XT	��		XCh�]OCzgget-follow-ons
		
gfilenamef
oop/goops.scm�
R
��		
gnamegbuild-transitive-closure�CoRohx�]"S("��$$(C��4L�5�"��������"���44L55"���{gx
		qgelements		Ygthis-one			Ygresult			Ygfilenamef
oop/goops.scm�
`	��	a	��	d	
��	
d	��	d	&��	d	��	d	��	e	
��	%g	��	(h	��	)i	��	.i	*��	0i	��	1h	��	=g	��	Bl	��	Em	��	Hm	+��	Lm	��	Om	��	Yk	
��	Ya	��	Za	��	[a	��	ea	��	fb	��	gc	��	qa	��		qCh{]OCsgget-follow-ons
		
gfilenamef
oop/goops.scm�
_
��		
gnamegbuild-constraints�CpR4i@5�$"@i�$)4	i@4Gii�@5>"G"4,i@i4Gi�i��i i�u���3�a\b�1��h�97�i��v�2�Y�hp�]"45�$%454�>"GC�$�4544	4
555$(45$	45"4
56"'44�55$��C�"���45�"����$(45$	45"4
56�$f44554455$"$"4>"G"4>"GCL6�gclass
	mgs	mgkey			mgalready-allocated			9gname		I�gthunk		o�gl	��gr	��gthunk	��gget	egset	egfilenamef
oop/goops.scm�
r
��	y	��		y	��	|	��	|	.��	|	��	|	��	 }	��	&}	��	)}	!��	.}	��	By	��	C�	��	I�	��	L�	��	Q�	��	V�	0��	^�	��	`�	��	d�	��	it	��	ot	��	wu	��	xv	
���w	
����	����	����	����	"����	,����	4����	"����	����	
����	����	����	����	����	����	����	����	���y	���t	���t	���u	���v	
���w	
����	���y	���	���	)���	���	���	)���	���	��'�	��-�	��2�	��6�	��=�	��N�	��U�	��d�	��mr
��C	m	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
r
��		
C�5>"GhQ]MCIgo
		gfilenamef
oop/goops.scm�
�	��		Chi]NCago
		gv		gfilenamef
oop/goops.scm�
�	��	�	��			Ch�]HOOC�gclass
		gvalue		gfilenamef
oop/goops.scm�
�
��	�	��			gnamegmake-closure-variable�C�R4i@5�$"@i�$)4	i@4Gii�@5>"G"4,i@i4Gi�i��i i������Y�3hz]456rgo
		gs		gfilenamef
oop/goops.scm�
�
��	�	��	�	.��	�	��			C5>"G4iA5�$"Ai�$)4	iA4Gii�A5>"G"4,iAi4Gi�i��i�e�����h]]6Ugclass
		gfilenamef
oop/goops.scm�
�
��	�	��		C5>"G4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i��i i�������ht]6lgobject
		
ginitargs		
gfilenamef
oop/goops.scm�
�
��	
�	��		
	C5>"G4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i��i i�����v��b@�������>�A�\d.�b�ah�]L45�6gx
		gfilenamef
oop/goops.scm�
�	��	�	��	�	'��	�	3��	�	'��	�	��	�	��		C��hp�]4L>"G4545445>"G4>"G4	>"G4
>"G4>"G44
5>"G4>"G454>"G4
>"G445>"G4>"G4O>"G4>"G6�gclass
	nginitargs	ngdslots		*ngsupers		*ngslots	�;gfilenamef
oop/goops.scm�
�
��	�	��	�	.��	 �	��	!�	��	(�	3��	*�	��	*�	��	/�	��	5�	��	6�	(��	>�	E��	@�	(��	E�	��	N�	��	T�	��	[�	��	d�	��	j�	��	q�	��	z�	����	����	(����	����	����	����	(����	����	����	����	(����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	*���	��%�	��<�	��U�	��n�	��4	n	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"Gv�b�h8�]
45$�$
@6C�gobject
		1ginitargs		1gproc			1gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	�	��	!�	#��	%�	��	+�	��	/�	��	0�	��		1	gnameginitialize-object-procedure�C�R4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i��i i������h ]4L>"G6wgapplicable-struct
		ginitargs		gfilenamef
oop/goops.scm�
�
��	�	��			Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"G4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i�i i���v��b�"�G�� �����h_-13L@Wgargs
			gfilenamef
oop/goops.scm�
�	*��	�	,��			


C@h�,]45454L>"G445$&4	

O5">"G$
6C$ggeneric
	�ginitargs	�gprevious-definition		�gname		�gfilenamef
oop/goops.scm�
�
��	�	��	
�	��	�	��	�
��	/�	��	5�	��	6�	$��	B�	 ��	C�	*��	d�	$��	i�	$��	n�	��	|�	����	)����	��	�	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"G4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i�wi i���v�h(z]4L>"G456rggws
		&ginitargs		&gfilenamef
oop/goops.scm�
�
��	�	��	&�	��		&	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"G4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i�|i i���b�v{h(�]4L>"G456�geg
		(ginitargs		(gfilenamef
oop/goops.scm�
�
��	�	��	�	��	$�	9��	&�	��	(�	��		(	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"Ghr-13Cjgargs
			gfilenamef
oop/goops.scm�
�	��			


gnamegdummy-procedure�CR4iE5�$"Ei�$)4	iE4Gii�E5>"G"4,iEi4Gi�i��i i� �0�b�v!��������h�~]4L>"G445>"G445>"G445>"G4	4
5>"G445>"G
456vgmethod
	�ginitargs	�gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	&��	,�	��	5�	��	;�	��	<�	"��	C�	G��	E�	"��	J�	��	S�	��	Y�	��	Z�	
��	h�	��	q�	��	w�	��	x�	��	�	=����	����	����	����	����	����	7����	����	����	����	$����	��	�	Ch_]OCWgreal-next-method
		
gfilenamef
oop/goops.scm�
�
��		
C�5>"GD�;^`3<�_]	h��]	""4L5$LL456C4LL5$@44L55&(4LL5$LL4LL56"���"���"����gslot
		{ginit		(gfilenamef
oop/goops.scm�
	��		 ��		��		��	 	��	&	��	(	��	)	��	7	��	8	��	;	��	E	��	K	��	L	��	Z	��	c	��	o
	��		{C�1j1L	hh&]454O4455>"G4>"G4>"GCgold-instance
		bg	old-class		bg	new-class			bgnew-instance		
	bgfilenamef
oop/goops.scm�

��		��		3��	
	��	
	��	
	��		��	"	(��	*	��	/	��	8	��	L	��
		b	gnamegchange-object-class�C2R4iL5�$"Li�$)4	iL4Gii�L5>"G"4,iLi4Gi�i��i�i�5�6��hu]Cmgold-instance
		gnew-instance		gfilenamef
oop/goops.scm�

��			C5>"G4iK5�$"Ki�$)4	iK4Gii�K5>"G"4,iKi4Gi�i��i�i�8�;��2h�]�6|gold-instance
		
g	new-class		
gfilenamef
oop/goops.scm�
%
��		&	$��	
&	��		
	C5>"G4iD5�$"Di�$)4	iD4Gii�D5>"G"4,iDi4Gi�i��i i���=���hs]6kgclass
		
ginitargs		
gfilenamef
oop/goops.scm�
.
��	
/	��		
	C5>"G4iF5�$"Fi�$)4	iF4Gii�F5>"G"4,iFi4Gi�i��i i��>�E��DEh0�-13454>"GC�gclass
			+ginitargs			+ginstance			+gfilenamef
oop/goops.scm�
1
��	
2	��	2	��	3	��			+
C5>"GFiGR4iP5�$"Pi�$)4	iP4Gii�P5>"G"4,iPi4Gi�i�i i���Q��a�JSRVIhX�]
45(4>"G"45$4566�ggf
		Sgargs		Sgmethods		0	Sgfilenamef
oop/goops.scm�
F
��	G	
��		G	��	G	
��	G	��	H	��	(I	��	0I	��	8J	��	=K	��	KK	��	SL	��
		S	C5>"G4Gii�S5RR4iR5�$"Ri�$+4	iR4Gii�R5>"G"4,iRi4Gi�i�i i���T��Thl]6dggf
		
gargs		
gfilenamef
oop/goops.scm�
S
��	
T	��		
	C5>"GRiSi4iV5�$"Vi�$)4	iV4Gii�V5>"G"4,iVi4Gi�i�i i i�U�b���dZUhk]L6cgm1
		gm2		gfilenamef
oop/goops.scm�
Z	��	Z	"��			Ch �]45O6�ggf
		gmethods		gargs			gtargs			gfilenamef
oop/goops.scm�
X
��	Y	��	Y	��	Z	��			C5>"G4iU5�$"Ui�$)4	iU4Gii�U5>"G"4,iUi4Gi�i��i�i i�e�h��fh}]6ugm1
		gm2		gtargs			gfilenamef
oop/goops.scm�
\
��	]	��			C5>"G4iQ5�$"Qi�$)4	iQ4Gii�Q5>"G"4,iQi4Gi�i�i i i i�j�p��rh�]4�54�5@�ggf
		gmethods		g
build-next			gargs			gfilenamef
oop/goops.scm�
_
��	`		��	`	��	
`		��	a		��	a	��	a		��	`	��				C5>"G4iR5�$"Ri�$)4	iR4Gii�R5>"G"4,iRi4Gi�i�iqi i�r����HQh@�-13L(L(L"6LLL(L"6gnew-args
			;gfilenamef
oop/goops.scm�
f	��	h	��	g	��	#i	��	1g	��	;j	��			;


Chx]LLOCpgprocs
		gargs		gfilenamef
oop/goops.scm�
e	��			gnamegnext�CQh �]OQ6�ggf
		gl		gargs			gnext			gfilenamef
oop/goops.scm�
d
��	e	��	k	��			C5>"G4�i�hf]6^gproc
		gfilenamef
oop/goops.scm�
n	
��	o	*��	o	��		C/i0iHiIiJi>"G�hH]"5(C4�5$
�"������"���"���gl
		Fgl		;gres			;gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	 �	��	*�	��	-�	��	0�	��	3�	��	;�	��	;�	��	>�	��	F�	��		Fgnameglist2set�C�R�fh�]4L455�C�gc
		gfilenamef
oop/goops.scm�
�	��	�	��	
�	)��	�	��	�	��		gnamegallsubs�C��fh(�]	OQ44556�gc
		!gallsubs	
	!gfilenamef
oop/goops.scm�
�
��	
�	��	�	��	�	)��	�	��	!�	��		!gnamegclass-subclasses�CWR��gWh�]445�56�gc
		gfilenamef
oop/goops.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnameg
class-methods�CXR�i6�
gm
		,gtable-of-metas
��gt
^�^�gt
`�`�gt
a�a�gt
b�b�gt
e$e9gt
pZppgt
q�q�gt
t�t�gt
w�w�gt
{�{�gt
��gt
��,gt
����gt
����gt
����gt
�d�zgt
�N�cgt
����gt
����gt
����gt
��gt
�+�@gt
�t��gt
����gt
����gt
��,gt
����gt
�]�rgt
��+gt
����gt
�p��gt
��*gt
�!�6gcache
����gcache
��DZgcache
Γ�qgt
֭��gt
��'gt
��&gt
�D�Ygt
�G�\gt
�n��gt
����gt
����gt
%:gt
�gt
i~gt
=Rgt
Wlgt
��gt
��gt
-Bgt
*@gt
Wlgt
Xmgt
��gt
!6;gfilenamef
oop/goops.scm�		
��	-	M	��	6	M
��	7	Q	��	I	T	��	e	U	��	k	U	��	p	U	��	y	X
���	j
���	x	���	x	���	x	���	x	���	y	���	y	���	y	���	~
����
����	����	����
��	g�
����
����
��*)c
��.Cf
��/��
��1e�
��3�
��5��
��6��
��9s�
��<��
��=��
��UyX
��V�`
��X�h
��Y�v
��Z�y
��\�~
��\��	��^�
��^m�
��^n�
��^o���^��
��^��
��`{�
��a��
��b��
��e�
��f9�
��fA�
��f��
��g��
��hP�
��i�
��i��
��jt�
��k$�
��k��
��l��
��m��
��n��
��n��	��n��	��n��	��n��
��n��
��n��	��oO�
��oX�
��pN�
��pO�
��q��	��q��
��q�
��t�
��w�
��{�*
���>
���E
����O
����Z
����m
����m	#����m
����o
���Yy
����
���'�	#���1�
���I�
���c�
���C�
���D�
�����
�����
�����
�����
���!�
���j�
�����
�����
���
�
�����
���S�
���

����+
���e;
���
J
���^
���k
����u
���|	�����
��ǵ�
���u�
��֢�
��֣�
����
����
����
����#
���()
���C
���^R
���_
���r
����
����
���:�
���=�
���d�
�����
�����
�����
���
����
��^�
��_�
��2
��3
��M%
���.
���1
��"6
��#F
��Q	��Q	��Q	��P
��S
��LV
��MX
��N\
���_
��d
���n
���p	
���n
�� �
��!��
��"��
��"��
���	"�
C6oop/goops/compile.go000064400000001061150536206120010445 0ustar00GOOF----LE-8-2.0]4hN]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gcompile�		�	
gfilenameS�	foop/goops/compile.scm�	gimportsS�	
ginternal�	
�	�	�	g
re-exportsS�	gcompute-cmethod�	�	gset-current-module�	�	�C5h0W]4	
54>"GCOgm
		,gfilenamefoop/goops/compile.scm�
	
��		,
C6oop/goops/dispatch.go000064400000024204150536206120010620 0ustar00GOOF----LE-8-2.0l(]a4h�]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gdispatch�		�	
gfilenameS�	foop/goops/dispatch.scm�	gimportsS�	
�	
�	gutil�	�	�	gsystem�	gbase�	gtarget�	�	�	�	gexportsS�	gmemoize-method!�	�	gset-current-module�	�	�	gcurrent-module�	g*dispatch-module*�	 ggensym�	!fa�	"ft�	#gappend�	$#�	%#�	&grest�	'glet�	(gmap�	)gclass-of�	*fp�	+gif�	,gand�	-gapply�	.&�	/gassq-ref�	0geq?�	1fc�	2g
cache-miss�	3gcons*�	4glist�	5gemit-linear-dispatch�	6gmake-vector�	7fg�	8g
vector-length�	9glambda�	:gcdr�	;gcase-lambda�	<gcar�	=gwith-target�	>g
%host-type�	?gcompile�	@?�	A@?�	B@?�	CgenvS�	DgfromS�	Egscheme�	FgoptsS�	Gg
partial-eval?S�	Hgcse?S�	IGH�	Jgargs�	KJ�	Lgmax�	Mgcompute-dispatch-procedure�	Ng
timer-init�	Ogslot-ref�	Pgeffective-methods�	Qg	slot-set!�	Rg	procedure�	Sgcache-dispatch�	Tgdelayed-compile�	Ug
n-specialized�	V	)�	W	)�	Xgcompute-cmethod�	Y
X�	Z
X�	[gmemoize-effective-method!�	\gcompute-applicable-methods�	]g%compute-applicable-methods�	^gno-applicable-method�	_gset-procedure-property!�	`gsystem-procedure�C5h8!�]4	
54>"G4i5R h8�]" 
�$C�45�"����"����gn
		2gstem		2gn			&gsyms			&gfilenamefoop/goops/dispatch.scm�
	@	��		A	��	
	B	
��		B	��		D	��		D	��		D	��	&	D	
��	&	A	��	)	A	��	*	A	��	2	A	��
		2	gnameggen-syms�C!"%&'()hp]Chgt
		ga		gfilenamefoop/goops/dispatch.scm�
	P	��		Q	��			C *+,-./01234hX&]e4545"(.$
45"45
	D"�(L4	
5��	����$
45��"�

	"��v4
�5$!�
���
"��{4	5
����
���
"��J	��
"��4$45�"�
	"���ggf-sym
	Tgnargs	Tgmethods		Tgfree		Tgrest?		Tggen-syms		Tgargs		Tgtypes		Tgmethods		 $gfree			 $gexp	
	 $gfree		Xgtypes		Xgspecs	
	Xgchecks		Xgm-sym		e�gvar	�gvar	�gfilenamefoop/goops/dispatch.scm�
	?
��		E	��	
	E	��		E	��		E	��		F	��		F	 ��		F	��		E	��	 	G	��	&	M	��	,	O	��	-	O	��	=	O	��	>	P	��	M	O	��	T	O	��	X	W	��	^	[	
��	_	\	��	c	\	#��	e	\	��	e	\	��	j	]	��	m	^	'��	p	^	��	s	^	��	x	a	���	b	���	c	���	d	���	a	���	]	���	f	���	f	(���	f	���	f	���	g	���	i	���	j	���	k	"���	k	)���	k	"���	k	���	h	���	m	���	m	'���	m	���	m	���	n	%���	n	���	o	���	p	���	q	$���	q	+���	q	$��	q	��	n	��	W	��	Y	(��	Y	��	Z	��$	W	��$	G	��*	I	��2	J	 ��4	K	$��D	L	$��J	I	��T	G	��G	T	gnamegemit-linear-dispatch�C5R6 785hpb]4L5�$KL�(�"���4L>G��"���L4L5�6Zgn
		kgclauses		kgfree			kgmethods			[gclause		@	[gfree		@	[gfilenamefoop/goops/dispatch.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	��	.�	��	/�	��	C�	��	J�	��	O�	&��	[�	��	^�	��	e�	��	k�	��		k	gnameg	emit-rest�C9(:;<=>BCDEFIh �]4L5L@�gp
		gfilenamefoop/goops/dispatch.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	
��			
C5
h��]
�$/45�45O6L�(�"���4	L>G��"��~�gn
	�gclauses	�gfree		�gexp		&	9gvals		&	9gmethods		>�gclause		i�gfree		i�gfilenamefoop/goops/dispatch.scm�
�	��	�	��	
�	��	�	��	
�	��	�	��	�	��	&�	��	9�	��	>�	��	>�	��	F�	��	I�	��	W�	��	X�	��	l�	��	s�	��	x�	%����	��	�	gnamegemit-req�C8J2KLhH�]R"-(�4�54�5"�(y45O	O

	Q	
Q
	
45
�$"
��$	��"�6�	�$�
������"��Y�
������"��;"��3�	�$�4
�
�5"����4
�
�5"���	�	�"����ggf
	Cgcache	Cgls		3gnreq		3gnrest		3greq		�grest		�gls		&�ggf-sym		3�g	emit-rest			K�gemit-req	
	K�gt		m�gn	��gn	��gfilenamefoop/goops/dispatch.scm�
	t
��		v	��		w	��	
	y	��		y	��		y	(��		y	��		z	��		z	��		z	)��		z	��		y	��	&�	��	,�	��	-�	��	1�	��	3�	��	3�	��	e�	 ��	l�	��	m�	��	~�	 ��	�	����	����	����	����	����	����	"����	����	����	����	����	����	����	����	$����	-����	����	
����	����	
����	����	����	����	#����	,����	����	
����	����	
����	���	{	���	{	���	w	��	|	��	|	��
	|	1��	|	%��	|	��	|	��	~	��	~	��#	~	+��%	~	��'	~	��3	~	��3	v	��E	C	gnamegcompute-dispatch-procedure�CMR	NRNMOPQRShP�-13M�NM
�$.4L4L554L>"G@L6�gargs
			Lgdispatch	&	Dgfilenamefoop/goops/dispatch.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	"�	)��	$�	��	&�	��	&�	��	)�	
��	/�	��	6�	
��	D�	
��	L�	��			L


Ch�]	HOC�ggf
		gtimer		gfilenamefoop/goops/dispatch.scm�
�
��	�	��		gnamegdelayed-compile�CTRh8]
�$"�$C4�54L��5�Cgn
		6gf		6gls			6gt			gfilenamefoop/goops/dispatch.scm�
�	��	�	��	�	��	�	��	�	��	�	��	 �	��	%�	��	'�	��	(�	��	-�	&��	2�	/��	4�	��	5�	��		6	gnameg	map-until�Ch8�]�$#�$��&��"���CC(�CC�gx
		8gy		8gfilenamefoop/goops/dispatch.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	'��	�	��	�	"��	 �	*��	(�	��	2�	��	5�	��		8	gnamegequal?�COUW2Ph��]"OOQQ45$X4455"1(64��5$
�	�@�"���45"���6�ggf
	�gargs	�g	map-until		�gequal?		�gtypes		;�gcache		A	rgfilenamefoop/goops/dispatch.scm�
�
��	�	��	#�	��	%�	��	)�	��	*�	��	-�	��	3�	+��	5�	��	;�	��	;�	��	A�	��	G�	
��	O�	��	P�	��	U�	%��	W�	��	[�	��	_�	
��	b�	$��	e�	��	i�	��	l�	��	r�	��	r�	��	s�	��	y�	%��	{�	����	����	��	�	gnamegcache-dispatch�CSRh�]45@�ggf
		gargs		gfilenamefoop/goops/dispatch.scm�
�
��	�		��	�	��			gnameg
cache-miss�C2Rh0�]

�$"�$C�4L��5�C�gls
		/gn		/gt			gfilenamefoop/goops/dispatch.scm�
�	��	�	��	�	��	�	��	�	��	�	��	"�	��	#�	��	(�	 ��	+�	)��	-�	��	.�	��
		/	gnamegfirst-n�C(WZOPQRTUh z]3O"�(`454545�4>"G44	5>"GC4
5�$4455"��"��_"V4545�4>"G44	5>"GCQ
"���rggf
	gargs	g
applicable		gn		�gls		�gtypes			tgcmethod		(	tgcache		>	tglen	�	grest?	�	gtypes	�	gcmethod	�	gcache	�	gfirst-n		gfilenamefoop/goops/dispatch.scm�
�
��	�	��	�	��	�	��	�	��	 �	��	"�	��	(�	��	(�	��	4�	��	5�	��	;�	%��	=�	��	>�	��	>�	��	A�	��	G�	��	N�	��	W	��	]	��	^	��	i	��	w�	��	}�	��	�	����	����	����	����	'����	����	����	����	����	����	����	����	����	����	����	����	����	%����	����	����	����	����	����	���	���	���	���	��	��6		gnamegmemoize-effective-method!�C[R\][^h8�]
4&"5$
66�ggf
		3gargs		3g
applicable			3gfilenamefoop/goops/dispatch.scm�
	
��	
	��	
	��	
	��	
	��	!	��	+	��	3	��			3	gnamegmemoize-method!�CR_ii`6�gm
		,gfilenamefoop/goops/dispatch.scm�		
��	-		��	6	
���	?
��	t
���
��<�
��P�
���
����
��!*	
��!4	)��!7
��	!7
C6oop/goops/describe.go000064400000031216150536206120010602 0ustar00GOOF----LE-8-2.0v2]i4h_]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gdescribe�		�	
gfilenameS�	foop/goops/describe.scm�	gimportsS�	
�	
�	gice-9�	gsession�	�	�	gformat�	�	�	�	gexportsS�	�	gset-current-module�	�	�	gdefined?�	
�	
�	gtoplevel-define!�	 
�	!
�	"gmake�	#
"�	$
"�	%g	<generic>�	&
%�	'
%�	(gnameS�	)gadd-method!�	*
)�	+
)�	,g<method>�	-
,�	.
,�	/gspecializersS�	0g<top>�	1gformalsS�	2gx�	32�	4gbodyS�	5f~s is �	652�	7gcond�	8ginteger?�	982�	:f
an integer�	;:�	<9;�	=greal?�	>=2�	?fa real�	@?�	A>@�	Bgcomplex?�	CB2�	Dfa complex number�	ED�	FCE�	Ggnull?�	HG2�	If
an empty list�	JI�	KHJ�	Lgboolean?�	ML2�	Nfa boolean value (~s)�	Ogif�	Pgquote�	Qgtrue�	RPQ�	Sgfalse�	TPS�	UO2RT�	VNU�	WMV�	Xgchar?�	YX2�	Zfa character, ascii value is ~s�	[g
char->integer�	\[2�	]Z\�	^Y]�	_gsymbol?�	`_2�	afa symbol�	ba�	c`b�	dglist?�	ed2�	ffa list�	gf�	heg�	igpair?�	ji2�	kgcdr�	lk2�	mil�	nfan improper list�	on�	pfa pair�	qp�	rOmoq�	sjr�	tgstring?�	ut2�	vgeqv?�	wf�	xv2w�	yfan empty string�	zy�	{fa string of length ~s�	|g
string-length�	}|2�	~{}�	Oxz~��u��gvector?���2����P���v2���fan empty vector�����fa vector of length ~s��g
vector-length���2������O���������geof-object?���2��fthe end-of-file object���������gelse��fan unknown object (~s)���2������7<AFKW^chs������f.~%�����g
*unspecified*��6�����gmake-procedureS��g	procedureS��g<procedure>��glet��gname��gprocedure-name���2���������f`~s'������gdisplay���2��O�����f is ������fan anonymous��O�a�������f
 procedure������f with ������garity���2���������������gslot-bound?��g
class-name��gsafe-class-name��g<object>��f~S is an instance of class ~A~%��gclass-of���2�������2���f
Slots are: ~%�����gfor-each��glambda��gslot�����gslot-definition-name�������������f     ~S = ~A~%���2���f~S��gslot-ref���2�������f
#<unbound>��O��������������������gclass-slots�����������������g<class>��f'~S is a class. It's an instance of ~A~%���2�������fSuperclasses are:~%�����gclass�����f    ~A~%���������������gclass-direct-supers���2�������gslots��gclass-direct-slots���2���������G���f(No direct slot)~%�����gbegin��fDirects slots are:~%�����gs����������������������������O����������gclasses��gclass-direct-subclasses���2�������G��f(No direct subclass)~%��fDirects subclasses are:~%����������	���
�	�O
���
fClass Precedence List is:~%�
�gclass-precedence-list�2���gmethods�gclass-direct-methods�2���G�f(No direct method)~%��fClass direct methods are:~%������O��� �����!ggeneric-function-name�"!2�#�"�$ggeneric-function-methods�%$2�&%�'#&�(f3~S is a generic function. It's an instance of ~A.~%�)(���*f(No method defined for ~S)~%�+*��,fMethods defined for ~S~%�-,��.2�/�3.�0�/�1�-0�2O+1�3�')2�43�5
0�6
0�7gomit-generic�827��9gletrec�:g
print-args�;gargs�<;�=G;�>gnewline�?>�@=?�Ai;�B� �Cgcar�DC;�E�D�F�E�Gk;�H:G�IABFH�J�;�K�J�L�BK?�M7@IL�N�<M�O:N�PO�Qf    Method ~A~%�RQ2�SG7�Tggf�Ugmethod-generic-function�VU2�WTV�XW�Yf	     Generic: ~A~%�Z!T�[YZ�\f	(No generic)~%�]\�^OT[]�_�X^�`OS_�af	Specializers:�ba�cgmethod-specializers�dc2�e:d�f9PR`be�gf�hgprovide�C5h�]4	
54>"G45�$"i�$!4!4$'(5>"G"4+i4$./0i134���58:=?BDILNQSXZ[afnptwy{|��������"hH�]4>"G45$4>"G"�45$4>"G"�45$4>"G"�(4	>"G"�4
5$%4$"
>"G"g45$445>"G">�$4>"G" �$4>"G"�$6��$4>"G"4>"G"�45$>�$4>"G"445>"G"|�$>�$4>"G"445>"G"745$4>"G"4 >"G4!>"GC|gx
	Fgfilenamefoop/goops/describe.scm�
	#
��		$	��		$	
��		$	��		&	��	"	%	��	#	&	��	(	&	#��	-	&	��	:	'	��	D	%	��	E	'	��	J	'	#��	O	'	��	\	(	��	f	%	��	g	(	��	l	(	#��	q	(	���	%	���	)	���	)	#���	)	���	*	���	%	���	*	���	*	#���	*	:���	*	@���	*	F���	*	���	+	���	%	���	+	���	+	#���	,	 ���	+	���	-	���	%	���	-	��	-	#��	-	��	.	��	%	��	.	��	.	#��#	.	��2	/	��6	%	��9	/	#��:	/	��>	/	��?	0	��D	0	'��I	0	��V	1	��[	1	'��`	1	��m	2	��w	%	��{	2	$��|	2	���	2	���	3	���	3	'���	3	���	4	���	4	'���	4	?���	4	���	5	���	%	���	5	$���	5	���	5	���	6	���	6	'���	6	���	7	���	7	'���	7	?���	7	���	8	��	%	��	8	��	8	#��	8	��	9	��"	9	#��)	9	��2	:	��7	:	
��<	:	��^	FC5>"G45�$"i�$!4!4$'(5>"G"4+i4$./�i134�����������
h�]	45$4>"G"4>"G4>"G4$a">"G4>"G4>"G	6gx
	�gname		�gfilenamefoop/goops/describe.scm�
	=
��		>	��			>	��		?	��		@	��		@	��		@	��	+	A	��	=	B	��	A	B	
��	F	B	��	O	C	��	W	C	
��	_	C	��	d	C	��	m	D	��	q	D	
��	v	D	��		E	���	E	
���	E	���	F	��	�C5>"G���h�]45$6C�gclass
		gfilenamefoop/goops/describe.scm�
	K
��		L	��			L	��		L	��		L	��		M	��		gnamegsafe-class-name�C�R45�$"i�$!4!4$'(5>"G"4+i4$./�i134�������������h8�]	454L5$44L55"6�gslot
		8gname			8gfilenamefoop/goops/describe.scm�
	V	��		W	��			W	��		X	��		Z	��		Z	��	 	[	��	%	[	'��	&	[	,��	0	[	��	6	\	��	8	X	��
		8C�hX�]44�5>"G4>"G4O4�5>"GC�gx
		Sgfilenamefoop/goops/describe.scm�
	P
��		Q	��		Q	
��		R	��		R	��		R	��		Q	��	 	U	��	%	U	
��	*	U	��	3	V	��	=	]	��	B	]	��	D	]	��	I	V	��		SC5>"G45�$"i�$!4!4$'(5>"G"4+i4$./�i134 ��������hu]456mgclass
		gfilenamefoop/goops/describe.scm�
	i	��		i	'��		i	2��		i	��		C������hq]456igs
		gfilenamefoop/goops/describe.scm�
	r	��		s	!��		s	,��		s	��		C���hq]456igs
		gfilenamefoop/goops/describe.scm�
	}	��		~	!��		~	,��		~	��		C
��hu]456mgs
		gfilenamefoop/goops/describe.scm�
�	��	�	#��	�	.��	�	��		ChPC]	4454�5>"G4>"G445>"G45(4	>"G"'4
>"G4>"G45(4
>"G"'4>"G4>"G4>"G445>"G45(64>"G6;gx
	Mgslots	W�gclasses��gmethods#Mgfilenamefoop/goops/describe.scm�
	c
��		d	��		d	
��			e	
��		e	��		e	/��		e	��		d	��	%	h	��	*	h	
��	/	h	��	8	i	��	=	j	��	H	i	��	Q	m	��	W	m	��	_	n	��	`	o	��	e	o	��	j	o	��	w	q	
��	|	q	���	q	
���	r	
���	x	���	x	���	y	���	z	���	z	���	z	���	|	
���	|	���	|	
���	}	
����	����	
����	���	��	�	���	���	��#�	��+�	��0�	��2�	��3�	
��8�	��=�	
��M�	
��2	MC5>"G45�$"i�$!4!4$'(5>"G"4+i4$./%i1344��!$(�*,�hc]6[gx
			gfilenamefoop/goops/describe.scm�
�	��		�	 ��			C
h`]454544�5>"G(	64>"G	6gx
		]gname		]gmethods			]gfilenamefoop/goops/describe.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	�	��	"�	"��	$�	��	)�	��	7�	��	<�	��	@�	��	A�	
��	F�	��	M�	
��	]�	
��		]C5>"G45�$"i�$!4!4$'(5>"G"4+i4$./,i6�184g��>��QUY!\ach-13"q(6�$34 >"G44�5>"G�"���4 >"G445>"G64>"G(G45$445>"G"4	>"G"4
>"G45"��
�gx
		gomit-generic		gargs		
	~ggf	��gfilenamefoop/goops/describe.scm�
�
��	
�	��	�	��	�	-��	�	 ��	�	��	�	 ��	1�	 ��	4�	)��	9�	:��	;�	)��	@�	 ��	K�	,��	Q�	 ��	R�	 ��	d�	 ��	g�	)��	r�	 ��	~�	 ��	~�	��	�	����	����	����	����	����	����	����	����	����	.����	����	����	����	����	����	����	����	���	��(		
C5>"Ghi6�gm
		,gt
	4	Igt
��gt
	�	�gt
��gt
J_gt
��gfilenamefoop/goops/describe.scm�		
��	-	#
���	=
��	�	K
��	�	P
���	c
��C�
����
��y�		��{�
��	{
C6oop/goops/simple.go000064400000003330150536206120010307 0ustar00GOOF----LE-8-2.0�]D4h2]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gsimple�		�	
gfilenameS�	foop/goops/simple.scm�	gimportsS�	
g	accessors�	
�	�	�	gexportsS�	gdefine-class�	�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	gany�	geach-any�	 ��	!g
syntax-object�	"g$define-class-with-accessors-keywords�	#gtop�	$#�	%gribcage�	&gdummy�	'garg�	(&'�	)g
m-1f33f87a8-1�	*)#�	+*$�	,f
l-1f33f87a8-6�	-f
l-1f33f87a8-7�	.,-�	/%(+.�	0%�	1gx�	21�	3*�	4f
l-1f33f87a8-3�	54�	6%235�	7$/06�	8ghygiene�	98�	:!"79�	;gsyntax-violation�	<;�	=;�	>f-source expression failed to match any pattern�	?gmodule-use!�	@gmodule-public-interface�	Agcurrent-module�	Bgresolve-interface�	C�C5h��]4	
54>"G4 :h>]�C6gdummy
		garg					C=>h(�]	45$@6�gx
		"gtmp		"gfilenamefoop/goops/simple.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgargg...C5R?i4@i4Ai554BiC56�gm
		,gfilenamefoop/goops/simple.scm�		
��w		
��|		&���		
���		
���		 ���		
���	
��		�
C6oop/goops/save.go000064400000146545150536206120007774 0ustar00GOOF----LE-8-2.0M�]�4h�.]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gsave�		�	
gfilenameS�	foop/goops/save.scm�	gimportsS�	
ginternal�	
�	�	gutil�	�	�	�	gexportsS�	gsave-objects�	gload-objects�	grestore�	g
enumerate!�	genumerate-component!�	gwrite-readably�	gwrite-component�	gwrite-component-procedure�	gliteral?�	greadable�	g
make-readable�	 �	!g
re-exportsS�	"gmake-unbound�	#"�	$gset-current-module�	%$�	&$�	'�	(gdefined?�	)'(�	*'(�	+g
immediate?�	,gtoplevel-define!�	-',�	.',�	/gmake�	0'/�	1'/�	2g	<generic>�	3'2�	4'2�	5gnameS�	6gadd-method!�	7'6�	8'6�	9g<method>�	:'9�	;'9�	<gspecializersS�	=g<top>�	>gformalsS�	?go�	@?�	AgbodyS�	B�	Cgmake-procedureS�	Dg	procedureS�	Eg<null>�	F�	Gg<number>�	Hg	<boolean>�	Ig<symbol>�	Jg<char>�	Kg	<keyword>�	L'=�	M'=�	Ngenv�	O?N�	Pgfile�	Q?PN�	Rgwrite�	SR?P�	TS�	Ugmake-weak-key-hash-table�	Vg	readables�	Wgmake-syntax-transformer�	XW�	YW�	Zgmacro�	[g$sc-dispatch�	\[�	][�	^g_�	_gany�	`^_��	ag
syntax->datum�	ba�	ca�	dg
datum->syntax�	ed�	fd�	ggquote�	hg	copy-tree�	igsyntax-violation�	ji�	ki�	lf-source expression failed to match any pattern�	mg
hashq-set!�	ng	hashq-ref�	ogreadable-expression�	pg	readable?�	qg	excluded?�	rgdisplay�	sgobject-info�	tgbinding?�	ugvisiting�	vgdefinedS�	wgbinding�	xgor�	ygbegin�	zgadd-patcher!�	{g<string>�	|g<vector>�	}gnot�	~gvector?�	~?��}��glet�������garray-for-each��glambda��gif��?N��}���gset!�����������@�����?�������x�������gn��g
vector-length���?���������gzero?������f#()��r�P��gnot-literal?��?N��}����������f(vector ��f#(��������r�P��gand��g
vector-ref���?
���N�������r'P�������g
quasiquote��gvector-set!��gunquote���?��������
���������PN��gdo��gi��g+�������������g=����������r P���?����N��������������������������������PN����������r)P������������������������S������g<array>��gshared-array-root���?���N�����g
array-rank��greverse��g	list-tail��gt��gs��gr��gq��gp��gm��gl��gk��gj���������������ggensym��fi��gshared-array-offset��gmap��g*��g-��garray-dimensions��gshared-array-increments��gmake-mapper��g	array-ref��g
array-set!��gwrite-array��groot���������gcond��~���}���r#P���?��r�P���(?PN��y�������S�������t�N��f(make-shared-array ��r�P���N�������ggoops-error��f'write-readably(<array>): internal error��������PN��?�rP�gfor-each�gdim��rP�����?��	�������
gelse�f(list->uniform-array �rP�
f '() �r
P�f(list ��?PN�
����	�����g<pair>�gcar�?�N���gcdr�?�N����� �!gproper?�"gloop�#gls�$#?�%$�&gnull?�'&#�(gpair?�)(#�*#�+t*N�,}+�-"*�.�),-�/x'.�0�"%/�1!0�2g1?�3(�4}3�5tN�6x45�726�8ginfos�9g�:89�;grefs�<g	ref-stack�=<N�>;=�?17�:>�@}��A@(�B!�Cf(cons �D2C�Ef(cons* �F
E�G�ABDF�HrGP�IN�J��I�K�J��Lgset-car!�M��NL�M�O�N�POPN�Q#*�Rgprev�SR?#�TQS�U})�Vt#N�WxUV�X}'�Yf .�ZrYP�[�@Z�\#N�]��\�^�]��_gset-cdr!�`�R�a�#�b_`a�c�b�d#cPN�ey[�^d�f�Xe�gWf��hgcons�is#N�jhi8�k�8j�lg	push-ref!�ml#N�ng	visiting?�o8�pno�q�p�r#�srN�t��s�u�t��v�r�wLav�x�w�yrxPN�z�Tg�kmquy	�{ginfo�|{�}n{�~�}��|~��8���=;���?HKPz�������gsetter��������ginteger?��gstandard-get��gstandard-set��gmemq��gslot-definition-allocation��gclassS��g
each-subclassS������gclass-slots��gslot-ref��ggetters-n-setters��gget-set-for-each��gslot-definition-accessor��gslot-definition-name��ggeneric-function-name��gaccess-for-each��g@@��g%allocate-instance���'���9��gname��gval������g	slot-set!���?���������glist��g<object>��gget��gset�������?���������gunbound?������}����N�����������������gclass-of���?����������gclass���������f	(restore ��r�P��g
class-name������r�P��f (��r�P��gslotdefs��gfilter��gslotdef���������g��������gslot-bound?�������?����?���q�N�������x����}������������������������&���}����������r�P��r�P���������������y��������������ganame��������g#��r�P������q�N������N��������������������������������g���������������������PN��
�����������������������������������	�����g<class>���?��r�P������?��r�P����f#No read-syntax for <method> defined����gis-a?�'�'�g
<accessor>�'�'�	gensure-accessor�
'	�'	�gexcluded�
gpass-2?�gobjects�gpre-defines�glocals�g	stand-ins�gpost-defines�gpatchers�gmultiple-bound�g
<environment>�g
make-class�gaccessorS�g	init-formS�gmake-hash-table�	=�g
init-thunkS�g
init-valueS�'��'��'�� '��!gclass-precedence-list�"'!�#'!�$gclass-redefinition�%'$�&'$�'g
initialize�(ginitargs�)N(�*gnext-method�+*�,gget-keyword�-gexcludedS�.,-(�/g=>�0g	excludees�10�2ge�32�4ghashq-create-handle!�5N�6452�7�36�870�9�18�:./9�;�:�<+;�=sN�>n=?�?>�@'��A'��Bgx�C?NB�Dm=?B�ED�Fghashq-get-handle�Ggpop-ref!�Hg	container�Ig
<object-info>�Js?N�KwJ�LK�M+?�Nq?N�O{J�PO�Qt{�R}Q�Sgeq?�Tu{�UgdefiningS�VSTU�W=�X&W�Y�VX�ZxRY�[{�\�Z[�]�P\�^xMN]�_^�`gpass-2S�agbinding-name�bgbinding-object�cgpass-1!�dgstring->symbol�eg
string-append�ff%o�ggnumber->string�hg
make-local�igboolean?�jgname-bindings!�kgappend�lgpass-2!�mf(define �nf)
�og
write-define!�pgwrite-empty-defines!�qgwrite-definition!�rf(let* (�sf(�tf	
       (�ugwrite-let*-head!�vgwrite-rebindings!�wgnewline�xgwrite-definitions!�ygassq�zgwrite-patches!�{gwrite-immediates!�|gwrite-readables!�}galist�~grest�P~���}���gport��gopen-output-file���P���������gapply���}�~��g
close-port������g
*unspecified*������������g
<output-port>��g>=��glength���~������~�����9�����guses����	��gcadr���~�����9����������/-��N������c}N��j}N��lN��&���}���guse-modules��gunquote-splicing��������������R�P��wP��y���������{}P��N��&���xmPN��f��z�PN��y����xmPN��pPN��uPN��f  (set! ��N��v��PN��x�PN��f  ��z�PN��f  )
��r�P��y���������������|}PN��N������vm�PN������������
����������P��glet*��gopen-input-file���P������������������������gmodule-public-interface��gcurrent-module��giface��g<input-port>��gmake-module������������gmodule-use!��gthe-scm-module������������gsave-module-excursion��$���gsexp��gread���P���������geof-object?������}���geval�������"���y����������"�������������g
module-map��gvar������gvariable-ref������h������������������������C5h(�#]4	
 !#5	4&>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<=i>@ABCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	X
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Ei>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	Z
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Gi>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	[
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Hi>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	\
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Ii>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	]
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Ji>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	^
��		C5>"G4*+5�$"+i�$!4.+4145+5>"G"48+i41;<Ki>@AFCDhT]CLgo
		gfilenamefoop/goops/save.scm�
	_
��		C5>"G4*5�$"i�$!4.41455>"G"48i41;<=iM>OAFCDhe]C]go
		genv		gfilenamefoop/goops/save.scm�
	e
��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<=iMM>QATCDRh]6wgo
		
gfile		
genv			
gfilenamefoop/goops/save.scm�
	g
��	
	i	��		
	C5>"G4Ui	=5VR4YZ]`cfghhn]45Cfgexp
		gfilenamefoop/goops/save.scm�
	r
��		s	��			s	��		s	��		Chf]	45L4?6^gargs
		gv			gfilenamefoop/goops/save.scm�		r
��		Cklh(d]	45$O@6\gy
		'gtmp		'gfilenamefoop/goops/save.scm�
	r
��		'C5RmVh �]4>"GC�gobj
		gexpr		gfilenamefoop/goops/save.scm�
	u
��		v	��			gnameg
make-readable�CRnVh�]45C�gobj
		gfilenamefoop/goops/save.scm�
	y
��		z	��		z	��		z	��		gnamegreadable-expression�CoRnVht]6lgobj
		
gfilenamefoop/goops/save.scm�
	~
��	
		��		
gnameg	readable?�CpR+Rpoqrstuvw
h��]45$4>"GC45$445>"GC45$4>"GC4545$*4	5
&445>"GCC4>"GC�go
	�gfile	�genv		�ginfo		t�gfilenamefoop/goops/save.scm�
�
��	�		��	
�	��	�	��	$�		��	.�	��	/�	��	2�	��	?�	��	J�		��	V�	��	W�	��	l�	��	t�		��	w�	����	����	����	����	����	 ����	����	(��	�	gnamegwrite-component-procedure�g
documentationfReturn #f if circular reference�CR4YZ]`cfxyrzh0�]C�gobject
		)gpatcher		)gfile			)genv			)gfilenamefoop/goops/save.scm�
�
��	�	��		)	Chg]	45L4?6_gargs
		gv			gfilenamefoop/goops/save.scm�	�
��		Cklh(e]	45$O@6]gy
		'gtmp		'gfilenamefoop/goops/save.scm�
�
��		'C5R4*5�$"i�$!4.41455>"G"48i41;<{iM>OABCDhf]C^go
		genv		gfilenamefoop/goops/save.scm�
�
��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<|iM>OA�CD�hq]4L5$CNCigo
		gfilenamefoop/goops/save.scm�
�	��	�	#��	�	��	�	��		Ch0�]
�$!H4O>"GJCC�go
		,genv		,gliteral?		
	*gfilenamefoop/goops/save.scm�
�
��	�	��		�	��	
�	��	
�	��	+�	��		,	C5>"G4*5�$"i�$!4.41455>"G"48i41;<|iMM>QA�CD�r���z�Rh��]#�$�45
�$645�4$">"G$+4
�5$4'>"G""4
�5$"14>"G4	

�>"G"��$"�4 >"G$,4�5$4'>"G""4�5$"34>"G4	�>"G�"��T"��M)6
6�go
	�gfile	�genv		�gn		�gnot-literal?		,�gt	��gi	�|gt	1sgfilenamefoop/goops/save.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	�	��	�	��	"�	��	#�	%��	,�	 ��	,�	��	/�	��	7�	��	9�	��	?�	��	F�	��	T�	��	U�	��	[�	!��	_�	��	c�	��	d�	����	����	����	����	3����	����	����	����	����	����	����	����	#���	���	���	��+�	!��1�	��U�	!��^�	6��a�	!��v�	��|�	����	����	��0	�	C5>"G4*5�$"i�$!4.41455>"G"48i41;<�iM>OA�CD�hx]456pgo
		genv		gfilenamefoop/goops/save.scm�
�
��	�	��	�	��			C5>"G������������h(�]�$�"C�gind
		!gdim		!ginc			!gfilenamefoop/goops/save.scm�
�	��	�	��		�	!��	
�	��	�	-��	�	7��	�	-��	 �	��			!	C��h��]454	�$4	�5"2"#
�$" �45�"���"���54	54
454
55��C�garray
	�gn		�gn		+	Ngls		+	Ngindices		[�gfilenamefoop/goops/save.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	*��	!�	D��	#�	��	+�	��	.�	%��	3�	!��	<�	+��	=�	1��	A�	9��	C�	1��	F�	+��	N�	%��	N�	��	Q�	.��	Y�	��	[�	��	[�	��	_�	��	d�	��	k�	��	r�	��	y�	����	����	�� 	�gnamegmake-mapper�C�Rr��rz�h�]"�(a�
�$"�4L4
�5?L$)4L5$4'L>"G""4LL5$"04L>"G4L���L>"G"��$C4 L>"G4L4�5?L$)4L5$4'L>"G""4LL5$"04L>"G4L���L>"G�"��I"��B�"t�$C
�$4 L>"G"4LL>"G4L��>"G4)L>"G�"���
"����gdims
	�gindices	�gn		jgel		*�gt		f�gi	�cgel	�Zgt	Wgn	m�gi	s�
gfilenamefoop/goops/save.scm�
�	��		��			��		��		
��	�	��	�	��	�	"��	 �	)��	&�	2��	(�	)��	*�	"��	*�	��	2�	��	3�	#��	?�	��	@�	��	f�	����	����	����	����	����	����	 ����	)����	2����	)����	 ����	����	����	#����	����	���	��<�	��]�	��c�	��m	��m	
��s	��x	��|	���	���	���	���	���		���		���		"���		���
	���	���	��6	�	gnamegloop�C�hX]
4>"GOQ445>"G)6�gprefix
		Ugo		Ugnot-literal?			Ugfile			Ugenv			Ugloop		#	Mgfilenamefoop/goops/save.scm�
�
��	�	��	#�	��	6�	��	=�	��	B�	��	U	��		U	gnamegwrite-array�C�R4*5�$"i�$!4.41455>"G"48i41;<�iMM>QACD�r��Rt�z���rh j]4 L>"GL6bgdim
		gfilenamefoop/goops/save.scm�
 	��	!	��	"	��		C�
h�=]4545$I�$:4#>"G445>"G(6645$�4>"G45$4'>"G"4	5$",4>"G4
45>"G4 >"G44
5>"G4O45>"G)64>"G445>"G4>"G65go
	�gfile	�genv		�groot			�gt	��gfilenamefoop/goops/save.scm�

��		��			��		��		��		��		��	 	��	4	��	7	��	D	��	Y	��	a	��	b	��	n	��	o	��	s	��	z	���	���	���	���	���	���	)���	���	��	��	��	�� 	��%#	��0 	��@$	��A&	��E&	��L&	��U'	��X'	��e'	��n(	��r(	��y(	���)	���)	��-	�	C5>"G4*5�$"i�$!4.41455>"G"48i41;<iM>OA CDh(�]
4�54�5$CC�go
		!genv		!gliteral?			!gfilenamefoop/goops/save.scm�
4
��	5	��	5	(��	5	��	5	��	6		��	6	��	6		��	6	��
		!	C5>"G4*5�$"i�$!4.41455>"G"48i41;<iMM>QA�CDt<rCEzLY_sl�n�nhb]456Zginfo
		gfilenamefoop/goops/save.scm�
d	��	e	��		Ch �]C"3("0�$4�5$"�"���""������$"
4�545�45H4$$"$""(>"G$*4�5$4'>"G""4�5$"/4>"G4	
�>"G"��$
45"$�("�$"4>"G4 >"G$)45$4'>"G""45

$".4>"G4		>"G
4)>"�G"�4 >"G4
5J�K4>"G445J�>"G$*4�5$4'>"G""4�5

$"/4>"G4	
�>"G
�	"��F�	"��94J>"G456�go
	gfile	genv		gls			9gt		F	agproper?		sg1?		sgnot-literal?		sginfos		sgrefs		sgt	�/gls	3�gprev		3�gt	
��gt	
��gfilenamefoop/goops/save.scm�
9
��	:	��	;	��	
;	��	<	��	<	��	=	!��	=	+��	"=	!��	&<	��	.>	"��	4>	��	9:	��	D?	��	E?	��	F?	��	F?	��	U@	��	Z@	��	^@	��	bA	��	kA	��	lB	��	mC	��	s:	��	~D	���D	
���E	���D	
���F	���G	���D	���I	���J	
���J	���J	
���I	���K	���L	���L	��L	��L	,��L	��3M	��6O	��:O		��;P	
��HO	
��LM	��RQ		��\S	��aT	��eT	��lT	��uU	���V	���W	���V	���X	���Y	���Y	#��Z		��[	��,\	��7\	��9\	��:]	��N^	��X^	��^^	��l_	��m`	��r`	��v`	��z_	
��{a	
���b	���b	���b	 ���b	0���b	 ���M	���M	���M	
���M	���d	��g	��X		C5>"G������hH]
��45$L454564455$CL���6�gslotdef
		Dgg-n-s		Dgg-n-s			Dgfilenamefoop/goops/save.scm�
s	��	t	��	t	��		u	��	u	��	v	��	v	2��	%v	��	&w	��	)w	"��	3w	��	7u	��	>y	��	Ay	)��	Dy	��		D	C���h �]O45456�gproc
		gclass		gfilenamefoop/goops/save.scm�
r
��	z	��	{	��	{	��	{	��	s	��			gnamegget-set-for-each�C�R���������
h�N]��4545$+L45$45"45456445	5$CL45$45"���6Fgslotdef
		gg-n-s		gg-n-s		
	ga		
	gfilenamefoop/goops/save.scm�
~	��		��	�	��	
	��	�	��	�	��	�	��	+�	��	,�	$��	8�	��	?�	��	G�	��	H�	��	K�	"��	U�	��	Y�	��	^�	��	j�	��	k�	$��	y�	��	|�	��	�	��			C���h �]O45456�gproc
		gclass		gfilenamefoop/goops/save.scm�
}
��	�	��	�	��	�	��	�	��	~	��			gnamegaccess-for-each�C�R4YZ]`cf�?���g�@
h8�-13���	���C�gclass
			4gslots			4gexps				4gfilenamefoop/goops/save.scm�
�
��	�	��			4	
	Chg]	45L4?6_gargs
		gv			gfilenamefoop/goops/save.scm�	�
��		Cklh(�]	45$O@6�gy
		'gtmp		'gfilenamefoop/goops/save.scm�
�
��		'g
documentationf)(restore CLASS (SLOT-NAME1 ...) EXP1 ...)�g
macro-typegdefmacro�g
defmacro-argsgargsC5R4*5�$"i�$!4.41455>"G"48i41;<�iM>OA�CD��h �]
4L545$CL6�gget
		 gset		 gval				 gfilenamefoop/goops/save.scm�
�	��	�	!��		�	��	�	!��	�	��	 �	��		 	Ch �]4O�>"GCygo
		 genv		 gfilenamefoop/goops/save.scm�
�
��	�	��	�	��	�	��		 	C5>"G4*5�$"i�$!4.41455>"G"48i41;<�iMM>QA�CDr���������q�hP�]	4455$",4L455$44L455L5"�C�gslotdef
		Ogt		Mgfilenamefoop/goops/save.scm�
�	��	�	��	�	$��	�	��	�	��	�	#��	$�	2��	,�	#��	0�	��	1�	#��	4�	$��	9�	0��	A�	$��	E�	#��	N�	��		OC��r�h(w]4 L>"G45L6ogslotdef
		#gfilenamefoop/goops/save.scm�
�	��	�	��	�	!��	#�	��		#C�r�#qz��gh�X]4 L>"G4L545$L64L5$C4L5$4'L>"G"4LL5$C4L>"G$L"	L
L6Pgname
	�ganame	�gget		�gset		�gval		�gt		;�gt		v�gfilenamefoop/goops/save.scm�
�	��	�	��	�	"��	�	��	 �	 ��	*�	��	.�	)��	2�	 ��	3�	 ��	;�	��	G�	$��	S�	 ��	T�	$��	v�	 ����	1����	5����	5��	�	C
h��]�4>"G445>"G4>"G4O455("444�5>"G4	
O�>"G4)>"G4O>"G)6�go
	�gfile	�genv		�gclass		�gslotdefs		]�gfilenamefoop/goops/save.scm�
�
��	�	��	�	��	�	��	�	
��	�	��	�	��	�	
��	,�	��	5�	��	9�	
��	@�	��	I�	��	U�	��	]�	��	]�	��	e�	��	j�	��	m�	��	r�	+��	t�	��	{�	����	����	����	����	����	����	��	�	C5>"G4*5�$"i�$!4.41455>"G"48i41;<�iM>OABCDhf]C^go
		genv		gfilenamefoop/goops/save.scm�
�
��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<�iMM>QA�CDr�h�]456�go
		gfile		genv			gfilenamefoop/goops/save.scm�
�
��	�	��	�	��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<2iM>OABCDhf]C^go
		genv		gfilenamefoop/goops/save.scm�
�
��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<2iMM>QA�CDr�h�]456�go
		gfile		genv			gfilenamefoop/goops/save.scm�
�
��	�	��	�	��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<9iM>OABCDhf]C^go
		genv		gfilenamefoop/goops/save.scm�
�
��			C5>"G4*5�$"i�$!4.41455>"G"48i41;<9iMM>QACD�h�]6�go
		gfile		genv			gfilenamefoop/goops/save.scm�
�
��	�	��	�	��			C5>"G4*s5�$"4si5�$24.s44*s5$si"s5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*
5�$"4
i5�$64.
44*
5$	
i"
5>"G"4*<5�$"4<i5�$64.<44*<5$	<i"<5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G"4*5�$"4i5�$64.44*5$	i"5>"G""�4.4issihG]	=6?gfilenamefoop/goops/save.scm�	�	��		
CihG]	=6?gfilenamefoop/goops/save.scm�	�	��		
C

i<<iiiiiiii55>"G"4*5$�4i5$�4�i 4#i55$�4&i4issihG]	=6?gfilenamefoop/goops/save.scm�	�	��		
CihG]	=6?gfilenamefoop/goops/save.scm�	�	��		
C

i<<iiiiiiii55>"G""��J""��B""��:4*'5�$"'i�$#4.'4145'5>"G"48'i41;<iM>)A<C,-4hh]4L56`ge
		gfilenamefoop/goops/save.scm�
	��	
	0��	
	��		Ch8�]
4L>"G45$
O6C�genv
		7ginitargs		7gt		 	7gfilenamefoop/goops/save.scm�

��	
		��	 
	��	5	��		7	Chd]OC\greal-next-method
		
gfilenamefoop/goops/save.scm�

��		
CD5>"G4*s5�$"si�$!4.s4145s5>"G"48si41;<MM>OA?CDnshx]456pgo
		genv		gfilenamefoop/goops/save.scm�

��		
��		��			C5>"G4*s5�$"4si5�$24.s44*s5$si"s5>"G"484Asi541;<MMM>CAECDmsh�]456go
		genv		gx			gfilenamefoop/goops/save.scm�

��		��		��			C5>"GFh�]456�go
		genv		gfilenamefoop/goops/save.scm�

��		��		��			gnameg	excluded?�CqR�h�]4545�6�gpatcher
		genv		gfilenamefoop/goops/save.scm�

��		%��		��		��			gnamegadd-patcher!�CzR�<h�]4545�6�go
		genv		gfilenamefoop/goops/save.scm�

��		 ��		��		��			gnameg	push-ref!�ClR�<h�]4545�6genv
		gfilenamefoop/goops/save.scm�

��	 	��	 	��	 	��		gnamegpop-ref!�CGR<h]45�Cwgenv
		gfilenamefoop/goops/save.scm�
"
��	#	��	
#	��		gnameg	container�CHR4*u5�$"4ui5�$24.u44*u5$ui"u5>"G"4*w5�$"4wi5�$24.w44*w5$wi"w5>"G"4*5�$"4i5�$24.44*5$i"5>"G"4*I5$=4Ii5$�4�i 4#Ii55$]4&Ii4iuuiwwii5I5>"G"V4.I4iuuiwwii5I5>"G"V4.I4iuuiwwii5I5>"G"V4.I4iuuiwwii5I5>"GuinR4*w5�$"wi�$!4.w4145w5>"G"48wi41;<Hi>|ABCDhX]CPginfo
		gfilenamefoop/goops/save.scm�
0
��		C5>"G4*w5�$"wi�$!4.w4145w5>"G"48wi41;<MM>OALCDwshx]456pgo
		genv		gfilenamefoop/goops/save.scm�
3
��	4	��	4	��			C5>"GwitR4*5�$"i�$!4.41455>"G"48i41;<Hi>|AFCDhX]CPginfo
		gfilenamefoop/goops/save.scm�
8
��		C5>"G4*5�$"i�$!4.41455>"G"48i41;<MM>OA_CD+qstuU<	hx5]45$C45$C4545�$"45&
45��"$6C-go
		rgenv		rgt				rgt			rginfo		1	rgt		;	fgfilenamefoop/goops/save.scm�
>
��	?	��		?	��	@	��	?	��	)A	��	1A	��	4D	��	;D	��	;D	
��	IG	��	UG	��	VH	"��	]H	��	^H	��	jD	��	pI	
��		r	C5>"G+pq
stn`�wH/IlGhx,]45$C45$C45$C45$K4545$45��C4	5$44
5>"GCC45$=44
5>"G45$4
544
556C4544
5>"G4>"G44
5>"G4	>"G44
5>"G4>"G4
545�6$go
	rgenv	rginfo		?�gt	�rginfo	�rgfilenamefoop/goops/save.scm�
U
��	V		��	
V	��	W		��	V	��	X		��	)V	��	,Y		��	6V	��	7Z	��	?Z		��	B[	��	L[	��	M_	��	V_	��	W_	��	Y`	��	e`	��	fb	���d		���V	���f	���g	���g	���i	!���i	.���i	!���i	���k	���k		���l	���m	��n	�� o	��4p	��Lq	��ir	'��pr	��rr	��(	r	gnamegenumerate-component!�CRiaRibRbhn]45L6fgbinding
		gfilenamefoop/goops/save.scm�
~	��		$��		��		Ch�]O6galist
		genv		gfilenamefoop/goops/save.scm�
|
��	~	��			gnamegpass-1!�CcRdefgh�]44556�gi
		gfilenamefoop/goops/save.scm�
�
��	�	��		�	!��	
�	&��	�	��	�	��		gnameg
make-local�ChRb+pqsw�a
h�X]4545$" 45$"	4L5$C4L545�$"45L454	5�4L5�6454	56Pgb
	�go		�gt			Bgt		&	?ginfo		Q�gfilenamefoop/goops/save.scm�
�	��	�	��		�	��	�	��	�	��	 �	��	&�	��	4�	��	F�	��	I�	 ��	Q�	��	T�	#��	[�	��	_�	��	i�	'��	p�	'��	w�	 ��	x�	'��	�	 ����	����	 ����	��	�Cw��stihhR]:4O>"G"}("4�5�$6445>"G445>"CG"<4�5$���"����"���45"��s"C(N44545>"G44	545>"G4
54564�545$�4
455$<44545>"G����"��I(���"��&4544545>"G����45��"����"���4455
"���Jgalist
	genv	gls		�g	post-defs		�gls	��gi	��gpre-defs	��glocs	��gsins	��ginfo	�g	real-name	��gfilenamefoop/goops/save.scm�
�
��	�	��	�	��	%�	��	&�	��	+�	��	0�	��	4�	��	6�	��	:�	��	;�	��	T�	��	q�	��	v�	��	z�	��	~�	����	����	%����	����	����	����	����	����	����	����	����	����	����	
����	"����	
����	
����	����	
����	 ���	
���	��
�	!���	���	���	���	
���	���	��'�	��+�	
��,�	��6�	&��A�	��L�	��O�	��T�	!��W�	��g�	��m�	
��p�	��u�	!��x�	����	����	"����	����	����	(����	����	����	����	#����	����	$����	����	����	����	����	����	����	����	���	���	���	���	��R		gnamegname-bindings!�CjR�
s�u`h@�]	4L54454L5>"G456�go
		:ginfo		:gfilenamefoop/goops/save.scm�
�	��	�	��	�	��	�	��	�	&��	%�	��	:�	��		:Ck	h@�]445>"GO445454556�genv
		?gfilenamefoop/goops/save.scm�
�
��	�	��	$�	��	'�	��	.�	��	5�	��	=�	��	?�	��			?gnamegpass-2!�ClRrmRnhx]4>"G4>"G4 >"G$4'>"G"4>"G6�gname
		xgval		xgliteral?			xgfile			xgfilenamefoop/goops/save.scm�
�
��	�	��	�	��	�	��	�	��	+�	��	D�	��	E�	��	]�	��	t�	��	x�	��		x	gnameg
write-define!�CoRoho]�L6ggstand-in
		
gfilenamefoop/goops/save.scm�
�	��	�	��	
�	��		
Cowhh]4L5L6`go
		gfilenamefoop/goops/save.scm�
�	��	�	��	�	��		Ch8�]4O45>"GO456�gfile
		4genv		4gfilenamefoop/goops/save.scm�
�
��	�	��	
�	��	�	��	,�	��	4�	��		4	gnamegwrite-empty-defines!�CpRrswl�uUvGh�W]4>"G45445>"G4 >"G45$4'>"G"4>"G445>"G4	>"G445
>"G4>"G)6Ogprefix
	�go	�gfile		�genv		�ginfo		�gfilenamefoop/goops/save.scm�
�
��	�	��	�	��	�	��	"�	��	%�	
��	2�	��	;�	��	O�	��	Y�	��	Z�	��	r�	����	����	����	����	����	��	�	gnamegwrite-definition!�CqRrrqsqthh]LL6`go
		gfilenamefoop/goops/save.scm�
�	��	�	!��	�	��		Cn	h`]4>"G445�>"G4O45�>"G6�gfile
		]genv		]gfilenamefoop/goops/save.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	,�	��	5�	��	A�	��	H�	��	M�	��	Y�	��	]�	��		]	gnamegwrite-let*-head!�CuRrnh`�]4LL>"G4�L>"G4 L>"G4�L>"GL6�gpatch
		\gfilenamefoop/goops/save.scm�
�	��	�	��	�	��	�	��	#�	��	,�	��	@�	��	E�	��	L�	��	X�	��	\�	��		\Ch�]O6�gprefix
		gbindings		gfile			genv			gfilenamefoop/goops/save.scm�
�
��	�	��			gnamegwrite-rebindings!�CvRqwh h]4LLL>"GL6`go
		 gfilenamefoop/goops/save.scm�
�	��		��	 	��		 Ch�]O456�gselector
		gprefix		gfile			genv			gfilenamefoop/goops/save.scm�
�
��		��	�	��			gnamegwrite-definitions!�CxRrwyhP]4L5$44L55$�CC�$4L�54L�5�CCgpatcher
		Lgt		Lgt		!	0gfilenamefoop/goops/save.scm�
	��		 ��		��	
	,��	
	7��	!
	,��	!
	%��	3
	 ��	7	��	8	&��	=	4��	?	&��	@	&��	E	4��	G	&��	H	 ��		Lgnamegname-objects�CwhH�]	4LL>"G4OLQ45L>"GL6�gpatch
		Hgname-objects	"	3gfilenamefoop/goops/save.scm�
	��		��		��	"	��	:	��	H	��		HC�h �]O44556�gprefix
		gfile		genv			gfilenamefoop/goops/save.scm�

��		��		��		��		��			gnamegwrite-patches!�CzR+boah0�]4455$4545L6C�gb
		)gfilenamefoop/goops/save.scm�
	��		��		��		��		��		!��		!��	'	��			)Ch�]O6�galist
		gfile		gfilenamefoop/goops/save.scm�

��		��			gnamegwrite-immediates!�C{Rpby�aoo	h�Y]	4455�$C445M5$45L�45�4L5�64454455L>"G4545�M�NCQgb
	�gt	�gt	(�gfilenamefoop/goops/save.scm�
 	��	!	��	!	'��	!	��	!	��	!	��	"	��	"	��	("	��	(!	��	<%	)��	=&	)��	D%	"��	E'	)��	L%	"��	N$	��	O)	��	R)	&��	Y*	&��	\*	;��	d*	&��	l)	��	u-	,��	|.	,���-	%���-	��	�Ch�]HO6�galist
		gfile		genv			gwritten			gfilenamefoop/goops/save.scm�

��		��		��	 	��			gnamegwrite-readables!�C|R4*5�$"i�$!4.41455>"G"48i41;<i{iM��>�A�CD���h@�-13454>"G4>"GC�galist
			>gfile			>grest				>gport			>gfilenamefoop/goops/save.scm�
2
��	
3	��	3	��	4	��	+5	��			>	
	C5>"G4*5�$"i�$!4.41455>"G"48i41;<i�iM��>�A�CD�/-cjlR�w{xmz�puv��r�|�h��-1345�$�"45	�$��"454>"G4>"G4>"G(")4	�>"G4
>"G4>"G45(24
>"G4>"G"�4
>"G4>"G4>"G445>"G4
>"G4>"G4>"G4>"G44556�galist
		�gfile		�grest			�gexcluded		5�guses		5�genv		D�gfilenamefoop/goops/save.scm�
8
��	
9	��	9	��	9	��	9	+��	9	6��	:	��	(:	��	,:	��	/:	+��	5:	7��	59	��	:;	��	D;	��	G<	��	[=	��	o>	���?	���A	���A	���A	���B	���C	���D	���D	���F	���F	-���F	���G	���G	���G	��I	��I	,��I	��J	��1K	��EL	��IL	��JL	*��YL	��bM	��hM	-��qM	��zN	��~N	���N	���O	���O	���O	���P	���Q	���Q	$���Q	-���Q	$���Q	��8		�	
	C5>"G4*5�$"i�$!4.41455>"G"48i41;<{i>�A�CD��h0�]45454>"GC�gfile
		)gport			)gobjects			)gfilenamefoop/goops/save.scm�
S
��	T	��		T	��	U	��	T	��	V	��		)C5>"G4�i4�i55�R4*5�$"i�$!4.41455>"G"8i41;<�i>�A�CD�����$���hX�]4L>"G".45$C4L>"G4L5"���4L5"����gsexp
		Fgfilenamefoop/goops/save.scm�
`	��	a	��	b	��	c	��	#c		��	&e	��	:f	��	Ff	��	Fb	��	Gb	��	Sb	��		S
C�h|]�Ctgname
			gvar			gfilenamefoop/goops/save.scm�
g	��	h	��	h	��				C	hX�]	454>"G4>"G4O>"G6�gfile
		Rgm		Rgfilenamefoop/goops/save.scm�
[
��	\	��	\	��	
]	��	^	��	2_	��	Rg	��		RC56gm
		0gt
	8	Mgt
(gt
�gt
��gt
��gt
��gt
s�gt
Shgt
DYgt
2Ggt
%:gt
 5gt
��gt
#�#�gt
))gt
*{*�gt
;h;}gt
=p=�gt
D�Egt
E�E�gt
G	Ggt
G�Hgt
I!I6gt
JJ*gt
K1KOgt
K�K�gt
K�Lgt
LRLqgt
L�L�gt
MM5gt
MxM�gt
M�M�gt
N<N[gt
N�N�gt
OOgt
S,SBgt
U�U�gt
V�V�gt
[�[�gt
\\-gt
\k\�gt
^n^�gt
_O_dgt
`f`{gt
aGa\gt
�m��gt
���gt
�{��gt
���2gfilenamefoop/goops/save.scm�		
��	1	X
��	Z
���	[
���	\
���	]
���	^
��l	_
��L	e
��=	g
��W	p	��b	p
��	u
���	y
��_	~
���
��+�
���
���
����
��b�
��#��
��#�
��(�4
��*t9
��5�r
��8�}
��;a�
��=i�
��D��
��E��
��G�
��G��
��I�
��J�
��K*�
��P{�	��P��	��P��	��P��	��P��	��P�	��P�	��P�	��Q�
��Rs�	��R��	��R��	��R��	��R��	��R�	��R�	��R�	��R��
��S$
��U�
��V�
��X�
��Y�
��ZK
��[
��[�"
��[�%
��^f.
��^g0
��_H3
��`^6
��`_8
��a@>
��ggU
��gpy
��gyz
��h�|
��i��
��rF�
��tV�
��u��
��x#�
��z��
��|��
��~��
���H�
����
���^
���e
���f2
����8
���tS
����Y	����Y	'����Y	����Y
����[
��^	�(
C6oop/goops/composite-slot.go000064400000007711150536206120012006 0ustar00GOOF----LE-8-2.0�]\4h�]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gcomposite-slot�		�	
gfilenameS�	foop/goops/composite-slot.scm�	gimportsS�	
�	
�	�	gexportsS�	g<composite-class>�	�	gset-current-module�	�	�	gtoplevel-define!�	
�	
�	g
make-class�	g<class>�	gnameS�	gdefined?�	
�	
�	gis-a?�	 
�	!
�	"
�	#
�	$gmemq�	%g<object>�	&
%�	'
%�	(gclass-precedence-list�	)
(�	*
(�	+gclass-redefinition�	,
+�	-
+�	.gcompute-get-n-set�	/gmake�	0
/�	1
/�	2g	<generic>�	3
2�	4
2�	5gadd-method!�	6
5�	7
5�	8g<method>�	9
8�	:
8�	;gspecializersS�	<g<top>�	=
<�	>
<�	?gformalsS�	@gclass�	Agslot�	B@A�	CgbodyS�	Dgif�	Egeq?�	Fgslot-definition-allocation�	GFA�	Hg
propagatedS�	IEGH�	Jgcompute-propagated-get-n-set�	KJA�	Lgnext-method�	ML�	NDIKM�	ON�	Pgmake-procedureS�	Qg	procedureS�	Rgget-keyword�	Sgpropagate-toS�	Tgslot-definition-name�	Uggoops-error�	Vf%Propagation not specified for slot ~S�	Wf Bad propagation list for slot ~S�	Xgmap�	Ygslot-ref�	Zg	slot-set!�	[gfor-each�C5h��]4	
54>"G"+44ii5>"xG"q45$b4!i#5$K4$i'4*i55$-4-i4ii5>"G""��t""��l""��d4.5�$".i�$!4.414.5>"G"47.i41:;i>?BCOPFHJh �]45&6L6�gclass
		gslot		gfilenamefoop/goops/composite-slot.scm�
	1
��		2	��		2	��		3	��		1
��			Chm]OCegreal-next-method
		
gfilenamefoop/goops/composite-slot.scm�
	1
��		
CQ5>"GRSTUVWXhw]�$�CCogp
		gfilenamefoop/goops/composite-slot.scm�
	?	��		?	(��			?	$��		?	2��		Chw]�$��CLCogp
		gfilenamefoop/goops/composite-slot.scm�
	@	��		@	&��			@	"��		@	0��		CYho]4L5L6ggo
		gfilenamefoop/goops/composite-slot.scm�
	E		��		F	��		F	��		CZYh~]4L5L6vgo
		gv		gfilenamefoop/goops/composite-slot.scm�
	J	
��		K	��		K	��			C[ZYh�]4L5L6~gobject
		gslot		gfilenamefoop/goops/composite-slot.scm�
	M	��		N	&��		N	��			Chv]OLL6ngo
		gv		gfilenamefoop/goops/composite-slot.scm�
	L	
��		M	��			C
h��]14�545$"4>"G�$"4>"G454	O5��
O�(
O"	OC�gs
	�gprop	�gs-name		�gobjects		l�gslots		l�gfirst-object		v�g
first-slot		v�gfilenamefoop/goops/composite-slot.scm�
	6
��		7	��	
	7	4��	
	7	��		8	��		7	��		:	��	#	;	��	'	;	��	.	;	��	9	<	
��	=	<	��	B	=	��	F	=	��	M	=	��	V	?	��	_	@	��	l	?	��	s	A	��	v	B	��	v	A	���	I	���	I		���	C	��	�gnamegcompute-propagated-get-n-set�CJRCgm
		,gt
��gfilenamefoop/goops/composite-slot.scm�		
��	1	/
���	1
���	6
��	�
C6oop/goops/internal.go000064400000001655150536206120010642 0ustar00GOOF----LE-8-2.0�]4h�]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	ginternal�		�	
gfilenameS�	foop/goops/internal.scm�	gimportsS�	
�	
�	�	gset-current-module�	�	�	gmodule-public-interface�	gcurrent-module�	gmodule-for-each�	g%module-public-interface�	gmodule-add!�	gresolve-module�C5h�]4	
54>"G4i4i55ih�]&CL6}gname
		gvar		gfilenamefoop/goops/internal.scm�
		��			#��	
		��			��			CO4i
56�gm
		(gpublic-i
	6�gfilenamefoop/goops/internal.scm�		
��	)		��	.		)��	6		��	6	
���		���		#���		���		��
	�
C6oop/goops/active-slot.go000064400000010466150536206120011260 0ustar00GOOF----LE-8-2.0]�4h�]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gactive-slot�		�	
gfilenameS�	foop/goops/active-slot.scm�	gimportsS�	
ginternal�	
�	�	�	gexportsS�	g<active-class>�	�	gset-current-module�	�	�	�	gtoplevel-define!�	�	�	g
make-class�	g<class>�	gnameS�	gdefined?�	�	 �	!gis-a?�	"!�	#!�	$�	%�	&gmemq�	'g<object>�	('�	)'�	*gclass-precedence-list�	+*�	,*�	-gclass-redefinition�	.-�	/-�	0gcompute-get-n-set�	1gmake�	21�	31�	4g	<generic>�	54�	64�	7gadd-method!�	87�	97�	:g<method>�	;:�	<:�	=gspecializersS�	>g<top>�	?>�	@>�	AgformalsS�	Bgclass�	Cgslot�	DBC�	EgbodyS�	Fgif�	Ggeq?�	Hgslot-definition-allocation�	IHC�	JgactiveS�	KGIJ�	Lglet*�	Mgindex�	Ngslot-ref�	Ogquote�	Pgnfields�	QOP�	RNBQ�	SMR�	Tgs�	Ugcdr�	VUC�	WTV�	Xg
before-ref�	Ygget-keyword�	Zgbefore-slot-refS�	[YZT�	\X[�	]g	after-ref�	^gafter-slot-refS�	_Y^T�	`]_�	agbefore-set!�	bgbefore-slot-set!S�	cYbT�	dac�	eg
after-set!�	fgafter-slot-set!S�	gYfT�	heg�	igunbound�	jgmake-unbound�	kj�	lik�	mSW\`dhl�	ng	slot-set!�	og+�	poM�	qnBQp�	rglist�	sglambda�	tgo�	ut�	vXt�	wglet�	xgres�	yg%fast-slot-ref�	zytM�	{xz�	|{�	}gand�	~gnot�	geqv?��xi��~���]t��}]����w|�x��Fv�k��FX����su���gv��t���at���gbegin��g%fast-slot-set!���tM���et���}e��������F����Fa����s����r����Lmq���gnext-method�����FK�������gmake-procedureS��g	procedureS�C5h|]4	
54>"G"+44ii5>"xG"q4 5$b4#i%5$K4&i)4,i55$-4/i4ii5>"G""��t""��l""��d4 05�$"0i�$!4043605>"G"90i43<=i@ADE��HJNPYZ^bfjnyjh��]	L$F4L5$74L5L$#L�$"4L>"G"C64L5L$#L�$"4L>"G"C�go
	�gres		Jgres	W�gfilenamefoop/goops/active-slot.scm�
	*	��		+	��			,	��		,	��		-	#��		-	��	$	.	��	)	.	.��	-	.	��	2	.	B��	N	0	��	O	1	��	W	1	��	_	2	��	d	2	*��	h	2	��	m	2	>��	�C�hh�]L$54L5$&4L>"GL$L6CC4L>"GL$L6C�go
		cgv		cgfilenamefoop/goops/active-slot.scm�
	5	��		6	��			7	��		7	��		9	��	1	:	��	9	:	*��	>	<	��	Y	=	��	a	=	&��		c	Ch��]:45&z45�4545454	54
54�>"GO
OCL6�gclass
	�gslot	�gindex		�gs		�g
before-ref		)�g	after-ref		5�gbefore-set!		A�g
after-set!		M�gunbound		T�	gfilenamefoop/goops/active-slot.scm�
	 
��		!	��		!	��		"	��		"	*��		"	��		"	��		#	��		"	��	 	$	��	)	"	��	,	%	��	5	"	��	8	&	��	A	"	��	D	'	��	M	"	��	P	(	��	T	"	��	W	)	��	]	)	��	`	)	"��	e	)	���	*	���	 
��	�	Chj]OCbgreal-next-method
		
gfilenamefoop/goops/active-slot.scm�
	 
��		
C�56tgm
		,gt
��gfilenamefoop/goops/active-slot.scm�		
��	1	
���	 
��	
C6oop/goops/stklos.go000064400000012045150536206120010340 0ustar00GOOF----LE-8-2.0
]�4h�
]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gstklos�		�	
gfilenameS�	foop/goops/stklos.scm�	gimportsS�	
ginternal�	
�	�	�	gset-current-module�	�	�	gmodule-for-each�	gmodule-add!�	gmodule-public-interface�	gcurrent-module�	gresolve-interface�	�	gcall-with-deferred-observers�	�	�	gmodule-export!�	�	�	 �	!�	"gdefine-class�	#g
define-method�	$"#�	%gwrite-object�	&%�	'gread-options�	('�	)'�	*gappend�	+*�	,*�	-gkeywords�	.gprefix�	/gmake-syntax-transformer�	0/�	1/�	2gmacro�	3g$sc-dispatch�	43�	53�	6gany�	7geach-any�	877��	968��	:69��	;6:��	<g
syntax-object�	=gstandard-define-class�	>gtop�	?>�	@gribcage�	Agdummy�	Bgname�	Cgsupers�	Dgslot�	Egrest�	FABCDE�	Gg
m-1f4787962-8�	HG>�	IH????�	Jf
l-1f4787962-d�	Kf
l-1f4787962-e�	Lf
l-1f4787962-f�	Mfl-1f4787962-10�	Nfl-1f4787962-11�	OJKLMN�	P@FIO�	Q@�	Rgx�	SR�	TH�	Uf
l-1f4787962-a�	VU�	W@STV�	X?PQW�	Yghygiene�	ZY�	[<=XZ�	\gsyntax-violation�	]\�	^\�	_f-source expression failed to match any pattern�	`gmodule-define!�	agtoplevel-define!�	bgfree-id�	cgsetter�	dgm-1f4787962-1d�	ed>�	fe�	gfl-1f4787962-1f�	hg�	i@Sfh�	j?Qi�	k<cjZ�	lbk�	ml6�	nm7��	o6n��	pgbegin�	qABE�	re??�	sfl-1f4787962-22�	tfl-1f4787962-23�	ufl-1f4787962-24�	vstu�	w@qrv�	x?wQi�	y<pxZ�	zgif�	{<zxZ�	|gor�	}<|xZ�	~gnot�	<~xZ��gdefined?��<�xZ��gquote��<�xZ��gis-a?��<�xZ��g<generic-with-setter>��<�xZ�����<axZ��gensure-accessor��<�xZ��<xZ�����gadd-method!��<�xZ��<cxZ��gmethod��<�xZ��67���6����fl-1f4787962-2a��fl-1f4787962-2b��fl-1f4787962-2c�������@qr���?�Qi��<p�Z��<z�Z��<|�Z��<~�Z��<��Z��<��Z��<��Z��g	<generic>��<��Z�����g<primitive-generic>��<��Z�����<a�Z��gensure-generic��<��Z��<�Z�����<��Z��<��Z�C5h��]4	
54>"G4ih�]44556�gsym
		gvar		gfilenamefoop/goops/stklos.scm�
	#	��		$	 ��		$	9��		$	 ��		$	��			C4i5>"G4!$hF]456>gfilenamefoop/goops/stklos.scm�
	)
��		
C>"G4!&hF]456>gfilenamefoop/goops/stklos.scm�
	,
��		
C>"G4)4,4)5-.5>"G41"25;[,hw]45���Cogdummy
		gname		gsupers			gslot			grest						C^_h(�]	45$@6�gx
		"gtmp		"gfilenamefoop/goops/stklos.scm�
	1
��		"g
macro-typegsyntax-rules�gpatternsgnamegsupersgslotg...grestg...C5"R`h�]456�gname
		gval		gfilenamefoop/goops/stklos.scm�
	4
��		5	��		5	��			gnamegtoplevel-define!�CaR41#25oy{}����������hpQ]��	
���
�CIgdummy
		ngname		ngrest			n		n	C���������������hxQ]��	��
���
�CIgdummy
		vgname		vgrest			v		v	C^_h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefoop/goops/stklos.scm�
	8	��		9g
macro-typegsyntax-rules�gpatternsgsettergnamegrestg...gnamegrestg...C5#RC�gm
		(gfilenamefoop/goops/stklos.scm�		
��	)	#
���	&	���	&	$���	&	���	#
���	)
��t	,
���	/
��	/	��	/
���	4
��
	�
C6oop/goops/util.go000064400000005717150536206120010006 0ustar00GOOF----LE-8-2.0�]54h(]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	gutil�		�	
gfilenameS�	foop/goops/util.scm�	gimportsS�	
gsrfi�	gsrfi-1�	
�	�	�	gexportsS�	g	mapappend�	gfind-duplicate�	gmap*�	g	for-each*�	glength*�	gimproper->proper�	�	g
re-exportsS�	gany�	gevery�	�	gset-current-module�	�	 �	!g
append-map�	"gmemv�	#gcurrent-module�	$gmodule-eval-closure�	%g
top-level-env�	&g
procedure?�	'gtop-level-env?�	(gcall-with-deferred-observers�	)(�	*(�	+gmodule-export!�	,+�	-+�	.#�	/#�	0'%�	1gmap�	2gcar�	3gcdr�	4gapply�C5h��]4	
5	4 >"G!iR"h(�](C4��5$�C�6�gl
		$gfilenamefoop/goops/util.scm�
	!
��		"	��		$	��		$	��		$	��		$	��		"	��		$	 ��	"	%	0��	$	%	 ��		$gnamegfind-duplicate�CR#$h�]45$6C�gmod
		gfilenamefoop/goops/util.scm�
	(��		)	��		)	��		*	��		+		��		,		��		
gnameg
top-level-env�C%R&h�](C�6�genv
		gfilenamefoop/goops/util.scm�
	.��		/	��			/	��		0	��		0	��		gnamegtop-level-env?�C'R4*-/0hD]456<gfilenamefoop/goops/util.scm�
	2��		
C>"G123h@�-13�(C��$ 445?445?�C@�gfn
			@gl			@gfilenamefoop/goops/util.scm�
	4
��		6	��		5	��		6	��		7	��		7	��		5	��		7	��		7	)��	(	7	��	)	8	��	.	8	)��	8	8	��	9	7	��	@	9	��			@
gnamegmap*�CR4123hP�-13�(C��$*445>"G45@@�gfn
			Jgl			Jgfilenamefoop/goops/util.scm�
	;
��		=	��		<	��		=	��		>	��		>	��		<	��		>	��	 	>	��	-	>	��	:	>	?��	D	>	+��	J	?	��			J
gnameg	for-each*�CRh0�]"�$��"���C
"����gls
		)gn		gls			gfilenamefoop/goops/util.scm�
	A
��		B	��			D	��	
	B	��		B	��		C	��		B	��		)gnameglength*�CRh �]�$
�4�5�CC�gls
		gfilenamefoop/goops/util.scm�
	F
��		G	��			G	��		H	��	
	H	��		H	'��		H	��		H	��		I	��
		gnamegimproper->proper�CRC�gm
		0gfilenamefoop/goops/util.scm�		
��	7	
��*	!
���	(���	.���	2��q	4
���	;
���	A
���	F
��	�
C6oop/goops/accessors.go000064400000006265150536206120011015 0ustar00GOOF----LE-8-2.0�]44hp]gguile�	�	gdefine-module*�	�	�	goop�	ggoops�	g	accessors�		�	
gfilenameS�	foop/goops/accessors.scm�	gimportsS�	
�	
�	�	gexportsS�	gdefine-class-with-accessors�	g$define-class-with-accessors-keywords�	�	g
re-exportsS�	gstandard-define-class�	�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	 �	!g_�	"gany�	#!"��	$g
syntax->datum�	%$�	&$�	'g
datum->syntax�	('�	)'�	*gmap-in-order�	+gkeyword?�	,gget-keyword�	-gaccessorS�	.gsyntax-violation�	/.�	0.�	1f-source expression failed to match any pattern�	2ginit-keywordS�	3gsymbol->keyword�C5hx[]4	
5	4>"G4 #&)*+,-hX�]	M$NC45$NC�$$4�5$C�����CC�gslot
		Tgname	;	Jgfilenamefoop/goops/accessors.scm�
			��			��			��		!	��			��		"	��	"	$	��	&		��	'	%	��	.	%	.��	1	%	��	5	%	��	;	'	"��	;	'	��	A	(	��	F	(	3��	G	(	��	N	*	��		TCh(�-13H4O5���C�gname
			$gsupers			$gslots				$geat?		
	$gfilenamefoop/goops/accessors.scm�
	
��	
		��			��			��	!		��			$	
	Chk]	45L4?6cgargs
		gv			gfilenamefoop/goops/accessors.scm�		
��		C01h(i]	45$O@6agy
		'gtmp		'gfilenamefoop/goops/accessors.scm�
	
��		'C5R4 #&)*+,-23h��]M$NC45$NC�$X4�5$"�����4�5$C�45����C45C�gslot
	�gname	>	Ogslot	O	~gname		f	~gkeyword		o	~gfilenamefoop/goops/accessors.scm�
	2		��		3	��		4	��		6	��		3	��		7	��	"	9	��	&	3	��	'	;	��	.	;	5��	1	;	��	5	;	��	>	=	)��	>	=	��	D	>	��	I	>	:��	J	>	��	O	:	��	R	?	��	Y	?	4��	\	?	��	`	?	��	f	A	%��	f	A	��	i	B	(��	o	A	��	u	C	��	z	C	<��	{	C	���	E	���	F	*���	E	��!	�Ch(�-13H4O5���C�gname
			$gsupers			$gslots				$geat?		
	$gfilenamefoop/goops/accessors.scm�
	-
��	
	.	��		/	��		1	��	!	/	��			$	
	Chk]	45L4?6cgargs
		gv			gfilenamefoop/goops/accessors.scm�		-
��		C01h(i]	45$O@6agy
		'gtmp		'gfilenamefoop/goops/accessors.scm�
	-
��		'C5RCSgm
		0gfilenamefoop/goops/accessors.scm�		
��	x
C6scripts/compile.go000064400000023525150536206120010221 0ustar00GOOF----LE-8-2.0=']�4h"
]gguile�	�	gdefine-module*�	�	�	gscripts�	gcompile�	�		gfilenameS�	
fscripts/compile.scm�	gimportsS�	gsystem�	
gbase�	
�	gselectS�	gcompile-file�	�	�	gtarget�	
�	�	gmessage�	
�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-13�	�	�	 gsrfi-37�	! �	"!�	#gice-9�	$gformat�	%#$�	&%�	'"&�	(gexportsS�	)�	*gset-current-module�	+*�	,*�	-fCompile a file.�	.g%summary�	/gcurrent-error-port�	0ferror: ~{~a~}~%�	1gexit�	2gfail�	3gsrfi-37:option�	4!3�	5!3�	6fhelp�	7h6�	8g
alist-cons�	9ghelp?�	:fversion�	;:�	<gshow-version�	=f	load-path�	>L=�	?g	assoc-ref�	@g	load-path�	Afoutput�	BoA�	Cgoutput-file�	Df.`-o' option cannot be specified more than once�	Efwarn�	FWE�	Ggstring=?�	Hgshow-warning-help�	Igwarnings�	Jgstring->symbol�	Kgalist-delete�	Lfoptimize�	MOL�	Ng	optimize?�	Offrom�	PfO�	Qgfrom�	Rf2`--from' option cannot be specified more than once�	Sfto�	TtS�	Ugto�	Vf0`--to' option cannot be specified more than once�	Wftarget�	XTW�	Yf4`--target' option cannot be specified more than once�	Zg%options�	[g	args-fold�	\f~A: unrecognized option�	]ginput-files�	^]�	_@�	`gunsupported-warning�	aI`�	b^_a�	cg
parse-args�	dfcompile (GNU Guile) ~A~%�	egversion�	ffCopyright (C) 2009, 2011 Free Software Foundation, Inc.
License LGPLv3+: GNU LGPL version 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.~%�	gf$The available warning types are:~%~%�	hgfor-each�	if  ~22A ~A~%�	jf`~A'�	kg<warning-type>�	lk�	mk�	ngsrfi-9�	on�	pgthrow-bad-struct�	qop�	rop�	sgwarning-type-name�	tgwarning-type-description�	ug%warning-types�	vf~%�	wgwarningsS�	xgOS�	ygscheme�	zgobjcode�	{g
%host-type�	|f�Usage: compile [OPTION] FILE...
Compile each Guile source file FILE into a Guile object.

  -h, --help           print this help message

  -L, --load-path=DIR  add DIR to the front of the module load path
  -o, --output=OFILE   write output to OFILE

  -W, --warn=WARNING   emit warnings of type WARNING; use `--warn=help'
                       for a list of available warnings

  -f, --from=LANG      specify a source language other than `scheme'
  -t, --to=LANG        specify a target language other than `objcode'
  -T, --target=TRIPLET produce bytecode for host TRIPLET

Note that auto-compilation will be turned off.

Report bugs to <~A>.~%�	}g%guile-bug-report-address�	~gappend�	g
%load-path��g%load-should-auto-compile��f"`-o' option can only be specified ��fwhen compiling a single file��g	sigaction��gSIGINT��finterrupted by the user��fwrote `~A'
��g*current-warning-prefix*��f��gwith-target��goutput-fileS��gfromS��gtoS��goptsS��gmain�C5hK]4	
'()54,>"G-.R$/01h(�-13445>"G6�gmessages
			'gfilenamefscripts/compile.scm�
	+
��	
	,	��	
	,	
��		,	��		,	��	'	-	��			'


gnamegfail�C2R5789h�]6�gopt
		gname		garg			gresult			gfilenamefscripts/compile.scm�
	2	��		3	��		3	��			C�5;<1h�]4>"G
6�gopt
		gname		garg			gresult			gfilenamefscripts/compile.scm�
	5	��		6	��		7	��			C�5>?@8h �]45�6�gopt
		gname		garg			gresult			g	load-path			gfilenamefscripts/compile.scm�
	:	��		;	#��			;	5��		;	#��		;	��		<	 ��		<	+��		<	��				C�5B?C2D8h �]45$66�gopt
		gname		garg			gresult			gfilenamefscripts/compile.scm�
	?	��		@	��			@	(��		@	��		@	��		A	��		A	��		B	"��		B	��
			C�5FG6H1?I8JK
hH-]45$4>"G
64545�4	56%gopt
		Hgname		Hgarg			Hgresult			Hgwarnings		-	Hgfilenamefscripts/compile.scm�
	E	��		F	��			F	$��		F	��		F	��		H	��	$	I	��	%	J	&��	+	J	8��	-	J	&��	-	J	��	3	K	$��	4	L	*��	=	L	$��	>	M	$��	B	M	2��	F	M	$��	H	K	��		H	C�5M8Nh�]6�gopt
		gname		garg			gresult			gfilenamefscripts/compile.scm�
	P	��		Q	��		Q	��			C�5P?Q2R8Jh(�]45$6456�gopt
		$gname		$garg			$gresult			$gfilenamefscripts/compile.scm�
	S	��		T	��			T	(��		T	��		T	��		U	��		U	��		V	"��		V	(��	$	V	��		$	C�5T?U2V8Jh(�]45$6456�gopt
		$gname		$garg			$gresult			$gfilenamefscripts/compile.scm�
	X	��		Y	��			Y	(��		Y	��		Y	��		Z	��		Z	��		[	"��		[	&��	$	[	��		$	C�5X?2Y8h �]45$66�gopt
		gname		garg			gresult			gfilenamefscripts/compile.scm�
	]	��		^	��			^	(��		^	��		^	��		_	��		_	��		`	"��		`	��
			C�	ZR[Z$/\1h �]445>"G6�gopt
		 gname		 garg			 gresult			 gfilenamefscripts/compile.scm�
	f	
��		g	��		g	��		g	,��		g	��	 	h	��		 	C?]8h �]
45�6�gfile
		gresult		ginput-files			gfilenamefscripts/compile.scm�
	i	
��		j	"��			j	4��		j	"��		j	��		k	��		k	*��		k	��				Cbh�]6�gargs
		gfilenamefscripts/compile.scm�
	b
��		o	
��		e	��		gnameg
parse-args�g
documentationfQParse argument list @var{args} and return an alist with all the relevant
options.�CcR$defh(�]445>"G6�gfilenamefscripts/compile.scm�
	s
��		t	��		t	
��			t	(��		t	��		u	
��	!	u	��		!
gnamegshow-version�C<R$gh$ijmrsthH�]4�&
�"	455�&�"	456�gwt
		Egfilenamefscripts/compile.scm�
	|	��		}	��		~	��	
	~	!��		~	(��	)	~	��	,		��	E	}	��			ECuvh0�]4>"G4>"G6�gfilenamefscripts/compile.scm�
	z
��		{	��		{	
��	
	{	��		|	��	.�	
��	0�	��		0
gnamegshow-warning-help�CHRc?9wINxQyUz{]C@$|}1~�2����2�hn-136fgargs
			gfilenamefscripts/compile.scm�
�	��	
�	��	�	��			


Ch$��������hP]LLLLL6	Hgfilenamefscripts/compile.scm�
�	��	�	��		
Ch(~]Y4LLLLLO5Z6vgfile
		&gfilenamefscripts/compile.scm�
�	��	�	��	�	@��	�	��	&�	��		&C hp-13
45454545$	�"45$"	4
5$"45$"
454545	$"�$*4>"G4
>"G"4	5  $0("���$4>"G""4>"GO6gargs
		ngoptions	nghelp?		ngo		+	Hgcompile-opts		Hngt		S	fgfrom		fngt		q�gto	�ngt	��gtarget	�nginput-files	�ngoutput-file	�ng	load-path		�ngfilenamefscripts/compile.scm�
�
��	
�	��	�	��	�	��	�	-��	�	��	�	��	�	#��	 �	&��	&�	9��	(�	&��	+�	#��	+�	��	.�	 ��	4�	3��	6�	 ��	:�	��	?�	 ��	H�	��	K�	��	Q�	1��	S�	��	S�	��	c�	8��	f�	��	i�	��	o�	1��	q�	��	q�	����	6����	����	����	1����	����	����	����	����	-����	����	����	����	-����	����	����	����	-����	����	����	����	����	����	
����	����	
����	
���	���	���	���	���	
���	��#�	��$�	��%�	��)�	��*�	��.�	��0�	��5�	��F�	��n�	��H		n


gnamegcompile�CRi�RCCgm
		,gfilenamefscripts/compile.scm�		
��	.	(	��	1	(
��
	+
��	1	���	1	���	4	���	4	���	9	���	9	���	>	���	>	���	D	���	D	���	O	��J	O	��N	R	��r	R	��v	W	��	�	W	��	�	\	��
�	\	��
�	1	��
�	/
��
�	b
��y	s
��P	z
��	�
���
��	
C6scripts/frisk.go000064400000024671150536206120007712 0ustar00GOOF----LE-8-2.0�)]4h�]gguile�	�	gdefine-module*�	�	�	gscripts�	gfrisk�	�		gfilenameS�	
fscripts/frisk.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	gselectS�	gfilter�	gremove�	�	�	�	gexportsS�	gmake-frisker�	g	mod-up-ls�	gmod-down-ls�	gmod-int?�	g	edge-type�	gedge-up�	g	edge-down�	�	g	autoloadsS�	gice-9�	 ggetopt-long�	! �	" �	#!"�	$gset-current-module�	%$�	&$�	'g%include-in-guild-list�	(f)Show dependency information for a module.�	)g%summary�	*g
guile-user�	+*�	,g*default-module*�	-g	open-file�	.fr�	/geof-object?�	0g
define-module�	1gdef�	2g
use-moduleS�	3g:use-module�	4gregular�	5gautoloadS�	6g	:autoload�	7gautoload�	8guse-modules�	9gfor-each�	:gload�	;gprimitive-load�	<gcomputed�	=gstring?�	>gformat�	?f[computed in ~A]�	@gread�	Ag	grok-proc�	Bgmake-object-property�	Cgup-ls�	Dgdn-ls�	Egint?�	Fgi�	Ggx�	Hgi-or-x�	Igsetter�	JI�	KI�	Lg	make-edge�	Mgcar�	Ngcdr�	Ogup-ls+!�	Pgdn-ls+!�	Qgassq-ref�	Rg	make-body�	Sgmember�	Tgmodules�	Uginternal�	Vgexternal�	Wgi-up�	Xgmap�	Ygx-up�	Zgi-down�	[gx-down�	\gedges�	]gscan�	^gdefault-module�	_f~A ~A --- ~A --- ~A
�	`gdump-updown�	af~A ~A
�	bf
			 ~A	~A
�	cgdump-up�	dg	dump-down�	effrisk�	fgupstream�	ggsingle-char�	hgu�	ifh�	jg
downstream�	kgd�	ljk�	mgi�	nUm�	ogx�	pVo�	qgm�	rgvalue�	sr�	t^qs�	uilnpt�	vg
option-ref�	wf$~A ~A, ~A ~A (~A ~A, ~A ~A), ~A ~A

�	xglength�	yffiles�	zfmodules�	{finternal�	|fexternal�	}fedges�	~gmain�C5h�g]4	
#5	4&>"G'R()R+,R-./01234567894h8�]	LM$"L��$"6�guse
		4gt		gmaybe		2gfilenamefscripts/frisk.scm�
�	!��	�	.��	�	.��		s	"��		s	��	#	t	��	'	t	��	4�	#��			4C:;<=>?@h��]I45H"�45$C�$���$���K4L>"G"�("���$"�$>4L���		�$	"	>"G��"���	�$"
�$#4L��>"G���"��b�"��Y"��N"��$"4
LLO�>"G"f�$"�$O4LJ$"L��45$"
45>"G"45"��\45"��O45"��B�gfilename
	�gp	�gcurmod		�gform		�gt		�gkey		0�gmodule		?gls		^gkey		kguse	��gmaybe		��gt	`sgfile	w�
gfilenamefscripts/frisk.scm�
	o	��		p	��			p	"��		p	��		p	��		x	��		y	��		y	��	)	z	��	-	y	��	0	{	��	0	{	��	>	}	%��	?	}	��	E	~	��	F		��	J		$��	R		��	^�	��	d�	��	k�	%��	k�	����	"����	-����	E����	=���	s	"���	s	���	t	���	t	����	"����	(����	"����	����	"����	-����	>����	"����	(����	"����	-���	'���	�� 	{	��!�	��1�	!��6�	��K	{	��Z�	��^�	"��`�	"��v�	.��w�	"��z�	(����	$����	(����	3����	(����	���	q	����	���	q	���	z	"���	x	���	q	���	x	��C	�Ch�]OC�gdefault-module
		g	note-use!		gfilenamefscripts/frisk.scm�
	n
��			gnameg	grok-proc�CAR4Bi5CR4Bi5DR4Bi5ERCiRDiREiREFGh�]45$CC�gmodule
		gfilenamefscripts/frisk.scm�
�
��	�	��	
�	��	�	��	�	��		gnamegi-or-x�CHR4Bi5RKh(�]�445>"GC�gtype
		%gup		%gdown			%gnew			%gfilenamefscripts/frisk.scm�
�
��	�	
��	�	��	
�	��		%	gnameg	make-edge�CLRMiRNiRKCh�]4545�6�gm
		gnew		gfilenamefscripts/frisk.scm�
�
��	�	2��	�	(��	�	��			gnamegup-ls+!�CORKDh�]4545�6�gm
		gnew		gfilenamefscripts/frisk.scm�
�
��	�	2��	�	(��	�	��			gnamegdn-ls+!�CPRQh`]L6Xgkey
		
gfilenamefscripts/frisk.scm�
�	��	
�	��		
Chn]OCfgalist
		
gfilenamefscripts/frisk.scm�
�
��		
gnameg	make-body�CRRASKCD1ELOP
h�]4M5$�"=445>"G445>"GM�N&4564M5$�"=445>"G445>"GM�N45M�N4>"G	6�gtype
	�gd	�gu		�gt			Zgd		Z�gt		y�gu	��gedge	��gfilenamefscripts/frisk.scm�
�	��	�	��	�	��	�	��	'�	4��	,�	��	5�	��	A�	4��	F�	��	S�	-��	U�	��	Z�	��	`�	,��	d�	��	p�	"��	q�	��	y�	����	����	4����	����	����	4����	����	-����	����	"����	/����	"����	0����	$����	$����	$��!	�	C9RTUEVWXYZ[\h��]HH4O54>"GJ�4J5�	4
J5�44
J55�4
4
J55�44J55�4
4J55�J�6�gdefault-module
	�gfiles	�gmodules		�gedges		
�ggrok		�gfilenamefscripts/frisk.scm�
�
��	�	��	�	��	
�	��	
�	��	
�	��	�	��	�	��	6�	��	<�	��	E�	��	H�	��	Q�	��	T�	��	Y�	!��	c�	��	d�	��	g�	��	l�	!��	v�	��	w�	��	z�	��	�	!����	����	����	����	!����	����	����	��	�	gnamegscan�C]RQ^,]hb]L6Zgfiles
		
gfilenamefscripts/frisk.scm�
�	��	
�	��		
Ch0�-1345$"OC�goptions
			/gt		%gdefault-module	%	/gfilenamefscripts/frisk.scm�
�
��	
�	��	�	.��	�	��	�	��	%�	��			/


gnamegmake-frisker�CR9>_HXhs]4545�Ckgedge
		gfilenamefscripts/frisk.scm�
�	��	�	#��	
�	#��	�	��		CChs]4545�Ckgedge
		gfilenamefscripts/frisk.scm�
�	��	�	#��	
�	#��	�	��		CD	h0�]45445544556�gm
		.gfilenamefscripts/frisk.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	$�	��	,�	��	.�	��		.Ch{]6sgmodules
		
gfilenamefscripts/frisk.scm�
�
��	
�	��		
gnamegdump-updown�C`R9>aH9>bh|]45456tgedge
		gfilenamefscripts/frisk.scm�
�	��	�	%��	�	"��	�	3��	�	��		CCh0�]445>"G456�gm
		+gfilenamefscripts/frisk.scm�
�	��	�	��	�	��		�	#��	�	��	#�	��	+�	��		+Chw]6ogmodules
		
gfilenamefscripts/frisk.scm�
�
��	
�	��		
gnamegdump-up�CcR9>aH9>bh|]45456tgedge
		gfilenamefscripts/frisk.scm�
�	��	�	%��	�	"��	�	3��	�	��		CDh0�]445>"G456�gm
		+gfilenamefscripts/frisk.scm�
�	��	�	��	�	��		�	#��	�	��	#�	��	+�	��		+Chy]6qgmodules
		
gfilenamefscripts/frisk.scm�
�
��	
�	��		
gnameg	dump-down�CdR euvfjUV^,T\>wxyz{|}`cdh�-134�5454545454544	
4
5�554545	45
4
5445454	54
545>"G$$""$$"	"
6�gargs
		gparsed-opts	g=u		!g=d		-g=i		9g=x		Egfiles		Rgreport		lgmodules		uginternal			~gexternal	
�gedges	�gfilenamefscripts/frisk.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	�	��		
��		%��	!	
��	!�	��	$	
��	*	%��	-	
��	-�	��	0	
��	6	%��	9	
��	9�	��	<	
��	B	%��	E	
��	E�	��	H	��	M	+��	P	/��	R	��	R�	��	U		��	V		��	Z
	��	[	��	a	3��	e	��	f
	��	h		��	l		��	l�	��	o	��	s	��	u	��	u�	��	x	��	|	��	~	��	~�	���	���	���	����	���	���	���	����	���	���	���	���	���	���	���	���	���	���	���	���	���	���	���	���	���	��	��I		


gnamegfrisk�CRi~RC_gm
		0gfilenamefscripts/frisk.scm�		a
��	4	i
��	6	j	��	9	j
��	;	l	��	>	l
���	n
����	����
����	����
����	����
����
����
����
����
����	����
��	��
��	��
��	��
��
W�
���
��)�
����
����
��^�
��z�
����
����
���
��!	�
C6scripts/summarize-guile-TODO.go000064400000021024150536206120012443 0ustar00GOOF----LE-8-2.0�!]}4h�]gdebug-enable�	g	backtrace�	gguile�	�	gdefine-module*�	�	�	gscripts�		gsummarize-guile-TODO�	
	�	gfilenameS�	f scripts/summarize-guile-TODO.scm�	
gimportsS�	gread-text-outline�	�	�	gice-9�	ggetopt-long�	�	�	�	gexportsS�		�	g	autoloadsS�	gsrfi�	gsrfi-13�	�	gstring-tokenize�	�	gsrfi-14�	�	 gchar-set�	! �	"gcommon-list�	#"�	$g
remove-if-not�	%$�	&!#%�	'gset-current-module�	('�	)'�	*g%include-in-guild-list�	+fA quaint relic of the past.�	,g%summary�	-gset-object-property!�	.gput�	/gobject-property�	0gget�	1gwho�	2gmap�	3gstring->symbol�	4gpct-done�	5gstring->number�	6gas-leaf�	7gparent�	8gfor-each�	9ghang-by-the-leaves�	:gmake-text-outline-reader�	;f=(([ ][ ])*)([-+])(D*)(R*)(X*)(([0-9]+)%)* *([^[]*)(\[(.*)\])*�	<glevel-substring-divisor�	=<	��	>gbody-submatch-number�	?>		��	@gextra-fields�	Agstatus�	BA	��	Cgdesign?�	DC	��	Egreview?�	FE	��	Gg	extblock?�	HG	��	I4	��	J1	��	K@BDFHIJ�	L=?K�	Mg	open-file�	Nfr�	Og	read-TODO�	Pg
option-ref�	Qginvolved�	Rgmemq�	Sgpersonal�	Tgreverse�	Ugtodo�	Vgstring=?�	Wf-�	Xgdone�	Yf+�	Zgreview�	[gselect-items�	\gformat�	]f ~A�	^f�	_f
under : ~A~A
�	`gmake-string�	af status: ~A~A~A~A~A~A
item  : ~A
�	bfD�	cfR�	dfX�	ef ~A%�	fgmake-display-item�	gg	no-parent�	hg
display-items�	ifsummarize-guile-TODO�	jgsingle-char�	kjw�	l1k�	mjn�	ngm�	oji�	pgvalue�	qp�	rQoq�	sjp�	tSsq�	ujt�	vUu�	wjd�	xXw�	yjr�	zZy�	{lnrtvxz�	|gmain�C5h��]4i>"G4

&5	4)>"G*R+,R-i.R/i0R01.23 45
h�2]	45$-4444:555>"G"45$44	5>"G"C*gx
		ygt		Cgt	L	vgfilenamef scripts/summarize-guile-TODO.scm�
	Q
��		R		��			R	��		R		��		R	��		T	��		T	��		U	��	 	V	��	%	V	-��	-	V	��	/	U	��	4	T	��	D	W		��	J	W	��	L	W		��	L	W	��	U	Y	��	[	Y	��	\	Y	��	g	Y	��		ygnamegas-leaf�C6R.78hw]LL�6ogchild
		gfilenamef scripts/summarize-guile-TODO.scm�
	b	%��			c	3��		c	'��		C6hX�]�$'4�>"GLO�64>"G45M�NC�gtree
		Tgparent		Tgfilenamef scripts/summarize-guile-TODO.scm�
	^	��		_	��			_	��	
	a	��		a	 ��		a	+��		a	��	.	d	%��	0	b	��	1	f	��	7	f	%��	>	f	��	G	g	.��	P	g	(��	R	g	��		T	gnameghang�C8hn]L6fgtree
			gfilenamef scripts/summarize-guile-TODO.scm�
	h	��			i	��			Ch8�]HOQ4O>"GJC�gtrees
		4gleaves		4ghang			1gfilenamef scripts/summarize-guile-TODO.scm�
	\
��		]	��		]	��		^	��		h	��		4gnameghang-by-the-leaves�C9R9:;LMNh �]4454556�gfile
		gfilenamef scripts/summarize-guile-TODO.scm�
	m
��		o	��		o	��	
	p	��		q	��		o	��		y	��		y	��		y	��		o	��		n	��		gnameg	read-TODO�CORPQ301Rh �]45$L456C�gx
		 gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	$��		�	+��	�	$��	�	��	�	,��	�	3��	�	,��	�	$��
		 CS01Th(�]	45$45�L�CC�gx
		!gt		!gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	&��		�	-��	�	&��	�	��	�	5��	�	0��	�	+��			!C8Ph �]4L�5$
�M�NCC�gpair
		gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	��	
�	%��	
�	��	�	��	�	'��	�	!��	�	��			CUV0AWh�]456�gx
		gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	/��	�	6��	
�	/��	�	?��	�	%��		CXV0AYh�]456�gx
		gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	/��	�	6��	
�	/��	�	?��	�	%��		CZ0Ehv]6ngx
		
gfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	.��	
�	'��		
CT$h�+]H45$45OJ�K"45$45OJ�K"4O	
��
�>"G"!(6�4�5"���4J5"���#gp
	�gitems	�gsub		�gt			6gu			/gt		@	ggu		O	`gsub	��gitems	��	gfilenamef scripts/summarize-guile-TODO.scm�
	{
��		|	
��		|	��		}	��		}	��		}	��		}	��			��			��	*�	��	,�	��	7�	��	=�	��	@�	��	@�	��	I�	��	O�	��	[�	��	]�	��	h�	��	u�	����	����	����	����	
����	����	����	)����	����	
����	����	����	��"	�	gnamegselect-items�C[R01\]^h �]	45$	6C�gitem
		gt		gfilenamef scripts/summarize-guile-TODO.scm�
�	
��	�	��		�	 ��	�	��	�	��	�	2��	�	'��	�	��			C^hp]Chgitem
		gfilenamef scripts/summarize-guile-TODO.scm�
�	
��	�	��		C\_`07hX]"<$444 5>"G45	�"���C45	"���gitem
		Ugparent		Bgindent			Bgfilenamef scripts/summarize-guile-TODO.scm�
�	
��	�	��	�	��	
�	��	�	#��	�	 ��	"�	��	+�	��	1�	*��	3�	��	8�	3��	@�	��	B�	��	C�	"��	I�	,��	K�	"��	U�	��		UChg]C_gitem
		gfilenamef scripts/summarize-guile-TODO.scm�
�	
��		C\a0ACb^EcGd4eh��]	44545$"45$	"4
5$"45$4
5"4L5>	"GL6�gitem
	�gt	Y	tgfilenamef scripts/summarize-guile-TODO.scm�
�	��	�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	&��	&�	*��	'�	��	-�	��	/�	��	3�	��	5�	&��	;�	*��	<�	��	B�	��	D�	��	H�	��	J�	(��	P�	,��	Q�	��	W�	��	Y�	��	Y�	��	b�	��	g�	%��	k�	��	q�	��	u�	����	����	��$	�Ch0�]$"$"OC�g	show-who?
		,gshow-parent?		,gshow-who			,gshow-parents			,gfilenamef scripts/summarize-guile-TODO.scm�
�
��	�		��	�		��	�	��		,	gnamegmake-display-item�CfRfP1g8h(
]
44545�56gp
		&gitems		&gdisplay-item			&gfilenamef scripts/summarize-guile-TODO.scm�
�
��	�	��	�	)��	�	7��	�	)��	�	.��	�	<��	�	.��	�	)��	�	��	�	��	&�	��
		&	gnameg
display-items�ChRi{h[OPhH'-134�544445�55>"GCgargs
			Dgp		Bgfilenamef scripts/summarize-guile-TODO.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	"�	%��	%�	5��	*�	C��	-�	5��	.�	0��	0�	%��	2�	��	7�	��			D


gnamegsummarize-guile-TODO�C	R	i|RC�gm
	-	Dgfilenamef scripts/summarize-guile-TODO.scm�		A
��			A	��		A
��		C
��	H	K
��	J	L	��	M	L
��	T	N
��	[	O
��5	Q
���	\
���	m
���	{
����
�� �
����
����
��	�
C6scripts/help.go000064400000020701150536206120007512 0ustar00GOOF----LE-8-2.0�!]p4h�	]gguile�	�	gdefine-module*�	�	�	gscripts�	ghelp�	�		gfilenameS�	
fscripts/help.scm�	gimportsS�	gice-9�	
gformat�	
�	�	g
documentation�	�	�	gsrfi�	gsrfi-1�	�	gselectS�	gfold�	g
append-map�	�	�	�	gexportsS�	g	show-help�	gshow-summary�	g
show-usage�	 gmain�	! �	"gset-current-module�	#"�	$"�	%fShow a brief help message.�	&g%summary�	'fhelp
help --all
help COMMAND�	(g	%synopsis�	)f�
Show help on guild commands.  With --all, show arcane incantations as
well.  With COMMAND, show more detailed help for a particular command.
�	*g%help�	+gfile-exists?�	,gfile-is-directory?�	-gopendir�	.geof-object?�	/gclosedir�	0greaddir�	1gstring=?�	2f.�	3f..�	4gdirectory-files�	5gor-map�	6gstring-suffix?�	7gstring-null?�	8g	substring�	9g
string-length�	:gappend�	;g%load-compiled-extensions�	<g%load-extensions�	=gstrip-extensions�	>gunique�	?gmap�	@gsymbol->string�	Agsort�	Bgin-vicinity�	Cg
%load-path�	Dgstring<?�	Egfind-submodules�	Fgdisplay�	GflUsage: guild COMMAND [ARGS]
Run command-line scripts provided by GNU Guile and related programs.

Commands:
�	Hgfor-each�	Igstring->symbol�	Jgresolve-module�	KgensureS�	Lgand=>�	Mgmodule-variable�	Ngvariable-ref�	Og%include-in-guild-list�	Pf  ~A ~23t~a
�	Qf  ~A
�	R�	Sf
For help on a specific command, try "guild help COMMAND".

Report guild bugs to ~a
GNU Guile home page: <http://www.gnu.org/software/guile/>
General help using GNU software: <http://www.gnu.org/gethelp/>
For complete documentation, run: info guile 'Using Guile Tools'
�	Tg%guile-bug-report-address�	Ug
list-commands�	Vgfile-commentary�	Wg%search-load-path�	Xgmodule-filename�	Ygmodule-commentary�	Zg	last-pair�	[gmodule-name�	\gmodule-command-name�	]gcurrent-output-port�	^gstring-split�	_g
string-append�	`f
 OPTION...�	af
Usage: guild �	bgnewline�	cf
       guild �	df)No documentation found for command "~a".
�	egcurrent-module�	fg%mod�	gf--all�	hg�	if-a�	ji�	kgcurrent-error-port�	lgexit�	mgstring-prefix?�	nf-�	ofNo command named "~a".
�C5hx�]4	
!54$>"G%&R'(R)*R+,-./0123
h��]!45$�45$}45"`45$4>"GC4545$"	4	5$"�"���45"���CC�gdir
	�g
dir-stream	�gnew		%�gacc		%�gt		U	ngfilenamefscripts/help.scm�
	)
��		*	��	
	*	��		*	��		*	��		+	��		+	��	%	,	��	&	.	��	0	.	
��	1	0	��	F	2	��	M	3	��	Q	3	&��	U	3	��	U	3	��	c	4	��	g	4	&��	k	4	��	r	3	��	}	6	���	2	���	,	���	,	���	-	���	,	���	7	��	�gnamegdirectory-files�C4R56789h8�]4L5$#45$CL
4L545�6C�gext
		4gfilenamefscripts/help.scm�
	:	
��		<	
��		;	��		@	��		;	��	"	B	��	)	B	0��	0	B	��	2	A	
��
		4C:;<h�]O456zgpath
		gfilenamefscripts/help.scm�
	9
��		C	
��		:	��		gnamegstrip-extensions�C=R>h8�](C�(C����$�6�4�5�C�gl
		5gfilenamefscripts/help.scm�
	E
��		F	��		G	��		F	��		H	��		H	��		H		��	!	F	��	&	H	+��	(	H	#��	+	I	��	,	I	��	1	I	$��	3	I	��	4	I	��		5gnamegunique�C>R?@>A=h �]
45$�CC�gx
		grest		gstripped				gfilenamefscripts/help.scm�
	P	��		Q	,��			Q	��		R	��		R	+��			C4Bhj]6bgx
		
gy		
gfilenamefscripts/help.scm�
	U	!��	
	U	/��		
	Ch ~]44L556vgpath
		gfilenamefscripts/help.scm�
	O	��		S	��		T	��		U	��		T	��		P	��		CCD	h(�]	4544O556�ghead
		&gshead		&gfilenamefscripts/help.scm�
	K
��		L	��		L	��		N	��		O	��	$	N	��	&	M	��		&gnamegfind-submodules�CERFGHIJKLM&NO
PQ
h�~]!4545$4455"$GL$"4	5$"$$
6
6CCvgname
	�gmodname	�gmod		�gsummary		7�gv		S	fgfilenamefscripts/help.scm�
	b	��		c	��		c	 ��		c	��		c	��		d	��		c	��	"	e	��	#	e	��	&	e	%��	,	e	:��	.	e	%��	2	e	��	7	c	��	?	g	��	E	h	��	K	i	��	Q	i	2��	S	i	��	S	i	��	[	j	��	^	j	��	j	g	��	p	k	��	u	l	��	{	l	���	m	���	m	��	�CER
ST
h@�]4>"G4O45>"G	6�gall?
		;gfilenamefscripts/help.scm�
	Y
��		Z	��		Z	��		Z	��		a	��		n	��	#	n	��	%	n	��	*	a	��	7	o	
��	;	o	��		;gnameg
list-commands�CURVWXh�]44556�gmod
		gfilenamefscripts/help.scm�
	x
��		z	��		z	��		z	��		y	��		gnamegmodule-commentary�CYR@Z[h�]4455�6�gmod
		gfilenamefscripts/help.scm�
	|
��		}	��		}	"��		}	��		}	��		}	��		gnamegmodule-command-name�C\R]^M(_\`FabHFcbh0�]4L>"G4L>"GL6ygu
		0gfilenamefscripts/help.scm�
�	��	�	��	�	��	�	��	�	��	0�	��		0C
h�v-.,3#45445$"4455
54	>"G4�>"G4
>"GO�6ngmod
	�gport	�gvar		%	Egusages		I�gfilenamefscripts/help.scm�
	
��			*��	�	��	�	��	#�	1��	%�	��	%�	��	-�	��	0�	��	5�	��	8�	&��	@�	&��	B�	��	I�	��	I�	��	L�	��	P�	
��	W�	��	`�	��	e�	
��	j�	��	s�	����	����	��	�gnameg
show-usage�CR]M&FbhH�-.,3#4545$4>"G6C�gmod
		Ggport		Ggvar		"	Ggfilenamefscripts/help.scm�
�
��	�	,��	�	
��	 �	"��	"�	
��	"�	��	*�	��	+�	
��	0�	��	7�	
��	E�	
��		Ggnamegshow-summary�CR]M*FbY
d\h�F-.,3#454>"G4>"G45$4>"G645$4>"G6	
456>gmod
	�gport	�gt		J�gt		t�gfilenamefscripts/help.scm�
�
��	�	)��	�	��	.�	��	B�	��	H�	��	J�	��	J�	��	S�		��	X�	��	_�		��	m�		��	n�	��	t�	��	}�		����		����	����	����	��	�gnameg	show-help�CR4ei5fRUhjfklmnJIK
oh��-13(6�$"�$6"445>"G6�(d4	�5$"����4
45
5$4>"G
64>"G6"��u�gargs
		�gname	l�gt	��gfilenamefscripts/help.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	&�	.��	'�	!��	+�	��	0�	��	5�	��	:�	��	C�	��	P�	��	P�	��	S�	��	W�	��	X�	!��	\�	1��	_�	5��	a�	!��	e�	��	l�	��	l�	��	o�	��	s�	��	t�	#��	}�	����	����	����	
����	
����	����	����	����	��&		�


gnamegmain�C RC�gm
		,gfilenamefscripts/help.scm�		
��	.	!	��	1	!
��	3	"	��	6	"
��	8	#	��	;	#
���	)
��-	9
��P	E
��V	K
���	Y
��m	x
��
7	|
��9	
����
����
����	
����
��u�
��	w
C6scripts/read-rfc822.go000064400000011640150536206120010503 0ustar00GOOF----LE-8-2.0�]L4h�]gguile�	�	gdefine-module*�	�	�	gscripts�	gread-rfc822�	�		gfilenameS�	
fscripts/read-rfc822.scm�	gimportsS�	gice-9�	
gregex�	
�	�	grdelim�	�	�	�	gexportsS�	gread-rfc822-silently�	�	g	autoloadsS�	gsrfi�	gsrfi-13�	�	gstring-join�	�	�	gset-current-module�	�	 �	!g%include-in-guild-list�	"fValidate an RFC822-style file.�	#g%summary�	$gmake-regexp�	%f^From �	&gfrom-line-rx�	'f^([^:]+):[ 	]*�	(gheader-name-rx�	)f^[ 	]+�	*gheader-cont-rx�	+goption�	,geof-object?�	-greverse�	.g	read-line�	/gregexp-exec�	0gfor-each�	1gunread-char�	2gstring->list�	3g
drain-message�	4gmatch:suffix�	5gstring->symbol�	6gmatch:substring�	7g	substring�	8g	match:end�	9f �	:gstring-null?�	;gfrom�	<g
body-lines�	=gheaders�	>gbody�	?f
�	@gsuffix�	Agerror�	Bfbad component:�	Cg
parse-message�	Dgformat�	EfFrom ~A
�	Ff~A: ~A
�	Gf
~A�	Hgdisplay-rfc822�	Ig	open-file�	Jg	OPEN_READ�	Kgmain�C5h8
]4	
5	4 >"G!R"#R4$i%5&R4$i'5(R4$i)5*R+R,-.+/&01hb]L6Zgc
		
gfilenamefscripts/read-rfc822.scm�
	A	��	
	B	��		
C2
h�C]"p45$6"45�"���$=45$,4O
44	55�>"G6"���"���45"���;gport
	�gline		vgacc			vgfilenamefscripts/read-rfc822.scm�
	<
��		=	��		>	��		>	��		?	��		G	��	'	G	"��	/	G	��	/	>	��	6	@	��	B	@	��	C	A	��	O	D	��	R	D	$��	Z	D	��	[	C	��	`	A	��	n	E	��	v	=	��	w	=	��	~	=	*���	=	��	�gnameg
drain-message�C3R+4/&.-/(56789
hX�])45�45445544455��	5�M�NCygreversed-hlines
		Qghlines			Qgfirst			Qgm			Qgname		(	Qgdata		C	Qgfilenamefscripts/read-rfc822.scm�
	P	��		Q	'��			Q	��		R	&��		Q	��		S	"��		Q	��		T	%��		T	5��	(	T	%��	(	Q	��	+	U	%��	.	V	,��	3	V	=��	;	V	,��	>	W	,��	?	V	&��	A	X	&��	C	U	%��	C	Q	��	J	Y	(��	O	Y	��		Qgnamegadd-header!�C:3*-;<=>?@AB
hX�]	�$LC�$MC�$MC�$M$C4M5NMC	6�g	component
		Tgt	1	Lgfilenamefscripts/read-rfc822.scm�
	g	��		h	��	1	l	��	=	m	&��	C	m	>��	E	m	C��	G	m	&��	I	m	��	P	o	��	T	o	��		TCh�4]A$444555"HHHOQ"�45$)$4>"G"45K"m4	5$4545�"���$4>"G"45"��r45"��_4
J5KOC,gport
	�gfrom	 �g
body-lines		#�gbody		&�gheaders		)�gadd-header!		3�gline		<�gcurrent-header		<�gt		y�	gfilenamefscripts/read-rfc822.scm�
	I
��		J	��			K	��		K	"��		L	/��		K	"��		K	��	 	J	��	)	O	��	)	J	��	<	[	��	=	\	
��	G	\	��	M	]	
��	N	]	!��	d	^	��	l	^	
��	q	_	
��	y	\	���	a	���	b	���	b	���	a	���	d	
���	d	!���	e	���	e	$���	e	
���	[	���	[	���	[	���	f	���	f	��"	�gnameg
parse-message�CCRCh�]6}gport
		gfilenamefscripts/read-rfc822.scm�
	q
��		r	��		gnamegread-rfc822-silently�CR;DE0DFh]��6wgheader
		gfilenamefscripts/read-rfc822.scm�
	v	��		w	��	
	w	$��	
	w	1��		w	��		C=G>	hX]	45$4>"G"445>"G456gparse
		Tgt			-gfilenamefscripts/read-rfc822.scm�
	t
��		u		��		u	��			u		��			u	��		u	)��		u	4��		u	)��	.	v	��	3	x	��	7	x	��	9	x	��	>	v	��	K	y	
��	L	y	��	P	y	��	R	y	��	T	y	��		Tgnamegdisplay-rfc822�CHRIJHh8�-1344�554>"GC�gargs
			1gparse		/gfilenamefscripts/read-rfc822.scm�
	{
��	
	|	��	
	|	%��		|	0��		|	%��		|	��		|	��		}	��				1


gnamegread-rfc822�CRiKRC�gm
		0gfilenamefscripts/read-rfc822.scm�		-
��	4	3
��	6	4	��	9	4
��	:	6	��	@	6	$��	B	6	��	E	6
��	F	7	��	L	7	$��	N	7	��	Q	7
��	R	8	��	X	8	$��	Z	8	��	]	8
��	a	:
���	<
��	G	I
��	�	q
��	t
��
+	{
��
2�
��	
4
C6scripts/read-scheme-source.go000064400000021410150536206120012233 0ustar00GOOF----LE-8-2.0�"]N4hA]gguile�	�	gdefine-module*�	�	�	gscripts�	gread-scheme-source�	�		gfilenameS�	
fscripts/read-scheme-source.scm�	gimportsS�	gice-9�	
grdelim�	
�	�	�	gexportsS�	gread-scheme-source-silently�	gquoted?�	gclump�	�	gset-current-module�	�	�	g%include-in-guild-list�	f/Print a parsed representation of a Scheme file.�	g%summary�	g:type�	gvariable�	g
define-module�	glength�	 gdefine�	!galias�	"glambda�	#gstring?�	$g	procedure�	%g
:signature�	&g:std-int-doc�	'g	annotate!�	(gquote�	)gfilename�	*gmake-regexp�	+f^#!�	,f^!#�	-f
^[ 	]*(;+)�	.f^[ 	]*$�	/gopen-input-file�	0geof-object?�	1gregexp-exec�	2ghash-bang-comment�	3g:line�	4g:line-count�	5g
:text-list�	6greverse�	7g	read-line�	8g
whitespace�	9g:text�	:gcomment�	;g:leading-semicolons�	<g
unread-string�	=gread�	>g	port-line�	?gappend�	@gfollowing-form-properties�	Agprocess�	Bgfor-each�	Cgwrite�	Dgnewline�	Egerror�	Ff	bad list!�	Ggstring->symbol�	Hg	substring�	Igsymbol->string�	Jgassq-ref�	Kgleading-semicolons�	Lgtext�	Mgmain�C5h��]4	
54>"GRR !"#$%&h��]"6�$�"�&6"���"B	45�$0�&#���$����$6"���"���"���"���	45�$�&	"����$�����$z	4���5�$e����&U4������5$@4	>"G4
��������>"G������6"��"��"��"��"�����$c����$U4	>"G4
��>"G	45�$4���5$���6CC"���"���"���"���"��f�gform
	�gnote!	�gfilenamefscripts/read-scheme-source.scm�
	c
��	
�	��	�	��	�	��		d	��		d	��		d	��	�	��	�	"��	"			��	&�	��	(�	��	*�		��	.	d	��	5	z	��	<	z	��	@	y		��	B	{	��	E	{	��	I	y		��	L	|	��	N	|	��	R	y		��	U	}	��	X	}	��	\	y		��	`	~	��	b	~	��	d	~		��	t	d	��	w	e	��	~	e	���	d		���	f	���	f	���	d		���	q	���	q	���	n		���	r	���	r	���	n		���	s	���	s	���	s	���	s	���	n		���	t	���	t	 ���	t	���	n		���	u	���	u	���	u	���	u	���	n		���	v		���	v	���	v	���	v		���	w		���	w	���	w	"���	w	4���	w	.���	w	���	w		��	x	��		x	%��	x	��	x		��$	d	��'	g	��)	g	��-	d		��0	h	��3	h	��7	d		��8	i		��<	i	��>	i	��C	i		��L	j		��P	j	��S	j	��Y	j		��d	k	��k	k	��o	k		��p	l	��u	l	��y	l	��}	k		���	m	���	m	#���	m	��a	�	gnameg	annotate!�C'R()*+,-./0123456789:;<=>'?h�-134M5NC�gargs
			gfilenamefscripts/read-scheme-source.scm�
�	/��	
�	7��	�	1��			


gnamegprop+�C@h`i]b4>"G4545454545"�$�4	5		$	C4
5$�"p4		5$"	4
	5$84
4
5�4	
�5>"/G"(45	
�
	"���45
	"��|".4
5$"4>"G"�4
5		$44	�

�
��
>"G"�4>"G45
45�HH4
O>"GJJ�

$"4>"GJ�K
4
J�����>"G4
>"G
	45�45"��
C45�45"���agfile
	^gnb!	^ghash-bang-rx		A^gbang-hash-rx		A^gall-comment-rx		A^gall-whitespace-rx		A^gp		A^gn		OGgline		OGgt			\Egline			x�gtext	
	x�gt		�gt		8.gm1	
MYgform	
�+gcount	�(gprops	��gprops	�%gt	
��gfilenamefscripts/read-scheme-source.scm�
�
��	�	��	�	��	�	��	�	��	#�	#��	%�	��	&�	��	*�	#��	,�	��	-�	��	1�	%��	3�	��	4�	��	8�	(��	:�	��	;�	��	A�	��	O�	��	U�	��	V�	
��	\�	��	h�	��	t�	��	x�	��	y�	��	�	����	����	����	����	����	2����	.����	����	-����	.����	-����	����	����	����	����	����	����	$����	$����	���	��
�	���	���	��#�	��0�	��8�	��A�	��E�	��M�	+��M�	!��R�	&��U�	/��V�	#��[�	��h�	��u�	����	 ����	����	$����	!����	����	/����	!����	#����	����	����	����	����	'����	����	����	���	���	��/�	��6�	��7�	%��E�	��F�	
��G�	��H�	��O�	��P�	,��^�	��\	^	gnamegprocess�CARBAht]M�NClge
		gfilenamefscripts/read-scheme-source.scm�
�	��	�	4��		�	*��		Chn]LO6fgfile
		gfilenamefscripts/read-scheme-source.scm�
�	��	�	��		C6h0-13H4O>"GJ6gfiles
			+gres	
	+gfilenamefscripts/read-scheme-source.scm�
�
��	
�	��	
�	��	
�	��	+�	��			+


gnamegread-scheme-source-silently�g
documentationf6See commentary in module (scripts read-scheme-source).�CRBACDht]4>"G6lge
		gfilenamefscripts/read-scheme-source.scm�
�	��	�	(��	�	2��		Chn]6fgfile
		
gfilenamefscripts/read-scheme-source.scm�
�	��	
�	��		
Ch�-136�gfiles
			gfilenamefscripts/read-scheme-source.scm�
�
��	�	��			


gnamegread-scheme-source�g
documentationf6See commentary in module (scripts read-scheme-source).�CR(EFGHIh�B]"�$�	45�$��&����${
45�$l�&a"Q(C��$"4>"G��444555����"����"���CCCCCC:gsym
	�gform	�ginside		$�gls		G�galist		G�gfirst		S�gfilenamefscripts/read-scheme-source.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	 �	��	#�	��	$�	��	)�	��	-�		��	/�	��	6�	��	:�		��	?�	��	C�		��	G�	��	M�	��	S�	!��	S�	��	X�	��	\�	��	a�	��	e�	!��	j�	��	u�	��	w�	#��	z�	$��	}�	/����	$����	#����	#����	����	����	����	����	2����	��)	�	gnamegquoted?�CR6@82:JKL
h�t]Y"g(6�$��"���45$��"���45$�"���45$�"��|45$�"�(45��"��G�	4	5

$I4
5�$�4
	5�"���45��"���45��"����454	5"��E��"���"���lgforms
	{gforms	mgacc		mgpass-this-one-through?		mgform		mgt	�mginner-forms	�8glevel	�8gtext	�8g
inner-form		�8gt	
�8g	new-level	�gfilenamefscripts/read-scheme-source.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	
��	 �	��	%�	#��	0�	��	1�	��	5�	��	9�	��	=�	
��	@�	��	E�	#��	P�	��	Q�	��	U�	��	Y�	��	]�	
��	`�	��	m�	��	n�	��	r�	��	v�	��	z�	
��	}�	����	����	����	����	����	
����	���	����	<����	0����	*����	$���	0���	���	'���	0���	'���	 ���	3���		4���	3���	,���
	2���
	.���	9���
	?���	@���
	?���
	9��	2��	�	<���	0���	*���	$��#�	<��*�	0��-�	*��8�	$��8�	��;�	/��<�	)��B�	9��D�	)��E�	.��K�	>��M�	.��P�	(��Z�	��]	��b	(��m	��m�	��p�	 ��{�	��R	{gnamegclump�CRiMRC�gm
		,gfilenamefscripts/read-scheme-source.scm�		V
��	0	]
��	2	^	��	5	^
���	c
����
��
�
��F�
��]�
��w�
��~
��	�
C6scripts/disassemble.go000064400000002174150536206120011061 0ustar00GOOF----LE-8-2.0d]#4h]gguile�	�	gdefine-module*�	�	�	gscripts�	gdisassemble�	�		gfilenameS�	
fscripts/disassemble.scm�	gimportsS�	gsystem�	
gvm�	gobjcode�	
�	�	glanguage�	gassembly�	�	gprefixS�	gasm:�	�	�	gexportsS�	�	gset-current-module�	�	�	f Disassemble a compiled .go file.�	g%summary�	gfor-each�	 gasm:disassemble�	!gload-objcode�	"gmain�C5h�z]4	
54>"GR !hm]456egfile
		
gfilenamefscripts/disassemble.scm�
	$	��		%	��	
	%	��		
Ch-136wgfiles
			gfilenamefscripts/disassemble.scm�
	#
��		$	��			


gnamegdisassemble�CRi"RCrgm
		,gfilenamefscripts/disassemble.scm�		
��	.	!	��	1	!
��r	#
��y	(
��	{
C6scripts/snarf-guile-m4-docs.go000064400000007053150536206120012247 0ustar00GOOF----LE-8-2.0]34hS]gguile�	�	gdefine-module*�	�	�	gscripts�	gsnarf-guile-m4-docs�	�		gfilenameS�	
fscripts/snarf-guile-m4-docs.scm�	gimportsS�	gice-9�	
grdelim�	
�	�	�	gexportsS�	�	gset-current-module�	�	�	g%include-in-guild-list�	f/Snarf out texinfo documentation from .m4 files.�	g%summary�	gdisplay�	f@deffn {Autoconf Macro}�	gfor-each�	gstring=?�	f#�	g	substring�	g
string-length�	 f# �	!gnewline�	"f
@end deffn�	#gdisplay-texi�	$gcatch�	%$�	&$�	'gprefix?�	(glist->string�	)greverse�	*gstring->list�	+g
massage-usage�	,g	open-file�	-fr�	.geof-object?�	/f# Usage:�	0g	read-line�	1fAC_DEFUN�	2gmain�C5h�	�]4	
54>"GRR !h��]4"&44
55$45"B"<45	�$*44
	55$
4	5""���""���>"G6�gline
		|gfilenamefscripts/snarf-guile-m4-docs.scm�
	*	��		+	��	
	.	��		.	(��		.	,��		.	��		+	��		/	��	/	+	��	0	+	'��	9	+	#��	=	+	��	>	,	#��	B	,	-��	C	,	2��	N	,	#��	R	+	��	S	-	��	p	+	��	|	1	��		|C"!hP�]4>"G4>"G4>"G4>"G6�glines
		Ngfilenamefscripts/snarf-guile-m4-docs.scm�
	(
��		)	��		)	��		)	��		*	��	)	3	��	-	3	��	2	3	��	;	4	��	N	4	��		Ngnamegdisplay-texi�C#R&hr]L4L
4L556jgfilenamefscripts/snarf-guile-m4-docs.scm�
	7	��		8	��	
	8	#��		8	��		8	��		
Chg-13C_gargs
			gfilenamefscripts/snarf-guile-m4-docs.scm�
	7	��			


Ch�]O6�gline
		gsub		gfilenamefscripts/snarf-guile-m4-docs.scm�
	6
��		7	��			gnamegprefix?�C'R()*hp1]"Y(4455C��(�$")�$",�$ "�"���45"���)gline
		ogline		_gacc			_gkey		"	Tgfilenamefscripts/snarf-guile-m4-docs.scm�
	:
��		;	��		<	��	
	=	��		=	��		=	��		=	��		>	��	"	?	��	"	?	��	Q	A	��	W	?	��	_	>	��	_	;	��	`	;	��	g	;	-��	o	;	��		ognameg
massage-usage�C+R,-.'/0+1#)
h�-134�5"�45$C45$4544	55"���4	5$'4
45>"G45"���"45"��|$%45$45�"��U"���"���45"��=
gargs
		�gp	�gline		�gacc		�gt		 �gfilenamefscripts/snarf-guile-m4-docs.scm�
	D
��	
	E	��		E	��		E	"��		E	��		E	��		G	��		H	
��	 	H	��	,	I	��	2	I	��	4	I	��	8	I	
��	9	F	��	@	J	��	C	J	-��	M	J	��	U	J	��	V	K	��	\	K	��	^	K	��	b	I	
��	c	L	��	f	L	��	q	L	��	z	F	���	M	���	F	���	Q	���	I	
���	N	���	N	(���	N	���	N	���	F	���	O	���	O	���	G	���	F	���	G	��)		�


gnamegsnarf-guile-m4-docs�CRi2RC�gm
		,gfilenamefscripts/snarf-guile-m4-docs.scm�		!
��	0	%
��	2	&	��	5	&
��	(
���	6
���	:
��	�	D
��	�	S
��
		�
C6scripts/punify.go000064400000004756150536206120010110 0ustar00GOOF----LE-8-2.0�	]%4hs]gguile�	�	gdefine-module*�	�	�	gscripts�	gpunify�	�		gfilenameS�	
fscripts/punify.scm�	gexportsS�	�	
gset-current-module�	
�	
�	g%include-in-guild-list�	f1Strip comments and whitespace from a Scheme file.�	g%summary�	gstring->list�	gsymbol->string�	gchar=?�	gmemq�	glist->string�	gdisplay�	gwrite�	f(�	gwrite-punily�	f)�	f �	gwith-input-from-file�	geof-object?�	 gread�	!gcurrent-input-port�	"g
punify-one�	#gfor-each�	$gmain�C5h��]4	
54>"GRRh �]!"p�$B44554�:5$4 5$"4�5""$4:>"G66�$�("���4>"G4	>"G"X(
6�$"�$"4>"G4	>"G��"�����"���"����gform
	gls		Kgt	P	vgfirst�gls	�glast-was-list?	�g	new-first	�gfilenamefscripts/punify.scm�
	.
��			=	��	
	=		��		>	��		>	&��		>	��		>	��		?	��	!	?	��	%	?	��	)	?	��	*	@	��	6	?	��	<	A	��	A	A	#��	C	A	��	P	/	��	Y	C	��	p	D	��	v	E	��	v	/	��	y	/	��	}	/	���	/		���	0	���	0		���	1	���	1	���	1	���	2	���	3	���	4	
���	5	���	5	���	6	#���	6	���	8	���	7	'���	8	���	:	���	:	!���	:	���	;	��	<	��	7	'��	<	��	3	��	3	��	3	6��	3	��3	gnamegwrite-punily�CR !hP�]"445$C4>"G4455"���4455"����gform
		:gt	
	:gfilenamefscripts/punify.scm�
	I	��		K	��		L	��	
	L	
��		N	��	+	J	��	.	J	#��	4	J	��	:	O	��	:	K	��	;	J	��	>	J	#��	D	J	��	J	K	��		J
Chv]6ngfile
		
gfilenamefscripts/punify.scm�
	G
��	
	H	��		
gnameg
punify-one�C"R#"ht-136lgargs
			gfilenamefscripts/punify.scm�
	Q
��		R	��			


gnamegpunify�CRi$RC�gm
		(gfilenamefscripts/punify.scm�		(
��	,	+
��	.	,	��	1	,
��
	.
���	G
���	Q
���	T
��		�
C6scripts/api-diff.go000064400000021022150536206120010236 0ustar00GOOF----LE-8-2.0�!]^4h]gguile�	�	gdefine-module*�	�	�	gscripts�	gapi-diff�	�		gfilenameS�	
fscripts/api-diff.scm�	gimportsS�	gice-9�	
gcommon-list�	
�	�	gformat�	�	�	ggetopt-long�	�	�	�	gexportsS�	�	g	autoloadsS�	gsrfi�	gsrfi-13�	�	gstring-tokenize�	�	�	 gset-current-module�	! �	" �	#g%include-in-guild-list�	$f,Show differences between two scan-api files.�	%g%summary�	&gwith-input-from-file�	'gread�	(gread-alist-file�	)gset-object-property!�	*gput�	+gobject-property�	,gget�	-gassq-ref�	.gmeta�	/g	interface�	0ggroups�	1gmake-hash-table�	2gfor-each�	3g
hashq-set!�	4gread-api-alist-file�	5g	hashq-ref�	6ghang-by-the-roots�	7gset-difference�	8gdiff?�	9g
diff+note!�	:g	hash-fold�	;gacons�	<gmap�	=gcar�	>fgroups-removed: ~A
�	?fgroups-added: ~A
�	@glength�	Af ~5@A  ~5@A  :  �	Bf-�	Cf~5@A ~5@A : ~5@A�	Df~5@D ~5@D : ~5@D�	Ef     ~A
�	Fgsort�	Ggunion�	Hgstring<?�	Igsymbol->string�	Jgdetails�	Kf~A ~A:
�	Lgremovals�	Mf ~A
�	Ng	additions�	Of~A: no changes
�	Pgerror�	Qf!api-diff: group-diff: bad options�	Rg
group-diff�	Sgsingle-char�	TSd�	Ugvalue�	VU�	WJTV�	XW�	Yg
option-ref�	Zf	/dev/null�	[ZZ�	\gstring->symbol�	]gmain�C5h��]4	
5	4">"G#R$%R&'hO]6Ggfilenamefscripts/api-diff.scm�
	5	��		5	��		
Ch}]6ugfile
		
gfilenamefscripts/api-diff.scm�
	3
��	
	4	��		
gnamegread-alist-file�C(R)i*R+i,R(-./*0123hk]L6cggroup
		gfilenamefscripts/api-diff.scm�
	@	'��			A	>��		A	)��		C
h�|]!4545454>"G44	54	O45>"G>"GCtgfile
		|galist			|gmeta			|g	interface			|ght		E	lgfilenamefscripts/api-diff.scm�
	:
��		;	��			;	��		<	��		<	��		<	��		;	��		=	��		=	$��		=	��		;	��	"	>	��	(	>	��	/	>	��	8	?	��	>	?	��	?	?	%��	E	?	��	H	@	��	R	B	'��	X	B	6��	Z	B	'��	_	@	��	q	?	��		|gnamegread-api-alist-file�C4R,02235h{]LL�4L5�6sggroup
		gfilenamefscripts/api-diff.scm�
	I	��		K	.��		L	.��		K	(��		J	��		C-0hw]LO456ogx
		gfilenamefscripts/api-diff.scm�
	H	��		M	��		M	&��		M	��		I	��		Ch0�]	454O>"GC�g	interface
		,ght		)gfilenamefscripts/api-diff.scm�
	F
��		G	��			G	��		G	��		G	��		H	��		,gnameghang-by-the-roots�C6R7h�]
45(CC�ga
		gb		gresult			gfilenamefscripts/api-diff.scm�
	Q
��		R	��		R	��		S	��			gnamegdiff?�C8R8hpS]H45$4>"GK"45$4>"GK"J$6CKga
		kgb		kg
note-removals			kgnote-additions			kg	note-same			kgsame?			kgt			2gt		;	_gfilenamefscripts/api-diff.scm�
	W
��		X	��		Y	��		Y	��		Y	&��	+	Y	8��	3	Z	��	;	Z	��	D	Z	&��	X	Z	9��	e	[	��	i	[	��
		k	gnameg
diff+note!�C9R6:;,0<=9>hn]6fgremovals
		gfilenamefscripts/api-diff.scm�
	f	��		g	$��		g	��		C?ho]6gg	additions
		gfilenamefscripts/api-diff.scm�
	h	��		i	$��		i	��		ChG]C?gfilenamefscripts/api-diff.scm�
	j	��		
C2-@ABC9@hj]45NCbgsubs
		
gfilenamefscripts/api-diff.scm�
	x	#��		y	5��		y	%��		
C@hj]45NCbgadds
		
gfilenamefscripts/api-diff.scm�
	z	#��		{	5��		{	%��		
ChG]C?gfilenamefscripts/api-diff.scm�
	|	#��		
CDE
h /]94L54L5$45"$45"$$	�""4$"$">"G"4>"nG"g$]$O

HH4O	O
>"G4J
J�>"G""���""��|6'ggroup
	gold	gnew		g	old-count		*g	new-count		>gdelta		[g	add-count	�g	sub-count	�gfilenamefscripts/api-diff.scm�
	k	��		l	#��		l	��		m	#��		l	��		n	)��		n	2��	*	l	��	2	o	)��	3	o	2��	>	l	��	F	p	%��	Q	p	2��	[	l	��	^	q	��	c	q	$��	i	r	!��	q	r	/��	w	s	!��		s	/���	q	����	 ����	+����	>����	B����	F����	 ���	t	���	t	 ���	u	 ���	v	"���	}	"���	}	-���	~	4���	}	"���	$���	��&	CFGHIh�]45456zga
		gb		gfilenamefscripts/api-diff.scm�
�	��	�	'��	�	'��	�	��			C-J-9KL2Mhj]6bgx
		gfilenamefscripts/api-diff.scm�
�	4��	�	A��	�	6��		Ch(�]4L>"G6�gremovals
		!gfilenamefscripts/api-diff.scm�
�	*��	�	*��	�	5��	�	1��	�	*��	!�	*��		!CKN2Mhj]6bgx
		gfilenamefscripts/api-diff.scm�
�	4��	�	A��	�	6��		Ch(�]4L>"G6�g	additions
		!gfilenamefscripts/api-diff.scm�
�	*��	�	*��	�	5��	�	1��	�	*��	!�	*��		!COhZ]L6Rgfilenamefscripts/api-diff.scm�
�	*��	�	7��	�	,��		
Ch`�]4L5$"4L5$"OOO6�ggroup
		Ygt		gold		Ygt		(	:gnew		:	Ygfilenamefscripts/api-diff.scm�
�	��	�	,��	�	(��	�	C��	�	��	 �	,��	(�	(��	7�	C��	:�	��	Y�	��		YCPQh�a-13
4544554545445545(74	
>"G
O4455645		$O	66Ygi-old
		�gi-new		�goptions			�gi-old		�gg-old		#�gg-old-names		.�gi-new		7�gg-new		J�gg-new-names		U�gt		��
gfilenamefscripts/api-diff.scm�
	]
��	
	^	��		^	��		_	��		_	!��		_	%��		_	0��	!	_	%��	#	_	��	#	^	��	&	`	��	.	^	��	1	a	��	7	^	��	:	b	��	?	b	!��	@	b	%��	F	b	0��	H	b	%��	J	b	��	J	^	��	M	c	��	U	^	��	]	d	��	^	e	����	����	����	���	k	����	����	����	���	d	����	����	����	��%		�	
	gnameg
group-diff�CRRXY[4J<\Rhx-134�5454�54��5H45$4	4
,55�J�K"J@�gargs
			vgp		vgrest		!	vgi-old		+	vgi-new		6	vgoptions		9	vgt		E	lgfilenamefscripts/api-diff.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	!��	!�	��	!�	��	$�	��	)�	%��	+�	��	+�	��	.�	��	3�	%��	6�	��	6�	��	9�	��	9�	��	<�	��	B�	��	E�	��	E�	��	O�	*��	P�	*��	U�	/��	_�	*��	`�	$��	c�	��	e�	��	v�	��#			v


gnamegapi-diff�CRi]RC�gm
		0gfilenamefscripts/api-diff.scm�		)
��	4	0
��	6	1	��	9	1
��H	3
��O	7
��V	8
���	:
��N	F
��	Q
���	W
���	]
����
����
��	�
C6scripts/scan-api.go000064400000024553150536206120010266 0ustar00GOOF----LE-8-2.0S)]�4hT	]gguile�	�	gdefine-module*�	�	�	gscripts�	gscan-api�	�		gfilenameS�	
fscripts/scan-api.scm�	gimportsS�	gice-9�	
gpopen�	
�	�	grdelim�	�	�	gregex�	�	�	�	gexportsS�	�	gset-current-module�	�	�	g%include-in-guild-list�	f2Generate an API description for a Guile extension.�	g%summary�	gset-object-property!�	 gput�	!gobject-property�	"gget�	#g	add-props�	$gmake-regexp�	%g	open-pipe�	&g	OPEN_READ�	'geof-object?�	(gregexp-exec�	)g	read-line�	*gscan�	+f ^.guile.+: ([^ 	]+)([ 	]+(.+))*$�	,gformat�	-f
~A -c '~S ~S'�	.guse-modules�	/gsession�	0/�	1.0�	2gapropos�	3f.�	423�	5gstring->symbol�	6gmatch:substring�	7gScheme�	8f�	9g
hashq-set!�	:gscan-Scheme!�	;f^[0-9a-fA-F]+ ([B-TV-Z]) (.+)$�	<fnm ~A�	=gC�	>ghashq-get-handle�	?gerror�	@fboth Scheme and C:�	Agscan-C!�	Bgcurrent-module�	CgTHIS-MODULE�	Dgmemq�	Eggroups�	Fg	in-group?�	Ggstring-match�	Hg
string-append�	If^�	Jgsymbol->string�	Kgname-prefix?�	Lgadd-group-name!�	Mgeval�	Ngname�	Ogmake-grok-proc�	Pgmake-members-proc�	Qg	make-hook�	Rgfor-each�	Sgassq-ref�	Tgmembers�	Uggrok�	Vf+bad grouping, must have `members' or `grok'�	Wg	add-hook!�	Xgdescription�	Ygread�	Zg	open-file�	[gmake-grouper�	\glist-ref�	]gcatch�	^]�	_]�	`gmake-hash-table�	agsort�	bg	hash-fold�	cgstring�	dg	scan-data�	e7�	f=�	ggrun-hook�	hgstring<?�	if+;;; generated by scan-api -- do not edit!

�	jf(
�	kf(meta
�	lf  (GUILE_LOAD_PATH . ~S)
�	mggetenv�	nfGUILE_LOAD_PATH�	of  (LTDL_LIBRARY_PATH . ~S)
�	pfLTDL_LIBRARY_PATH�	qf  (guile . ~S)
�	rf  (libguileinterface . ~S)
�	sf(.+)�	tf~A -c '(display ~A)'�	ug%guile-build-info�	vgquote�	wglibguileinterface�	xvw�	ySux�	zf  (sofile . ~S)
�	{f  ~A
�	|gappend�	}gmap�	~g
hook->list�	7=��f) ;; end of meta
��f(interface
��f(~A ~A (scan-data ~S))
��f) ;; end of interface
��f	) ;; eof
��gmain�C5hX�]4	
54>"GRRi R!i"R hP-13"4(C���4>"G��"���"����gobject
			Igargs			Igargs		
	Agkey			Agvalue			Agfilenamefscripts/scan-api.scm�
	I
��	
	J	��		K	��		M	��		N	��		M	��	"	O	
��	:	P	��	A	P	
��	A	J	��			I
gnameg	add-props�C#R$%&'()hpJ]#4545"I45$C45$4>"G"45"���45"���Bgre
		pgcommand		pgmatch			pgrx			pgport			pgline			cgt		!	cgt		5	Vgfilenamefscripts/scan-api.scm�
	R
��		S	��	
	T	��		S	��		U	��		V	
��	!	V	��	-	X	��	5	X	��	W	Y	��	c	Y	��	c	U	��	d	U	��	p	U	��		p	gnamegscan�C*R*+,-1456 789hP�]445544	5$">"GL6�gm
		Jgx		Jgt		!	4gfilenamefscripts/scan-api.scm�
	a	��		b	��		b	#��		b	��		b	
��		c	��		c	��		c	��	!	c	��	1	d	��	9	c	��	J	e	��
		JCh �]45O6�ght
		gguile		gfilenamefscripts/scan-api.scm�
	[
��		\	��		]	��		]	��		_	��		`	��		]	��		\	��				gnamegscan-Scheme!�C:R*;,<56 =>?@9	hh�]	44	5544455>"G4L5$4>"G"L6�gm
		agx		agfilenamefscripts/scan-api.scm�
	j	��		k	��		k	#��		k	��		k	
��		l	��		l	��		l	��		l	&��	&	l	��	+	l	��	4	m	��	@	m	��	A	n	��	E	n	��	L	n	��	a	o	��		aCh �]45O6�ght
		gsofile		gfilenamefscripts/scan-api.scm�
	g
��		h	��		i	��		i	��		i	��		h	��			gnamegscan-C!�CAR4Bi5CRD"Eh�]456�gx
		ggroup		gfilenamefscripts/scan-api.scm�
	s
��		t	��	
	t	��		t	��		t	��			gnameg	in-group?�CFRGHIJh�]45456�gx
		gprefix		gfilenamefscripts/scan-api.scm�
	v
��		w	��			w	��	
	w	��		w	+��		w	��			gnamegname-prefix?�CKR E"h�]45�6�gx
		gname		gfilenamefscripts/scan-api.scm�
	y
��		z		��		z	��		z	#��		z	��		z	��		z	��			gnamegadd-group-name!�CLRMCLh~]4L5$L6Cvgx
		gfilenamefscripts/scan-api.scm�
	~	��			��	
		��	�	��		gnamegp�C Nh8�]45OQ4>"GC�gname
		6gform		6g
predicate?			6gp			6gfilenamefscripts/scan-api.scm�
	|
��		}	��		}	��	�	��	$�	��	+�	��		6	gnamegmake-grok-proc�CORDLh �]4L5$L6Cygx
		gfilenamefscripts/scan-api.scm�
�	��	�	��	�	
��	�	��		gnamegp�C Nh0�]
OQ4>"GC�gname
		+gmembers		+gp			+gfilenamefscripts/scan-api.scm�
�
��	�	��	�	��	�	��	 �	��		+	gnamegmake-members-proc�CPRQRRSTU?VW#OXPhxk]�4545$"$"4>"GL$44��5	4	55"	4
56cggdef
		xgname		xgmembers			xggrok			xgfilenamefscripts/scan-api.scm�
�	��	�	��	�	��	�	(��	�	��	�	��	�	%��	�	��	�	
��	#�	��	2�	��	6�	��	;�	��	M�	��	N�	��	Q�	&��	X�	;��	[�	&��	]�	&��	^�	&��	d�	5��	f�	&��	h�	��	m�	��	x�	��		xCYZ&h ]LO44556wgfile
		gfilenamefscripts/scan-api.scm�
�	��	�	��	�	��	�	��	�	��		Ch(�]	454O>"GC�gfiles
		&ghook		&gfilenamefscripts/scan-api.scm�
�
��	�	��	�	��	�	��		&gnamegmake-grouper�C[R\_[hZ]L��6Rgfilenamefscripts/scan-api.scm�
�	��	�	3��	
�	%��		

Ch]-13CUgargs
			gfilenamefscripts/scan-api.scm�
�	��			


C`:Aab#cJd"7=Eefgh�\]44545$"	4545$	"
>"GL$4L>"G"�CTgkey
		}gvalue		}gprior-result			}gt			5gfilenamefscripts/scan-api.scm�
�	 ��	�	"��		�	#��	
�	+��	�	#��	�	2��	�	;��	�	2��	�	.��	*�	2��	0�	;��	2�	2��	7�	#��	8�	/��	>�	8��	@�	/��	D�	+��	F�	/��	L�	/��	Q�	"��	_�	"��	`�	/��	|�	"��		}	Ch"ch�]45456�ga
		gb		gfilenamefscripts/scan-api.scm�
�	��	�	!��	�	(��	
�	!��	�	!��	�	(��	�	!��	�	��				C,ijklmn8opqr*sty6hj]45NCbgm
		gfilenamefscripts/scan-api.scm�
�	��	�	*��	�	"��		Cz{E|}"Nhj]6bgp
		
gfilenamefscripts/scan-api.scm�
�	-��	�	@��	
�	9��		
C~��R,�E"dh �]45�456�gx
		 gfilenamefscripts/scan-api.scm�
�	��	�	��	�	 ��	�	(��	�	/��	�	(��	�	��	�	��	�	!��	�	��	 �	��		 C��+h "-134
5454O54
54>"G4>"G44	
O554
>"G4>"G4>"G445$">"G445$">"G4>"G4H445O>"GJ>"G4>"G44 $4!"4#55"$5�>"G4%>"G4&>"G4'(>"G4)>"G4*>"GCgargs
		gguile	0gsofile		0ggrouper		0ght		0gall		vgt	��gt	��gi	'S	gfilenamefscripts/scan-api.scm�
�
��	
�	��	�	��	�	��	)�	��	0�	��	9�	��	M�	��	a�	��	d�	��	n�	 ��	r�	��	v�	��	v�	��	y�	��	~�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	-����	����	����	����	����	����	����	����	/���	���	���	���	��!�	��&�	��'�	��*�	��.�	��/�	��4�	!��8�	��:�	��F�	��X�	��a�	��f�	��m�	��v�	��{�	��}�	��~�	����	$����	(����	-����	(����	(����	$����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	��S		


gnamegscan-api�CRi�RC�gm
		,gfilenamefscripts/scan-api.scm�		=
��	0	C
��	2	D	��	5	D
��	<	F
��	C	G
���	I
���	R
���	[
��
	g
��	q	��	q
���	s
��	�	v
��
�	y
��{	|
��;�
����
��M�
��T�
��	V
C6scripts/doc-snarf.go000064400000040700150536206120010437 0ustar00GOOF----LE-8-2.0�A]�4h!]gfoo�	gbar�	gfoo/bar�	f0.0.2�	gdoc-snarf-version�	gguile�	�	gdefine-module*�		�	
�	gscripts�	g	doc-snarf�	
�	gfilenameS�	fscripts/doc-snarf.scm�	gimportsS�	gice-9�	ggetopt-long�	�	�	gregex�	�	�	g
string-fun�	�	�	grdelim�	�	�	�	gexportsS�	 �	!gset-current-module�	"!�	#!�	$f$Snarf out documentation from a file.�	%g%summary�	&gversion�	'gsingle-char�	('v�	)gvalue�	*)�	+&(*�	,ghelp�	-'h�	.,-*�	/goutput�	0'o�	1)�	2/01�	3gtexinfo�	4't�	534*�	6glang�	7'l�	8671�	9+.258�	:gcommand-synopsis�	;gdisplay�	<f
doc-snarf �	=gnewline�	>gdisplay-version�	?f(Usage: doc-snarf [options...] inputfile
�	@f6  --help, -h              Show this usage information
�	Af3  --version, -v           Show version information
�	Bf?  --output=FILE, -o       Specify output file [default=stdout]
�	Cf3  --texinfo, -t           Format output as texinfo
�	Df5  --lang=[c,scheme], -l   Specify the input language
�	Egdisplay-help�	Ff	doc-snarf�	Gg
option-ref�	Hgstring->symbol�	Igstring-downcase�	Jfscheme�	Kg
snarf-file�	Lgmain�	Mgc�	Nf^/\*(.*)�	Of^ \*/�	Pf	^ \* (.*)�	Qf	^ \*-(.*)�	RfNOTHING AT THIS TIME!!!�	SMNOPQR�	Tgscheme�	Uf^;; (.*)�	Vf^;;\.�	Wf^;;-(.*)�	Xf	^\(define�	YTUVUWX�	ZSY�	[gsupported-languages�	\glist-ref�	]gassq-ref�	^gdocstring-start�	_g
docstring-end�	`gdocstring-prefix�	ag
option-prefix�	bgsignature-start�	cgstd-int-doc?�	dg	lang-parm�	egmemq�	fgmap�	ggcar�	hgerror�	if.doc-snarf: input language must be c or scheme.�	jgwrite-output�	kgsnarf�	lgformat-texinfo�	mgformat-plain�	ng
unread-string�	ogread�	pglength�	qgdefine�	rglambda�	sgstring?�	tgfind-std-int-doc�	ugseparate-fields-discarding-char�	vg
string-append�	wgsplit-prefixed�	xgopen-input-file�	ygmake-regexp�	zgeof-object?�	{gclose-input-port�	|greverse�	}gneutral�	~gregexp-exec�	g	read-line��g
doc-string��gmatch:substring��goptions��f
internal: ��gappend��gparse-entry��gentry��g
make-entry��gentry-symbol��gentry-signature��gentry-docstrings��g
entry-options��gentry-filename��g
entry-line��g
get-symbol��gmake-prototype��f��gcall-with-input-string��g	read-char��gjoin-symbols��gsymbol->string��f. ��f ��gwith-output-to-port��gopen-output-file��gcurrent-output-port��gfor-each��f
��f@c snarfed from ��f:��f@deffn procedure ��g
write-line��f@c ��f
@end deffn��fProcedure: ��f;; ��f
Snarfed from ��f�C5h@3v]h�]$CC~gbraz
		gfilenamefscripts/doc-snarf.scm�
	1
��		2	��	
	2	��	
	2	��		gnamegfoo/bar�CRR4

 54#>"G$%R9:R;<=h0�]4>"G4>"G6�gfilenamefscripts/doc-snarf.scm�
	`
��		a	��		a	��		a	��		a	��	*	a	5��		*
gnamegdisplay-version�C>R;?@ABCDhh�]4>"G4>"G4>"G4>"G4>"G6�gfilenamefscripts/doc-snarf.scm�
	e
��		f	��		f	��		f	��		g	��		g	��		g	��	'	h	��	+	h	��	0	h	��	9	i	��	=	j	��	B	i	��	K	k	��	O	k	��	T	k	��	`	l	��	b	l	��		b
gnamegdisplay-help�CERF:G,&3HI6J>E/Kh�Z-134�545454544	4
555$6$
64545�$
�6
6Rgargs
		�goptions	�ghelp-wanted		J�gversion-wanted		J�gtexinfo-wanted		J�glang		J�ginput		y�goutput		y�gfilenamefscripts/doc-snarf.scm�
	p
��	
	q	��		q	$��		q	��		q	��		q	��		r	��		r	+��	!	r	��	"	s	��	(	s	.��	+	s	��	,	t	��	2	t	.��	5	t	��	6	u	��	9	v	��	<	v	"��	B	v	6��	D	v	<��	F	v	"��	H	v	��	J	u	��	J	r	��	X	w	��	\	x	��	b	w	��	f	y	��	g	{	��	l	{	)��	o	{	��	p	|	��	v	|	*��	y	|	��	y	{	����	���	}	
����	����	����	��)		�


gnameg	doc-snarf�CRiLRZ[R\][^_`abc
hh�]45�$
"K�$"=�$	".�$	"�$	"	�$	"6�glang
		hgparm		hgfilenamefscripts/doc-snarf.scm�
�
��	�	��	�	��	h�	��		h	gnameg	lang-parm�CdRefg[hijklmhP]4455$"4>"G45$	"
6ginput
		Pgoutput		Pgtexinfo?			Pglang			Pgt			3gfilenamefscripts/doc-snarf.scm�
�
��	�	��	�	��	�	��	�	��	�	��	#�	
��	(�	��	6�	��	F�	��	P�	��		P	gnameg
snarf-file�CKRnopqrsh�)]
4>"G45�$�"o	45�$_�&T���$I����$=	4���5�$*����&4������5$	������CCCCCCCC	45�$@�&3���$&����$4���5$���C"��O"��K"��G"��C"��?C!gline
	�g
input-port	�gform		�gfilenamefscripts/doc-snarf.scm�
�
��	�	��	�	��	�	��	"�	��	&�	��	-�	��	4�	��	8�	��	:�	��	=�	��	A�	��	D�	��	F�	��	J�	��	M�	��	P�	��	T�	��	W�	��	\�	��	`�	��	a�	��	e�	��	g�	��	j�	"��	m�	��	q�	��	r�	��	w�	 ��	z�	��	~�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	��5	�	gnamegfind-std-int-doc�g
documentationf�Unread @var{line} from @var{input-port}, then read in the entire form and
return the standard internal docstring if found.  Return #f if not.�CtRufvhe]L6]gline
		
gfilenamefscripts/doc-snarf.scm�
�	
��	
�	��		
Chh-13LO6`glines
			gfilenamefscripts/doc-snarf.scm�
�	��	�	��			


Ch�]
O6�gstring
		gprefix		gfilenamefscripts/doc-snarf.scm�
�
��	�	��			gnamegsplit-prefixed�CwRxyd^_`abz{|}~���ctw���h�u	]�4544554455445544554455"74	5$4
>"G6	&[4
5$*4545
�

	"���45	
�

	"��z	&m4
54
54
54
5$*4545
�
�

	"��$+45
45�
�

	"���$�45$&45$
45""$4455"454

5�
�

	"��Z$/454

5�
�

	"��%45
�

	"��	&24
54
54
5$+45
45�
�

	"���$�45$&45$
45""$4455"454

5�
�

	"�� $/454

5�
�

	"���45
�

	"���C45


	"���m	g
input-file
	�glang	�gi-p			�gdocstring-start		�g
docstring-end		)�gdocstring-prefix		9�g
option-prefix		I�gsignature-start		Y�gline		_�gstate			_�gdoc-strings	
	_�goptions		_�gentries		_�glno	
	_�gm	��gm0	Zgm1	Zgm2	Zgm3	Zgd	��gint-doc	��goptions	�gm1	}�gm2	}�gm3	}�gd	��gint-doc	�
goptions	
?gfilenamefscripts/doc-snarf.scm�
�
��	�	��		�	��	�	%��	�	2��	�	(��	�	2��	�	%��	�	��	�	%��	�	2��	%�	(��	'�	2��	)�	%��	)�	��	,�	%��	/�	2��	5�	(��	7�	2��	9�	%��	9�	��	<�	%��	?�	2��	E�	(��	G�	2��	I�	%��	I�	��	L�	%��	O�	2��	U�	(��	W�	2��	Y�	%��	Y�	��	_�	��	`�	��	j�	��	k�	����	����	����	����	����	����	
����	����	 ����	����	����	-����	9����	����	����	&����	*����	6����	���	����	���	���	��	��		��	��	
�� 	��(	 ��)		��3		��4		:��9
	��I	��O	
��P	��X	 ��[
	"��e
	��j	��z	���	
����	 ����	0����	 ����	����	)����	 ����	"����	)����	;����	)����	����	����	����	����	���	���	���	"���	+���	/���	���	���	��	��	
��	��	 ��	)��	-��	��'	��*	��:	��;	��C	 ��D	)��E	-��J	9��Z	��^	��b�	��c 	��l!	��u"	��} 	���#	
���%	���%	 ���&	"���&	���'	���%	���#	
����	 ����	0����	 ����	����	)����	 ����	"����	)����	;����	)����	����	����	����	���	��
)	��*	��*	"��*	+��*	/��+	��,+	��/-	��?*	��E#	
��F/	��N/	 ��O/	)��P/	-��Q0	��a0	��d2	��t/	��u4	��}4	 ��~4	)��4	-���4	9���4	����	����	����	+����	B����	����	$����	���	�	gnamegsnarf�CkR�h�]C�gsymbol
		g	signature		g
docstrings			goptions			gfilename			gline			gfilenamefscripts/doc-snarf.scm�
6
��	7	
��	7	��			gnameg
make-entry�C�Rhz]�Crge
		gfilenamefscripts/doc-snarf.scm�
8
��	9	��		gnamegentry-symbol�C�Rh}]	�Cuge
		gfilenamefscripts/doc-snarf.scm�
:
��	;	��		gnamegentry-signature�C�Rh~]	�Cvge
		gfilenamefscripts/doc-snarf.scm�
<
��	=	��		gnamegentry-docstrings�C�Rh{]	�Csge
		gfilenamefscripts/doc-snarf.scm�
>
��	?	��		gnameg
entry-options�C�Rh|]	�Ctge
		gfilenamefscripts/doc-snarf.scm�
@
��	A	��		gnamegentry-filename�C�Rh�]	�C�ge
		gfilenamefscripts/doc-snarf.scm�
B
��	D	��		gnameg
entry-line�g
documentationf4This docstring will not be snarfed, unfortunately...�C�R���|pH�	h�A]$54545454545�45��645
�$=445�545�45�4545�45��6454545�45��69g
docstrings
	�goptions	�gdef-line		�gfilename		�gline-no		�gfilenamefscripts/doc-snarf.scm�
I
��	K	��	M	��	N	��	N	+��	 O	��	+P	��	2P	��	3P	3��	:P	��	;P	��	=M	��	>Q	��	FQ	��	JK	��	MR	��	PR	%��	WR	 ��	YR	��	ZS	��	aS	��	bT	��	iT	��	jU	��	uV	��	|V	��	}V	2���V	���V	���R	���X	���X	���X	���X	-���Y	���Y	���Y	2���Y	���Y	���X	��)	�	gnamegparse-entry�C�R��o���hP�]	4>"G4>"G45�$6�$6C�gs-p
		Lgtmp	-	Lgfilenamefscripts/doc-snarf.scm�
a	��	b	��	c	��	'd	��	-b	��	2f		��	6e	��	<g		��	?h		��	Ce	��	Ii		��	Kk		��
		LCh�]6{gdef-line
		
gfilenamefscripts/doc-snarf.scm�
^
��	
_	��		
gnamegmake-prototype�C�R��ohH�]	4>"G4>"G45�$�C�$CC�gs-p
		Ggtmp	-	Ggfilenamefscripts/doc-snarf.scm�
p	��	q	��	r	��	's	��	-q	��	2u		��	6t	��	9v		��	=w		��	At	��	Fz		��		GCh]6wgdef-line
		
gfilenamefscripts/doc-snarf.scm�
m
��	
n	��		
gnameg
get-symbol�C�R�v����hH](C�$
456�(�64�54�56gs
		Cgfilenamefscripts/doc-snarf.scm�
~
��		��	
�		��	�		��		��	�	��	�	��	�		��	"�	��	&	��	+�	��	-�		��	0�	��	5�	(��	7�	��	9�	1��	:�	5��	?�	C��	A�	5��	C�		��		Cgnamegjoin-symbols�C�R����hR]LL6Jgfilenamefscripts/doc-snarf.scm�
�	��	
�	��		

Ch(�]$45"45O6�gentries
		%goutput-file		%gwriter			%gfilenamefscripts/doc-snarf.scm�
�
��	
�	��	�	*��	�	#��	%�	��		%	gnamegwrite-output�CjR;��=��������hb]6Zgs
		gfilenamefscripts/doc-snarf.scm�
�	��	�	��		C�;��h }]4>"G6ugs
		gfilenamefscripts/doc-snarf.scm�
�	��	�	��	�	!��	�	��	�	(��		C���h�]4>"G445>"G4>"G4>"G445>"G4>"G445>"G4>"G4	>"G44
5>"G4>"G44
5>"G445>"G6�gentry
	gfilenamefscripts/doc-snarf.scm�
�
��	�	��	�	��	�	��	�	��	�	��	#�	��	,�	��	<�	��	@�	��	E�	��	N�	��	Q�	��	\�	��	e�	��	i�	��	n�	��	w�	��	z�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	��%	gnamegformat-texinfo�ClR;��=��hb]6Zgs
		gfilenamefscripts/doc-snarf.scm�
�	��	�	��		C�;��h }]4>"G6ugs
		gfilenamefscripts/doc-snarf.scm�
�	��	�	��	�	!��	�	��	�	(��		C�������h�]4>"G445>"G4>"G445>"G44	5>"G4
>"G445>"G4>"G44
5>"G4>"G6wgentry
	�gfilenamefscripts/doc-snarf.scm�
�
��	�	��	�	��	�	��	�	��	�	��	#�	��	,�	��	<�	��	A�	��	L�	��	U�	��	Z�	��	e�	��	n�	��	r�	��	w�	����	����	����	����	����	����	����	����	����	����	����	����	��	�gnamegformat-plain�CmRCngm
��gfilenamefscripts/doc-snarf.scm��	1
���	J	���	J
���	N
���	U	���	U
���	X	���	W
���	`
��3	e
��U	p
��\�
��^�	��a�
����
��	�
��
T�
��8�
����
���6
��U8
���:
���<
�� >
�� �@
��!�B
��$�I
��&�^
��(Rm
��)�~
��+S�
��/��
��3:�
��"	3<
C6scripts/use2dot.go000064400000007717150536206120010163 0ustar00GOOF----LE-8-2.0�][4h"]gguile�	�	gdefine-module*�	�	�	gscripts�	guse2dot�	�		gfilenameS�	
fscripts/use2dot.scm�	gimportsS�	gsrfi�	
gsrfi-13�	
�	gselectS�	gstring-join�	�	�	gfrisk�	�	gmake-frisker�	g	edge-type�	gedge-up�	g	edge-down�	�	�	�	gexportsS�	�	g	autoloadsS�	gice-9�	 ggetopt-long�	! �	" �	#!"�	$gset-current-module�	%$�	&$�	'f1Print a module's dependencies in graphviz format.�	(g%summary�	)g
guile-user�	*)�	+g*default-module*�	,gformat�	-f~S�	.gq�	/gmap�	0f~A=~A�	1gvv�	2fdigraph use2dot {
�	3gfor-each�	4f  ~A;
�	5glabel�	6fGuile Module Dependencies�	7gratio�	8gfill�	978��	:9�	;g>>header�	<f  "~A" -> "~A"�	=gautoload�	>gstyle�	?gdotted�	@>?��	Agfontsize�	BA	��	C@B�	Dgcomputed�	Egbold�	F>E��	GF�	Hf [~A]�	If,�	Jf;
�	Kg>>body�	Lf}�	Mg>>footer�	Ng>>�	Ofuse2dot�	Pgdefault-module�	Qgsingle-char�	RQm�	Sgvalue�	TS�	UPRT�	VU�	Wg
option-ref�	Xgreverse�	Ygedges�	Zgmain�C5h`	�]4	
#5	4&>"G'(R*+R,-hs]6kgs
		gfilenamefscripts/use2dot.scm�
	;
��		<	
��		<	��		gnamegq�C.R/,0hy]��6qgpair
		gfilenamefscripts/use2dot.scm�
	?	��		@	��	
	@	��	
	@	'��		@		��		Chp]6hgpairs
		
gfilenamefscripts/use2dot.scm�
	>
��	
	?	��		
gnamegvv�C1R,23,4hf]6^gs
		gfilenamefscripts/use2dot.scm�
	E	��		E	#��		E	��		C15.6:
h0�]4>"G445�	�56�gfilenamefscripts/use2dot.scm�
	C
��		D	��		D	
��	
	D	��		F	��		F	��		F	��	#	F	��	%	F	��	&	F	��	+	F	��	-	E	��
		-
gnameg>>header�C;R3,<=CDGH1IJh�]	44545>"G45�$"�$	"$%4
445
5>"G"6gedge
	�gkey	*	Ngt	N	~gfilenamefscripts/use2dot.scm�
	O	��		P	��		P	��			P	%��		P	6��		P	��	$	Q	��	*	Q	��	7	R	��	D	Q	��	F	S	��	N	Q	��	W	V	��	\	V	��	]	V	$��	`	V	1��	h	V	:��	j	V	$��	o	V	���	W	���	W	��	�Cht]6lgedges
		
gfilenamefscripts/use2dot.scm�
	M
��	
	N	��		
gnameg>>body�CKR,Lhj]6bgfilenamefscripts/use2dot.scm�
	Z
��		[	
��			[	��			
gnameg>>footer�CMR;KMh(�]4>"G4>"G6xgedges
		(gfilenamefscripts/use2dot.scm�
	]
��		^	��		_	��	(	`	��		(gnameg>>�CNR OVWP+NXYhP�-134�5454�5454	445
556�gargs
			Pgparsed-args		Pg=m		"	Pgscan		.	Pgfiles		9	Pgfilenamefscripts/use2dot.scm�
	b
��	
	c	��		c	)��		c	#��		d	#��		c	��		c	��		f	
��		f	%��	"	f	
��	"	c	��	%	g	��	)	g	��	.	g	��	.	c	��	1	h	��	6	h	(��	7	h	,��	9	h	��	9	c	��	>	i	��	A	i	��	B	i	��	J	i	��	L	i	��	N	i	��	P	i	��			P


gnameguse2dot�CRiZRC�gm
		0gfilenamefscripts/use2dot.scm�		0
��	2	7	��	5	7
��	7	9	��	:	9
���	;
��	>
���	C
��	M
���	Z
��S	]
��	V	b
��	]	k
��		_
C6scripts/display-commentary.go000064400000004633150536206120012411 0ustar00GOOF----LE-8-2.0�	]*4h]gguile�	�	gdefine-module*�	�	�	gscripts�	gdisplay-commentary�	�		gfilenameS�	
fscripts/display-commentary.scm�	gimportsS�	gice-9�	
g
documentation�	
�	�	�	gexportsS�	�	gset-current-module�	�	�	f5Display the Commentary section from a file or module.�	g%summary�	gformat�	f~A commentary:
~A�	gfile-commentary�	gdisplay-commentary-one�	gmap�	gsymbol->string�	g
string-append�	f/�	 gmodule-name->filename-frag�	!g%search-load-path�	"f
module ~A
�	#gdisplay-module-commentary�	$gfor-each�	%gstring?�	&gstring-index�	'gwith-input-from-string�	(gread�	)gmain�C5h��]4	
54>"GRh�]456�gfile
		gfilenamefscripts/display-commentary.scm�
	%
��		&	
��	
	&	'��		&	��		gnamegdisplay-commentary-one�CRh@(]45" (C�4�5"�����"��� gls
		?gls		?gls			1gacc			1gfilenamefscripts/display-commentary.scm�
	(
��		)	��		)	��		*	��		+	��		-	��		-	��	$	-	,��	'	-	0��	)	-	��	1	-	
��	1	*	��	4	*	��	7	*	"��	?	*	��		?gnamegmodule-name->filename-frag�C R! "h8�]	4455$4>"G6C�gmodule-name
		3gt		3gfilenamefscripts/display-commentary.scm�
	/
��		0		��		0	��		0		��		0	��		2	��		2	��	#	2	��	1	3	��
		3gnamegdisplay-module-commentary�C#R$%&#'(h@�]45$!
4(5&
4566�$6C�gref
		=gfilenamefscripts/display-commentary.scm�
	6	��		7	��	
	7	��		8	#��		8	��		:	��	(	9	��	.	;	��	1	<	��	5	7	��	;	=	��		=Ch�-136�grefs
			gfilenamefscripts/display-commentary.scm�
	5
��		6	��			


gnamegdisplay-commentary�CRi)RC�gm
		,gfilenamefscripts/display-commentary.scm�		
��	.	#	��	1	#
��	%
���	(
���	/
��	5
���	@
��		�
C6scripts/read-text-outline.go000064400000015737150536206120012151 0ustar00GOOF----LE-8-2.0�]L4h]gguile�	�	gdefine-module*�	�	�	gscripts�	gread-text-outline�	�		gfilenameS�	
fscripts/read-text-outline.scm�	gimportsS�	gice-9�	
gregex�	
�	�	�	gexportsS�	gread-text-outline-silently�	gmake-text-outline-reader�	�	g	autoloadsS�	grdelim�	�	g	read-line�	�	ggetopt-long�	�	�	�	gset-current-module�	�	 �	!g%include-in-guild-list�	"f*Convert textual outlines to s-expressions.�	#g%summary�	$gsymbol->string�	%gstring=?�	&f?�	'g	substring�	(g
string-length�	)g??�	*gmatch:substring�	+gmsub�	,f�	-g
??-predicates�	.gmake-regexp�	/f^�	0g
string-append�	1gassq-ref�	2glevel-submatch-number�	3g
compute-level�	4glevel-substring-divisor�	5gbody-submatch-number�	6gmatch:suffix�	7gextra-fields�	8gmap�	9gfor-each�	:gset-object-property!�	;gregexp-exec�	<glevel�	=gmake-line-parser�	>gstart�	?>�	@geof-object?�	Agobject-property�	Bgerror�	Cfunhandled diff not 1:�	Df(([ ][ ])*)- *�	E4	��	FE�	Ggwrite�	Hg	open-file�	Ifr�	Jgnewline�	Kgmain�C5hP�]4	
5	4 >"G!R"#R$%&'(h �]	45445�56�gsymbol
		 gname			 gfilenamefscripts/read-text-outline.scm�
	{
��		|	��			|	��		}	��		}	��		}	&��		}	"��		}	��	 	}	��
		 gnameg??�C)R*hj]L6bgm
		
gfilenamefscripts/read-text-outline.scm�
�	��	
�	��		
Chp]OChgn
		
gfilenamefscripts/read-text-outline.scm�
	
��		
gnamegmsub�C+R)%,*h�]44L�55�C�gm
		gfilenamefscripts/read-text-outline.scm�
�	��	�	��	�	��	�	 ��	�	3��	�	 ��	�	��	�	��			C+h(�]�4�5$O"4�5�C�gpair
		&gfilenamefscripts/read-text-outline.scm�
�
��	�	��	�	��	�	��	
�	��	�	��	�	��	"�	��	$�	��	%�	��		&gnameg
??-predicates�C-R'.%/0+123hj]L6bgm
		gfilenamefscripts/read-text-outline.scm�
�	$��	�	&��		C4(h�]44L55L�C}gm
		gfilenamefscripts/read-text-outline.scm�
�	$��	�	)��	�	8��	�	)��	�	&��		C(hs]4L56kgm
		
gfilenamefscripts/read-text-outline.scm�
�	��	�	0��	
�	!��		
C56hj]6bgm
		gfilenamefscripts/read-text-outline.scm�
�	��	�	*��		C78-9:h�]L�4�L56�gpair
		gfilenamefscripts/read-text-outline.scm�
�	'��		�	.��	
�	*��	
�	+��	�	*��	�	)��		Ch{]OL6sgobj
		gm		gfilenamefscripts/read-text-outline.scm�
�	$��	�	&��			Chr]Cjgobj
		gm		gfilenamefscripts/read-text-outline.scm�
�	��			C;:<hX�]4L5$?4L54L54>"G4L>"GCC�gline
		Tgt		Tglevel		!	Rgbody		!	Rgfilenamefscripts/read-text-outline.scm�
�	��	�	
��	�	��	�	��	�	��	!�	��	&�	��	,�	/��	3�	��	<�	��		TCh]24
5445$"	455445$"54	5$
O"(45$
O"
O45$45"45$45O"OC�gre
	gspecs	gfc			1grx		1gt		?	Qglevel-substring		Sgt		^�gt		z�g
extract-level	�gt	��gextract-body	�gt	��gnew	��gmisc-props!	�gfilenamefscripts/read-text-outline.scm�
�
��	�	��	�	
��	�	��	�	 ��	�	*��	�	 ��	�	��	$�	 ��	(�	/��	,�	 ��	.�	��	1�	��	4�	��	7�	��	=�	+��	?�	��	?�	 ��	S�	��	S�	��	V�	��	\�	&��	^�	��	^�	��	r�	��	x�	&��	z�	��	z�	����	����	����	%����	����	����	����	����	$����	����	����	-����	"����	��*		gnamegmake-line-parser�C=R=?@A<BC:>
h`�]QHH"%45$"'4L5$�45�		
�$	�"�	
�$S	�

$"4	>"G
4>"GJ�K���"E	
�$=""4
�5�$
K"
�
"���J
"���J��J�K"45"���	45"���45	�J"���J�K	J&CJ�C�gport
	\gall	\gpchain			\gline		4g
prev-level		4gtp		4gt		4gt		)1gwords		6glevel		Agdiff			Hgt	
	g�gp	
��
gfilenamefscripts/read-text-outline.scm�
�	��	�	��	�	��		�	��		�	��	�	��	�	��	�	
��	#�	��	)�	��	6�	(��	6�	��	9�	(��	?�	;��	A�	(��	A�	��	H�	'��	H�	��	M�	��	R�	��	W�	��	^�	��	c�	��	g�	"��	g�	��	t�	"��	x�	)����	"����	����	7����	����	+����	����	1����	+����	����	����	����	����	,����	=����	E����	,����	#����	����	#����	-����	����	(����	����	+����	����	"���	���	 ��.�	��4�	��5�	��I�	��L�	��N�	��P�	��V�	��W�	��[�	��B	\Ch�]
45OC�gre
		gspecs		g
parse-line			gfilenamefscripts/read-text-outline.scm�
�
��	�	��	�	��			gnamegmake-text-outline-reader�CR4iDF5RGHIJh@�-13444�55>"G4>"GC�gargs
			:gfilenamefscripts/read-text-outline.scm�
�
��	
�	��	
�		��	�	%��	�	0��	�	;��	�	%��	�		��	 �	��	)�	��			:


gnamegread-text-outline�CRiKRC�gm
		0gfilenamefscripts/read-text-outline.scm�		p
��	4	x
��	6	y	��	9	y
��7	{
��S	
��1�
��
��
���
���	��
�	���	���	���
��G�
��N�
��	P
C6scripts/autofrisk.go000064400000023350150536206120010574 0ustar00GOOF----LE-8-2.0�&]|4h#
]gguile�	�	gdefine-module*�	�	�	gscripts�	g	autofrisk�	�		gfilenameS�	
fscripts/autofrisk.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	gsrfi-8�	�	�	gsrfi-13�	�	�	gsrfi-14�	�	�	gread-scheme-source�	�	�	gfrisk�	�	�	�	 gexportsS�	!�	"g	autoloadsS�	#gice-9�	$gpopen�	%#$�	&gopen-input-pipe�	'&�	(%'�	)gset-current-module�	*)�	+)�	,g%include-in-guild-list�	-f0Generate snippets for use in configure.ac files.�	.g%summary�	/g
files-glob�	0gnon-critical-external�	1gnon-critical-internal�	2gprograms�	3gpww-varname�	4/0123�	5g*recognized-keys*�	6gerror�	7f
syntax error:�	8finput not a list�	9gevery�	:glist?�	;fnon-list element�	<glength�	=flist too short�	>gquote�	?gmemq�	@funrecognized key:�	Agapply�	Bgmap�	Cgfold�	Dgappend�	Egassq-ref�	Fgcanonical-configuration�	Ggfor-each�	Hgformat�	IfGUILE_MODULE_REQUIRED~A
�	Jg>>strong�	Kgobject->string�	Lgstring-map!�	Mgchar-set-contains?�	Ngchar-set:letter+digit�	Og	safe-name�	Pfprobably_wont_work�	Qg*pww*�	Rgedge-up�	Sg	edge-down�	Tfhave_guile_module~A�	UfGUILE_MODULE_AVAILABLE(~A, ~A)
�	Vf"test "$~A" = no &&
  ~A="~A $~A"~A�	Wf

�	Xg>>weak�	Yfguile_module~Asupport_~A�	ZfAC_PATH_PROG(~A, ~A)
�	[ftest \
�	\f "$~A" = "" -o \
�	]f~A &&
~A="~A $~A"

�	^glist-ref�	_fwar = peace�	`ffreedom = slavery�	afignorance = strength�	bgrandom�	cg	>>program�	dg
>>programs�	efecho '(' ~A ')'�	fgsymbol->string�	ggread�	hgunglob�	igmake-frisker�	jgexternal�	kg	partition�	lgmember�	mgmod-down-ls�	nfAC_DEFUN([AUTOFRISK_CHECKS],[

�	of
~A=~S

�	pf�	qfAC_SUBST(~A)
])

�	rg>>checks�	sg[
AC_DEFUN([AUTOFRISK_SUMMARY],[
if test ! "$~A" = "" ; then
    p="         ***"
    echo "$p"
    echo "$p NOTE:"
    echo "$p The following modules probably won't work:"
    echo "$p   $~A"
    echo "$p They can be installed anyway, and will work if their"
    echo "$p dependencies are installed later.  Please see README."
    echo "$p"
fi
])
�	tg	>>summary�	uf
modules.af�	vgfile-exists?�	wfcould not find input file:�	xgwith-output-to-file�	yf~A.m4�	zgread-scheme-source-silently�	{gmain�C5h �]4	
 !"(5	4+>"G,R-.R45R6789:;<hk]45�Ccgform
		gfilenamefscripts/autofrisk.scm�
	N	��		N	$��		N	��		C=>?5h8�]��$$&C45$CNCC�gform
		4gkey		4gt		!	2gfilenamefscripts/autofrisk.scm�
	P	��		Q	��		Q	��	
	R	��		R	��		S	$��		S	��		S	��		T	��	!	S	��	0	V	!��		4C@ABCDh8�]
�L&�$4�5""$CC�gform
		4gso-far		4gt		&	4gfilenamefscripts/autofrisk.scm�
	[	 ��		\	0��		\	&��		]	+��		\	&��		^	+��		^	:��		^	+��	&	\	"��
		4	Chj]OL6bgkey
		gfilenamefscripts/autofrisk.scm�
	Z	��		`	 ��		[	��		C5Ehb]L6Zgkey
		
gfilenamefscripts/autofrisk.scm�
	c	��	
	d	��		
Ch��]�$"4>"G45$"4>"G45$"4>"GH4	O5
J$"4>"G4
O5OC�gforms
	�g	condition	*	Mg	condition	V	ygun	z�g	condition	��gx	��gbunched��gfilenamefscripts/autofrisk.scm�
	I
��		L		��			K	��		K	��		K	*��		L	��		K	��	"	M		��	*	M	��	2	K	��	7	K	��	;	K	*��	=	M	��	B	K	��	N	N		��	V	N	��	^	K	��	c	K	��	g	K	*��	i	N	;��	n	K	��	z	O	��	}	P	���	Y	���	P	���	K	���	K	���	K	*���	K	���	Z	���	Z	�� 	�gnamegcanonical-configuration�CFRGHIhm]6egmodule
		gfilenamefscripts/autofrisk.scm�
	g	��		h	��		h	��		Chz]6rgmodules
		
gfilenamefscripts/autofrisk.scm�
	f
��	
	g	��		
gnameg>>strong�CJRKLMNhh]45$C_C`gc
		gfilenamefscripts/autofrisk.scm�
	m	��		n	��		n	��		Ch(�]	454>"GC�gmodule
		"gvar			"gfilenamefscripts/autofrisk.scm�
	k
��		l	
��			l	��		m	��		"gnameg	safe-name�CORPQRGRSHTOUVQW
hP]454544554>"G	6�gedge
		Mgup			Mgdown			Mgvar		#	Mgfilenamefscripts/autofrisk.scm�
	w	��		x	��			x	��		y	��		x	��		z	��		z	%��		z	;��	#	z	��	#	x	��	&	{	��	+	{	��	4	{	��	A	|	��	K	}	-��	M	|	��		MCh{]6sg
weak-edges
		
gfilenamefscripts/autofrisk.scm�
	v
��	
	w	��		
gnameg>>weak�CXRBHYOhw]4L56ogprog
		gfilenamefscripts/autofrisk.scm�
�	��	�	 ��	�	��	�	��		CGHZh]6wgvar
		
gprog		
gfilenamefscripts/autofrisk.scm�
�	��	�	��	
�	��		
	CH[H\hm]6egvar
		gfilenamefscripts/autofrisk.scm�
�	��	�	��	�	��		C]^_`abQhx(]
4O54>"G4>"G4>"G4	
4
	556 gmodule
		qgprogs		qgvars			qgfilenamefscripts/autofrisk.scm�
�
��	�	��	�	��	�	��	)�	��	.�	��	3�	��	<�	��	T�	��	U�	��	Y�	��	[�	��	]�	��	`�	��	a�	��	i�	��	q�	��		q	gnameg	>>program�CcRGchw]��6ogform
		gfilenamefscripts/autofrisk.scm�
�	��	�	��	
�	$��	�	��		Ch]6wgprograms
		
gfilenamefscripts/autofrisk.scm�
�
��	
�	��		
gnameg
>>programs�CdR&HeBfgh �]	4455456�gpattern
		 gp		 gfilenamefscripts/autofrisk.scm�
�
��	�	��	�	��	�	'��	�	��	�	��	�	��	�	��	 �	��
		 gnamegunglob�ChRFDBh/01ij3Qkl9lhb]L6Zgi
		
gfilenamefscripts/autofrisk.scm�
�	 ��	
�	"��		
CBSmh0�]	4L5$CLO44556�gmodule
		/gt		/gfilenamefscripts/autofrisk.scm�
�	��	�	��	�	��	 �	 ��	%�	/��	-�	 ��	/�	��		/CHnJopXCDmh�]456|gmodule
		gso-far		gfilenamefscripts/autofrisk.scm�
�	��	�	%��	�	��			Cd2qh�+]A4544455?454544554	54
5("� 4
O>G4>"G4>"G4>"G445>"G445>"G6#gforms
	�gcfg		�gfiles		�gncx		'�gnci		0�greport		<�gexternal		E�gpww-varname		N	bgweak		v�gstrong		v�
gfilenamefscripts/autofrisk.scm�
�
��	�	��		�	��	�	��	�	��	�	*��	�	/��	�	*��	�	��	�	��	�	��	!�	��	%�	��	'�	��	'�	��	*�	��	.�	��	0�	��	0�	��	3�	��	4�	��	<�	��	<�	��	?�	��	C�	��	E�	��	E�	��	H�	��	L�	��	N�	��	N�	��	V�	��	]�	*��	_�	��	c�	��	y�	��	~�	����	����	����	����	����	����	%����	����	����	����	����	����	����	����	����	����	����	����	����	��9	�gnameg>>checks�CrRHfsQh�]456zgfilenamefscripts/autofrisk.scm�
�
��	�	
��	
�	��	�	
��	�	��		
gnameg	>>summary�CtRuv6wxHyrzth m]44L5>"G6egfilenamefscripts/autofrisk.scm�
�	��	�	��	�	��	�	��	�	��		
C	h`-13("�45$"4>"G45O6gargs
			Ygfile		Ygt		!	Dgfilenamefscripts/autofrisk.scm�
�
��	�	��	�	��	�	,��	�	��	�	��	!�	��	.�	��	2�	��	9�	��	G�	��	L�	$��	P�	��	Y�	��			Y


gnameg	autofrisk�CRi{RC�gm
		0gfilenamefscripts/autofrisk.scm�		6
��	4	@
��	6	A	��	9	A
��	;	C	��	>	C
��	I
��5	f
��	�	k
��	�	t	��	�	t
���	v
��k�
����
����
��.�
����
���
���
��	
C6scripts/lint.go000064400000020131150536206120007525 0ustar00GOOF----LE-8-2.0A ]I4h]gguile�	�	gdefine-module*�	�	�	gscripts�	glint�	�		gfilenameS�	
fscripts/lint.scm�	gimportsS�	gice-9�	
gcommon-list�	
�	�	gformat�	�	�	�	gexportsS�	�	gset-current-module�	�	�	g%include-in-guild-list�	f1Check for bugs and style errors in a Scheme file.�	g%summary�	gscan-file-for-module-name�	guniq�	gscan-file-for-free-variables�	gresolve-module�	 fResolved module: ~S
�	!gcatch�	"geval�	#f!Unresolved free variables in ~A:
�	$g
write-char�	%gwrite�	&gnewline�	'f#No unresolved free variables in ~A
�	(gwith-input-from-file�	)geof-object?�	*gread�	+g
define-module�	,gappend�	-gdetect-free-variables�	.gmemq�	/gdefine-generic�	0gquote�	1g
quasiquote�	2glet�	3gletrec�	4gmap�	5gcar�	6glet*�	7gand-let*�	8gdefine�	9g
define-public�	:gdefine-macro�	;glambda�	<glambda*�	=greceive�	>g
define-method�	?gdefine*�	@gdefine-class�	Agdetect-free-variables-noncar�	Bgcase�	Cgunquote�	Dgunquote-splicing�	Egelse�	Fg=>�	Ggfor-each�	Hgmain�C5h0�]4	
54>"GRR !"hS]L�L6Kgfilenamefscripts/lint.scm�
	x	��		y	��		y	��		
C#$%&hh�-13M$4L>"G"4	>"G4L�>"G4>"GNC�gargs
			bgfilenamefscripts/lint.scm�
	z	��		{	��		|	��		}	��		|	��	)		��	;�	��	@�	��	E�	��	N�	��	`�	��			b


C'h��])45445545H4>"G"8("64O	O>"G�"���"���J$	
6C}gfilename
	�gmodule-name	�g	free-vars		�gmodule		!�g
all-resolved?		!�g	free-vars		>	vgfilenamefscripts/lint.scm�
	n
��		o	��	
	p	��	
	p	��		p	��		o	��		q	��	!	q	��	&	s	��	+	s	��	2	s	��	>	t	��	D	u	��	I	w	��	p�	��	v�	��	v	t	����	����	����	
��	�gnameglint�CR()*+hP�]"945$C"45"����$�&��C"���"���45"����gx
		?gfilenamefscripts/lint.scm�
�	��	�	��	�	��	�	��	�	��	"�	��	"�	��	%�	��	)�	��	,�	��	.�	!��	2�	��	5�	��	?�	��	@�	��	J�	��		J
Ch�]6�gfilename
		
gfilenamefscripts/lint.scm�
�
��	
�	��		
gnamegscan-file-for-module-name�CR(),*-h@�]")45$@4545�"���45"����gx
		/gfvlists		/gfilenamefscripts/lint.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	"�	8��	$�	��	'�	��	/�	��	/�	��	0�	��	5�	%��	=�	��		=
Ch�]6�gfilename
		
gfilenamefscripts/lint.scm�
�
��	
�	��		
gnamegscan-file-for-free-variables�CR.+/0123,45-hu]��L$L"M6mgbinding
		gfilenamefscripts/lint.scm�
�	"��	�	;��	�	;��	�	$��		C-hd]L6\gbodyform
		
gfilenamefscripts/lint.scm�
�	"��	
�	$��		
C67-hd]M6\gbodyform
		
gfilenamefscripts/lint.scm�
�	��	
�	��		
C-89:;<-hd]L6\gbodyform
		
gfilenamefscripts/lint.scm�
�	��	
�	��		
C=-hd]L6\gbodyform
		
gfilenamefscripts/lint.scm�
�	��	
�	��		
C>?-hd]L6\gbodyform
		
gfilenamefscripts/lint.scm�

	��	
	��		
C@Ah�]�$�"M6zgslot/option
		gfilenamefscripts/lint.scm�
	��		<��		8��		<��		��		CB-hi]�M6agcase
		gfilenamefscripts/lint.scm�
	��		1��		��		CCDEFA%hh�]H�$4J5$CC�$;��$"!�$"�$"�$C�$"�$r���$�����������"��4J4	
��5544	O��5?44	O��5?6
�$"�$I��(4	O��5@4�����J54
�����������J�56�$"�$"�$:���$���J�K�������J6��J�K���J6�$"�$U"-("/�$���"����"J��"���4	O��5@�$.4J��54���J54	O���5@�$"�$f"=("@�$!��$��"���"����"J���"���4	O��5@�$4	O���5@�$4��J54	O��5@ �$"!!�$""�$"#�$	$�J64J54$�J56C�gx
	fglocals	fgkey		,dgletrec?	��glocals-for-let-body	��glocals	��gargs	��glocals-for-lambda-body	glocals-for-receive-body	+Nglocals	i�gargs	i�glocals-for-method-body	��gfilenamefscripts/lint.scm�
�
��		�		��	
�	��	�	
��	�		��	�	��	!�	!��	%�		��	)�	��	,�	��	,�		��	b�	��	l�		��	}�	��	�	����	����	.����	(����	;����	"����	"����	����	����	 ����	(����	����	'����	6����	?����	6����	'����	����	����	����	"����	����	����	����	����	"����	����	����	����		���	���	���	���	���	���	��"�	��'�	5��*�	/��/�	��0�	��4�	/��7�	7��<�	C��>�	/��B�	5��H�	/��J�	��L�	��U�		��t�	��v�	��z�	��}�	%����	����	����	)����	3����	?����	)����	����	%����	����	����	)����	����		����	*����	,����	3����	,����	?����	9����	9����	3����	3����	*����	;���	*���	���	���	���	���	�� �		��!�	+��(�	:��+�	+��+�	��0�	��5�	,��;�	��<�	��H�	��L�	��N�	��W�		��i�	*��o	,��x	3��|	,��	J���	C���	?���	C���	C���	9���	9���	3���	3����	*����	;����	*����	���
	���
	���
	���		����		���	���	���	���	����		���	���	*���	��	��	��	��	���		��I"	*��M"	��P$	��T$	0��X$	��Y%	��^%	7��b%	��d$	��e'	���	f	gnamegdetect-free-variables�C-R.FA,-hXU]
�$45$CC�$.��$	�6454�56CMgx
		Uglocals		Ugkey		(	Sgfilenamefscripts/lint.scm�
)
��	-		��		-	��	
.	
��	.		��	.	��	.	!��	!0		��	%-	��	(1	��	(1		��	83	*��	<3	��	?5	��	C5	0��	G5	��	H6	��	M6	7��	Q6	��	S5	��	T8	��		U	gnamegdetect-free-variables-noncar�CARGhs-136kgfiles
			gfilenamefscripts/lint.scm�
:
��	;	��			


gnamegmain�CHRC�gm
		,gfilenamefscripts/lint.scm�		f
��	0	k
��	2	l	��	5	l
��	n
���
����
����
���)
��.:
��	0
C6scripts/snarf-check-and-output-texi.go000064400000043443150536206120014023 0ustar00GOOF----LE-8-2.0G]�4h�]gguile�	�	gdefine-module*�	�	�	gscripts�	gsnarf-check-and-output-texi�	�		gfilenameS�	
f'scripts/snarf-check-and-output-texi.scm�	gimportsS�	gice-9�	
gstreams�	
�	�	gmatch�	�	�	�	gexportsS�	�	gset-current-module�	�	�	g%include-in-guild-list�	f8Transform snarfed .doc files into texinfo documentation.�	g%summary�	gmake-syntax-transformer�	�	�	gwhen�	 gmacro�	!g$sc-dispatch�	"!�	#!�	$g_�	%gany�	&$%��	'g
syntax->datum�	('�	)'�	*g
datum->syntax�	+*�	,*�	-gif�	.gbegin�	/gsyntax-violation�	0/�	1/�	2f-source expression failed to match any pattern�	3gunless�	4gnot�	5g
*manual-flag*�	6gmember�	7f--manual�	8gprocess-stream�	9gcurrent-input-port�	:gstream-null?�	;g
stream-car�	<gsnarf_cookie�	=gdispatch-top-cookie�	>g
stream-cdr�	?g
stream-map�	@gstring?�	Agstring�	Bgint_hex�	Cgint�	Dgstring->number�	Egint_oct�	Fgint_dec�	Ggid�	Hgstring->symbol�	Igmake-stream�	Jgeol�	Kghash�	Lgport->stream�	Mgread�	Ngerror�	Ogsyntax�	Pfpremature end of file�	Qg
brace_open�	Rgconsume-multiline�	Sgconsume-upto-cookie�	Tgprocess-singleline�	Uf*premature end of file in directive context�	Vgreverse!�	Wgbegin-multiline�	Xf*premature end of file in multiline context�	Ygbrace_close�	Zg
end-multiline�	[gprocess-multiline-directive�	\g*file*�	]g*line*�	^g*c-function-name*�	_g*function-name*�	`g*snarf-type*�	ag*args*�	bg*sig*�	cg*docstring*�	df@deffnx {Scheme Procedure} �	eg*primitive-deffnx-signature*�	fg
string-length�	gg*primitive-deffnx-sig-length*�	hgregister�	iglength�	jgformat�	kf;~A:~A: ~A's C implementation takes ~A args (should take ~A)�	lgwith-output-to-string�	mf~A�	nf ~A�	of [~A�	pf . ~A�	qg	primitive�	rf@deffnx {C Function} ~A (�	sf, ~A�	tf)
�	uf
~A
�	vf@c snarfed from ~A:~A
�	wf@deffn {Scheme Procedure} ~A
�	xgstring=?�	yg	substring�	zgdisplay�	{f
�	|f@end deffn
�	}f�	~g
string-append�	f@��f@@��g
texi-quote��gSCM��G����finvalid argument syntax: ~A��gmap��gcdr��gcomma�������gparen_close�������gargsig��funknown doc attribute: ~A��garglist��g
paren_open�������finvalid arglist syntax: ~A��gvoid��G����glocation��gtype��gfname��greverse��������gcname��gsymbol->string��f unknown doc attribute syntax: ~A��gargpos��G����g
list-index��f9~A:~A: wrong position for argument ~A: ~A (should be ~A)
��gcurrent-error-port��funknown check: ~A��gmain�C5h�8Q]4	
54>"GRR4 #&),-.h�-13�Cgcond
			gbody			gfilenamef'scripts/snarf-check-and-output-texi.scm�
	!
��		"	��			
Ch{]	45L4?6sgargs
		gv			gfilenamef'scripts/snarf-check-and-output-texi.scm�		!
��		C12h(y]	45$O@6qgy
		'gtmp		'gfilenamef'scripts/snarf-check-and-output-texi.scm�
	!
��		'C5R43 #&),-4.h �-13�Cgcond
			gbody			gfilenamef'scripts/snarf-check-and-output-texi.scm�
	$
��		%	��			
Ch{]	45L4?6sgargs
		gv			gfilenamef'scripts/snarf-check-and-output-texi.scm�		$
��		C12h(y]	45$O@6qgy
		'gtmp		'gfilenamef'scripts/snarf-check-and-output-texi.scm�
	$
��		'C53R5R67589h(�-1345$ "456�gflags
			&gfilenamef'scripts/snarf-check-and-output-texi.scm�
	)
��	
	*	��		*	��		*	��		*	��		+	��	 	,	��	&	,	��				&


gnamegsnarf-check-and-output-texi�CR:;<=>h@�]	45$C45�&
45L645"����ginput
		;gtoken		;gfilenamef'scripts/snarf-check-and-output-texi.scm�
	/	��		F	��	
	F	��		G	��		G	��		H	��		H	��	!	H	��	$	I	��	.	I	
��	/	K	��	;	K	
��
		;gnamegloop�C?@ABCDEFGH
h��]"�"�"S"!�$�C45$�CC�$#��&
4	5�C"���"����$#��&
4	5�C"���"���$!��&45�C"��S"��O�$!��&4	5�C"��#"���gexpr
	�gw	@	]gx		@	]gw	n�gx		n�gw��gx	��gw��gx	��	gfilenamef'scripts/snarf-check-and-output-texi.scm�
	/	 ��		9	"��	 	/	 ��	,	;	(��	/	;	"��	3	/	 ��	N	7	(��	O	7	-��	X	7	"��	]	/	 ��	|	5	(��	}	5	-���	5	"���	/	 ���	3	(���	3	-���	3	"���	/	 ���	1	(���	1	,���	1	"���	/	 ��	�CI:;JK>h`�]"L45$C45&"�$
45"���4545�C"����gs
		Zgs		Rgt			1gfilenamef'scripts/snarf-check-and-output-texi.scm�
	=	-��		>	/��		@	4��		?	1��		A	:��		A	4��	5	?	1��	6	B	:��	B	B	4��	C	C	?��	J	C	N��	Q	C	9��	R	>	/��		ZCLMh0�]	OQ4445556�gport
		*gloop	
	*gfilenamef'scripts/snarf-check-and-output-texi.scm�
	.
��	
	/	��		/	��		=	 ��		D	-��	&	=	 ��	(	/	��	*	/	��			*gnamegprocess-stream�C8R:NOP;QR>SThP"]
45$4>"G"45�&
456	
6ginput
		Ngcont		Ngtoken		,	Ngfilenamef'scripts/snarf-check-and-output-texi.scm�
	M
��		O	��	
	O	��		P	��		P	��		P	��		P	��	&	R	��	,	R	��	1	T	��	3	T	��	7	S	��	:	U	��	D	U	��	N	X	��		N	gnamegdispatch-top-cookie�C=R:NOU;<V>	h��]"k45$4>"G"45�&"445>"G456�45"���"����gprocess
		|ginput		|gcont			|gacc			qginput			qgtoken		0	qgfilenamef'scripts/snarf-check-and-output-texi.scm�
	\
��		]	��		_	
��		_	��		`	��		`	
��		`	��		`	��	*	b	��	0	b	��	5	d	��	7	d	��	;	c	��	<	e		��	?	e	��	J	e		��	U	f	��	]	f		��	b	h	��	c	h	%��	q	h	��	q	]	��	r	]	��	|	]	��		|	gnamegconsume-upto-cookie�CSRW:NOX;YZ>S[h`	]	45$4>"G"45�&4>"GL456	
L6ginput
		\gtoken	,	\gfilenamef'scripts/snarf-check-and-output-texi.scm�
	m	��		o	
��	
	o	��		p	��		p	
��		p	��		p	��	&	r	��	,	r	��	1	t	��	3	t	��	7	s	��	8	u		��	J	v	��	R	v		��	\	x	��		\gnamegloop�C:NOX;YZ>S[
h�J]4>"GOQ45$4>"G"45�&4	>"G4
566Bginput
		|gcont		|gloop			|gtoken		L	|gfilenamef'scripts/snarf-check-and-output-texi.scm�
	j
��		k	��		m	��	#	o	
��	-	o	��	.	p	��	2	p	
��	4	p	��	9	p	��	F	r	��	L	r	��	Q	t	��	S	t	��	W	s	��	X	u		��	j	v	��	r	v		��	|	x	��		|	gnamegconsume-multiline�CRR\R]R^R_R`RaRbRcR\]^_`abc	h �]        C�gfilenamef'scripts/snarf-check-and-output-texi.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��
		
gnamegbegin-multiline�CWRdeR4fiei5gRbh`iaNjk\]_ljm_nopah�`]04>"G"�L�$$4�>"G��"���"�L�$+4�>"G��]�"���L
�$4�>"G""'(C4�>"G�"���"���
"��i
"��-Xgargs
	�gr	�go		L�gargs		L�gtail		L�gtail	��gfilenamef'scripts/snarf-check-and-output-texi.scm�
�	��	�	��	�	��	�	��	�	��	 �	��	$�	��	%�	��	*�	"��	-�	(��	2�	��	=�	!��	@�	,��	H�	��	L�	��	Q�	��	U�	��	V�	��	[�	%��	^�	,��	c�	��	n�	$��	q�	,��	v�	7����	����	����	����	����	'����	$����	����	����	����	"����	-����	2����	"����	-����	"����	����	����	=����	����	��-	�
C5qjr^amsthx+]4>"G("L4�>"G")("(4�>"G�"����"���6#gargs
	;	dgfilenamef'scripts/snarf-check-and-output-texi.scm�
�	��	�	��	�	��	�	��	�	��	"�	��	'�	!��	*�	&��	/�	��	;�	��	A�	��	F�	��	K�	%��	N�	,��	S�	��	^�	 ��	d�	��	d�	��	g�	'��	m�	��	r�	��	t�	��		t
Cuvwfgxyezc{|h��]@��������&"45��$+44	
455>"G"&"4
O5$&45""4>"G4	
>"G4>"G"|("~$*4�5�$44�
55""$ 4�>"G�"���4>"G"���"��x4>"G6�greq
	�gopt	�gvar		�gall		�gnice-sig	��g
scm-deffnx	��gstrings	�gg
scm-deffnx	�ggfilenamef'scripts/snarf-check-and-output-texi.scm�
�
��	�	��	�	��	
�	��	�	��	�	��	�	��	�	��	�	��	 �	%��	&�	��	,�	��	5�	��	6�	
��	:�	��	;�	��	>�	
��	C�	��	J�	+��	T�	
��	Y�	��	i�	"��	m�	��	t�	����	����	5����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	+���	���	��
�	���	���	"���	-���	"���	��&�	��*�	��+�	��0�	��5�	��@�	��J�	��K�	��g�	��g�	��t�	��x�	��}�	����	����	��C	�
gnameg
end-multiline�CZRf}~yx�hH#]	4L5�$C4L�545$"4L�56gi
		Egss	!	;gfilenamef'scripts/snarf-check-and-output-texi.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	�	.��	!�	��	!�	��	$�	��	*�	(��	,�	��	0�	��	2�	��	<�	��	A�	��	C�	��	E�	��		Egnamegrec�Ch�]	OQ
6�gs
		grec		gfilenamef'scripts/snarf-check-and-output-texi.scm�
�
��	�	��		gnameg
texi-quote�C�R�GNj�����
h@|]1"
"��$����$��$t���$N��&'�$4L5�C445564455644556445564455644556�$*���$�$"���"���"���"����$�(�	�$C"���"���"���tgexpr
	=gw	�gx		�gw		1�gx		1�gw		B�gx		B�gw�gx	�gw$5
gfilenamef'scripts/snarf-check-and-output-texi.scm�
�	��	X�	��	_�	��	c�	��	h�	��	i�	8��	s�	��	u�	��	x�	��	}�	��	~�	8����	����	����	����	����	8����	����	����	����	����	8����	����	����	����	����	8����	����	����	����	����	8����	����	����	���	���	��0�	��5�	��'	=gnamegdo-args�C�CNj�b�������a�A\]�`G���~_��^c�!hZ	]yO""�""�"="�"L�$7��&�$���$���&��$���
		�$�	�	�&o"456
�$R
�(G
�

�$-
�
�&
 C456456"���"���456456456456456456456456�$A��&+�$ "��$_��	�$,�$45"�44
4555"�44
4555"�44
4555"��$���	�$l�$]��
�$<�$-�(�		�$""��'	""��""��""��""���""���""��� C"��p"��l"��h�$���&|�$q���$\��&F�$;�(0�		�$ 	�	�

&
  C"���"���"���"���"���"���"���"���"����$X��&B�$7�(,��$��& C"��t"��p"��l"��h"��d"��`�$X��&B�$7�(,��$��& C"��
"��	"��"��"���"����$���&o"`(4544?5 C�$6��$&��	&�	�"���"���"��|"��x"���"��i"��e�$b��&L�$A�(6��$&��&4455 C"��"��"��"���"���"���"�"�"t(45 C�$J��$0��&��"���4 564 564 56"����$A���$,��&�$�"��)"��="��9"��5"��1Q"�� R	gl
	gexpr		gw		3dgx		3dgw		LHgx		LHgw		]:gx		]:gw			vgx	
	vgw	�gx	�gw	
��gw	��gx	��gw	�gx	�gw	��gx	��gw	#�gx	#�gw	=�gx	=�gw		[rgw	�Wgx	�Wgw	�Ogx	�Ogw	�Kgx	�Kgw		?gw	
!;gx	!;gw	h�gx	h�gw	��gw	��gx	��gw	�gx	�gw	�gw	�
gx	�
gw	.�gx	.�gls	>�gp-ls	>�gname	K]gw	g�gw	v�gx		v�gw	�gx	�gw	�gw	�
gx	�
gexpr	"�gls	*�gp-ls	*�gstring	7?gw	I�gw	X�gx	X�gw	��gx	��gw	��gx	��gdo-args�Dgfilenamef'scripts/snarf-check-and-output-texi.scm�
�
��	�	���	���	���	���	����	���	���	���	���	���	���	���	���	���	���	��	��
	��	��	��	��	��	��	��!	��&	��*	��,	��/	��4	��8	��:	��=	��B	��F	��H	��K	��P	��T	��V	��Y	��^	��b	��d	��g	��l	��p	��r	��r�	����	����	����	����	����	����	7����	����	����	����	����	7����	����	���	���	���	7���	���	���	��g�	��o�	���	����	��1	��5		��;�	���	����	��	��
�	��N�	��Q�	(��Y�	��[�	��`�	����	����	*���	���	��
�	��"	��=	��B	��w	��|	���	���	���	���	���	���	���	���	���	���	���	���	���	���	��	��o	gnamegprocess-multiline-directive�C[R_�GC�azj�\�N�h({]q$�$���$��$��$����$���&��$����$���
		&o�$f�(]��$O��
&;45$(�
�$C4	


�5456CCCCCCCCCCC4
564
564
56Csgl
	$gw	gx		gw		6�gx		6�gw		G�gx		G�gw		`�gx		`�gw			q�gx	
	q�gw	��gw	��gx	
��gidx	��gfilenamef'scripts/snarf-check-and-output-texi.scm�
 
��	3	��	.	��	,#	���%	���%	���&	���'	���'	���'	
���(	���(	 ���)	2���(	���*	���(	���1	��1	��1	��1	��	1	��1	��1	��1	��1	��1	�� 1	��"1	��	$gnamegprocess-singleline�CTRi�RCIgm
		,gfilenamef'scripts/snarf-check-and-output-texi.scm�		
��	0	
��	2		��	5	
���	'
���	)
��	.
��
�	M
���	\
��u	j
��y	|
��}	}
���	~
���	
����
����
����
����
����
����	%����
����	&����
��>�
��!��
��5�
��8� 
��8�6
��	8�
C6scripts/list.go000064400000007524150536206120007545 0ustar00GOOF----LE-8-2.0<]@4h�]gguile�	�	gdefine-module*�	�	�	gscripts�	glist�	�		gfilenameS�	
fscripts/list.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	�	gexportsS�	glist-scripts�	�	gset-current-module�	�	�	g%include-in-guild-list�	fAn alias for "help".�	g%summary�	gfile-exists?�	gfile-is-directory?�	gopendir�	geof-object?�	gclosedir�	greaddir�	 gstring=?�	!f.�	"f..�	#gdirectory-files�	$gor-map�	%gstring-suffix?�	&gstring-null?�	'g	substring�	(g
string-length�	)gappend�	*g%load-compiled-extensions�	+g%load-extensions�	,gstrip-extensions�	-gunique�	.gmap�	/gsymbol->string�	0gsort�	1g
append-map�	2gfold�	3gin-vicinity�	4g
%load-path�	5gstring<?�	6gfind-submodules�	7gfor-each�	8gformat�	9f~A
�	:�	;ghelp�	<;�	=gmain�	><=�	?<=�C5h8
�]4	
54>"GRR !"
h��]!45$�45$}45"`45$4>"GC4545$"	4	5$"�"���45"���CC�gdir
	�g
dir-stream	�gnew		%�gacc		%�gt		U	ngfilenamefscripts/list.scm�
	#
��		$	��	
	$	��		$	��		$	��		%	��		%	��	%	&	��	&	(	��	0	(	
��	1	*	��	F	,	��	M	-	��	Q	-	&��	U	-	��	U	-	��	c	.	��	g	.	&��	k	.	��	r	-	��	}	0	���	,	���	&	���	&	���	'	���	&	���	1	��	�gnamegdirectory-files�C#R$%&'(h8�]4L5$#45$CL
4L545�6C�gext
		4gfilenamefscripts/list.scm�
	4	
��		6	
��		5	��		:	��		5	��	"	<	��	)	<	0��	0	<	��	2	;	
��
		4C)*+h�]O456zgpath
		gfilenamefscripts/list.scm�
	3
��		=	
��		4	��		gnamegstrip-extensions�C,R-h8�](C�(C����$�6�4�5�C�gl
		5gfilenamefscripts/list.scm�
	?
��		@	��		A	��		@	��		B	��		B	��		B		��	!	@	��	&	B	+��	(	B	#��	+	C	��	,	C	��	1	C	$��	3	C	��	4	C	��		5gnamegunique�C-R./-012,h �]
45$�CC�gx
		grest		gstripped				gfilenamefscripts/list.scm�
	J	��		K	,��			K	��		L	��		L	+��			C#3hj]6bgx
		
gy		
gfilenamefscripts/list.scm�
	O	!��	
	O	/��		
	Ch ~]44L556vgpath
		gfilenamefscripts/list.scm�
	I	��		M	��		N	��		O	��		N	��		J	��		C45	h(�]	4544O556�ghead
		&gshead		&gfilenamefscripts/list.scm�
	E
��		F	��		F	��		H	��		I	��	$	H	��	&	G	��		&gnamegfind-submodules�C6R789hc]6[gx
		gfilenamefscripts/list.scm�
	T	��		V	��		V	��		C6:h�-13456�gargs
			gfilenamefscripts/list.scm�
	S
��		W	��		W	��		W	��		T	��			


gnameglist-scripts�CR?hp-13@hgargs
			gfilenamefscripts/list.scm�
	Y
��		Z	��			


gnamegmain�C=RC�gm
		,gfilenamefscripts/list.scm�		
��	0	
��	2	 	��	5	 
���	#
��%	3
��H	?
��N	E
��	�	S
��
3	Y
��	
5
C6scripts/generate-autoload.go000064400000007662150536206120012175 0ustar00GOOF----LE-8-2.0�]24h�]gguile�	�	gdefine-module*�	�	�	gscripts�	ggenerate-autoload�	�		gfilenameS�	
fscripts/generate-autoload.scm�	gexportsS�	�	
gset-current-module�	
�	
�	g%include-in-guild-list�	f)Generate #:autoload clauses for a module.�	g%summary�	gopen-input-file�	geof-object?�	gread�	glength�	gdefmacro-public�	g
define-public�	g
define-module�	gmember�	g:export�	gappend�	gexport�	g
export-syntax�	g
autoload-info�	 f--target�	!gdisplay�	"f;;; do not edit --- generated �	#gstrftime�	$f%Y-%m-%d %H:%M:%S�	%g	localtime�	&gcurrent-time�	'gnewline�	(f(define-module �	)f(guile-user)�	*gfor-each�	+f
  :autoload �	,f �	-f)�	.f  ;;; �	/f symbols in �	0f	 modules
�	1gmain�C5h(�]4	
54>"GRR
h��])45"�45$$(CCC"45"����$a"F	45�$4�&'���$45���"��"���"���"���"�	45�$n�&a"'���$45���"��1"��t���$)����$45����"���"���"���"��:"��645�$��&:45��4	5$4
��5""����&"�$454
�5"��d"���"���"��45"��E�gfile
	�gp		�gform		�gmodule-name		�gexports		�gt	Jfgt	s�gfilenamefscripts/generate-autoload.scm�
	@
��		A	��			A	��		B	��		C	
��		C	��	 	D	
��	/	F	��	7	l	��	K	l	��	K	G	
��	N	G	��	R	G	
��	Y	f	��	`	f	��	d	e	��	f	g	��	i	g	,��	m	e	��	p	h	��	r	h	��	v	e	��	w	i	���	k	���	k	���	i	���	G	
���	W	���	W	���	V	���	X	���	X	*���	V	���	a	���	a	���	^	���	b	���	d	���	d	���	b	���	G	
���	Y	���	Y	���	V	���	Z	���	Z	���	V	���	[	��	]	��	]	��	[	�� 	G	
��"	H	��)	H	��-	G	��/	I	��2	I	*��6	G	��7	J	��@	K	��B	L	��F	L	&��J	L	��J	L	��S	N	#��X	N	+��]	N	#��p	J	��s	R	��s	R	���	P	���	S	���	U	���	U	���	U	���	S	���	B	���	B	���	B	9���	B	��Q	�gnameg
autoload-info�CR !"#$%&'()**!+,h(�]M�N45M�N6�gmodule-name
		$gexports		$gfilenamefscripts/generate-autoload.scm�
	}	(��		~	=��		~	*��			>��			;��			*��	�	:��	�	F��	"�	4��	$�	*��		$	Ch �]	45$
LLO@C�gfile
		 gt			 gfilenamefscripts/generate-autoload.scm�
	y	��		z	��			z	��		}	!��		 C-./0hJ-13
H
H45$��"$��"�4>"G4444555>"G4	>"G4
>"G4$">"G4
O>"G4>"G4	>"GJJ6Bgargs
		gmodule-count	
g
syms-count		
gt			,gtarget-override		,gfiles		?gfilenamefscripts/generate-autoload.scm�
	n
��	
	o	��		q	!��		q	)��		q	!��		q	��	,	o	��	4	s	��	7	s	$��	?	s	0��	?	o	��	B	t	��	F	t	
��	K	t	��	T	u	��	W	u	
��	[	u	��	\	u	+��	_	u	6��	e	u	+��	g	u	
��	l	u	��	u	v	���	w	���	w	
���	w	���	x	���	x	
���	x	!���	x	���	y	����	����	
����	����	����	����	'����	)���	���	��)		


gnameggenerate-autoload�CRi1RC�gm
		(gfilenamefscripts/generate-autoload.scm�		:
��	,	=
��	.	>	��	1	>
���	@
��	n
��$�
��	&
C6texinfo.go000064400000126470150536206120006561 0ustar00GOOF----LE-8-2.0 �]p4h�)]gguile�	�	gdefine-module*�	�	�	gtexinfo�	�	gfilenameS�		ftexinfo.scm�	
gimportsS�	gsxml�	gsimple�	
�	
�	g	transform�	�	�	gssax�	ginput-parse�	�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-11�	�	�	gsrfi-13�	�	�	 �	!gexportsS�	"gcall-with-file-and-dir�	#gtexi-command-specs�	$gtexi-command-depth�	%gtexi-fragment->stexi�	&gtexi->stexi�	'gstexi->sxml�	("#$%&'�	)gset-current-module�	*)�	+)�	,gthrow�	-gparser-error�	.ggetcwd�	/gchdir�	0gdirname�	1gcall-with-input-file�	2gbasename�	3ginclude�	43�	5gpara�	6g	PARAGRAPH�	756�	8gitem�	9gITEM�	:89�	;gentry�	<gENTRY�	=gheading�	><=��	?;>��	@gnoindent�	Ag
EMPTY-COMMAND�	B@A�	Cg
*fragment*�	DgFRAGMENT�	ECD�	Fg*braces*�	GgINLINE-TEXT�	HFG�	Igbold�	JIG�	Kgsample�	LKG�	Mgsamp�	NMG�	Ogcode�	POG�	Qgmath�	RQG�	Sgkbd�	TSG�	Ugkey�	VUG�	Wgvar�	XWG�	Ygenv�	ZYG�	[gfile�	\[G�	]gcommand�	^]G�	_goption�	`_G�	agdfn�	baG�	cgcite�	dcG�	egacro�	feG�	ggemail�	hgG�	igemph�	jiG�	kgstrong�	lkG�	mgsc�	nmG�	og	titlefont�	poG�	qgasis�	rqG�	sgb�	tsG�	ugi�	vuG�	wgr�	xwG�	yg	sansserif�	zyG�	{gslanted�	|{G�	}gt�	~}G�	gvalue��gINLINE-ARGS���U��gref��gnode��goptS��gname��gsection��g	info-file��gmanual������������gxref������������gpxref��gINLINE-TEXT-ARGS������������gurl��gALIAS��guref������������gtitle��greplacement����������ganchor�������gdots������gresult������gbullet������g	copyright������gtie������gimage��gwidth��gheight��galt-text��g	extension����[�������gacronym��gmeaning���������gEOL-ARGS��gnext��gprevious��gup�����������gc��gall������������gcomment�������gsetchapternewpage�������gsp�������gpage������gvskip�������gsyncodeindex�������gcontents������g
shortcontents������gsummarycontents������g
insertcopying������gdircategory��gcategory�������gtop�������g
printindex��gtype�������gparagraphindent��gindent�������g*ENVIRON-ARGS*��gEOL-TEXT������gitemx������gset������gcenter����������gsubtitle������gauthor������gchapter����������gappendix������gappendixsec������g
unnumbered������g
unnumberedsec������g
subsection������g
subsubsection������gappendixsubsec������gappendixsubsubsec������gunnumberedsubsec������gunnumberedsubsubsec������gchapheading������gmajorheading������=���g
subheading�����g
subsubheading���gdeftpx�g
EOL-TEXT-ARGS�g
attributes�����������	gdefcvx�
gclass�	�
��gdefivarx�

��gdeftypeivarx�g	data-type�
��gdefopx�g	arguments����
���������g
deftypeopx���
���������g
defmethodx��� ��!gdeftypemethodx�"��#!"��$gdefoptx�%$��&gdefvrx�'&���(gdefvarx�)(��*g
deftypevrx�+*���,gdeftypevarx�-,��.gdeffnx�/���0/��1.0��2g
deftypefnx�3���43��524��6gdefspecx�7��867��9gdefmacx�:97��;gdefunx�<;7��=gdeftypefunx�>��?=>��@gcindex�AgINDEX�BA;��C@B��Dgfindex�EDB��Fgvindex�GFB��Hgkindex�IHB��Jgpindex�KJB��Lgtindex�MLB��NgENVIRON�ON���PO��Qgignore�RQN�Sgifinfo�TSN�Ugiftex�VUN�Wgifhtml�XWN�Ygifxml�ZYN�[gifplaintext�\[N�]g	ifnotinfo�^]N�_gifnottex�`_N�ag	ifnothtml�baN�cgifnotxml�dcN�egifnotplaintext�feN�gg	titlepage�hgN�igmenu�jiN�kgdirentry�lkN�mgcopying�nmN�ogexample�poN�qgsmallexample�rqN�sgdisplay�tsN�ugsmalldisplay�vuN�wgverbatim�xwN�ygformat�zyN�{gsmallformat�|{N�}glisp�~}N�g	smalllisp��N��g	cartouche���N��g	quotation���N��gdeftp��N��������gdefcv���N�
���gdefivar���N
���gdeftypeivar���N
���gdefop��N��������g	deftypeop��N��������g	defmethod��N��������g
deftypemethod��N��������gdefopt���N���gdefvr���N����gdefvar���N���g	deftypevr���N����g
deftypevar���N���gdeffn��N/��������g	deftypefn��N3��������gdefspec��N��������gdefmac�������gdefun�������g
deftypefun��N��������gtable��g
TABLE-ENVIRON��g	formatter�������gitemize�������g	enumerate��gstart�������gftable�������gvtable�������47:?BEHJLNPRTVXZ\^`bdfhjlLnprtvxz|~�����������������������������������������������������
 #%')+-158:<?CEGIKMPRTVXZ\^`bdfhjlnprtvxz|~�����������������������������������	����	����	����
��������	����	����	��������	���gappendixsection���	����	����	�������������������gcommand-depths��gand=>��gassq��gcdr��gmemq��g%��oqw}i���gspace-significant?��gcommand-spec��fUnknown command��ginline-content?��gstring-null?��gstring-every��gchar-whitespace?��gstring-whitespace?��g*eof*���

��gread-eof-breaks��geof-object?��g	peek-char��g
next-token��freading a line��g	read-char��g
read-eof-line��g
skip-while�� 	

��gskip-whitespace�� 	��gskip-horizontal-whitespace��gchar-alphabetic?��fNonalphabetic @-command char: '��f'��gstring->symbol��g
next-token-of��gread-command��g
make-token��gpair?��gtoken?��gcar��g
token-kind��g
token-head��gassert-curr-char��@��fstart of the command��gSTRING��gstring�gend�gstring-trim-both�fmalformed @end�gEND�gbye�gINCLUDE�gSTART�gread-command-token�
�	freading verbatim�
gstring=?�f
@end verbatim�f
�
gread-verbatim-body�farguments of @-command�gmap�gstring-split�gread-arguments�greverse�f"@-command expected more arguments:�f'@-command didn't expect more arguments:�f#@-command missing required argument�garguments->attlist�gread-text-line�g
string-length�g
string-ref�g	substring�f@item formatter must be INLINE�fInvalid @item formatter�g
char-numeric?�fInvalid enumerate start��� gparse-table-args�!{�"fInline element lacks {�#gparse-environment-args�$gparse-eol-text-args�%fcan't happen�&gcomplete-start-command�'gfind-string-from-port?�(f
@settitle �)fNo \n@settitle  found�*f"You have a @settitle, but no title�+gtake-until-settitle�,gidentity�-�{}@
�.freading char data�/f�0gpeek-next-char�1fEOF while reading char data�2f �3gPARA�4gread-char-data�5fExpecting @end for �6f, got �7gassert-token�8gerror�9fno file listed�:gread-include-file-name�;gstring->list�<gsxml->string�=gsxml->node-name�>g
string-append�?gsymbol->string�@f-�Agindex�B5C�Cf/@item not ended by @end table/enumerate/itemize�Df(@item must be within a table environment�EfUnknown token type�F@}�Ggcall-with-input-string�HN�<9D�Igmake-command-parser�Jgstring?�Kgreverse-collect-str-drop-ws�Lgstring-index�Mgstring-trim-right�Ngstring-trim�Ogappend�Pgparse-inline-text-args�Qgmake-dom-parser�Rgreverse!�Sf!@-command didn't expect more args�Tf@-command expects more args�Ugsubstring/shared�Vf@-command doesn't take args�Wgpostprocess�Xginput-port?�Ygcar-eq?�ZfTable of Contents�[�Z�\g
make-contents�]gstring-prefix?�^gstring-suffix?�_gappend!�`gstring-tokenize�a/�bgstring-join�cgtrim-whitespace�df@set missing arguments�ef&expected a constant to define for @set�fg
fold-right�ggcons�hgassoc�if
unknown value�jfcopying isn't set yet�kgfold�lgpre-post-order�mgtexinfo-arguments�ng*text*�og	*default*�C5hp~]4	
 !(54+>"G,-h�-13@�gport
			gmessage			grest				gfilenameftexinfo.scm�
	Z
��	
	[	��		[	��				
	gnamegparser-error�C-R./0hN]4L56Fgfilenameftexinfo.scm�
	e	��		e	��	
	e	��		
C/hF]L6>gfilenameftexinfo.scm�
	h	��		h	��		
C12hp]
45OO4O>"GV445>X4O>"GCX4O>"GFgfilename
		lgproc		lgcurrent-dir			lgfilenameftexinfo.scm�
	]
��		c	��		c	��		d	��	.	g	
��	1	g	 ��	>	g	
��	@	d	��			l	gnamegcall-with-file-and-dir�g
documentationf$Call the one-argument procedure @var{proc} with an input port that
reads from @var{filename}. During the dynamic extent of @var{proc}'s
execution, the current directory will be @code{(dirname
@var{filename})}. This is useful for parsing documents that can include
files by relative path name.�C"R�#R��R����h0�]
4455$�$CCC�gcommand
		*g	max-depth		*gdepth			*gfilenameftexinfo.scm�
n
��	z	��	z	��	z	��	z	��	{	��	{	��	#{	��			*	gnamegtexi-command-depth�g
documentationf�Given the texinfo command @var{command}, return its nesting level, or
@code{#f} if it nests too deep for @var{max-depth}.

Examples:
@example
 (texi-command-depth 'chapter 4)        @result{} 1
 (texi-command-depth 'top 4)            @result{} 0
 (texi-command-depth 'subsection 4)     @result{} 3
 (texi-command-depth 'appendixsubsec 4) @result{} 3
 (texi-command-depth 'subsection 2)     @result{} #f
@end example�C$R��h|]6tgcommand
		
gfilenameftexinfo.scm�
~
��	
	��		
gnamegspace-significant?�C�R�#��-�h8�]	45$��&��6C6�gcommand
		1gspec		1gfilenameftexinfo.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	"�	��	%�	��	-�	��	1�	��		1gnamegcommand-spec�C�RG��h0y]�$"�$"�$CCqgcontent
		+gfilenameftexinfo.scm�
�
��	�	��		+gnameginline-content?�C�R���h �]	45$C6�gstr
		gt			gfilenameftexinfo.scm�
�
��	�	��		�	��	�	��		gnamegstring-whitespace?�C�R��R������hh]4455$64545
&'45
&4>"G""Cgport
		agline	$	agc		-	agfilenameftexinfo.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	��	$�	��	$�	��	'�	��	-�	��	7�	��	8�	'��	D�	��	E�	��		agnameg
read-eof-line�C�R��h]6wgport
		
gfilenameftexinfo.scm�
�
��	�	��	
�	��		
gnamegskip-whitespace�C�R��h�]6�gport
		
gfilenameftexinfo.scm�
�
��	�	��	
�	��		
gnamegskip-horizontal-whitespace�C�R��-������h s]45$C45$CCkgc
		gfilenameftexinfo.scm�
�	��	�	��	
�	��	�	��	�	��		C	hP�]4545$"4>"G456�gport
		Ig
first-char			<gt			9gfilenameftexinfo.scm�
�
��	�	��		�	��	�	��	�	��	�	��	%�	��	)�	H��	.�	��	?�	��	I�	��		Ignamegread-command�C�Rh�]�C{gkind
		ghead		gfilenameftexinfo.scm�
�
��	�	��			gnameg
make-token�C�R�i�R�i�R�i�R�������������-�893h@i]!4>"G45!&"S:&"F.&"9?&",@&"\&"{&"}�$445564	5
�$Y44554
5$"	45$"4>"G456�$6�$6�$66agport
	<gpeeked	<gname	�<gcommand	�gt	��gfilenameftexinfo.scm�
�
��	�	��	�	��		�	��	�	��	�	��	�	��	)�	����	����	����	����	"����	����	����	����	����	����	����	����	����	����	����	����	����	
����	����	$����	����	����	���	
���	���	���	���	���	�� �	��"�	��$�	��-�	��1�	��4�	��8�	��<�	��-	<gnamegread-command-token�CR�	�
hP\]"A454>"G45$C45"���"���Tgport
		Ogstr-handler		Ogseed			Ogseed			Ggfragment			Ggfilenameftexinfo.scm�

��		��		��	
	 ��		$��		 ��		��		��		��	'	
��	-	��	/	
��	3	��	7	��	=	&��	A	��	G	
��	G	��		O	gnamegread-verbatim-body�C
R���ha]45$CCYgx
		gfilenameftexinfo.scm�
5	��	5	$��	
5	 ��		Ch`Y]454>"G444,555�$�&�(CCCCQgport
		_g	stop-char		_gstr			_gret		<	_gfilenameftexinfo.scm�
2
��	:		��	:	��	:	��	
;	��	:		��	:	��	4	��	&5	��	+6	��	06	*��	:6	��	<5	��	<5	��	A7	��	E7	��	H7	 ��	M7	
��	P7	5��	T7	
��	U8	
��		_	gnamegread-arguments�CR�-h�H]�$("��6("��$�"���(%("$6LLL6(
L6�$0�����$�"���"��F$4L��5"$C�6@gin
	�gnames	�gopt?		�gout		�gt	��gfilenameftexinfo.scm�
V	��	X	��		W	��	Y	��	Y	"��	!Y	��	'Z	��	/Z	$��	2Z	��	6W	��	;[	��	J[	��	PW	��	V]	
��	W]	��	a]	��	g^	
��	m_	��	u_	
��	{W	���b	���b	���c	���W	���h	���h	���i	���j	���j	���j	���j	(���j	7���j	1���i	���h	���d	
���d	���d	���d	#���d	���d	���e	���f	���e	
��-	�	gnamegloop�Ch(�]OQ6�gport
		"gargs		"g	arg-names			"gloop		
	"gfilenameftexinfo.scm�
U
��	
V	��	 V	8��	"V	��		"	gnamegarguments->attlist�CR���-	h�0]L
�$"Z4L
5@&K44L55445��5$"4L>"G"$CLL6(gf
	*	dgt	:	_gt
	i	~gfilenameftexinfo.scm�
p	��	q	��	
q	
��	r	��	q	
��	s	��	!s	(��	*s	��	*s	��	-t	��	0t	,��	7t	&��	:t	��	:t	��	Gu	��	Mv	��	Tu	��	iq	��	zx	��	~x	
��		~
gnameg
get-formatter�C����-����hI]"445545OQ�$Z
�$C&44
55"$"	4	
5$"45C
�$X&"$&""+45$"$"45C45CAgcommand
	gport	gline		glength		g
get-formatter		#gt		Z	sgt	��gfilenameftexinfo.scm�
m
��	n	��	n	!��	n	��	n	��	o	��	n	��	5y	��	8{	��	={	��	>|	��	A}	��	H~	��	I	��	L	.��	U	��	Z~	��	h�	��	w~	��	~�	����	����	���}	���y	����	����	����	����	����	����	����	(����	����	����	����	����	����	����	��'		gnamegparse-table-args�C R�G�!"���N<A�#� �$6A9D-%h�]"45������$4>"GD�$.4>"G44}55D	�$4>"GD
�$44
55D�$"�$"
�$!4>"G45D�$!4>"G45D�$4>"GD�$!4>"G45D�$"!�$"�$"�$D6�gcommand
	�gport	�gspec			�gcommand		�gtype		�g	arg-names		�gfilenameftexinfo.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	��	%�	��	&�	��	*�	��	,�	 ��	3�	��	>�	��	B�	��	K�	��	L�	��	P�	��	R�	 ��	Y�	��	d�	��	i�	��	u�	��	y�	����	����	����	����	 ����	����	����	����	����	����	����	����	����	����	����	���	���	���	��$�	��0�	��9�	��:�	��N�	��R�	��[�	��\�	��p�	��|�	����	����	����	����	����	��;	�	gnamegcomplete-start-command�C&R'(-)��*hX�]	45$"4>"G4>"G45
&6C�gport
		Wgt		.gfilenameftexinfo.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	/�	��	A�	��	M�	��	S�	��	U�	��		Wgnamegtake-until-settitle�C+R,�-�.��/��F�0-1�2��35hv]=4$"5"�454545$?"45"(4	5$4	5$""���""���D@&"{&"}�$�"45"(4	5$4	5$""���""���@�$4
5">{�$
4
5"(}�$4>"G45"D
&�45	4	5$]$"4>"G"45"(4	5$4	5$""���""���	D	@&�4
5
4
5�"'4$"$"5"@4	5$14	$"$"5$""���""���
D$"	
�$l4>"G4>"G"45"(4	5$4	5$""���""���45D"4$"5"44	5$%4	$"5$""���""���"��C"��ngport
	gexpect-eof?	gpreserve-ws?		gstr-handler		gseed		g	end-chars		gseed		gfragment		'g	term-char		0gc		=gtoken	
�3gend?	�3gfilenameftexinfo.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	'��	#�	5��	'�	��	'�	
��	*�	��	0�	
��	3�	��	=�	��	B�	
��	H�	3��	L�	
��	P�	��	Q�	��	[�	��	\�	#��	`�	3��	b�	#��	f�	
��	|�	����	����	����	
����	3����	
����	����	����	����	#����	3����	#����	
����	����	����	����	����	+����	2���	��
�	���	�� �	0��$�	<��'�	0��.�	��6�	��7�	��=�	��@�	��J�	��P�	��U�	��[�	)��`�	��m�	
��s�	7��w�	
��{�	��|�	����	����	#����	7����	#����	
����	����	����	 ����	����	$����	7����	����	����	
���	���	&���	)���	:���	?����	
����	����	����	����	#��	��	&��	)��	:��	?���	#���	
��3�	��9	��C	*��G�	��H	��L	��S	��\	��r�	
��x	7��|�	
����	����	����	����	#���	7����	#����	
���	���	&���	,���	���	����	
���	 ���	1���	6����	
����	����	����	����	#���	 ���	1���	6����	#����	
��
	���	���		C4R���-56hH�]45$ 45&45�""$C6�gtoken
		Fgkind		Fgname			Fgt		.	Fgfilenameftexinfo.scm�

��		��	
	��		��		��		��	$	��	.	��	>	��	B	2��	F	��		F	gnamegassert-token�C7R��89h(�]	445545$6C�gport
		$gx		$gfilenameftexinfo.scm�
?
��	@	��	@	��	@	��	@	��	A	��	A	��	B	��	!B	��
		$gnamegread-include-file-name�C:R�;<h��]"g(45@�{&"}&"@&",�$
�"������"���4455"����gsxml
	�gin		mgout			mgt			Kgfilenameftexinfo.scm�
E
��	G	��	H	��	I	��	I	��	J	��	J	��	OJ	��	RK	��	\K	��	_L	��	bL	!��	eL	��	mL	��	mG	��	nG	��	qG	��	yG	��	zG	:���G	��	�gnamegsxml->node-name�g
documentationf-Turn some sxml string into a valid node name.�C=R��������������������>?@���@DFHJL=;#h�m]
�$"��$"��$"��$"��$"��$"��$"��$"�	�$"�
�$"u�$"g�$"Y
�$"K�$"=�$"/�$"!�$"�$"�$944545��5456�$"=�$"/�$"!�$"�$" �$<4454!4"555456Cegcommand
	�g	arguments	�gfdown		�gfup		�gparent-seed		�gargs	(@gargs	��gfilenameftexinfo.scm�
N
��	O	��	S	��
S	��
S	)��S	B��T	/��T	5��T	/��T	)��"S	��%S	��(S	��.U	��3V	��7V	��;V	 ��<V	-��>V	��@U	��IO	���X	���X	���X	)���X	B���Y	)���Z	*���Z	0���Z	*���Y	)���X	���X	���X	���[	���\	���\	���\	 ���\	-���\	���[	��)	�	gnamegindex�CAR&A�B��56h�]L6�gs
		
gfilenameftexinfo.scm�
j	��	j	,��	j	2��		j	6��	
j	%��		
gnamegnew-para�CA��Aw
4�3��,5hj]LL6bgs
		
gfilenameftexinfo.scm�
k	*��	k	;��	k	A��	
k	6��		
C�/8;��-CN79��D3":3hd]LLLL6\gport
		gfilenameftexinfo.scm�
�	$��	�	1��	�	&��		C�5hj]LL6bgs
		
gfilenameftexinfo.scm�
k	*��	k	;��	k	A��	
k	6��		
CE���F5hj]LL6bgs
		
gfilenameftexinfo.scm�
k	*��	k	;��	k	A��	
k	6��		
C56'h�b]]"54LL>G45$1�$"�$645L	LLL645�$^4$"5$
L	O"4L45	4$L"55"��6
�$�L&"L�$A4
455���		$"4>"G	""L&4
L>"G"45L	LLL6�$�L&"L�$ 4LL455L	LLL6L& 4LL455L	LLL6L&"L�$#LLL454L	LLL56L6�$L�"����$3445LO5"����$�454
5		�
	��454$$""5
$$

L	O""""$$L""���""����4L
L4
55"���6$wL$"4 5$]4!4"5#5$"
44"55�$145$L	O4L
%&5"��R"��R"��N"��JZgport
	�gexpect-eof?	�gend-para		�gneed-break?		�gseed		�gseed		;gtoken		;gs		N	\gkey		c;gseed	��gspec	�(gt		%gs	Ucgs	��gs	��gs	�gseed	Qkghead	{1gspec		�1ghead	
�1gtype	�1ginline?	�1gseed	
�1gend-para	�1gnew-para	1gseed	��gfilenameftexinfo.scm�
z	��	�	��	�	��	!�	��	+�	��	4�	��	G�	$��	H�	 ��	N�	��	\i	��	]�	��	c�	��	o�	#��	u�	$����	#����	����	����	����	,����	?����	,����	-����	,����	����	����	����	����	����	%����	3����	%����	����	$����	0���	���	��
�	���	%���	��0�	/��4�	��5�	��;�	-��B�	��O�	��U�	��ci	��l�	��t�	����	����	����	$����	7����	����	���i	����	/����	����	����	$����	8����	����	���i	����	����	����	9����	5���i	���	��	�	��
�	���	���	7��/�	��8�	��9�	#��<�	$��Q�	#��Q�	��k�	��t�	��u�	$��{�	��~�	$����	����	$����	����	$����	����	'����	����	$����	%����	)����	$����	����	(����	,����	����	(����	,���	���	9���	���	8��#�	��1�	��7�	*��;�	��;�	��G�	!��M�	-��W�	��X�	��[�	 ��e�	��i�	��o�	��r�	'��z�	��{�	���	����	����	���j	%���j	,���j	2���j	6���j	%����	���	�	gnamegloop�CG,HhP�]L4>G4LL54L545		$	"�		$"45
OLQ&",	&"
&"&"�$L6
&4L5L6OLL
LLQ&4455"	
$"	456�gcommand
	Jgport	Jgsig-ws?		Jgparent-seed		Jgcommand		Jg	arguments		Jgexpected-content		Jgparent-seed		'Jgseed		6Jgt			A	Wgeof-closes?			WJgsig-ws?	
	lJgnew-para		vJgs	��gloop	�Jgfilenameftexinfo.scm�
a	��	c	��	b	��	d	��	'd	��	*e	��	6d	��	9f	 ��	Af	��	Sg	6��	Tg	 ��	Wd	��	_h	��	fh	$��	ld	���s	���r	
���i	���w	���r	
���x	���x	���i	���z	��n	&��n	��o	��o	(��(o	��8}	$��>~	)��Jz	��!	J	gnamegvisit�Ch(�]OLLLQ6�gcommand
		#gport		#gseed			#gvisit		
	#gfilenameftexinfo.scm�
`	��	
a	��		#	Ch�]OC�gfdown
		gfup		gstr-handler			gfilenameftexinfo.scm�
_
��			gnamegmake-command-parser�CIR>J�2h��]!(C"�"�($C4?�C4�5$*���$4�5""�����("%$("�"
4?��"��j"��Y4�5$�(4�5$C"��0"��,"��(�g	fragments
	�g	fragments	�gresult		�gstrs		�gall-whitespace?		�gfilenameftexinfo.scm�
�
��	�	��		�	��	�	��	�	��	�	��	"�	��	+�	��	-�	��	2�	��	4�	��	8�	��	;�	��	@�	+��	C�	%��	I�	��	J�	��	O�	'��	Q�	��	b�	��	e�	��	h�	��	n�	����	����	����	����	����	����	����	����	����	����	-����	8����	����	����		����	����		����	����	����	����		����	����		����	����	��0	�gnamegreverse-collect-str-drop-ws�CKRJ�LMN�OhH];"4(i")4("
45�5��6�$14�5$!4�5$�"���"���"���"�����$���"��t4�,5$s4�,54�54�54�5	�4		5$"	�4
�44	5$"�5�5"����(4�5"��"���"���gport
	Hgspec	Hgtext		Hgin		:gcur		:gout		:gargs		+	9gparts	�ghead	�grev-tail	�glast		�gfilenameftexinfo.scm�

��		��		��		��		��	 
	)��	)
	#��	+	��	+	
��	6	*��	9	��	9	��	<	��	@	��	A	��	F	��	H	��	L	
��	M	��	R	#��	T	��	X	
��	]	��	i	
��	x	
��	y	��	}	���
	
���
	���
	���
	���	���	���	���	���	���	"���	���	���	���	&���	���	���	���	 ���	���	���	���	 ���	���	���	���	���	���	(���	���	���	���	'���	#��	?��	��	��		��	��	
��	��	 ��"	-��$	 ��+	7��.	
��:	��:	��=	��>	$��H	��N	H	gnamegparse-inline-text-args�CPRIh�]C�gcommand
		gargs		gcontent			gseed			gfilenameftexinfo.scm�
	��	 	��			CK���PhXm]4545���&45��C("����Cegcommand
		Tgargs		Tgparent-seed			Tgseed			Tgseed				Tgspec			Tgcommand			Tgfilenameftexinfo.scm�
!	��	"	��		"	��	#	��	"	��	$	��	"	��	%	��	%	��	#%	��	'&	%��	(&	(��	2&	��	5&	��	8&	��	A)	��	I)	/��	L)	(��	P(	��		T	C�h �]45$�C��C�gstring1
		gstring2		gseed			gfilenameftexinfo.scm�
+	��	,		��	
,	��	-		��	.		��			Chc]6[gfilenameftexinfo.scm�

��		��		
gnamegmake-dom-parser�CQR4Qi5��R-STJLUFVhh.]J4L5��45���$*&	�C"((66�$��6(64�5$4	� 5"		$P4
�	�5
	
�$
��"��q
����4�
	5�"��J��"���"-��$!��&�����""���""���"���"���(C
6&gcommand
	fgport	fgargs		fgspec		fgcommand		fg	arg-names		"fgargs		>Eg	arg-names		>Egout		>Egt		�Egrest	
��gfilenameftexinfo.scm�
3	��	4	��	4	!��	
4	6��	4	��	
4	��	4	��	5	��	4	��	6	��	4	��	!7	��	"4	��	*8	��	3=	��	6=	��	9=	
��	>?	
��	D@	��	JB	��	PB	��	VC	%��	\C	��	_E	��	c@	��	jF	��	oF	��	u@	��	{H	!���H	���J	���J	���J	���J	���J	(���J	6���J	(���@	���L	���L	1���L	<���L	���L	���M	���M	���N	*���N	���N	���O	*���O	���O	6���P	+���Q	+���Q	6���Q	+���P	%���P	���O	���T	���T	��W	$��W	4��W	��
W	��U	��U	$��U	��U	��U	5��U	A�� U	��#V	��&V	/��(V	��ET	��E?	
��J?	<��T?	
��Z:	
��[:	��b;	!��f;	��S	f	CO#R#h�]6�gcommand
		
gport		
gfilenameftexinfo.scm�
Y
��	
\	��		
	gnamegparse-eol-text-args�C$RWQCh�]4455�6�gport
		gfilenameftexinfo.scm�
i	��	j	��	j	��	j	)��	j	:��	j	��	j	��	j	��			gnamegparse�CXWQCGh0�]	45$4455�66�gstring-or-port
		+gparse		+gfilenameftexinfo.scm�
e
��	k	��	k	��	j	��	j	��	j	)��	j	:��	 j	��	!j	��	#j	��	+m	��		+gnamegtexi-fragment->stexi�g
documentationf�Parse the texinfo commands in @var{string-or-port}, and return the
resultant stexi tree. The head of the tree will be the special command,
@code{*fragment*}.�C%RQ+Wh0�]	454>"G45�6ygport
		*gparser		*gfilenameftexinfo.scm�
w
��	{	��	{	��	
|	��	}	��	"}	��	%}	,��	'}	��	(}	��	*}	��		*gnamegtexi->stexi�g
documentationf�Read a full texinfo document from @var{port} and return the parsed
stexi tree. The parsing will start at the @code{@@settitle} and end at
@code{@@bye} or EOF.�C&Rh�]�$��CC�gx
		gy		gfilenameftexinfo.scm�

��		��			��		*��		%��			gnamegcar-eq?�CYR�R$Y���8O5��
h(9]3(45�D��$4���	5"$�4�5$4����5��"�$45�D�$W("�(	"�4L�>G4	5�"��0��
$"�����"����"���1gin
	!gout	!gdepth		!gt		/!g	node-name		Ygout-cdr	��gout-car	��gnew-in	��gnew-out	��	gfilenameftexinfo.scm�
�	��	�	��	�	"��	
�	-��	�	��	�	��	�	��	�	��	�	��	�	��	$�	0��	*�	��	/�	��	8�	!��	=�	*��	?�	3��	A�	!��	E�	��	F�	'��	J�	-��	M�	3��	R�	'��	S�	!��	Y�	��	`�	��	d�	
��	h�	 ��	i�	+��	p�	��	r�	��	w�	��	{�	
����	����	.����	2����	����	4����	.����	;����	����	1����	8����	<����	1����	����	����	-����	����	����	����	����	����	����	"����	"����	���	���	���	��!�	��=	!	gnameglp�C[h0�]OQ4>GC�gtree
		+glp	
	+g_			+gcontents			+gfilenameftexinfo.scm�
�
��	�	��	�	'��	�	��	�	��	%�	��		+gnameg
make-contents�C\R]2^_`ab/	h`�]$"	45$"	45445$"5$	�"6�gstr
		^g
trim-left?		^gtrim-right?			^gleft-space?			^gright-space?		,	^gtail		G	^gfilenameftexinfo.scm�
�
��	�	��	�	��	�	+��	�	��	�	��	�	��	$�	��	(�	,��	,�	��	,�	��	/�	��	2�	��	>�	��	@�	)��	E�	/��	G�	��	G�	��	Q�	��	S�	'��	V�	!��	^�	��		^	gnamegtrim-whitespace�CcRRJc�8dLefg�h�U�im�j�k\�hx~](45D4�5$4�$�"4���5�"�����$����$���(4>"G"4���5$r4��� 5$:�4���
54����5������"�����������"���	6
�$\4�4
44����5��55$"4����55"����$���"��f�$A4�45�$"455"���$&�44L55"���4L�$"45>G��"������"���vgin
	vgout	vgstate		vgfirst?		vgsig-ws?		vgkey		_Zgi	�
gt	@`gt	��gkid-out	8Zgstate	8Zgfilenameftexinfo.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	"�	��	(�	��	+�	��	0�	��	5�	'��	:�	>��	;�	7��	=�	��	@�	��	S�	��	V�	
��	W�	��	[�	��	^�	��	_�	��	m�	��	r�		��	s�	��	w�	&��	~�	����	
����	����	
����		����	����	$����	����	
����	����	����	 ����	+����	 ����	&����	1����	<����	&����	D����	 ����	����	����	����	-����	8����	&��
�	���	���	
���	���	��#�	 ��$�	��'�	 ��*�	-��.�	3��1�	8��6�	-��7�	'��<�	 ��@�	��@�	��O�	��S�	&��V�	6��]�	��b�	��w�		����	����	����	"����	����		����	����	����	 ����	$����	+����	$����	����	����	����	&����	����	����		����	����	����	����	'���	���		���	���	���	'��%�	��,�	*��0�	>��2�	*��7�	��;�		��B�	��G�	��Z�	��]�	��`�	��c�	��v�	��t	v	gnamegloop�Ch0�]OQ4>GC�gtree
		+gloop		+gout		!	+gstate		!	+gfilenameftexinfo.scm�
�
��	�	��	�	��	�	 ��	 �	��	$�	��		+gnamegpostprocess�CWRl�mhq-13�Cigx
			gt			gfilenameftexinfo.scm�
�	��	�	!��	�	��			
Cnh^]CVgx
		gt		gfilenameftexinfo.scm�
�	��			Cohh-13�C`gx
			gt			gfilenameftexinfo.scm�
�	��	�	#��			
Ch �]���6�gtree
		gfilenameftexinfo.scm�
�
��	�	��	�	��		gnamegstexi->sxml�g
documentationf Transform the stexi tree @var{tree} into sxml. This involves
replacing the @code{%} element that keeps the texinfo arguments with an
element for each argument.

FIXME: right now it just changes % to @code{texinfo-arguments} -- that
doesn't hang with the idea of making a dtd at some point�C'RCgm
		,gparser
]�c�gfilenameftexinfo.scm�		J
���	Z
��o	]
��r�	��u	m
��xi	��|h
��\n
��~
��	4�
��	��
��
��
��
��	��
��
���
��
+�
��
��
����
���
����
����
����
����
��p
���2
��:U
��"�m
��'��
��)'�
��3�
��4t
��5�?
��7�E
��<iN
��P�_
��T_�
��Y�
��]�
��]�1	��]�1	��c�0
��d{Y
��g>e
��iw
��i�
��oh�
��q��
��z��
��~l�
��2	~n
C6rnrs/unicode.go000064400000005550150536206120007512 0ustar00GOOF----LE-8-2.0P]K4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	gunicode�	�		gfilenameS�	
frnrs/unicode.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gchar-upcase�	g
char-downcase�	gchar-titlecase�	g	char-ci=?�	g	char-ci<?�	g	char-ci>?�	g
char-ci<=?�	g
char-ci>=?�	gchar-alphabetic?�	g
char-numeric?�	gchar-whitespace?�	 gchar-upper-case?�	!gchar-lower-case?�	"gchar-set-contains?�	#gchar-set:title-case�	$gchar-general-category�	%g
string-upcase�	&gstring-downcase�	'gstring-titlecase�	(gstring-ci=?�	)gstring-ci<?�	*gstring-ci>?�	+gstring-ci<=?�	,gstring-ci>=?�	-gstring-normalize-nfd�	.gstring-normalize-nfkd�	/gstring-normalize-nfc�	0gstring-normalize-nfkc�	1 !"#$%&'()*+,-./0!�	2gcall-with-deferred-observers�	32�	42�	5gmodule-use-interfaces!�	65�	75�	8gcurrent-module�	98�	:8�	;gbase�	<;
�	=gmodule-export!�	>=�	?=�	@gstring-foldcase�	Agchar-title-case?�	Bg
char-foldcase�	C@AB�	Dgmodule-re-export!�	ED�	FD�	G0/.-,+*)('&%$! �	Hgmodule-replace!�	IH�	JH�C5h��]4	

54>"G415447:hB]45L6:gfilenamefrnrs/unicode.scm�
	
��		
CO>"G4<5447:hB]45L6:gfilenamefrnrs/unicode.scm�
	
��		
CO>"G44?:ChB]456:gfilenamefrnrs/unicode.scm�
	
��		
C>"G44F:GhB]456:gfilenamefrnrs/unicode.scm�
	
��		
C>"G44J:hB]456:gfilenamefrnrs/unicode.scm�
	
��		
C>"Gh0p]0�$"1�$C456hgchar
		-gfilenamefrnrs/unicode.scm�
	`	��		-gnameg
char-foldcase�CBR"#hs]6kgchar
		
gfilenamefrnrs/unicode.scm�
	d	��		
gnamegchar-title-case?�CAR&%hq]456igstr
		
gfilenamefrnrs/unicode.scm�
	f	��		
gnamegstring-foldcase�C@RC�gm
		+giface
	2�giface
�7gfilenamefrnrs/unicode.scm�		
��S	`	���	d	���	f	��	�
C6rnrs/syntax-case.go000064400000006202150536206120010316 0ustar00GOOF----LE-8-2.0j]H4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	gsyntax-case�	�		gfilenameS�	
frnrs/syntax-case.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gmake-variable-transformer�	gsyntax�	gidentifier?�	gbound-identifier=?�	gfree-identifier=?�	g
syntax->datum�	g
datum->syntax�	ggenerate-temporaries�	gwith-syntax�	gquasisyntax�	gunsyntax�	 gunsyntax-splicing�	! �	"gcall-with-deferred-observers�	#"�	$"�	%gmodule-use-interfaces!�	&%�	'%�	(gcurrent-module�	)(�	*(�	+gice-9�	,goptargs�	-+,�	.gbase�	/.
�	0g
conditions�	10
�	2g
exceptions�	32
�	4grecords�	5g
procedural�	645
�	7gmodule-export!�	87�	97�	:gmodule-re-export!�	;:�	<:�	= 
�	>gmodule-replace!�	?>�	@>�	Agsyntax-violation�	BA�	Cgmake-message-condition�	Dgmake-syntax-violation�	Egmake-who-condition�	Fgraise�	Gg	condition�C5h(�]4	

54>"G4!54$'*hF]45L6>gfilenamefrnrs/syntax-case.scm�
	
��		
CO>"G4-54$'*hF]45L6>gfilenamefrnrs/syntax-case.scm�
	
��		
CO>"G4/54$'*hF]45L6>gfilenamefrnrs/syntax-case.scm�
	
��		
CO>"G4154$'*hF]45L6>gfilenamefrnrs/syntax-case.scm�
	
��		
CO>"G4354$'*hF]45L6>gfilenamefrnrs/syntax-case.scm�
	
��		
CO>"G4654$'*hF]45L6>gfilenamefrnrs/syntax-case.scm�
	
��		
CO>"G4$9*hF]456>gfilenamefrnrs/syntax-case.scm�
	
��		
C>"G4$<*=hF]456>gfilenamefrnrs/syntax-case.scm�
	
��		
C>"G4$@*BhF]456>gfilenamefrnrs/syntax-case.scm�
	
��		
C>"GCDEFGhP�-.,3#4545$45�"4?6�gwho
		Mgmessage		Mgform			Mgsubform			Mg
conditions		(	Mg
conditions		@	Mgfilenamefrnrs/syntax-case.scm�
	<	��		M	gnamegsyntax-violation�CARC�gm
		+giface
	2�giface
�;giface
B�giface
�Kgiface
R�giface
�[gfilenamefrnrs/syntax-case.scm�		
��&	<	��	(
C6rnrs/control.go000064400000002631150536206120007541 0ustar00GOOF----LE-8-2.0�]-4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	gcontrol�	�		gfilenameS�	
frnrs/control.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gwhen�	gunless�	gdo�	gcase-lambda�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	 gcurrent-module�	! �	" �	#gmodule-export!�	$#�	%#�	&gmodule-re-export!�	'&�	(&�	)�	*gmodule-replace!�	+*�	,*�C5hg]4	

54>"G454"hB]45L6:gfilenamefrnrs/control.scm�
	
��		
CO>"G4%"hB]456:gfilenamefrnrs/control.scm�
	
��		
C>"G4(")hB]456:gfilenamefrnrs/control.scm�
	
��		
C>"G,"hB]456:gfilenamefrnrs/control.scm�
	
��		
C6_gm
		+giface
	2�gfilenamefrnrs/control.scm�		
��	
C6rnrs/hashtables.go000064400000020415150536206120010177 0ustar00GOOF----LE-8-2.0� ]�4h�
]gguile�	�	gdefine-module*�	�	�	grnrs�	g
hashtables�	�		gfilenameS�	
frnrs/hashtables.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	grename�	gonly�	gstring-hash-ci�	gstring-hash�	ghashq�	ghashv�	gmodulo�	g
*unspecified*�	g@@�		�	gstring-ci-hash�	�	 �	!gcall-with-deferred-observers�	"!�	#!�	$gmodule-use-interfaces!�	%$�	&$�	'gcurrent-module�	('�	)'�	*gice-9�	+goptargs�	,*+�	-gdefine*�	.,-�	/gsrfi�	0g:69�	1/0�	2gmake-hash-table�	3ghash�	4ghash-by-identity�	5ghash-table-size�	6ghash-table-ref/default�	7ghash-table-set!�	8ghash-table-delete!�	9ghash-table-exists?�	:ghash-table-update!/default�	;ghash-table-copy�	<ghash-table-equivalence-function�	=ghash-table-hash-function�	>ghash-table-keys�	?ghash-table-fold�	@123456789:;<=>?�	Ag
equal-hash�	B3A�	Cgsymbol-hash�	D4C�	E@BD�	Fgbase�	GF
�	Hgrecords�	Ig
procedural�	JHI
�	Kgmodule-export!�	LK�	MK�	Nghashtable-mutable?�	Oghashtable-hash-function�	Pghashtable-equivalence-function�	Qghashtable-entries�	Rghashtable-keys�	Sghashtable-clear!�	Tghashtable-copy�	Ughashtable-update!�	Vghashtable-contains?�	Wghashtable-delete!�	Xghashtable-set!�	Yg
hashtable-ref�	Zghashtable-size�	[g
hashtable?�	\gmake-hashtable�	]gmake-eqv-hashtable�	^gmake-eq-hashtable�	_NOPQRSTUVWXYZ[\]^�	`gmodule-re-export!�	a`�	b`�	cCA�	dgmodule-replace!�	ed�	fd�	ggmake-record-type-descriptor�	hgr6rs:hashtable�	igmutable�	jg
wrapped-table�	kij�	lg	immutable�	mgorig-hash-function�	nlm�	oli�	pkno�	qgrecord-predicate�	rgrecord-constructor�	sg"make-record-constructor-descriptor�	tgmake-r6rs-hashtable�	ugrecord-accessor�	vgr6rs:hashtable-wrapped-table�	wgrecord-mutator�	xg!r6rs:hashtable-set-wrapped-table!�	yg!r6rs:hashtable-orig-hash-function�	zgr6rs:hashtable-mutable?�	{gsrfi-69�	|/{�	}gcaller-with-default-size�	~|}�	|}��g
hash-by-value��gwrap-hash-function��geq?��geqv?��gsrfi-69:hash-table��|���|���gsrfi-9��/���gthrow-bad-struct����������glist->vector��gmake-vector�C5h��]4	

54>"G4 54#&)hE]45L6=gfilenamefrnrs/hashtables.scm�
	
��		
CO>"G4.54#&)hE]45L6=gfilenamefrnrs/hashtables.scm�
	
��		
CO>"G4E54#&)hE]45L6=gfilenamefrnrs/hashtables.scm�
	
��		
CO>"G4G54#&)hE]45L6=gfilenamefrnrs/hashtables.scm�
	
��		
CO>"G4J54#&)hE]45L6=gfilenamefrnrs/hashtables.scm�
	
��		
CO>"G4#M)_hE]456=gfilenamefrnrs/hashtables.scm�
	
��		
C>"G4#b)chE]456=gfilenamefrnrs/hashtables.scm�
	
��		
C>"G4#f)hE]456=gfilenamefrnrs/hashtables.scm�
	
��		
C>"G4gihp5hR4qihi5[R4ri4sihi55tR4uihi
5vR4wihi
5xR4uihi5yR4uihi	5zRziNR4i5�RhA]4L5�C9gkey
		
gcapacity		
		
	Chx]OCpgproc
		
gfilenamefrnrs/hashtables.scm�
	[	��		
gnamegwrap-hash-function�C�Rt2�Ch@u-.,3#$45"	456mgk
		:gfilenamefrnrs/hashtables.scm�
	^	��		:
gnamegmake-eq-hashtable�C^Rt2��h@v-.,3#$45"	456ngk
		:gfilenamefrnrs/hashtables.scm�
	d	��		:
gnamegmake-eqv-hashtable�C]R�t2hH�-.,3#45$45"	456�g
hash-function
		Cgequiv		Cgk			Cgwrapped-hash-function			Cgfilenamefrnrs/hashtables.scm�
	j	��		C	gnamegmake-hashtable�C\R5vhy]456qg	hashtable
		
gfilenamefrnrs/hashtables.scm�
	s	��		
gnameghashtable-size�CZR6vh�]456�g	hashtable
		gkey		gdefault			gfilenamefrnrs/hashtables.scm�
	v	��			gnameg
hashtable-ref�CYRz7vh0�]45$445>"G"C�g	hashtable
		.gkey		.gobj			.gfilenamefrnrs/hashtables.scm�
	z	��		.	gnameghashtable-set!�CXRz8vh0�]45$445>"G"C�g	hashtable
		,gkey		,gfilenamefrnrs/hashtables.scm�
		��		,	gnameghashtable-delete!�CWR9vh�]456�g	hashtable
		gkey		gfilenamefrnrs/hashtables.scm�
�	��			gnameghashtable-contains?�CVRz:vh0�]45$!445>"G"C�g	hashtable
		0gkey		0gproc			0gdefault			0gfilenamefrnrs/hashtables.scm�
�	��		0	gnameghashtable-update!�CURt;vyh8�-.,3#445545$"6�g	hashtable
		8gmutable		8gfilenamefrnrs/hashtables.scm�
�	��		8gnameghashtable-copy�CTRzv��<y�x2
h��-.,3#45$x45�&		�"	4545454$4	5"	4	5>"G"C�g	hashtable
	�gk	�ght		'�gequiv		D�g
hash-function		M�gwrapped-hash-function		V�gfilenamefrnrs/hashtables.scm�
�	��	�gnameghashtable-clear!�CSR�>vhz]44556rg	hashtable
		gfilenamefrnrs/hashtables.scm�
�	��		gnameghashtable-keys�CRRv5�?hG]L�L��C?gk
		gv		gi						ChP�]!45454545445O
>"GD�g	hashtable
		Mght			Mgsize			Mgkeys			Mgvals		$	Mgfilenamefrnrs/hashtables.scm�
�	��		Mgnameghashtable-entries�CQRv��<h(�]	45�&	�C6�g	hashtable
		"gs			"gfilenamefrnrs/hashtables.scm�
�	��		"gnameghashtable-equivalence-function�CPRyh�]6{g	hashtable
		gfilenamefrnrs/hashtables.scm�
�	��		gnameghashtable-hash-function�CORC�gm
		+giface
	2�giface
�:giface
A�giface
�Jgiface
Q�gfilenamefrnrs/hashtables.scm�		
��L	H	��Z	O	��q	P	���	S	���	T	���	U	���	V	���	X	���	Z	���	[	���	^	��a	d	���	j	��	$	s	��	�	v	��
�	z	���		��k�	��
h�	��J�	���	����	��M�	��+�	����	��	�
C6rnrs/lists.go000064400000007405150536206120007223 0ustar00GOOF----LE-8-2.0�]T4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	glists�	�		gfilenameS�	
frnrs/lists.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gbase�	
�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	�	gonly�	 gfilter�	!gmember�	"gmemv�	#gmemq�	$gassoc�	%gassv�	&gassq�	'gcons*�	( !"#$%&'
�	)grename�	*gsrfi�	+gsrfi-1�	,*+�	-gany�	.gevery�	/gremove�	0gfind�	1g	partition�	2g
fold-right�	3g
filter-map�	4,-./!$0123�	5gexists�	6-5�	7gfor-all�	8.7�	9gremp�	:/9�	;g
memp-internal�	<!;�	=g
assp-internal�	>$=�	?)468:<>�	@gmodule-export!�	A@�	B@�	Cgassp�	Dgmemp�	Egremq�	Fgremv�	Gg	fold-left�	HCDEF/G�	Igmodule-re-export!�	JI�	KI�	L'&%$#"!921 570�	Mgmodule-replace!�	NM�	OM�	Pgnull?�	Qgmap�	Rgcar�	Sgcdr�C5h��]4	

54>"G454h@]45L68gfilenamefrnrs/lists.scm�
	
��		
CO>"G4(54h@]45L68gfilenamefrnrs/lists.scm�
	
��		
CO>"G4?54h@]45L68gfilenamefrnrs/lists.scm�
	
��		
CO>"G4BHh@]4568gfilenamefrnrs/lists.scm�
	
��		
C>"G4KLh@]4568gfilenamefrnrs/lists.scm�
	
��		
C>"G4Oh@]4568gfilenamefrnrs/lists.scm�
	
��		
C>"G5PQRShP�-13"145$C445?45"����"����gcombine
			Mgnil			Mglist				Mglists				Mgnil		
	>glists		
	>gfilenamefrnrs/lists.scm�
	(	��			M	
	gnameg	fold-left�CGR9h+]L�C#gelt
				Chx]O6pgobj
		glist		gfilenamefrnrs/lists.scm�
	0	��			gnamegremove�C/R9h+]L�C#gelt
				Chv]O6ngobj
		glist		gfilenamefrnrs/lists.scm�
	1	��			gnamegremv�CFR9h+]L�C#gelt
				Chv]O6ngobj
		glist		gfilenamefrnrs/lists.scm�
	2	��			gnamegremq�CER;h8]L60gx
		gy					Chw]O6ogpred
		glist		gfilenamefrnrs/lists.scm�
	4	��			gnamegmemp�CDR=h8]L60gx
		gy					Chw]O6ogpred
		glist		gfilenamefrnrs/lists.scm�
	5	��			gnamegassp�CCRC�gm
		+giface
	2�giface
�5giface
<�gfilenamefrnrs/lists.scm�		
��]	(	��;	0	��	1	���	2	���	4	���	5	��	�
C6rnrs/mutable-pairs.go000064400000002647150536206120010635 0ustar00GOOF----LE-8-2.0�]+4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	g
mutable-pairs�	�		gfilenameS�	
frnrs/mutable-pairs.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gset-car!�	gset-cdr!�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	 �	!gmodule-export!�	"!�	#!�	$gmodule-re-export!�	%$�	&$�	'�	(gmodule-replace!�	)(�	*(�C5h(m]4	

54>"G454 hH]45L6@gfilenamefrnrs/mutable-pairs.scm�
	
��		
CO>"G4# hH]456@gfilenamefrnrs/mutable-pairs.scm�
	
��		
C>"G4& 'hH]456@gfilenamefrnrs/mutable-pairs.scm�
	
��		
C>"G* hH]456@gfilenamefrnrs/mutable-pairs.scm�
	
��		
C6egm
		+giface
	2�gfilenamefrnrs/mutable-pairs.scm�		
��	"
C6rnrs/sorting.go000064400000004240150536206120007544 0ustar00GOOF----LE-8-2.0�]14h]gguile�	�	gdefine-module*�	�	�	grnrs�	gsorting�	�		gfilenameS�	
frnrs/sorting.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gbase�	
�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	�	gonly�	 g
*unspecified*�	!gstable-sort�	"gsort!�	# !"�	$gmodule-export!�	%$�	&$�	'gvector-sort!�	(gvector-sort�	)g	list-sort�	*'()�	+gmodule-re-export!�	,+�	-+�	.gmodule-replace!�	/.�	0.�C5h��]4	

54>"G454hB]45L6:gfilenamefrnrs/sorting.scm�
	
��		
CO>"G4#54hB]45L6:gfilenamefrnrs/sorting.scm�
	
��		
CO>"G4&*hB]456:gfilenamefrnrs/sorting.scm�
	
��		
C>"G4-hB]456:gfilenamefrnrs/sorting.scm�
	
��		
C>"G40hB]456:gfilenamefrnrs/sorting.scm�
	
��		
C>"G!h~]6vgproc
		
glist		
gfilenamefrnrs/sorting.scm�
		��		
	gnameg	list-sort�C)R!h�]6zgproc
		
gvector		
gfilenamefrnrs/sorting.scm�
		��		
	gnamegvector-sort�C(R"h�]4>"GC{gproc
		gvector		gfilenamefrnrs/sorting.scm�
		��			gnamegvector-sort!�C'RC�gm
		+giface
	2�giface
�7gfilenamefrnrs/sorting.scm�		
��A		���		���		��	�
C6rnrs/exceptions.go000064400000033674150536206120010255 0ustar00GOOF----LE-8-2.0�7]4ht]gguile�	�	gdefine-module*�	�	�	grnrs�	g
exceptions�	�		gfilenameS�	
frnrs/exceptions.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gbase�	
�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	�	gcontrol�	 
�	!g
conditions�	"!
�	#grecords�	$g
procedural�	%#$
�	&g
inspection�	'#&
�	(gonly�	)gformat�	*gnewline�	+gdisplay�	,gfilter�	-gacons�	.gassv-ref�	/gthrow�	0gset-exception-printer!�	1gwith-throw-handler�	2g
*unspecified*�	3g@@�	4()*+,-./0123
�	5gmodule-export!�	65�	75�	8graise-continuable�	9gwith-exception-handler�	:gguard�	;89:�	<gmodule-re-export!�	=<�	><�	?gmodule-replace!�	@?�	A?�	Bgraise�	CB�	D!�	Egmake-record-type-descriptor�	FDE�	GDE�	Hg&guile�	Ig
&condition�	Jglist->vector�	KDJ�	LDJ�	Mg	immutable�	Ngkey�	Ogguile-condition-key�	PMNO�	Qgargs�	Rgguile-condition-args�	SMQR�	Tgrecord-constructor�	UDT�	VDT�	Wg"make-record-constructor-descriptor�	XDW�	YDW�	Zgmake-guile-condition�	[gcondition-predicate�	\D[�	]D[�	^gguile-condition?�	_gcondition-accessor�	`D_�	aD_�	bgrecord-accessor�	cDb�	dDb�	eg	condition�	fgmake-serious-condition�	ggguile-common-conditions�	hg!default-guile-condition-converter�	igmake-who-condition�	jgmake-message-condition�	kgmake-irritants-condition�	lgguile-condition-converters�	mgconvert-guile-condition�	n#$�	og
r6rs-raise�	pno�	qno�	rgr6rs-raise-continuable�	snr�	tnr�	ugraise-object-wrapper?�	vnu�	wnu�	xgraise-object-wrapper-obj�	ynx�	znx�	{g!raise-object-wrapper-continuation�	|n{�	}n{�	~gr6rs:exception�	gmake-non-continuable-violation��gmake-syntax-transformer��������gguard0��gmacro��g$sc-dispatch��������gany��geach-any�����������������g
syntax-object��gcall/cc��gtop�����gribcage��gdummy��gvariable��gcond-clause��gbody��������gm-302a4a91bf89d3-3f������������fl-302a4a91bf89d3-44��fl-302a4a91bf89d3-45��fl-302a4a91bf89d3-46��fl-302a4a91bf89d3-47�����������������gx��������fl-302a4a91bf89d3-41�����������������gprivate�����������glambda��������gcontinuation������������9����gcond��������gsyntax-violation��������f-source expression failed to match any pattern��geach+��gfree-id��gelse��gm-302a4a91bf89d3-4d���������fl-302a4a91bf89d3-4f������������������������������������������������nj��gelse-clause����������������fl-302a4a91bf89d3-52��fl-302a4a91bf89d3-53��fl-302a4a91bf89d3-54��fl-302a4a91bf89d3-55��fl-302a4a91bf89d3-56���������������������������gappend��������������������fl-302a4a91bf89d3-5f��fl-302a4a91bf89d3-60��fl-302a4a91bf89d3-61��fl-302a4a91bf89d3-62���������������������������������B����glength��g
condition?��fERROR: R6RS exception:
��gformat-condition��fERROR: R6RS exception: `~s'��gexception-printer��gsimple-conditions��fEmpty condition object��f  ~a. ��gformat-simple-condition��grecord-type-name��g
record-rtd��grecord-type-field-names��grecord-type-parent��g
vector-length��greverse��f~a��f~a: ~s��f~a:
��f      ~a: ~s��gmake-syntax-violation��g guile-syntax-violation-converter��gmake-lexical-violation��g!guile-lexical-violation-converter��gmake-assertion-violation��g#guile-assertion-violation-converter��gmake-undefined-violation��g#guile-undefined-violation-converter�g)make-implementation-restriction-violation�g*guile-implementation-restriction-converter�g
make-error�gguile-error-converter�gguile-system-error-converter�g
read-error�gsyntax-error�gunbound-variable�gwrong-number-of-args�	gwrong-type-arg�
gkeyword-argument-error�gout-of-range�gregular-expression-syntax�
g
program-error�ggoops-error�gnull-pointer-error�gsystem-error�ghost-not-found�ggetaddrinfo-error�gno-data�gno-recovery�g	try-again�gstack-overflow�gnumerical-overflow�gmemory-allocation-error�gset-guile-condition-converter!�C5h@�]4	

54>"G454hE]45L6=gfilenamefrnrs/exceptions.scm�
	
��		
CO>"G4 54hE]45L6=gfilenamefrnrs/exceptions.scm�
	
��		
CO>"G4"54hE]45L6=gfilenamefrnrs/exceptions.scm�
	
��		
CO>"G4%54hE]45L6=gfilenamefrnrs/exceptions.scm�
	
��		
CO>"G4'54hE]45L6=gfilenamefrnrs/exceptions.scm�
	
��		
CO>"G4454hE]45L6=gfilenamefrnrs/exceptions.scm�
	
��		
CO>"G47;hE]456=gfilenamefrnrs/exceptions.scm�
	
��		
C>"G4>hE]456=gfilenamefrnrs/exceptions.scm�
	
��		
C>"G4AChE]456=gfilenamefrnrs/exceptions.scm�
	
��		
C>"G4GHIi4LPS55HR4V4YHi55ZR4]Hi5^R4aHi4dHi
55OR4aHi4dHi55RRefgh�]45456�gkey
		gargs		gfilenamefrnrs/exceptions.scm�
	2	��			gnameg!default-guile-condition-converter�ChReijkh8z*134545456-13L6rgsubr
		%gmsg		%gmargs			%g_			%g_
	.	4		%	
		.	4


Ch�]O@�gkey
		
gargs		
gfilenamefrnrs/exceptions.scm�
	6	��		
	gnamegguile-common-conditions�CgR.lehZhH�]45$
45"$"	45456�gkey
		Hgargs		Hg	converter			Hgt		#	=gfilenamefrnrs/exceptions.scm�
	?	��		H	gnamegconvert-guile-condition�CmR^/ORqh(j]45$4545@6bgobj
		%gfilenamefrnrs/exceptions.scm�
	O	��		%gnamegraise�CBRt8RwuRzxR}{R1~ux{Bmh��-13&N("4�5$5�45454L5$6456C454L>"G456�gkey
		�gargs		�gcargs		+	]gobj		4	]gcontinuation		=	]ghandler-return		F	]gobj		h�		�
Ch�]O6�ghandler
		gthunk		gfilenamefrnrs/exceptions.scm�
	]	��			gnamegwith-exception-handler�C9R4�����������h0n]���Cfgdummy
		/gvariable		/gcond-clause			/gbody			/		/	C��h(�]	45$@6�gx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgvariablegcond-clauseg...gbody�C5�R4�:������h �]4�5���Cgdummy
		gvariable		gcond-clause			gelse-clause			gbody						C�����h(n]45���Cfgdummy
		"gvariable		"gcond-clause			"gbody			"		"	C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9		9g
macro-typegsyntax-rules�gpatternsgvariablegcond-clauseg...gelsegelse-clauseg...gbody�gvariablegcond-clauseg...gbody�C5:R�ux�+��)�
h`�]45�$K4�5$;4�545$4>"G6	666�gport
		^gkey		^gargs			^gpunt			^gobj		#	Vgfilenamefrnrs/exceptions.scm�
�	��	5�	��	R�	!��		^	gnamegexception-printer�C�R�)���*h��]45(6"`�$W4>"G4�>"G��$4>"G"��"���C"����gport
	�g	condition	�g
components			�gi			}g
components			}gfilenamefrnrs/exceptions.scm�
�	��	�	��	+�	 ��	�	gnamegformat-condition�C�R�����,�h2]4�5
��C*g
rtd.fields
				C�)��b��*hx�]Z4455"P$,4545��45�"���4455
�$
	
6�$	44��
5564	
>"G"��$����
	4
5"]�$"W4	
�44	55>"G��$"4>"G�"���
"���	
��$4>"G"�"��IC"��?45
"����gport
	wg	condition	wgcondition-name		wgrtd		dgrtd.fields-list		dgn-fields		dgfield-names		!	Fgrtd.fields-list		Tdglst	�\g
rtd.fields	�Zgrtd		�3gfield-names	
�3gn-fields	�-gi	�#gfilenamefrnrs/exceptions.scm�
�	��	d�	%��	v�	%����	!����	��	w	gnamegformat-simple-condition�C�R40i~�i>"Ge�ijh8�*!134545456-13C�gwho
		'gwhat		'gwhere			'gform			'gsubform			'gextra			'g_
	0	2		'	
		0	2


Ch�]@�gkey
		gargs		gfilenamefrnrs/exceptions.scm�
�	��			gnameg guile-syntax-violation-converter�C�Re�gh�]45456�gkey
		gargs		gfilenamefrnrs/exceptions.scm�
�	��			gnameg!guile-lexical-violation-converter�C�Re�gh�]45456�gkey
		gargs		gfilenamefrnrs/exceptions.scm�
�	��			gnameg#guile-assertion-violation-converter�C�Re�gh�]45456�gkey
		gargs		gfilenamefrnrs/exceptions.scm�
�	��			gnameg#guile-undefined-violation-converter�C�Regh�]45456�gkey
		gargs		gfilenamefrnrs/exceptions.scm�
�	��			gnameg*guile-implementation-restriction-converter�CRegh�]45456�gkey
		gargs		gfilenamefrnrs/exceptions.scm�
�	��			gnamegguile-error-converter�CRegh0�*13454LL56-13LL6�gsubr
		gmsg		gmsg-args			gerrno			grest			g_
	'	/			
		'	/


Ch�]O@�gkey
		gargs		gfilenamefrnrs/exceptions.scm�
�	��			gnamegguile-system-error-converter�CR�i��i��i��i�	�i�
�i��i��i�
�i��i��i�i�i�i�i�i�i�i�i�i�lRlh�]�� C�gkey
		gproc		gfilenamefrnrs/exceptions.scm�
	��			gnamegset-guile-condition-converter!�CRC�gm
		+giface
	2�giface
�:giface
A�giface
�Jgiface
Q�giface
�Zgfilenamefrnrs/exceptions.scm�		
���	-	���	2	��q	6	���	?	��	5	O	��	:	S	��	?	V	��	D	X	��	I	Z	��U	]	���	����	��x�	��y�	��;�	���	����	����	��v�	��9�	����	���	��:	��	<
C6rnrs/bytevectors.go000064400000007010150536206120010426 0ustar00GOOF----LE-8-2.0�
]n4ho
]gguile�	�	gdefine-module*�	�	�	grnrs�	gbytevectors�	�		gfilenameS�	
frnrs/bytevectors.scm�	gversionS�		�	
gexportsS�	g
endianness�	gnative-endianness�	gbytevector?�	gmake-bytevector�	gbytevector-length�	gbytevector=?�	gbytevector-fill!�	gbytevector-copy!�	gbytevector-copy�	guniform-array->bytevector�	gbytevector-u8-ref�	gbytevector-s8-ref�	gbytevector-u8-set!�	gbytevector-s8-set!�	gbytevector->u8-list�	gu8-list->bytevector�	gbytevector-uint-ref�	gbytevector-uint-set!�	 gbytevector-sint-ref�	!gbytevector-sint-set!�	"gbytevector->sint-list�	#gbytevector->uint-list�	$guint-list->bytevector�	%gsint-list->bytevector�	&gbytevector-u16-ref�	'gbytevector-s16-ref�	(gbytevector-u16-set!�	)gbytevector-s16-set!�	*gbytevector-u16-native-ref�	+gbytevector-s16-native-ref�	,gbytevector-u16-native-set!�	-gbytevector-s16-native-set!�	.gbytevector-u32-ref�	/gbytevector-s32-ref�	0gbytevector-u32-set!�	1gbytevector-s32-set!�	2gbytevector-u32-native-ref�	3gbytevector-s32-native-ref�	4gbytevector-u32-native-set!�	5gbytevector-s32-native-set!�	6gbytevector-u64-ref�	7gbytevector-s64-ref�	8gbytevector-u64-set!�	9gbytevector-s64-set!�	:gbytevector-u64-native-ref�	;gbytevector-s64-native-ref�	<gbytevector-u64-native-set!�	=gbytevector-s64-native-set!�	>gbytevector-ieee-single-ref�	?gbytevector-ieee-single-set!�	@g!bytevector-ieee-single-native-ref�	Ag"bytevector-ieee-single-native-set!�	Bgbytevector-ieee-double-ref�	Cgbytevector-ieee-double-set!�	Dg!bytevector-ieee-double-native-ref�	Eg"bytevector-ieee-double-native-set!�	Fgstring->utf8�	Gg
string->utf16�	Hg
string->utf32�	Igutf8->string�	Jg
utf16->string�	Kg
utf32->string�	L !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK>�	Mgset-current-module�	NM�	OM�	Pgload-extension�	Qg
string-append�	Rf	libguile-�	Sgeffective-version�	Tfscm_init_bytevectors�	Ugmake-syntax-transformer�	VU�	WU�	Xgmacro�	Yg$sc-dispatch�	ZY�	[Y�	\g_�	]gany�	^\]��	_g
syntax->datum�	`_�	a_�	bg
datum->syntax�	cb�	db�	egbig�	fglittle�	ggquote�	hgerror�	ifunsupported endianness�	jgsyntax-violation�	kj�	lj�	mf-source expression failed to match any pattern�C5hX�]4	

L54O>"G4Pi4QiR4Si55T>"G4WX[^adefghih(�]&"�$C6xgsym
		(gfilenamefrnrs/bytevectors.scm�
	M
��	
	N	��		N	��		O	��	$	P	
��	(	P	��		(Chh]	45L4?6`gargs
		gv			gfilenamefrnrs/bytevectors.scm�		M
��		Clmh(f]	45$O@6^gy
		'gtmp		'gfilenamefrnrs/bytevectors.scm�
	M
��		'C5RC�gm
		,gfilenamefrnrs/bytevectors.scm�		
��	-	J
��	2	J	��	8	J	��	9	J	+��	A	J	��	C	K	��	H	J
��		U
C6rnrs/conditions.go000064400000023021150536206120010226 0ustar00GOOF----LE-8-2.0�%]4h$]gguile�	�	gdefine-module*�	�	�	grnrs�	g
conditions�	�		gfilenameS�	
frnrs/conditions.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gand=>�	g@@�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	 �	!gbase�	"!
�	#glists�	$#
�	%grecords�	&g
procedural�	'%&
�	(gmodule-export!�	)(�	*(�	+gundefined-violation?�	,gmake-undefined-violation�	-g
&undefined�	.gsyntax-violation-subform�	/gsyntax-violation-form�	0gsyntax-violation?�	1gmake-syntax-violation�	2g&syntax�	3glexical-violation?�	4gmake-lexical-violation�	5g&lexical�	6g%implementation-restriction-violation?�	7g)make-implementation-restriction-violation�	8g&implementation-restriction�	9gnon-continuable-violation?�	:gmake-non-continuable-violation�	;g&non-continuable�	<g
condition-who�	=gwho-condition?�	>gmake-who-condition�	?g&who�	@gcondition-irritants�	Agirritants-condition?�	Bgmake-irritants-condition�	Cg
&irritants�	Dgassertion-violation?�	Egmake-assertion-violation�	Fg
&assertion�	Gg
violation?�	Hgmake-violation�	Ig
&violation�	Jgerror?�	Kg
make-error�	Lg&error�	Mgserious-condition?�	Ngmake-serious-condition�	Og&serious�	Pgwarning?�	Qgmake-warning�	Rg&warning�	Sgcondition-message�	Tgmessage-condition?�	Ugmake-message-condition�	Vg&message�	Wgdefine-condition-type�	Xgcondition-accessor�	Ygcondition-predicate�	Zg
condition?�	[gsimple-conditions�	\g	condition�	]g
&condition�	^+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]3�	_gmodule-re-export!�	`_�	a_�	bgmodule-replace!�	cb�	db�	egmake-record-type-descriptor�	fg&compound-condition�	gg	immutable�	hg
components�	igh�	ji�	kgrecord-predicate�	lgcompound-condition?�	mgrecord-constructor�	ng"make-record-constructor-descriptor�	ogmake-compound-condition�	pgrecord-accessor�	qgcondition-internal?�	rgassertion-violation�	sfnot a condition�	tgfor-all�	ufnon-condition argument�	vglength�	wgappend�	xgmap�	ygmake-syntax-transformer�	zy�	{y�	|gmacro�	}g$sc-dispatch�	~}�	}��gany��geach�����������������������������������g
syntax-object��g
letrec-syntax��gtop�����gribcage��gdummy��gcondition-type��g	supertype��gconstructor��g	predicate��gfield��gaccessor�����������gm-2f221686982dd3-f���������������fl-2f221686982dd3-14��fl-2f221686982dd3-15��fl-2f221686982dd3-16��fl-2f221686982dd3-17��fl-2f221686982dd3-18��fl-2f221686982dd3-19��fl-2f221686982dd3-1a��������������������gx��������fl-2f221686982dd3-11�����������������gprivate�����������gtransform-fields��������gsyntax-rules��������g_��������gf��������ga������������grest������������������gcons��������gquote���������g����������������������������������������������ggenerate-accessors��������gcounter��������������ό��gbegin��������gdefine���������X�����p�������g+������������������������܌��������������������e���������glist->vector��������x��x��glist���m�����n���������Y�����
����gsyntax-violation��������f-source expression failed to match any pattern��%&���]���]��g!&condition-constructor-descriptor��gexists��gfind��gmessage��g�S���O���O���N���N���I��I��H��H��F��F��E��E�g	irritants�g@�	gwho�
g	<�gform�g/�
gsubform�g
.�C5h��]4	

54>"G454 hE]45L6=gfilenamefrnrs/conditions.scm�
	
��		
CO>"G4"54 hE]45L6=gfilenamefrnrs/conditions.scm�
	
��		
CO>"G4$54 hE]45L6=gfilenamefrnrs/conditions.scm�
	
��		
CO>"G4'54 hE]45L6=gfilenamefrnrs/conditions.scm�
	
��		
CO>"G4* ^hE]456=gfilenamefrnrs/conditions.scm�
	
��		
C>"G4a hE]456=gfilenamefrnrs/conditions.scm�
	
��		
C>"G4d hE]456=gfilenamefrnrs/conditions.scm�
	
��		
C>"G4eifj5fR4kifi5lR4mi4nifi55oR4pifi
5lqr[sh0_]45$L645$C6Wg	condition
		.gfilenamefrnrs/conditions.scm�	*	j	$��		.CO[Rlqh }]	45$C6ugobj
		gt			gfilenamefrnrs/conditions.scm�
	m	��		gnameg
condition?�CZRtZr\uvowxl[h @]45$6C8gcond
				gnamegflatten�Chh�-1345$"4>"G("	45�$44	
5?6�C~g
conditions
			egt		7gfilenamefrnrs/conditions.scm�	%	u	*��			e


gnameg	condition�C\R4{W|��������������������������h��]	
����
���45���45��C�gdummy
	�gcondition-type	�g	supertype		�gconstructor		�g	predicate		�gfield		�gaccessor		�	�	C��h(�]	45$@6�gx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgcondition-typeg	supertypegconstructorg	predicategfieldgaccessorg...C5WR�]R4ni]i5�R4ki]i5qRkl�[qh0+]45$
L45645$L6C#gobj
		-		-Ch�]	45OC�grtd
		g
rtd-predicate			gfilenamefrnrs/conditions.scm�
�	��		gnamegcondition-predicate�CYRkl�[h8+]4L5$L645$4L455L6C#gobj
		4		4Ch�]
45OC�grtd
		gproc		g
rtd-predicate				gfilenamefrnrs/conditions.scm�
�	��			gnamegcondition-accessor�CXR4eiV]i4�i�55VR4mi4niVi55UR4YiVi5TR4XiVi4piVi
55SR4eiR]i4�i55RR4mi4niRi55QR4YiRi5PR�OR�NR4YiOi5MR4eiLOi4�i55LR4mi4niLi55KR4YiLi5JRIRHR4YiIi5GRFRER4YiFi5DR4eiC]i4�i55CR4mi4niCi55BR4YiCi5AR4XiCi4piCi
55@R4ei?]i4�i
55?R4mi4ni?i55>R4Yi?i5=R4Xi?i4pi?i
55<R4ei;Ii4�i55;R4mi4ni;i55:R4Yi;i59R4ei8Ii4�i558R4mi4ni8i557R4Yi8i56R4ei5Ii4�i555R4mi4ni5i554R4Yi5i53R4ei2Ii4�i552R4mi4ni2i551R4Yi2i50R4Xi2i4pi2i
55/R4Xi2i4pi2i55.R4ei-Ii4�i55-R4mi4ni-i55,R4Yi-i5+RC�gm
		+giface
	2�giface
�:giface
A�giface
�Jgcompound-ref
��gfilenamefrnrs/conditions.scm�		
���	Y	���	\	���	^	���	a	��`	m	���	p	��	��	��	��	��	��	��
��	��H�	��I�	����	����	����	����	����	��
D�	��
J�	��
X�	��
^�	��
d�	��
r�	��
s�	��
��	��1�	��q�	����	����	��m�	�� 	�
C6rnrs/arithmetic/flonums.go000064400000035461150536206120011704 0ustar00GOOF----LE-8-2.0;]�4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	g
arithmetic�	gflonums�		�	
gfilenameS�	frnrs/arithmetic/flonums.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gice-9�	goptargs�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	 �	!gonly�	"ginf?�	#!"�	$gfixnums�	%$�	&gbase�	'&�	(gcontrol�	)(�	*g
conditions�	+*�	,g
exceptions�	-,�	.glists�	/.�	0gr5rs�	10�	2gmodule-export!�	32�	42�	5gfixnum->flonum�	6gno-nans-violation?�	7gmake-no-nans-violation�	8g&no-nans�	9gno-infinities-violation?�	:gmake-no-infinities-violation�	;g&no-infinities�	<gflexpt�	=gflsqrt�	>gflatan�	?gflasin�	@gflacos�	Agfltan�	Bgflcos�	Cgflsin�	Dgfllog�	Egflexp�	Fgflround�	Gg
fltruncate�	Hg	flceiling�	Igflfloor�	Jg
fldenominator�	Kgflnumerator�	Lgflmod0�	Mgfldiv0�	Ngfldiv0-and-mod0�	Ogflmod�	Pgfldiv�	Qg
fldiv-and-mod�	Rgflabs�	Sgfl/�	Tgfl-�	Ugfl*�	Vgfl+�	Wgflmin�	Xgflmax�	Ygflnan?�	Zgflinfinite?�	[g	flfinite?�	\gfleven?�	]gflodd?�	^gflnegative?�	_gflpositive?�	`gflzero?�	ag
flinteger?�	bgfl>=?�	cgfl>?�	dgfl<=?�	egfl<?�	fgfl=?�	ggreal->flonum�	hgflonum?�	i56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh4�	jgmodule-re-export!�	kj�	lj�	mgmodule-replace!�	nm�	om�	pgreal?�	qginexact?�	rgfor-all�	sgraise�	tgmake-assertion-violation�	ug
assert-flonum�	vginteger?�	wgassert-iflonum�	xg	imag-part�	yg	real-part�	ze+nan.0�	{g
ensure-flonum�	|gexact->inexact�	}gapply�	~g=�	g<��g<=��g>��g>=��godd?��geven?��gnan?��gmax��gmin��e0.0��g+��e1.0��g*��g-��g/��gabs��gdiv-and-mod��gdiv��gmod��g
div0-and-mod0��gdiv0��gmod0��g	numerator��gdenominator��gfloor��gceiling��gtruncate��ground��gexp��glog��gsin��gcos��gtan��gasin��gacos��gatan��gsqrt��gexpt��*��gmake-record-type-descriptor����������g&implementation-restriction��glist->vector����������grecord-constructor����������g"make-record-constructor-descriptor����������gcondition-predicate����������gfixnum?�C5h�+�]4	

54>"G454 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4#54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4%54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4'54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4)54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4+54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4-54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4/54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4154 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G44 ihM]456Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
C>"G4l hM]456Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
C>"G4o hM]456Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
C>"Gpqht]45$6Clgobj
		gfilenamefrnrs/arithmetic/flonums.scm�
	E	��		gnamegflonum?�ChRrhsth(�-1345$C456�gargs
			&gt		&gfilenamefrnrs/arithmetic/flonums.scm�
	F	��			&


gnameg
assert-flonum�CuRrhvh)]45$6C!gi
				Csth(�-1345$C456�gargs
			&gt		&gfilenamefrnrs/arithmetic/flonums.scm�
	H	��			&


gnamegassert-iflonum�CwRpxyzh(�]45$C45
�$6Cxgz
		&gfilenamefrnrs/arithmetic/flonums.scm�
	L	��	%	O	��		&gnameg
ensure-flonum�C{Rpst|h8�]	45$"445>"G6}gx
		3gt			-gfilenamefrnrs/arithmetic/flonums.scm�
	Q	��		3gnamegreal->flonum�CgR}u~h(t-134>"G@lgargs
			#gfilenamefrnrs/arithmetic/flonums.scm�
	U	��			#


gnamegfl=?�CfR}uh(t-134>"G@lgargs
			#gfilenamefrnrs/arithmetic/flonums.scm�
	V	��			#


gnamegfl<?�CeR}u�h(u-134>"G@mgargs
			#gfilenamefrnrs/arithmetic/flonums.scm�
	W	��			#


gnamegfl<=?�CdR}u�h(t-134>"G@lgargs
			#gfilenamefrnrs/arithmetic/flonums.scm�
	X	��			#


gnamegfl>?�CcR}u�h(u-134>"G@mgargs
			#gfilenamefrnrs/arithmetic/flonums.scm�
	Y	��			#


gnamegfl>=?�CbRuvh v]4>"G6ngfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	[	��		gnameg
flinteger?�CaRuh s]4>"G
�Ckgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	\	��		gnamegflzero?�C`Ruh w]4>"G
�Cogfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	]	��		gnamegflpositive?�C_Ruh w]4>"G
�Cogfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	^	��		gnamegflnegative?�C^Rw�h s]4>"G6kgifl
		gfilenamefrnrs/arithmetic/flonums.scm�
	_	��		gnamegflodd?�C]Rw�h t]4>"G6lgifl
		gfilenamefrnrs/arithmetic/flonums.scm�
	`	��		gnamegfleven?�C\Ru"�h8�]	4>"G45$"45�C{gfl
		5gt		3gfilenamefrnrs/arithmetic/flonums.scm�
	a	��		5gnameg	flfinite?�C[Ru"h w]4>"G6ogfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	b	��		gnamegflinfinite?�CZRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	c	��		gnamegflnan?�CYR}u�h0�-13�4>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	e	��			*
gnamegflmax�CXR}u�h0�-13�4>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	j	��			*
gnamegflmin�CWR}u��h0{-134>"G(C@sgargs
			,gfilenamefrnrs/arithmetic/flonums.scm�
	o	��	%	q	��			,


gnamegfl+�CVR}u��h0{-134>"G(C@sgargs
			,gfilenamefrnrs/arithmetic/flonums.scm�
	s	��	%	u	��			,


gnamegfl*�CUR}u�h0�-13�4>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	w	��			*
gnamegfl-�CTR}u�h0�-13�4>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	|	��			*
gnamegfl/�CSRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflabs�CRRw�h �]4>"G6�gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnameg
fldiv-and-mod�CQRw�h �]4>"G6|gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnamegfldiv�CPRw�h �]4>"G6|gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnamegflmod�CORw�h �]4>"G6�gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnamegfldiv0-and-mod0�CNRw�h �]4>"G6}gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnamegfldiv0�CMRw�h �]4>"G6}gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnamegflmod0�CLRu�h x]4>"G6pgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflnumerator�CKRu�h z]4>"G6rgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnameg
fldenominator�CJRu�h t]4>"G6lgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflfloor�CIRu�h v]4>"G6ngfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnameg	flceiling�CHRu�h w]4>"G6ogfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnameg
fltruncate�CGRu�h t]4>"G6lgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflround�CFRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflexp�CERu{��hX�)#34>"G4�56]4>"G4�54�5�6�gfl
			)gfl
	+	Xgfl2	+	Xgfilenamefrnrs/arithmetic/flonums.scm�	$�	!��	H�	$��	R�	%��			)	+	X	gnamegfllog�CDRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflsin�CCRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflcos�CBRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegfltan�CARu{�h s]4>"G456kgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflasin�C?Ru{�h s]4>"G456kgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflacos�C@Ru�h@e)34>"G6]4>"G6]gfl
			!gfl
	#	?gfl2	#	?			!	#	?	gnamegflatan�C>Ru{�h s]4>"G456kgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflsqrt�C=Ru{�h(�]4>"G456}gfl1
		#gfl2		#gfilenamefrnrs/arithmetic/flonums.scm�
�	��		#	gnamegflexpt�C<R4�;�i4�55;R4�4�;i55:R4�;i59R4�8�i4�558R4�4�8i557R4�8i56R�st|h8�]	45$"445>"G6�gfx
		3gt			-gfilenamefrnrs/arithmetic/flonums.scm�
�	��		3gnamegfixnum->flonum�C5RC�gm
		+giface
	2�giface
�Jgiface
Q�giface
�jgiface
q�giface
�giface
�giface
!�giface
�:
gfilenamefrnrs/arithmetic/flonums.scm�		
��_	E	��.	F	��	W	H	��
	L	��
�	Q	���	U	��_	V	��
	W	��
�	X	���	Y	��9	[	���	\	���	]	��:	^	���	_	���	`	��f	a	��	b	���	c	���	e	��|	j	��F	o	��	s	���	w	���	|	��}�	��?�	����	����	��q�	��0�	����	����	�� U�	�� ��	��!��	��"Z�	��#�	��#��	��$��	��%}�	��&%�	��&��	��'v�	��(&�	��(��	��)��	��*X�	��*Y�	��*��	��+��	��5	+�
C6rnrs/arithmetic/fixnums.go000064400000046460150536206120011713 0ustar00GOOF----LE-8-2.0M]<4h]gguile�	�	gdefine-module*�	�	�	grnrs�	g
arithmetic�	gfixnums�		�	
gfilenameS�	frnrs/arithmetic/fixnums.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gash�	gcons*�	gdefine-inlinable�	ginexact->exact�	glogand�	glogbit?�	glogcount�	glogior�	glognot�	glogxor�	 gmost-positive-fixnum�	!gmost-negative-fixnum�	"gobject-address�	# !"�	$gcall-with-deferred-observers�	%$�	&$�	'gmodule-use-interfaces!�	('�	)'�	*gcurrent-module�	+*�	,*�	-gice-9�	.goptargs�	/-.�	0gbase�	10�	2gcontrol�	32�	4gbitwise�	54�	6g
conditions�	76�	8g
exceptions�	98�	:glists�	;:�	<gmodule-export!�	=<�	><�	?gfxreverse-bit-field�	@gfxrotate-bit-field�	Agfxarithmetic-shift-right�	Bgfxarithmetic-shift-left�	Cgfxarithmetic-shift�	Dgfxcopy-bit-field�	Egfxbit-field�	Fg
fxcopy-bit�	Gg
fxbit-set?�	Hgfxfirst-bit-set�	Igfxlength�	Jgfxbit-count�	Kgfxif�	Lgfxxor�	Mgfxior�	Ngfxand�	Ogfxnot�	Pg	fx*/carry�	Qg	fx-/carry�	Rg	fx+/carry�	Sgfxmod0�	Tgfxdiv0�	Ugfxdiv0-and-mod0�	Vgfxmod�	Wgfxdiv�	Xg
fxdiv-and-mod�	Ygfx-�	Zgfx*�	[gfx+�	\gfxmin�	]gfxmax�	^gfxeven?�	_gfxodd?�	`gfxnegative?�	agfxpositive?�	bgfxzero?�	cgfx<=?�	dgfx>=?�	egfx<?�	fgfx>?�	ggfx=?�	hggreatest-fixnum�	igleast-fixnum�	jgfixnum-width�	kgfixnum?�	l?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijk-�	mgmodule-re-export!�	nm�	om�	pgmodule-replace!�	qp�	rp�	sg% inline-fixnum?-procedure�	tgmake-syntax-transformer�	ut�	vt�	wginline-fixnum?�	xgmacro�	yg$sc-dispatch�	zy�	{y�	|g_�	}gany�	~|}�	g
syntax-object��gsyntax-parameterize��gm-2e3f1f84bf0f11-1c��gtop������gribcage��gt-2e3f1f84bf0f11-1b��������fl-2e3f1f84bf0f11-21��������������gx�����fl-2e3f1f84bf0f11-1e�����������gshift��g	proc-name��gargs�������������fl-bde397a-1eaf��fl-bde397a-1eb0������������gname��gformals��gbody������������fl-bde397a-1ea6��fl-bde397a-1ea7��fl-bde397a-1ea8�������������gmake-procedure-name��gprefix����������fl-bde397a-1e9a��fl-bde397a-1e98���������������fl-bde397a-1e97������������������������
��ghygiene����������������gprivate�����w����gidentifier-syntax�������s���������������glambda�������gobj����������gnot�������g=�������
��������	����"��������������������������������geach-any��|Ҍ��gsyntax-violation��������fWrong number of arguments��f-source expression failed to match any pattern��gidentifier?�������������s����g
assert-fixnum��}Ҍ��gor��gdummy��garg������gm-2e3f1f84bf0f11-27����������fl-2e3f1f84bf0f11-2c��fl-2e3f1f84bf0f11-2d���������������fl-2e3f1f84bf0f11-29����������������������gand�������gmap��������w����graise�������gmake-assertion-violation�����������������gfor-all��gassert-fixnums�gdefine-fxop*�}}}�gdefine�gop����gm-2e3f1f84bf0f11-31������fl-2e3f1f84bf0f11-36�	fl-2e3f1f84bf0f11-37�
fl-2e3f1f84bf0f11-38�	
���
�fl-2e3f1f84bf0f11-33����
������gcase-lambda������gy���������������gapply��� �!g>�"g<�#g>=�$g<=�%gzero?�&g	positive?�'g	negative?�(godd?�)geven?�*gmax�+gmin�,g)make-implementation-restriction-violation�-gdiv�.gmod�/gdiv-and-mod�0gdiv0�1gmod0�2g
div0-and-mod0�3gexpt�4g
bitwise-if�5gbitwise-length�6gbitwise-first-bit-set�7gbitwise-copy-bit�8gbitwise-bit-field�9gbitwise-copy-bit-field�:gbitwise-rotate-bit-field�;gbitwise-reverse-bit-field�C5h�3�]4	

54>"G4#54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4/54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4154&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4354&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4554&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4754&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4954&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4;54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
CO>"G4&>,lhM]456Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
C>"G4&o,hM]456Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
C>"G4&r,hM]456Egfilenamefrnrs/arithmetic/fixnums.scm�
	
��		
C>"G"" i�$�"�	�"���
"���h]LC		
COjR hj]Cbgfilenamefrnrs/arithmetic/fixnums.scm�
	h	��		
gnameggreatest-fixnum�ChR!hg]C_gfilenamefrnrs/arithmetic/fixnums.scm�
	i	��		
gnamegleast-fixnum�CiR"ht]
	45���Clgobj
		gfilenamefrnrs/arithmetic/fixnums.scm�
	k	��		gnamegfixnum?�CkR"h�]
	45���Cgobj
		gfilenamefrnrs/arithmetic/fixnums.scm�
	n	��		gnameg% inline-fixnum?-procedure�CsR4vwx{~�h;]C3gt-2e3f1f84bf0f11-1b
		
		
C��w�h_]L6Wga
		gfilenamefrnrs/arithmetic/fixnums.scm�		n	��		C|���hO]L6Ggfilenamefrnrs/arithmetic/fixnums.scm�		n	��		
C�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefrnrs/arithmetic/fixnums.scm�
	n	��		qC5wR4v�x{�����h=]C5gtmp-2e3f1f84bf0f11-30
		
		
C�h>]45���C6gdummy
		garg					C��h(x]	45$@6pgx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgargg...C5�R�s��h �]	45$C456�gargs
		gt		gfilenamefrnrs/arithmetic/fixnums.scm�
	w	��		gnamegassert-fixnums�C�R4vx{ 	h0O]���CGgdummy
		*gname		*gop			*		*	C��h(x]	45$@6pgx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgnamegopC5R�igR!ifR"ieR#idR$icR%ibR&iaR'i`R(i_R)i^R"��*�hx�)Q3
	45��$"
	45���$"445>"G6-134>"G@�gx
			Wgy			Wgt		+	Ogargs
	`	xgfilenamefrnrs/arithmetic/fixnums.scm�
�	��			W		`	x


gnamegfxmax�C]R"��+�hx�)Q3
	45��$"
	45���$"445>"G6-134>"G@�gx
			Wgy			Wgt		+	Ogargs
	`	xgfilenamefrnrs/arithmetic/fixnums.scm�
�	��			W		`	x


gnamegfxmin�C\R"��,h��]
	45��$"
	45���$"445>"G�
	45���$"445>"GC�gfx1
	�gfx2	�gt		$	Hgr		M�gt		\�gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�	gnamegfx+�C[R"��,h��]
	45��$"
	45���$"445>"G�
	45���$"445>"GC�gfx1
	�gfx2	�gt		$	Hgr		M�gt		\�gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�	gnamegfx*�CZR"��h��-.,3#
	45���$"445>"G$l
	45���$"445>"G�
	45���$"445>"GC
�
	45���$"445>"GC�gfx1
	�gfx2	�gt		"	Fgt		Y	}gr	��gt	��gr	��gt	��gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�gnamegfx-�CYR"��-hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnamegfxdiv�CWR"��.hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnamegfxmod�CVR"��/hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnameg
fxdiv-and-mod�CXR"��0hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnamegfxdiv0�CTR"��1hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnamegfxmod0�CSR"��2hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnamegfxdiv0-and-mod0�CUR"��13j0h��]
	45��$""
	45��$"
	45���$"445>"G��44	455544	4555D�gfx1
	�gfx2	�gfx3		�gt		9	]gs		e�gs0		z�gs1	��gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�	gnameg	fx+/carry�CRR"��13j0h��]
	45��$""
	45��$"
	45���$"445>"G��44	455544	4555D�gfx1
	�gfx2	�gfx3		�gt		9	]gd		e�gd0		z�gd1	��gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�	gnameg	fx-/carry�CQR"��13j0h��]
	45��$""
	45��$"
	45���$"445>"G��44	455544	4555D�gfx1
	�gfx2	�gfx3		�gt		9	]gs		e�gs0		z�gs1	��gfilenamefrnrs/arithmetic/fixnums.scm�
�	��	�	gnameg	fx*/carry�CPR"��h@�]	
	45���$"445>"G6xgfx
		9gt		3gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		9gnamegfxnot�COR"���hx�)O3
	45��$"
	45���$"445>"G�C-134>"G@�gx
			Ugy			Ugt		+	Ogargs
	^	vgfilenamefrnrs/arithmetic/fixnums.scm�
�	��			U		^	v


gnamegfxand�CNR"���hx�)O3
	45��$"
	45���$"445>"G�C-134>"G@�gx
			Ugy			Ugt		+	Ogargs
	^	vgfilenamefrnrs/arithmetic/fixnums.scm�
�	��			U		^	v


gnamegfxior�CMR"���hx�)O3
	45��$"
	45���$"445>"G�C-134>"G@�gx
			Ugy			Ugt		+	Ogargs
	^	vgfilenamefrnrs/arithmetic/fixnums.scm�
�	��			U		^	v


gnamegfxxor�CLR"��4hh�]
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		ggfx2		ggfx3			ggt		9	]gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		g	gnamegfxif�CKR"��hP�]	
	45���$"445>"G
�$4566~gfx
		Lgt		3gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		Lgnamegfxbit-count�CJR"��5h@�]	
	45���$"445>"G6{gfx
		9gt		3gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		9gnamegfxlength�CIR"��6h@�]	
	45���$"445>"G6�gfx
		9gt		3gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		9gnamegfxfirst-bit-set�CHR"��hP�]

	45��$"
	45���$"445>"G6�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		P	gnameg
fxbit-set?�CGR"��7hh�]
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		ggfx2		ggfx3			ggt		9	]gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		g	gnameg
fxcopy-bit�CFR"��8hh�]
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		ggfx2		ggfx3			ggt		9	]gfilenamefrnrs/arithmetic/fixnums.scm�
�	��		g	gnamegfxbit-field�CER"��9h��]
	45��$"7
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		~gfx2		~gfx3			~gfx4			~gt		N	rgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		~	gnamegfxcopy-bit-field�CDR"��hP�]

	45��$"
	45���$"445>"G�C�gfx1
		Ngfx2		Ngt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
�	��		N	gnamegfxarithmetic-shift�CCRCiBR"��hP�]

	45��$"
	45���$"445>"G
��C�gfx1
		Pgfx2		Pgt		$	Hgfilenamefrnrs/arithmetic/fixnums.scm�
	��		P	gnamegfxarithmetic-shift-right�CAR"��:h��]
	45��$"7
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		~gfx2		~gfx3			~gfx4			~gt		N	rgfilenamefrnrs/arithmetic/fixnums.scm�
	��		~	gnamegfxrotate-bit-field�C@R"��;hh�]
	45��$""
	45��$"
	45���$"445>"G6�gfx1
		ggfx2		ggfx3			ggt		9	]gfilenamefrnrs/arithmetic/fixnums.scm�
	��		g	gnamegfxreverse-bit-field�C?RC�gm
		+giface
	2�giface
�Jgiface
Q�giface
�jgiface
q�giface
�giface
�giface
!�gi
.Pgn.Pgw
Z�gfilenamefrnrs/arithmetic/fixnums.scm�		
���	a	��	h	���	i	��?	k	���	n	��
�	w	��]�	��e�	��m�	��u�	��}�	����	����	����	����	����	����	��%�	���	����	����	����	����	����	����	����	����	��z�	�� �	��!��	��"��	��#��	��%�	��&E�	��'n�	��(a�	��)>�	��*%�	��++�	��,\�	��-��	��.��	��/��	��/��	��1		��2e	��3�	��1	3�
C6rnrs/arithmetic/bitwise.go000064400000010377150536206120011666 0ustar00GOOF----LE-8-2.0�]c4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	g
arithmetic�	gbitwise�		�	
gfilenameS�	frnrs/arithmetic/bitwise.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gbase�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	�	 gcontrol�	! �	"grename�	#gonly�	$gsrfi�	%gsrfi-60�	&$%�	'g
bitwise-if�	(ginteger-length�	)g
first-set-bit�	*gcopy-bit�	+g	bit-field�	,gcopy-bit-field�	-grotate-bit-field�	.greverse-bit-field�	/#&'()*+,-.
�	0gbitwise-length�	1(0�	2gbitwise-first-bit-set�	3)2�	4gbitwise-bit-field�	5+4�	6gbitwise-reverse-bit-field�	7.6�	8"/1357�	9glognot�	:glogand�	;glogior�	<glogxor�	=glogcount�	>glogbit?�	?gmodulo�	@gash�	A#9:;<=>?@
�	Bgbitwise-not�	C9B�	Dgbitwise-and�	E:D�	Fgbitwise-ior�	G;F�	Hgbitwise-xor�	I<H�	Jgbitwise-arithmetic-shift�	K@J�	L"ACEGIK�	Mgmodule-export!�	NM�	OM�	Pgbitwise-rotate-bit-field�	Qgbitwise-arithmetic-shift-right�	Rgbitwise-arithmetic-shift-left�	Sgbitwise-copy-bit-field�	Tgbitwise-copy-bit�	Ugbitwise-bit-set?�	Vgbitwise-bit-count�	WPQRSTUV�	Xgmodule-re-export!�	YX�	ZX�	[6J420'HFDB
�	\gmodule-replace!�	]\�	^\�	_9�	`9�	a@�	b@�C5h��]4	

54>"G454hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm�
	
��		
CO>"G4!54hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm�
	
��		
CO>"G4854hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm�
	
��		
CO>"G4L54hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm�
	
��		
CO>"G4OWhM]456Egfilenamefrnrs/arithmetic/bitwise.scm�
	
��		
C>"G4Z[hM]456Egfilenamefrnrs/arithmetic/bitwise.scm�
	
��		
C>"G4^hM]456Egfilenamefrnrs/arithmetic/bitwise.scm�
	
��		
C>"G`=h }]
�$4566ugei
		gfilenamefrnrs/arithmetic/bitwise.scm�
	E	��		gnamegbitwise-bit-count�CVR>h�]6�gei1
		
gei2		
gfilenamefrnrs/arithmetic/bitwise.scm�
	J	��		
	gnamegbitwise-bit-set?�CUR*>h�]4
56�gei1
		gei2		gei3			gfilenamefrnrs/arithmetic/bitwise.scm�
	L	��			gnamegbitwise-copy-bit�CTR,h�]6�gei1
		gei2		gei3			gei4			gfilenamefrnrs/arithmetic/bitwise.scm�
	S	��			gnamegbitwise-copy-bit-field�CSR-h�]6�gei1
		gei2		gei3			gei4			gfilenamefrnrs/arithmetic/bitwise.scm�
	V	��			gnamegbitwise-rotate-bit-field�CPRbRRh�]
��C�gei1
		
gei2		
gfilenamefrnrs/arithmetic/bitwise.scm�
	Z	��		
	gnamegbitwise-arithmetic-shift-right�CQRC�gm
		+giface
	2�giface
�Jgiface
Q�giface
�jgfilenamefrnrs/arithmetic/bitwise.scm�		
���	E	��Q	J	��"	L	��	S	���	V	���	Y	���	Z	��		�
C6rnrs/records/syntactic.go000064400000052104150536206120011523 0ustar00GOOF----LE-8-2.0,T]4hF&]gguile�	�	gdefine-module*�	�	�	grnrs�	grecords�	g	syntactic�		�	
gfilenameS�	frnrs/records/syntactic.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gand=>�	ggensym�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	 �	!�	"gbase�	#"�	$g
conditions�	%$�	&g
exceptions�	'&�	(g
hashtables�	)(�	*glists�	+*�	,g
procedural�	-,�	.gsyntax-case�	/.�	0gsrfi�	1g:1�	201�	3gtake�	423�	5gmodule-export!�	65�	75�	8grecord-constructor-descriptor�	9gdefine-record-type�	:89�	;gmodule-re-export!�	<;�	=;�	>gmodule-replace!�	?>�	@>�	Agrecord-type-descriptor�	BA�	Cgmake-eq-hashtable�	Dgrecord-type-registry�	Egstring->symbol�	Fg
string-append�	Gfmake-�	Hgsymbol->string�	Igguess-constructor-name�	Jf?�	Kgguess-predicate-name�	Lghashtable-set!�	Mgregister-record-type�	Ng
hashtable-ref�	Ogcar�	Pglookup-record-type-descriptor�	Qgcdr�	Rg$lookup-record-constructor-descriptor�	Sgmake-syntax-transformer�	TS�	US�	Vgmacro�	Wg$sc-dispatch�	XW�	YW�	Zg_�	[gany�	\[[[�	]geach-any�	^\]��	_Z^��	`g
syntax-object�	agdefine-record-type0�	bgtop�	cb�	dgribcage�	egrecord-name�	fgconstructor-name�	ggpredicate-name�	hg
record-clause�	iefgh�	jcccc�	kfl-17a5c5a65d375-22�	lfl-17a5c5a65d375-23�	mfl-17a5c5a65d375-24�	nfl-17a5c5a65d375-25�	oklmn�	pdijo�	qd�	rgstx�	sr�	tc�	ufl-17a5c5a65d375-1f�	vu�	wdstv�	xcpqw�	ygprivate�	zy�	{`axz�	|[]��	}Z|��	~g
syntax->datum�	g
datum->syntax��[[��gt-17a5c5a65d375-38��gt-17a5c5a65d375-37������gm-17a5c5a65d375-39���b������fl-17a5c5a65d375-3d��fl-17a5c5a65d375-3e������d�����g��fl-17a5c5a65d375-35�����d�t���f��fl-17a5c5a65d375-33�����d�t���grecord-name-sym�����fl-17a5c5a65d375-31�����d�t���eh��cc��fl-17a5c5a65d375-2c��fl-17a5c5a65d375-2d������d�����cq�qqqq�q�q��qw��`a�z��gsyntax-violation��������f-source expression failed to match any pattern��
��greverse��gsequence��g
number-fields��gfree-id��g	immutable��gx�����fl-17a5c5a65d375-135�����d�t���gf��gguess-mutator-name��gguess-accessor-name��grecord-name-str��g
id->string��gwrap����������cccccc��fl-17a5c5a65d375-12a��fl-17a5c5a65d375-128��fl-17a5c5a65d375-126��fl-17a5c5a65d375-124��fl-17a5c5a65d375-122��fl-17a5c5a65d375-120����������d�����gfields��e���fl-17a5c5a65d375-11e��fl-17a5c5a65d375-11f������d�����cq�����`��z�������[��f-���[[��gmutable��`��z�������[��f-set!���[[[��gidentifier?��finvalid field specifier��gmap��gprocess-fields��glist->vector��g	fold-left��gdefine��gt-17a5c5a65d375-79��gt-17a5c5a65d375-78������gm-17a5c5a65d375-7a���b������fl-17a5c5a65d375-7e��fl-17a5c5a65d375-7f������d�����glst��gc�������ccc��fl-17a5c5a65d375-75��fl-17a5c5a65d375-76��fl-17a5c5a65d375-77�������d�����gfield-names�����fl-17a5c5a65d375-6e�����d�t������fl-17a5c5a65d375-6c�����d�t���gloop��g_fields��g_parent��g	_protocol��g_sealed��g_opaque��g_nongenerative��g_constructor��g_parent-rtd��grecord-clauses������������
��cccccccccc
�fl-17a5c5a65d375-54�fl-17a5c5a65d375-55�fl-17a5c5a65d375-56�fl-17a5c5a65d375-57�fl-17a5c5a65d375-58�fl-17a5c5a65d375-59�fl-17a5c5a65d375-5a�fl-17a5c5a65d375-5b�fl-17a5c5a65d375-5c�	fl-17a5c5a65d375-5d�
	
�d��
�fl-17a5c5a65d375-4c�
fl-17a5c5a65d375-4d�fl-17a5c5a65d375-4e�fl-17a5c5a65d375-4f�
�dij�gunspecified?�g
*unspecified*��cc�fl-17a5c5a65d375-46�fl-17a5c5a65d375-44��d�fl-17a5c5a65d375-43��dst�cq�q�q�q�q�`�z�grecord-accessor� `z�!glength�"gt-17a5c5a65d375-8b�#gt-17a5c5a65d375-8a�$"#�%gm-17a5c5a65d375-8c�&%b�'&&�(fl-17a5c5a65d375-90�)fl-17a5c5a65d375-91�*()�+d$'*�,fl-17a5c5a65d375-87�-fl-17a5c5a65d375-88�.fl-17a5c5a65d375-89�/,-.�0d��/�1gfield-accessors�21�3fl-17a5c5a65d375-70�43�5d2t4�6cq+q0q5q�q�q�7`�6z�8grecord-mutator�9`86z�:gt-17a5c5a65d375-97�;:�<gm-17a5c5a65d375-98�=<b�>=�?fl-17a5c5a65d375-9b�@?�Ad;>@�Bgfield-mutators�CB�Dfl-17a5c5a65d375-82�ED�FdCtE�GcqAqFq5q�q�q�H`8Gz�Igt-17a5c5a65d375-a0�JI�Kgm-17a5c5a65d375-a1�LKb�ML�Nfl-17a5c5a65d375-a4�ON�PdJMO�Qg	parent-cd�RQ�Sfl-17a5c5a65d375-94�TS�UdRtT�VcqPqUqFq5q�q�q�W`AVz�X[[[[[[[[[]]�Ygbegin�Zgt-17a5c5a65d375-b2�[gt-17a5c5a65d375-b1�\gt-17a5c5a65d375-b0�]gt-17a5c5a65d375-af�^gt-17a5c5a65d375-ae�_gt-17a5c5a65d375-b4�`gt-17a5c5a65d375-b3�agt-17a5c5a65d375-b6�bgt-17a5c5a65d375-b5�cgt-17a5c5a65d375-b8�dgt-17a5c5a65d375-b7�eZ[\]^_`abcd�fgm-17a5c5a65d375-b9�gfb�hggggggggggg�ifl-17a5c5a65d375-bd�jfl-17a5c5a65d375-be�kfl-17a5c5a65d375-bf�lfl-17a5c5a65d375-c0�mfl-17a5c5a65d375-c1�nfl-17a5c5a65d375-c2�ofl-17a5c5a65d375-c3�pfl-17a5c5a65d375-c4�qfl-17a5c5a65d375-c5�rfl-17a5c5a65d375-c6�sfl-17a5c5a65d375-c7�tijklmnopqrs�udeht�vgopaque?�wv�xfl-17a5c5a65d375-ac�yx�zdwty�{gsealed?�|{�}fl-17a5c5a65d375-aa�~}�d|t~��guid�����fl-17a5c5a65d375-a8�����d�t���gprotocol�����fl-17a5c5a65d375-a6�����d�t���g
parent-rtd�����fl-17a5c5a65d375-9d�����d�t���cquqqqqzqq�q�q�qUqFq5q�q�q��`Y�z��`��z��gmake-record-type-descriptor��`��z��gquote��`��z��grecord-constructor��`��z��g"make-record-constructor-descriptor��`��z��gdummy��`��z��glet��`��z��`M�z���������grecord-predicate��`��z��gappend��������cq��`��z�������]����[���graise��gmake-assertion-violation��gparent��`��z�������[���[���`��z�������[���[���gsealed��`��z�������[���[���gopaque��`��z�������[���[���g
nongenerative��`��z����������[���gt-17a5c5a65d375-f2�����gm-17a5c5a65d375-f3���b�����fl-17a5c5a65d375-f6�����d�����grest�����fl-17a5c5a65d375-f0�����d�t���cq��q	��`��z���[���[�������fl-17a5c5a65d375-f9��fl-17a5c5a65d375-fa������d�����c�q��`��z��`��z�������[[���[���Z[��gt-17a5c5a65d375-10a�����gm-17a5c5a65d375-10b���b�����fl-17a5c5a65d375-10e�����d�����gname�����fl-17a5c5a65d375-108�����d�t���fl-17a5c5a65d375-105�����dst���cq��q���`P�z��gt-17a5c5a65d375-116�����gm-17a5c5a65d375-117���b�����fl-17a5c5a65d375-11a�����d�����fl-17a5c5a65d375-114�����d�t���fl-17a5c5a65d375-111���dst�cq��q�`Rz�C5hX*b]4	

54>"G454!hL]45L6Dgfilenamefrnrs/records/syntactic.scm�
	
��		
CO>"G4#54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm�
	
��		
CO>"G4%54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm�
	
��		
CO>"G4'54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm�
	
��		
CO>"G4)54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm�
	
��		
CO>"G4+54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm�
	
��		
CO>"G4-54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm�
	
��		
CO>"G4/54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm�
	
��		
CO>"G4454!hL]45L6Dgfilenamefrnrs/records/syntactic.scm�
	
��		
CO>"G47!:hL]456Dgfilenamefrnrs/records/syntactic.scm�
	
��		
C>"G4=!hL]456Dgfilenamefrnrs/records/syntactic.scm�
	
��		
C>"G4@!BhL]456Dgfilenamefrnrs/records/syntactic.scm�
	
��		
C>"G4Ci5DREFGHh�]44556�grecord-name
		gfilenamefrnrs/records/syntactic.scm�
	#	��			$	#��		gnamegguess-constructor-name�CIREFHJh�]44556�grecord-name
		gfilenamefrnrs/records/syntactic.scm�
	%	��		&	@��		gnamegguess-predicate-name�CKRLDh�]�6�gname
		grtd		grcd			gfilenamefrnrs/records/syntactic.scm�
	'	��			gnamegregister-record-type�CMRNDOh�]456�gname
		gfilenamefrnrs/records/syntactic.scm�
	)	��		gnameglookup-record-type-descriptor�CPRNDQh�]456�gname
		gfilenamefrnrs/records/syntactic.scm�
	+	��		gnameg$lookup-record-constructor-descriptor�CRR4U9VY_{h�]��C�grecord-name
		gconstructor-name		gpredicate-name			g
record-clause						C}~IKY��hZ]LL��CRgt-17a5c5a65d375-38
		gt-17a5c5a65d375-37					C��
h`�]*454455445545$
O@	6�grecord-name
		[g
record-clause		[grecord-name-sym				[gconstructor-name			[gpredicate-name		)	[gtmp		2	[gtmp		=	[		[	C��h@L]45$@45$@6Dgstx
		9gtmp		9gtmp		"	9		9C59R�h ?]
�$C4L�5�C7gn
				gnameg	seq-inner�C�h �]	OQ456�gn
		g	seq-inner	
	gfilenamefrnrs/records/syntactic.scm�
	A	��		gnamegsequence�C�Rh c](C�4L��5�C[gfields
		gcounter					gnamegnumber-fields-inner�Ch�]	OQ
6�gfields
		gnumber-fields-inner	
	gfilenamefrnrs/records/syntactic.scm�
	D	��		gnameg
number-fields�C�RY��~EF�HhP}]	454L544M4455554L5Cugname
		Igx		gx	6	Dgfilenamefrnrs/records/syntactic.scm�	&	T	(��		IC��~h(Q]
454L5CIgname
		#gaccessor		#gx					#	C��~EF�H�	hx�]	454L544M4455554L544M4455554L5C�gname
		rgx		gx	6	Dgx	`	ngfilenamefrnrs/records/syntactic.scm�	&	T	(��	N	Y	��	\	Y	5��		rC��~h(f]454L5C^gname
		$gaccessor		$gmutator			$gx					$	C�h,]6$gname
				C�~EF�HhP}]	454L544M4455554L5Cugname
		Igx		gx	6	Dgfilenamefrnrs/records/syntactic.scm�	&	T	(��		IC�9�h��])45$
LLO@45$LO@45$
LLO@45$	LO@4
?$
LLO@
6�gx
	�gtmp	�gtmp		)�gtmp		E�gtmp		c�gtmp		{�gfilenamefrnrs/records/syntactic.scm��	n	/��	�gnamegf�CH~�h0�]HOQ4455K6�grecord-name
		+gfields		+grecord-name-str			+gf			+gfilenamefrnrs/records/syntactic.scm�
	L	��		+	gnamegprocess-fields�C�R4UaVY_Y��O�Y� hZ]LCRgt-17a5c5a65d375-79
		gt-17a5c5a65d375-78					C��hHk]��45$4LO?"
45�Ccglst
		Bgx		Bgc			Bgtmp			>gtmp			;		B	C�!Y�79hZ]LCRgt-17a5c5a65d375-8b
		gt-17a5c5a65d375-8a					C��hPk]���$A���45$4LO?"
45�CCcglst
		Ogx		Ogc			Ogtmp			Hgtmp		 	E		O	CHWYX������������
h��,3LLLL	LLL
���LL4	
5�����C~gt-17a5c5a65d375-b2
	�gt-17a5c5a65d375-b1	�gt-17a5c5a65d375-b0		�gt-17a5c5a65d375-af		�gt-17a5c5a65d375-ae		�gt-17a5c5a65d375-b4		�gt-17a5c5a65d375-b3		�gt-17a5c5a65d375-b6		�gt-17a5c5a65d375-b5		�gt-17a5c5a65d375-b8			�gt-17a5c5a65d375-b7	
	�	�	C��h`�]844LL&"L554LOLL&"L44LL&"L5554LOLL&"L44LL&"L555LL&LL&"L��"	LLL&LL&"L�"
LLL&"LLL&"LLL&"LLL&"LLL&"L45$
L
L	LO@6�gfield-names
	]gfield-accessors	T]gfield-mutators	�]g	parent-cd	�]g
parent-rtd	�]gtmp	2]gtmp	=]	]
C����h0G]L
L	&L4L5LLLLLLL6	456?g
record-fields
		0grest		0		0	C���h@E]L	L&'L	L&LLLLLLLL6	456456=gparent-name
		:grest		:		:	C���h0D]L	L&LLLLLLLL6	456<g
expression
		)grest		)		)	C���h0A]L	L&LLLLLLLL6	4569gsealed?
		)grest		)		)	C���h0A]L	L&LLLLLLLL6	4569gopaque?
		)grest		)		)	C����h@<]	L
L	&,LLLLLL4L455LL6	4564grest
		?gtmp	"	.		?C����h0=]L	L&LLLLLLLL6	4565guid
		.grest		.		.	C���h@M]L	L&,L	L&LLLLLLLL6	456456Egrtd
		?gcd		?grest			?		?	C��h��,	345		$LLLLO	@45

$LLLO
@45$LLO
@45$LLO
@4	5

$
LLO

@45$LLO
@4
5$LLLO@45$LLO
@45$LLO
@6�g_fields
	�g_parent	�g	_protocol		�g_sealed		�g_opaque		�g_nongenerative		�g_constructor		�g_parent-rtd		�grecord-clauses		�gtmp			�gtmp	
	>�gtmp		n�gtmp	��gtmp	
��gtmp	��gtmp	&�gtmp	V�gtmp	��	�		gnamegloop�Ch8�]OLQLLLLLLLL6	�grecord-name
		1gconstructor-name		1gpredicate-name			1g
record-clause			1gloop			1		1	C��h0V]�45$O@6Ngstx
		,g
*unspecified*		,gtmp			,		,C5aR4UAVY��~�h <]	4L455C4gname
		gtmp				C��h(;]	45$O@63gstx
		'gtmp		'		'C5AR4U8VY��~h <]	4L455C4gname
		gtmp				C��h(;]	45$O@63gstx
		'gtmp		'		'C58RCZgm
		+giface
	2�giface
�Igiface
P�giface
�igiface
p�giface
�giface
�giface
 �giface
�9
gfilenamefrnrs/records/syntactic.scm�		
���	!	���	#	��K	%	��		'	��	�	)	��
�	+	���	A	��O	D	��]	L	��	*R
C6rnrs/records/inspection.go000064400000012223150536206120011673 0ustar00GOOF----LE-8-2.0{]_4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	grecords�	g
inspection�		�	
gfilenameS�	frnrs/records/inspection.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	g
arithmetic�	gbitwise�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	 �	!gbase�	"!�	#g
procedural�	$#�	%gonly�	&g
struct-ref�	'g
struct-vtable�	(gvtable-index-layout�	)g@@�	*%&'()�	+gmodule-export!�	,+�	-+�	.grecord-field-mutable?�	/grecord-type-field-names�	0grecord-type-opaque?�	1grecord-type-sealed?�	2grecord-type-generative?�	3grecord-type-uid�	4grecord-type-parent�	5g
record-rtd�	6./012345�	7gmodule-re-export!�	87�	97�	:gmodule-replace!�	;:�	<:�	=grecord-type-name�	>grecord?�	?=>�	@#�	Agrecord-internal?�	B@A�	C@A�	Dgrtd-index-name�	E@D�	F@D�	Ggrtd-index-parent�	H@G�	I@G�	Jg
rtd-index-uid�	K@J�	L@J�	Mgrtd-index-sealed?�	N@M�	O@M�	Pgrtd-index-opaque?�	Q@P�	R@P�	Sgrtd-index-field-names�	T@S�	U@S�	Vgrtd-index-field-bit-field�	W@V�	X@V�	Ygassertion-violation�	Zfnot a record�	[grecord-type-descriptor?�	\fnot a record type descriptor�	]g
guarantee-rtd�	^gbitwise-bit-set?�C5hY]4	

54>"G454 hM]45L6Egfilenamefrnrs/records/inspection.scm�
	
��		
CO>"G4"54 hM]45L6Egfilenamefrnrs/records/inspection.scm�
	
��		
CO>"G4$54 hM]45L6Egfilenamefrnrs/records/inspection.scm�
	
��		
CO>"G4*54 hM]45L6Egfilenamefrnrs/records/inspection.scm�
	
��		
CO>"G4- 6hM]456Egfilenamefrnrs/records/inspection.scm�
	
��		
C>"G49 hM]456Egfilenamefrnrs/records/inspection.scm�
	
��		
C>"G4< ?hM]456Egfilenamefrnrs/records/inspection.scm�
	
��		
C>"GCARFDRIGRLJROMRRPRUSRXVRA0h t]45$
4�5�CClgobj
		gfilenamefrnrs/records/inspection.scm�
	/	��		gnamegrecord?�C>RAPY5Zh@�]	45$��$""$C6�grecord
		?grtd		%gt	*	?gfilenamefrnrs/records/inspection.scm�
	3	��	;	7	)��		?gnameg
record-rtd�C5R[Y\h �]45$C6�gwho
		grtd		gfilenamefrnrs/records/inspection.scm�
	9	��		<	!��			gnameg
guarantee-rtd�C]R]=Dh}]45�Cugrtd
		gfilenamefrnrs/records/inspection.scm�
	>	��		gnamegrecord-type-name�C=R]4Gh]45�Cwgrtd
		gfilenamefrnrs/records/inspection.scm�
	@	��		gnamegrecord-type-parent�C4R]3Jh|]45�Ctgrtd
		gfilenamefrnrs/records/inspection.scm�
	B	��		gnamegrecord-type-uid�C3R3]2h�]4455�C|grtd
		gfilenamefrnrs/records/inspection.scm�
	D	��		gnamegrecord-type-generative?�C2R]1Mh�]45�Cxgrtd
		gfilenamefrnrs/records/inspection.scm�
	F	��		gnamegrecord-type-sealed?�C1R]0Ph�]45�Cxgrtd
		gfilenamefrnrs/records/inspection.scm�
	H	��		gnamegrecord-type-opaque?�C0R]/Sh�]45�C|grtd
		gfilenamefrnrs/records/inspection.scm�
	J	��		gnamegrecord-type-field-names�C/R^].Vh�]45�6�grtd
		gk		gfilenamefrnrs/records/inspection.scm�
	L	��			gnamegrecord-field-mutable?�C.RCQgm
		+giface
	2�giface
�Jgiface
Q�giface
�jgfilenamefrnrs/records/inspection.scm�		
���	#	���	%	���	&	���	'	��	(	��	)	��
	*	��	,	���	/	���	3	���	9	��0	>	���	@	��	B	��	7	D	��	�	F	��
�	H	��7	J	���	L	��	�
C6rnrs/records/procedural.go000064400000024303150536206120011662 0ustar00GOOF----LE-8-2.0�(]�4h�
]gguile�	�	gdefine-module*�	�	�	grnrs�	grecords�	g
procedural�		�	
gfilenameS�	frnrs/records/procedural.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gbase�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	�	 gonly�	!gcons*�	"glogand�	#glogior�	$gash�	%gand=>�	&gthrow�	'gdisplay�	(gmake-struct�	)gmake-vtable�	*gmap�	+g
simple-format�	,g
string-append�	-g
symbol-append�	.gstruct?�	/g
struct-layout�	0g
struct-ref�	1gstruct-set!�	2g
struct-vtable�	3gvtable-index-layout�	4gmake-hash-table�	5g	hashq-ref�	6g
hashq-set!�	7gvector->list�	8 !"#$%&'()*+,-./01234567�	9gice-9�	:greceive�	;9:�	<gsrfi�	=g:1�	><=�	?gfold�	@gsplit-at�	Agtake�	B >?@A�	Cgmodule-export!�	DC�	EC�	Fgrecord-mutator�	Gg"make-record-constructor-descriptor�	Hgrecord-type-descriptor?�	Igmake-record-type-descriptor�	JFGHI�	Kgmodule-re-export!�	LK�	MK�	Ngmodule-replace!�	ON�	PN�	Qgrecord-accessor�	Rgrecord-predicate�	Sgrecord-constructor�	TQRS�	Ugrecord-internal?�	Vgrtd-index-name�	Wg
rtd-index-uid�	Xgrtd-index-parent�	Ygrtd-index-sealed?�	Zgrtd-index-opaque?�	[grtd-index-predicate�	\grtd-index-field-names�	]grtd-index-field-bit-field�	^grtd-index-field-binder�	_grctd-index-rtd�	`grctd-index-parent�	agrctd-index-protocol�	bgsymbol->string�	cf�	dgvtable-base-layout�	efprprprprprprprprprpr�	ff#<r6rs:record-type:~A>�	ggrecord-type-vtable�	hfprprpr�	if#<r6rs:record-constructor:~A>�	jgrecord-constructor-vtable�	kg	uid-table�	lg	immutable�	mgpr�	ngmutable�	ogpw�	pg
r6rs-raise�	qgmake-assertion-violation�	rglist->vector�	sgcadr�	tf#<r6rs:record:~A>�	ug
vector-length�	vglength�	wg
&condition�	x�	yg!&condition-constructor-descriptor�	zg&serious�	{g&serious-constructor-descriptor�	|gmake-serious-condition�	}g
&violation�	~g!&violation-constructor-descriptor�	gmake-violation��g
&assertion��g&raise-object-wrapper��gobj��l���gcontinuation��l�������gmake-raise-object-wrapper��graise-object-wrapper?��graise-object-wrapper-obj��g!raise-object-wrapper-continuation��gr6rs:exception��gr6rs-raise-continuable�C5h�Q]4	

54>"G454hM]45L6Egfilenamefrnrs/records/procedural.scm�
	
��		
CO>"G4854hM]45L6Egfilenamefrnrs/records/procedural.scm�
	
��		
CO>"G4;54hM]45L6Egfilenamefrnrs/records/procedural.scm�
	
��		
CO>"G4B54hM]45L6Egfilenamefrnrs/records/procedural.scm�
	
��		
CO>"G4EJhM]456Egfilenamefrnrs/records/procedural.scm�
	
��		
C>"G4MhM]456Egfilenamefrnrs/records/procedural.scm�
	
��		
C>"G4PThM]456Egfilenamefrnrs/records/procedural.scm�
	
��		
C>"GHh}]�$�6Cugobj
		gfilenamefrnrs/records/procedural.scm�
	<	��		gnamegrecord-internal?�CUR	VR		WR	
XR	YR	ZR	
[R	\R	]R	^R
_R`R	aR4bi4/i4)ic555dR4)i4,idie5+fVhs]�6kgobj
		gport		gfilenamefrnrs/records/procedural.scm�		R	'��			C5gR4)ih+i_Vhs]��6kgobj
		gport		gfilenamefrnrs/records/procedural.scm�		X	'��			C5jR44i5kRU%h0^]	45$�M�$C
�L6CVgobj
		*gt		(		*gnamegprivate-record-predicate�Cl-mnopq7r*sY5kZVX\]g+tht]L6lgobj
		gport		gfilenamefrnrs/records/procedural.scm�	�	*��			C(ha-13M
@Yg
parent-struct
			gargs						
gnamegfield-binder�C6h�_]^H
H	HHHO
Q"w(	
�"���$�4
5�
"����$"�4
5���
"���4455"4	5


"��rKJ�KJ�K4
44	555K	K
$&
�$445>"G""$
45"$"$	�"
$A
J	J��
�����$C456JO
J	J
O�K
$4>"G"CWgname
	�gparent	�guid		�gsealed?		�gopaque?		�gfields		�gfields-pair		�g
fields-layout		�gfields-bit-field		�gfield-names			�glate-rtd	
	�gprivate-record-predicate		�g
field-list		%�g
layout-sym	
	%�glayout-bit-field		%�gcounter		%�gkey		8�gmatching-rtd	3�gopaque?	
3�grtd	��gfilenamefrnrs/records/procedural.scm�
	^	��	�	gnamegmake-record-type-descriptor�CIRgh�]�$��CC}gobj
		gfilenamefrnrs/records/procedural.scm�
�	��		gnamegrecord-type-descriptor?�CHRu\X%Gh)]L6!gd
		
		
Cj@vh8d-13445M�>G4L?@\gargs
			4gn-args		4gp-args			4gp		,	4			4


ChP]LOCHgn
				gnamegdefault-inherited-protocol�ChF]C>gp
				gnamegdefault-protocol�C	h`]H4�5K�$"4O5$"$O"�Cgrtd
		]gparent-constructor-descriptor		]gprotocol			]g	rtd-arity			]gprtd			]gpcd		2	]gfilenamefrnrs/records/procedural.scm�
�	��		]	gnameg"make-record-constructor-descriptor�CGR_`aS^h.-13L�L@&gargs
						


Ch A-134L?LOC9gargs
			gstruct					


C^h.-13L�@&gargs
						


ChH�]!���$45�O"O6�grctd
		Ggrtd		Ggparent-rctd			Ggprotocol			Ggparent-record-constructor		&	:gfilenamefrnrs/records/procedural.scm�
�	��		Ggnamegrecord-constructor�CSR[h~]�Cvgrtd
		gfilenamefrnrs/records/procedural.scm�
�	��		gnamegrecord-predicate�CRR%h M]�L&L��C
�L6Egobj
				gnamegrecord-accessor-inner�CUpq%h@+]45$"445>"G�L&L��C
�L6#gobj
		@		@Ch(�]
OQOC�grtd
		!gk		!grecord-accessor-inner			!gfilenamefrnrs/records/procedural.scm�
�	��		!	gnamegrecord-accessor�CQRh@l]
$/�L&L��"$C
�"���Cdgobj
		9gval		9gt			7		9	gnamegrecord-mutator-inner�C]pqh<]L64gobj
		
gval		
		
	ChP�]OQ���
�$445>"G"OC�grtd
		Mgk		Mgrecord-mutator-inner			Mg	bit-field			Egfilenamefrnrs/records/procedural.scm�
�	��		M	gnamegrecord-mutator�CFR4Iiwx5wR4Giwi5yR4Iizwix5zR4Giziyi5{R4Si{i5|R4Ii}zix5}R4Gi}i{i5~R4Si~i5R4Ii�}ix5�R4Si4Gi�i~i55qR4Ii��5�R4Si4Gi�i55�R4Ri�i5�R4Qi�i
5�R4Qi�i5�R&��hx]456pgobj
		gfilenamefrnrs/records/procedural.scm�
	��		gnameg
r6rs-raise�CpR&��h`]4L56Xgcontinuation
				gnamegr6rs-raise-continuable-internal�Ch�]OB|gobj
		
gfilenamefrnrs/records/procedural.scm�
	��		
gnamegr6rs-raise-continuable�C�RCIgm
		+giface
	2�giface
�Jgiface
Q�giface
�jgfilenamefrnrs/records/procedural.scm�		
���	<	���	?	���	@	���	A	���	B	���	C	���	D	���	E	���	F	���	G	���	I	���	J	���	K	���	M	I���	M	���	P	3���	O	���	V	��P	U	��Z	\	���	^	��
@�	����	����	����	����	����	����	����	����	���	���	��4�	��G�	��U	��j	���	���	���	���	���	���	��{	���	��.	�
C6rnrs/eval.go000064400000004713150536206120007013 0ustar00GOOF----LE-8-2.0�	]94ht]gguile�	�	gdefine-module*�	�	�	grnrs�	geval�	�		gfilenameS�	
f
rnrs/eval.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gmake-module�	gmodule-uses�	gbeautify-user-module!�	gset-module-uses!�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	 gcurrent-module�	! �	" �	#gbase�	$#
�	%gio�	&gsimple�	'%&
�	(glists�	)(
�	*gmodule-export!�	+*�	,*�	-genvironment�	.-�	/gmodule-re-export!�	0/�	1/�	2�	3gmodule-replace!�	43�	53�	6gmember�	7gfor-each�	8gimport�C5h0�]4	

54>"G454"h?]45L67gfilenamef
rnrs/eval.scm�
	
��		
CO>"G4$54"h?]45L67gfilenamef
rnrs/eval.scm�
	
��		
CO>"G4'54"h?]45L67gfilenamef
rnrs/eval.scm�
	
��		
CO>"G4)54"h?]45L67gfilenamef
rnrs/eval.scm�
	
��		
CO>"G4,".h?]4567gfilenamef
rnrs/eval.scm�
	
��		
C>"G41"2h?]4567gfilenamef
rnrs/eval.scm�
	
��		
C>"G45"h?]4567gfilenamef
rnrs/eval.scm�
	
��		
C>"G678h3]L6+gimport-spec
				C	hp�-134545�4>"G4O>"G$445�>"G"C�gimport-specs
			ngmodule		ng
needs-purify?			ngfilenamef
rnrs/eval.scm�
		��			n


gnamegenvironment�C-RC�gm
		+giface
	2�giface
�4giface
;�giface
�Dgfilenamef
rnrs/eval.scm�		
��.		��	0
C6rnrs/io/simple.go000064400000014771150536206120007771 0ustar00GOOF----LE-8-2.0�]�4h/]gguile�	�	gdefine-module*�	�	�	grnrs�	gio�	gsimple�		�	
gfilenameS�	frnrs/io/simple.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gports�	�	gcall-with-port�	g
close-port�	gopen-file-input-port�	gopen-file-output-port�	g
eof-object�	geof-object?�	gfile-options�	gbuffer-mode�	 gnative-transcoder�	!gget-char�	"glookahead-char�	#g	get-datum�	$gput-char�	%g	put-datum�	&ginput-port?�	'goutput-port?�	( !"#$%&'�	)gcall-with-deferred-observers�	*)�	+)�	,gmodule-use-interfaces!�	-,�	.,�	/gcurrent-module�	0/�	1/�	2g@@�	3gcurrent-input-port�	4gcurrent-output-port�	5gcurrent-error-port�	6gdefine*�	7gwith-input-from-port�	8gwith-output-to-port�	92345678	�	:gbase�	;:�	<gfiles�	=<�	>gmodule-export!�	?>�	@>�	Agmodule-re-export!�	BA�	CA�	Dgi/o-error-port�	Egi/o-port-error?�	Fgmake-i/o-port-error�	Gg	&i/o-port�	Hgi/o-file-does-not-exist-error?�	Ig"make-i/o-file-does-not-exist-error�	Jg&i/o-file-does-not-exist�	Kgi/o-file-already-exists-error?�	Lg"make-i/o-file-already-exists-error�	Mg&i/o-file-already-exists�	Ngi/o-file-is-read-only-error?�	Og make-i/o-file-is-read-only-error�	Pg&i/o-file-is-read-only�	Qgi/o-file-protection-error?�	Rgmake-i/o-file-protection-error�	Sg&i/o-file-protection�	Tgi/o-error-filename�	Ugi/o-filename-error?�	Vgmake-i/o-filename-error�	Wg
&i/o-filename�	Xgi/o-error-position�	Ygi/o-invalid-position-error?�	Zgmake-i/o-invalid-position-error�	[g&i/o-invalid-position�	\gi/o-write-error?�	]gmake-i/o-write-error�	^g
&i/o-write�	_gi/o-read-error?�	`gmake-i/o-read-error�	ag	&i/o-read�	bg
i/o-error?�	cgmake-i/o-error�	dg&i/o�	eDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd543'&(�	fgmodule-replace!�	gf�	hf�	igwrite�	jgdisplay�	kgnewline�	lg
write-char�	mgread�	ng	peek-char�	og	read-char�	pgclose-output-port�	qgclose-input-port�	rgopen-output-file�	sgopen-input-file�	tgwith-output-to-file�	ugwith-input-from-file�	vgcall-with-output-file�	wgcall-with-input-file�	xijklmnopqrstuvw�	yj�	zj�	{genums�	|{�	}genum-set-constructor�	~|}�	|}��gmake-enumeration��|���|���g	no-create��gno-fail��gno-truncate�������gblock�C5h�7]4	

54>"G4(54+.1hD]45L6<gfilenamefrnrs/io/simple.scm�
	
��		
CO>"G4954+.1hD]45L6<gfilenamefrnrs/io/simple.scm�
	
��		
CO>"G4;54+.1hD]45L6<gfilenamefrnrs/io/simple.scm�
	
��		
CO>"G4=54+.1hD]45L6<gfilenamefrnrs/io/simple.scm�
	
��		
CO>"G4+@1hD]456<gfilenamefrnrs/io/simple.scm�
	
��		
C>"G4+C1ehD]456<gfilenamefrnrs/io/simple.scm�
	
��		
C>"G4+h1xhD]456<gfilenamefrnrs/io/simple.scm�
	
��		
C>"GzjRh�]456�gfilename
		gproc		gfilenamefrnrs/io/simple.scm�
	w	��			gnamegcall-with-input-file�CwRh�]456�gfilename
		gproc		gfilenamefrnrs/io/simple.scm�
	z	��			gnamegcall-with-output-file�CvRw7h,]L6$gport
		
		
Ch�]O6�gfilename
		gthunk		gfilenamefrnrs/io/simple.scm�
	}	��			gnamegwith-input-from-file�CuRv8h,]L6$gport
		
		
Ch�]O6�gfilename
		gthunk		gfilenamefrnrs/io/simple.scm�
�	��			gnamegwith-output-to-file�CtR��� h y]444555456qgfilename
		gfilenamefrnrs/io/simple.scm�
�	��		gnamegopen-input-file�CsR��� h z]444555456rgfilename
		gfilenamefrnrs/io/simple.scm�
�	��		gnamegopen-output-file�CrRiqRipR3!h p-.,3#456hgport
		gfilenamefrnrs/io/simple.scm�
�	��		
gnameg	read-char�CoR3"h p-.,3#456hgport
		gfilenamefrnrs/io/simple.scm�
�	��		
gnameg	peek-char�CnR3#h k-.,3#456cgport
		gfilenamefrnrs/io/simple.scm�
�	��		
gnamegread�CmR4$h(�-.,3#456zgchar
		!gport		!gfilenamefrnrs/io/simple.scm�
�	��		!gnameg
write-char�ClR4$h(n-.,3#45
6fgport
		!gfilenamefrnrs/io/simple.scm�
�	��		!
gnamegnewline�CkR4%h(-.,3#456wgobject
		!gport		!gfilenamefrnrs/io/simple.scm�
�	��		!gnamegwrite�CiRC/gm
		+giface
	2�giface
�9giface
@�giface
�Igfilenamefrnrs/io/simple.scm�		
���	u	��j	w	��#	z	��#	}	��#�	����	����	����	����	��	K�	��	��	��
��	��U�	���	����	��	�
C6rnrs/io/ports.go000064400000112030150536206120007632 0ustar00GOOF----LE-8-2.0�]�4h4]gguile�	�	gdefine-module*�	�	�	grnrs�	gio�	gports�		�	
gfilenameS�	frnrs/io/ports.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gice-9�	gbinary-ports�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	 �	!gonly�	"gbase�	#"�	$gassertion-violation�	%!#$�	&genums�	'&�	(grecords�	)g	syntactic�	*()�	+g
exceptions�	,+�	-g
conditions�	.-�	/gfiles�	0/�	1gsrfi�	2gsrfi-8�	312�	4grdelim�	54�	6gexcept�	7graise�	8gdisplay�	9678�	:gprefix�	;!8�	<gguile:�	=:;<�	>gmodule-export!�	?>�	@>�	Agi/o-encoding-error-char�	Bgmake-i/o-encoding-error�	Cgi/o-encoding-error?�	Dg&i/o-encoding-error�	Egmake-i/o-decoding-error�	Fgi/o-decoding-error?�	Gg&i/o-decoding-error�	Hgstandard-error-port�	Igstandard-output-port�	Jgstandard-input-port�	Kg
put-string�	Lg	put-datum�	Mgput-char�	Nglookahead-char�	Ogget-string-n�	Pgget-string-all�	Qgget-line�	Rg	get-datum�	Sgget-char�	Tgopen-file-input/output-port�	Ugflush-output-port�	Vgmake-custom-textual-output-port�	Wgcall-with-string-output-port�	Xg call-with-bytevector-output-port�	Ygopen-file-output-port�	Zgopen-string-output-port�	[gopen-file-input-port�	\gopen-string-input-port�	]gcall-with-port�	^gport-has-set-port-position!?�	_gport-has-port-position?�	`gset-port-position!�	ag
port-position�	bgtranscoded-port�	cg
textual-port?�	dgbinary-port?�	egport-transcoder�	fg	port-eof?�	ggutf-16-codec�	hgutf-8-codec�	ig
latin-1-codec�	jgnative-transcoder�	kgtranscoder-error-handling-mode�	lgtranscoder-eol-style�	mgtranscoder-codec�	ngmake-transcoder�	ogerror-handling-mode�	pgnative-eol-style�	qg	eol-style�	rgbuffer-mode?�	sgbuffer-mode�	tgfile-options�	uABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst4�	vgmodule-re-export!�	wv�	xv�	ygi/o-error-port�	zgmake-i/o-port-error�	{gi/o-port-error?�	|g	&i/o-port�	}g"make-i/o-file-does-not-exist-error�	~gi/o-file-does-not-exist-error?�	g&i/o-file-does-not-exist��g"make-i/o-file-already-exists-error��gi/o-file-already-exists-error?��g&i/o-file-already-exists��g make-i/o-file-is-read-only-error��gi/o-file-is-read-only-error?��g&i/o-file-is-read-only��gmake-i/o-file-protection-error��gi/o-file-protection-error?��g&i/o-file-protection��gi/o-error-filename��gmake-i/o-filename-error��gi/o-filename-error?��g
&i/o-filename��gmake-i/o-invalid-position-error��gi/o-invalid-position-error?��g&i/o-invalid-position��gmake-i/o-write-error��gi/o-write-error?��g
&i/o-write��gmake-i/o-read-error��gi/o-read-error?��g	&i/o-read��gmake-i/o-error��g
i/o-error?��g&i/o��gcurrent-error-port��gcurrent-output-port��gcurrent-input-port��g
get-string-n!��gput-bytevector��gput-u8��gmake-custom-binary-output-port��gopen-bytevector-output-port��gget-bytevector-all��gget-bytevector-some��gget-bytevector-n!��gget-bytevector-n��glookahead-u8��gget-u8��gmake-custom-binary-input-port��gopen-bytevector-input-port��g
close-port��goutput-port?��ginput-port?��gport?��geof-object?��g
eof-object��yz{|}~�����������������������������������������������6��gmodule-replace!��������gmake-syntax-transformer��������gfile-option��gmacro��g$sc-dispatch��������gany������g
syntax->datum��'���'���g	no-create��gno-fail��gno-truncate��g
syntax-object��gquote��gm-d35b14d-24��gtop������gribcage��gsym�������������fl-d35b14d-29��fl-d35b14d-2a���������������gs��������fl-d35b14d-26�����������gshift��gdummy��g	type-name��gsymbol��gconstructor-syntax��������gm-bfa5881-18������������fl-bfa5881-1d��fl-bfa5881-1e��fl-bfa5881-1f��fl-bfa5881-20��������������gx��������fl-bfa5881-1a���������������������gprivate���&��������gsyntax-violation��'���'���gsymbol->string��'���'���fnot a member of the set��������f-source expression failed to match any pattern��g_��geach-any�������g
datum->syntax��'��'������gevery�'�'�gmemq�fnot a subset of the universe�genum-set-constructor�gt-d35b14d-43�	gt-d35b14d-44�
	�gm-d35b14d-45���
�fl-d35b14d-49�fl-d35b14d-4a���

�gquoted-syms��fl-d35b14d-3b�����gquoted-universe��fl-d35b14d-39�����gsyms��fl-d35b14d-36�� ���!guniverse�"!�#fl-d35b14d-34�$#�%�"�$�&��'fl-d35b14d-31�('�)�&�(�*fl-d35b14d-2e�+*�,���+�-������ �%)�,�����.�-��/gmake-enumeration�0�/-��1gnone�2gline�3gblock�4gm-d35b14d-4d�54��6s��7�5�8fl-d35b14d-52�9fl-d35b14d-53�:89�;�67:�<5�=fl-d35b14d-4f�>=�?��<>�@5;�?�����A��@��Bgbuffer-modes�C123�Dgt-d35b14d-6c�Egt-d35b14d-6d�FDE�Ggm-d35b14d-6e�HG��IHH�Jfl-d35b14d-72�Kfl-d35b14d-73�LJK�M�FIL�Nfl-d35b14d-64�ON�P�<O�Qfl-d35b14d-62�RQ�S�<R�Tfl-d35b14d-5f�UT�V�<U�Wfl-d35b14d-5d�XW�Y�"<X�Zfl-d35b14d-5a�[Z�\�&<[�]fl-d35b14d-57�^]�_��<^�`5�M��P�S�V�Y\�_�����a�`��b�/`��cgenum-set-member?�dgenum-set-universe�e'�f'�g'/�h'/�iglf�jgcr�kgcrlf�lgnel�mgcrnel�ngls�ogm-d35b14d-76�po��qq��r�p�sfl-d35b14d-7b�tfl-d35b14d-7c�ust�v�qru�wp�xfl-d35b14d-78�yx�z��wy�{pv�z�����|��{��}g
eol-styles�~ijklmn1�gt-d35b14d-95��gt-d35b14d-96�����gm-d35b14d-97����������fl-d35b14d-9b��fl-d35b14d-9c������������fl-d35b14d-8d������w���fl-d35b14d-8b������w���fl-d35b14d-88������w���fl-d35b14d-86������"w���fl-d35b14d-83������&w���fl-d35b14d-80�������w���p��������������������������/����gignore��greplace��gm-d35b14d-9f������o�������fl-d35b14d-a4��fl-d35b14d-a5���������������fl-d35b14d-a1���������������������������gerror-handling-modes���7���gt-d35b14d-be��gt-d35b14d-bf������gm-d35b14d-c0����������fl-d35b14d-c4��fl-d35b14d-c5������������fl-d35b14d-b6����������fl-d35b14d-b4����������fl-d35b14d-b1����������fl-d35b14d-af������"����fl-d35b14d-ac������&����fl-d35b14d-a9��������������������������������������/����gmake-record-type-descriptor��*���*���g
transcoder��g	immutable��gcodec�������q���o�������grecord-constructor��*���*���g"make-record-constructor-descriptor��*���*���g%make-transcoder��gregister-record-type��*���*���grecord-predicate��*���*���gtranscoder?��grecord-accessor��*���*���g%default-port-encoding��f
ISO-8859-1��fUTF-8��fUTF-16��gwith-throw-handler��gsystem-error��gsystem-error-errno��gEACCES��gEEXIST��gENOENT��gEROFS��gwith-i/o-filename-conditions��gmemv��gEIO��gEFBIG��gENOSPC��gEPIPE��g	condition��gthrow��gwith-i/o-port-error��gwith-textual-output-conditions�������������gport�gbody0�gbody���gm-d35b14d-cb�������	fl-d35b14d-d0�
fl-d35b14d-d1�fl-d35b14d-d2�fl-d35b14d-d3�
	
��
��fl-d35b14d-cd����������������glambda���gwith-i/o-encoding-error���gwith-textual-input-conditions�gm-d35b14d-d9�������fl-d35b14d-de� fl-d35b14d-df�!fl-d35b14d-e0�"fl-d35b14d-e1�# !"�$�#�%�&fl-d35b14d-db�'&�(��%'�)�$�(�*��)�+��)�,�)�-gwith-i/o-decoding-error�.�-)�/g
port-encoding�0gport-conversion-strategy�1gerror�2g
substitute�3funsupported error handling mode�4g%make-transcoded-port�54�64�7gset-port-encoding!�8gset-port-conversion-strategy!�9gseek�:gSEEK_CUR�;gSEEK_SET�<gcatch�=<�><�?gopen-input-string�@gopen�Ag	r6rs-open�BgO_CREAT�CgO_TRUNC�DgO_EXCL�Egfile-options->mode�FgO_RDONLY�GgO_RDWR�Hgopen-output-string�Igget-output-string�JgO_WRONLY�Kgmake-soft-port�Lgstring�Mg
string-length�Nfw�Ogforce-output�P.��Q.��Rg
&i/o-encoding�Sglist->vector�T.S�U.S�Vgchar�W�VA�X.��Y.��Z.��[.��\gcondition-predicate�].\�^.\�_gcondition-accessor�`._�a._�b.��c.��d��eg
m-d35b14d-114�fe��gf��hf
l-d35b14d-119�if
l-d35b14d-11a�jhi�k�dgj�lf�mf
l-d35b14d-116�nm�o��ln�p�k�o�q��p�r��p�sgencoding-error�t�sp�urt�v�p�wgbegin�x�wp�ygkey�z�yp�{gsubr�|�{p�}gmessage�~�}p�gerrno���p���p��gchr����p��z|~������7p���Bp�����������v�������g
write-char��gwrite��gstring?��gsubstring/shared��fexpected string��g
guile:display��g
&i/o-decoding��g
m-d35b14d-148����������f
l-d35b14d-14d��f
l-d35b14d-14e�������d�������f
l-d35b14d-14a���������������������������gdecoding-error����������������w����y����{����}�������������������7����E�������������������g	read-char��gread��g	read-line��gtrim��gread-string��gmake-string��g	peek-char��gdup->inport��gdup->outport�C5h@Z�]4	

54>"G454 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4%54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4'54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4*54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4,54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4.54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4054 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4354 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4554 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4954 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4=54 hC]45L6;gfilenamefrnrs/io/ports.scm�
	
��		
CO>"G4@ uhC]456;gfilenamefrnrs/io/ports.scm�
	
��		
C>"G4x �hC]456;gfilenamefrnrs/io/ports.scm�
	
��		
C>"G4� hC]456;gfilenamefrnrs/io/ports.scm�
	
��		
C>"G4��������������
hH~]
45&"&"�$C45	6vgfile-option
		Ggsym		Ggt				-gfilenamefrnrs/io/ports.scm�		}
��		G	C��h(c]	45$@6[gs
		"gtmp		"gfilenamefrnrs/io/ports.scm�
	}
��		"C5�R4�t�����hS]6Kgx
		
gfilenamefrnrs/io/ports.scm�
	}
��		
C��t��.0hN]CFgt-d35b14d-43
		gt-d35b14d-44					C��h��])454L54L545$"44	5
>"G45$
@6�gsym
	�gsyms		�gquoted-universe		�gquoted-syms		)�gt		4	]gtmp		d�gtmp		o�gfilenamefrnrs/io/ports.scm�		}
��	�C��h(c]	45$O@6[gs
		'gtmp		'gfilenamefrnrs/io/ports.scm�
	}
��		'C5tR4�s����123A��s�
hH]
45&"&"�$C45	6wgbuffer-mode
		Ggsym		Ggt				-gfilenamefrnrs/io/ports.scm�	�
��		G	C��h(d]	45$@6\gs
		"gtmp		"gfilenamefrnrs/io/ports.scm�
�
��		"C5sR4�B�����CChT]6Lgx
		
gfilenamefrnrs/io/ports.scm�
�
��		
C��B��abhN]CFgt-d35b14d-6c
		gt-d35b14d-6d					C��h��])454L54L545$"44	5
>"G45$
@6�gsym
	�gsyms		�gquoted-universe		�gquoted-syms		)�gt		4	]gtmp		d�gtmp		o�gfilenamefrnrs/io/ports.scm�	�
��	�C��h(d]	45$O@6\gs
		'gtmp		'gfilenamefrnrs/io/ports.scm�
�
��		'C5BRcdfhCh r]444455556jgsymbol
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegbuffer-mode?�CrR4�q����ijklmn1|��q�h�}]
45&"F&"9&",&"&"&"�$	C
45
6ug	eol-style
		{gsym		{gt				agfilenamefrnrs/io/ports.scm�	�
��		{	C��h(d]	45$@6\gs
		"gtmp		"gfilenamefrnrs/io/ports.scm�
�
��		"C5qR4�}�����~~hT]6Lgx
		
gfilenamefrnrs/io/ports.scm�
�
��		
C��}����hN]CFgt-d35b14d-95
		gt-d35b14d-96					C��h��])454L54L545$"44	5
>"G45$
@6�gsym
	�gsyms		�gquoted-universe		�gquoted-syms		)�gt		4	]gtmp		d�gtmp		o�gfilenamefrnrs/io/ports.scm�	�
��	�C��h(d]	45$O@6\gs
		'gtmp		'gfilenamefrnrs/io/ports.scm�
�
��		'C5}R1ha]CYgfilenamefrnrs/io/ports.scm�
�
��		
gnamegnative-eol-style�CpR4�o�����7����o�
hH�]
45&"&"�$C45	6gerror-handling-mode
		Ggsym		Ggt				-gfilenamefrnrs/io/ports.scm�	�
��		G	C��h(d]	45$@6\gs
		"gtmp		"gfilenamefrnrs/io/ports.scm�
�
��		"C5oR4���������hT]6Lgx
		
gfilenamefrnrs/io/ports.scm�
�
��		
C�������hN]CFgt-d35b14d-be
		gt-d35b14d-bf					C��h��])454L54L545$"44	5
>"G45$
@6�gsym
	�gsyms		�gquoted-universe		�gquoted-syms		)�gt		4	]gtmp		d�gtmp		o�gfilenamefrnrs/io/ports.scm�	�
��	�C��h(d]	45$O@6\gs
		'gtmp		'gfilenamefrnrs/io/ports.scm�
�
��		'C5�R4���5�R4�4��i55�R4���i4��i5>"G��R4��i5�R4��i	5kR4��i5lR4��i
5mRp��h0�-.,3#45#6�gcodec
		-g	eol-style		-g
handling-mode			-gfilenamefrnrs/io/ports.scm�
�
��		-	gnamegmake-transcoder�CnRn�ih r][$"456jgt
		gfilenamefrnrs/io/ports.scm�
�
��		
gnamegnative-transcoder�CjR�hg]C_gfilenamefrnrs/io/ports.scm�
�
��	�	��		
gnameg
latin-1-codec�CiR�he]C]gfilenamefrnrs/io/ports.scm�
�
��	�	��		
gnamegutf-8-codec�ChR�hf]C^gfilenamefrnrs/io/ports.scm�
�
��	�	��		
gnamegutf-16-codec�CgR��������}���7h`a-1345�$"/�$" �$"�$	"
4L56Ygargs
			]gerrno		]gconstruct-condition		P	]			]


Ch�]O6�gfilename
		gthunk		gfilenamefrnrs/io/ports.scm�
�
��			gnamegwith-i/o-filename-conditions�C�R��������7�z�hH@-134545$44L54	L556
@8gargs
			Cgerrno		C			C


Ch�]O6�gport
		gmake-primary-condition		gthunk			gfilenamefrnrs/io/ports.scm�
�
��			gnamegwith-i/o-port-error�C�R4����h d]��C\gdummy
		gport		gbody0			gbody						C��h(�]	45$@6�gx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgportgbody0gbodyg...C5�R4���*+,.h d]��C\gdummy
		gport		gbody0			gbody						C��h(�]	45$@6�gx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgportgbody0gbodyg...C5R/np0172�$e3hX]45$>4545�$"�$"	4	
56C
gport
		Qgt			Qgkey		!	Mgfilenamefrnrs/io/ports.scm�
�
��	H�	'��		Qgnamegport-transcoder�g
documentationfdReturn the transcoder object associated with @var{port}, or @code{#f}
if the port has no transcoder.�CeR/h�]45�C�gport
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegbinary-port?�g
documentationfZReturns @code{#t} if @var{port} does not have an associated encoding,
@code{#f} otherwise.�CdRh�]C�gport
		gfilenamefrnrs/io/ports.scm�
�
��		gnameg
textual-port?�g
documentationfLAlways returns @code{#t}, as all ports can be used for textual I/O in
Guile.�CcR�d�Nh(m]45$45"456egport
		#gfilenamefrnrs/io/ports.scm�
�
��		#gnameg	port-eof?�CfR67mk781�213h�r]45445>"G45�$4>"G":�$4	>"G"4
45>"GCjgport
	�g
transcoder	�gresult			�gkey		+�gfilenamefrnrs/io/ports.scm�
�
��	t	��	�	gnamegtranscoded-port�g
documentationf�Return a new textual port based on @var{port}, using
@var{transcoder} to encode and decode data written to or
read from its underlying binary port @var{port}.�CbR9:h�]
6�gport
		gfilenamefrnrs/io/ports.scm�

��		gnameg
port-position�g
documentationfjReturn the offset (an integer) indicating where the next octet will be
read from/written to in @var{port}.�CaR9;h�]6�gport
		goffset		gfilenamefrnrs/io/ports.scm�

��			gnamegset-port-position!�g
documentationfNSet the position where the next octet will be read from/written to
@var{port}.�C`R>ah]L6		
Ch.-13C&gargs
						


Ch �]4O5$CC�gport
		gfilenamefrnrs/io/ports.scm�

��		gnamegport-has-port-position?�g
documentationf=Return @code{#t} is @var{port} supports @code{port-position}.�C_R>`ah]L4L56		
Ch.-13C&gargs
						


Ch �]4O5$CC�gport
		gfilenamefrnrs/io/ports.scm�

��		gnamegport-has-set-port-position!?�g
documentationfBReturn @code{#t} is @var{port} supports @code{set-port-position!}.�C^R�h(+]
4>G4>"GE#gport
		(gproc		(gvals		
	(gfilenamefrnrs/io/ports.scm�
#
��		(	gnamegcall-with-port�g
documentationfCall @var{proc}, passing it @var{port} and closing @var{port} upon exit of
@var{proc}.  Return the return values of @var{proc}.�C]R�]h@�-.,3#4>G4>"G6�gproc
		?g
transcoder		?gport		 	?gextract		 	?gfilenamefrnrs/io/ports.scm�
,
��		?gnameg call-with-bytevector-output-port�CXR��?h�]Y4>ZCZF�gstr
		gfilenamefrnrs/io/ports.scm�
1
��	3	(��		gnamegopen-string-input-port�g
documentationf1Open an input port that will read from @var{str}.�C\R��@h]Y4LL>ZCZF		
C7mh@�]4O5$445>"G"C�gfilename
		:gmode		:gbuffer-mode			:g
transcoder			:gport			:gfilenamefrnrs/io/ports.scm�
6
��		:	gnameg	r6rs-open�CARc�B�C�DhH�]45$
"�45$
"�45$
"�C�gfile-options
		Dg	base-mode		Dgfilenamefrnrs/io/ports.scm�
?
��		D	gnamegfile-options->mode�CERfh3AFhH-.,3#444555##6gfilename
		Cgfile-options		Cgbuffer-mode			Cg
transcoder			Cgfilenamefrnrs/io/ports.scm�
K
��		C	gnamegopen-file-input-port�g
documentationf5Return an input port for reading from @var{filename}.�C[Rfh3AEGhP"-.,3#444555##456gfilename
		Jgfile-options		Jgbuffer-mode			Jg
transcoder			Jgfilenamefrnrs/io/ports.scm�
S
��		J	gnamegopen-file-input/output-port�g
documentationf=Return a port for reading from and writing to @var{filename}.�CTR��HIh]L6		
Ch 5]Y45ZOD-gport
		gfilenamefrnrs/io/ports.scm�
^
��	a	4��		
gnamegopen-string-output-port�g
documentationf�Return two values: an output port that will collect characters written to it
as a string, and a thunk to retrieve the characters associated with that port.�CZRfh3AEJhP-.,3#444555##456gfilename
		Jgfile-options		Jgbuffer-mode			Jgmaybe-transcoder			Jgfilenamefrnrs/io/ports.scm�
f
��		J	gnamegopen-file-output-port�g
documentationf4Return an output port for writing to @var{filename}.�CYRHIh(!]	454>"G6gproc
		!gport		!gfilenamefrnrs/io/ports.scm�
q
��		!gnamegcall-with-string-output-port�g
documentationfzCall @var{proc}, passing it a string output port. When @var{proc} returns,
return the characters accumulated in that port.�CWRKLh)]L45
6!gc
				CMh)]L
456!gs
				CNh �]OO6�gid
		gwrite!		gget-position			g
set-position!			gclose			gfilenamefrnrs/io/ports.scm�
x
��	�	��			gnamegmake-custom-textual-output-port�CVROhu]6mgport
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegflush-output-port�CUR4QR|i4UW55RR4Y4[Ri55BR4^Ri5CR4aRi4cRi
55AR4����quvx�h?]����C7gdummy
		gbody					C��h(�]	45$@6�gx
		"gtmp		"		"g
documentationfBConvert Guile throws to `encoding-error' to `&i/o-encoding-error'.�g
macro-typegsyntax-rules�gpatternsgbodyg...C5R���s�h]LL6		

C7Bh�]456�gkey
		gsubr		gmessage			gerrno			gport			gchr						Ch]LLO6		
Ch~]O6vgport
		gchar		gfilenamefrnrs/io/ports.scm�
�
��			gnamegput-char�CMR���s�h]LL6		

C7Bh�]456�gkey
		gsubr		gmessage			gerrno			gport			gchr						Ch]LLO6		
Ch�]O6xgport
		gdatum		gfilenamefrnrs/io/ports.scm�
�
��			gnameg	put-datum�CLR���s�8�M$K�hXF]4L5$>L$0L$4LLLL�5L64LL4L55L6LL6L6>gfilenamefrnrs/io/ports.scm�	Q�	+��		U
C7Bh�]456�gkey
		gsubr		gmessage			gerrno			gport			gchr						Ch]LLLLO6		
Ch8�-.,3##O6�gport
		3gs		3gstart			3gcount			3gfilenamefrnrs/io/ports.scm�
�
��		3		gnameg
put-string�CKR����s�h]LL6		

C7Bh�]456�gkey
		gsubr		gmessage			gerrno			gport			gchr						Ch]LLO6		
Ch0-.,3#45O6wgobject
		*gport		*gfilenamefrnrs/io/ports.scm�
�
��		*gnamegdisplay�C8R4Q�|i4U55�R4Y4[�i55ER4^�i5FR4�-��������h?]����C7gdummy
		gbody					C��h(�]	45$@6�gx
		"gtmp		"		"g
documentationfBConvert Guile throws to `decoding-error' to `&i/o-decoding-error'.�g
macro-typegsyntax-rules�gpatternsgbodyg...C5-R�����h]L6		
C7Ehw]456ogkey
		
gsubr		
gmessage			
gerrno			
gport			
		
	Ch]LO6		
Chl]O6dgport
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegget-char�CSR�����h]L6		
C7Ehw]456ogkey
		
gsubr		
gmessage			
gerrno			
gport			
		
	Ch]LO6		
Chm]O6egport
		gfilenamefrnrs/io/ports.scm�
�
��		gnameg	get-datum�CRR������h]L6		

C7Ehw]456ogkey
		
gsubr		
gmessage			
gerrno			
gport			
		
	Ch]LO6		
Chl]O6dgport
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegget-line�CQR�����h]L6		
C7Ehw]456ogkey
		
gsubr		
gmessage			
gerrno			
gport			
		
	Ch]LO6		
Chr]O6jgport
		gfilenamefrnrs/io/ports.scm�
�
��		gnamegget-string-all�CPR����h@�]454
545$C�$C
6gport
		<gcount		<gs				<grv			<gfilenamefrnrs/io/ports.scm�
�
��		<	gnamegget-string-n�g
documentationf�Read up to @var{count} characters from @var{port}.
If no characters could be read before encountering the end of file,
return the end-of-file object, otherwise return a string containing
the characters read.�COR�����h]L6		
C7Ehw]456ogkey
		
gsubr		
gmessage			
gerrno			
gport			
		
	Ch]LO6		
Chr]O6jgport
		gfilenamefrnrs/io/ports.scm�
�
��		gnameglookahead-char�CNR��hd]Y4
>ZCZF\gfilenamefrnrs/io/ports.scm�
�
��		
gnamegstandard-input-port�CJR��he]Y4>ZCZF]gfilenamefrnrs/io/ports.scm�
�
��		
gnamegstandard-output-port�CIR��hd]Y4	>ZCZF\gfilenamefrnrs/io/ports.scm�
�
��		
gnamegstandard-error-port�CHRC�gm
		+giface
	2�giface
�8giface
?�giface
�Hgiface
O�giface
�Xgiface
_�giface
�hgiface
o�giface
�xgiface
gfilenamefrnrs/io/ports.scm�		
����
��<�
���
����
��E�
����
��P�
����
��!��
��#�
��'��
��(��
��)��
��*P�
��,��
��-�
��.�
��09
��1�
��3>#
��4V,
��5T1
��6�6
��7�?
��9FK
��:�S
��<�^
��>f
��?tq
��A)x
��A��
��A��
��E��
��Gs�
��J�
��L�
��L�
��O��
��QX�
��S�
��T��
��V��
��Xu�
��Y�
��Y��
��Z7�
��0	Z9
C6rnrs/r5rs.go000064400000003636150536206120006762 0ustar00GOOF----LE-8-2.0�]84h�]gguile�	�	gdefine-module*�	�	�	grnrs�	gr5rs�	�		gfilenameS�	
f
rnrs/r5rs.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gexact->inexact�	ginexact->exact�	gquotient�	g	remainder�	gmodulo�	gdelay�	gforce�		�	gcall-with-deferred-observers�	�	�	 gmodule-use-interfaces!�	! �	" �	#gcurrent-module�	$#�	%#�	&gice-9�	'&�	(gscheme-report-environment�	)'(�	*g	safe-r5rs�	+&*�	,gnull-environment�	-+,�	.gmodule-export!�	/.�	0.�	1gmodule-re-export!�	21�	31�	4(,	�	5gmodule-replace!�	65�	75�C5h�]4	

54>"G454"%h?]45L67gfilenamef
rnrs/r5rs.scm�
	
��		
CO>"G4)54"%h?]45L67gfilenamef
rnrs/r5rs.scm�
	
��		
CO>"G4-54"%h?]45L67gfilenamef
rnrs/r5rs.scm�
	
��		
CO>"G40%h?]4567gfilenamef
rnrs/r5rs.scm�
	
��		
C>"G43%4h?]4567gfilenamef
rnrs/r5rs.scm�
	
��		
C>"G7%h?]4567gfilenamef
rnrs/r5rs.scm�
	
��		
C6�gm
		+giface
	2�giface
�4giface
;�gfilenamef
rnrs/r5rs.scm�		
��		
C6rnrs/enums.go000064400000022341150536206120007210 0ustar00GOOF----LE-8-2.0�$]�4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	genums�	�		gfilenameS�	
frnrs/enums.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gand=>�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	�	 gbase�	! 
�	"g
conditions�	#"
�	$g
exceptions�	%$
�	&grecords�	'g
procedural�	(&'
�	)gsyntax-case�	*)
�	+gsrfi�	,g:1�	-+,�	.gmodule-export!�	/.�	0.�	1gdefine-enumeration�	2genum-set-projection�	3genum-set-complement�	4genum-set-difference�	5genum-set-intersection�	6genum-set-union�	7g
enum-set=?�	8genum-set-subset?�	9genum-set-member?�	:genum-set->list�	;genum-set-constructor�	<genum-set-indexer�	=genum-set-universe�	>gmake-enumeration�	?123456789:;<=>�	@gmodule-re-export!�	A@�	B@�	Cgmodule-replace!�	DC�	EC�	Fgmake-record-type-descriptor�	Ggenum-set�	Hgmutable�	Iguniverse�	JHI�	Kg	immutable�	Lgset�	MKL�	NJM�	Ogenum-set-rtd�	Pgrecord-constructor�	Qg"make-record-constructor-descriptor�	Rg
make-enum-set�	Sgrecord-accessor�	Tgenum-set-universe-internal�	Ugrecord-mutator�	Vgenum-set-universe-set!�	Wgenum-set-set�	Xglength�	Ygmemq�	Zg	list-copy�	[glset-intersection�	\geq?�	]glset<=�	^g
lset-union�	_graise�	`gmake-assertion-violation�	aglset-difference�	bgmake-syntax-transformer�	cb�	db�	egmacro�	fg$sc-dispatch�	gf�	hf�	igany�	jgeach-any�	kiiji�	lg
syntax-object�	mgbegin�	ngtop�	on�	pgribcage�	qgdummy�	rg	type-name�	sgsymbol�	tgconstructor-syntax�	uqrst�	vgm-bfa5881-18�	wvn�	xwooo�	yfl-bfa5881-1d�	zfl-bfa5881-1e�	{fl-bfa5881-1f�	|fl-bfa5881-20�	}yz{|�	~pux}�	p��gx�����w��fl-bfa5881-1a�����p�����o~���gprivate�����lm����g
define-syntax��l�����glambda��l�����gs��l��������l)����gsym��l��������gif��l�����lY����g
syntax->datum��l�����gsyntax��l�������������gquote��l�������������gsyntax-violation��l�����gsymbol->string��l�����fnot a member of the set��l�����l��������g_��l�����g...��l����������glet*��l�����lI����gsyms��l���������������������gquoted-universe��l�����g
datum->syntax��l�����glist��l�����������������������gquoted-syms��l������������������������gor��l�����gevery��l�����l�����������������������fnot a subset of the universe��l���������gquasisyntax��l�����l;����l>����gunsyntax��l��������������������������������������f-source expression failed to match any pattern�C5hx]4	

54>"G454h@]45L68gfilenamefrnrs/enums.scm�
	
��		
CO>"G4!54h@]45L68gfilenamefrnrs/enums.scm�
	
��		
CO>"G4#54h@]45L68gfilenamefrnrs/enums.scm�
	
��		
CO>"G4%54h@]45L68gfilenamefrnrs/enums.scm�
	
��		
CO>"G4(54h@]45L68gfilenamefrnrs/enums.scm�
	
��		
CO>"G4*54h@]45L68gfilenamefrnrs/enums.scm�
	
��		
CO>"G4-54h@]45L68gfilenamefrnrs/enums.scm�
	
��		
CO>"G40?h@]4568gfilenamefrnrs/enums.scm�
	
��		
C>"G4Bh@]4568gfilenamefrnrs/enums.scm�
	
��		
C>"G4Eh@]4568gfilenamefrnrs/enums.scm�
	
��		
C>"G4FiGN5OR4Pi4QiOi55RR4SiOi
5TR4UiOi
5VR4SiOi5WRRVh�]	456gsymbol-list
		ges	
	gfilenamefrnrs/enums.scm�
	-	��		gnamegmake-enumeration�C>RTh�]	45$CC|genum-set
		gt			gfilenamefrnrs/enums.scm�
	1	��		gnamegenum-set-universe�C=R:=XYXh-]L45�C%gprobe
		
		
Ch)]4L5LO6!gx
				Ch(�]445545OC�genum-set
		#gsymbols		#gcardinality			#gfilenamefrnrs/enums.scm�
	5	��		#gnamegenum-set-indexer�C<RR=Zh3]4L5456+gsymbol-list
				Chy]OCqgenum-set
		
gfilenamefrnrs/enums.scm�
	<	��		
gnamegenum-set-constructor�C;R[\W=h s]4455456kgenum-set
		gfilenamefrnrs/enums.scm�
	A	��		gnamegenum-set->list�C:RYWh�]4455$CC�gsymbol
		genum-set		gfilenamefrnrs/enums.scm�
	F	��			gnamegenum-set-member?�C9R]\W=h@�]4445544555$45456C�g
enum-set-1
		;g
enum-set-2		;gfilenamefrnrs/enums.scm�
	I	��		;	gnamegenum-set-subset?�C8R8h �]45$6C�g
enum-set-1
		g
enum-set-2		gfilenamefrnrs/enums.scm�
	O	��			gnameg
enum-set=?�C7R=R^\W_`h@�]4545�$ 454454556456�g
enum-set-1
		>g
enum-set-2		>gfilenamefrnrs/enums.scm�
	S	��		>	gnamegenum-set-union�C6R=R[\W_`h@�]4545�$ 454454556456�g
enum-set-1
		>g
enum-set-2		>gfilenamefrnrs/enums.scm�
	\	��		>	gnamegenum-set-intersection�C5R=Ra\W_`h@�]4545�$ 454454556456�g
enum-set-1
		>g
enum-set-2		>gfilenamefrnrs/enums.scm�
	e	��		>	gnamegenum-set-difference�C4R=Ra\:Wh(�]	454454556�genum-set
		&guniverse			&gfilenamefrnrs/enums.scm�
	n	��		&gnamegenum-set-complement�C3RR=[\W:h(�]45445445556�g
enum-set-1
		'g
enum-set-2		'gfilenamefrnrs/enums.scm�
	t	��		'	gnamegenum-set-projection�C2R4d1ehk�����������������������h�}]�	

���
�����Cugdummy
	�g	type-name	�gsymbol		�gconstructor-syntax		�	�	C��h(�]	45$@6�gx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsg	type-namegsymbolg...gconstructor-syntaxC51RCwgm
		+giface
	2�giface
�5giface
<�giface
�Egiface
L�giface
�Ugiface
\�gfilenamefrnrs/enums.scm�		
��W	 	��n	$	��}	(	���	)	���	+	��R	-	��	1	���	5	��	�	<	��
F	A	��
�	F	���	I	���	O	��
�	S	���	\	���	e	��X	n	��5	t	��	x
C6rnrs/programs.go000064400000002572150536206120007717 0ustar00GOOF----LE-8-2.0b]+4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	gprograms�	�		gfilenameS�	
frnrs/programs.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gcommand-line�	gexit�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	 �	!gmodule-export!�	"!�	#!�	$gmodule-re-export!�	%$�	&$�	'�	(gmodule-replace!�	)(�	*(�C5hh]4	

54>"G454 hC]45L6;gfilenamefrnrs/programs.scm�
	
��		
CO>"G4# hC]456;gfilenamefrnrs/programs.scm�
	
��		
C>"G4& 'hC]456;gfilenamefrnrs/programs.scm�
	
��		
C>"G* hC]456;gfilenamefrnrs/programs.scm�
	
��		
C6`gm
		+giface
	2�gfilenamefrnrs/programs.scm�		
��	
C6rnrs/mutable-strings.go000064400000002671150536206120011205 0ustar00GOOF----LE-8-2.0�]+4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	gmutable-strings�	�		gfilenameS�	
frnrs/mutable-strings.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gonly�	gstring-set!�	gstring-fill!�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	 �	!gmodule-export!�	"!�	#!�	$gmodule-re-export!�	%$�	&$�	'�	(gmodule-replace!�	)(�	*(�C5h0o]4	

54>"G454 hJ]45L6Bgfilenamefrnrs/mutable-strings.scm�
	
��		
CO>"G4# hJ]456Bgfilenamefrnrs/mutable-strings.scm�
	
��		
C>"G4& 'hJ]456Bgfilenamefrnrs/mutable-strings.scm�
	
��		
C>"G* hJ]456Bgfilenamefrnrs/mutable-strings.scm�
	
��		
C6ggm
		+giface
	2�gfilenamefrnrs/mutable-strings.scm�		
��	,
C6rnrs/base.go000064400000052774150536206120007010 0ustar00GOOF----LE-8-2.0�U]�4h�,]gguile�	�	gdefine-module*�	�	�	grnrs�	gbase�	�		gfilenameS�	
f
rnrs/base.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	grename�	gexcept�	gerror�	graise�	gmap�	gstring-for-each�	�	glog�	glog-internal�	�	geuclidean-quotient�	gdiv�	 �	!geuclidean-remainder�	"gmod�	#!"�	$g
euclidean/�	%gdiv-and-mod�	&$%�	'gcentered-quotient�	(gdiv0�	)'(�	*gcentered-remainder�	+gmod0�	,*+�	-g	centered/�	.g
div0-and-mod0�	/-.�	0ginf?�	1g	infinite?�	201�	3gexact->inexact�	4ginexact�	534�	6ginexact->exact�	7gexact�	867�	9 #&),/258�	:gcall-with-deferred-observers�	;:�	<:�	=gmodule-use-interfaces!�	>=�	?=�	@gcurrent-module�	A@�	B@�	Cgsrfi�	Dgsrfi-11�	ECD�	Fgmodule-export!�	GF�	HF�	Igassert�	Jgassertion-violation�	Kgvector-for-each�	Lg
vector-map�	Mgsymbol=?�	Ng	boolean=?�	Oginteger-valued?�	Pgrational-valued?�	Qgreal-valued?�	RIJKLMNOPQ	�	Sgmodule-re-export!�	TS�	US�	Vgidentifier-syntax�	Wgsyntax-rules�	Xg
letrec-syntax�	Yg
let-syntax�	Zgunquote-splicing�	[gunquote�	\g
quasiquote�	]gapply�	^gvalues�	_gdynamic-wind�	`gcall-with-values�	agcall/cc�	bgcall-with-current-continuation�	cgvector-fill!�	dglist->vector�	egvector->list�	fgvector-set!�	gg
vector-ref�	hg
vector-length�	igvector�	jgmake-vector�	kgvector?�	lgstring-copy�	mglist->string�	ngstring->list�	og
string-append�	pg	substring�	qg	string>=?�	rg	string<=?�	sgstring>?�	tgstring<?�	ugstring=?�	vg
string-ref�	wg
string-length�	xgstring�	ygmake-string�	zgchar>=?�	{gchar<=?�	|gchar>?�	}gchar<?�	~gchar=?�	g
integer->char��g
char->integer��gstring->symbol��gsymbol->string��gfor-each��glist-ref��g	list-tail��greverse��gappend��glength��glist��glist?��gcddddr��gcdddar��gcddadr��gcdaddr��gcadddr��gcaddar��gcaaddr��gcadadr��gcdaadr��gcdadar��gcddaar��gcdaaar��gcadaar��gcaadar��gcaaadr��gcaaaar��gcdddr��gcddar��gcdadr��gcaddr��gcdaar��gcadar��gcaadr��gcaaar��gcddr��gcdar��gcadr��gcaar��gcdr��gcar��gcons��gstring->number��gnumber->string��g>=��g<=��g>��g<��g=��gfinite?��gnan?��geven?��godd?��g	negative?��g	positive?��gzero?��ginexact?��gexact?��ginteger?��g	rational?��greal?��gcomplex?��gangle��g	magnitude��g
make-polar��gatan��gacos��gasin��gtan��gcos��gsin��gexp��gsqrt��gexact-integer-sqrt��gexpt��gmake-rectangular��g	imag-part��g	real-part��grationalize��ground��gtruncate��gceiling��gfloor��glcm��ggcd��gdenominator��g	numerator��gabs��gmin��gmax��g/��g*��g-��g+��geq?��gequal?��geqv?��gnot��gand��gor��gcase��gcond��gset!��gif��glambda��gquote��gbegin��gletrec*��gletrec��glet*-values��g
let-values��glet*��glet��g
define-syntax��gdefine��g
procedure?��gstring?��gnumber?��gpair?��gnull?��gchar?��gsymbol?��gboolean?��VWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~�������������������������������������������������471��������������������������.+(%"����������������������������������������W�������k������gmodule-replace!���������f.string arguments must all have the same length�g	scm-error�gwrong-type-arg�fmap�fCircular list: ~S�fNot a list: ~S�fList of wrong length: ~S�gmake-syntax-transformer��	�
gdefine-proxy�gmacro�g$sc-dispatch�
��gany�gfree-id�g
syntax-object�g@�gtop��gribcage��gx��g
m-a850ec-9���f
l-a850ec-b���� gprivate�! �"!�#"�$#�%$�&gdummy�'gbinding�(gmodule�)goriginal�*&'()�+�,f
l-a850ec-e�-f
l-a850ec-f�.fl-a850ec-10�/fl-a850ec-11�0,-./�1*+0�21�3�2!�4V2!�5g
module-ref�652!�7gresolve-interface�872!�9�2!�:gsyntax-violation�;:�<:�=f-source expression failed to match any pattern�>gidentifier?�?>�@>�Agm-a850ec-16�BA�Cgid�DC�Egm-a850ec-17�FE�GF�Hfl-a850ec-1e�IH�JDGI�Kfl-a850ec-19�LK�MGL�Ngshift�OBJMN1�P5O!�Q7O!�R�O!�SJM�TS!�Ug
exceptions�VUS!�WTV�XRW�YQX�ZS!�[RZ�\PY[�]g_�^geach-any�_]^��`fl-a850ec-21�a`�bGa�cBbMN1�d5c!�e7c!�f�c!�gbM�hg!�iUg!�jhi�kfj�lek�mg!�nfm�odln�pg	condition�qgm-a850ec-24�rq�sgm-a850ec-25�ts�ut�vfl-a850ec-2c�wv�xDuw�yfl-a850ec-27�zy�{uz�|rx{N1�}5|!�~7|!��|!��x{���!��g
conditions����!���������~���p�!�����}����fl-a850ec-2f�����u���r�{N1��5�!��7�!����!���{���!����!��������������p�!�����������g
make-error��gm-a850ec-32�����gm-a850ec-33��������fl-a850ec-3a�����D����fl-a850ec-35������������N1��5�!��7�!����!�������!����!����������������!�����������fl-a850ec-3d������������N1��5�!��7�!����!�������!����!����������������!�����������gmake-assertion-violation��gm-a850ec-40�����gm-a850ec-41��������fl-a850ec-48�����D����fl-a850ec-43������������N1��5�!��7�!����!�������!����!����������������!�����������fl-a850ec-4b������������N1��5�!��7�!����!�������!����!����������������!�����������gmake-who-condition��gm-a850ec-4e�����gm-a850ec-4f��������fl-a850ec-56�����D����fl-a850ec-51������������N1��5�!��7�!����!�������!����!������������!�����fl-a850ec-59������N1�	5!�
7!��!���
!��!�
��
��!��	�gmake-message-condition�gm-a850ec-5c��gm-a850ec-5d���fl-a850ec-64��D�fl-a850ec-5f�� �! N1�"5!!�#7!!�$�!!�% �&%!�'�%!�(&'�)$(�*#)�+%!�,$+�-"*,�.fl-a850ec-67�/.�0/�10 N1�251!�371!�4�1!�50 �65!�7�5!�867�948�:39�;5!�<4;�=2:<�>gmake-irritants-condition�?gm-a850ec-6a�@?�Agm-a850ec-6b�BA�CB�Dfl-a850ec-72�ED�FDCE�Gfl-a850ec-6d�HG�ICH�J@FIN1�K5J!�L7J!�M�J!�NFI�ON!�P�N!�QOP�RMQ�SLR�T>N!�UMT�VKSU�Wfl-a850ec-75�XW�YCX�Z@YIN1�[5Z!�\7Z!�]�Z!�^YI�_^!�`�^!�a_`�b]a�c\b�d>^!�e]d�f[ce�gU�h��i�jg
expression�k&j�lgm-a850ec-78�ml�nm�ofl-a850ec-7d�pfl-a850ec-7e�qop�rknq�sm�tfl-a850ec-7a�ut�vsu�wrv�x�w!�yw!�zpw!�{�w!�|{�}w!�~gformat�~w!��w!��fassertion failed: ~s���w!���w!�C5h�%�]4	

54>"G4954<?Bh?]45L67gfilenamef
rnrs/base.scm�
	
��		
CO>"G4E54<?Bh?]45L67gfilenamef
rnrs/base.scm�
	
��		
CO>"G4<HBRh?]4567gfilenamef
rnrs/base.scm�
	
��		
C>"G4<UB�h?]4567gfilenamef
rnrs/base.scm�
	
��		
C>"G4<�B�h?]4567gfilenamef
rnrs/base.scm�
	
��		
C>"GwvJ�Jh Q]L�$CLL@Igx
		gfilenamef
rnrs/base.scm�		s	��		C]vh)]L6!gs
		
		
ChP�)D345"-�$C445>"G�"���
"���){34545�$"4>"G"6�$C44545>"G�"���
"���-1345454O>"G"=�$C4	454
O5>"G�"���
"����gproc
			Jgstring			Jgend			Jgi			Cgproc
	S�gstring1	S�gstring2		S�gend1		a�gend2		a�gi	��gproc
�Mgstring�Mgstrings	�Mgend	�Mgends	�Mgi		Fgfilenamef
rnrs/base.scm�	y	e	��			J		S�	�M	
	gnamegstring-for-each�CR����hh�)�3"|�$Y$6&6��4�5�"����4�5�"���(66"��r)3	"��$��$�$[&6&6����4��5�"�����4��5�"��h�$"6()(6�$"66"���-1345"C("A4�5�$	�"���4�>"G""���"6(6�4	
54�4	5?�"���"����gf
		�gl		�ghare		
�gtortoise		
�gmove?		
�gout		
�gf
��gl1��gl2	��gh1	��gh2	��gt1	��gt2	��gmove?	��gout	��gf
�cgl1�cgrest	�cglen	�grest	�gl1	Tgrest	Tgout	Tgfilenamef
rnrs/base.scm�	(�	/��	*�	5��	�	+����	1����	'����	-����	'����	-��F�	'��O�	��U�	��u�	%��~�	����	����	%����	����	-����	3��		�	��	�c	
	gnamegmap�CRh(a)	36]4545�CYgn
			gn
		!gbase		!					!	gnameglog�CR�h`�-13"%(C��$
�"���C(C�45$
�"���C�gbools
			Yglst	
	2glast		
	2gbool			2gbool	=	Ygfilenamef
rnrs/base.scm�
���			Y


gnameg	boolean=?�CNRhX�-13"$(C�&
�"���C(C��$
�"���C�gsyms
			Tglst	
	1glast		
	1gsym			1gsym	<	Tgfilenamef
rnrs/base.scm�
���			T


gnamegsymbol=?�CMR��h i]45$
45
�CCagx
		gfilenamef
rnrs/base.scm�
���		gnamegreal-valued?�CQRQ��h m]45$456Cegx
		gfilenamef
rnrs/base.scm�
���		gnamegrational-valued?�CPRP��h l]45$4455�CCdgx
		gfilenamef
rnrs/base.scm�
���		gnameginteger-valued?�COR�eh�-1345@zgproc
			gvecs			gfilenamef
rnrs/base.scm�
���			
gnamegvector-for-each�CKRdeh }-13445?6ugproc
			gvecs			gfilenamef
rnrs/base.scm�
���			
gnameg
vector-map�CLR4	
%34689h(l]Cdgdummy
		'gbinding		'gmodule			'goriginal			'		'	C<=h(�]	45$@6�gx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgbindingg@gmodulegoriginalC5
R4	@hR]6Jgid
		gfilenamef
rnrs/base.scm�	���		C\h*]C"gid
				C_oh)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
���		:g
macro-typegidentifier-syntax�C5R4	p@hR]6Jgid
		gfilenamef
rnrs/base.scm�	���		C�h*]C"gid
				C_�h)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
���		:g
macro-typegidentifier-syntax�C5pR4	�@hR]6Jgid
		gfilenamef
rnrs/base.scm�	��		C�h*]C"gid
				C_�h)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
��		:g
macro-typegidentifier-syntax�C5�R4	�@hR]6Jgid
		gfilenamef
rnrs/base.scm�	��		C�h*]C"gid
				C_�h)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
��		:g
macro-typegidentifier-syntax�C5�R4	�@hR]6Jgid
		gfilenamef
rnrs/base.scm�	��		Ch*]C"gid
				C_h)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
��		:g
macro-typegidentifier-syntax�C5�R4	@hR]6Jgid
		gfilenamef
rnrs/base.scm�	��		C-h*]C"gid
				C_=h)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
��		:g
macro-typegidentifier-syntax�C5R4	>@hR]6Jgid
		gfilenamef
rnrs/base.scm�	��		CVh*]C"gid
				C_fh)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
��		:g
macro-typegidentifier-syntax�C5>R57ghp���>h��-134455444554444555$4445	55"4445
554445555?6�gwho
		�gmessage		�g	irritants			�gfilenamef
rnrs/base.scm�
��		�	
	gnamegerror�CR57ghp���>h��-134455444554444555$4445	55"4445
554445555?6�gwho
		�gmessage		�g	irritants			�gfilenamef
rnrs/base.scm�
��		�	
	gnamegassertion-violation�CJR4	Iixyz|}���
h0E]	C=gdummy
		+g
expression		+		+	C<=h(x]	45$@6pgx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsg
expressionC5IRC�gm
		+giface
	2�giface
�4gfilenamef
rnrs/base.scm�		
���	X���	}������
��������d����������e������"���$8��	%�
C6rnrs/files.go000064400000011136150536206120007163 0ustar00GOOF----LE-8-2.0F]y4hG	]gguile�	�	gdefine-module*�	�	�	grnrs�	gfiles�	�		gfilenameS�	
frnrs/files.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	grename�	gonly�	gfile-exists?�	gdelete-file�	gcatch�	g@@�	�	gdelete-file-internal�	�	�	gcall-with-deferred-observers�	�	 �	!gmodule-use-interfaces!�	"!�	#!�	$gcurrent-module�	%$�	&$�	'gbase�	('
�	)g
conditions�	*)
�	+g
exceptions�	,+
�	-gmodule-export!�	.-�	/-�	0gi/o-error-port�	1gi/o-port-error?�	2gmake-i/o-port-error�	3g	&i/o-port�	4gi/o-file-does-not-exist-error?�	5g"make-i/o-file-does-not-exist-error�	6g&i/o-file-does-not-exist�	7gi/o-file-already-exists-error?�	8g"make-i/o-file-already-exists-error�	9g&i/o-file-already-exists�	:gi/o-file-is-read-only-error?�	;g make-i/o-file-is-read-only-error�	<g&i/o-file-is-read-only�	=gi/o-file-protection-error?�	>gmake-i/o-file-protection-error�	?g&i/o-file-protection�	@gi/o-error-filename�	Agi/o-filename-error?�	Bgmake-i/o-filename-error�	Cg
&i/o-filename�	Dgi/o-error-position�	Egi/o-invalid-position-error?�	Fgmake-i/o-invalid-position-error�	Gg&i/o-invalid-position�	Hgi/o-write-error?�	Igmake-i/o-write-error�	Jg
&i/o-write�	Kgi/o-read-error?�	Lgmake-i/o-read-error�	Mg	&i/o-read�	Ng
i/o-error?�	Ogmake-i/o-error�	Pg&i/o�	Q0123456789:;<=>?@ABCDEFGHIJKLMNOP!�	Rgmodule-re-export!�	SR�	TR�	U�	Vgmodule-replace!�	WV�	XV�	Y�	Zgraise�	[)�	\gmake-record-type-descriptor�	][\�	^[\�	_g&error�	`glist->vector�	a[`�	b[`�	cgrecord-constructor�	d[c�	e[c�	fg"make-record-constructor-descriptor�	g[f�	h[f�	igcondition-predicate�	j[i�	k[i�	lg	immutable�	mgposition�	nlmD�	ogcondition-accessor�	p[o�	q[o�	rgrecord-accessor�	s[r�	t[r�	ugfilename�	vlu@�	wgport�	xlw0�C5hX]4	

54>"G454 #&h@]45L68gfilenamefrnrs/files.scm�
	
��		
CO>"G4(54 #&h@]45L68gfilenamefrnrs/files.scm�
	
��		
CO>"G4*54 #&h@]45L68gfilenamefrnrs/files.scm�
	
��		
CO>"G4,54 #&h@]45L68gfilenamefrnrs/files.scm�
	
��		
CO>"G4 /&Qh@]4568gfilenamefrnrs/files.scm�
	
��		
C>"G4 T&Uh@]4568gfilenamefrnrs/files.scm�
	
��		
C>"G4 X&Yh@]4568gfilenamefrnrs/files.scm�
	
��		
C>"Gh]L6		
CZBh>-134L566gkey
			gargs						
Chp]OO6hgfilename
		gfilenamefrnrs/files.scm�
	@	��		gnamegdelete-file�CR4^P_i4b55PR4e4hPi55OR4kPi5NR4^MPi4b55MR4e4hMi55LR4kMi5KR4^JPi4b55JR4e4hJi55IR4kJi5HR4^GPi4bn55GR4e4hGi55FR4kGi5ER4qGi4tGi
55DR4^CPi4bv55CR4e4hCi55BR4kCi5AR4qCi4tCi
55@R4^?Ci4b55?R4e4h?i55>R4k?i5=R4^<?i4b55<R4e4h<i55;R4k<i5:R4^9Ci4b559R4e4h9i558R4k9i57R4^6Ci4b556R4e4h6i555R4k6i54R4^3Pi4bx553R4e4h3i552R4k3i51R4q3i4t3i
550RC�gm
		+giface
	2�giface
�5giface
<�giface
�Egfilenamefrnrs/files.scm�		
���	@	���	I	��"	J	��X	K	���	L	���	O	��.	R	��d	T	���	W	���	Z	��	]	��
	W
C6system/repl/error-handling.go000064400000023544150536206120012304 0ustar00GOOF----LE-8-2.0L']�4h�]gguile�	�	gdefine-module*�	�	�	gsystem�	grepl�	gerror-handling�		�	
gfilenameS�	fsystem/repl/error-handling.scm�	gimportsS�	
gbase�	gpmatch�	
�	�	gvm�	g
trap-state�	�	�	gdebug�	�	�	gice-9�	gformat�	�	�	�	gexportsS�	gcall-with-error-handling�	gwith-error-handling�	 �	!gset-current-module�	"!�	#!�	$gcall-with-output-string�	%g
vector-length�	&gprint-exception�	'gerror-string�	(gon-errorS�	)(��	*g
post-errorS�	+*	��	,g	pass-keysS�	-,	��	.gtrap-handlerS�	/.	��	0)+-/�	1gcatch�	2gquit�	32�	4gcurrent-input-port�	5gcurrent-output-port�	6gcurrent-error-port�	7g%stacks�	8gnarrow-stack->vector�	9g
make-stack�	:fTrap ~d: ~a�	;g
make-debug�	<gwith-input-from-port�	=gwith-output-to-port�	>gwith-error-to-port�	?f~a~%�	@fEntering a new prompt.  �	Af0Type `,bt' for a backtrace or `,q' to continue.
�	B�	Cg
start-repl�	DBC�	EBC�	FgdebugS�	Ggpass�	Hgdisabled�	Igerror�	JfUnknown trap-handler strategy�	Kgwith-default-trap-handler�	Lg%start-stack�	Mgreport�	Ngmemq�	Ogthrow�	Pgrun-hook�	Qgbefore-error-hook�	Rgafter-error-hook�	Sgforce-output�	Tg
procedure?�	UfUnknown post-error strategy�	Vg	backtrace�	Wgprint-frames�	XfUnknown on-error strategy�	Ygmake-syntax-transformer�	ZY�	[Y�	\gmacro�	]g$sc-dispatch�	^]�	_]�	`gany�	a``�	bg
syntax-object�	cgtop�	dc�	egribcage�	fgdummy�	ggform�	hfg�	igm-82c280f576c6227-80�	jic�	kjd�	lfl-82c280f576c6227-85�	mfl-82c280f576c6227-86�	nlm�	oehkn�	pe�	qgx�	rq�	sj�	tfl-82c280f576c6227-82�	ut�	versu�	wdopv�	xghygiene�	yx�	zbwy�	{glambda�	|b{wy�	}gsyntax-violation�	~}�	}��f-source expression failed to match any pattern�C5hxr]4	
 54#>"G$%&h(�]	
4L5�$L
�"LL6�gport
		&gframe		&gfilenamefsystem/repl/error-handling.scm�
	&	��		'	��		'	��		'	��		'	3��		'	��	&	(	��		&Ch�]O6�gstack
		gkey		gargs			gfilenamefsystem/repl/error-handling.scm�
	$
��		%	��			gnamegerror-string�C'R013456789:;<=>?@AEFhP�]L$?4L>"G4>"G4>"G"L6�gfilenamefsystem/repl/error-handling.scm�
	L		��		M	��			O	��		O	��		O	��		P	��	#	P	��	(	P	��	1	Q	��	6	Q	��	;	Q	��	I	R	��	O	R	��		O
ChY]LLLLO6Qgfilenamefsystem/repl/error-handling.scm�
	4	��		5	��		
ChY]LLLLLO6Qgfilenamefsystem/repl/error-handling.scm�
	2	��		3	
��		
C	hp�]#[�$	[��"445

$"5$45"4
5LLLO6gframe
		pgtrap-idx		pg	trap-name			pgtag			pgstack		2	pg	error-msg		L	pgdebug		Y	pgfilenamefsystem/repl/error-handling.scm�
	8	��		9	��	
	9	��		:	��		9	��		;	��		<	��	*	F	��	2	;	��	2	9	��	:	G	��	;	H	��	@	H	'��	F	H	��	L	9	��	O	J	��	Y	9	��	p	1	��		p	gnamegdebug-trap-handler�CGh�]C�gframe
		gtrap-idx		g	trap-name			gfilenamefsystem/repl/error-handling.scm�
	T	��			gnamegnull-trap-handler�CHIJ1KLhY]L6Qgfilenamefsystem/repl/error-handling.scm�
	a	
��			a	��			
ChY]MLO6Qgfilenamefsystem/repl/error-handling.scm�
	_	��		`	��		
CMNO<=>PQ&RShHq]4>"G4LLL>"G4>"GL6igfilenamefsystem/repl/error-handling.scm�
	j	��		k	��		l	��	,	m	��	C	n	��		C
ChY]LLLLO6Qgfilenamefsystem/repl/error-handling.scm�
	4	��		5	��		
ChY]LLLLO6Qgfilenamefsystem/repl/error-handling.scm�
	2	��		3	
��		
Ch@�-134L5$@4LLLO>"GC�gkey
			?gargs			?gfilenamefsystem/repl/error-handling.scm�
	e		��	
	f	��		f	��		g	��		1	��			?
CNOh �-134L5$@C�gkey
			 gargs			 gfilenamefsystem/repl/error-handling.scm�
	q		��	
	r	��		r	��		s	��			 
CTNOh(�-134L5$"L@�gk
			$gargs			$gfilenamefsystem/repl/error-handling.scm�
	v	
��	
	w	��		w	��	$	w	��			$
CUN789';<=>?@AEFhH�]4L>"G4>"G4>"GL6�gfilenamefsystem/repl/error-handling.scm�
�	��	�	��	�	��	�	��	�	��	�	��	"�	��	+�	��	0�	��	5�	��	?�	��	E�	��
		E
ChY]LLLO6Qgfilenamefsystem/repl/error-handling.scm�
	4	��		5	��		
ChY]LLLLO6Qgfilenamefsystem/repl/error-handling.scm�
	2	��		3	
��		
C	hxJ-134L5$C[�$	[��"445	
$"5454
5LLLO6Bgkey
			wgargs			wgtag		*	wgstack		H	wg	error-msg		U	wgdebug		b	wgfilenamefsystem/repl/error-handling.scm�
	|		��	
	}	��		}	��		~	 ��	 	~	��	$		 ��	*	~	��	-�	��	0�	��	@�	 ��	H�	��	H	~	��	K�	!��	U	~	��	X�	��	b	~	��	w	1	��			w
CN<=>PQ&RShHv]4>"G4LLL>"G4>"GL6ngfilenamefsystem/repl/error-handling.scm�
�	��	�	��	�	��	,�	��	C�	��		C
ChY]LLLLO6Qgfilenamefsystem/repl/error-handling.scm�
	4	��		5	��		
ChY]LLLLO6Qgfilenamefsystem/repl/error-handling.scm�
	2	��		3	
��		
Ch@�-134L5$C4LLLO>"GC�gkey
			9gargs			9gfilenamefsystem/repl/error-handling.scm�
�		��	
�	��	�	��		1	��			9
CVN789<=>WPQ&RShX]4L>"G4>"G4LLL>"G4>"GL6wgfilenamefsystem/repl/error-handling.scm�
�	��	�	��	�	��	'�	��	>�	��	U�	��		U
ChY]LLLLLO6Qgfilenamefsystem/repl/error-handling.scm�
	4	��		5	��		
ChY]LLLLLO6Qgfilenamefsystem/repl/error-handling.scm�
	2	��		3	
��		
Chp-134L5$C[�$	[��"445	
$"54LLLO>"GC�gkey
			mgargs			mgtag		*	mgframes		H	mgfilenamefsystem/repl/error-handling.scm�
�		��	
�	��	�	��	�	 ��	 �	��	$�	 ��	*�	��	-�	��	0�	��	@�	'��	H�	��	H�	��	K	1	��			m
Chw-13Cogkey
			gargs			gfilenamefsystem/repl/error-handling.scm�
�		��			
CNOh(�-134L5$"L@�gk
			$gargs			$gfilenamefsystem/repl/error-handling.scm�
�	
��	
�	��	�	��	$�	��			$
CXhx�-/03
####454545HO	Q	�$	"&	�$
"�$"	4
5KO�$O"5�$O"!45$
O"	45�$O"d�$O"J�$O"0	�$"!45$
O"	456�gthunk
	xgon-error	xg
post-error		xg	pass-keys		xgtrap-handler		xgin		Jxgout		Jxgerr		Jxgle-trap-handler		Qxgdebug-trap-handler			]x
gfilenamefsystem/repl/error-handling.scm�
	*
��		+	-��	%	+	A��	/	,	.��	9	,	E��	<	-	��	A	.	
��	F	/	
��	J	-	��	o	X	���	\	���	\	���	\	���	c	���	u	
���	u		���	x	
���	x	���	x	
��	z	��V�	
��`�		��n�	
��r�	��v�	
��x	^	��	x
gon-errorS�g
post-errorS	�g	pass-keysS	�gtrap-handlerS	�gnamegcall-with-error-handling�CR4[\_az|h?]C7gdummy
		gform					C�h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/repl/error-handling.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgformC5RCjgm
		,gfilenamefsystem/repl/error-handling.scm�		
���	$
��	*
��	q
C6system/repl/command.go000064400000331665150536206120011015 0ustar00GOOF----LE-8-2.0��]84h/<]gguile�	�	gdefine-module*�	�	�	gsystem�	grepl�	gcommand�		�	
gfilenameS�	fsystem/repl/command.scm�	gimportsS�	
gbase�	gsyntax�	
�	�	gpmatch�	
�	�	gcompile�	
�	�	gcommon�	�	�	gdebug�	�	�	gvm�	gobjcode�	�	 �	!gprogram�	"!�	#"�	$g
trap-state�	%$�	&%�	'�	('�	)gframe�	*)�	+gselectS�	,gframe-return-values�	-,�	.*+-�	/gice-9�	0gformat�	1/0�	21�	3gsession�	4/3�	54�	6g
documentation�	7/6�	87�	9gand-let-star�	:/9�	;:�	<grdelim�	=/<�	>=�	?gcontrol�	@/?�	A@�	Bgpretty-print�	C/B�	Dgpp�	EBD��	FE�	GC+F�	Hginspect�	IH�	Jg%inspect�	KHJ��	LK�	MI+L�	Ngstatprof�	ON�	PO�	Q #&(.258;>AGMP�	RgexportsS�	Sgmeta-command�	Tgdefine-meta-command�	UST�	Vg	autoloadsS�	Wglanguage�	X
W�	Yglookup-language�	Zglanguage-reader�	[YZ�	\gtrace�	]\�	^gcall-with-trace�	_^�	`X[]_�	agset-current-module�	ba�	ca�	dghelp�	egh�	fde�	ggshow�	hg�	igapropos�	jga�	kij�	lgdescribe�	mgd�	nlm�	odfhkn�	pgmodule�	qgm�	rpq�	sgimport�	tguse�	ust�	vgload�	wgl�	xvw�	ygreload�	zgre�	{yz�	|gbinding�	}gb�	~|}�	gin����prux{~���gL��W���W���gc�����gcompile-file��gcc������gexpand��gexp������goptimize��gopt������gdisassemble��gx������gdisassemble-file��gxx��������������gprofile��gtime��gt������gpr������gtr��\���������g	backtrace��gbt������gup�����gdown�����gfr��)���g	procedure��gproc������glocals�����g
error-message��gerror������gbreak��gbr��gbp�������gbreak-at-source��gbreak-at��gbs�������gstep��gs������gstep-instruction��gsi������gnext��gn������gnext-instruction��gni������gfinish�����g
tracepoint��gtp������gtraps�����gdelete��gdel������gdisable�����genable�����g	registers��gregs����������������������������gi��H���BD��H����ggc�����g
statistics��gstat������goption��go������gquit��gq��gcontinue��gcont��������������o���������g*command-table*��gwarranty��gw������gcopying������gversion��gv������g��������g*show-table*��g
group-name��ggroup-commands��gmake-hash-table��g*command-infos*��gcommand-name��gcommand-abbrevs��g	hashq-ref��gcommand-info��gcommand-info-procedure��gcommand-procedure�gprocedure-documentation�gcommand-doc�gmake-command-info�gcommand-info-arguments-reader�g	substring�gstring-index�g
command-usage�gcommand-summary�gassq�	glookup-group�
gmemq�glookup-command�f$~:(~A~) Commands~:[~; [abbrev]~]:~2%�
gfor-each�gdisplay-summary�gnewline�g
display-group�gdisplay�fUsage: �gdisplay-command�g
string-length�f
[,~A~{ ,~A~}]�f�f ,~A~A~A - ~A
�fabbrevs too long�f~%~v_�f~v_�gcatch�gread�f)Throw to key `~a' while reading command:
�g
display-error�gcurrent-output-port� f8Throw to key `~a' with args `~s' while reading command.
�!gforce-output�"gread-command�#gread-command-arguments�$gand=>�%fUnknown meta command: ~A~%�&fMeta-command not a symbol: ~s~%�'g
hashq-set!�(gappend�)gadd-meta-command!�*gmake-syntax-transformer�+*�,*�-gmacro�.g$sc-dispatch�/.�0.�1gany�211�3geach-any�431��514��625��713��817��968��:19��;g
syntax-object�<gtop�=<�>gribcage�?gdummy�@gname�Agcategory�Bgexpression0�Cgdatums�Dg	docstring�Egb0�Fgb1�G?@ABCDEF	�Hgm-3ee4d7042b-92�IH<�JI========	�Kfl-3ee4d7042b-97�Lfl-3ee4d7042b-98�Mfl-3ee4d7042b-99�Nfl-3ee4d7042b-9a�Ofl-3ee4d7042b-9b�Pfl-3ee4d7042b-9c�Qfl-3ee4d7042b-9d�Rfl-3ee4d7042b-9e�Sfl-3ee4d7042b-9f�TKLMNOPQRS	�U>GJT�V>�W��XI�Yfl-3ee4d7042b-94�ZY�[>WXZ�\=UV[�]ghygiene�^]�_;)\^�`gquote�a;`\^�bglambda*�c;b\^�d(�e(�fglambda�g;f\^�hgdefine�i;h\^�jghandle-read-error�k;j\^�lg	form-name�m;l\^�ngkey�o;n\^�pgargs�q;p\^�rkmoq�s;\^�tgunquote�u;t\^�vgsubr�w;v\^�xuw�ygmsg�z;y\^�{uz�|uq�}grest�~;}\^�x{|u~��;0\^��;\^��fDThrow to key `~a' while reading ~@[argument `~A' of ~]command `~A':
��;�\^��;\^��;\^��;\^��������wzq~�����gelse��;�\^��fTThrow to key `~a' with args `~s' while reading ~@[ argument `~A' of ~]command `~A'.
��;�\^��gabort��;�\^��������g%��;�\^��glet*��;�\^��gmap��������;\^��grepl-reader��;�\^��;\^��goptionalS��;�\^��gport��;�\^��gcurrent-input-port��;�\^�������������;Z\^��g
repl-language��;�\^��gcurrent-module��;�\^���������gk��;�\^���q����q��;(\^��glist��;�\^��glet��;�\^��gopen-input-string��;�\^��g	read-line��;�\^����������������glp��;�\^��gout��;�\^��a���������;�\^��;\^�������������gif��;�\^��geof-object?��;�\^������greverse��;�\^������gcons��;�\^���������������������������������g���k��q��g����������������g�������11���2⌤��8���1䌤�?@ACDEF��I=======��fl-3ee4d7042b-ae��fl-3ee4d7042b-af��fl-3ee4d7042b-b0��fl-3ee4d7042b-b1��fl-3ee4d7042b-b2��fl-3ee4d7042b-b3��fl-3ee4d7042b-b4��fl-3ee4d7042b-b5������������>�����=�V[��;T�^��15����8���1����?@BCDEF��fl-3ee4d7042b-c0��fl-3ee4d7042b-c1��fl-3ee4d7042b-c2��fl-3ee4d7042b-c3��fl-3ee4d7042b-c4��fl-3ee4d7042b-c5��fl-3ee4d7042b-c6��fl-3ee4d7042b-c7����������>���=V[�;T^�;^��1⌤8��1��	?@CDEF�
I======�fl-3ee4d7042b-d3�fl-3ee4d7042b-d4�
fl-3ee4d7042b-d5�fl-3ee4d7042b-d6�fl-3ee4d7042b-d7�fl-3ee4d7042b-d8�fl-3ee4d7042b-d9�
�>	
�=V[�;T^�;^��gsyntax-violation���f-source expression failed to match any pattern�fCommand Groups:

�fhelp all�fList all commands�gsymbol->string� g
string-append�!fhelp �"fList �#f	 commands�$fFType `,help -c COMMAND' to show documentation of a particular command.�%g-c�&fUnknown command: ~A~%�'fBad arguments: ~A~%�(fUnknown command or group: ~A~%�)gall�*gdefault-prompt-tag�+@*�,@*�-fUnknown topic: ~A~%�.g
*warranty*�/g	*copying*�0g	*version*�1g->string�2gobject-documentation�3g
repl-parse�4g
module-ref�5g	repl-eval�6gform�7f  ~A~24t~A
�8grepl-options�9grepl-option-set!�:geval�;grepl-option-ref�<gthrow�=gputs�>gmodule-name�?gresolve-module�@gmodule-uses�Agresolve-interface�Bgmodule-use!�CfNo such module: ~A~%�Dgload-in-vicinity�ED�FD�Gfsystem/repl�Hg
reload-module�Igmodule-for-each�Jf~23A ~A
�KgensureS�Lgsave-module-excursion�Mg
repl-print�NfFInvalid arguments to `in': expected a single expression or a command.
�OfNo such module: ~s
�Pf6Happy hacking with ~a!  To switch back, type `,L ~a'.
�Qglanguage-title�Rg
language-name�Sgcurrent-language�Tgsetter�UT�VT�Wgrepl-compile�Xgobjcode?�Ygguile:disassemble�ZgoptsS�[grepl-expand�\grun-hook�]gbefore-print-hook�^g
repl-optimize�_gassembly�`W_��a`��b`��cgprogram?�df9Argument to ,disassemble not a procedure or objcode: ~a~%�egload-objcode�fggc-run-time�ggget-internal-real-time�hgget-internal-run-time�if8;; ~,6Fs real time, ~,6Fs run time.  ~,6Fs spent in GC.
�je1.0�kginternal-time-units-per-second�lgrepl-prepare-eval-thunk�mgwidthS�ngterminal-width�ogdefine-stack-command�pg_�qp��rg
datum->syntax�sgframes�tgmessage�ug	for-trap?�vgindex�wgcur�x1111111�ygt-3ee4d7042b-8e0�zgt-3ee4d7042b-8e1�{gt-3ee4d7042b-8e2�|gt-3ee4d7042b-8e3�}gt-3ee4d7042b-8e6�~gt-3ee4d7042b-8e5�gt-3ee4d7042b-8e4��yz{|}~��gm-3ee4d7042b-8e7���<�����������fl-3ee4d7042b-8eb��fl-3ee4d7042b-8ec��fl-3ee4d7042b-8ed��fl-3ee4d7042b-8ee��fl-3ee4d7042b-8ef��fl-3ee4d7042b-8f0��fl-3ee4d7042b-8f1�����������>�����gbody��gbody*��@pD����======��fl-3ee4d7042b-8d4��fl-3ee4d7042b-8d5��fl-3ee4d7042b-8d6��fl-3ee4d7042b-8d7��fl-3ee4d7042b-8d8��fl-3ee4d7042b-8d9����������>�����=��fl-3ee4d7042b-8d1�����>W����=V��V���;T�^��;��^��;�^��g
repl-debug��;��^��;��^��g
letrec-syntax��;��^��gidentifier-syntax��;��^��gdebug-frames��;��^�������������gdebug-error-message��;��^�������������gdebug-for-trap?��;��^�������������gid��;��^��gdebug-index��;��^����������gset!��;��^��;��^������������������������g
vector-ref��;��^��;0�^��;�^��fNothing to debug.~%��;��^����������m	���gfull?S���	�������gprint-frames��gcountS��g	for-trap?S��ginteger?��fBInvalid argument to `up': expected a positive integer for COUNT.~%��g
vector-length��fAlready at outermost frame.
��gprint-frame��gindexS��gnext-source?S��fDInvalid argument to `down': expected a positive integer for COUNT.~%��fAlready at innermost frame.
��fGInvalid argument to `frame': expected a non-negative integer for IDX.~%��fNo such frame.~%��gframe-procedure��m������gprint-locals��f~a~%��gstring?��fNo error message��g
procedure?��gadd-trap-at-procedure-call!��fTrap ~a: ~a.~%��g	trap-name��fNot a procedure: ~a��gadd-trap-at-source-location!��gdefault-prompt-handler��@���@���gframe->stack-vector��gframe-previous��fNo return values.~%��fReturn values:~%����g
start-repl��gdebugS��g
make-debug��grepl-pop-continuation-resumer��fReturn from ~a��g#add-ephemeral-trap-at-frame-finish!��grepl-next-resumer��fStep into ~a��gadd-ephemeral-stepping-trap!��ginto?S��ginstruction?S��gadd-trace-at-procedure-call!�g
list-traps�fNo traps set.~%�f  ~a: ~a~a~%�g
trap-enabled?�f (disabled)�gdelete-trap!�f.expected a trap index (a non-negative integer)�g
disable-trap!�genable-trap!�	gprint-registers�
gwidth�f!Set screen width to ~a columns.~%�gtimes�
ggc-stats�g
repl-tm-stats�g
repl-gc-stats�gassq-ref�ggc-times�gdisplay-diff-stat�f	GC times:�ftimes�g	heap-size�gheap-free-size�gdisplay-stat-title�fMemory size:�fcurrent�flimit�gdisplay-stat�fheap�fbytes�gheap-total-allocated�fBytes allocated:� fdiff�!ftotal�"f	allocated�#g
gc-time-taken�$fGC time taken:�%gdisplay-time-stat�&g	tms:utime�'g	tms:stime�(g
tms:cutime�)g
tms:cstime�*fProcess time spent:�+fuser�,fsystem�-f
child user�.fchild system�/f~~20~AA ~~10@A /~~10@A ~~A~~%�0f@�1f~10,2F�2gexact->inexact�3fs�4f----�5e	1000000.0�6fmips�7gdisplay-mips-stat�C5h�oC]4	
QRUV`5	4c>"G��R��Rhx]�Cpgg
		gfilenamefsystem/repl/command.scm�
	J
��		J	��		gnameg
group-name�C�Rh|]�Ctgg
		gfilenamefsystem/repl/command.scm�
	K
��		K	��		gnameggroup-commands�C�R4�i5�Rhz]�Crgc
		gfilenamefsystem/repl/command.scm�
	N
��		N	��		gnamegcommand-name�C�Rh}]�Cugc
		gfilenamefsystem/repl/command.scm�
	O
��		O	��		gnamegcommand-abbrevs�C�R���h�]456zgc
		gfilenamefsystem/repl/command.scm�
	P
��		P	4��		P	��		gnamegcommand-info�C�R��h�]456gc
		
gfilenamefsystem/repl/command.scm�
	Q
��		Q	6��	
	Q	��		
gnamegcommand-procedure�C�R�h�]456ygc
		
gfilenamefsystem/repl/command.scm�
	R
��		R	1��	
	R	��		
gnamegcommand-doc�CRh�]�C�gproc
		garguments-reader		gfilenamefsystem/repl/command.scm�
	T
��		U	��			gnamegmake-command-info�CRh�]�Cginfo
		gfilenamefsystem/repl/command.scm�
	W
��		X	��		gnamegcommand-info-procedure�C�Rh�]�C�ginfo
		gfilenamefsystem/repl/command.scm�
	Z
��		[	��		gnamegcommand-info-arguments-reader�CRh �]	45
4
56�gc
		gdoc			gfilenamefsystem/repl/command.scm�
	]
��		^	
��			^	��		_	��		_	��		gnameg
command-usage�CRh@�]454
5�4
5$
66�gc
		<gdoc			<gstart			<gt		"	<gfilenamefsystem/repl/command.scm�
	a
��		b	��			b	��		c	��		c	��		b	��		d	��	"	d	��	4	e	��	<	f	��		<gnamegcommand-summary�CR�h}]6ugname
		
gfilenamefsystem/repl/command.scm�
	h
��	
	i	��		
gnameglookup-group�C	R�
hx;-.,3#"N"4(���"���4�5$�C�"���((C"���"���"���3gkey
		sgtable		sggroups			hgcommands			hgfilenamefsystem/repl/command.scm�
	k
��		l	��	$	m	��	'	o	��	*	o	��	3	o	��	4	p	��	;	p	��	=	p	��	A	m	��	D	p	%��	J	q	��	R	q	��	R	m	��	^	m	��	h	l	��	k	l	&��	s	l	��		sgnameglookup-command�CR0�
�h(�]45L$45"456�gc
		&gfilenamefsystem/repl/command.scm�
	u	��		v	��		w	��		w	+��		w	?��		x	��	&	v	��		&C�hX�-.,3#445>"G4O45>"G6�ggroup
		Sgabbrev?		Sgfilenamefsystem/repl/command.scm�
	s
��		t	��		t	
��		t	4��	)	t	��	2	u	��	<	y	��	G	u	��	S	z	��
		Sgnameg
display-group�CRh0�]4>"G445>"G6�gcommand
		/gfilenamefsystem/repl/command.scm�
	|
��		}	��		}	��		}	��		~	��		~	��	#	~	��	/		��			/gnamegdisplay-command�CR0�
h�]45�$4��5"45	 �$
45"0�	 �$4		 ��5"4		 ��56	gusage
	�gabbrevs	�gsummary		�g	usage-len			�gabbrevs		&�gabbrevs-len		/�gfilenamefsystem/repl/command.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	!��	�	1��	�	?��	 �	��	&�	��	&�	��	)�	��	/�	��	6�	��	=�	��	A�	��	B�	��	F�	��	J�	��	S�	��	V�	��	Z�	��	[�	��	`�	��	g�	&��	h�	!��	j�	��	o�	��	t�	��	y�	��	~�	����	��"	�	gnamegdisplay-summary�CRhT]6Lgfilenamefsystem/repl/command.scm�
�	��	�	��		
C0 !h�d-13�$����$y���$G��4>"G445>"G"4>"G"4>"G"4>"G4>"GC\gkey
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	ugvy		8	ugfilenamefsystem/repl/command.scm�
�	��	�	��	=�		��	B�	��	I�		��	R�		��	V�	��	g�		��	z�		��	�	����		����	����		����	����		����	��		�
Ch]6wgrepl
		gfilenamefsystem/repl/command.scm�
�
��	�	��		gnamegread-command�C"R�h�]44556�gc
		grepl		gfilenamefsystem/repl/command.scm�
�
��	�	��	�	"��	�	��	�	��			gnamegread-command-arguments�C#R"$#�hp]4L5L@hgargs
		gfilenamefsystem/repl/command.scm�
�	��	�	(��	�	!��		C0%&	hX]45&C�$.45$45O666grepl
		Rgcommand			Rgt		"	Igfilenamefsystem/repl/command.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	"�	��	-�	��	@�	��	E�	��	I�	��	N�	��	R�	��		Rgnamegmeta-command�CSR'��(hh~]445>"G$>45$4�5�C45 CCvgname
		egcategory		egproc			egargument-reader			egentry		.	cgfilenamefsystem/repl/command.scm�
�
��	�	��	
�	#��	�	��	%�	��	&�	��	.�	��	6�	��	9�	��	>�	$��	C�	6��	F�	0��	H�	��	I�	��	L�	��	W�	/��	Z�	 ��	]�	��	_�	��	a�	��		e	gnamegadd-meta-command!�C)R4,T-0:_acegirsq���om���������g��c�����ka�hH9]	L
�
��C1gtmp-3ee4d7042b-ab
		F		FC����h��,	3	45�����	

��	���4O5�����C�gdummy
	�gname	�gcategory		�grepl		�gexpression0		�gdatums		�g	docstring		�gb0		�gb1		�		�		C��h(�,3�������C�gdummy
		"gname		"gcategory			"grepl			"gdatums			"g	docstring			"gb0			"gb1			"		"	C�h(�,3��������C�gdummy
		!gname		!grepl			!gexpression0			!gdatums			!g	docstring			!gb0			!gb1			!		!	Ch �]��������C�gdummy
		gname		grepl			gdatums			g	docstring			gb0			gb1						Chh]!45$@45$@45$@45$	@
6gx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsystem/repl/command.scm�
�	��		gg
macro-typegsyntax-rules�gpatternsgnamegcategorygreplgexpression0g...gdatums���g	docstringgb0gb1g...gnamegcategorygreplgdatums��g	docstringgb0gb1g...gnamegreplgexpression0g...gdatums���g	docstringgb0gb1g...gnamegreplgdatums��g	docstringgb0gb1g...C5TR4)id	d
� !"#h8]445545456	gg
		1gname		1gusage			1gheader		&	1gfilenamefsystem/repl/command.scm�
	��	
	��	
	.��	
	��	
	��		��		.��		��	
	��		 ��	 	/��	$	<��	&	 ��	&
	��	1	��		1C�$%0&'()h j-13(y445>"G4>"G4>"G4	
�>"G4>"G4
>"G6"a"$"�"�"]�$M��&2�$"��(	66666�$��(	6"��"��{�$O��&9�$.��(45$456"��-"��)"��%"��!"���$.��(45$456"���"���"����$.��(45$456"���"���"����$(��&(	6"��t"��p"��lbgrepl
		 gargs		 gvx	��gvy	��gvx	��gvy	��gvx	gvy	gvx	.wgvy	.wgvx	Gogvy	Gogvx	��gvy	��gvx	��gvy	��gvx	�gvy	�gfilenamefsystem/repl/command.scm�
�
��		��			��			��			"��			��			��	'
	��	+
	��	0
	��	9	��	=	��	@	$��	E	��	N	��	U	��	Z	��	c	��	s	��	w	��	|	���	���	���!	���!	���#	���#	���#	���#	���#	���#	���#	���#	���	��	��	��	��R	��\	��_	��g	��k	���	���	���	���	���	���	���	���	���	���	��	��	��7		 
g
documentationf�help [all | GROUP | [-c] COMMAND]
Show help.

With one argument, tries to look up the argument as a group name, giving
help on that group if successful. Otherwise tries to look up the
argument as a command, giving help on the command.

If there is a command whose name is also a group name, use the ,help
-c COMMAND form to give help on the command instead of the group.

Without any argument, a list of help commands and command groups
are displayed.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0�d��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)ig��0-'	h��-13(4�>"G6�$q��(A45$44556��(	66(	666�grepl
		�gargs		�gvx		4�gvy		4�gvx		c	gvy		c	gvx	��gvy	��gfilenamefsystem/repl/command.scm�
%
��	/	��	1	��	1	��	1	��	'2	��	*/	��	?3	��	K/	��	L4	��	O4	��	Y4	��	]4	��	`/	��	r6	��	v6	��	{8	��	8	���/	���6	���6	���8	���8	���8	���8	��		�
g
documentationfshow [TOPIC]
Gives information about Guile.

With one argument, tries to show a particular piece of information;

currently supported topics are `warranty' (or `w'), `copying' (or `c'),
and `version' (or `v').

Without any argument, a list of topics is displayed.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
%
��		>
C0�g��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
%
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
%
��		,C>"G4)i�.h�]4>"G6�grepl
		gfilenamefsystem/repl/command.scm�
>
��	A	��	B	��		g
documentationf.show warranty
Details on the lack of warranty.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
>
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
>
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
>
��		,C>"G4)i�/h�]4>"G6�grepl
		gfilenamefsystem/repl/command.scm�
D
��	G	��	H	��		g
documentationfshow copying
Show the LGPLv3.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
D
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
D
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
D
��		,C>"G4)i�0h�]4>"G6�grepl
		gfilenamefsystem/repl/command.scm�
J
��	M	��	N	��		g
documentationf!show version
Version information.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
J
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
J
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
J
��		,C>"G4)iii1h�]456�grepl
		
gregexp		
gfilenamefsystem/repl/command.scm�
P
��	S	��	
S	��		
	g
documentationf.apropos REGEXP
Find bindings/modules/packages.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
P
��		>
C0�i��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
P
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
P
��		,C>"G4)il234�5hP9]
4445�$4455"	455>"G61grepl
		Igform		Iginput			6gfilenamefsystem/repl/command.scm�
U
��	X	��	Y	��		Z	��	Z	��	[	��	[	��	\	��	\	��	&\	��	+]	��	8Y	��	=X	��	I^	��		I	g
documentationf,describe OBJ
Show description/documentation.�C0�l��h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�
U
��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�
U
��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�
U
��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
U
��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
U
��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
U
��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�
U
��		MC>"G4)i�
07h�]���6zgspec
		gfilenamefsystem/repl/command.scm�
e	��	f	��	
f	+��	
f	6��	f	��		C89:�;
h��-13(
456"B�$9���$&��(44556CCC�$1��(445>"G	6"���"����grepl
		�gargs		�gvx		-	`gvy		-	`gvx		>	^gvy		>	^gvx		o�gvy		o�gfilenamefsystem/repl/command.scm�
`
��	c	��	g	��	e	��	 c	��	On	!��	Tn	+��	Zn	!��	\n	��	bc	��	zi	��	}i	���i	���j	���c	��		�
g
documentationf*option [NAME] [EXP]
List/show/set options.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
`
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
`
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
`
��		,C>"G4)i�<�h�]6�grepl
		gfilenamefsystem/repl/command.scm�
p
��	s		��	s	��		g
documentationfquit
Quit this session.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
p
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
p
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
p
��		,C>"G4)ip=>�a?hhk-13(44556�$8��(�$456456456456cgrepl
			ggargs			ggvx		*	\gvy		*	\gfilenamefsystem/repl/command.scm�
z
��	}	��	~	��	~	��	~	��	~	��	 }	��	7	��	;}	��	>�	��	F�	��	I�	#��	Q�	��	T�	#��	\�	��	_�	#��	g�	��			g
g
documentationf5module [MODULE]
Change modules / Show current module.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
z
��		>
C0�p��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
z
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
z
��		,C>"G4)is
=�>@�AB�0Ch(�]	45$4566�gname
		%gmod			%gfilenamefsystem/repl/command.scm�
�	��	�	��		�	��	�	��	�	��	�	��	!�	��	%�	��			%gnameguse�Ch0-13(44455566�grepl
			.gargs			.gfilenamefsystem/repl/command.scm�
�
��	�	��	�	��	�	(��	�	5��	"�	(��	$�	��	&�	��	.�	��
			.
g
documentationf9import [MODULE ...]
Import modules / List those imported.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0�s��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)ivFG1h�]456�grepl
		gfile		gfilenamefsystem/repl/command.scm�
�
��	�	��	�	��	�	��			g
documentationf,load FILE
Load a file in the current module.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0�v��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)iyH�?hhu-13(	456�$8��(�$456456456456mgrepl
			bgargs			bgvx		%	Wgvy		%	Wgfilenamefsystem/repl/command.scm�
�
��	�	��	�	��	�	��	�	��	2�	��	6�	��	9�	��	A�	��	D�	��	L�	��	O�	��	W�	��	Z�	��	b�	��			b
g
documentationfQreload [MODULE]
Reload the given module, or the current module if none was given.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0�y��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)i|I0Jh|]6tgk
		
gv		
gfilenamefsystem/repl/command.scm�
�	��	�	,��	
�	!��		
	C�h�]456�grepl
		
gfilenamefsystem/repl/command.scm�
�
��	�	��	
�	��		
g
documentationfbinding
List current bindings.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0�|��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)i?KtLa�h(x]4L>"G44L55LL@pgfilenamefsystem/repl/command.scm�
�	��	�	��	�	��	�	(��	 �	��	&�	��		&
CM:0NOh�-13	45$��$���&��$d��(845$O6(456	
6(456	
6(456	
6(456	
6(456	
6	6�grepl
		�gmodule		�gcommand-or-expression			�gargs			�gm		�gvx		(�gvy		(�gvx		A�gvy		A�	gfilenamefsystem/repl/command.scm�
�
��	
�	��	�	��	�	��	�	��	L�	&��	V�	��	g�	��	m�	��	r�	��	|�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	��$		�	
	g
documentationf[in MODULE COMMAND-OR-EXPRESSION
Evaluate an expression or command in the context of module.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0���h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)iWY�0PQRSV	hX%]454544545>"G4>"G456grepl
		Tgname		Tglang			Tgcur			Tgfilenamefsystem/repl/command.scm�
�
��	�	��	
�	
��	�	��	�	��	�	��	�	��	"�	"��	-�	��	6�	��	T�	��		T	g
documentationf#language LANGUAGE
Change languages.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0�W��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)iW3XYMh0�]
445545$66�grepl
		-gform		-gx			-gfilenamefsystem/repl/command.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	%�	��	-�	��
		-	g
documentationf#compile EXP
Generate compiled code.�C0���h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�
�
��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�
�
��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�
�
��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�
�
��		MC>"G4)i��1Zh�-13456�grepl
			gfile			gopts				gfilenamefsystem/repl/command.scm�
�
��	�	��	�	��				
	g
documentationf!compile-file FILE
Compile a file.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)i�[3\]Dh0�]
44554>"G6�grepl
		.gform		.gx			.gfilenamefsystem/repl/command.scm�
�
��	�	��	�	��	�	��	�	��	�	��	.�	��		.	g
documentationf'expand EXP
Expand any macros in a form.�C0����h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�
�
��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�
�
��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�
�
��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�
�
��		MC>"G4)i�^3\]Dh0]
44554>"G6	grepl
		.gform		.gx			.gfilenamefsystem/repl/command.scm�
�
��	�	��	�	��	�	��	�	��	�	��	.�	��		.	g
documentationfGoptimize EXP
Run the optimizer on a piece of code and print the result.�C0����h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�
�
��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�
�
��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�
�
��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�
�
��		MC>"Gbh�]6�gx
		gfilenamefsystem/repl/command.scm�
�
��	�	��	�	��		gnamegguile:disassemble�CYR4)i�53cXY0dhH9]445545$"45$661grepl
		Egform		Egobj			Egt			2gfilenamefsystem/repl/command.scm�
�
��	�	
��	�	��	�	
��	�	��	�	��	�	��	)�	��	6�	��	<�	��	A�	��	E�	��
		E	g
documentationf1disassemble EXP
Disassemble a compiled procedure.�C0����h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�
�
��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�
�
��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�
�
��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�
�
��		MC>"G4)i�Ye1h�]44556�grepl
		gfile		gfilenamefsystem/repl/command.scm�
�
��	�	��	�	#��	�	��	�	��			g
documentationf)disassemble-file FILE
Disassemble a file.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)i�fgh53M0ijkh�D]:45454544554545454>"G4�	�
��	�
��	�
�>"GC<grepl
	�gform	�ggc-start		�g
real-start		�g	run-start		�gresult		'�grun-end		.�greal-end		5�ggc-end		<�	gfilenamefsystem/repl/command.scm�
�
��	�	��	�	��	
�	��	�	��	�	��	�	��		��		!��	'	��	'�	��	*	��	.�	��	1	��	5�	��	8	��	<�	��	?	��	S	��	X	��	]		��	_	��	`	��	h		��	j	��	k	��	s		��	u	��	v	��	~	��	�	g
documentationftime EXP
Time execution.�C0����h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�
�
��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�
�
��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�
�
��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�
�
��		MC>"G4)i�Nl3h �-134455@�grepl
			gform			gopts				gfilenamefsystem/repl/command.scm�

��			��		'��			��		��				
	g
documentationfprofile EXP
Profile execution.�C0����h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�

��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�

��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�

��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�

��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�

��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�

��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�

��		MC>"G4)i\^l3mnh(�-13445545@�grepl
			&gform			&gopts				&gfilenamefsystem/repl/command.scm�

��			��		'��			��		��	&	��			&	
	g
documentationftrace EXP
Trace execution.�C0�\��h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�

��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�

��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�

��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�

��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�

��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�

��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�

��		MC>"G4,o-0qrstuvw0x�������������hh�]LLL��LL��	�
�LL���
���C�gt-3ee4d7042b-8e0
		bgt-3ee4d7042b-8e1		bgt-3ee4d7042b-8e2			bgt-3ee4d7042b-8e3			bgt-3ee4d7042b-8e6			bgt-3ee4d7042b-8e5			bgt-3ee4d7042b-8e4			b		b	Chx�]4545454545454545$	O@
6�gname
		ugrepl		ugargs			ug	docstring			ugbody			ugbody*			ugtmp		D	ugtmp		O	ugfilenamefsystem/repl/command.scm�	+	��		+	/��	+	��	-	��	-	/��	-	��	/	��	/	/��	/	��	1	��	$1	/��	&1	��	'5	��	-5	/��	/5	��	07	&��	67	<��	87	&��	98	&��	?8	<��	A8	&��	D&	��		u	Ch(k]	45$@6cgx
		"gtmp		"gfilenamefsystem/repl/command.scm�
#	��		"C5oR4)i��n����m���0�
hh�-/03##45#45$ 45	4
56	6�grepl
		hgcount		hgwidth			hgfull?			hgdebug		9	hgfilenamefsystem/repl/command.scm�
<
��	#=	.��	3<
��	aC	��	f<
��		hgwidthS	�gfull?S	�g
documentationf�backtrace [COUNT] [#:width W] [#:full? F]
Print a backtrace.

Print a backtrace of all stack frames, or innermost COUNT frames.
If COUNT is negative, the last COUNT frames will be shown.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
<
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
<
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
<
��		,C>"G4)i���0�����V�����h@Z-.,3#45$45�$"
�$645�4455�${454455��$644	54455�>"G
4545�4545
�$4
5"644	545�>"G
4545�4545
�$4
5"66Rgrepl
	@gcount	@gdebug		@gt		,	@gfilenamefsystem/repl/command.scm�
I
��	%P	
��	,P	��	,P	��	=P	��	DO	��	IQ	��	KQ	��	UR	��	VR	��	bR	��	fO	��	nT	��	zT	��	{T	��	S	���U	���U	���W	���W	���W	���W	���Y	'���Y	"���X	���[	���[	���[	��&]	%��+]	 ��9\	��>I
��!	@g
documentationf�up [COUNT]
Select a calling stack frame.

Select and print stack frames that called this one.
An argument says how many frames up to go.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
I
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
I
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
I
��		,C>"G4)i���0���V������h-.,3#45$�45�$"
�$645�
�$Q45
�$6445
>"G4	545�
4545644545�>"G4	545�
4545
�$45"6
6grepl
	gcount	gdebug		gt		,	@gfilenamefsystem/repl/command.scm�
_
��	%f	
��	,f	��	,f	��	=f	��	De	��	Ig	��	Kg	��	Uh	��	Wh	��	[e	��	cj	��	hi	��	mk	��	ok	��	pm	���n	���p	���p	���p	���r	%���r	 ��q	��	_
��	g
documentationf�down [COUNT]
Select a called stack frame.

Select and print stack frames called by this one.
An argument says how many frames down to go.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
_
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
_
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
_
��		,C>"G4)i)��0���V�������h�-.,3#45$�$�45�$"
�$64455�$P445>"G	4545�
4545
�$45"6
6	4545�
4545
�$45"66�grepl
	�gidx	�gdebug		�gt		2	Fgfilenamefsystem/repl/command.scm�
t
��	*z	��	+}	��	2}	
��	2}	��	C}	��	J|	��	O~	��	Q~	��	T	
��	`	��	d|	��	e�	����	'����	"����	����	����	����	*����	%����		���t
��	�g
documentationflframe [IDX]
Show a frame.

Show the selected frame.
With an argument, select a frame by index, then show it.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
t
��		>
C0�)��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
t
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
t
��		,C>"G4)i��M���0�h8�]	45$44545�566�grepl
		2gdebug			2gfilenamefsystem/repl/command.scm�
�
��	�	��	+�	��	0�
��		2g
documentationf5procedure
Print the procedure for the selected frame.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)i��n����m0�
hP-/03#4545$4545�6	6grepl
		Mgwidth		Mgdebug		'	Mgfilenamefsystem/repl/command.scm�
�
��	�	0��	!�
��	F�	��	K�
��		M
gwidthS�g
documentationfQlocals
Show local variables.

Show locally-bound variables in the selected frame.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)i��0�����h@3]	45$$4455$45"66+grepl
		<gdebug			<gfilenamefsystem/repl/command.scm�
�
��	�	
��	�	��	&�	��	3�	2��	5�	��	:�
��		<g
documentationfyerror-message
Show error message.

Display the message associated with the error that started the current
debugging REPL.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)i�53��0����
h@~]445545$45456	6vgrepl
		@gform		@gproc			@gidx		&	8gfilenamefsystem/repl/command.scm�
�
��	�	��	�	��	�	��	�	��	�	
��	�	��	 �	��	&�	��	-�	��	0�	*��	8�	
��	<�	��	@�	��		@	g
documentationfabreak PROCEDURE
Break on calls to PROCEDURE.

Starts a recursive prompt when PROCEDURE is called.�C0����h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�
�
��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�
�
��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�
�
��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
�
��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�
�
��		MC>"G4)i��0��h8�]�$45"45456�grepl
		3gfile		3gline			3gfile			3gidx		!	3gfilenamefsystem/repl/command.scm�
�
��	�	��		�	��	
�	!��	�	��	�	��	!�	��	(�	��	+�	&��	3�	��		3	g
documentationf�break-at-source FILE LINE
Break when control reaches the given source location.

Starts a recursive prompt when control reaches line LINE of file FILE.
Note that the given source location must be inside a procedure.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G�,���h�]L44556{gframe
		gfilenamefsystem/repl/command.scm�
�	��	�	��	
�	��	�	��	�	��		Ch[]OCSgk
		
gfilenamefsystem/repl/command.scm�
�	��		
C0�,��
Mhd]L6\gx
		
gfilenamefsystem/repl/command.scm�
�	��	
�	'��		
C4A����h�S]4>G4L>"G45(4>"G",4>"G4	LO>"G4
45
54
L56Kgfrom
	
�gstack	
�gvals		0	~gfilenamefsystem/repl/command.scm�	�	��	�	��	�		��	�	��	!�		��	*�	��	0�		��	8�	��	9�	��	>�	��	C�	��	P�	��	U�	��	Z�	��	c�	��	�	
����	����	)����	����	>����	
����	����		��	�
Ch0�]45U4O>XCXFG@�grepl
		.gmsg		.ghandler			.gargs		#	.gfilenamefsystem/repl/command.scm�
�
��	�	��		.	gnamegrepl-pop-continuation-resumer�C�R4)i���0����<��h`\]45$G444545�5544545�>"G	6
6Tgrepl
		_gdebug			_ghandler		/	Xgfilenamefsystem/repl/command.scm�
�
��	�	��	�	��	�	"��	-�	��	/�	��	/�	��	2�	��	V�	��	X�	��	]�
��		_g
documentationfifinish
Run until the current frame finishes.

Resume execution, breaking when the current frame finishes.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G�,��hq]L456igframe
		
gfilenamefsystem/repl/command.scm�
�	��	�	��	
�	��		
Ch[]OCSgk
		
gfilenamefsystem/repl/command.scm�
�	��		
C0�4A����h@�]454L>"G4455	4

L56�gstack
			=gfilenamefsystem/repl/command.scm�	�	��		�	��	�	��	�	��	�	��	!�	��	$�	��	(�	'��	*�	��	,�	<��	.�	��	1�	��	=�	��		=
Ch0�]45U4O>XCXFG@�gmsg
		,ghandler		,gargs		!	,gfilenamefsystem/repl/command.scm�
�
��	�	��		,gnamegrepl-next-resumer�C�R4)i��0�������<��
hhd]45$K44545�544545�45	>"G
66\grepl
		cgdebug			cgmsg		(	\gfilenamefsystem/repl/command.scm�
�
��	�	
��	�	��	(�	
��	(�	��	+�	��	=�	&��	N�	��	Z�	��	\�	��	a�
��		cg
documentationfustep
Step until control reaches a different source location.

Step until control reaches a different source location.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)i��0�������<��
hhk]45$K44545�544545�45	>"G
66cgrepl
		cgdebug			cgmsg		(	\gfilenamefsystem/repl/command.scm�
�
��	�	
��	�	��	(�	
��	(�	��	+�	��	=�	&��	N�	��	Z�	��	\�	��	a�
��		cg
documentationf|step-instruction
Step until control reaches a different instruction.

Step until control reaches a different VM instruction.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)i��0�������<��
hh�]45$K44545�544545�45	>"G
66�grepl
		cgdebug			cgmsg		(	\gfilenamefsystem/repl/command.scm�
�
��	�	
��	�	��	(�	
��	(�	��	+�	��	=�	&��	N�	��	Z�	��	\�	��	a�
��		cg
documentationf�next
Step until control reaches a different source location in the current frame.

Step until control reaches a different source location in the current frame.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
�
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
�
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
�
��		,C>"G4)i��0�������<��
hh�]45$K44545�544545�45	>"G
66�grepl
		cgdebug			cgmsg		(	\gfilenamefsystem/repl/command.scm�

��		
��		��	(	
��	(	��	+	��	=	&��	N	��	Z	��	\	��	a
��		cg
documentationf�next-instruction
Step until control reaches a different instruction in the current frame.

Step until control reaches a different VM instruction in the current frame.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�

��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�

��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�

��		,C>"G4)i�53��0����
h@�]445545$45456	6�grepl
		@gform		@gproc			@gidx		&	8gfilenamefsystem/repl/command.scm�


��		��		��		��		��		
��		��	 	��	&	��	-	��	0	*��	8	
��	<	��	@	��		@	g
documentationf�tracepoint PROCEDURE
Add a tracepoint to PROCEDURE.

A tracepoint will print out the procedure and its arguments, when it is
called, and its return value(s) when it returns.�C0����h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�


��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�


��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�


��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�


��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�


��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�


��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�


��		MC>"G4)i�0
0�h(�]4545$"6�gidx
		%gfilenamefsystem/repl/command.scm�
	��		��	
 	 ��	!	 ��	!	��	!	4��	#!	7��	%	��			%Ch 3]	45(66+grepl
		gtraps		gfilenamefsystem/repl/command.scm�

��		��		��		��		��		��		��		g
documentationfxtraps
Show the set of currently attached traps.

Show the set of currently attached traps (breakpoints and tracepoints).�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�

��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�

��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�

��		,C>"G4)i���h �]45$66�grepl
		gidx		gfilenamefsystem/repl/command.scm�
$
��	)	��	
)	��	+	��	*	
��	*	��			g
documentationf)delete IDX
Delete a trap.

Delete a trap.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
$
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
$
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
$
��		,C>"G4)i���h �]45$66�grepl
		gidx		gfilenamefsystem/repl/command.scm�
-
��	2	��	
2	��	4	��	3	
��	3	��			g
documentationf,disable IDX
Disable a trap.

Disable a trap.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
-
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
-
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
-
��		,C>"G4)i���h �]45$66�grepl
		gidx		gfilenamefsystem/repl/command.scm�
6
��	;	��	
;	��	=	��	<	
��	<	��			g
documentationf)enable IDX
Enable a trap.

Enable a trap.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
6
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
6
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
6
��		,C>"G4)i��	��0�h0�]	45$4545�66�grepl
		+gdebug			+gfilenamefsystem/repl/command.scm�
?
��	$D	��	)?
��		+g
documentationfEregisters
Print registers.

Print the registers of the current frame.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
?
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
?
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
?
��		,C>"G4)i
n0h8-.,3#4>"G456grepl
		3gx		3gfilenamefsystem/repl/command.scm�
F
��	L	��	,M	
��	-M	1��	3M	��		3g
documentationfpwidth [X]
Set debug output width.

Set the number of screen columns in the output from `backtrace' and
`locals'.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
F
��		>
C0�
��h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
F
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
F
��		,C>"G4)iHl3
Jh(]
44455>G6�grepl
		&gform		&gargs			&gfilenamefsystem/repl/command.scm�
U
��	X	��	X	��		X	2��	X	��	X	��	&Z	��		&	g
documentationf4inspect EXP
Inspect the result(s) of evaluating EXP.�C0�H��h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�
U
��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�
U
��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�
U
��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
U
��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
U
��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
U
��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�
U
��		MC>"G4)iBl3
\]Dh m]4>"G6egx
		gfilenamefsystem/repl/command.scm�
b	��	c		��	d		��		Ch(]
44455>G6grepl
		&gform		&gargs			&gfilenamefsystem/repl/command.scm�
\
��	_	��	_	��		_	2��	_	��	_	��	&a	��		&	g
documentationf>pretty-print EXP
Pretty-print the result(s) of evaluating EXP.�C0�B��h�]3�$����$����$K��4>"G445>"G"4>"G"4>"G"4>"G6g	form-name
	�gkey	�gargs		�gvx		�gvy		�gvx		 �gvy		 �gvx		1	rgvy		1	r	gfilenamefsystem/repl/command.scm�
\
��	�	gnameghandle-read-error�C,��Z��h0^-.,3#4544L55456Vgport
		.gfilenamefsystem/repl/command.scm�
\
��		.
ChJ]LO6Bgfilenamefsystem/repl/command.scm�
\
��		
C6hm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
\
��			
C(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
\
��		>
Chm-13L6egk
			gargs			gfilenamefsystem/repl/command.scm�
\
��			
C	hP�]45U64OO544O5>XCXFGC�grepl
		Mghandle-read-error		Mgform		$	Bgk		F	Mgfilenamefsystem/repl/command.scm�
\
��		MC>"G4)i��h�]6�grepl
		gfilenamefsystem/repl/command.scm�
l
��	o	��		g
documentationfgc
Garbage collection.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
l
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
l
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
l
��		,C>"G4)i�
 !"#$%&'()*+,-.V&h�;]a4545454545454	>"G4
>"G45454
>"G4�>"G4
>"G45454
>"G4>"G4
>"G45454
>"G4>"G4
>"G4545454545454545
	4
 >"G4!>"G4">"G4#	
>"G4$>"G4
>"G	
44%5>"G4%563grepl
	|gthis-tms	|gthis-gcs		|glast-tms		|glast-gcs		|g
this-times		4	gg
last-times		4	gg	this-heap		y�g	this-free		y�g
this-alloc	� g
last-alloc	� g
this-total	2xg
last-total	2xg
this-utime	�Vg
last-utime	�Vg
this-stime	�Vg
last-stime	�Vgthis-cutime		�Vglast-cutime	
�Vgthis-cstime	�Vglast-cstime	�Vgfilenamefsystem/repl/command.scm�
q
��	t	��	u	��	
v	��	w	��	t	��	#y	��	)y	*��	+y	��	,z	��	2z	*��	4z	��	4y	��	9{	��	={	��	D{	>��	I{	��	R|	��	h~	��	n~	)��	p~	��	q	��	w	*��	y	��	y~	��	~�	����	����	)����	3����	����	����	����	����	@����	����	����	����	)����	����	����	)����	����	����	����	����	-����	4����	����	����	����	>���	���	��!�	��'�	)��)�	��*�	��0�	)��2�	��2�	��7�	��;�	��=�	+��?�	2��D�	��M�	��Q�	��Z�	��c�	��y�	����	����	����	����	����	����	����	����	����	����	����	0����	7����	����	����	����	����	����	����	���	���	���	���	���	��&�	��/�	��W�	��|�	��c	|g
documentationfstatistics
Display statistics.�C,(����h@|]4455"%4545$6�"���"���tgport
		>gout		7gx			7gfilenamefsystem/repl/command.scm�
q
��		>
C0����h��-13�$����$���$J��4>"G445>"G"4>"G"4>"G"4>"G6�gk
		�gargs		�gvx		�gvy		�gvx		'�gvy		'�gvx		8	xgvy		8	xgfilenamefsystem/repl/command.scm�
q
��		�
Ch0k]	45U445>XCXFGCcgrepl
		,gk	%	,gfilenamefsystem/repl/command.scm�
q
��		,C>"G0/0h0]
4$"56gtitle
		)gflag		)gfield1			)gfield2			)gunit			)gfmt			)gfilenamefsystem/repl/command.scm�
�
��	�	
��	�	��	�	8��	�	A��	�	D��	�	
��	�	��	)�	��
		)	gnamegdisplay-stat�CRh�]6�gtitle
		gfield1		gfield2			gfilenamefsystem/repl/command.scm�
�
��	
�	'��	�	��			gnamegdisplay-stat-title�CRh�]�6�gtitle
		gflag		gthis			glast			gunit			gfilenamefsystem/repl/command.scm�
�
��	
�	��	�	��			gnamegdisplay-diff-stat�CR012k3h@8]�44�5544�5560gtitle
		9gthis		9glast			9gnum			#gfilenamefsystem/repl/command.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	(��	�	��	 �	��	)�	��	*�	��	1�	(��	3�	��	5�	��	7�	:��	9�	��		9	gnamegdisplay-time-stat�C%R40156h`�]��
�$"4��5
�$"4��56�gtitle
		[g	this-time		[g
this-clock			[g	last-time			[g
last-clock			[gtime			9gclock			9gfilenamefsystem/repl/command.scm�
�
��	�	��	�	.��	�	��	�	��	�	��	�	��	$�	��	)�	%��	.�	.��	0�	<��	1�	.��	3�	��	=�	��	A�	��	C�	��	H�	��	M�	%��	R�	.��	T�	<��	U�	.��	W�	��	Y�	,��	[�	��		[	gnamegdisplay-mips-stat�C7RC;gm
		0gfilenamefsystem/repl/command.scm�		
��	2	3	��	5	2
��	7	H	��	:	G
���	J
��_	K
��`	M	��i	M
���	N
���	O
��=	P
���	Q
���	R
��L	T
���	W
���	Z
��o	]
���	a
��	a	h
��/	k
��
H	s
��O	|
���
����
���
����
����
��!��
��.q%
��5�>
��:D
��>QJ
��B�P
��GU
��O`
��U�p
��Y�z
��_Y�
��e9�
��i��
��o)�
��t�
��|A�
���i�
����
�����
����
���n�
���o�
���b�
�����
���2
����
��ƒ<
���iI
��ӹ_
��ڑt
���)�
�����
����
����
���J�
����
����
����
����
���
����
��A
��!�

��*r
��0I$
��4�-
��9�6
��>?
��B�F
��G�U
��OJ\
��W�l
��[�q
��i��
��j��
��k��
��ml�
��o��
��W	o�
C6system/repl/server.go000064400000042115150536206120010672 0ustar00GOOF----LE-8-2.05D]�4h�]gguile�	�	gdefine-module*�	�	�	gsystem�	grepl�	gserver�		�	
gfilenameS�	fsystem/repl/server.scm�	gimportsS�	
�	
�	gice-9�	gthreads�	�	�	grdelim�	�	�	gmatch�	�	�	giconv�	�	�	grnrs�	gbytevectors�	�	�	 gio�	!gports�	" !�	#"�	$gsrfi�	%gsrfi-1�	&$%�	'&�	(gsrfi-26�	)$(�	*)�	+#'*	�	,gexportsS�	-gmake-tcp-server-socket�	.gmake-unix-domain-server-socket�	/g
run-server�	0gspawn-server�	1gstop-server-and-clients!�	2-./01�	3gset-current-module�	43�	53�	6g*open-sockets*�	7g
make-mutex�	8gsockets-lock�	9g
lock-mutex�	:9�	;9�	<gunlock-mutex�	=<�	><�	?gassq-remove!�	@g
close-port�	Ag
close-socket!�	Bgadd-open-socket!�	Cgerror�	DC�	EC�	Ffno matching pattern�	GghostS�	HG
��	IgaddrS�	JI��	KgportS�	LK	��	MHJL�	Ng	inet-aton�	OgINADDR_LOOPBACK�	Pgsocket�	QgPF_INET�	RgSOCK_STREAM�	Sg
setsockopt�	Tg
SOL_SOCKET�	UgSO_REUSEADDR�	Vgbind�	WgAF_INET�	XgpathS�	YX
��	ZY�	[f/tmp/guile-socket�	\gPF_UNIX�	]gAF_UNIX�	^gdelete-duplicates�	_g
filter-map�	`gand=>�	agmodule-variable�	bgthe-root-module�	cgvariable-ref�	dgEINTR�	egEAGAIN�	fgEWOULDBLOCK�	gdef�	hg
errs-to-retry�	igrun-server*�	jgserve-client�	kgcatch�	lgselect�	mgmemq�	ngaccept�	ogsystem-error-errno�	pgmemv�	qgwarn�	rfError accepting client�	sgsleep�	tgpipe�	ugfcntl�	vgF_SETFL�	wg
O_NONBLOCK�	xgF_GETFL�	yg	sigaction�	zgSIGPIPE�	{gSIG_IGN�	|gdisplay�	}gforce-output�	~glisten�	gcall-with-new-thread������g%thread-handler��������gclose��gcurrent-thread��gset-thread-cleanup!��g
cancel-thread��gguard-against-http-request��gwith-continuation-barrier��gcurrent-input-port��gcurrent-output-port��gcurrent-error-port��gcurrent-warning-port��g
parameter?��������g	scm-error��gwrong-type-arg��fparameterize��fNot a parameter: ~S��g*repl-stack*��g
start-repl��gport-closed?��g
port-encoding��gset-port-encoding!��gwith-temporary-port-encoding��g	port-line��gport-column��gset-port-line!��gset-port-column!��gwith-saved-port-line+column��gchar-ready?��gget-bytevector-some��gbytevector?��gbytevector->string��f
ISO-8859-1��gstring-concatenate-reverse��gsetvbuf��g_IOFBF��gdrain-input-and-close��gucs-range->char-set��gmake-regexp��g
string-append��f2^(OPTIONS|GET|HEAD|POST|PUT|DELETE|TRACE|CONNECT) ��f[^ ]+ ��fHTTP/[0-9]+.[0-9]+$��gstring-every��gregexp-exec��gpermissive-http-request-line?��gread-delimited��f
��gpeek��geof-object?��gdone��g%make-void-port��frw��gcall-with-port��g	dup->port��fw��gformat��f�
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ POSSIBLE BREAK-IN ATTEMPT ON THE REPL SERVER                @@
@@ BY AN HTTP INTER-PROTOCOL EXPLOITATION ATTACK.  See:        @@
@@ <https://en.wikipedia.org/wiki/Inter-protocol_exploitation> @@
@@ Possible HTTP request received: ~S
@@ The associated socket has been closed.                      @@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
��g
unread-string��gcheck-for-http-request��g%set-port-property!��gguard-against-http-request?��g%port-property��gmaybe-check-for-http-request��g	add-hook!��gbefore-read-hook�C5h�1�]4	
+,2545>"G6R47i58R8;hI]L6Agfilenamefsystem/repl/server.scm�
	/	��		
C>hI]L6Agfilenamefsystem/repl/server.scm�
	/	��		
C?6@hX�]	OO4O>"GV45 X4O>"G6�gs
		Tgx		Ngfilenamefsystem/repl/server.scm�
	.
��		/	��	+	0	��	5	0	��	7	/	��	T	3	��		Tgnameg
close-socket!�CAR8;hI]L6Agfilenamefsystem/repl/server.scm�
	7	��		
C>hI]L6Agfilenamefsystem/repl/server.scm�
	7	��		
C6hh�]
OO4O>"GV�� X4O>"GCX4O>"GF�gs
		cgforce-close		cgx			cgfilenamefsystem/repl/server.scm�
	6
��		7	��	/	8	��	4	8	��	7	7	��		c	gnamegadd-open-socket!�CBR8;hI]L6Agfilenamefsystem/repl/server.scm�
	<	��		
C>hI]L6Agfilenamefsystem/repl/server.scm�
	<	��		
C6EF1	h�](OO4O>"GV("T�$?���$�� "4455"4455X4O>"G$4>"G6Cgx
	�gv	,�gw		F	{gx		F	{gx		T	cgt
��gfilenamefsystem/repl/server.scm�
	:
��		<	��	,	=	��	^	@		��	h	=	���	<	���	;	���	C		���	D		��
	�
gnamegstop-server-and-clients!�C1RMNOPQRSTUVWh�-/03##$45"#�4
54	>"G4
>"GCghost
	�gaddr	�gport		�gsock		R�gfilenamefsystem/repl/server.scm�
	F
��	(	H	 ��	)	H	)��	I	J	��	R	J	��	U	K	��	l	L	��	�

ghostS
�gaddrS�gportS	�gnamegmake-tcp-server-socket�C-RZ[P\RSTUV]h`�-/03#4
54>"G4	
>"GC�gpath
		Ygsock	'	Ygfilenamefsystem/repl/server.scm�
	O
��		O	5��		P	��	'	P	��	*	Q	��	A	R	��		Y

gpathS
�gnamegmake-unix-domain-server-socket�C.R4^i4_i`abchl]456dgname
		gfilenamefsystem/repl/server.scm�
	Y	��		Z	��		Z	��		Cg55hR-ijh(�-.,3#456�g
server-socket
		!gfilenamefsystem/repl/server.scm�
	^
��		^	/��	!	_	��		!
gnameg
run-server�C/Rklmnh(�]4M5�4M5$CL6�gready-ports
		#gfilenamefsystem/repl/server.scm�
	s	��		t	 ��		t	8��			t	<��		t	 ��		t	��		t	��		v	��		v	
��	#	w	��		#
CophqrshP�-134545$L64>"G4>"GL6�gk-args
			Lgerr		Lgfilenamefsystem/repl/server.scm�
	x	��	
	y	��		y	��		{	��		z	
��	#	|	��	$	~	��	(	~	��	/	~	��	8�	��	L�	��			L


Ch o]LLLOLO6ggfilenamefsystem/repl/server.scm�
	q	��		r	��		
gnamegaccept-new-client�Ctuvwxyz{B|}h u]4!M>"GM6mgfilenamefsystem/repl/server.scm�
	i	��		j	��		k	��		
gnamegshutdown-server�C~�hJ]LLL6Bgfilenamefsystem/repl/server.scm�
�	
��		

C��hq]BHHHHOQ45KJ�KJ�KJK445�>"G4	>"G4
O>"G4	>"G"b$2��	4
	O>"G45"���4J>"G4J>"G645"���ig
server-socket
	gserve-client	gshutdown-pipes		gshutdown-read-pipe		gshutdown-write-pipe		gmonitored-ports		gaccept-new-client		gclient	�g
client-socket	��gclient-addr		��
gfilenamefsystem/repl/server.scm�
	b
��	%	d	��	.	e	��	3	f	��	<	n	��	?�	��	H�	��	Q�		��	V�	��	_�	��	s�	����	����	����	����	����	����	����	
����	����	
����	����	���	���	���	���	��		gnamegrun-server*�CiR-�/hJ]L6Bgfilenamefsystem/repl/server.scm�
�	��		
C�h(�-.,3#45O6�g
server-socket
		&gfilenamefsystem/repl/server.scm�
�
��	�	1��	&�	��		&
gnamegspawn-server�C0R��AhS]L6Kgfilenamefsystem/repl/server.scm�
�	 ��	�	+��		
CB�hS]L6Kgfilenamefsystem/repl/server.scm�
�	��	�	(��		
C�������������h�] 45$"4	>"G45$"4	>"G45$"4	>"G45$"4	>"G����4	�L54	�L54	�L54	�L5Y
Y4>Z"ZCZF�gt-3d081069b-c3
	
gt-3d081069b-c4	
gt-3d081069b-c5		
gt-3d081069b-c6		
gfilenamefsystem/repl/server.scm�
�	��	
�	����	#����		��	
C	h`�]
454O>"G4O>"G4>"GO6�gclient
		[gaddr		[gthread			>gfilenamefsystem/repl/server.scm�
�
��	�	��	�	��	
�	��	#�	��	?�	��	[�	��		[	gnamegserve-client�CjR���h w]4L5$C4L5NLM6ogfilenamefsystem/repl/server.scm�
�	��	�	��	
�	��	�	��	�	
��	 �	
��		 
C���h w]4L5$C4L5NLM6ogfilenamefsystem/repl/server.scm�
�	��	�	��	
�	��	�	��	�	
��	 �	
��		 
C���h w]4L5$C4L5NLM6ogfilenamefsystem/repl/server.scm�
�	��	�	��	
�	��	�	��	�	
��	 �	
��		 
C���h w]4L5$C4L5NLM6ogfilenamefsystem/repl/server.scm�
�	��	�	��	
�	��	�	��	�	
��	 �	
��		 
C���h w]4L5$C4L5NLM6ogfilenamefsystem/repl/server.scm�
�	��	�	��	
�	��	�	��	�	
��	 �	
��		 
ChxS]HHOO4O>"GV4>X4O>"GCX4O>"GFKgport
		wgencoding		wgthunk			wgsaved-encoding			wgfilenamefsystem/repl/server.scm�
�
��	�	��	 �	��		w	gnamegwith-temporary-port-encoding�g
documentationfaCall THUNK in a dynamic environment in which the encoding of PORT is
temporarily set to ENCODING.�C�R���h(�]4L5$C4L5N4L5NCxgfilenamefsystem/repl/server.scm�
�	��	�	��	
�	��	�	��	�	
��	�	��	!�	
��		#
C���h0n]4L5$C4LM>"GLM6fgfilenamefsystem/repl/server.scm�
�	��	�	��	
�	��	�	
��	+�	
��		+
C���h(�]4L5$C4L5N4L5NCxgfilenamefsystem/repl/server.scm�
�	��	�	��	
�	��	�	��	�	
��	�	��	!�	
��		#
C���h0n]4L5$C4LM>"GLM6fgfilenamefsystem/repl/server.scm�
�	��	�	��	
�	��	�	
��	+�	
��		+
C���h0n]4L5$C4LM>"GLM6fgfilenamefsystem/repl/server.scm�
�	��	�	��	
�	��	�	
��	+�	
��		+
Chxt]HHOO4O>"GV4>X4O>"GCX4O>"GFlgport
		vgthunk		vg
saved-line			vgsaved-column			vgfilenamefsystem/repl/server.scm�
�
��	�	��	�	��		v	gnamegwith-saved-port-line+column�g
documentationf�Save the line and column of PORT before entering THUNK, and restore
their previous values upon normal or non-local exit from THUNK.�C�R������hP]"<4L5$4L5"45$45�"���6"����gchunks
		Bgresult		Bgfilenamefsystem/repl/server.scm�
�	��	�	��	�	��	�	��	�	��	�	��	 �	��	*�	
��	+�	��	1�	5��	3�	��	6�	��	<�	��	B�	��	B�	��	C�	��	I�	��		I
C��hS]L6Kgfilenamefsystem/repl/server.scm�
�	��	
�	��		

C@hS]L6Kgfilenamefsystem/repl/server.scm�
�	��	�	��		
Chp2]	OQOO4O>"GV4>X4O>"GCX4O>"GF*gsocket
		igthunk	
	igfilenamefsystem/repl/server.scm�
�
��	
�	��		ignamegdrain-input-and-close�g
documentationf�Drain input from SOCKET using ISO-8859-1 encoding until it would block,
and then close it.  Return the drained input as a string.�C�R4�i	 	~54�i4�i���55��h �]4L5$L6C�gline
		gfilenamefsystem/repl/server.scm�
�	��	�	��	�	��	�	��		g
documentationfQReturn true if LINE might plausibly be an HTTP request-line,
otherwise return #f.�CO�R����������������������h�]4LL56{gt-3d081069b-183
		gfilenamefsystem/repl/server.scm�
-	��	-	 ��		5	��	-	��		C�h�Q]4L545$C45$s454	>"G4
>"G4>"G4>"G4
L54	5O6L6Igv
	
�g	void-port	/	|g
drained-input��gfilenamefsystem/repl/server.scm�
	��		
��		!��		/��	
	
��		
��		
��	) 	��	- 	/��	/ 	��	/ 	
��	2!	��	D"	��	V#	��	h$	��	}(	"���(	
���,	���,	,���,	���,	���;	
��	�
ChS]LLO6Kgfilenamefsystem/repl/server.scm�
	��		��		
ChT]O6Lgsocket
		gfilenamefsystem/repl/server.scm�
�
��		'��		��		gnamegcheck-for-http-request�g
documentationf�Check for a possible HTTP request in the initial input from SOCKET.
If one is found, close the socket and print a report to STDERR (fdes 2).
Otherwise, put back the bytes.�C�R��h	]6gsocket
		gfilenamefsystem/repl/server.scm�
=
��	D	��	D	��		gnamegguard-against-http-request�g
documentationf\Arrange for the Guile REPL to check for an HTTP request in the
initial input from SOCKET, in which case the socket will be closed.
This guards against HTTP inter-protocol exploitation attacks, a scenario
whereby an attacker can, via an HTML page, cause a web browser to send
data to TCP servers listening on a loopback interface or private
network.�C�R������hP�-.,3#4545$(4>"G45$C6C�gsocket
		Pgfilenamefsystem/repl/server.scm�
F
��	G	��	K	��	 K	��	"K	��	&K	��	'L	��	9M	��	CM	��	KN	"��	NN	��		P
gnamegmaybe-check-for-http-request�g
documentationf�Apply check-for-http-request to SOCKET if previously requested by
guard-against-http-request.  This procedure is intended to be added to
before-read-hook.�C�R�i�i�i6�gm
		,gcs
't(�grx't(�gfilenamefsystem/repl/server.scm�		
��	-	(	��	0	(
��	1	*	��	:	*
��	.
��	6
���	:
���	F
��	�	O
��	�	X	��	�	Y	��
�	\	��
�	Y	��
�	X	��
�	W
��g	^
���	b
���
��N�
����
��#G�
��'U�
��'V�	��'a�	��'f�	
��'l�	��'n�	��'p�	��'r�	
��'t�	��'t�	��(��
��-w�
��/�=
��1�F
��1�Q
��&	1�
C6system/repl/repl.go000064400000026343150536206120010333 0ustar00GOOF----LE-8-2.0�,]�4h"]gguile�	�	gdefine-module*�	�	�	gsystem�	grepl�	�		gfilenameS�	
fsystem/repl/repl.scm�	gimportsS�	gbase�	
gsyntax�	
�	�	gpmatch�	�	�	gcompile�	�	�	glanguage�	�	�	gvm�	�	�	gerror-handling�	�	�	gcommon�	 �	! �	"gcommand�	#"�	$#�	%gice-9�	&gcontrol�	'%&�	('�	)!$(	�	*gexportsS�	+g
start-repl�	,grun-repl�	-+,�	.gset-current-module�	/.�	0.�	1g	read-char�	2geof-object?�	3gread-scheme-line-comment�	4gread�	5gread-scheme-datum-comment�	6g
language-name�	7gscheme�	8g	peek-char�	9gunread-char�	:gread-comment�	;gmeta�	<gmeta-command-token�	=gcurrent-input-port�	>gwith-input-from-port�	?gflush-leading-whitespace�	@glanguage-reader�	Agmeta-reader�	Bgchar-ready?�	Cgflush-all-input�	Dgcatch�	Egrepl-reader�	Fgrepl-prompt�	Gg
repl-language�	Hgcurrent-module�	Igquit�	Jgthrow�	Kgformat�	Lgcurrent-output-port�	MfWhile reading expression:
�	Ngprint-exception�	Ogprompting-meta-read�	PgdebugS�	QP��	RQ�	Sgcurrent-language�	Tgstart-repl*�	Ug
parameter?�	VU�	WU�	Xg	scm-error�	Ygwrong-type-arg�	Zfparameterize�	[fNot a parameter: ~S�	\g	run-repl*�	]g	make-repl�	^gmake-syntax-transformer�	_^�	`^�	agabort-on-error�	bgmacro�	cg$sc-dispatch�	dc�	ec�	fgany�	gfff�	hg
syntax-object�	igtop�	ji�	kgribcage�	lgdummy�	mgstring�	ngexp�	olmn�	pgm-1e9e6487f-43�	qpi�	rqjj�	sfl-1e9e6487f-48�	tfl-1e9e6487f-49�	ufl-1e9e6487f-4a�	vstu�	wkorv�	xk�	ygx�	zy�	{q�	|fl-1e9e6487f-45�	}|�	~kz{}�	jwx~��ghygiene�����hD���h���glambda��h����gkey��h����gargs��h���������hK���fWhile ~A:~%��h����hN���hL������h����������gabort��h�����������gsyntax-violation��������f-source expression failed to match any pattern��gdefault-prompt-tag��g%start-stack��������'���'���g*repl-stack*��grepl-welcome��gmeta-command��fWhile executing meta-command:~%��gnewline��gflush-to-newline��gcall-with-error-handling��grepl-prepare-eval-thunk��g
repl-parse��fparsing expression��fcompiling expression��grun-hook��gbefore-eval-hook��gon-errorS��grepl-option-ref��gon-error��gfor-each��g
repl-print��gtrap-handlerS��gdisabled��gchar-whitespace?��gchar=?�C5h��]4	
)*-540>"G12h8�]"*4545$C
�$C"���"����gport
		4gch	
	0gt			0gfilenamefsystem/repl/repl.scm�
	)
��		*	��		+	��	
	+	��		,	
��		,	��	&	-	
��	*	,	��	+	-	
��	0	.	
��	0	*	��		4gnamegread-scheme-line-comment�C3R4h�]6gport
		gfilenamefsystem/repl/repl.scm�
	0
��		1	��		gnamegread-scheme-datum-comment�C5R6713859h�]45&�;�$&4>"G4>"GC#�$`4>"G45;�$&4>"G4>"GC4#>"GCCCglang
	�gport	�gch		�gkey		`�gfilenamefsystem/repl/repl.scm�
	4
��		5	��		5	!��		5	��		6	��		8	
��	+	9	
��	G	6	��	H	<	
��	Z	=	��	`	=	
��	l	?	
��	~	@	
���	G	
��	�	gnamegread-comment�C:R;"�<R=>?21<:@hX�]4545$6,�$4>"GC4LL5$C4L5LL6�gch
		Rgfilenamefsystem/repl/repl.scm�
	W	��		X	��		X	��	
	Y	��		Y	
��		Z	��		[	��	!	Y	
��	"	\	��	5	^	��	C	Y	
��	F	`	��	R	`	��		R
Ch0k-.,3#45LLO6cgport
		*gfilenamefsystem/repl/repl.scm�
	U	��		U	��	*	V	��		*
Ch�]OCzglang
		genv		gfilenamefsystem/repl/repl.scm�
	T
��			gnamegmeta-reader�CARB281Ch8�]45$$4455$C4>"G6C�gfilenamefsystem/repl/repl.scm�
	b
��		c	��		c	��		d	��		d	��		d	��		c	��		f	��	/	g	��
		1
gnamegflush-all-input�CCRDEFhO]L6Ggfilenamefsystem/repl/repl.scm�
	s	��		s	��		
CAGHh o]LO44L54556ggfilenamefsystem/repl/repl.scm�
	r	��		t	��		t	 ��		t	5��		t	��		s	��		
CIJKLMNCh`�-13�$@445>"G445>"G4>"GC�gkey
			]gargs			]gfilenamefsystem/repl/repl.scm�
	u	��		v	��		x		��		z		��		z	��	$	z	'��	)	z		��	2	{		��	5	{	��	C	{		��	L	|		��			]
Ch�]O6ygrepl
		gfilenamefsystem/repl/repl.scm�
	p
��		q	��		gnamegprompting-meta-read�CORRSTOh8�-/03#45#6�glang
		3gdebug		3gfilenamefsystem/repl/repl.scm�
�
��	�	&��	3�	��		3
gdebugS�gnameg
start-repl�C+RSWXYZ[\]	hX�]45$"4>"G�4	�5Y445>ZCZF�glang
		Xgdebug		Xgprompting-meta-read			Xgt-1e9e6487f-3e			Xgfilenamefsystem/repl/repl.scm�
�
��	�	��	B�	��	E�	��	T�	��		X	gnamegstart-repl*�CTR4`abeg�������h(R]���CJgdummy
		&gstring		&gexp			&		&	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/repl/repl.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgstringgexpC5aR\Ohx]6pgrepl
		
gfilenamefsystem/repl/repl.scm�
�
��	
�	��		
gnamegrun-repl�C,R��hQ]L6Igfilenamefsystem/repl/repl.scm�
�	!��	�	1��		
ChI]LO6Agfilenamefsystem/repl/repl.scm�	�	!��		
ChQ]LL6Igfilenamefsystem/repl/repl.scm�
�	/��	�	:��		
Ch8�]45U4O>XCXFGO"����gthunk
		3gk		3gproc			3gfilenamefsystem/repl/repl.scm�
�	��	�	��	�	��	3�	��		3gnamegwith-stack-and-prompt�C���<D�hQ]L6Igfilenamefsystem/repl/repl.scm�
�	��	�	��		
CI�K�NLh8�-13&64>"G456�gk
			8gargs			8gfilenamefsystem/repl/repl.scm�
�	��	
�	��	�	��	�	��	�	��	�	"��	"�	��	-�	(��	8�	��
			8
C2����DI�D�D�hQ]LL6Igfilenamefsystem/repl/repl.scm�
�	'��	
�	)��		

CK��NL�h@-134>"G445>"G6wgkey
			<gargs			<gfilenamefsystem/repl/repl.scm�
�	'��	�	7��	�	'��			<
Ch Z]L4LLO56Rgfilenamefsystem/repl/repl.scm�
�	$��	�	'��	�	&��		
CK��NL�h@�-134>"G445>"G6�gkey
			<gargs			<gfilenamefsystem/repl/repl.scm�
�	$��	�	'��	�	4��	�	$��			<
C���hQ]LL6Igfilenamefsystem/repl/repl.scm�
�	 ��	�	"��		
C�����ha]L6Ygv
		
gfilenamefsystem/repl/repl.scm�
�	"��	
�	$��		
Chx�]45UI4LLO54L>"G4LO	4
L5>X"G
"G
LO6�gthunk
		Ogk
	U	_gl
	`	rgfilenamefsystem/repl/repl.scm�
�	��	�	��	
�	$��	�	��	 �	��	4�	��	B�	+��	H�	A��	J�	+��	O�	��	X�	��	_�	)��	c�	��	r�	��		r
C�ht-136lgk
			gargs			gfilenamefsystem/repl/repl.scm�
�	��	�	��			
ChZ]LLLO6Rgfilenamefsystem/repl/repl.scm�
�	��	�	��	�	��		
C�����h(]OQ45U[$"�Y[�(4>"G""�45�$"�&4O>"G"j4	5$%4
>"G4>"G":4>"G4
O45>"G4>"G"��G"��CZ"XCXFGCgrepl
	(gprompting-meta-read	(gwith-stack-and-prompt		
(gt		 	2gexp		^gk	(gstatus	(gfilenamefsystem/repl/repl.scm�
�
��	�	��	 �	��	/�	<��	3�	��	9�	��	=�	��	>�	��	W�	��	X�	��	^�		��	d�	
��	h�	��	u�	
����	
����	����	
����	
����	����	
����	
����	
����	����	/����	����	����	
����	���	���	��!�	�� 	(	gnameg	run-repl*�C\R82�1?h@�]4545$C45$4>"G6C�gch
		9gfilenamefsystem/repl/repl.scm�
�
��	�	��	�	��	
�	��	�	��	�	��	"�	��	#�	!��	6�	-��
		9
gnamegflush-leading-whitespace�C?RB82�1��hX�]45$G4545$"45$#4>"G4
5$C6CC�gch
		Rgfilenamefsystem/repl/repl.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	#�	(��	-�	��	.�	��	>�	��	J�	��	P�	��		T
gnamegflush-to-newline�C�RC�gm
		,gfilenamefsystem/repl/repl.scm�		
��g	)
��
	0
���	4
���	R	!���	R	'���	R	���	R
��u	T
��m	b
��
d	p
��b�
����
����
��b�
����
����
��	�
C6system/repl/debug.go000064400000026171150536206120010456 0ustar00GOOF----LE-8-2.0a,]�4h-]gguile�	�	gdefine-module*�	�	�	gsystem�	grepl�	gdebug�		�	
gfilenameS�	fsystem/repl/debug.scm�	gimportsS�	
gbase�	gpmatch�	
�	�	gsyntax�	
�	�	glanguage�	
�	�	gvm�	�	�	gframe�	�	�	gice-9�	grdelim�	�	 �	!gpretty-print�	"!�	#"�	$gformat�	%$�	&%�	'ginspect�	('�	)gselectS�	*g%inspect�	+'*��	,+�	-(),�	.gprogram�	/.�	0/�	1 #&-0
�	2gexportsS�	3g<debug>�	4g
make-debug�	5gdebug?�	6gdebug-frames�	7gdebug-index�	8gdebug-error-message�	9gdebug-for-trap?�	:gterminal-width�	;gprint-registers�	<gprint-locals�	=gprint-frame�	>gprint-frames�	?g
frame->module�	@g
stack->vector�	Agnarrow-stack->vector�	Bgframe->stack-vector�	C3456789:;<=>?@AB�	Dgset-current-module�	ED�	FD�	Ggmake-record-type�	Hf<debug>�	Igframes�	Jgindex�	Kg
error-message�	Lg	for-trap?�	MIJKL�	Ngrecord-predicate�	Ogmake-procedure-with-setter�	Pgrecord-accessor�	Qgrecord-modifier�	Rg
make-fluid�	Sgcatch�	TS�	US�	Vgstring->number�	Wggetenv�	XfCOLUMNS�	Yginteger?�	Zgexact?�	[gerror�	\f-Expected a column number (a positive integer)�	]gmake-hash-table�	^g
hash-for-each�	_g
hashq-set!�	`g	hashq-ref�	ag
reverse-hashq�	bgper-line-prefixS�	cb	��	dc�	egcurrent-output-port�	ff  �	gf~aRegisters:~%�	hgframe-instruction-pointer�	igdisplay�	jgrun-hook�	kgbefore-print-hook�	lfip = ~d
�	mgframe-stack-pointer�	nf
sp = #x~x
�	og
frame-address�	pf
fp = #x~x
�	qgwidthS�	rq	��	sb	��	trs�	ugframe-bindings�	vf~aNo local variables.~%�	wf~aLocal variables:~%�	xgfor-each�	ygframe-local-ref�	zg
binding:index�	{gbinding:boxed?�	|f~a~:[~; (boxed)~] = ~v:@y
�	}gbinding:name�	~gindexS�	~	���q	���gfull?S���	���glast-sourceS���	���gnext-source?S���	���������gframe-next-source��gframe-source��gsource:file��f
current input��funknown file��gand=>��gsource:line-for-user��g
source:column��f
~&In ~a:~&��f~9@a~:[~*~3_~;~3d~] ~v:@y~%��f~a:~a��f��gframe-call-representation��f     ���	���gforward?S���	���gcountS���	���g	for-trap?S���	���r������g
vector-length��gmax��gmin��gframe-procedure��gprogram?��gprogram-module��gcurrent-module��gmake-module��gmodule-use!��g
make-variable��f3~:[Read-only~;Mutable~] local variable ~a = ~70:@y
��gmodule-add!��gstack-length��gmake-vector��gframe-previous��g	stack-ref��g
make-stack����g%stacks�C5hx�]4	
12C54F>"G4GiHM53R3h�-13�C�gframes
			gindex			g
error-message				g	for-trap?				gdefrec-1f507eb13-0				gfilenamefsystem/repl/debug.scm�
	9
��				
	gnameg
make-debug�C4R4Ni3i55R4Oi4Pi3iI54Qi3iI556R4Oi4Pi3iJ54Qi3iJ557R4Oi4Pi3iK54Qi3iK558R4Oi4Pi3iL54Qi3iL559R4Ri5UVWXhh]456`gfilenamefsystem/repl/debug.scm�
	E	��		E	8��			E	@��		E	8��	
	E	(��		
Ch]-13CUgargs
			gfilenamefsystem/repl/debug.scm�
	E	��			


CYZ[\h�:)]3L[$C4545$#45$
�$"""$C	HC]$(45$45$
�"""$L\C62gt
		cgw
	!	Ugt
	U	cgw
	e�gfilenamefsystem/repl/debug.scm�
	B	��		D	��		E	��	!	E	��	$	F	��	.	F	
��	/	F	��	9	F	
��	=	F	*��	A	F	
��	U	D	��	e	B	��	k	I	��	l	I	��	v	I	��	w	I	)���	I	���	I	4���	I	���	I	���	K	���	K	��			c
	e�CO:R]^_`h�]L4L5�6�gk
		gv		gfilenamefsystem/repl/debug.scm�
	S	��		T	!��		T	2��		T	!��		T	��		T	��			Ch(�]	454O>"GC�gh
		%gret		%gfilenamefsystem/repl/debug.scm�
	P
��		Q	
��		Q	��	
	R	��		%gnameg
reverse-hashq�CaRdef$ghijklmnoph�-/03#45#4>"G454>"G4	>"G4
>"G454>"G4	>"G4>"G4
54>"G4	>"G6�gframe
	gport	gper-line-prefix		gval		G�gval	��gval	�gfilenamefsystem/repl/debug.scm�
	X
��		X	1��	(	Y	1��	+	_	��	1	_	��	8	_	��	A	`	��	G	`	��	J	[	��	^	\	��	r	]	��	x	`		��		]	���	a	���	a	���	[	���	\	���	]	���	a		���	]	���	b	���	b	���	[	���	\	��	b		��	]	��	gper-line-prefixS	�gnamegprint-registers�C;Rte:fu$vwxyz{ijk$|}
hp�]	4L45545$"4LL>"G4>"GL4	545L6�gbinding
		mgx		)gv	)	mgfilenamefsystem/repl/debug.scm�
	m	��		n	��		n	2��		n	��		n	��		o	��		o	��	 	p	��	)	n		��	,	r	��	@	s	��	Y	t	��	Z	u	��	a	u	*��	m	t	��		mCh�]-/03#45#45#45(
64>"G	
O456Ugframe
		~gport		~gwidth			~gper-line-prefix			~gbindings		>	~gfilenamefsystem/repl/debug.scm�
	d
��		d	.��	'	e	$��	5	e	G��	8	f	��	>	f	��	F	g	��	L	i	��	P	i	��	Q	k	��	W	k	��	^	k	��	v	v	��	~	l	��		~gwidthS	�gper-line-prefixS	�gnamegprint-locals�C<R�e:��������$�����<qb�hH'-/03#45##45###4$"5$45$""4	
5	4	5
$K$45$""�$"4
>"G"4	$4	
5"45>"G$6Cgframe
	Dgport	Dgindex		Dgwidth		Dgfull?		Dglast-source		Dgnext-source?		Dgsource		dDgt		s�gfile	�Dgline		�Dgcol	
�Dgt	��
gfilenamefsystem/repl/debug.scm�
	x
��		x	-��	0	y	)��	R		��	X		��	d		��	d		��	l	|	��	m	}	��	s	}	���	}	!���	~	���		����	���		����	���		����	���	|	���	}	���	}	���	}	!���	~	����	����	����	����	����	����	����	���	���	���	 ���	���	2���	��&�	��4�	��@�	(��B�	��)	DgindexS	�gwidthS	�gfull?S	�glast-sourceS	�gnext-source?S	�gnamegprint-frame�C=R�e:���=~q�����h�_-/03
#45#45####45$
�"$
"4
�5"$
45"�"!$
�$�""���""���	"�
�$�
	�$�
�4
	


�$">"G
$"	��"4
5"%

�$$45""���""���
"��fCC$"	
"��KWgframes
	ygport	ygwidth		ygfull?		ygforward?		ygcount		yg	for-trap?		yglen		Xyg	lower-idx		}yg	upper-idx		�ygi	
�bglast-source	�bgframe	�^
gfilenamefsystem/repl/debug.scm�
�
��	�	(��	'�	$��	R�	��	X�	��	`�	��	c�	(��	i�	��	m�	��	s�	��	{�	��	}�	��	}�	����	����	&����	����	����	#����	����	����	����	����	
����	����	
����	����	
����	����	-����	(��
�	���	��"�	��'�	��1�	��4�	��9�	��?�	��@�	��^�	��b�	��h�	��y�	��,	ygwidthS	�gfull?S	�gforward?S	�gcountS	�g	for-trap?S	�gnamegprint-frames�C>R������xyz{�$�}�	hp ]4L45545$"4544545$">"GL456gbinding
		lgx		lgvar		*	lgfilenamefsystem/repl/debug.scm�
�	��	�	��	�	.��	�	��	�	
��	�	��	�	��	$�	8��	*�	
��	-�	��	2�	��	3�	��	:�	��	C�	��	G�	��	J�	1��	U�	��	b�	!��	l�	��		lCu
hx@]4545$]45$"45454>"G4O4	5>"GC68gframe
		wgproc			wgt			3gmod		3	sgmod*		:	sgfilenamefsystem/repl/debug.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	,�	.��	3�	��	6�	��	:�	��	=�	
��	Q�	
��	]�	��	h�	
��	w�	��		wgnameg
frame->module�C?R����h`G]!4545
�$?"&�$��45"���"
4
5"���"C?gstack
		^glen			^gv			^gi		 	Fgframe		 	Fgfilenamefsystem/repl/debug.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	 �	��	%�	��	)�	
��	0�	��	3�	��	4�	��	B�	��	F�	��	H�	��	W�	��		^gnameg
stack->vector�C@R��@�h0�-1344
5?$6C�gstack
			)gargs			)gnarrowed			)gfilenamefsystem/repl/debug.scm�
�
��	
�	��	
�	$��	�	��	�	��	 �	��	&�	��	(�	��				)
gnamegnarrow-stack->vector�CAR�A�h8�]	[�$	[��"45

$"6�gframe
		1gtag		1gfilenamefsystem/repl/debug.scm�
�
��	�	��	
�	
��	�	��	�	��	�	��	)�	��	1�	��			1gnamegframe->stack-vector�CBRC�gm
		,g	set-width
�gfilenamefsystem/repl/debug.scm�		
��	:	9
���	A	���	A	��	@
���	P
��	�	X
��
(	d
���	x
����
��k�
��*�
��X�
��v�
��	x
C6system/repl/coop-server.go000064400000142472150536206120011637 0ustar00GOOF----LE-8-2.0"�]�4hO^]gguile�	�	gdefine-module*�	�	�	gsystem�	grepl�	gcoop-server�		�	
gfilenameS�	fsystem/repl/coop-server.scm�	gimportsS�	
gice-9�	gmatch�	
�	�	greceive�	
�	�	gthreads�	
�	�	gq�	
�	�	gsrfi�	gsrfi-9�	�	�	�	gselectS�	 gstart-repl*�	!gprompting-meta-read�	" !�	#"�	$gserver�	%$�	&grun-server*�	'gmake-tcp-server-socket�	(gadd-open-socket!�	)g
close-socket!�	*gguard-against-http-request�	+&'()*�	,%+�	-#,�	.gexportsS�	/gspawn-coop-repl-server�	0gpoll-coop-repl-server�	1/0�	2gset-current-module�	32�	42�	5g<coop-repl-server>�	6g!%%make-coop-repl-server-procedure�	7gmake-syntax-transformer�	87�	97�	:g%make-coop-repl-server�	;gmacro�	<g$sc-dispatch�	=<�	><�	?g_�	@gany�	A?@@�	Bg
syntax-object�	Cglambda�	Dgm-6cff15a80cd23e5-5�	Egtop�	FDE�	Ggribcage�	Hgt-6cff15a80cd23e5-3�	Igt-6cff15a80cd23e5-4�	JHI�	KFF�	Lfl-6cff15a80cd23e5-a�	Mfl-6cff15a80cd23e5-b�	NLM�	OGJKN�	PG�	Qgx�	RQ�	SF�	Tfl-6cff15a80cd23e5-7�	UT�	VGRSU�	Wgshift�	Xg	proc-name�	Ygargs�	ZXY�	[E�	\[[�	]fl-1e8ba8b5a-2ba�	^fl-1e8ba8b5a-2bb�	_]^�	`GZ\_�	agkey�	bgvalue�	cgname�	dgformals�	egbody�	fabcde�	g[[[[[�	hfl-1e8ba8b5a-2ad�	ifl-1e8ba8b5a-2ae�	jfl-1e8ba8b5a-2af�	kfl-1e8ba8b5a-2b0�	lfl-1e8ba8b5a-2b1�	mhijkl�	nGfgm�	ogmake-procedure-name�	po�	q[�	rfl-1e8ba8b5a-29d�	sr�	tGpqs�	u[�	vfl-1e8ba8b5a-29c�	wv�	xGRuw�	yFOPVWPPPP`ntx
�	zghygiene�	{z�	|BCy{�	}gmutex�	~[OPV�	z��B}~��gqueue��B�~������gmake-struct��gm-6cff15a80cd23e5-1���E��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���E�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������G�����g	ctor-args�����fl-1e8ba8b5a-37a�����G�u���gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������G�\���gform��g	type-name��gconstructor-spec��gfield-names��������[[[[��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������G�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������[[[[[[[[��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������G�����fl-1e8ba8b5a-334�����GRu����OPVWP�PPP��P�����B��{��B5~��B
�{���������|����geach-any��?Ȍ��gsyntax-violation��������fWrong number of arguments��gidentifier?��������[PV��B6���������f-source expression failed to match any pattern��grecord-type-vtable��������gpwpw��gdefault-record-printer��������}���gset-struct-vtable-name!��������gvtable-offset-user��������g%coop-repl-server?-procedure��gcoop-repl-server?��?@��gm-6cff15a80cd23e5-14���E��gt-6cff15a80cd23e5-13��������fl-6cff15a80cd23e5-19�����G�����fl-6cff15a80cd23e5-16�����GR������P�WPPPP`ntx
��BC�{��gobj��gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b�����������gm-1e8ba8b5a-47f���E����������fl-1e8ba8b5a-483�fl-1e8ba8b5a-484�fl-1e8ba8b5a-485�fl-1e8ba8b5a-486�fl-1e8ba8b5a-487�fl-1e8ba8b5a-488�fl-1e8ba8b5a-489��G���	g	copier-id�
	�fl-1e8ba8b5a-476��
G
u�g	ctor-name��fl-1e8ba8b5a-46e��Gu���fl-1e8ba8b5a-46c��Gu�glayout��fl-1e8ba8b5a-46a��Gu�g
immutable?��fl-1e8ba8b5a-468�� Gu�!gfield-count�"!�#fl-1e8ba8b5a-466�$#�%G"u$�&g
getter-ids�'&�(fl-1e8ba8b5a-463�)(�*G'u)�+g	field-ids�,+�-fl-1e8ba8b5a-460�.-�/G,u.�0gpredicate-name�1g
field-spec�2���01�3[[[[[[�4fl-1e8ba8b5a-453�5fl-1e8ba8b5a-454�6fl-1e8ba8b5a-455�7fl-1e8ba8b5a-456�8fl-1e8ba8b5a-457�9fl-1e8ba8b5a-458�:456789�;G23:�<��P�WPPPPP
PPPP P%P*P/;���=B�<{�>=�?gand�@B?<{�Agstruct?�BBA<{�CB=�Dgeq?�EBD<{�Fg
struct-vtable�GBF<{�HG=�I[�P��JB5I�KEHJ�L@CK�M�>L�N[P��OB�N�Pgthrow-bad-struct�QP�RP�Sgcoop-repl-server-mutex�Tg!%coop-repl-server-mutex-procedure�Ugfree-id�Vg
%%on-error�Wgm-6cff15a80cd23e5-20�XWE�YX�Zfl-6cff15a80cd23e5-22�[Z�\GRY[�]XP\WPPPP`ntx�^BV]{�_U^�`_@�ag%%type�bgt-1e8ba8b5a-3a5�cgt-1e8ba8b5a-3a6�dgt-1e8ba8b5a-3a7�egt-1e8ba8b5a-3a8�fgt-1e8ba8b5a-3a9�ggt-1e8ba8b5a-3aa�hgt-1e8ba8b5a-3ab�ibcdefgh�jgm-1e8ba8b5a-3ac�kjE�lkkkkkkk�mfl-1e8ba8b5a-3b0�nfl-1e8ba8b5a-3b1�ofl-1e8ba8b5a-3b2�pfl-1e8ba8b5a-3b3�qfl-1e8ba8b5a-3b4�rfl-1e8ba8b5a-3b5�sfl-1e8ba8b5a-3b6�tmnopqrs�uGilt�vggetter�wgindex�xvw�yfl-1e8ba8b5a-3a3�zfl-1e8ba8b5a-3a4�{yz�|Gx\{�}�&	�~[[[�fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0������G}~����P\WPuPPP|P�����Ba�{��U���?`�@��gck��gerr��gs������XX��fl-6cff15a80cd23e5-25��fl-6cff15a80cd23e5-26������G�����X�P\WPPPP`ntx
��B��{��gquote��B��{��[�P\��B5����������g%%index��B��{��U���?`�@��fl-6cff15a80cd23e5-2a��fl-6cff15a80cd23e5-2b������G�����X�P\WPPPP`ntx
��B��{��B��{���P\��B
����������g%%copier��B��{��U���?`�@��fl-6cff15a80cd23e5-2f��fl-6cff15a80cd23e5-30������G�����X�P\WPPPP`ntx
��B��{��B��{��g%%<coop-repl-server>-set-fields��[�P\��B�����������gt-6cff15a80cd23e5-1f�����fl-6cff15a80cd23e5-34�����G�Y���X�P\WPPPP`ntx
��BC�{����P\WPuPPP|P�����B��{�����gif��B��{��BD�{��BF�{������[�P\��B5��������g
struct-ref��B��{���P\��B
��������BP�{��B��{��BS�����������������������[P\��BT���gcoop-repl-server-queue��g!%coop-repl-server-queue-procedure��gm-6cff15a80cd23e5-3b���E�����fl-6cff15a80cd23e5-3d�����GR�����P�WPPPP`ntx��BV�{��U����@���P�WPuPPP|P�����Ba�{��U���?��@������fl-6cff15a80cd23e5-40��fl-6cff15a80cd23e5-41������G�������P�WPPPP`ntx
��B��{��B��{��[�P���B5����������B��{��U���?��@��fl-6cff15a80cd23e5-45��fl-6cff15a80cd23e5-46������G�������P�WPPPP`ntx
��B��{��B��{���P���B������B��{�U�?�@�fl-6cff15a80cd23e5-4a�fl-6cff15a80cd23e5-4b��G���	�P�WPPPP`ntx
�
B�	{�B�	{�[P��
B��
��gt-6cff15a80cd23e5-3a��fl-6cff15a80cd23e5-4f��G���P�WPPPP`ntx
�BC{��P�WPuPPP|P����B�{��B�{�BD{�BF{��[P��B5� �!B�{�"P��#B"�$!#�%BP{�&B�{�'B��(&'�)%(�* $)�+*�,[P��-B�,�.geach�/@@�0./�1@0��2@1��3@2��4g%%set-fields�5gdummy�6gcheck?�7gexpr�856�v7�9gm-6cff15a80cd23e5-56�:9E�;:�����<fl-6cff15a80cd23e5-5b�=fl-6cff15a80cd23e5-5c�>fl-6cff15a80cd23e5-5d�?fl-6cff15a80cd23e5-5e�@fl-6cff15a80cd23e5-5f�A<=>?@�BG8;A�C:�Dfl-6cff15a80cd23e5-58�ED�FGRCE�Ggt-1e8ba8b5a-3c4�Hgt-1e8ba8b5a-3c6�Igt-1e8ba8b5a-3c5�JGHI�Kgm-1e8ba8b5a-3c7�LKE�MLLL�Nfl-1e8ba8b5a-3cb�Ofl-1e8ba8b5a-3cc�Pfl-1e8ba8b5a-3cd�QNOP�RGJMQ�Sfl-1e8ba8b5a-3c1�Tfl-1e8ba8b5a-3c2�Ufl-1e8ba8b5a-3c3�VSTU�WG}~V�X�BPFWPRPPPW��
�YB4X{�Z[BPF�[B5Z�\BSZ�]B�Z�^\]�_gmap�`_�a_�bglist�cg
make-mutex�dgmake-q�egmake-coop-repl-server�fg
lock-mutex�gf�hf�igunlock-mutex�ji�ki�lgenq!�mgcoop-repl-server-eval�ng<coop-repl>�og%%make-coop-repl-procedure�pg%make-coop-repl�q?@@@@�rgm-6cff15a80cd23e5-91�srE�tgt-6cff15a80cd23e5-8d�ugt-6cff15a80cd23e5-8e�vgt-6cff15a80cd23e5-8f�wgt-6cff15a80cd23e5-90�xtuvw�yssss�zfl-6cff15a80cd23e5-96�{fl-6cff15a80cd23e5-97�|fl-6cff15a80cd23e5-98�}fl-6cff15a80cd23e5-99�~z{|}�Gxy~��s��fl-6cff15a80cd23e5-93�����GR����sP�WPPPP`ntx
��BC�{��[P���B}���gcondvar��B����gthunk��B����gcont��B����������gm-6cff15a80cd23e5-8b���E���P�WP�PPP��P�����B��{��Bn���B
�{����������������[P���Bo���gpwpwpwpw��}�����g%coop-repl?-procedure��g
coop-repl?��gm-6cff15a80cd23e5-a4���E��gt-6cff15a80cd23e5-a3��������fl-6cff15a80cd23e5-a9�����G�����fl-6cff15a80cd23e5-a6�����GR������P�WPPPP`ntx
��BC�{����P�WPPPPP
PPPP P%P*P/;����B��{�����B?�{��BA�{������BD�{��BF�{������[�P���Bn������������������[P���B����gcoop-repl-mutex��g%coop-repl-mutex-procedure��gm-6cff15a80cd23e5-b0���E�����fl-6cff15a80cd23e5-b2�����GR�����P�WPPPP`ntx��BV�{��U����@���P�WPuPPP|P�����Ba�{��U���?��@������fl-6cff15a80cd23e5-b5��fl-6cff15a80cd23e5-b6������G�������P�WPPPP`ntx
��B��{��B��{��[�P���Bn����������B��{��U���?��@��fl-6cff15a80cd23e5-ba��fl-6cff15a80cd23e5-bb������G�������P�WPPPP`ntx
��B��{��B��{���P���B
����������B��{��U���?��@��fl-6cff15a80cd23e5-bf��fl-6cff15a80cd23e5-c0������G�������P�WPPPP`ntx
��B��{��B��{��g%%<coop-repl>-set-fields��[�P���B�����������gt-6cff15a80cd23e5-af�����fl-6cff15a80cd23e5-c4�����G�������P�WPPPP`ntx
��BC�{����P�WPuPPP|P�����B��{�����B��{��BD�{��BF�{����[�P��Bn���B��{��P��B
���BP�{�	B��{�
B��	
���
����
�[P��B��gcoop-repl-condvar�g%coop-repl-condvar-procedure�gm-6cff15a80cd23e5-cb�E��fl-6cff15a80cd23e5-cd��GR�PWPPPP`ntx�BV{�U�@��PWPuPPP|P����Ba{�U� ?@�!�"fl-6cff15a80cd23e5-d0�#fl-6cff15a80cd23e5-d1�$"#�%G�!$�&%PWPPPP`ntx
�'B�&{�(B�&{�)[%P�*Bn)�+(*�,+�-B�{�.U-�/?.@�0fl-6cff15a80cd23e5-d5�1fl-6cff15a80cd23e5-d6�201�3G�!2�43PWPPPP`ntx
�5B�4{�6B�4{�73P�8B7�968�:9�;B�{�<U;�=?<@�>fl-6cff15a80cd23e5-da�?fl-6cff15a80cd23e5-db�@>?�AG�!@�BAPWPPPP`ntx
�CB�B{�DB�B{�E[AP�FB�E�GDF�HG�Igt-6cff15a80cd23e5-ca�JI�Kfl-6cff15a80cd23e5-df�LK�MGJL�NMPWPPPP`ntx
�OBCN{�P�MPWPuPPP|P����QB�P{�RQ�SB�P{�TBDP{�UBFP{�VUQ�W[MP�XBnW�YTVX�ZB�P{�[MP�\B[�]ZQ\�^BPP{�_B�P{�`BW�a_`�b^Qa�cSY]b�dORc�e[P�fBe�ggcoop-repl-read-thunk�hg%coop-repl-read-thunk-procedure�igm-6cff15a80cd23e5-e6�jiE�kj�lfl-6cff15a80cd23e5-e8�ml�nGRkm�ojPnWPPPP`ntx�pBVo{�qUp�rq@�s�PnWPuPPP|P����tBas{�uUt�v?ru@�wjj�xfl-6cff15a80cd23e5-eb�yfl-6cff15a80cd23e5-ec�zxy�{G�wz�|j{PnWPPPP`ntx
�}B�|{�~B�|{�[{Pn��Bn��~������B�s{��U���?r�@��fl-6cff15a80cd23e5-f0��fl-6cff15a80cd23e5-f1������G�w���j�PnWPPPP`ntx
��B��{��B��{���Pn��B	����������B�s{��U���?r�@��fl-6cff15a80cd23e5-f5��fl-6cff15a80cd23e5-f6������G�w���j�PnWPPPP`ntx
��B��{��B��{��[�Pn��B�����������gt-6cff15a80cd23e5-e5�����fl-6cff15a80cd23e5-fa�����G�k���j�PnWPPPP`ntx
��BC�{����PnWPuPPP|P�����B��{�����B��{��BD�{��BF�{������[�Pn��Bn��������B��{���Pn��B	��������BP�{��B��{��Bg�����������������������[Pn��Bh���gcoop-repl-cont��g%coop-repl-cont-procedure��gm-6cff15a80cd23e5-101���E�����fl-6cff15a80cd23e5-103�����GR�����P�WPPPP`ntx��BV�{��U����@���P�WPuPPP|P�����Ba�{��U���?��@������fl-6cff15a80cd23e5-106��fl-6cff15a80cd23e5-107������G�������P�WPPPP`ntx
��B��{��B��{��[�P���Bn����������B��{��U���?��@��fl-6cff15a80cd23e5-10b��fl-6cff15a80cd23e5-10c������G�������P�WPPPP`ntx
��B��{��B��{���P���B	����������B��{��U���?��@��fl-6cff15a80cd23e5-110��fl-6cff15a80cd23e5-111������G�������P�WPPPP`ntx
��B��{��B��{��[�P���B�����������gt-6cff15a80cd23e5-100�����fl-6cff15a80cd23e5-115�����G�������P�WPPPP`ntx
��BC�{����P�WPuPPP|P�����B��{�����B��{�BD�{�BF�{���[�P��Bn��B��{��P��B	�	��
BP�{�B��{�B��
�
�
��	����[P��B��gm-6cff15a80cd23e5-11c�E������fl-6cff15a80cd23e5-121�fl-6cff15a80cd23e5-122�fl-6cff15a80cd23e5-123�fl-6cff15a80cd23e5-124�fl-6cff15a80cd23e5-125��G8��fl-6cff15a80cd23e5-11e�� GR�!�P WPRPPPW��
�"B4!{�#[P �$Bn#�%B�#�&B#�'Bg#�(B�#�)%&'(�*gset-coop-repl-read-thunk!�+g$%set-coop-repl-read-thunk!-procedure�,gm-6cff15a80cd23e5-130�-,E�.gt-6cff15a80cd23e5-12e�/gt-6cff15a80cd23e5-12f�0./�1--�2fl-6cff15a80cd23e5-135�3fl-6cff15a80cd23e5-136�423�5G014�6-�7fl-6cff15a80cd23e5-132�87�9GR68�:-5P9WPPPP`ntx
�;BC:{�<gt-1e8ba8b5a-3e6�=gt-1e8ba8b5a-3e7�><=�?gm-1e8ba8b5a-3e8�@?E�A@@�Bfl-1e8ba8b5a-3ec�Cfl-1e8ba8b5a-3ed�DBC�EG>AD�Fgsetter�GcvF�Hfl-1e8ba8b5a-3e0�Ifl-1e8ba8b5a-3e1�Jfl-1e8ba8b5a-3e2�KHIJ�LGG~K�M1w�Nfl-1e8ba8b5a-3d7�Ofl-1e8ba8b5a-3d8�PNO�QGM\P�Rgfield-specs�S�R�Tfl-1e8ba8b5a-3d3�Ufl-1e8ba8b5a-3d4�VTU�WGS\V�X�5P9WPELPQPW���YB�X{�Zgval�[BZX{�\Y[�]B�X{�^BDX{�_BFX{�`_Y�a[5P9�bBna�c^`b�dgstruct-set!�eBdX{�f5P9�gB	f�heYg[�iBPX{�jB�X{�kB*a�ljk�miYl�n]chm�o;\n�p[P9�qB+p�rgset-coop-repl-cont!�sg%set-coop-repl-cont!-procedure�tgm-6cff15a80cd23e5-140�utE�vgt-6cff15a80cd23e5-13e�wgt-6cff15a80cd23e5-13f�xvw�yuu�zfl-6cff15a80cd23e5-145�{fl-6cff15a80cd23e5-146�|z{�}Gxy|�~u�fl-6cff15a80cd23e5-142����GR~���u}P�WPPPP`ntx
��BC�{���}P�WPELPQPW����B��{��BZ�{������B��{��BD�{��BF�{������[}P���Bn��������Bd�{��}P���B	���������BP�{��B��{��Br�����������������������[P���Bs���gmake-condition-variable��gmake-coop-repl��gwait-condition-variable��gerror��f2coop-repl-read: condvar signaled, but thunk is #f!��gcoop-repl-read��gcoop-repl-prompt��gstore-repl-cont��g*repl-stack*��gcurrent-module��f"coop-reader: read-thunk is not #f!��gsignal-condition-variable��gmake-coop-reader��geval��greader-loop��gq-empty?��gdeq!��������fno matching pattern��gnew-repl��gstart-repl-client��gcatch��������gcall-with-new-thread��������g%thread-handler��������gcurrent-language��gstart-coop-repl��gmake-coop-client-proc��grun-coop-repl-server��g
close-fdes��gfileno��gwith-continuation-barrier��gcurrent-input-port��gcurrent-output-port��gcurrent-error-port��gcurrent-warning-port��g
parameter?��������g	scm-error��gwrong-type-arg��fparameterize��fNot a parameter: ~S��gsave-module-excursion�C5h�`]4	
-.1544>"G5h�]�C�gmutex
		gqueue		gfilenamefsystem/repl/coop-server.scm�
	$
��			gnameg!%%make-coop-repl-server-procedure�C6R49:;>A�h\]CTgt-6cff15a80cd23e5-3
		gt-6cff15a80cd23e5-4					C��:�h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		$
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		$
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/repl/coop-server.scm�
	$
��		nC5:R���5ݨ4�5>"G	�6i�5R5h�]�$��CC�gobj
		gfilenamefsystem/repl/coop-server.scm�
	$
��		gnameg%coop-repl-server?-procedure�C�R49�;>�Mh<]C4gt-6cff15a80cd23e5-13
		
		
C����h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		$
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		$
��		
COh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/repl/coop-server.scm�
	$
��		nC5�R5RSh�]�&
�C6�gs
		gfilenamefsystem/repl/coop-server.scm�
	$
��		gnameg!%coop-repl-server-mutex-procedure�CTR49S;>���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h<]C4gt-6cff15a80cd23e5-1f
		
		
C��S�h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		$
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		$
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/repl/coop-server.scm�
	$
��	�C5SR5R�h�]�&�C6�gs
		gfilenamefsystem/repl/coop-server.scm�
	$
��		gnameg!%coop-repl-server-queue-procedure�C�R49�;>���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					C
h:]��C2gerr
		gs					C�+h<]C4gt-6cff15a80cd23e5-3a
		
		
C����h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		$
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		$
��		
C-h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/repl/coop-server.scm�
	$
��	�C5�R49�;>3Y[^abh v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/repl/coop-server.scm�
	$
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�Rcd5h �]4545�C�gmutex
		gqueue		gfilenamefsystem/repl/coop-server.scm�
	*
��		+	��		+	'��		+	��		
gnamegmake-coop-repl-server�CeR5RShhN]L6Fgfilenamefsystem/repl/coop-server.scm�
	0	��		
CkhN]L6Fgfilenamefsystem/repl/coop-server.scm�
	0	��		
Cl�h��-13�&
�"	45OO4O>"GV4�&�"	45�>X4O>"GCX4O>"GF�gcoop-server
		�gopcode		�gargs			�gx		#�gfilenamefsystem/repl/coop-server.scm�
	-
��		0	��	#	0	��	J	1	��	O	1	
��	k	2	
��	p	1	��	r	0	��			�	
	gnamegcoop-repl-server-eval�g
documentationf�Queue a new instruction with the symbolic name OPCODE and an arbitrary
number of arguments, to be processed the next time COOP-SERVER is polled.�CmRnh�]�C�gmutex
		gcondvar		gthunk			gcont			gfilenamefsystem/repl/coop-server.scm�
	4
��			gnameg%%make-coop-repl-procedure�CoR49p;>q�h�]C�gt-6cff15a80cd23e5-8d
		gt-6cff15a80cd23e5-8e		gt-6cff15a80cd23e5-8f			gt-6cff15a80cd23e5-90						C��p�h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		4
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		4
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/repl/coop-server.scm�
	4
��		nC5pR���n��4�n>"G	�oi�nRnh�]�$��CCygobj
		gfilenamefsystem/repl/coop-server.scm�
	4
��		gnameg%coop-repl?-procedure�C�R49�;>��h<]C4gt-6cff15a80cd23e5-a3
		
		
C����h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		4
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		4
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/repl/coop-server.scm�
	4
��		nC5�RnR�h�]�&
�C6|gs
		gfilenamefsystem/repl/coop-server.scm�
	4
��		gnameg%coop-repl-mutex-procedure�C�R49�;>���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h<]C4gt-6cff15a80cd23e5-af
		
		
C����h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		4
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		4
��		
Ch]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/repl/coop-server.scm�
	4
��	�C5�RnRh�]�&�C6~gs
		gfilenamefsystem/repl/coop-server.scm�
	4
��		gnameg%coop-repl-condvar-procedure�CR49;> ',h:]��C2gerr
		gs					C/5:h:]��C2gerr
		gs					C=CHh:]��C2gerr
		gs					C�dh<]C4gt-6cff15a80cd23e5-ca
		
		
C���h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		4
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		4
��		
Cfh]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/repl/coop-server.scm�
	4
��	�C5RnRgh �]�&	�C6�gs
		gfilenamefsystem/repl/coop-server.scm�
	4
��		gnameg%coop-repl-read-thunk-procedure�ChR49g;>v}�h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h<]C4gt-6cff15a80cd23e5-e5
		
		
C��g�h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		4
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		4
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/repl/coop-server.scm�
	4
��	�C5gRnR�h �]�&	�C6{gs
		gfilenamefsystem/repl/coop-server.scm�
	4
��		gnameg%coop-repl-cont-procedure�C�R49�;>���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h=]C5gt-6cff15a80cd23e5-100
		
		
C����h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		4
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		4
��		
Ch]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/repl/coop-server.scm�
	4
��	�C5�R49�;>3"$)abh v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/repl/coop-server.scm�
	4
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�RnR*h �]�&	�C6�gs
		gval		gfilenamefsystem/repl/coop-server.scm�
	4
��			gnameg$%set-coop-repl-read-thunk!-procedure�C+R49*;>Aoh`]CXgt-6cff15a80cd23e5-12e
		gt-6cff15a80cd23e5-12f					C��*�h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		4
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		4
��		
Cqh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/repl/coop-server.scm�
	4
��		nC5*RnRrh �]�&	�C6�gs
		gval		gfilenamefsystem/repl/coop-server.scm�
	4
��			gnameg%set-coop-repl-cont!-procedure�CsR49r;>A�h`]CXgt-6cff15a80cd23e5-13e
		gt-6cff15a80cd23e5-13f					C��r�h^]L6Vga
		gfilenamefsystem/repl/coop-server.scm�		4
��		C?�hN]L6Fgfilenamefsystem/repl/coop-server.scm�		4
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/repl/coop-server.scm�
	4
��		nC5rRc�nh �]4545�C�gmutex
		gcondvar		gfilenamefsystem/repl/coop-server.scm�
	<
��		=	��		=	 ��		=	��		
gnamegmake-coop-repl�C�RnR�hhN]L6Fgfilenamefsystem/repl/coop-server.scm�
	B		��		
CkhN]L6Fgfilenamefsystem/repl/coop-server.scm�
	B		��		
Cg���*h0�]�&
�"	45OO4O>"GV�&		�"	45$"D4�&�"	45�&
�"	45>"G�&		�"	45$"4	
>"G�&	�"4>"GX4O>"G6�g	coop-repl
	.gx	(gthunk	�gthunk(.gfilenamefsystem/repl/coop-server.scm�
	?
��		B	��		B		��	E	C	��	a	C	��	f	D	
��	k	D	&���	E	&���	D	
���	F	���	F	���	G	
���	H	���	H	���	H	���	I	
��	B		��(	A	��.	K	��	.gnamegcoop-repl-read�g
documentationf5Read an expression via the thunk stored in COOP-REPL.�C�Rn�hV]LL6Ngfilenamefsystem/repl/coop-server.scm�
	R	��		R	%��		
Chh]LO6`gexp
		gfilenamefsystem/repl/coop-server.scm�
	P	��		Q	��		CRrh �]�&
	O�C6�gcont
		 g	coop-repl		 gfilenamefsystem/repl/coop-server.scm�
	M
��		O	��		 	gnamegstore-repl-cont�g
documentationf4Save the partial continuation CONT within COOP-REPL.�C�R��h]L6		
Ch0]U4O>XCXFG@�gthunk
		)ghandler		)gargs			)gfilenamefsystem/repl/coop-server.scm�
	T
��		V	��		V	��	
	V	��		)gnamegcoop-repl-prompt�g
documentationf2Apply THUNK within a prompt for cooperative REPLs.�C�R���2!h(^]LY4L>"G4L>ZCZFVgfilenamefsystem/repl/coop-server.scm�
	b	
��			d	��		e	��		(
CnR�hhN]L6Fgfilenamefsystem/repl/coop-server.scm�
	f	��		
CkhN]L6Fgfilenamefsystem/repl/coop-server.scm�
	f	��		
Cg��*��hD][45OL�&L
�"	4L5OO4O>"GVL�&	L	�"	4L	5$4
>"G"L�&L	�"4L>"G4
L�&L�"	4L5>"GX4O>"GLWF<grepl
	
gstack	
	gmodule		
	g
read-thunk	gx		;gfilenamefsystem/repl/coop-server.scm�
	\	��		a	��	
	`	��		]	��	$	f	��	;	f	��	d	g	���	g	���	h	
���	h	���	h	
���	i	���	j	���	j	#���	j	���	f	��	k	��	k	��	
ChS]OCKg	coop-repl
		
gfilenamefsystem/repl/coop-server.scm�
	X
��		
gnamegmake-coop-reader�g
documentationf�Return a new procedure for reading user input from COOP-REPL.  The
generated procedure passes the responsibility of reading input to
another thread and aborts the cooperative REPL prompt.�C�Rm���h(S]445>"G6Kgcoop-server
		'g	coop-repl		'gfilenamefsystem/repl/coop-server.scm�
	m
��		p	��			p	%��		q	��		p	��	'	r	��		'	gnamegreader-loop�g
documentationfRun an unbounded loop that reads an expression for COOP-REPL and
stores the expression within COOP-SERVER for later evaluation.�C�R5RShhN]L6Fgfilenamefsystem/repl/coop-server.scm�
	y	��		
CkhN]L6Fgfilenamefsystem/repl/coop-server.scm�
	y	��		
C����n�����h�]1�&
�"	45OO4O>"GV�&�"	4545$"45X4O>"G$}"�$���	&��$����$[�(7�4�
&		�"	45>"G"	44
5>"�G"�44
5>"�G"�44
5>"�G"�44
5>"�G"�44
5>"pG"i�$^��&>�$/�( �4>"G""���""���""���""���"C�gcoop-server
	gx	�gqueue		\	xgop�gw	��gx	��gw	�Lgx	�Lgw	�gw	�
gx	�
gw	��gfilenamefsystem/repl/coop-server.scm�
	t
��		y	��		y	��	E	z	��	\	z	��	_	{	��	i	{	��	o	|	��	z	y	���	y	���	}	���	~	����		��
	~	����		���	~	��	gnamegpoll-coop-repl-server�g
documentationf�Poll the cooperative REPL server COOP-SERVER and apply a pending
operation if there is one, such as evaluating an expression typed at the
REPL prompt.  This procedure must be called from the same thread that
called spawn-coop-repl-server.�C0R����hO]LL6Ggfilenamefsystem/repl/coop-server.scm�
�	��		

C� ��h8�]454LO>"G45456�g	coop-repl
		5gfilenamefsystem/repl/coop-server.scm�
�	��	�	��	�	��	
�	��	'�	��	-�	(��	5�	��		5
Chd-13C\gargs
			gfilenamefsystem/repl/coop-server.scm�
�	��			


Ch�]O6�gcoop-server
		gfilenamefsystem/repl/coop-server.scm�
�
��	�	��		gnamegstart-coop-repl�g
documentationf5Start a new cooperative REPL process for COOP-SERVER.�C�R&�h]456gcoop-server
		g
server-socket		gfilenamefsystem/repl/coop-server.scm�
�
��	�	��	�	��			gnamegrun-coop-repl-server�g
documentationfQStart the cooperative REPL server for COOP-SERVER using the socket
SERVER-SOCKET.�C�R'e��hO]LL6Ggfilenamefsystem/repl/coop-server.scm�
�	��		

C�h@�-.,3#45454O>"GC�g
server-socket
		>gcoop-server		>gfilenamefsystem/repl/coop-server.scm�
�
��	�	$��	�	��	�	��	!�	��		>
gnamegspawn-coop-repl-server�g
documentationf�Create and return a new cooperative REPL server object, and spawn a
new thread to listen for connections on SERVER-SOCKET.  Proper
functioning of the REPL server requires that poll-coop-repl-server be
called periodically on the returned server object.�C/Rm�h�]L6�gclient
		gaddr		gfilenamefsystem/repl/coop-server.scm�
�	��	�	'��	�	��			Ch]OC�gcoop-server
		
gfilenamefsystem/repl/coop-server.scm�
�
��		
gnamegmake-coop-client-proc�g
documentationfgReturn a new procedure that is used to schedule the creation of a new
cooperative REPL for COOP-SERVER.�C�R(��ha]4L56Ygfilenamefsystem/repl/coop-server.scm�
�	��	�	2��	
�	&��		
C*��������������hX]L6Pgfilenamefsystem/repl/coop-server.scm�
�	
��	�	��		
C�)hX]L6Pgfilenamefsystem/repl/coop-server.scm�
�	��	�		��		
Chd-13C\gargs
			gfilenamefsystem/repl/coop-server.scm�
�	��			


Ch0] 45$"4	>"G45$"4	>"G45$"4	>"G45$"4	>"G����4	�L54	�L54	�L54	�L5Y
Y4LO>"GZZ
LO6�gt-6cff15a80cd23e5-300
	
"gt-6cff15a80cd23e5-301	
"gt-6cff15a80cd23e5-302		
"gt-6cff15a80cd23e5-303		
"gfilenamefsystem/repl/coop-server.scm�
�	��	
�	����	&����	��0�	��	0
ChX]LLO6Pgfilenamefsystem/repl/coop-server.scm�
�	��	�	��		
Ch@8]4O>"G4>"GO60gcoop-server
		:gclient		:gfilenamefsystem/repl/coop-server.scm�
�
��	�	��	�	��	:�	��		:	gnamegstart-repl-client�g
documentationfmRun a cooperative REPL for COOP-SERVER within a prompt.  All input
and output is sent over the socket CLIENT.�C�RCgm
		,grtd
��grtd
m�gfilenamefsystem/repl/coop-server.scm�		
���	$
��1	*
��h	-
��N	4
��=L	<
��A	?
��C9	M
��D�	T
��J	X
��K�	m
��Q�	t
��T��
��U��
��X~�
��Z[�
��`��
��	`�
C6system/repl/common.go000064400000033433150536206120010657 0ustar00GOOF----LE-8-2.07]�4h|]gguile�	�	gdefine-module*�	�	�	gsystem�	grepl�	gcommon�		�	
gfilenameS�	fsystem/repl/common.scm�	gimportsS�	
gbase�	gsyntax�	
�	�	gcompile�	
�	�	glanguage�	
�	�	gmessage�	
�	�	gvm�	gprogram�	�	�	gice-9�	gcontrol�	 �	! �	"ghistory�	#"�	$#�	%!$�	&gexportsS�	'g<repl>�	(g	make-repl�	)g
repl-language�	*grepl-options�	+g
repl-tm-stats�	,g
repl-gc-stats�	-g
repl-debug�	.grepl-welcome�	/grepl-prompt�	0g	repl-read�	1grepl-compile�	2grepl-prepare-eval-thunk�	3g	repl-eval�	4grepl-expand�	5g
repl-optimize�	6g
repl-parse�	7g
repl-print�	8grepl-option-ref�	9grepl-option-set!�	:grepl-default-option-set!�	;grepl-default-prompt-set!�	<gputs�	=g->string�	>g
user-error�	?g
*warranty*�	@g	*copying*�	Ag	*version*�	B'()*+,-./0123456789:;<=>?@A�	Cg	autoloadsS�	Dgtree-il�	Egoptimize�	FDE�	Gg	optimize!�	HG�	IFH�	Jgset-current-module�	KJ�	LJ�	Mgformat�	NfGNU Guile ~A
Copyright (C) 1995-2016 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.�	Ogversion�	PfqGuile is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as
published by the Free Software Foundation, either version 3 of
the License, or (at your option) any later version.

Guile is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this program. If not, see
<http://www.gnu.org/licenses/lgpl.html>.�	Qf8Guile is distributed WITHOUT ANY WARRANTY. The following
sections from the GNU General Public License, version 3, should
make that clear.

  15. Disclaimer of Warranty.

  THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
IS WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
ALL NECESSARY SERVICING, REPAIR OR CORRECTION.

  16. Limitation of Liability.

  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
SUCH DAMAGES.

  17. Interpretation of Sections 15 and 16.

  If the disclaimer of warranty and limitation of liability provided
above cannot be given local legal effect according to their terms,
reviewing courts shall apply local law that most closely approximates
an absolute waiver of all civil liability in connection with the
Program, unless a warranty or assumption of liability accompanies a
copy of the Program in return for a fee.

See <http://www.gnu.org/licenses/lgpl.html>, for more details.�	Rgmake-record-type�	Sf<repl>�	Tgoptions�	Ugtm-stats�	Vggc-stats�	Wgdebug�	XTUVW�	Ygrecord-constructor�	Zg%compute-initargs�	[grecord-predicate�	\grepl?�	]gmake-procedure-with-setter�	^grecord-accessor�	_grecord-modifier�	`g	copy-tree�	agcompile-options�	bg%auto-compilation-options�	c�	dgtrace�	ed�	fginterp�	gf�	hgprompt�	igstring?�	jgthunk?�	kg
procedure?�	lgerror�	mfInvalid prompt�	ngprint�	ofInvalid print procedure�	pg
value-history�	qgvalue-history-enabled?�	rgenable-value-history!�	sgdisable-value-history!�	tg->bool�	ugon-error�	vg	backtrace�	wgreport�	xgpass�	yf)Bad on-error value ~a; expected one of ~a�	zWvwx�	{grepl-default-options�	|g
%make-repl�	}glanguageS�	~g	language?�	glookup-language��goptionsS��gtm-statsS��gtimes��ggc-statsS��gdebugS��gdisplay��gnewline��fEnter `,help' for help.
��f	~A@~A~A> ��g
language-name��gmodule-name��gcurrent-module��glength��g*repl-stack*��f��f [~a]��glanguage-reader��gcurrent-input-port��grepl-compile-options��gfromS��gtoS��gobjcode��goptsS��genvS��g	decompile��glanguage-parser��glanguage-evaluator��gmake-program��glanguage-compilers��gdefault-prompt-handler�� ��� ���gdefault-prompt-tag�� ��� ���grun-hook��gbefore-print-hook��gwrite��gassq��funknown repl option��gobject->string��gthrow�C5h��]4	
%&BCI5	4L>"G4MiN4Oi55ARP@RQ?R4RiSX5'RTUVW4Yi'i5Zh.-13L4L5@&gargs
						


CO(R4[i'i5\R4]i4^i'i54_i'i55)R4]i4^i'iT54_i'iT55*R4]i4^i'iU54_i'iU55+R4]i4^i'iV54_i'iV55,R4]i4^i'iW54_i'iW55-R4`iabic��eghih\]LCTgrepl
		gfilenamefsystem/repl/common.scm�
	u	&��		Cjhd]L6\grepl
		gfilenamefsystem/repl/common.scm�
	v	%��		v	4��		CklmhH�]$<45$OC45$OC45$C6C�gprompt
		Fgfilenamefsystem/repl/common.scm�
	r	��		s	��			u	��		s	��		v	��	&	s	��	/	w	��	9	s	��	@	x	!��	D	x	��		FCnkloh �]$45$C6C}gprint
		 gfilenamefsystem/repl/common.scm�
	y	��		z	��			|	��		z	��		}	 ��		}	��		 Cp4qi5rsth8~]$4>"G"4>"G6vgx
		2gfilenamefsystem/repl/common.scm�
�	��	�		��		�	��	�	'��	2�		��		2CuWWvwxlyzh@�]&"&"&"�$C6gx
		?gfilenamefsystem/repl/common.scm�
�		��	
�	��	2�	��	9�	��	=�	��	?�	��		?C5{R(i|R|}~�`{���V�
hP�-.,3#45$"45454	5
456
�glang
		Ngdebug		Ngfilenamefsystem/repl/common.scm�
�
��	�	��	$�	��	+�	��	4�	��	=�	��	D�	��	N�	��			Ngnameg	make-repl�C(R�A��h@�]4>"G4>"G4>"G6�grepl
		:gfilenamefsystem/repl/common.scm�
�
��	�	��	�	��	%�	��	8�	��	:�	��		:gnamegrepl-welcome�C.R8hM��)������
hp|]45$6445544554	
[$�"5
�$"
456tgrepl
		ngt		ngt		:	Mglevel		O	lgfilenamefsystem/repl/common.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	"�	*��	*�	��	+�	��	.�	��	4�	��	5�	��	:�	!��	J�	(��	O�	��	O�	��	T�	��	Y�	��	[�	 ��	`�	#��	e�	.��	i�	#��	n�	��		ngnamegrepl-prompt�C/R�)��h �]	445545456�grepl
		greader		gfilenamefsystem/repl/common.scm�
�
��	�	��	�	!��	�	��	�	��	�	��	�	!��	�	��			gnameg	repl-read�C0R8ah�]6�grepl
		
gfilenamefsystem/repl/common.scm�
�
��	�	��	
�	��		
gnamegrepl-compile-options�C�R)�������
h0�]45454	56	�grepl
		-gform		-gfrom			-gopts			-gfilenamefsystem/repl/common.scm�
�
��	�	��	
�	��	�	��	 �	#��	'�	��	-�	��		-	gnamegrepl-compile�C1R)����D���h@�]45454	4
55	6�grepl
		:gform		:gfrom			:gopts			:gfilenamefsystem/repl/common.scm�
�
��	�	��	
�	��	�	��	�	��	#�	.��	*�	��	0�	��	4�	��	:�	��		:	gnamegrepl-expand�C4R)��G��D���hH]454544	
455	4556grepl
		Fgform		Fgfrom			Fgopts			Fgfilenamefsystem/repl/common.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	&�	9��	-�	)��	3�	��	4�	��	<�	��	@�	��	F�	��		F	gnameg
repl-optimize�C5R�)h �]
4455$6C�grepl
		gform		gparser			gfilenamefsystem/repl/common.scm�
�
��	�	��	�	!��	�	��	�	��	�	��	�	��			gnameg
repl-parse�C6R�)�1�8f�h\]LL456Tgfilenamefsystem/repl/common.scm�
�	��	�	��	
�	��		
C	hhC]4455"
456$84455�$"	45$
OC"���"���;grepl
		cgform		cgeval			cgt		4	Mgfilenamefsystem/repl/common.scm�
�
��	�	��	�	#��	�	��	�	��	�	��	!�	��	!�	��	(�	��	+�	,��	3�	��	4�	��	4�	
��	B�	��	H�	'��	J�	��	Q�	��		c	gnamegrepl-prepare-eval-thunk�C2R2��hK]L6Cgfilenamefsystem/repl/common.scm�	�	��		
Ch8�]4545U4O>XCXFG@�grepl
		7gform		7gthunk			7ghandler			7gargs		,	7gfilenamefsystem/repl/common.scm�
�
��	�	��	�	��	�	��		7	gnameg	repl-eval�C3R��8n��hP�]
&C4>"G45$64>"G6�grepl
		Ngval		Ngt		(	Ngfilenamefsystem/repl/common.scm�
�
��		�	��	�	��	 �	
��	&�	 ��	(�	
��	(�	��	8�	��	9�	
��	N�	
��		N	gnameg
repl-print�C7R�*l�h0�]
4455$"	45��C�grepl
		-gkey		-gt			*gfilenamefsystem/repl/common.scm�
�
��	�	��	�	��	�	��	�	��	�	��	#�	��	'�	��	+�	��
		-	gnamegrepl-option-ref�C8R�*l�khPU]4455$"	45�4���5$4���5"�CMgrepl
		Pgkey		Pgval			Pgt			*gspec		*	Pgfilenamefsystem/repl/common.scm�
�
��	�	��	�	��	�	��	�	��	�	��	#�	��	'�	��	*�	��	/�	��	0�	��	5�	��	9�	��	=�	��	>�	��	A�	��	G�	��	N�	��		P	gnamegrepl-option-set!�C9R�{l�khP9]
45$"	45�4���5$4���5"�C1gkey
		Kgval		Kgt			%gspec		%	Kgfilenamefsystem/repl/common.scm�
�
��	�	��	�	��	�	��	�	��	"�	��	%�	��	*�	��	+�	��	0�	��	4�	��	8�	��	9�	��	<�	��	B�	��	I�	��		K	gnamegrepl-default-option-set!�C:R:hh�]6�gprompt
		
gfilenamefsystem/repl/common.scm�
�
��	�	��	
�	��		
gnamegrepl-default-prompt-set!�C;R��h|]4>"G6tgx
		gfilenamefsystem/repl/common.scm�
�
��	�	��	�	��		gnamegputs�C<R��hw]6ogx
		
gfilenamefsystem/repl/common.scm�

��	
	��		
gnameg->string�C=R�>h�-136�gmsg
			gargs			gfilenamefsystem/repl/common.scm�

��	
		��		��			
gnameg
user-error�C>RC�gm
		0gslots
	t�gconstructor	t�gfilenamefsystem/repl/common.scm�		
��	1	(	��	8	(	
��	9	-	7��	A	(	��	D	'
��	F	0
��	I	/
��	K	?
��	N	>
��	\	j
���	n	���	o	��k		��A	o	��/	n	��2	m
��9�
��w�
��u�
��
��
����
��B�
��
|�
����
��k�
��r�
����
��<�
����
����
����
��$�
����
����
��*
���
��&	�
C6system/xref.go000064400000046607150536206120007400 0ustar00GOOF----LE-8-2.0oM]�4h�	]gguile�	�	gdefine-module*�	�	�	gsystem�	gxref�	�		gfilenameS�	
fsystem/xref.scm�	gimportsS�	gbase�	
gpmatch�	
�	�	gcompile�	�	�	gvm�	gprogram�	�	�	gsrfi�	gsrfi-1�	�	�	�	gexportsS�	g*xref-ignored-modules*�	gprocedure-callees�	gprocedure-callers�	 gsource-closures�	!gsource-procedures�	" !�	#gset-current-module�	$#�	%#�	&gmemq�	'gprogram-objects�	(g
vector-length�	)gmake-vector�	*g	decompile�	+gprogram-objcode�	,gtoS�	-gassembly�	.gload-program�	/gfor-each�	0gtoplevel-set�	1gtoplevel-ref�	2gprogram?�	3gfold�	4gprogram-callee-rev-vars�	5g	variable?�	6gmodule-variable�	7gprogram-module�	8gthe-root-module�	9gnested-ref-module�	:gresolve-module�	;gmodule-public-interface�	<gprocedure-callee-rev-vars�	=g*callers-db*�	>gmake-hash-table�	?g*module-callees-db*�	@g*tainted-modules*�	Ag
value-history�	BA�	CB�	Dgmodule-name�	Egmember�	Fgon-module-modified�	Gg	hashq-ref�	Hgassoc�	Ig
hashq-set!�	Jg
add-caller�	Kg
assoc-remove!�	Lgforget-callers�	Mg	hash-set!�	Ngappend�	Oghash-ref�	Pgadd-callees�	Qgensure-callers-db�	Rguntaint-modules�	Sg
hash-for-each�	Tgmodule-observers�	Ugmodule-observe�	Vgmodule-for-each�	Wg
procedure?�	Xgfilter�	Ygvariable-bound?�	Zgmodule-submodules�	[gcurrent-module�	\gerror�	]f/expected a variable, symbol, or (modname . sym)�	^gprogram-sources�	_gprocedure-sources�	`g*closure-sources-db*�	ag*sources-db*�	bg*module-sources-db*�	cg*tainted-sources*�	dgon-source-modified�	eg
hashv-set!�	fg	hashv-ref�	gg
add-source�	hgdelq�	ig
hashv-remove!�	jg
forget-source�	kfunexpected source format�	lgadd-sources�	mgand=>�	ngvector->list�	og
hashq-remove!�	pgforget-sources�	qgensure-sources-db�	rguntaint-sources�	sgsort!�	tghash-map->list�	ugcons�	vg
lines->ranges�	wgreverse�	xglookup-source-procedures�	ygcanonicalizationS�	zy	��	{z�	|grelative�	}g %file-port-name-canonicalization�	~gcatch�	~��~��gopen-input-file��g
port-filename�C5h�A�]4	
"54%>"G&h�]45$C�C�gx
		gy		gfilenamefsystem/xref.scm�
	"	��		#	��		#	��		#	��			gnameg	cons-uniq�C'()*+,-./01h��]!"@�$7��&#�$��(L�CCCCC�$=��&'�$��(L�C"���"���"��|"��x�gx
	�gvx		Dgvy			Dgvx		,	@gvy		,	@gvx	S�gvy		S�gvx		l�gvy		l�	gfilenamefsystem/xref.scm�
	-	��		.	��	<	0	'��	F	.	��	|	/	'���	.	��	�C2345&6789:;h@�]�45$)4544554455�$g��	&K�$@���$)�	�4
O	>"G	"""""��$C4�5$�4
4�55"����$5�45$#�45$"�"����$R445		$	"	5	�	$4	5$"	�""��1�$���
	
�$�
�
��$x��
(f445	5$4
$45"5"�$45$"�""���CCCC�"��}
"��sC�gprog
	@g	cons-uniq	@gt		
@gn		9>gprogv		9>gasm		9>gvx		L�gvy		L�gvy		b�gvy			r�gi	�4gout	�4gobj	�'gt		8Kgv		O�gvx		�%gvy	
�%gvx	�#gvy	�#gvx	
�!gvy	�!gm	�gv	�gfilenamefsystem/xref.scm�
	!
��		%	��	
	$	��		'	��		(	��	 	(	$��	)	(	��	*	)	��	-	)	 ��	7	)	<��	9	)	��	9	'	
��	B	*	��	y	,	���	2	���	4	���	3	���	5	���	5	���	5	���	3	���	6	���	7	���	8	���	8	3���	8	���	7	���	6	���	9	���	3	���	:	���	:	���	;	��	;	��	<	��	#	��	#	��	#	��'	<	��*	?	%��.	>	��/	@	"��2	@	7��8	@	3��O	@	"��O	@	��T	C	��Z	C	&��[	#	��g	#	��r	#	���	C	���	>	���	F	#���	F	6���	F	F���	F	6���	F	#���	F	���	H	#���	I	(���	J	)���	K	-���	I	(���	F	���	N	���	O	���	#	��	#	��	#	��	N	��*	P	��4	P	��4	2	��6	2	 ��>	2	��?	Q		��N	@gnamegprogram-callee-rev-vars�C4R24h�]45$6C�gproc
		gfilenamefsystem/xref.scm�
	S
��		U	��	
	T	��		U	��		V		��		gnamegprocedure-callee-rev-vars�C<R<hHY]"0(C�$���"����"���45"���Qgprog
		Fgin		6gout			6gfilenamefsystem/xref.scm�
	X
��		Z	��		[	��		\	��		\	��		[	��		]	��		]	,��		]	��	!	]	��	)	]	��	,	^	��	6	^	��	6	Z	��	7	Z	��	>	Z	6��	F	Z	��		Fgnamegprocedure-callees�g
documentationf1Evaluates to a list of the given program callees.�CR=R4>i5?R@RCRDE@hH�]	4545$"45$"�$	� CC�gm
		Agname			Agfilenamefsystem/xref.scm�
	h
��		i	��			i	��		j	��		j	��		k	��	*	j	��	2	l	
��	6	j	��	;	m	 ��	=	m	��		Agnamegon-module-modified�CFRG=HEIhhE]45$=45$45$C���C�66=gcallee
		bgcaller		bgmod-name			bgall-callers			bgcallers			Pgfilenamefsystem/xref.scm�
	o
��		p	��		p	��		q	��		s	��		s	��	$	t	
��	%	u	��	1	u	��	:	v	1��	;	v	$��	<	v	��	K	x	 ��	N	x	��	P	w	��	]	r	(��	b	r	��		b	gnameg
add-caller�CJRI=KGh �]44556�gcallee
		gmod-name		gfilenamefsystem/xref.scm�
	z
��			|	
��		|	��		|	;��		|	��		|	
��		{	��			gnamegforget-callers�CLRM?NOh �]44556�gcallees
		gmod-name		gfilenamefsystem/xref.scm�
	~
��		�	
��	�	��	�	D��	�	��	�	
��			��			gnamegadd-callees�CPRQ//Lha]L6Ygcallee
		
gfilenamefsystem/xref.scm�
�	��	
�	��		
CO?Qh0�]4O45>"G6�gm
		)gfilenamefsystem/xref.scm�
�	��	�	��	
�	��	�	.��	�	��	�	��	)�	��		)gnameguntaint�C@h0�]4>"G4>"G Czgfilenamefsystem/xref.scm�
�
��	�	��	�	��	(�	��	*�	��		,
gnameguntaint-modules�CRR:SI&FTUDVGWIXY</Jha]LL6Ygcallee
		gfilenamefsystem/xref.scm�
�	��	�	��		CP
h�9]$�M$
4M5"$C45$RM$4M>"G"44554LO>"G	L6CC1gsym
	�gvar	�gx		�gt		"�gcallees		e�gfilenamefsystem/xref.scm�
�	��	�	
��		�	��	�	��	�	
��	�	��	�	��	"�	��	.�	��	8�	��	>�	��	?�	��	X�	��	]�	%��	e�	��	e�	��	h�	����	��	�	CG
h��]
"vM$4M>"G"4455$"4>"G454LO>"GL6M$4	M5$C"��q"��m�gname
	�gsub	�gname		V	vgfilenamefsystem/xref.scm�
�	��	�	��	
�	��	&�	��	+�	(��	3�	��	7�	��	<�	
��	P�	��	V�	��	Y�	��	|�	��	|�		����	����	��	�	CZh�]LLO456|gmod
		gfilenamefsystem/xref.scm�
�	��	�	��	�	��		gnamegvisit-submodules�C=>I&FTUDVGWIXY</Jha]LL6Ygcallee
		gfilenamefsystem/xref.scm�
�	��	�	��		CP
h�9]$�M$
4M5"$C45$RM$4M>"G"44554LO>"G	L6CC1gsym
	�gvar	�gx		�gt		"�gcallees		e�gfilenamefsystem/xref.scm�
�	��	�	
��		�	��	�	��	�	
��	�	��	�	��	"�	��	.�	��	8�	��	>�	��	?�	��	X�	��	]�	%��	e�	��	e�	��	h�	����	��	�	C
h��]!$45"HOQ$"�$4�5 4�5K456$aJ$4J>"G"4455$"4	>"G4
5O6C�gmod-name
	�gmod	�gvisited		�gvisit-submodules		"�gname	��gfilenamefsystem/xref.scm�
�
��	�	
��		�	��	�	��	/�	��	7�	��	;�	��	<�	��	E�	��	F�	��	O�	��	R�	��	U�	-��	X�	��	Z�	��	`�	��	f�	��	g�	����	����	(����	����	����	
����	����	����	��	�gnamegensure-callers-db�CQR56[:\]RG=
hxN]45$"I�$4455"2�$"��4455"	454>"G	6Fgvar
		wgvx	7	Ogvy		7	Ogv	\	wgfilenamefsystem/xref.scm�
�
��	�	��	
�	��	�	��	�	��	�	 ��	�	1��	&�	 ��	-�	��	<�	��	?�	&��	I�	��	T�	��	X�	��	\�	��	\�	��	_�	��	u�	��	w�	��		wgnamegprocedure-callers�g
documentationf�Returns an association list, keyed by module name, of known callers
of the given procedure. The latter can specified directly as a
variable, a symbol (which gets resolved in the current module) or a
pair of the form (module-name . variable-name), �CR2^h�]45$6C�gproc
		gfilenamefsystem/xref.scm�
�
��	�	��	
�	��	�	��	�		��		gnamegprocedure-sources�C_R`RaR4>i5bRcRDEchH�]	4545$"45$"�$	� CC�gm
		Agname			Agfilenamefsystem/xref.scm�
�
��	�	��		�	��	�	��	�	��	�	��	*�	��	2�	
��	6�	��	;�	 ��	=�	��		Agnamegon-source-modified�CdRO>MefhX=]45$""454>"G45�65gproc
		Ugfile		Ugline			Ugdb			Ugt			>gtable			;g
file-table		>	Ugfilenamefsystem/xref.scm�
�
��	�	��	�	��	�	%��	�	��	!�	��	>�	��	I�	��	P�	6��	R�	��	S�	��	U�	��
		U	gnameg
add-source�CgROhfeihHC]45$,4455�$
66C;gproc
		Agfile		Agline			Agdb			Ag
file-table			Agprocs		$	?gfilenamefsystem/xref.scm�
�
��	�	��	�	��	�	��	�	��	�	 ��	 �	;��	"�	 ��	$�	��	$�	��	)�	��	-�	
��	7�	��	?�	��		A	gnameg
forget-source�CjR_IOb>M/g\khX�]!�$F���$.���$��LL6666�gsource
		Wgvy		Ogvx			Ggvy			Ggvx		-	?gfilenamefsystem/xref.scm�
�	��		��	?	��	C	%��	G	��	K	%��	O	��	S	%��	W	��
		WCWl`h p]45$
L6Chgobj
		gfilenamefsystem/xref.scm�
	��		��	
	��		��		C2m'nh��]45�$o445$""454>"G>"G4O>"G"	O4
5$445
5"$"6�gproc
	�gmod-name	�gdb		�gsources			�gt			Qgtable		1	Ngt	��gfilenamefsystem/xref.scm�
�
��	�	��		�	��	�	��	�	��	�	
��	�	��	�	��	-�	'��	1�	��	4�	��	Z�	
��	c�	
���		���		���
	���
	���
	���		���	���	��	�	gnamegadd-sources�ClROb/j\khX�]!�$F���$.���$��LL6666�gsource
		Wgvy		Ogvx			Ggvy			Ggvx		-	?gfilenamefsystem/xref.scm�
	��		��	?	��	C	%��	G	��	K	%��	O	��	S	%��	W	��
		WCGoWp`h p]45$
L6Chgobj
		gfilenamefsystem/xref.scm�
	��		��	
	��		��		C2m'nh�]]45$r4O45>"G4>"GO45$4	4
55"$"6CUgproc
	�gmod-name	�gdb		�g	mod-table		�gt		q�gfilenamefsystem/xref.scm�

��		��		��		��		
��	 	��	'	.��	)	��	.	
��	7	
��	T	��	^	��	_	��	b	��	l	��	q	��� 	���	
��	�	gnamegforget-sources�CpRq//pah_]L6Wgproc
		gfilenamefsystem/xref.scm�
$	��	$	��		CObShk]Ccgproc
		gsources		gfilenamefsystem/xref.scm�
(	$��			CqhH�]	4O45$
45">"G6�gm
		Agt		.gfilenamefsystem/xref.scm�
#	��	$	��	
&	��	%	��	(	��	+)	��	3$	��	A*	��			Agnameguntaint�Cch0�]4>"G4>"G Czgfilenamefsystem/xref.scm�
"
��	+	��	,	��	(-	��	*-	��		,
gnameguntaint-sources�CrR&dTUDVWlah(�]
$45$
L6CC�gsym
		'gvar		'gx			%gfilenamefsystem/xref.scm�
5	��	6	
��		6		��	7	��	7	
��	8	��	8	��	#9	��			'	ChH�]	4455$"4>"G45O6�gmod
		Bgname	3	Bgfilenamefsystem/xref.scm�
0	��	1	
��	1	&��	1	
��	1	��	2	��	-3	��	33	��	B4	��
		Bgnamegvisit-module�C>SGIh@�]4M5$C4M>"G4L>"GM6�gname
		>gsub		>gfilenamefsystem/xref.scm�
B		��	C	��	C	��	E	��	'F	��	>G	��		>	CZh0�]M$"45NLLLO456zgmod
		)gfilenamefsystem/xref.scm�
>	��	?	��	
@	��	@	��	!H		��	)A	��		)Ca`>:hpJ]HHOK$"$"�$4�5 4�5 J456$456CBgmod-name
		kgvisit-submodules		kgvisit-module				kgvisited		
	gfilenamefsystem/xref.scm�
/
��	
=	��	"J		��	5J	0��	9J	��	:K	$��	CK		��	DL	��	ML		��	PM	��	SM	+��	VM	��	XM		��	^J	��	aN	 ��	iN	��		kgnamegensure-sources-db�CqR>S/GIhH�]	4L5$&L��$	L�"L��$L�CCLLL�6�gproc
		Fgt		Fgfilenamefsystem/xref.scm�
U	��	W	��	V	
��	Y	��	Y	��	Y	��	"Z	��	+[	��	,[	��	0[	��	5\	��	D^	$��	F^	��		FChr]LO6jgline
		gprocs		gfilenamefsystem/xref.scm�
S	��	T	��			Cstuh}]�����Cugx
		gy		gfilenamefsystem/xref.scm�
b	��	b	��		b	%��	b	��			Ch8�]	454O>"G456�g
file-table
		1granges		1gfilenamefsystem/xref.scm�
P
��	Q	��	Q	��	
R	��	%a	��	1a	��		1gnameg
lines->ranges�CvROwvh��]45"O(6"
�"�������$"����$����"���"���"���$45""����g
canon-file
		{gline		{gdb			{g
file-table			{granges			`gprocs			`gfilenamefsystem/xref.scm�
d
��	e	��	e	��	f	��	h	��	i	��	$m	��	.m	��	.h	��	1j	��	6j	��	:h	��	?j	 ��	Bj	��	Ik	��	Lk	��	Pk	��	Xk	��	`f	��	ff	��	gf	$��	rf	?��	sg	��	{f	��		{	gnameglookup-source-procedures�CxR{|q}��hL]L6Dgfilenamefsystem/xref.scm�
r	��	r	%��		
ChX-13CPgargs
			gfilenamefsystem/xref.scm�
r	��			


C�x`hh+-/03#4>"GY4O5Z$45"	
6#gfile
		egline		egcanonicalization			egport		D	egfile		Y	egfilenamefsystem/xref.scm�
o
��	o	<��	p	��	5r	��	Dq	��	Ls	��	Ms	��	Yq	��	et	��
		e	
gcanonicalizationS	�gnamegsource-closures�C R{|q}��hL]L6Dgfilenamefsystem/xref.scm�
y	��	y	%��		
ChX-13CPgargs
			gfilenamefsystem/xref.scm�
y	��			


C�xahh--/03#4>"GY4O5Z$45"	
6%gfile
		egline		egcanonicalization			egport		D	egfile		Y	egfilenamefsystem/xref.scm�
v
��	v	>��	w	��	5y	��	Dx	��	Lz	��	Mz	��	Yx	��	e{	��
		e	
gcanonicalizationS	�gnamegsource-procedures�C!RC}gm
		,gfilenamefsystem/xref.scm�		
��	�	!
��
u	S
��,	X
��0	a
��1	c	��:	c
��;	e	��>	e
��@	g	��C	g
��
t	h
��@	o
��2	z
��%	~
��]�
��G�
�� 1�
�� ��
�� ��
��!�
��!�	��!�
��!
�	��!�
��"O�
��$�
��%��
��*�
��. 
��1
"
��6�/
��: P
��<kd
��>�o
��A�v
��%	A�
C6system/base/target.go000064400000014774150536206120010634 0ustar00GOOF----LE-8-2.0�]i4h�]gguile�	�	gdefine-module*�	�	�	gsystem�	gbase�	gtarget�		�	
gfilenameS�	fsystem/base/target.scm�	gimportsS�	
grnrs�	gbytevectors�	
�	�	gice-9�	gregex�	�	�	�	gexportsS�	gtarget-type�	gwith-target�	g
target-cpu�	g
target-vendor�	g	target-os�	gtarget-endianness�	gtarget-word-size�	�	gset-current-module�	 �	!�	"gforeign�	#"�	$gsizeof�	%#$�	&#$�	'g*�	(g%native-word-size�	)g
make-fluid�	*g
%host-type�	+g%target-type�	,gnative-endianness�	-g%target-endianness�	.g%target-word-size�	/gstring?�	0gstring-split�	1glength�	2gor-map�	3gstring-null?�	4gerror�	5finvalid target�	6gvalidate-target�	7gtriplet-cpu�	8gcpu-endianness�	9gtriplet-pointer-size�	:gstring=?�	;gstring-match�	<f
^i[0-9]86$�	=glittle�	>gmember�	?fx86_64�	@fia64�	Af	powerpcle�	Bfpowerpc64le�	Cfmipsel�	Dfmips64el�	Efnios2�	Ffsh3�	Gfsh4�	Hfalpha�	I?@ABCDEFGH
�	Jfsparc�	Kfsparc64�	Lfpowerpc�	Mf	powerpc64�	Nfspu�	Ofmips�	Pfmips64�	Qfm68k�	Rfs390x�	SJKLMNOPQR	�	Tgbig�	Uf^arm.*el�	Vf^arm.*eb�	Wgstring-prefix?�	Xfarm�	Yf^aarch64.*be�	Zfaarch64�	[funknown CPU endianness�	\f^mips64.*-gnuabi64�	]f^mips64�	^f^x86_64-.*-gnux32�	_f64$�	`f64_?[lbe][lbe]$�	aJLOCEQFG�	bRH�	cf^arm.*�	dfunknown CPU word size�	eg
triplet-os�	fg	substring�	ggstring-index�	hgtriplet-vendor�C5hH*]4	
54!>"G4&'5(R4)i*i5+R4)i4,i55-R4)i(i5.R/012345hX�]45$54-545	�$"	45"$6C�gtarget
		Qgparts		>gt		"	;gfilenamefsystem/base/target.scm�
	-
��		.	��	
	.	��		/	��		/	
��		0	��	"	0	��	"	0	��	0	1	��	C	.	
��	G	.	��	K	2	
��	O	2	��		Qgnamegvalidate-target�C6R67+-.89hH�]
4>"G454545Y4>ZCZF�gtarget
		Agthunk		Agcpu			Agfilenamefsystem/base/target.scm�
	4
��		5	��		6	
��		6	��	&	8	&��	-	9	%��	6	:	��		A	gnamegwith-target�CR:7*,;<=>ISTUVWXYZ4[h�-]4455$645$C4	5$C4
5$C45$C4
5$C45$C45$C45$C6%gcpu
	�gfilenamefsystem/base/target.scm�
	<
��		>	��		>	��		>	��		>	��		?	��		@	
��		@	��	!	@	
��	%	@	��	'	A	
��	)	B	
��	/	B	��	1	B	
��	5	@	��	7	D	
��	9	E	
��	?	E	��	A	E	
��	E	@	��	G	G	
��	I	H	
��	M	H	��	Q	H	
��	U	@	��	W	I	
��	Y	J	
��	]	J	��	a	J	
��	e	@	��	g	K	
��	i	L	
��	m	L	��	q	L	
��	u	@	��	w	M	
��	y	N	
��	}	N	���	N	
���	@	���	O	
���	P	
���	P	���	P	
���	@	���	Q	
���	S	���	S	
��1	�gnamegcpu-endianness�g
documentationfReturn the endianness for CPU.�C8R7;<\]^_`>abc4d:*e(h�}]	45"�45$	C45$	C45$	C45$	C45$	C45$	C4	
5$	C4	5$	C45$	C
64455$445455$C"��8"��4ugtriplet
	�gcpu		�gfilenamefsystem/base/target.scm�
	U
��		W	
��			W	��		\	��		\	��		\	��		X	��	 	c	��	$	c	��	(	c	��	,	X	��	0	d	��	4	d	��	8	d	��	<	X	��	@	f	��	D	f	��	H	f	��	L	X	��	P	h	��	T	h	��	X	h	��	\	X	��	`	i	��	d	i	��	h	i	��	l	X	��	p	j	��	v	j	��	x	j	��	|	X	���	k	���	k	���	k	���	X	���	l	���	l	���	l	���	X	���	m	���	m	���	X	���	X	���	X	���	X	���	X	���	Y	���	Y	���	Y	/���	Y	���	X	��4	�gnamegtriplet-pointer-size�g
documentationf1Return the size of pointers in bytes for TRIPLET.�C9Rfgh�]
4-56xgt
		gfilenamefsystem/base/target.scm�
	o
��		p	��		p	��		gnamegtriplet-cpu�C7Rgfh(�]	4-5�4-56�gt
		!gstart		!gfilenamefsystem/base/target.scm�
	r
��		s	��		s	��		s	��		t	��	!	t	��		!gnamegtriplet-vendor�ChRgfh �]	4-4-5�5�6�gt
		 gstart		 gfilenamefsystem/base/target.scm�
	v
��		w	��	
	w	+��		w	'��		w	��		w	��		w	��	 	x	��			 gnameg
triplet-os�CeR+h�][C�gfilenamefsystem/base/target.scm�
	{
��		
gnamegtarget-type�g
documentationf<Return the GNU configuration triplet of the target platform.�CR7h�]456�gfilenamefsystem/base/target.scm�
	
��	�	��	�	��		
gnameg
target-cpu�g
documentationf+Return the CPU name of the target platform.�CRhh�]456�gfilenamefsystem/base/target.scm�
�
��	�	��	�	��		
gnameg
target-vendor�g
documentationf.Return the vendor name of the target platform.�CReh�]456�gfilenamefsystem/base/target.scm�
�
��	�	��	�	��		
gnameg	target-os�g
documentationf8Return the operating system name of the target platform.�CR-h�][C�gfilenamefsystem/base/target.scm�
�
��		
gnamegtarget-endianness�g
documentationf4Return the endianness object of the target platform.�CR.h�][C�gfilenamefsystem/base/target.scm�
�
��		
gnamegtarget-word-size�g
documentationf7Return the word size, in bytes, of the target platform.�CRC"gm
		,gfilenamefsystem/base/target.scm�		
��	-	'	��	/	'	��	1	'	��	3	'	��	6	$
��	7	)	��	D	)
��	E	*	��	J	*	'��	R	*	��	U	*
��	V	+	��	c	+
���	-
��	4
��	<
��	�	U
��
S	o
��@	r
��4	v
��
	{
��
�	
����
����
��t�
��F�
��	H
C6system/base/compile.go000064400000034101150536206120010760 0ustar00GOOF----LE-8-2.0)8]�4h]gguile�	�	gdefine-module*�	�	�	gsystem�	gbase�	gcompile�		�	
gfilenameS�	fsystem/base/compile.scm�	gimportsS�	
gsyntax�	
�	�	glanguage�	�	�	gmessage�	�	�	gvm�	�	�	gice-9�	gregex�	�	�	goptargs�	�	�	 greceive�	! �	"!�	#"�	$gexportsS�	%gcompiled-file-name�	&gcompile-file�	'gcompile-and-load�	(gread-and-compile�	)g	decompile�	*%&'()�	+gset-current-module�	,+�	-+�	.gerror�	/f"thunk may only be entered once: ~a�	0g	call-once�	1g
string-append�	2f.XXXXXX�	3gmkstemp!�	4fwb�	5gwith-throw-handler�	6gcatch�	76�	86�	9g
stat:perms�	:gstat�	;glognot�	<gumask�	=gchmod�	>g
close-port�	?grename-file�	@gdelete-file�	Agcall-with-output-file/atomic�	Bg	language?�	Cglookup-language�	Dgensure-language�	Egsystem-error�	Fgmkdir�	GgEEXIST�	HgENOENT�	Igensure-directory�	Jgdirname�	Kgthrow�	Lg%compile-fallback-path�	Mgcanonicalize-path�	Ngstring-prefix?�	Of/�	Pg
string-length�	Qg
string-ref�	Rg	substring�	Sg%load-compiled-extensions�	Tgstring-null?�	Ugwarn�	Vf!invalid %load-compiled-extensions�	Wf.go�	Xgoutput-fileS�	YX��	ZgfromS�	[Z	��	\gtoS�	]\	��	^genvS�	_^	��	`goptsS�	a`	��	bgcanonicalizationS�	cb	��	dY[]_ac�	egcurrent-language�	fgobjcode�	ggdefault-environment�	hgrelative�	ig %file-port-name-canonicalization�	jf,failed to create path for auto-compiled file�	kgopen-input-file�	lg
file-encoding�	mgset-port-encoding!�	nfUTF-8�	oglanguage-printer�	pZ��	q\	��	r^	��	s`	��	tb	��	upqrst�	vgvalue�	wgcurrent-module�	xgmap�	ygcdr�	zglookup-compilation-order�	{fno way to compile�	|fto�	}gcompile-passes�	~gcompile-fold�	glanguage-joiner��greverse��gfind-language-joint��fBMultiple expressions read and compiled, but language has no joiner��gdefault-language-joiner��glanguage-reader��geof-object?��glanguage-parser��gread-and-parse��pqrs��g
parameter?��������g	scm-error��gwrong-type-arg��fparameterize��fNot a parameter: ~S��gmemq��gwarningsS��gfor-each��glookup-warning-type��gwarning��gunsupported-warning��glookup-decompilation-order��fno way to decompile��gdecompile-passes��gdecompile-fold��^����[]s��gassembly�C5hp+�]4	
#$*54->"G./h(r]M$4L>"G"NCjgfilenamefsystem/base/compile.scm�
	+	��		,	
��			-	��	
	-	��		-	��	#	.	
��		%
ChJ]CBgfilenamefsystem/base/compile.scm�
	0	��		
C./h(r]M$4L>"G"NCjgfilenamefsystem/base/compile.scm�
	+	��		,	
��			-	��	
	-	��		-	��	#	.	
��		%
ChX�]	HO4O>"GV4>X4>"GCX4>"GF�gthunk
		Tgentered		Tgfilenamefsystem/base/compile.scm�
	(
��		)	��		*	��		Tgnameg	call-once�C0R12340589:hZ]4L56Rgfilenamefsystem/base/compile.scm�
	=	��		=	<��	
	=	0��		
Ch_-13CWgargs
			gfilenamefsystem/base/compile.scm�
	=	��			


C;<=>?	hx�]4LL>"G4LO5$"
44554L��>"G4L>"GLL6�gt
	#	>gperms
	>	[gfilenamefsystem/base/compile.scm�
	9		��		:	��		=	��	#	=	��	2	>	��	5	>	$��	;	>	��	>	=	��	A	?	
��	K	?	��	P	?	
��	\	@	��	u	A	��		u
C>@h(o-134L>"GL6ggargs
			!gfilenamefsystem/base/compile.scm�
	B		��	
	C	��	!	D	��			!


Ch R]LLLLLOLLO6Jgfilenamefsystem/base/compile.scm�
	7	��		8	��		
Ch@"-.,3#4545O6gfilename
		>gproc		>g	reference			>gtemplate			>gtmp		)	>gfilenamefsystem/base/compile.scm�
	3
��		4	��		4	+��		4	��		4	��	!	5	��	'	5	!��	)	5	��	)	4	��	>	6	��		>	gnamegcall-with-output-file/atomic�CARBCh�]45$C6�gx
		gfilenamefsystem/base/compile.scm�
	F
��		G	��	
	G	��		I	��		gnamegensure-language�CDR6EFhR]L6Jgfilenamefsystem/base/compile.scm�
	Q	��		R	��		
CGHIJKhX]
�$�"�$C�$44L5>"GL66gk
		Rgsubr		Rgfmt			Rgargs			Rgrest			Rgerrno			Rgfilenamefsystem/base/compile.scm�
	S	��		T	��			T	��		T	%��		T	��		V	
��		U	��	#	Z	
��	'	U	��	(	[	
��	+	[	��	6	[	
��	D	\	
��	R	^	
��		R	Ch�]OO6�gdir
		gfilenamefsystem/base/compile.scm�
	O
��		P		��		P	��		gnamegensure-directory�CIRL1MNOPQRSTUVW8IJh]]4L56Ugfilenamefsystem/base/compile.scm�
�	��	�	4��	
�	"��		
Ch`-13CXgargs
			gfilenamefsystem/base/compile.scm�
�	��			


Ch��]	$�44545$"B45	�$245:�$44
54	55""	�$"4
	�5$4	>"G
"	�54O5$CCC�gfile
	�gcanon		ngt	q�gf��gfilenamefsystem/base/compile.scm�
	l
��		~	��				��	�	$��	�	��		q	��		q	��		q	��	#	p	��	*	r	��	3	r	��	7	p	��	8	s	��	B	s	��	F	r	��	G	u	��	K	u	��	L	u	��	U	u	/��	_	u	��	q	x	��	q	x	��		y	���	y	���	y	���	x	���	z	���	z	���	z	���	|	���	}	���		���		����	����		��$	�gnamegcompiled-file-name�C%Rdefghi%.jklmnIJAoD(^Z\`h0�]44L554LLLLL5	6�gport
		)gfilenamefsystem/base/compile.scm�
�	��	�	��	�	��	�	��	�	��	)�	
��		)Ch�-/03
##45##	45##Y$"!45$"	4	54
545	4	$	"
>"G445>"G4O>"GZCZF~gfile
	�goutput-file	�gfrom		�gto		�genv		�gopts		�gcanonicalization		�gt		n�gcomp	��gin	��genc		��gfilenamefsystem/base/compile.scm�
�
��	#�	��	1�	��	:�	��	I�	��	S�	)��	a�	��	h�	!��	n�	��	}�	����	����	����	����	����	����	����	����	����	����	%����	����	����	����	����	��	�
goutput-fileS�gfromS	�gtoS	�genvS	�goptsS	�gcanonicalizationS	�gnamegcompile-file�C&Ruevwhi(kZ\`^
hxn-/03#45##45##Y445	
>	ZCZFfgfile
		sgfrom		sgto			sgenv			sgopts			sgcanonicalization			sgfilenamefsystem/base/compile.scm�
�
��	�	,��	(�	D��	1�	 ��	>�	8��	H�	-��	Q�	��	T�	��	o�	��
		s
gfromS�gtoS	�genvS	�goptsS	�gcanonicalizationS	�gnamegcompile-and-load�C'Rxyz.{|h0�]45$"
456�gfrom
		/gto		/gopts			/gt			-gfilenamefsystem/base/compile.scm�
�
��	�	��	�	��	�	��	"�	��	&�	+��	*�	��	/�	��			/	gnamegcompile-passes�C}RhP8](D4�L>G�$""���0gpasses
		Mgx		Mge			Mgcenv			Mgfirst?			Mgx		 	Mge		 	Mgnew-cenv		 	Mgfilenamefsystem/base/compile.scm�
�	��	�	��	�	��	�	 ��	�	!��	�	 ��	#�	��	,�	��	6�	��	M�	
��		M	gnameglp�Ch �]OQ6�gpasses
		gexp		genv			gopts			glp			gfilenamefsystem/base/compile.scm�
�
��	�	��			gnamegcompile-fold�C~R�z.{|hhW]"&(C45$C���"���445$"
455"���Ogfrom
		bgto		bgin			,glang			,gt		8	Vgfilenamefsystem/base/compile.scm�
�
��	�	��	�	��	�	��	�	��	 �	��	#�	��	,�	��	,�	��	-�	��	0�	��	8�	��	G�	��	K�	#��	O�	<��	S�	��	X�	��	b�	��		b	gnamegfind-language-joint�C�R.�h(�]"L6�$�(�C"���"��ޯgexps
		(genv		(gfilenamefsystem/base/compile.scm�
�	��	
�		��	�	��	�	��	�	
��	�	��	�	!��	�	��	�	��
		(	Ch�]OCyglang
		
gfilenamefsystem/base/compile.scm�
�
��		
gnamegdefault-language-joiner�C�R���h8
]445545$C45$6Cglang
		8gport		8gcenv			8gexp			8gt		'	8gfilenamefsystem/base/compile.scm�
�
��	�	
��	�	��	�	
��	�	��	�	��	�	��	!�	��	'�	��	5�	0��		8	gnamegread-and-parse�C�R�efgD�������e�>��Z\^g`~}h��]#445L545$b4L>"G44L5$"4L5455	L
L$"4L5
L6	4445LL5L>G�"��J�gexps
	�genv	�gcenv		�gx		�gt		9	Qgjexp	��gjenv	��gjcenv	��gfilenamefsystem/base/compile.scm�
�	��	�	��	�	#��	�	��	�	
��	�	��	�	��	�	��	2�	��	3�	��	9�	��	H�	��	R�	��	\�	��	l�	��	s�	%��	�	����	����	 ����	0����	 ����	����	����	����	��	�	gnameglp�C
h��-/03
#45##	45#45454545$"4	
>"G�4	�5YO		Q	4	>ZCZF�gport
	�gfrom	�gto		�genv		�gopts		�gfrom		P�gto		P�gjoint		]�gt-3ee4cd0d75-1ff		a�glp		��
gfilenamefsystem/base/compile.scm�
�
��	�	!��	(�	��	1�	 ��	@�	!��	C�	��	J�	��	P�	��	U�	��	]�	��	a�	����	����	����	��	�
gfromS�gtoS	�genvS	�goptsS	�gnamegread-and-compile�C(R�evg������h �]	45$C6�gw
		gt			gfilenamefsystem/base/compile.scm�
�	��	�	��		�	��	�	#��	�	��		C~}h��-/03#45##	45#45�$!��4>"G"4	4
5>GC�gx
	�gfrom	�gto		�genv		�gopts		�gwarnings		K	xgwarnings		X	qgexp	��genv	��gcenv	��
gfilenamefsystem/base/compile.scm�
�
��	�	��	(�	��	1�	��	@�	��	C�	��	K�	��	P�	��	T�	��	W�	��	X�	��	[�	
��	y�	��	|�	����	����	��	�
gfromS�gtoS	�genvS	�goptsS	�gnamegcompile�CRxy�.�|h0�]45$"
456�gfrom
		/gto		/gopts			/gt			-gfilenamefsystem/base/compile.scm�

��		��		��		��	"	��	&	-��	*	��	/	��			/	gnamegdecompile-passes�C�R�h8](D4�>G�6gpasses
		2gexp		2genv			2gopts			2gexp			2genv			2gfilenamefsystem/base/compile.scm�


��		��		��	
	��	
	��	
	��	!
	��	*	��	2	��
		2	gnamegdecompile-fold�C�R�v���hP-/03####456gx
		Ngenv		Ngfrom			Ngto			Ngopts			Ngfilenamefsystem/base/compile.scm�

��	$	��	.	��	7	��	<	��	N	��		N
genvS�gfromS	�gtoS	�goptsS	�gnameg	decompile�C)RC�gm
		,gfilenamefsystem/base/compile.scm�		
���	(
���	3
���	F
��c	O
��)	l
����
����
���
����
��r�
���
��h�
��#��
��'L�
��(�
��)�

��+n
��	+p
C6system/base/language.go000064400000013644150536206120011124 0ustar00GOOF----LE-8-2.0�]l4h$]gguile�	�	gdefine-module*�	�	�	gsystem�	gbase�	glanguage�		�	
gfilenameS�	fsystem/base/language.scm�	gimportsS�	
gsyntax�	
�	�	�	gexportsS�	gdefine-language�	g	language?�	glookup-language�	g
make-language�	g
language-name�	glanguage-title�	glanguage-reader�	glanguage-printer�	glanguage-parser�	glanguage-compilers�	glanguage-decompilers�	glanguage-evaluator�	glanguage-joiner�	glanguage-for-humans?�	 g!language-make-default-environment�	!glookup-compilation-order�	"glookup-decompilation-order�	#ginvalidate-compilation-cache!�	$gdefault-environment�	%g*current-language*�	& !"#$%�	'g
re-exportsS�	(gcurrent-language�	)(�	*gset-current-module�	+*�	,*�	-gmake-record-type�	.f
<language>�	/gname�	0gtitle�	1greader�	2gprinter�	3gparser�	4g	compilers�	5gdecompilers�	6g	evaluator�	7gjoiner�	8gfor-humans?�	9gmake-default-environment�	:/0123456789�	;g
<language>�	<gmake-fresh-user-module�	=grecord-constructor�	>g%compute-initargs�	?grecord-predicate�	@gmake-procedure-with-setter�	Agrecord-accessor�	Bgrecord-modifier�	Cgmake-syntax-transformer�	DC�	EC�	Fgmacro�	Gg$sc-dispatch�	HG�	IG�	Jg_�	Kgany�	LJK��	Mg
syntax->datum�	NM�	OM�	Pg
datum->syntax�	QP�	RP�	Sgbegin�	T#�	Ugdefine�	VgnameS�	Wgquote�	Xgsyntax-violation�	YX�	ZX�	[f-source expression failed to match any pattern�	\gresolve-module�	]gspec�	^]�	_g
module-bound?�	`g
module-ref�	agerror�	bfno such language�	cg*compilation-cache*�	dg*decompilation-cache*�	egreverse!�	fgmemq�	ggor-map�	hgcompute-translation-order�	ig	assoc-ref�	jgand=>�	kgparameter-fluid�C5h�

]4	
&')5	4,>"G4-i.:5;R/0123�456�7�8�9<i�4=i;i5>h.-13L4L5@&gargs
						


COR4?i;i5R4@i4Ai;i/54Bi;i/55R4@i4Ai;i054Bi;i055R4@i4Ai;i154Bi;i155R4@i4Ai;i254Bi;i255R4@i4Ai;i354Bi;i355R4@i4Ai;i454Bi;i455R4@i4Ai;i554Bi;i555R4@i4Ai;i654Bi;i655R4@i4Ai;i754Bi;i755R4@i4Ai;i854Bi;i855R4@i4Ai;i954Bi;i955 R4EFILORSTUVWh(x-13���Cpgname
			(gspec			(gfilenamefsystem/base/language.scm�
	7
��		8	��			(
Chl]	45L4?6dgargs
		gv			gfilenamefsystem/base/language.scm�		7
��		CZ[h(j]	45$O@6bgy
		'gtmp		'gfilenamefsystem/base/language.scm�
	7
��		'C5R\^_`abh0�]	4��545$66�gname
		.gm		.gfilenamefsystem/base/language.scm�
	<
��		=	��		=	��		=	��		=	��		>	��		>	��	&	?	��	*	@	��	.	@	��		.gnameglookup-language�CRcRdRdch�]  C�gfilenamefsystem/base/language.scm�
	E
��		F	��		F	��		G	��		G	��		

gnameginvalidate-compilation-cache!�C#Refgh~]L�L��L�6vgpair
		gfilenamefsystem/base/language.scm�
	T	��		U	��		U	2��	
	U	&��		U	��		ChX�]45$3L&645$CLO4L5645"����gfrom
		Qgseen		Qgfilenamefsystem/base/language.scm�
	N	��		P	
��	
	O	��		R	��		S	��	(	O	��	8	V	��	@	T	
��	A	Q	��	Q	Q	��		Q	gnameglp�Chh8�]45$OQ6456�gfrom
		6gto		6glanguage-translators			6glp			'gfilenamefsystem/base/language.scm�
	I
��		K		��	
	J	��		N	��	%	N	��	'	N	��	,	L	$��	6	L	��			6	gnamegcompute-translation-order�ChRichh8]�45$C45�� C�gfrom
		7gto		7gkey			7gt			7gorder		(	7gfilenamefsystem/base/language.scm�
	X
��		Y	
��		Y	��	
	Z	��		Z	��		[	��	(	[	��	/	]	��	4	\	
��
		7	gnameglookup-compilation-order�C!Ridjheh@]�45$C4455�� Cgfrom
		>gto		>gkey			>gt			>gorder		/	>gfilenamefsystem/base/language.scm�
	`
��		a	
��		a	��	
	b	��		b	��		d	��	!	e	��	/	d	��	/	d	��	6	g	&��	;	g	
��		>	gnameglookup-decompilation-order�C"R h(]445$"4556�glang
		!gfilenamefsystem/base/language.scm�
	j
��		l	��		m	��		m	��		m	��		l	��	!	l	��		!gnamegdefault-environment�g
documentationfDReturn the default compilation environment for source language LANG.�C$R4ki(i5%RCgm
		0gslots
	u�gconstructor	u�gfilenamefsystem/base/language.scm�		
��	>	*
��	O	0	
��	T	1	���	*
���	<
���	B	���	B
���	C	���	C
��o	E
��	�	I
��
�	X
��j	`
��
�	j
��
�	v	��
�	v
��	
�
C6system/base/ck.go000064400000007540150536206120007734 0ustar00GOOF----LE-8-2.0H]�4h�]gguile�	�	gdefine-module*�	�	�	gsystem�	gbase�	gck�		�	
gfilenameS�	fsystem/base/ck.scm�	gexportsS�	
�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	gany�	gfree-id�	g
syntax-object�	gquote�	gtop�	�	gribcage�	�	 gx�	! �	"gm-1e97f9b4a-48�	#"�	$#�	%fl-1e97f9b4a-4a�	&%�	'!$&�	('�	)ghygiene�	*)�	+(*�	,+�	-,�	.-�	/geach-any�	0//��	10��	21-�	3gck-arg�	4gdummy�	5gop�	6gea�	7gs�	8gv�	945678�	:#�	;fl-1e97f9b4a-52�	<fl-1e97f9b4a-53�	=fl-1e97f9b4a-54�	>fl-1e97f9b4a-55�	?fl-1e97f9b4a-56�	@;<=>?�	A9:@�	BA'�	C3B*�	Dgappend�	ED�	FD�	GB*�	H/��	IH�	J4756�	K#�	Lfl-1e97f9b4a-5f�	Mfl-1e97f9b4a-60�	Nfl-1e97f9b4a-61�	Ofl-1e97f9b4a-62�	PLMNO�	QJKP�	RQ'�	S3R*�	Tgsyntax-violation�	UT�	VT�	Wf-source expression failed to match any pattern�	Xgm-1e97f9b4a-68�	YX�	ZY�	[fl-1e97f9b4a-6a�	\[�	]!Z\�	^]�	_^*�	`_�	a`�	ba/��	c/b��	dc��	ed��	fgea1�	g4758f�	hY�	ifl-1e97f9b4a-77�	jfl-1e97f9b4a-78�	kfl-1e97f9b4a-79�	lfl-1e97f9b4a-7a�	mfl-1e97f9b4a-7b�	nijklm�	oghn�	po]�	q3p*�	rp*�	s/H��	ts��	ut��	v4756f�	wfl-1e97f9b4a-84�	xfl-1e97f9b4a-85�	yfl-1e97f9b4a-86�	zfl-1e97f9b4a-87�	{fl-1e97f9b4a-88�	|wxyz{�	}vh|�	~}]�	~*�C5h�V]4	

54>"G4.h<]C4gdummy
		gv					C2CFGh k]45���Ccgdummy
		gop		gea			gs			gv						CISh\]���CTgdummy
		gs		gop			gea						CVW
hP"]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsystem/base/ck.scm�
	$	��		Pg
macro-typegsyntax-rules�gpatternsgquotegvgopg...geag...gs�gquotegvgsgopgeag...C5R43Ih\]��CTgdummy
		gs		gop			gva						CeqFrh l]45���Cdgdummy
		gs		gop			gv			gea1						Cuhm]��Cegdummy
		gs		gop			gea			gea1						CVW
hP6]45$@45$@45$@	6.gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsystem/base/ck.scm�
	.	��		Pg
macro-typegsyntax-rules�gpatternsgsgopgvag...gsgopg...gquotegvgea1g...gsgopg...geagea1g...C53RCNgm
		(gfilenamefsystem/base/ck.scm�		 
��	�
C6system/base/message.go000064400000071700150536206120010762 0ustar00GOOF----LE-8-2.0�s]�4h�;]gguile�	�	gdefine-module*�	�	�	gsystem�	gbase�	gmessage�		�	
gfilenameS�	fsystem/base/message.scm�	gimportsS�	
gsrfi�	gsrfi-1�	
�	�	gsrfi-9�	
�	�	gice-9�	gmatch�	�	�	�	gexportsS�	g*current-warning-port*�	g*current-warning-prefix*�	gwarning�	g
warning-type?�	gwarning-type-name�	gwarning-type-description�	 gwarning-type-printer�	!glookup-warning-type�	"g%warning-types�	# !"	�	$gset-current-module�	%$�	&$�	'gformat�	(f~a:~a:~a�	)g	assoc-ref�	*gfilename�	+f<stdin>�	,gline�	-gcolumn�	.f<unknown-location>�	/glocation-string�	0gparameter-fluid�	1gcurrent-warning-port�	2g
make-fluid�	3f;;; �	4g<warning-type>�	5g%make-warning-type-procedure�	6gmake-syntax-transformer�	76�	86�	9gmake-warning-type�	:gmacro�	;g$sc-dispatch�	<;�	=;�	>g_�	?gany�	@>???�	Ag
syntax-object�	Bglambda�	Cgm-44b57084b9-69a�	Dgtop�	ECD�	Fgribcage�	Ggt-44b57084b9-697�	Hgt-44b57084b9-698�	Igt-44b57084b9-699�	JGHI�	KEEE�	Lfl-44b57084b9-69f�	Mfl-44b57084b9-6a0�	Nfl-44b57084b9-6a1�	OLMN�	PFJKO�	QF�	Rgx�	SR�	TE�	Ufl-44b57084b9-69c�	VU�	WFSTV�	Xgshift�	Yg	proc-name�	Zgargs�	[YZ�	\D�	]\\�	^fl-1e8ba8b5a-60�	_fl-1e8ba8b5a-61�	`^_�	aF[]`�	bgkey�	cgvalue�	dgname�	egformals�	fgbody�	gbcdef�	h\\\\\�	ifl-1e8ba8b5a-53�	jfl-1e8ba8b5a-54�	kfl-1e8ba8b5a-55�	lfl-1e8ba8b5a-56�	mfl-1e8ba8b5a-57�	nijklm�	oFghn�	pgmake-procedure-name�	qp�	r\�	sfl-1e8ba8b5a-43�	ts�	uFqrt�	v\�	wfl-1e8ba8b5a-42�	xw�	yFSvx�	zEPQWXQQQQaouy
�	{ghygiene�	|{
�	}ABz|�	~\PQW�	{��Ad~��gdescription��A�~��gprinter��A�~�������gmake-struct��gm-44b57084b9-695���D��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���D�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������F�����g	ctor-args�����fl-1e8ba8b5a-120�����F�v���gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������F�]���gform��g	type-name��gconstructor-spec��gfield-names��������\\\\��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������F�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������\\\\\\\\��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������F�����fl-1e8ba8b5a-da�����FSv����PQWXQ�QQQ��Q�����A��|��A4~��A
�|����������}����geach-any��>ʌ��gsyntax-violation��������fWrong number of arguments��gidentifier?��������\QW��A5���������f-source expression failed to match any pattern��grecord-type-vtable��������gpwpwpw��gdefault-record-printer��������d����gset-struct-vtable-name!��������gvtable-offset-user��������g%warning-type?-procedure��>?��gm-44b57084b9-6ab���D��gt-44b57084b9-6aa��������fl-44b57084b9-6b0�����F�����fl-44b57084b9-6ad�����FS������Q�XQQQQaouy
��AB�|��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220��gt-1e8ba8b5a-223��gt-1e8ba8b5a-222��gt-1e8ba8b5a-221�����������gm-1e8ba8b5a-225���D���������fl-1e8ba8b5a-229�fl-1e8ba8b5a-22a�fl-1e8ba8b5a-22b�fl-1e8ba8b5a-22c�fl-1e8ba8b5a-22d�fl-1e8ba8b5a-22e�fl-1e8ba8b5a-22f��	F��
g	copier-id�
�fl-1e8ba8b5a-21c�
�Fv
�g	ctor-name��fl-1e8ba8b5a-214��Fv���fl-1e8ba8b5a-212��Fv�glayout��fl-1e8ba8b5a-210��Fv�g
immutable?��fl-1e8ba8b5a-20e� �!Fv �"gfield-count�#"�$fl-1e8ba8b5a-20c�%$�&F#v%�'g
getter-ids�('�)fl-1e8ba8b5a-209�*)�+F(v*�,g	field-ids�-,�.fl-1e8ba8b5a-206�/.�0F-v/�1gpredicate-name�2g
field-spec�3���12�4\\\\\\�5fl-1e8ba8b5a-1f9�6fl-1e8ba8b5a-1fa�7fl-1e8ba8b5a-1fb�8fl-1e8ba8b5a-1fc�9fl-1e8ba8b5a-1fd�:fl-1e8ba8b5a-1fe�;56789:�<F34;�=��Q�XQ	QQQQQQQQ!Q&Q+Q0<���>A�=|�?>�@gand�AA@=|�Bgstruct?�CAB=|�DC>�Egeq?�FAE=|�Gg
struct-vtable�HAG=|�IH>�J\�Q��KA4J�LFIK�MADL�N�?M�O\Q��PA�O�Qgthrow-bad-struct�RQ�SQ�Tg%warning-type-name-procedure�Ugfree-id�Vg
%%on-error�Wgm-44b57084b9-6b7�XWD�YX�Zfl-44b57084b9-6b9�[Z�\FSY[�]XQ\XQQQQaouy�^AV]|�_U^�`_?�ag%%type�bgt-1e8ba8b5a-14b�cgt-1e8ba8b5a-14c�dgt-1e8ba8b5a-14d�egt-1e8ba8b5a-14e�fgt-1e8ba8b5a-14f�ggt-1e8ba8b5a-150�hgt-1e8ba8b5a-151�ibcdefgh�jgm-1e8ba8b5a-152�kjD�lkkkkkkk�mfl-1e8ba8b5a-156�nfl-1e8ba8b5a-157�ofl-1e8ba8b5a-158�pfl-1e8ba8b5a-159�qfl-1e8ba8b5a-15a�rfl-1e8ba8b5a-15b�sfl-1e8ba8b5a-15c�tmnopqrs�uFilt�vggetter�wgindex�xvw�yfl-1e8ba8b5a-149�zfl-1e8ba8b5a-14a�{yz�|Fx]{�}�'
�~\\\�fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146������F}~����Q\XQuQQQ|Q�����Aa�|��U���>`�?��gck��gerr��gs������XX��fl-44b57084b9-6bc��fl-44b57084b9-6bd������F�����X�Q\XQQQQaouy
��A��|��gquote��A��|��\�Q\��A4����������g%%index��A��|��U���>`�?��fl-44b57084b9-6c1��fl-44b57084b9-6c2������F�����X�Q\XQQQQaouy
��A��|��A��|���Q\��A
����������g%%copier��A��|��U���>`�?��fl-44b57084b9-6c6��fl-44b57084b9-6c7������F�����X�Q\XQQQQaouy
��A��|��A��|��g%%<warning-type>-set-fields��\�Q\��A�����������gt-44b57084b9-6b6�����fl-44b57084b9-6cb�����F�Y���X�Q\XQQQQaouy
��AB�|����Q\XQuQQQ|Q�����A��|�����gif��A��|��AE�|��AG�|������\�Q\��A4��������g
struct-ref��A��|���Q\��A
��������AQ�|��A��|��A�����������������������\Q\��AT���g#%warning-type-description-procedure��gm-44b57084b9-6d2���D�����fl-44b57084b9-6d4�����FS�����Q�XQQQQaouy��AV�|��U����?���Q�XQuQQQ|Q�����Aa�|��U���>��?������fl-44b57084b9-6d7��fl-44b57084b9-6d8������F�������Q�XQQQQaouy
��A��|��A��|��\�Q���A4����������A��|��U���>��?��fl-44b57084b9-6dc��fl-44b57084b9-6dd������F�������Q�XQQQQaouy
��A��|��A��|���Q���A��������A��|�U�>�?�fl-44b57084b9-6e1�fl-44b57084b9-6e2��F����Q�XQQQQaouy
�	A�|�
A�|�\Q��A��

�
�gt-44b57084b9-6d1��fl-44b57084b9-6e6��F���Q�XQQQQaouy
�AB|��Q�XQuQQQ|Q����A�|��A�|�AE|�AG|��\Q��A4�� A�|�!Q��"A!�# "�$AQ|�%A�|�&A�'%&�($'�)#(�*)�+\Q��,A�+�-g%warning-type-printer-procedure�.gm-44b57084b9-6ed�/.D�0/�1fl-44b57084b9-6ef�21�3FS02�4/Q3XQQQQaouy�5AV4|�6U5�76?�8�Q3XQuQQQ|Q����9Aa8|�:U9�;>7:?�<//�=fl-44b57084b9-6f2�>fl-44b57084b9-6f3�?=>�@F�<?�A/@Q3XQQQQaouy
�BA�A|�CA�A|�D\@Q3�EA4D�FCE�GF�HA�8|�IUH�J>7I?�Kfl-44b57084b9-6f7�Lfl-44b57084b9-6f8�MKL�NF�<M�O/NQ3XQQQQaouy
�PA�O|�QA�O|�RNQ3�SA	R�TQS�UT�VA�8|�WUV�X>7W?�Yfl-44b57084b9-6fc�Zfl-44b57084b9-6fd�[YZ�\F�<[�]/\Q3XQQQQaouy
�^A�]|�_A�]|�`\\Q3�aA�`�b_a�cb�dgt-44b57084b9-6ec�ed�ffl-44b57084b9-701�gf�hFe0g�i/hQ3XQQQQaouy
�jABi|�k�hQ3XQuQQQ|Q����lA�k|�ml�nA�k|�oAEk|�pAGk|�qpl�r\hQ3�sA4r�toqs�uA�k|�vhQ3�wA	v�xulw�yAQk|�zA�k|�{A r�|z{�}yl|�~ntx}�jm~��\Q3��A-���geach��??������?����?����?����g%%set-fields��gdummy��gcheck?��gexpr�����v���gm-44b57084b9-708���D���������fl-44b57084b9-70d��fl-44b57084b9-70e��fl-44b57084b9-70f��fl-44b57084b9-710��fl-44b57084b9-711���������F��������fl-44b57084b9-70a�����FS����gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d���D�������fl-1e8ba8b5a-171��fl-1e8ba8b5a-172��fl-1e8ba8b5a-173�������F�����fl-1e8ba8b5a-167��fl-1e8ba8b5a-168��fl-1e8ba8b5a-169�������F}~�����Q�XQ�QQQ���
��A��|��\�Q���A4���A���A���A ��������gmap��������glist��gunsupported-warning��f warn about unknown warning types��f&~awarning: unknown warning type `~A'~%��gunused-variable��freport unused variables��f%~a~A: warning: unused variable `~A'~%��gunused-toplevel��f'report unused local top-level variables��f>~a~A: warning: possibly unused local top-level variable `~A'~%��gunbound-variable��f!report possibly unbound variables��f/~a~A: warning: possibly unbound variable `~A'~%��garity-mismatch��f=report procedure arity mismatches (wrong number of arguments)��f2~a~A: warning: wrong number of arguments to `~A'~%��f;~a~A: warning: possibly wrong number of arguments to `~A'~%��gduplicate-case-datum��f-report a duplicate datum in a case expression��fF~a~A: warning: duplicate datum ~S in clause ~S of case expression ~S~%��gbad-case-datum��fEreport a case datum that cannot be meaningfully compared using `eqv?'��fi~a~A: warning: datum ~S cannot be meaningfully compared using `eqv?' in clause ~S of case expression ~S~%��f,report wrong number of arguments to `format'��gwrong-num-args��f~a~A: `format' warning~%��f6~a~A: warning: wrong number of arguments to `format'~%��gnon-literal-format-string��f*~a~A: warning: non-literal format string~%��gwrong-format-string��f(~a~A: warning: ~S: wrong format string~%��g
wrong-port��f(~a~A: warning: ~S: wrong port argument~%��gsyntax-error��g"unexpected-conditional-termination��f%~a~A: warning: ~S: unexpected `~~]'~%��glist->string��gstring-fold-right��gappend��\n��gunexpected-semicolon��f%~a~A: warning: ~S: unexpected `~~;'~%��gunterminated-conditional��f-~a~A: warning: ~S: unterminated conditional~%��gunterminated-iteration��f+~a~A: warning: ~S: unterminated iteration~%��gwrong-format-arg-count��fL~a~A: warning: ~S: wrong number of `format' arguments: expected ~A, got ~A~%��f
any number��f
~aup to ~a��f
~aat least ~a��gnumber->string��f
~a~a to ~a��g
simple-format��fO~a~A: warning: ~S: unsupported format option ~~~A, use (ice-9 format) instead~%��gfind��f#~A: unknown warning type `~A': ~A~%�C5h�3�]4	
#54&>"G'()*+,-.	hH
]	�$645$"45�456Cgloc
		Bgt		*gfilenamefsystem/base/message.scm�
	+
��		,	��			,	��		-	��		.	��		.	!��		.	��		.	��	'	.	,��	+	/	��	1	/	!��	3	/	��	4	/	��	5	0	��	;	0	��	=	0	��	?	-	��	A	1	��		Bgnameglocation-string�C/R40i1i5R42i35R4h�]�C�gname
		gdescription		gprinter			gfilenamefsystem/base/message.scm�
	E
��			gnameg%make-warning-type-procedure�C5R489:=@�ht]Clgt-44b57084b9-697
		gt-44b57084b9-698		gt-44b57084b9-699						C��9�hZ]L6Rga
		gfilenamefsystem/base/message.scm�		E
��		C>�hJ]L6Bgfilenamefsystem/base/message.scm�		E
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/message.scm�
	E
��		nC59R���4ߨ4�4>"G	�5i�4R4h�]�$��CCxgobj
		gfilenamefsystem/base/message.scm�
	E
��		gnameg%warning-type?-procedure�C�R48:=�Nh8]C0gt-44b57084b9-6aa
		
		
C���hZ]L6Rga
		gfilenamefsystem/base/message.scm�		E
��		C>�hJ]L6Bgfilenamefsystem/base/message.scm�		E
��		
CPh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/message.scm�
	E
��		nC5R4Sh�]�&
�C6zgs
		gfilenamefsystem/base/message.scm�
	E
��		gnameg%warning-type-name-procedure�CTR48:=���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h8]C0gt-44b57084b9-6b6
		
		
C���hZ]L6Rga
		gfilenamefsystem/base/message.scm�		E
��		C>�hJ]L6Bgfilenamefsystem/base/message.scm�		E
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/message.scm�
	E
��	�C5R4Sh�]�&�C6�gs
		gfilenamefsystem/base/message.scm�
	E
��		gnameg#%warning-type-description-procedure�C�R48:=���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					C	h:]��C2gerr
		gs					C�*h8]C0gt-44b57084b9-6d1
		
		
C���hZ]L6Rga
		gfilenamefsystem/base/message.scm�		E
��		C>�hJ]L6Bgfilenamefsystem/base/message.scm�		E
��		
C,h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/message.scm�
	E
��	�C5R4S h �]�&	�C6}gs
		gfilenamefsystem/base/message.scm�
	E
��		gnameg%warning-type-printer-procedure�C-R48 :=;BGh:]��C2gerr
		gs					CJPUh:]��C2gerr
		gs					CX^ch:]��C2gerr
		gs					C�h8]C0gt-44b57084b9-6ec
		
		
C�� �hZ]L6Rga
		gfilenamefsystem/base/message.scm�		E
��		C>�hJ]L6Bgfilenamefsystem/base/message.scm�		E
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/message.scm�
	E
��	�C5 R48�:=������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/base/message.scm�
	E
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R4�i5he]@]gargs
		gfilenamefsystem/base/message.scm�
	N	��		O		��		C��'�h�][6�gport
		gunused		gname			gfilenamefsystem/base/message.scm�
	_	
��		`	��			C��'�h�][6�gport
		gloc		gname			gfilenamefsystem/base/message.scm�
	e	
��		f	��			C��'�h�][6�gport
		gloc		gname			gfilenamefsystem/base/message.scm�
	k	
��		l	��			C��'�h�][6�gport
		gloc		gname			gfilenamefsystem/base/message.scm�
	q	
��		r	��			C��'��h(�]$[6[6�gport
		&gloc		&gname			&gcertain?			&gfilenamefsystem/base/message.scm�
	w	
��		x	��		y	��		|	��		&	C��'�h�][6�gport
		gloc		gdatum			gclause			g	case-expr			gfilenamefsystem/base/message.scm�
�	
��	�	��			C��'�h�][6�gport
		gloc		gdatum			gclause			g	case-expr			gfilenamefsystem/base/message.scm�
�	
��	�	��			C'��'���������������h�]
&6�C�gc
		gr		gfilenamefsystem/base/message.scm�
�	%��	
�	'��	�	3��	�	+��	�	+��			C����h�]
&6�C�gc
		gr		gfilenamefsystem/base/message.scm�
�	%��	
�	'��	�	3��	�	+��	�	+��			C����h�]
&6�C�gc
		gr		gfilenamefsystem/base/message.scm�
�	%��	
�	'��	�	3��	�	+��	�	+��			C����h�]
&6�C�gc
		gr		gfilenamefsystem/base/message.scm�
�	%��	
�	'��	�	3��	�	+��	�	+��			C����h�]
&6�C�gc
		gr		gfilenamefsystem/base/message.scm�
�	%��	
�	'��	�	3��	�	+��	�	+��			C?���������h�]
&6�C�gc
		gr		gfilenamefsystem/base/message.scm�
�	%��	
�	'��	�	3��	�	+��	�	+��			C'h�7-13"5"5"�";"�"A"�"�"k�$W��&8"
[6�$�(�[6"���"���[6[6�$)�(�&
[6"��i"��e"��a�$@��&*�$�(�	[6"��"��"��"���$@��
&*�$�(�[6"���"���"���"����$n��&X�$M��
&7�$,�(!�[44556"��Z"��V"��R"��N"��J"��F�$n��&X�$M��&7�$,�(!�[44556"���"���"���"���"���"����$n��&X�$M��&7�$,�(!�[44556"��`"��\"��X"��T"��P"��L�$n��&X�$M��&7�$,�(!�[44556"���"���"���"���"���"����$���&��$����$����$���
	
�$�
�(�
�[4455&	&"
4 [	5"<	&4![5"#	�$4"5"4#[	56"���"���"���"���"���"���"����$d��$&N�$C���$.�(#�%[44&556"��l"��h"��d"��`"��\/gport
		�gloc		�grest			�gw		:�gx		:�gw	��gw	�gx	�gw	�gw	$^gx	$^gw	ARgw	o�gx	o�gw	��gx	��gw	��gw	�Pgx	�Pgw	Hgx	Hgw	<gw	a�gx	a�gw	z�gx	z�gw	��gw	�Bgx	�Bgw	�:gx	�:gw	.gw	S>gx	S>gw	l6gx	l6gw	}2gx	}2gw		�.gx	
�.gw	�&gw	O�gx	O�gw	h�gx	h�gw	}�.gfilenamefsystem/base/message.scm�
�	
��	
�	��	P�	��	W�	��	o�	����	����	����	����	����	���	��I�	��V�	����	����	����	����	%����	����	����	����	��&�	��,�	��/�	��4�	%��8�	��:�	��<�	��@�	����	����	����	����	%����	����	����	����	���	���	��!�	��&�	%��*�	��,�	��.�	��2�	����	����	����	����	%����	����	����	!����	����	%����	����	����	����	!����	����	���	���	��	�	$���	��&�	��*�	����	����	����	����	%����	����	����	����	��K		�	
	C5"R�4Sh n]L�&
�"	45�Cfgwt
		 gfilenamefsystem/base/message.scm�
�	��	�	��	�	
��		 C"h�]O6�gname
		gfilenamefsystem/base/message.scm�
�
��	�	��		gnameglookup-warning-type�g
documentationf2Return the warning type NAME or `#f' if not found.�C!R!1'�/4h`�-134545"456�$�&	�45@"���"����gtype
			Zglocation			Zgargs				Zgwt			Zgport			Zgfilenamefsystem/base/message.scm�
�
��	
�	��	�	��	�	��	#�	��	$�	��	0�	��	0�	��	3�	��	7�	��	:�	��	E�	��	H�	��	R�	��			Z	
	gnamegwarning�g
documentationfjEmit a warning of type TYPE for source location LOCATION (a source
property alist) using the data in ARGS.�CRC�gm
		,grtd
��gfilenamefsystem/base/message.scm�		
���	+
���	>	���	:
���	B	���	B	���	B	���	@
���	E
���	N	��P	]		��/�	N	��/�	L
��1��
��3��
��	3�
C6system/base/lalr.go000064400000335610150536206120010273 0ustar00GOOF----LE-8-2.0p�]b4h�g]gguile�	�	gdefine-module*�	�	�	gsystem�	gbase�	glalr�		�	
gfilenameS�	fsystem/base/lalr.scm�	gimportsS�	
gsrfi�	gsrfi-9�	
�	�	�	gexportsS�	glalr-parser�	gprint-states�	gmake-lexical-token�	glexical-token?�	glexical-token-category�	glexical-token-source�	glexical-token-value�	gmake-source-location�	gsource-location?�	gsource-location-input�	gsource-location-line�	gsource-location-column�	gsource-location-offset�	 gsource-location-length�	!g"source-location->source-properties�	"g	lr-driver�	#g
glr-driver�	$ !"#�	%gset-current-module�	&%�	'%�	(f2.5.0�	)g*lalr-scm-version*�	*gprocess-use-modules�	+*�	,*�	-gice-9�	.gpretty-print�	/-.�	0/�	1gpprint�	2gsymbol?�	3g
lalr-keyword?�	4gmake-syntax-transformer�	54�	64�	7g
BITS-PER-WORD�	8gmacro�	9g$sc-dispatch�	:9�	;9�	<g_�	=gany�	><=��	?g
syntax->datum�	@?�	A?�	Bg
datum->syntax�	CB�	DB�	Egsyntax-violation�	FE�	GE�	Hf-source expression failed to match any pattern�	Ig
logical-or�	Jglogior�	Kg
lalr-error�	Lgerror�	Mgsupports-source-properties?�	Ngsource-property�	Ogloc�	Pg
lexical-token�	Qgset-source-property!�	Rgthrow-bad-struct�	SR�	TR�	Ugnote-source-location�	Vg%make-lexical-token-procedure�	W<===�	Xg
syntax-object�	Yglambda�	Zgm-1e9d51c93-35�	[gtop�	\Z[�	]gribcage�	^gt-1e9d51c93-32�	_gt-1e9d51c93-33�	`gt-1e9d51c93-34�	a^_`�	b\\\�	cfl-1e9d51c93-3a�	dfl-1e9d51c93-3b�	efl-1e9d51c93-3c�	fcde�	g]abf�	h]�	igx�	ji�	k\�	lfl-1e9d51c93-37�	ml�	n]jkm�	ogshift�	pg	proc-name�	qgargs�	rpq�	s[�	tss�	ufl-1e8ba8b5a-60�	vfl-1e8ba8b5a-61�	wuv�	x]rtw�	ygkey�	zgvalue�	{gname�	|gformals�	}gbody�	~yz{|}�	sssss��fl-1e8ba8b5a-53��fl-1e8ba8b5a-54��fl-1e8ba8b5a-55��fl-1e8ba8b5a-56��fl-1e8ba8b5a-57���������]~���gmake-procedure-name�����s��fl-1e8ba8b5a-43�����]�����s��fl-1e8ba8b5a-42�����]j����\ghnohhhhx���
��ghygiene���
��XY����gcategory��sghn�����X�����gsource��X�����Xz���������gmake-struct��gm-1e9d51c93-30���[��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���[�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������]�����g	ctor-args�����fl-1e8ba8b5a-120�����]�����gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������]�t���gform��g	type-name��gconstructor-spec��gfield-names��������ssss��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������]�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������ssssssss��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������]�����fl-1e8ba8b5a-da�����]j�����ghnoh�hhh��h�����X�����XP����X
�����������������geach-any��<ጤ�E��E��fWrong number of arguments��gidentifier?��������shn��XV����grecord-type-vtable��������gpwpwpw��gdefault-record-printer����������z��gset-struct-vtable-name!��������gvtable-offset-user��������g%lexical-token?-procedure��<=��gm-1e9d51c93-46���[��gt-1e9d51c93-45�������fl-1e9d51c93-4b��]���fl-1e9d51c93-48��]j���hohhhhx���
�XY��gobj�	gt-1e8ba8b5a-224�
gt-1e8ba8b5a-21e�gt-1e8ba8b5a-21f�gt-1e8ba8b5a-220�
gt-1e8ba8b5a-223�gt-1e8ba8b5a-222�gt-1e8ba8b5a-221�	

�gm-1e8ba8b5a-225�[��fl-1e8ba8b5a-229�fl-1e8ba8b5a-22a�fl-1e8ba8b5a-22b�fl-1e8ba8b5a-22c�fl-1e8ba8b5a-22d�fl-1e8ba8b5a-22e�fl-1e8ba8b5a-22f��]�g	copier-id��fl-1e8ba8b5a-21c� �!]� �"g	ctor-name�#"�$fl-1e8ba8b5a-214�%$�&]#�%�'��(fl-1e8ba8b5a-212�)(�*]'�)�+glayout�,+�-fl-1e8ba8b5a-210�.-�/],�.�0g
immutable?�10�2fl-1e8ba8b5a-20e�32�4]1�3�5gfield-count�65�7fl-1e8ba8b5a-20c�87�9]6�8�:g
getter-ids�;:�<fl-1e8ba8b5a-209�=<�>];�=�?g	field-ids�@?�Afl-1e8ba8b5a-206�BA�C]@�B�Dgpredicate-name�Eg
field-spec�F0���DE�Gssssss�Hfl-1e8ba8b5a-1f9�Ifl-1e8ba8b5a-1fa�Jfl-1e8ba8b5a-1fb�Kfl-1e8ba8b5a-1fc�Lfl-1e8ba8b5a-1fd�Mfl-1e8ba8b5a-1fe�NHIJKLM�O]FGN�P�hohhhhh!h&h*h/h4h9h>hCO���QXP��RQ�Sgand�TXSP��Ugstruct?�VXUP��WVQ�Xgeq?�YXXP��Zg
struct-vtable�[XZP��\[Q�]sh�^XP]��_Y\^�`TW_�aR`�bsh�cX�b��dg!%lexical-token-category-procedure�egfree-id�fg
%%on-error�ggm-1e9d51c93-52�hg[�ih�jfl-1e9d51c93-54�kj�l]jik�mhhlohhhhx����nXfm��oen�po=�qg%%type�rgt-1e8ba8b5a-14b�sgt-1e8ba8b5a-14c�tgt-1e8ba8b5a-14d�ugt-1e8ba8b5a-14e�vgt-1e8ba8b5a-14f�wgt-1e8ba8b5a-150�xgt-1e8ba8b5a-151�yrstuvwx�zgm-1e8ba8b5a-152�{z[�|{{{{{{{�}fl-1e8ba8b5a-156�~fl-1e8ba8b5a-157�fl-1e8ba8b5a-158��fl-1e8ba8b5a-159��fl-1e8ba8b5a-15a��fl-1e8ba8b5a-15b��fl-1e8ba8b5a-15c��}~������]y|���ggetter��gindex������fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a������]�t����:��sss��fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������]������hloh�hhh�h�����Xq����e���<p�=��gck��gerr��gs������hh��fl-1e9d51c93-57��fl-1e9d51c93-58������]�����h�hlohhhhx���
��X�����gquote��X�����s�hl��XP�����������g%%index��X�����e���<p�=��fl-1e9d51c93-5c��fl-1e9d51c93-5d������]�����h�hlohhhhx���
��X�����X������hl��X
�����������g%%copier��X�����e���<p�=��fl-1e9d51c93-61��fl-1e9d51c93-62������]�����h�hlohhhhx���
��X�����X�����g%%lexical-token-set-fields��s�hl��X������������gt-1e9d51c93-51�����fl-1e9d51c93-66�����]�i���h�hlohhhhx���
��XY������hloh�hhh�h�����X��������gif��X�����XX����XZ��������s�hl��XP���������g
struct-ref��X������hl��X
���������XR����X�����X������������������������shl��Xd����g%lexical-token-source-procedure��gm-1e9d51c93-6d���[�����fl-1e9d51c93-6f�����]j�����h�ohhhhx�����Xf����e����=���h�oh�hhh�h�����Xq����e���<��=������fl-1e9d51c93-72��fl-1e9d51c93-73������]�������h�ohhhhx���
��X�����X�����s�h��XP������X����e�<�=�fl-1e9d51c93-77�fl-1e9d51c93-78��	]���
�	h�ohhhhx���
�X�
��X�
��
	h��X
����X����e�<�=�fl-1e9d51c93-7c�fl-1e9d51c93-7d��]����h�ohhhhx���
�X���X���sh��X�����gt-1e9d51c93-6c� �!fl-1e9d51c93-81�"!�#] �"�$�#h�ohhhhx���
�%XY$��&�#h�oh�hhh�h����'X�&��('�)X�&��*XX&��+XZ&��,+'�-s#h��.XP-��/*,.�0X�&��1#h��2X1��30'2�4XR&��5X�&��6X-��756�84'7�9)/38�:%(9�;sh��<X�;��=g%lexical-token-value-procedure�>gm-1e9d51c93-88�?>[�@?�Afl-1e9d51c93-8a�BA�C]j@B�D?hCohhhhx����EXfD��FeE�GF=�H�hCoh�hhh�h����IXqH��JeI�K<GJ=�L??�Mfl-1e9d51c93-8d�Nfl-1e9d51c93-8e�OMN�P]�LO�Q?PhCohhhhx���
�RX�Q��SX�Q��TsPhC�UXPT��VSU�WV�XX�H��YeX�Z<GY=�[fl-1e9d51c93-92�\fl-1e9d51c93-93�][\�^]�L]�_?^hCohhhhx���
�`X�_��aX�_��b^hC�cX	b��dac�ed�fX�H��gef�h<Gg=�ifl-1e9d51c93-97�jfl-1e9d51c93-98�kij�l]�Lk�m?lhCohhhhx���
�nX�m��oX�m��pslhC�qX�p��roq�sr�tgt-1e9d51c93-87�ut�vfl-1e9d51c93-9c�wv�x]u@w�y?xhCohhhhx���
�zXYy��{�xhCoh�hhh�h����|X�{��}|�~X�{��XX{���XZ{����|��sxhC��XP��������X�{���xhC��X	�����|���XR{���X�{���X���������|���~�����z}���shC��X=����geach��==������=����=����=����g%%set-fields��gdummy��gcheck?��gexpr���������gm-1e9d51c93-a3���[���������fl-1e9d51c93-a8��fl-1e9d51c93-a9��fl-1e9d51c93-aa��fl-1e9d51c93-ab��fl-1e9d51c93-ac���������]��������fl-1e9d51c93-a5�����]j����gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d���[�������fl-1e8ba8b5a-171��fl-1e8ba8b5a-172��fl-1e8ba8b5a-173�������]�����fl-1e8ba8b5a-167��fl-1e8ba8b5a-168��fl-1e8ba8b5a-169�������]�������h�oh�hhh���
��X�����s�h���XP����X����X����X���������gmap��������glist��gsource-location��g%make-source-location-procedure��<=====��gm-1e9d51c93-bc���[��gt-1e9d51c93-b7��gt-1e9d51c93-b8��gt-1e9d51c93-b9��gt-1e9d51c93-ba��gt-1e9d51c93-bb����������������fl-1e9d51c93-c1��fl-1e9d51c93-c2��fl-1e9d51c93-c3��fl-1e9d51c93-c4��fl-1e9d51c93-c5���������]��������fl-1e9d51c93-be�����]j������h�ohhhhx���
��XY����ginput��s�h���X�����gline��X�����gcolumn��X�����goffset��X�����glength��X������������gm-1e9d51c93-b5���[����h�oh�hhh��h�����X�����X�����X
�������������������sh���X�����g
pwpwpwpwpw���������g%source-location?-procedure��gm-1e9d51c93-d1���[��gt-1e9d51c93-d0��������fl-1e9d51c93-d6���]���fl-1e9d51c93-d3��]j���hohhhhx���
�XY���hohhhhh!h&h*h/h4h9h>hCO���X��	�
XS��XU���
XX��XZ���sh�X���
�
�	�sh�X���g %source-location-input-procedure�gm-1e9d51c93-dd�[��fl-1e9d51c93-df��]j�hohhhhx����Xf�� e�! =�"�hoh�hhh�h����#Xq"��$e#�%<!$=�&�'fl-1e9d51c93-e2�(fl-1e9d51c93-e3�)'(�*]�&)�+*hohhhhx���
�,X�+��-X�+��.s*h�/X�.��0-/�10�2X�"��3e2�4<!3=�5fl-1e9d51c93-e7�6fl-1e9d51c93-e8�756�8]�&7�98hohhhhx���
�:X�9��;X�9��<8h�=X
<��>;=�?>�@X�"��Ae@�B<!A=�Cfl-1e9d51c93-ec�Dfl-1e9d51c93-ed�ECD�F]�&E�GFhohhhhx���
�HX�G��IX�G��Jg%%source-location-set-fields�KsFh�LXJK��MIL�NM�Ogt-1e9d51c93-dc�PO�Qfl-1e9d51c93-f1�RQ�S]PR�TShohhhhx���
�UXYT��V�Shoh�hhh�h����WX�V��XW�YX�V��ZXXV��[XZV��\[W�]sSh�^X�]��_Z\^�`X�V��aSh�bX
a��c`Wb�dXRV��eX�V��fX]��gef�hdWg�iY_ch�jUXi�ksh�lXk��mg%source-location-line-procedure�ngm-1e9d51c93-f8�on[�po�qfl-1e9d51c93-fa�rq�s]jpr�tohsohhhhx����uXft��veu�wv=�x�hsoh�hhh�h����yXqx��zey�{<wz=�|oo�}fl-1e9d51c93-fd�~fl-1e9d51c93-fe�}~��]�|��o�hsohhhhx���
��X�����X�����s�hs��X������������X�x���e���<w�=��fl-1e9d51c93-102��fl-1e9d51c93-103������]�|���o�hsohhhhx���
��X�����X������hs��X�����������X�x���e���<w�=��fl-1e9d51c93-107��fl-1e9d51c93-108������]�|���o�hsohhhhx���
��X�����X�����s�hs��XJ�����������gt-1e9d51c93-f7�����fl-1e9d51c93-10c�����]�p���o�hsohhhhx���
��XY������hsoh�hhh�h�����X��������X�����XX����XZ��������s�hs��X����������X������hs��X���������XR����X�����X������������������������shs��Xm����g!%source-location-column-procedure��gm-1e9d51c93-113���[�����fl-1e9d51c93-115�����]j�����h�ohhhhx�����Xf����e����=���h�oh�hhh�h�����Xq����e���<��=������fl-1e9d51c93-118��fl-1e9d51c93-119������]�������h�ohhhhx���
��X�����X�����s�h���X������������X�����e���<��=��fl-1e9d51c93-11d��fl-1e9d51c93-11e������]�������h�ohhhhx���
��X�����X������h���X	�����������X�����e���<��=��fl-1e9d51c93-122��fl-1e9d51c93-123������]�������h�ohhhhx���
��X�����X�����s�h���XJ�����������gt-1e9d51c93-112�����fl-1e9d51c93-127�����]�������h�ohhhhx���
��XY�����h�oh�hhh�h����X����X���XX��XZ���s�h��X���	�
X����h��X	��

�XR��X���X����	
���sh��X���g!%source-location-offset-procedure�gm-1e9d51c93-12e�[��fl-1e9d51c93-130��]j�hohhhhx����Xf�� e�! =�"�hoh�hhh�h����#Xq"��$e#�%<!$=�&�'fl-1e9d51c93-133�(fl-1e9d51c93-134�)'(�*]�&)�+*hohhhhx���
�,X�+��-X�+��.s*h�/X�.��0-/�10�2X�"��3e2�4<!3=�5fl-1e9d51c93-138�6fl-1e9d51c93-139�756�8]�&7�98hohhhhx���
�:X�9��;X�9��<8h�=X	<��>;=�?>�@X�"��Ae@�B<!A=�Cfl-1e9d51c93-13d�Dfl-1e9d51c93-13e�ECD�F]�&E�GFhohhhhx���
�HX�G��IX�G��JsFh�KXJJ��LIK�ML�Ngt-1e9d51c93-12d�ON�Pfl-1e9d51c93-142�QP�R]OQ�SRhohhhhx���
�TXYS��U�Rhoh�hhh�h����VX�U��WV�XX�U��YXXU��ZXZU��[ZV�\sRh�]X�\��^Y[]�_X�U��`Rh�aX	`��b_Va�cXRU��dX�U��eX\��fde�gcVf�hX^bg�iTWh�jsh�kXj��lg!%source-location-length-procedure�mgm-1e9d51c93-149�nm[�on�pfl-1e9d51c93-14b�qp�r]joq�snhrohhhhx����tXfs��uet�vu=�w�hroh�hhh�h����xXqw��yex�z<vy=�{nn�|fl-1e9d51c93-14e�}fl-1e9d51c93-14f�~|}�]�{~��nhrohhhhx���
��X�����X�����shr��X������������X�w���e���<v�=��fl-1e9d51c93-153��fl-1e9d51c93-154������]�{���n�hrohhhhx���
��X�����X������hr��X	�����������X�w���e���<v�=��fl-1e9d51c93-158��fl-1e9d51c93-159������]�{���n�hrohhhhx���
��X�����X�����s�hr��XJ�����������gt-1e9d51c93-148�����fl-1e9d51c93-15d�����]�o���n�hrohhhhx���
��XY������hroh�hhh�h�����X��������X�����XX����XZ��������s�hr��X����������X������hr��X	���������XR����X�����X ������������������������shr��Xl����gm-1e9d51c93-164���[���������fl-1e9d51c93-169��fl-1e9d51c93-16a��fl-1e9d51c93-16b��fl-1e9d51c93-16c��fl-1e9d51c93-16d���������]��������fl-1e9d51c93-166�����]j������h�oh�hhh���
��X�����s�h���X�����X����X����X����X����X �����������gmake-vector��glist->vector��greverse��
��gmax��gdisplay��fError in map-goto��gnewline��gexpt��gbidon��fError in add-lookback-edge : ��gassv��gassq��greduce��gleft��gright��gnone��f %% Shift/Reduce conflict (shift ��f	, reduce ��f) on '��f' in state ��f"%% Reduce/Reduce conflict (reduce ��gdefault��gaccept��gfor-each��gnumber?��glist-ref��g	*default*��g*error*������gleft:��gright:��g	nonassoc:��f+invalid operator precedence specification: ���猤��茤�gnonassoc�����������gmember�f"duplicate definition of terminal: �finvalid terminal: �gassoc�fNonterminal previously defined:�fInvalid nonterminal:�f/Nonterminal definition must be a non-empty list�g*eoi*�geoi�	�
�
L�
�g*start*�gcar�
f-Grammar must contain at least one nonterminal�gcdar�gappend�g:�g$1��f<Grammar definition must have a non-empty list of productions�fInvalid token list: �fundefined symbol : �gprec:�f*prec: directive should be at end of rule: �fInvalid prec: directive: �f!Invalid terminal or nonterminal: �gsymbol->string�f Invalid terminal or nonterminal:�fTInvalid 'error' production. A single terminal symbol must follow the 'error' token.:�gvector�gstring->symbol�g
string-append� f-�!gnumber->string�"f$�#f/At least one production needed for nonterminal:�$gvector->list�%��&g___stack�'g___sp�(g
___goto-table�)g___push�*g
yypushback�+&'()*�,'()�-glet*�.gtok�/g
vector-ref�0g-�1.�2.�3�12.�43�5f@�6.�7�16.�87�9�:�;'�<goutput:�=gwith-output-to-file�>gdefine�?fMalformed lalr-parser form�@fInvalid option:�Agexpect:�Bgdriver:�Cgglr�Dg
out-table:�EfState table�Ff-----------�Gfstate �Hf   �If --> �Jf. �Kf �Lf	   (rule �Mf)�Nfdefault action�Of : Error�Pf : Accept input�Qf : reduce using rule �Rf : shift and goto state �SfNo generated parser available!�Tgstring?�Uginteger?�Vgmemq�Wglr�XWC�Ygcombine-locations�Zg*max-stack-size*�[g
vector-length�\f%Syntax error: unexpected end of input�]f!Syntax error: unexpected token : �^fSyntax error: invalid token: �_g
take-right�`gdrop�agfilename�C5h�L�]4	
$54'>"G()R4,0>"G4,>"G.i1R2i3R4678;>ADhP]	CHgfilenamefsystem/base/lalr.upstream.scm�
	S	��		
Chr]	45L4?6jgargs
		gv			gfilenamefsystem/base/lalr.upstream.scm�		S	��		CGHh(p]	45$O@6hgy
		'gtmp		'gfilenamefsystem/base/lalr.upstream.scm�
	S	��		'C57R46I8;>ADJhx-13��Cpgx
			gy			gfilenamefsystem/base/lalr.upstream.scm�
	T	��		T	#��			
Chr]	45L4?6jgargs
		gv			gfilenamefsystem/base/lalr.upstream.scm�		T	��		CGHh(p]	45$O@6hgy
		'gtmp		'gfilenamefsystem/base/lalr.upstream.scm�
	T	��		'C5IR46K8;>ADLh{]Csgmsg
		gobj		gfilenamefsystem/base/lalr.upstream.scm�
	U	��		U	%��			Chr]	45L4?6jgargs
		gv			gfilenamefsystem/base/lalr.upstream.scm�		U	��		CGHh(p]	45$O@6hgy
		'gtmp		'gfilenamefsystem/base/lalr.upstream.scm�
	U	��		'C5KRMNOPQThp�]45$^45$"�$
��"$24�&�"	45>"G""C�glvalue
		ngtok		ngfilenamefsystem/base/lalr.upstream.scm�
	V	��		W	
��	
	W	��		X	��		X	*��		X	��		W	��	"	Y	
��	5	W	��	6	Z	��	<	Z	%��	?	Z	*��	[	Z	��		n	gnamegnote-source-location�CURPh�]�C�gcategory
		gsource		gvalue			gfilenamefsystem/base/lalr.upstream.scm�
	x
��			gnameg%make-lexical-token-procedure�CVR468;W�hn]Cfgt-1e9d51c93-32
		gt-1e9d51c93-33		gt-1e9d51c93-34						C���h`]L6Xga
		gfilenamefsystem/base/lalr.upstream.scm�		x
��		C<�hP]L6Hgfilenamefsystem/base/lalr.upstream.scm�		x
��		
C�h]C		
CGHhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/lalr.upstream.scm�
	x
��		nC5R���P�4�P>"G	��Vi�PRPh�]�$��CCgobj
		gfilenamefsystem/base/lalr.upstream.scm�
	x
��		gnameg%lexical-token?-procedure�C�R468;�ah6]C.gt-1e9d51c93-45
		
		
C���h`]L6Xga
		gfilenamefsystem/base/lalr.upstream.scm�		x
��		C<�hP]L6Hgfilenamefsystem/base/lalr.upstream.scm�		x
��		
Cch]C		
CGHhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/lalr.upstream.scm�
	x
��		nC5RPTh�]�&
�C6�gs
		gfilenamefsystem/base/lalr.upstream.scm�
	x
��		gnameg!%lexical-token-category-procedure�CdR468;���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h6]C.gt-1e9d51c93-51
		
		
C���h`]L6Xga
		gfilenamefsystem/base/lalr.upstream.scm�		x
��		C<�hP]L6Hgfilenamefsystem/base/lalr.upstream.scm�		x
��		
C�h]C		
CGHh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/lalr.upstream.scm�
	x
��	�C5RPTh�]�&�C6�gs
		gfilenamefsystem/base/lalr.upstream.scm�
	x
��		gnameg%lexical-token-source-procedure�C�R468;��h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C�:h6]C.gt-1e9d51c93-6c
		
		
C���h`]L6Xga
		gfilenamefsystem/base/lalr.upstream.scm�		x
��		C<�hP]L6Hgfilenamefsystem/base/lalr.upstream.scm�		x
��		
C<h]C		
CGHh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/lalr.upstream.scm�
	x
��	�C5RPTh �]�&	�C6�gs
		gfilenamefsystem/base/lalr.upstream.scm�
	x
��		gnameg%lexical-token-value-procedure�C=R468;KRWh:]��C2gerr
		gs					CZ`eh:]��C2gerr
		gs					Chnsh:]��C2gerr
		gs					C��h6]C.gt-1e9d51c93-87
		
		
C���h`]L6Xga
		gfilenamefsystem/base/lalr.upstream.scm�		x
��		C<�hP]L6Hgfilenamefsystem/base/lalr.upstream.scm�		x
��		
C�h]C		
CGHh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/lalr.upstream.scm�
	x
��	�C5R46�8;������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CGHh(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/base/lalr.upstream.scm�
	x
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R�h�]�C�ginput
		gline		gcolumn			goffset			glength			gfilenamefsystem/base/lalr.upstream.scm�
�
��			gnameg%make-source-location-procedure�C�R468;��h�]C�gt-1e9d51c93-b7
		gt-1e9d51c93-b8		gt-1e9d51c93-b9			gt-1e9d51c93-ba			gt-1e9d51c93-bb						C���ha]L6Yga
		gfilenamefsystem/base/lalr.upstream.scm�	�
��		C<�hQ]L6Igfilenamefsystem/base/lalr.upstream.scm�	�
��		
C�h]C		
CGHhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/lalr.upstream.scm�
�
��		nC5R������4��>"G	���i��R�h�]�$��CC�gobj
		gfilenamefsystem/base/lalr.upstream.scm�
�
��		gnameg%source-location?-procedure�C�R468;�h6]C.gt-1e9d51c93-d0
		
		
C���ha]L6Yga
		gfilenamefsystem/base/lalr.upstream.scm�	�
��		C<�hQ]L6Igfilenamefsystem/base/lalr.upstream.scm�	�
��		
Ch]C		
CGHhp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/lalr.upstream.scm�
�
��		nC5R�Th�]�&
�C6�gs
		gfilenamefsystem/base/lalr.upstream.scm�
�
��		gnameg %source-location-input-procedure�CR468;%,1h:]��C2gerr
		gs					C4:?h:]��C2gerr
		gs					CBHNh:]��C2gerr
		gs					C�jh6]C.gt-1e9d51c93-dc
		
		
C���ha]L6Yga
		gfilenamefsystem/base/lalr.upstream.scm�	�
��		C<�hQ]L6Igfilenamefsystem/base/lalr.upstream.scm�	�
��		
Clh]C		
CGHh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/lalr.upstream.scm�
�
��	�C5R�Th�]�&�C6�gs
		gfilenamefsystem/base/lalr.upstream.scm�
�
��		gnameg%source-location-line-procedure�CmR468;{��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h6]C.gt-1e9d51c93-f7
		
		
C���ha]L6Yga
		gfilenamefsystem/base/lalr.upstream.scm�	�
��		C<�hQ]L6Igfilenamefsystem/base/lalr.upstream.scm�	�
��		
C�h]C		
CGHh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/lalr.upstream.scm�
�
��	�C5R�Th �]�&	�C6�gs
		gfilenamefsystem/base/lalr.upstream.scm�
�
��		gnameg!%source-location-column-procedure�C�R468;���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h7]C/gt-1e9d51c93-112
		
		
C���ha]L6Yga
		gfilenamefsystem/base/lalr.upstream.scm�	�
��		C<�hQ]L6Igfilenamefsystem/base/lalr.upstream.scm�	�
��		
Ch]C		
CGHh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/lalr.upstream.scm�
�
��	�C5R�Th �]�&	�C6�gs
		gfilenamefsystem/base/lalr.upstream.scm�
�
��		gnameg!%source-location-offset-procedure�CR468;%,1h:]��C2gerr
		gs					C4:?h:]��C2gerr
		gs					CBHMh:]��C2gerr
		gs					C�ih7]C/gt-1e9d51c93-12d
		
		
C���ha]L6Yga
		gfilenamefsystem/base/lalr.upstream.scm�	�
��		C<�hQ]L6Igfilenamefsystem/base/lalr.upstream.scm�	�
��		
Ckh]C		
CGHh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/lalr.upstream.scm�
�
��	�C5R�T h �]�&	�C6�gs
		gfilenamefsystem/base/lalr.upstream.scm�
�
��		gnameg!%source-location-length-procedure�ClR46 8;z��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h7]C/gt-1e9d51c93-148
		
		
C�� �ha]L6Yga
		gfilenamefsystem/base/lalr.upstream.scm�	�
��		C<�hQ]L6Igfilenamefsystem/base/lalr.upstream.scm�	�
��		
C�h]C		
CGHh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/lalr.upstream.scm�
�
��	�C5 R46J8;������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CGHh(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/base/lalr.upstream.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5JR468;>ADh8�]"$�$C�����"���
"����gv1
		1gv2		1gn			1gi			*gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�		��	�	��	�	$��	�	$��	 �	��	!�	��	$�	��	*�	��		1	gnameg	bit-union�C����h�
]"$�L��L��L�
�$tM�
�$IM�$4L�>"G"#M�L�4L��>"G"4L�>"G"4L�>"G"LL�6gp
	�gs4	�gx		
�gruleno		�gy		�gsymbol		0�gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	
�	$��	
�	��	�	)��	�	��	�	'��	�	$��	�	��	#�	��	'�	 ��	+�	��	0�	.��	0�	 ��	6�	+��	:�	"��	?�	0��	C�	&��	D�	&��	I�	-��	P�	&��	b�	(��	i�	(��	j�	(��	o�	/��	r�	7��	w�	(����	&����	-����	&����	 ����	'����	 ����	����	��$	�	gnamegloop2�Ch@�]
�$0OLLLLLLQLL��6C�gs1
		=gs3		=gloop2			;gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	6�	5��	7�	#��	;�	��		=	gnamegloop�Ch��]�45N45N45N45N
45NM
M�N45"#(""�4��5�"���
"���4L>"G4L>"G4M5N4M54M�
54M54MM��5
	"RM�$	
�$DM
��
�$,M�$",M����

"���"	"�M�
�$�$"M�"���$�

"��a
�"PM�
�$-���
	���	���"����
"��

"���"��GO	LL
Q4
>"G"



"���	
4L>"G4L>"G4L	>"G4L
>"GC�gterms
	�g
terms/prec	�gvars		�ggram		�ggram/actions		�gl		A	dgcount		A	dgno-of-rules		o�gno-of-items		o�gsqueue	�@grcount	�@grsets		�@grelts	
�@gr	�'gs2	�'gp	
�'g*r	�'gsymbol	�.gr1	2�g
any-tokens	2�gsymbol	7�gruleno	x�gr2	~�gp2	~�gsymbol	��gloop	�$gfilenamefsystem/base/lalr.upstream.scm�
	��		 ��		��		��		��		��		��		��	&	��	'		��	/		��	4
	��	6
	��	7	��	A	��	G
	��	P	&��	S	7��	X	?��	[	7��	\	.��	d	 ��	d	��	o	��	t		���		���|	���|	���}	���~	���~	���~	���	����	����	����	���}	����	����	����	����	
����	����	����	1����	 ����	����	����	���	"���	���	���	���	 ���	(��'�	��2�	��7�	#��7�	��=�	��A�	��D�	!��J�	*��U�	9��]�	��c�	��f�	$��t�	��u�	,��x�	��~�	 ����	0����	"����	(����	$����	:����	7����	*����	=����	7����	*����	*����	1����	:����	*����	.����	(����	 ����	����	��'�	��A		��Q		��a		��q		��_	�	Ch�]N4N3N2N1N0N/N.N-N,N+N*4�5N)N(N'N&N%N$N#N"N!N NNNNNNNNNNNNNNNNNLLLL1LLL2L3LLLLL	L
LLL
LO6gtokens
	�ggram	�gfilenamefsystem/base/lalr.upstream.scm�
�	��		��		��		��		��		��	 	��	!	��	"	��	#	��	 $	��	#%	��	$'	��	*'	5��	,'	��	.'	��	1(	��	4)	��	7*	��	:+	��	=,	��	@-	��	C.	��	F/	��	I0	��	L1	��	O2	��	R3	��	U4	��	X5	��	[6	��	^7	��	a8	��	d9	��	g:	��	j;	��	m<	��	p=	��	s>	��	v@	��	yA	��	zB	��	|B	���	��-	�	gnameggen-tables!�C�h��]K�NN4M5N4M5N4M�5N"�(C��"n(�	"���M	�M	�"8
(M
	����	�	"���M
��
��
"����
"�����	"���
"��`�gno-of-rules
	�gno-of-items	�ggram		�gp		.�gitem-no		.�grule-no		.�gnt		:�gprods		@�git-no2		@�grl-no2			@�grhs	
	i�git-no3		i�gfilenamefsystem/base/lalr.upstream.scm�
E	��	F	��	F	��	G	��	H	��	H	��	I	��	I	��	 J	��	%J	��	(J	��	*J	��	.L	��	4M	��	9N	��	:N	
��	@O	��	FP	��	IQ	��	WQ	��	^S	��	eT	��	iU	��	oV	��	tX	6��	xX	��	{Y	#��	~Y	/���Y	<���Y	���[	6���[	���\	#���\	-���\	���U	���U	%���U	���O	���O	���O	���L	��+	�	gnamegpack-grammar�C�h��]0HH4M�
5K4M	�5K"NM�$AM�
�$"JJ���J���"����"���"

"���4M
5N"XM�$M")
�$")J����"���J�"���M��"���C
"����gdelts
	�gdset	�gi		"	pgj		"	pglhs		0	lgi	��gj	��gs	��gx	��gq	��
gfilenamefsystem/base/lalr.upstream.scm�
_	��		`	��	`	��	`	��	a	��	"c	��	'd	
��	+d	��	0e	��	0e	
��	6f	��	:f	��	Eh	/��	Fh	'��	Gh	��	Ni	��	Qj	��	Tj	 ��	\j	��	_k	��	ik	��	pc	��	{m	���m	���o	���p	
���p	���q	���r	���r	���t	"���t	���u	"���u	0���u	*���u	���q	���q	"���q	:���q	���q	
���v	���w	���w	���o	��.	�
gnamegset-derives�C�hX�]04M5N"mM�$`"Q(	�"���MM���	��$"M�$M4LM�5�""�"���M�"���"
"���"�$�"}M�$"���M�"$("$�4LM��5"���"����$
�"���M��"���
"��y""��d"%M�$M4LM�5��"���C
"����gi
		}gsp		ngsym		5	ngcontinue
�gi�gcont	�gx	�gl	��gz	��gy	�gi
(Mgfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	$��	
�	��	�	��	�	��	�	
��	�	��	�	
��	#�	��	&�	��	,�	��	3�	>��	4�	-��	5�	��	5�	��	<�	��	@�	��	E�	��	N�	,��	W�	9��	Y�	,��	Z�	��	e�	��	k�	��	n�	
��	s�	��	y�	
��	}�	����	����	����	
����	����	����	����	����	����	����	����	'����	'����	B����	/����	'����	 ����	����	����	����	����	����	����	���	��	�	���	
���	��(�	��-�	
��1�	��6�	"��?�	-��A�	"��B�	��E�	��K�	��M�	��C	T
gnameg
set-firsts�C�h�u]4M5N4L>"G"SM�$H"$("&�4LM��5"���M�"���M��"���C
"���mgi
	 	sgl	-	Qgfd		-	Qgx	_	qgfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	
�	��	 �	��	%�	
��	)�	��	-�	��	3�	��	<�	 ��	=�	 ��	D�	<��	E�	(��	I�	 ��	Q�	��	Q�	��	V�	"��	W�	=��	_�	��	_�	
��	h�	��	k�	��	q�	��	s�	��		z
gnamegset-fderives�C��h@�]9H4M5K"a("_M��	��$:M�$-"("J���"���M�"���""�"���"���"�M�${J�$aM�"J�$/��$���"�����"�����"���"����"��|"�$���"���6"���"��@�gcore
	@gruleset	@gcsp			tgsym		#	tgdsp		;	Ugruleno	�2gcsp	�2gitemsetv	�2gitemno	��gc	��g	itemsetv2	��gc	&g	itemsetv2	&
gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	"�	'��	#�	��	#�	
��	*�	��	.�	��	3�	��	;�	��	A�	��	J�	-��	L�	��	O�	��	U�	��	U�	��	Z�	!��	`�	��	k�	��	q�	��	t�	����	����	
����	����	����	
���	���	���	���	���	���	���	���	���	���	+���	%���	���	���	+���	���	���	+���	���	���	��	��	
��	��	��		��		%��		�� 		��&
	��&	
��2�	��6�	/��@�	��=	@gnamegclosure�C��h8�](4M
5N4M5N
4M�
>"G4L>"G4	
5

��	�	�NMN	N
"��$��4L	�54L>"G4L>"G4L>"GM
�$]4	
5
�
�M�M	�M$M�M�N"NMN"�"��DCM"��:�gp
	B	lg
this-state
	p.gx	z,gis	�,gp	�gx	��gx	��gx	��gfilenamefsystem/base/lalr.upstream.scm�
'	��		��		��	
	��		��		��		��	"	��	+)	��	;�	"��	B	��	I�	"��	N�	"��	T�	"��	Z	��	[�	"��	`!	��	b!	��	f"	��	i#	��	p+	��	s,	
��	w,	��	z-	��	z-	
��	}.	����	"���.	���-	
���/	���0	���1	���2	���2	����	#����	����	"����	����	#����	����	#����	����	#���	���	!���	���	��
�	���	���	���	��&4	��,4	��.+	��7	6
gnameggenerate-states�C�h�<]!N"M�$M��"���"
"���"w�$l�M�
�$I4LM5NM�(M���MM��"��M��"�"���""���4M5NC4gitemset
	�gi			%gisp	0�gi		:�gsym		A�gx		[�gfilenamefsystem/base/lalr.upstream.scm�
7	��	9	��	9	��		:	��	;	
��	;	��	=	&��	=	��	>	��	!>	��	%:	��	0@	��	3A	
��	7A	��	:B	��	:B	
��	AC	��	AB	
��	GD	��	KD	��	LF	%��	VF	��	[G	��	[G	��	cH	��	jJ	=��	mJ	7��	nJ	��	wK	6��	xK	���M	,���M	&���M	���N	6���N	���O	���O	���@	���Q	���Q	��)	�gnamegnew-itemsets�C�h0�]9M�45"!(
�"���"���
"���M�(4L5M�
�C"��	��$}".�$ ���$��"����"�"�	�"���$
�
�C�(4L5�
�C�"��o�(4L5�
�C�"��I"��A�gsym
	,gisp	,gn		,gisp1			7gk			7gkey		B,gsp		I,gx		X	igsp1		m$gc		r	|gi1	��gt	��gc	��gc	��gx	��gx	gfilenamefsystem/base/lalr.upstream.scm�
U	��	V	��	V	��	
W	��	V	��	X	��	Y	��	"Z	��	)[	��	.[	-��	/[	(��	7[	��	7X	��	BV	��	I\	��	IV	��	Q]	��	R^	��	X^	
��	c_	)��	d_	��	h�	"��	ma	
��	rb	'��	rb	��	y�	"��	}b	���b	���c	���d	 ���d	���e	#���f	#���e	 ���d	���g	"���g	+���g	���h	���c	���c	9���c	-����	"���c	���b	���i	���i	����	"���j	���j	���k	���k	���l	$���l	����	"���n	���n	��j	��j	��k	��k	��l	$��l	���	"��n	��$n	��$a	
��D	,gnameg	get-state�C��hhj]!M�454	
5M
��M�$MN"	�	�M�M�NM�NCbgsym
		cgisp		cgn			cgp			cgn			)gfilenamefsystem/base/lalr.upstream.scm�
q	��	r	��	r	��	
s	��	r	��	�	"��	r	��	u	��	&�	"��	/�	"��	4w	
��	8w	��	<w	��	G�	"��	N�	"��	Uz	��	Vz	��	Y{	��	[{	��	^|	��	`|	��		cgnameg	new-state�Ch �](C4L�54L�5�C�gl
		gfilenamefsystem/base/lalr.upstream.scm�
�	
��	�	��		�	��	�	��	�	!��	�	��	�	*��	�	0��	�	*��	�	��		gnamegloop�C�h(�]OLQ44M55NC�gloop
		!gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	
��	�	��	�	
��	#�	��		%
gnameg
append-states�Ch8]	(CM��
�$
�4L�5�C�"����gl
		1gitem		1gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��		�	��	�	2��	�	 ��	�	��	�	��	�	��	�	 ��	�	)��	$�	/��	&�	)��	'�	��	+�	 ��	1�	��		1gnamegloop�C��h��]OLQ45�$T4	
5
�
�45�	�M$M�M�NCNMNCC�gcore
		{gitemset		{gloop			grs			{gp		-	ygx		3	>gx		E	Pgfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	!�	
��	%�	��	&�	#��	-�	
��	3�	"��	3�	��	;�	#��	?�	��	E�	��	M�	#��	W�	#��	]�	��	d�	+��	e�	��	h�	'��	j�	��	q�	(��	s�	��	w�	��		{	gnamegsave-reductions�Ch��]M	��N4L
>"G4L	>"G4L>"G4L>"G4L>"G4L>"G4L>"G4L>"G4LM>"GL6�gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	/��	�	��	�	��	
�	��	�	��	�	��	+�	��	;�	��	K�	��	[�	��	k�	��	{�	����	����	��	�
gnameglalr�C�h@]4M5N""�$�M
����"���CM"����gl
		2gx		0gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	�	
��	�	��	�	��	�	
��	"�	"��	&�	"��	'�	��	*�	��	0�	��	2�	��		:
gnamegset-accessing-symbol�C�h8�]4M5N" �$�M
���"���CM"����gl
		0gx		.gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	�	
��	�	��	�	��	�	
��	"�	#��	%�	��	(�	��	.�	��	0�	��		8
gnamegset-shift-table�C�h8�]4M5N" �$�M
���"���CM"����gl
		0gx		.gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	�	
��	�	��	�	��	�	
��	"�	#��	%�	��	(�	��	.�	��	0�	��		8
gnamegset-reduction-table�C�hX$] "@M�$1
�$��"����45
"���C


"���gp
		Fgcurmax		Fglength			Fgx			Fgfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�	%��	-�	��	0�	��	1�	��	D�	��	F�	��		S
gnamegset-max-rhs�Ch�]�(�C�"����gl
		gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��		�	��	�	
��	�	��	�	
��		gnameglast�C��h�X]@OQ4M
5N	4M
�5N"M
�$�M�M�M�$[��$"$M4	�5�M��"$���"���M	��"���M	��"��nMM
�4545N"*�$"$MM4
5��"���
"���4	�5N45N"wM
�$lM	�$
�"���M�$<")(
�"���M����"���	�"����"���C

"��

"��wPglast
	
�gcount	(�gi		(�grp		B�gsp		B�gt		R	~gc	�"gj	�gnelem	��gi	&�gnp	&�grp	J�gj	Vgnp2	Vgfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	�	"��	"�	��	$�	��	(�	��	-�	
��	1�	��	8�	��	=�	��	B�	��	B�	��	L�	��	P�	#��	R�	��	R�	��	e�	��	h�	0��	o�	#��	q�	0��	r�	$��	u�	!��	v�	 ����	����	#����	����	1����	����	����	 ����	����	����	 ����	����	����	����	����	����	����	����	#����	����	>����	����	,����	���	���	���	���	���	��&	��+	��/	��4	��8	��;	��E	��J	 ��J	��R	��V	��\	��_	(��i	"��p
	>��q
	$��t	+��w	3��	$��	����	#���	���	"���	���	����	��P	�
gnameg
initialize-LA�C��h��]`4M�
5N4M�
5"��$k"K�$7M��M�$MM�����"����"����"���4�	�5"���"M�$�M���"���" M�$"M���"���
"���NMMM�MM�4M5N4M5N"�(C�
�"R("S�	M	�

M�$$
�
��M�M	�"
	�"���	�"����"��}M"��u

"���
M"��r�gtemp-map
	�gng	�gsp		�gi		'	rgng2		'	rgsymbol		4	egs		x�gk	��gi	��gi	��gsp	
�gx	�gstate1	�gi	!sgstate2		.jgsymbol	
5ggk	E`gfilenamefsystem/base/lalr.upstream.scm�
	��		��		 ��		��	
	��		��		!��		��		��		��		��	#	��	'	��	*	��	.	��	3	9��	4	 ��	4	��	;	��	?	��	H	,��	I	'��	J	��	M	!��	P	)��	X	��	[	��	e	��	j	��	r	��	r	��	s	��	x	2��	x	$��	�	#���	���	���	��� 	��� 	���"	���#	���#	���#	8���#	���&	���'	���&	���(	.���(	���&	���&	���*	���+	���,	���-	%���-	���.	#��.	��
0	��2	 ��2	���	#��2	��!4	��.6	)��.6	��57	)��56	��<8	 ��@8	��E9	)��E9	 ��N:	?��O:	"��V;	"��]<	"��m4	1��s4	��x�	#��~4	���0	)���0	���	���	��V	�
gnamegset-goto-map�C���h��]""t�$+4>"G4>"G
C�	�M��$C�$
�"����"���M�M���"��x�gstate
	�gsymbol	�glow			zghigh			zgmiddle		B	zgs		I	zgfilenamefsystem/base/lalr.upstream.scm�
?	��	@	��	B	
��	B	��	D	��	D	��	D	��	 D	��	)D	>��	?F	#��	BF	��	BF	
��	IG	��	IF	
��	PI	��	TH	��	\K	��	`H	��	cL	��	mL	��	rN	��	zN	��	z@	��	@	���A	-���A	���A	���@	��	�	gnamegmap-goto�C���hX�]`4M	5N"*M	�$"$MM4
5��"���
"���4M	5"�M	�$�M�M�M�$�"��$�M��M�$-M�$�4L5�"����"���M�			�4			�5


���
	�"��|�$45�""	�"��P"��"��"


"���L6�gi
		:gnelem	#	0greads
	IVgi	OFgrowp		OFgrowf		]Bgstateno		d?gsp		k<gj		wgedges		wgsymbol	��gb		��gx	
��gy	��gfilenamefsystem/base/lalr.upstream.scm�
Q	��	R	��	R	��	S	��	S	��	S	��	#S	8��	&�	��	1S	'��	4S	��	:S	��	BU	��	IU	��	OW	��	TX	��	XX	��	]Y	��	]Y	��	dZ	��	dY	��	k[	��	kY	��	s\	��	w]	��	z^	��	~^	���_	?���_	&���_	���`	���`	���a	"���a	���b	)���b	7���b	1���b	"���d	)���d	"���f	.���f	 ����	����	
����	
����	"����	����	
����	����	#����	����	���g	'���g	 ��h	��h	��
i	1��i	��]	���	#��]	;��']	��.j	��1j	��9j	��FW	��Vk	��C	V
gnameginitialize-F�C��h��]:4545".�$"(���"���
"���"n�$"h��$G"7�$,��������"���""���"�"���
"���"!�$"����"���
"���C�gr-arg
	�gn	�gnew-end		�gnew-R		�gi			Hgx		,	?gi		S�gsp		e�gsp2		r�gx		|�gy	��gi	��gfilenamefsystem/base/lalr.upstream.scm�
|	��	}	��	~	��	}	��		��	�	��	#	��	)�	��	,�	��	,�	��	5�	
��	<�	
��	B	��	H	��	S�	��	X�	��	\�	��	e�	��	e�	��	j�	��	n�	
��	r�	��	u�	��	y�	��	|�	��	|�	����	����	����	*����	"����	����	-����	����	����	����	����	����	����	����	����	����	"����	����	����	����	��/	�	gnameg	transpose�ChPP]"*(C�M��$C�"���M�	�"���Hgstateno
		Igsymbol		Igj			0gstno			0gst2			0gs		5	?gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	��	&�	��	0�	��	0�	��	5�	"��	5�	��	<�	#��	I�	��		I	gnameg	get-state�C����h(X]�OLLQ4M5N"�M�$"�M�MM
��"��$��"M�


�$"4
5�	�	"���M�$"�M��"�$"
�$$M
��$

"���
�
"���$M
M
���"M4>"G4>"G4>"G"M�
"��d"z$
�"���M
�	��$AM	�$%M���
�4L
�5�
"���

"���

"���	��
"��q
M�	"��kM�"M�"��?�"��
"��4LMM5NCPg	get-state
	&gi	 gstate1		:	gsymbol1		:	grulep		B�gedges		B�g*rulep		L�grp		R�gstateno		R�gstates			R�g*rp	
	W�gst		j�gk	�;gfound	�*gi	
�*gdone	?�gstp	?�grp2	
?�gedgp	?�g*rp	W�gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	 �	��	%�		��	)�	��	2�	��	9�	.��	:�	��	:�	��	B�	��	E�	��	I�	
��	L�	��	L�	��	R�	��	W�	��	W�	��	]�	��	a�	��	b�	"��	j�	��	o�	!��	v�	-����	����	#����	���n	$���n	
���n	���o	���p	���p	���p	���q	���q	���q	���r	���s	���s	���u	���y	*���y	���x	���v	���v	 ���v	���w	��	w	 ��w	��w	>��*o	��0o	��8o	��?�	��E�	��H�	&��R�	 ��W�	+��W�	 ��^�	&��b�	"��g�	&��p�	2��q�	-��t�	-��w�	-��x�	3��}�	=����	3����	-����	&����	&����	����	+����	+����	����	����	 ����	$����	����	����	����	����	���	���	���	���	��$�	��[	&
gnamegbuild-relations�Chp~](MM�"X�$M">�$.M�M��4LM>"G�"����"���M�"���C
"���vgn
		lgi	
	egsp			XgLA-i		,	OgF-j		,	Ogfilenamefsystem/base/lalr.upstream.scm�
�	��	�	
��	�	��	
�	��	�	��	�	��	�	��	�	��	!�	��	&�	��	+�	,��	,�	��	,�	��	1�	��	I�	��	O�	��	R�	��	X�	��	X�	��	]�	��	c�	��	e�	��		l
gnamegcompute-lookaheads�Ch�]1M�NMM�MM�L��$�"��$y�
M��$4L>"G"M�M��$MM��"M�M�4LM>"G�"���""��t"M��$F">MM�M�NMM��$C4LM�M�M>"G"���"���C�gi
	gheight	grp		grp2		+�gj		5�gF-i		�gF-j		�gj	�	gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	'�	
��	+�	��	.�	��	2�	��	5�	��	5�	��	=�	��	>�	��	B�	��	C�	��	]�	��	b�	��	c�	��	g�	��	p�	/��	q�	��	z�	!��	�	!��	�	����	����	����	����	����	����	����	
����	����	����	����	����	����	����	����	����	����	#����	#����	��	�	��	�	��2	gnamegtraverse�C�h��]1HHHHO	LLLQM	�K4M�
5K4M�
5K
K"CM�$8
J��$$��$4>"G""�"���C
"����grelation
	�ginfinity	�gINDEX		�gVERTICES		�gtop		�gtraverse		�gi		W�gfilenamefsystem/base/lalr.upstream.scm�
�	��	8�	��	;�	��	@�	��	C�	��	F�	��	K�	"��	N�	��	W�	��	\	
��	`	��	f	��	g	��	k	��	p	��	q	��	u	��	v	���	���	����	��	�gnamegdigraph�Ch�]�M�NC�grule
		gsym		gfilenamefsystem/base/lalr.upstream.scm�
	��		��	
	
��		��			gnamegadd-rule-precedence!�C��o����#������hH�]SM�45�$���$C"�
�M����M���4M5$�M����"c"QM�


�$	"J�
M�$
M�M����	"���		"���
M�
	"���		�$"-	�$"&"&"	�$M&
�����C��C�$C	

�M�M�$MM��"M�M	�N	M&
�����C��C
�$u
�$i
�

�M�M�$MM��"M�M	�N	M&
�����C�45�C"��"���M��C�gstate
	Cgsymbol	Cg
new-action		Cg
state-actions		Cgactions		Cgcurrent-action		2grule		4gt		N�gsym		Y	fgi		n�gprec			n�gitem	
	s�gi1	��gsym	��gsym-prec	�g	sym-assoc	�g	rule-prec		�gkey	�gn	b�gl	��gn	��gl	�gfilenamefsystem/base/lalr.upstream.scm�
O	��	P	��	P	��	
Q	��	P	��	R	��	R	��	S	"��	S	��	&T	��	*T	��	1b	7��	4b	��	;	��	<	��	C	
��	D	��	F	��	N	��	Y	"��	Y	��	`	��	a	��	n"	��	s$	��	s$	��	y&	��	}&	
���(	���(	���)	���)	���+	4���+	���	���	���+	���,	���"	���"	���"	���7	���;	
���:	���;	%���<	
���:	���<	%���=	���:	���=	%��>	��
:	��>	%��?	%��b	��-�	��1d	%��4e	3��9e	R��;e	A��<e	)��Af	3��Df	)��Ob	��Sk	&��Wk	T��Xk	`��]l	&��bl	;��bl	/��i�	��m�	��t�	"��u�	��~�	���l	M���j	%���D	���D	����	���m	%���n	3���n	R���n	A���n	)���o	3���o	)���W	���W	���W	���W	3���W	���[	���[	@���[	O���[	[���\	���\	0���\	$����	����	����	"����	����	���\	B���Z	��D	��D	��
�	��]	��^	(��^	G��^	6��^	��_	(��_	6��(_	��=q	2��@q	,��Aq	��z	C	gnameg
add-action�Ch8�]
"*M�$C4L>"G�"���"����gstate
		7gaction		7gi			0gfilenamefsystem/base/lalr.upstream.scm�
t	��	u	��	v	��	u	��	w	��	*u	��	0u	��		7	gnamegadd-action-for-all-terminals�C�#�������h y]4>"G6qgmessage
		gfilenamefsystem/base/lalr.upstream.scm�
I	��	J	
��	K	
��		C
hh�]pHO
OLLLLLLLLLQLQK4M5N"�M�$"�M�$L��$>"�M
��"��$�
M��M
�"t	M�$g
	�

�$4	>"G"
	�$	����
	"���	�
	��
	"���"

�

	"��y�"��S"sM
�"��>��$WM	�$FM&4
	���>"G"4
	���>"G""���""���""M�$_"L�$A�M�M�$4M�>"G"�"���"	�"���"�"��
"��4M
>"G4J5M�$	J6C�gconflict-messages
	cg
add-action	cgadd-action-for-all-terminals		cgi		N/gred		`�gk		|Ggj	�9grule	�5glav	�5gtoken		�gx	
�gy	�gz	�g
in-la-set?	
��gshiftp	�&gk	�gstate	�gsymbol	�
gfilenamefsystem/base/lalr.upstream.scm�
4	��	>A	��	Ay	��	Fy	,��	Hy	��	Jy	��	N{	��	S|		��	W{	��	`}	��	`}	��	h~	��	l�	#��	n~	��	r~	��	{�	0��	|�	��	|�	����	����	����	����	$����	'����	$����	$����	����	����	 ����	����	4����	"����	(����	$����	(����	+����	&����	"����	-����	=����	-����	-����	&����	-����	9���	H���	&���	���	3��&�	��)�	 ��/�	��9�	��>�	 ��D�	��G	��K�	#��M	��Q	��V	+��Z	��^�	��b�	��c�	��h�	4��m�	#��n�	7��o�	4��t�	����	����	"����	+����	#����	.����	+����	����	����	����	����	����	����	����	 ����	����	!����	����	����	����	����	&����	���	��
�	���	���	#���	��){	��/{	��7�	��>�	��C�	��LG	
��UG	
��YG	��aH	
��i	c
gnamegbuild-tables�C��h�d])H"a�$V���4J545$*
�$$���"	�J�K""�"���""���"<(C���$���"����"���J
"���\gacts
	�gaccums	�gl				jgx			fgy		 	cgl		v�gmax		v�gsym		v�gx	��	gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��		�	��	�	��	�	
��	�	��	�	��	�	��	 �	��	#�	��	-�	��	1�	%��	5�	��	;�	��	@�	)��	A�	$��	B�	��	I�	+��	M�	%��	O�	��	Z�	��	`�	��	j�	��	v�	��	|�	
����	����	����	����	����	����	����	"����	*����	����	����	����	��'	�gnamegmost-common-action�C��h�]4L�5��C�gact
		gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	
�	#��	�	��	�	��	�	
��		Ch�]LO6�gacts
		gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��		gnamegtranslate-terms�C���h �]45	�$��L�"�C�gx
		gfilenamefsystem/base/lalr.upstream.scm�
�	/��	�	>��	�	;��	�	6��	�	@��	�	;��	�	1��		C���h�]4L�5��C�gact
		gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	
�	#��	�	��	�	��	�	
��		C	h��])OQ"zM�$CM�M��$<45M$"44LO55��"M4O5���"���
"���gterms
	�gmost-common-action	�gtranslate-terms		�gi		�gacts		'�gact		:	kgfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�		��	 �	��	'�	��	'�	��	.�	��	/�	��	3�	��	4�	��	:�	��	B�	!��	H�	.��	P�	:��	S�	!��	T�	!��	W�	"��	f�	!��	g�	��	h�	��	u�	��	v�	����	����	����	����	��	�gnamegcompact-action-table�C���L����L�	
��
�h|]���45�Ctgx
		gfilenamefsystem/base/lalr.upstream.scm�
3	(��	3	:��	3	D��	3	4��		Ch�	]{�$��$�"��$c��$��&"&"�$��(6��45�	"�
(�"��{
�

�$)4
5$4	
>"G""4

>"G
�
�
	�
"��~�
"��m6�$)45$4	>"G""4
>"G��
�"���"1�$e�		�$R	�

�$>4
5$"	4
5$

6�	�"���
6645��	45��
4545�45�$6"Z
�$0
�4L	5
�45��
"���45	
454?6�����

"���"���
"��E66	gtokens
	�ggrammar	�gk		�glst		�g	rev-terms		�grev-terms/prec		�g
prec-level		�gterm		~gt		*	Ngprec		g	vgprec		vgoptype			vgl	
	~g	rev-terms		~grev-terms/prec		~gterm	
�glst	��grev-nonterm-defs	��gdef		��gnonterm	
��gt	��gterms		��g
terms/prec	

�gnonterm-defs	�gnonterms	!�gdefs	
;�gruleno	;�g	comp-defs	;�gnonterm-def	Ergcompiled-def	Trgcompiled-nonterm-defs	y�gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	'�	��	*�	��	*�	��	R�	��	U�	%��	Y�	��	]	 ��	a	��	d�	#��	g�	/��	g�	#��	j�	��	p�	��	r�	��	s�	��	v�	��	~�	����	����	#����	����	(����	����	����	����	����	����	����	����	����	����	����	����	���	���	%���	���	���	���	5���	��	 ��	���	�� �	��!�	��-�	��.�	��2�	��9�	��J�	��N�	��U�	��`	��e	��i		(��m		��p		��~	���
	���	���	���	���	���	���	���	'���	����	���	���	%���	!���	%���	���	-���	!���	(���	(���	!���	-���	!���	$���	V���	����	���	B���	R���	<���	'���	���	-��	B��	R��		<��
	'��
	��
	'��	��	-��	6��!	'��!	��$	��,	��0	��4 	$��5 	T��7 	��;!	��>%	��B%	��E&	3��E&	��H'	3��T&	��Y+	+��\,	5��c,	+��h-	+��r+	 ��s/	;��y/	���3	#���5	#���0	 ���!	���!	9���!	E����	���!	9���!	3���$	3���!	���
	���
	8���
	����	����	"����	"����	����	����	Q����	����	����	���	�	gnamegrewrite-grammar�CLh8�]	4LL5$C4LL5$M�C6�gx
		5gPosInNT		5gPosInT		5gfilenamefsystem/base/lalr.upstream.scm�
<	��	=	��	=	��	>	��	@	��	@	��	'A	��	,B	��	1C	��	5C	��		5gnamegencode�CLh�F](C��4L5$"	4L5$4L5�C�${�&j��$Z��(J4��L5$3(%4LL4L��L5>"G"��cL666666>gl
	�gfirst	�grest		�gt			6gfilenamefsystem/base/lalr.upstream.scm�
F	��	G	��		H	��	
I	��	J	��	I	��	L	��	L	��	+L	)��	:K	��	=M	��	DM	��	HN	��	LK	��	OO	��	QO	&��	UN	��	XP	 ��	YP	��	]P	��	`Q	 ��	eP	��	fR	��	kR	!��	pR	��	tP	��	zS	��	{U	���U	7���U	D���U	7���U	���V	���W	$���W	���X	 ���X	���X	 ���X	���X	 ���X	���Z	���Z	���Z	���Z	��.	�gnamegloop�Ch(�]
OLLLLQ6�grhs
		'gruleno		'gloop			'gfilenamefsystem/base/lalr.upstream.scm�
E	��	F	��		'	gnamegprocess-prec-directive�C���Lh8�]	4L5$"	4L5$C6�gx
		2gt		$gfilenamefsystem/base/lalr.upstream.scm�
t	��	u	+��	u	'��	u	<��	(u	��	.v	.��	2v	"��		2CLL� !"!h0�]L�$C4445554L�5�C�gj
		*gfilenamefsystem/base/lalr.upstream.scm�
�	*��	�	0��	�	,��	�	0��	�	6��	�	7��	�	8��	�	8��	�	7��	 �	6��	!�	6��	&�	>��	(�	6��	)�	0��		*gnamegloop-j�C�#h��]lHOOLQLLQ45K��$�4�5"i�$\4�	�	��5�4��5
4O>"G"s�$h�&V��$""4	��5�$"����$4
>"G""�"���""���"Y45
444	555OQ45��	�
�
�
	"����$4�&'��$��	�
���
�
	"���"��p"��l"��h
6�
	"���
�6�gnonterm-def
	�gruleno	�gterms		�gnonterms		�gNo-NT		�gencode		�gprocess-prec-directive		�gname		J�glst		P�gi			P�grev-productions-and-actions	
	P�grhs		g�grest		l�gprod	
	{�grhs	�gt	��gt	��g
rhs-length	"tgloop-j	IYgaction	[tgfilenamefsystem/base/lalr.upstream.scm�
8	��	2:	��	=h	��	>h	
��	Bh	��	Cj	��	Hj	$��	Jj	��	Jj	��	Pk	
��	Sn	��	Wn	��	Xp	��	]p	5��	bp	?��	gp	��	gp	��	lq	��	lp	��	or	��	vr	/��	yr	)��	{r	��	{p	��	~t	���]	���^	���^	���`	���`	&���`	���a	"���a	���a	���b	 ���b	(���b	 ���b	���a	���c	'���c	 ���c	���`	���d	���d	���d	��e	��e	��]	���	)��"�	��&�	$��(�	0��)�	7��,�	8��2�	9��3�	9��;�	8��=�	7��@�	*��I�	*��Z�	$��[�	��[�	��b�	��g�	%��j�	��t�	��t{	��w{	��{{	��~|	 ���|	+���{	���}	"���}	���{	���~	���	����	.����	#����	���~	���o	���k	
���k	���m	3���k	
���i	���i	F���i	��\	�	gnamegrewrite-nonterm-def�Ch8]"$�$��$C��"���C
"����gx
		5glst		5glst			*gi			*gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��		�	��	
�	��	�	��	�	
��	�	��	�	(��	 �	2��	(�	"��	*�	��		5	gnamegpos-in-list�Ch`C](C(C���$4L�5�C�$4L�5�C�"���;gL1
		YgL2		Ygx			Ygy			Ygfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	#��	�	
��	#�	��	'�	��	*�	��	1�	"��	3�	��	4�	��	:�	��	>�	��	A�	��	F�	��	J�	��	K�	��	O�	��	Y�	��		Y	gnamegloop�Ch�]
OQ6�glst1
		glst2		gloop		
	gfilenamefsystem/base/lalr.upstream.scm�
�	��	
�	��			gnamegsunion�Ch@�]	(L�C�L�$L�CL�$4L�5�CC�gl1
		:gx		:gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	
�	
��	�	��	�	
��	�	��	�	��	!�	��	'�	��	+�	��	.�	��	3�	!��	5�	��	6�	��		:gnamegloop�Ch�]
OQ6�gelem
		glst		gloop			gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��			gnamegsinsert�Ch8�](C��4L5$4L5�C"����gl
		2gx		2gy			2gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��		�	
��	
�	��	�	��	�	
��	�	��	�	��	"�	��	)�	��	2�	��		2gnamegloop�Ch�]
OQ6�gp
		glst		gloop			gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��			gnameglalr-filter�C��h8](C�M�M�$�4L�5�C�"���gl
		7gstate	
	7gsymbol			7gfilenamefsystem/base/lalr.upstream.scm�
3	��	4	��		5	��	
6	,��	
6	��	7	,��	6	��	8	#��	8	��	$9	)��	%:	)��	*:	/��	,:	)��	-9	#��	1;	)��	7;	#��		7gnamegloop�Ch8�]	$$OLLQ4	�5"C�gshifts
		3gloop		*gfilenamefsystem/base/lalr.upstream.scm�
0	��	1	��	
2	��	3	��	%�	#��	'3	��	/<	��	21	
��			3C$h �]4LLO4M55�C�gfilenamefsystem/base/lalr.upstream.scm�
-	��	.	��	/	
��	=	��	/	
��	.	��		
gnamegbuild-goto-table�C%�Y"+,�-!."/&0'�"458h�]�$u�4L��5M&	��"�	��4	4
55�4	4

55�4L�5���CCgi
	�gl	�grest			~gns			~gfilenamefsystem/base/lalr.upstream.scm�
L	#��	M	)��		M	%��	N	5��	
O	3��	O	F��	O	C��	O	3��	N	)��	Q	,��	!Q	H��	%Q	3��	'R	7��	2R	Z��	3R	W��	6R	7��	?S	7��	DS	O��	GS	L��	HS	I��	KS	7��	NQ	,��	OU	0��	RU	@��	VU	O��	ZU	@��	\U	0��	^U	-��	`X	1��	cX	A��	gX	P��	kX	A��	mX	1��	oX	.��	qZ	.��	vZ	4��	zZ	.��	{W	-��	|T	,��	}P	+��	[	)��*	�	gnamegloop�C):;/&0'�h�])�M&"����45$"OLQ45"
�$"S	�4
M&"M&
45"455����Cgp
	�gact	�gnt		�grhs		#�gn		,�gloop		@	Tgfilenamefsystem/base/lalr.upstream.scm�
E	��	F	��	F	
��		G	��	
G	.��	G	��	H	��	I	��	J	��	J	��	"J	-��	#J	��	&J	:��	,J	��	0K	��	6K	��	@L	#��	Y\	#��	]]	��	a]	��	c^	��	i_	��	p_	/��	q_	��	w_	N��	{_	9��	|_	Z���_	^���`	=���`	(���a	,���a	L���a	,���b	,���b	>���b	,���_	���K	���G	��(	�Ch�]4LO5��C�ggram/actions
		gfilenamefsystem/base/lalr.upstream.scm�
A	��	B	��	D	
��	B	��		gnamegbuild-reduction-table�C�<=1>�h u]4LL>"G6mgfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	�	��		
Ch8)]45$�����O6C!goptions
		1gcode		1goption			1gparser-name			/g	file-name			/gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	
��	/�	��		1	gnamegoutput-parser!�C3�L?�L@h0�]	4�M5$
4�5�"$6C�goption
		0gp		0gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	�	��	�	��	�	
��	�	��	�	��	�	��	�	��	"�	��	&�		��	*�	��	.�	
��		0C�ABC#"�D=�E�FG��HIJKLM�	h0�]14>"G"
M�
�$	�"���
�M�4M�>"G4>"G"�M��$4>"G"
�$E4M�$MM��"M�>"G4>"G�"���4>"G4
�>"G4>"G6M�"��F"����gx
	*gi	"gv		"grlno		4"gnt		;"gi		hgv		mgfilenamefsystem/base/lalr.upstream.scm�
!	��	!	(��	!	1��	!	(��	�	��	�	��	�	��	#�	��	'�	��	*�	��	0�	��	1�	��	4�	��	;�	��	;�	��	>�	��	E�	��	J�	��	S�	9��	W�	B��	\�	9��	h�	��	m�	��	m�	��	t�	��	x�	��	y�	��	}�	����	����	����	����	����	����	����	"����	����	����	����	����	!����	����	����	����	����	!����	����	����	!����	���	���	!���	���	���	���	��"�	��"�	��:	*CH�N��O�PQRSh�b]HM$j4>"G4>"G4>"G4>"G4>"G"
(C�
�	�M�4>"G4>"G4>"G4>"G4LLLLLLO>"G4>"G"M("K�����4>"G	&4
>"G"U45$84M�M�$MM��"M�>"G"4>"G&4
>"G"t&4>"G"V
�$*4>"G4
�>"G"$4>"G4>"G4>"G�"���"���4>"G�"���M"���4>"G4>"GCZgl
	`jgcore	kjgi		qjgitems		xjgactions		jgl	�Igsym	Igact	Ign	Vu	gfilenamefsystem/base/lalr.upstream.scm�
�	��		��			
��	
	��		
��		"��	+	
��	/	��	4	
��	=	"��	M	,��	`	
��	f	��	k	��	k	��	q�	"��	q	��	x�	"��	x	��		 ��		���	���	���	���	%���	1��� 	���!	���#	����	��	��		��
	��	��	��	��	��)	��-	��.	��2	��7	��D		��N		��O
	��V
	)��V
	��]�	��a�	��h�	"��i�	��r�	��z
	���	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	���	��+�	��=
	��C
	��I�	��R%	��d&	��j&	��j	
��s	
��w	��|	
���	
��Y	�
gnamegprint-states�C
h��]#4LO>"G45$��"
N
45$��&"N"4L5M	M4L
54L	54
5$4��4LLLLLLLLO>"G"4L>"GC�goptions
	�gtokens	�grules		�goption		$	:goption		C	mgdriver-type		O	fggram/actions		v�gcode	��goption	��g	file-name	��
gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	��	 �	��	$�	��	$�	��	,�	��	/�	*��	7�	��	;�	��	?�	��	C�	��	C�	��	K�	��	N�	��	O�	
��	U�	3��	Y�	��	[�	9��	a�	E��	c�	��	n�	��	v�	��	|�	����	8����	L����	����	����	����	����	����	����	����	����	
����	����	��&	�	gnamegbuild-driver�C"D�Th(�]�$45	�$��6CC�goption
		#gfilenamefsystem/base/lalr.upstream.scm�
m	��	n	��		n	
��	
o	��	o	��	n	
��	p	��	p	��			#C<�Th0�]�$$45	�$���$	���6CCC�goption
		/gfilenamefsystem/base/lalr.upstream.scm�
r	��	s	��		s	
��	
t	��	t	��	s	
��	u	��	u	��	 s	
��	%v	��	)v	��		/CA�Uh8�]�$&45	�$4��5$��
�CCCC�goption
		1gfilenamefsystem/base/lalr.upstream.scm�
x	��	y	��		y	
��	
z	��	z	��	y	
��	{	��	{	��	 {	��	$y	
��	'|	��	*|	��
		1CB�VXh0�]�$%45	�$���$
��6CCC�goption
		0gfilenamefsystem/base/lalr.upstream.scm�
	��	�	��		�	
��	
�	��	�	��	�	
��	�	��	�	��	 �	
��	%�	��	*�	��		0C5h�-13`H1H0H/H.H-H,H+H*H)H(H'H&H%H$H#H"H!H HHHHHHHHHHHHHHHHHHH
HHH
H	HHHHHHHH2O53O4O5O6O7O8O9	O:
O;O<O=
O>O
?O@OAOBOCODOEOFO
GHOIOJOKOLOMONOOOP Q!R"S#T$OU%OV&W"�"n^�$_^�__�$H4'_�5$14(_�J15$_[�\]^�^]\["���Z[_^�6Z[_^�6Z[_^�6)*^6Y^]\["���+OXO459?MN0/,-*)('&%$#"! 

	Q3Q4Q5RSQ6R6Q7Q8>:=$%(8!" 7	Q9(S	
Q:<Q;"# Q<;
Q=&'Q>JKIGEDCBA@*Q?!
 Q@$ QA& QBQC*
 QD$)
QEQF
FK*)QGHF
)QI *2QJ2*)QK-QL/0,-.#+
 QM TQNPQOLQQP
QU+QV0/!WVU3+.1QXKKKKKKKKK	K
KKK
KKKKKKKKKKKKKKKKKKK K!K"K#K$K%K&K'K(K)K*,K+K,K-
K.K/K0-.�/0�12�34�K1XZY"��g�g	arguments
		grrhs	:grlhs		:gritem		:gnullable		:gderives		:gfderives		:gfirsts		:gkernel-base		:g
kernel-end			:gshift-symbol	
	:g	shift-set		:gstate-table		:gacces-symbol	
	:greduction-table		:gshift-table		:g
consistent		:g
lookaheads		:gLA		:gLAruleno		:glookback		:ggoto-map		:g
from-state		:gto-state		:gincludes		:gF		:gaction-table		:gnitems		:gnrules		:gnvars		:gnterms		:gnsyms		:gnstates	 	:gfirst-state	!	:g
last-state	"	:gfinal-state	#	:gfirst-shift	$	:g
last-shift	%	:gfirst-reduction	&	:glast-reduction	'	:gnshifts	(	:gngotos	)	:gtoken-set-size	*	:gdriver-name	+	:gthe-terminals/prec	,	:grule-precedences	-	:gexpected-conflicts	.	:g
the-terminals	/	:gthe-nonterminals	0	:g*valid-options*	1	:glst	Y{�gproc	Z{�goptions	[�gtokens	\�grules	]�glst	^�gp	_��g	bit-union	2ggen-tables!	3gpack-grammar	4gset-derives	5g
set-firsts	6gset-fderives	7gclosure	8ggenerate-states	9gnew-itemsets	:g	get-state	;g	new-state	<g
append-states	=gsave-reductions	>glalr	?gset-accessing-symbol	@gset-shift-table	Agset-reduction-table	Bgset-max-rhs	Cg
initialize-LA	Dgset-goto-map	Egmap-goto	Fginitialize-F	Gg	transpose	Hgbuild-relations	Igcompute-lookaheads	Jgdigraph	Kgadd-rule-precedence!	Lgbuild-tables	Mgcompact-action-table	Ngrewrite-grammar	Ogrewrite-nonterm-def	Pgpos-in-list	Qgsunion	Rgsinsert	Sglalr-filter	Tgbuild-goto-table	Ugbuild-reduction-table	Vgoutput-parser!	Wgbuild-driver	X`gfilenamefsystem/base/lalr.upstream.scm�
�
��{�	���	����	
����	����	����	
����	����	����	����	"����	����	����	����	����	����	����	����	2����	����	����	����	����	����	����	����	����	
����	����	����	����	����	����	���	���l	���l	���q	���q	���w	���w	��~	��~	��k	���	��.		


Chr]	45L4?6jgargs
		gv			gfilenamefsystem/base/lalr.upstream.scm�	�
��		CGHh(p]	45$O@6hgy
		'gtmp		'gfilenamefsystem/base/lalr.upstream.scm�
�
��		'C5R�T �	h��]B�&		�"	45�&		�"	45�&		�"	45�&		�"	45�&
�"	45�&
�"	45�$�45$t45$d45$T45$D
�$",
�$"
�$"
�""""$e�&
�"	45�&�"	45�&		�"	45	�	��C�$o�&
�"	45�&�"	45�&		�"	45��		�C�&
�"	45�&�"	45�&		�"	45��		�CC�gsrc-location-1
	�gsrc-location-2	�goffset-1		n�goffset-2		n�glength-1		n�glength-2		n�gt	�gt	�gt	ginput	��gline	��gcolumn	��ginput	�gline	�gcolumn	�glength		�ginput	ggline	ggcolumn	gglength		ggfilenamefsystem/base/lalr.upstream.scm�
�
��	�	��	 �	��	;�	��	V�	��	n�	��	y�	����	����	����	����	����	����	-����	����	����	����	-����	����	����	����	����	���	���	���	�� �	(��%�	��*�	(��/�	��3�	��6�	!��P�	!��j�	!����	����	����	����	!����	!���	!���	$���	!����	��	!��-	!��G	!��d	$��g	!��g	��1	�	gnamegcombine-locations�CYR�ZR�[hP)]4	4M5�
5"
�$M���"���"4M5�"���NC!g	new-stack
		Kgi		7gfilenamefsystem/base/lalr.upstream.scm�
-	��	.	��	.	'��	.	"��	.	��	.	��	/	��	0	��	 0	��	)2	'��	*2	��	-3	��	33	��	7/	��	8/	��	?/	��	E/	��	I4	��		K
gnameg___growstack�C[h�]M4M5�$L6C�gfilenamefsystem/base/lalr.upstream.scm�
6	��	7	��	7	��	7	��	8	��		
gnameg
___checkstack�CUhX{]M	��NMM�4L�5�M	�N4L>"GMM�MM�45�Csgdelta
		Qgnew-category		Qglvalue			Qgtok			Qgstate			Qg	new-state		 	Qgfilenamefsystem/base/lalr.upstream.scm�
:	��		;	��	
;	��	;	��	<	��	<	��	=	��	=	/��	=	��	 =	��	 <	��	'>	��	)>	��	*?	��	@@	��	EA	��	FA	(��	OA	��		Q	gnameg___push�Chr]NCjgfilenamefsystem/base/lalr.upstream.scm�
&	��	'	��		
gnameg___pushback�Ch�]L�MMLLLO6�gst
		gfilenamefsystem/base/lalr.upstream.scm�
C	��	D	��	D	��		gnameg	___reduce�Ch0�]M	�N4L>"GMM��MM�C�gtoken
		*g	attribute		*gfilenamefsystem/base/lalr.upstream.scm�
F	��	G	��		G	��	
H	��	I	��	!I	��	(J	��		*	gnameg___shift�CLhPO]"B
�$NCM�4L�5$NL��6	�"���M"���Ggtok
		Pgsp		Hgstate			Hgact		'	Hgfilenamefsystem/base/lalr.upstream.scm�
P	��	Q	��	
R	
��	R	��	S	
��	T	��	T	
��	U	��	 U	��	%U	&��	'U	��	'T	
��	/V	��	3X	��	8Y	��	=Y	��	BZ	��	HZ	��	HQ	��		Pgnameg
___recover�C�PVh�G]4L��5M	�N4L>"GMM	��MM	��"�M�$�&
�""&	�NC45$ 4L�5MM��MM���CM$M"4M5NNMN"��~"��z?gstate
	�gtok	�gsync-set		�gtok		A	fgi		f�gact	��gfilenamefsystem/base/lalr.upstream.scm�
\	��	]	��	]	"��	
]	��	]	��	]	��	^	��	^	��	_	��	/`	��	1`	��	8a	��	;a	��	?b	��	Ac	��	Fo	��	Jo	��	Mo	��	Wp	��	fc	��	ld	��	pd	
��	te	��	wf	���f	���g	���g	&���g	���g	���h	*���h	���i	0���i	���"	���"	4���"	���#	���$	���l	���b	��)	�	gnameg___sync�CP��\]^�
h�7] "�M$4MM�M�$�&
�""L�45$��"����$�&M�C&\&4M>"GC4MM>"G4L>"GM
�$N"
NN"��%
�$)4LM>"G&"N"���4L
�>"G"���4MM>"GCMM�L��$	���"4	5�$>
�$4L
�>"G"M
$M	"4M5NN
MN	"M
$M	"4M5NN
MN	"��<"��8/gstate
	@gtok		:gi	:@gl		A	ggy		L	dgact		g@gstate
E�gactsL�gdefact	_�	gfilenamefsystem/base/lalr.upstream.scm�
s	��	t	��	u	��	v	��	v	
��	w	��	o	��	o	��	!o	��	+p	��	:v	
��	Ax	%��	Ax	��	DM	
��	LM	��	TN	��	WN	��	_N	��	gv	
��	lz	��	pz	��	t	��	xz	��	|�	����	���z	����	����	����	����	$����	����	����	$����	����	����	����	����	����	����	.����	����	����	���z	����	���	-���	"���	5���	���	���	���	���	��*�	��+{	��/{	��6{	��E�	��E�	
��L�	��L�	
��Q�	��U�	��X�	*��_�	
��c�	��j�	��n�	��r�	)��v�	��w�	��z�	����	���"	���"	4���"	���#	���$	���"	���"	4���"	���#	���$	����	���t	��V	�
gnameg___run�C�Zh �]NN4
5N
NL6�glexerp
		gerrorp		gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	
�	��	*	��	*	��	+	��	�	��			C
h%]{H	HHHHHHO
OOO
OOOOQ

QQQ
QQ	Q	
QKKK
KKKK		OCgaction-table
	g
goto-table	greduction-table		g	___lexerp			g	___errorp			g___stack			g___sp			g
___curr-input			g___reuse-input			g___input				g___growstack	
	wg
___checkstack		wg___push		wg	___reduce	
	wg___shift		wg
___recover		wg___sync		wg___run		wgfilenamefsystem/base/lalr.upstream.scm�

��		gnameg	lr-driver�C"R�P����_`�Uh8�]4	�5�4L�5�45��C{gdelta
		4gnew-category		4glvalue			4gstack			4gtok			4gstack			4gstate			4g	new-state		"	4gfilenamefsystem/base/lalr.upstream.scm�
�	��	�	��	�	"��	�	��	�	��	�	��	�	��	�	��	�	.��	!�	��	"�	��	"�	��	'�	��	2�	��	3�	��		4	gnamegpush�C�h0]I"�$���"��$���&"���&"4	5�		M�N	"���
�$'M		��			M�N	"���
�	4L	�LLO5			�"��U�"��3L�4L5$�"��"���$45"���C"����gprocess
	-gstacks	g
active-stacks		gstack		gstate		gactions		�g
active-stacks		�gaction		(�g
other-actions		(�gparse			R	^gsymbol			t�g	new-stack		��gstate		��g	new-stack		��gaction-list	��gpair	��gfilenamefsystem/base/lalr.upstream.scm�
		��		��			��	
	
��		$��		��		$��		��		��		��	"	��	%		1��	(
	1��	(		��	0	1��	4	��	@	%��	D
	1��	H	��	I	5��	R	0��	R	%��	Y�	��	[�	��	j	%��	n	%��	r	��	t	6��	}�	��	~�	���	%����	����	���	%���	>���	6����	����	����	���	%���	B���	&���	"���	���	���	K���	7����	����	����	����	
����	
��	��		��
	
��	��	2��	��	��$	��%	=��-	��?	-Ch��]NNNNM�N"{4M5NM�$�&
�""4M5N4LLLLLLO>"G4M5�$"���""���MC�glexerp
	�gerrorp	�gtok		#	Hgsymbol		H�g	processes		Q	~gfilenamefsystem/base/lalr.upstream.scm�
	��	�	��		�	��	
�	��	�	��	
�	��	�	��	#	��	�	��	�	��	�	��	�	��	!�	��	#�	��	(�	��	,�	��	/�	��	9�	��	H�	��	K�	��	Q�	��	T�	��	V�	��	W�	����	���	
���	���	
����	��	�	Ch0$]#HHHHKKKKOCgaction-table
		.g
goto-table		.greduction-table			.g	___lexerp			.g*input*			.g*processes*			.g*parses*			.gfilenamefsystem/base/lalr.upstream.scm�
�
��	�	��	�	��		.	gnameg
glr-driver�C#R`h(�]
�$�$
��6CC�gl
		!gn		!gfilenamefsystem/base/lalr.upstream.scm�
(
��	)	��	
)	��	
)	��	)		��	*	��	*	��	*		��			!	gnamegdrop�C`R`�h�]45�6�gl
		gn		gfilenamefsystem/base/lalr.upstream.scm�
.
��	/	
��	/	
��	/	��			gnameg
take-right�C_Ra�T��	h`�]�&
�"	45��&�"	45��&		�"	45�C�gloc
		^gfilenamefsystem/base/lalr.scm�
	/
��		0	��		0	��		0	��	$	1	
��	<	0	��	A	2	��	Z	0	��			^gnameg"source-location->source-properties�C!RC~gm
		,grtd
{�grtd
$g$�gfilenamefsystem/base/lalr.scm�		
��gfilenamefsystem/base/lalr.upstream.scm�	.		��	1	
��	2	N	��	G	O	��	b	Q	��	i	R	���	V	���	x
��!*�
��(��
��(�
��>�
��I��
��J�(
��K}.
��gfilenamefsystem/base/lalr.scm�L�	/
��	L�
C6system/base/pmatch.go000064400000017104150536206120010610 0ustar00GOOF----LE-8-2.0,]4h3]gguile�	�	gdefine-module*�	�	�	gsystem�	gbase�	gpmatch�		�	
gfilenameS�	fsystem/base/pmatch.scm�	gexportsS�	
�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	gany�	geach-any�	��	��	g
syntax-object�	glet�	gtop�	�	 gribcage�	!gdummy�	"ge�	#gcs�	$!"#�	%gm-3c4e5dc25-86�	&%�	'&�	(fl-3c4e5dc25-8b�	)fl-3c4e5dc25-8c�	*fl-3c4e5dc25-8d�	+()*�	, $'+�	- �	.gx�	/.�	0&�	1fl-3c4e5dc25-88�	21�	3 /02�	4,-3�	5ghygiene�	65�	746�	8gv�	9846�	:gpmatch1�	;:46�	<gsyntax-violation�	=<�	><�	?f-source expression failed to match any pattern�	@�	Agif�	B!8�	Cgm-3c4e5dc25-92�	DC�	ED�	Ffl-3c4e5dc25-97�	Gfl-3c4e5dc25-98�	HFG�	I BEH�	JD�	Kfl-3c4e5dc25-94�	LK�	M /JL�	NI-M�	OAN6�	PN6�	QOPP�	Rgfree-id�	Sgelse�	T-M�	UST6�	VRU�	WV��	XW�	Yge0�	Z!8Y"�	[D�	\fl-3c4e5dc25-9c�	]fl-3c4e5dc25-9d�	^fl-3c4e5dc25-9e�	_fl-3c4e5dc25-9f�	`\]^_�	a Z[`�	ba-M�	cb6�	dgguard�	edT6�	fRe�	gf��	hg��	ih��	ji��	kj��	lk��	mgpat�	ngg�	o!8mnY"#�	pD�	qfl-3c4e5dc25-a6�	rfl-3c4e5dc25-a7�	sfl-3c4e5dc25-a8�	tfl-3c4e5dc25-a9�	ufl-3c4e5dc25-aa�	vfl-3c4e5dc25-ab�	wfl-3c4e5dc25-ac�	xqrstuvw�	y opx�	zy-M�	{z6�	|gfk�	}|z6�	~glambda�	~z6��:z6��gppat���z6��Az6��gand���z6��}����������������!8mY"#��D��fl-3c4e5dc25-b8��fl-3c4e5dc25-b9��fl-3c4e5dc25-ba��fl-3c4e5dc25-bb��fl-3c4e5dc25-bc��fl-3c4e5dc25-bd���������� ������-M���6��|�6��~�6��:�6����6��������g_��gm-3c4e5dc25-c6��������fl-3c4e5dc25-c8����� /����-�����6��R��������gkt��gkf��!8�������fl-3c4e5dc25-d4��fl-3c4e5dc25-d5��fl-3c4e5dc25-d6��fl-3c4e5dc25-d7�������� ������-���A�6��gnull?����6��gquote����6��R���������glit��!8��������fl-3c4e5dc25-dd��fl-3c4e5dc25-de��fl-3c4e5dc25-df��fl-3c4e5dc25-e0��fl-3c4e5dc25-e1��������� ������-���A�6��gequal?����6����6��gunquote����6��R���������gvar��!8�����fl-3c4e5dc25-e8��fl-3c4e5dc25-e9��fl-3c4e5dc25-ea��fl-3c4e5dc25-eb��fl-3c4e5dc25-ec��������� ������-����6��������gy��!8.��������fl-3c4e5dc25-f3��fl-3c4e5dc25-f4��fl-3c4e5dc25-f5��fl-3c4e5dc25-f6��fl-3c4e5dc25-f7��fl-3c4e5dc25-f8���������� ������-���A�6��gpair?����6���6��gvx����6��gcar����6��gvy����6��gcdr����6����6����fl-3c4e5dc25-100��fl-3c4e5dc25-101��fl-3c4e5dc25-102��fl-3c4e5dc25-103��fl-3c4e5dc25-104��������� ������-���A�6�geq?��6���6�C5hxZ]4	

54>"G479;h L]��CDgdummy
		ge		gcs						C>?h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/base/pmatch.scm�
	'
��		"g
macro-typegsyntax-rules�gpatternsgegcsg...C5R4:@Qh<]C4gdummy
		gv					CXch[]���CSgdummy
		
gv		
ge0			
ge			
		
	Cl{}�����	h@�]�������������C�gdummy
		@gv		@gpat			@gg			@ge0			@ge			@gcs			@		@	C�������h8|]���������Ctgdummy
		4gv		4gpat			4ge0			4ge			4gcs			4		4	C>?hhq]!45$@45$@45$@45$	@
6igx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsystem/base/pmatch.scm�
	+	��		gg
macro-typegsyntax-rules�gpatternsgvgvgelsege0geg...gvgpatgguardggg...ge0geg...gcsg...gvgpatge0geg...gcsg...C5:R4��h\]CTgdummy
		gv		gkt			gkf						C���h\]CTgdummy
		gv		gkt			gkf						C����h m]Cegdummy
		gv		glit			gkt			gkf						C��hm]Cegdummy
		gv		gvar			gkt			gkf						C���������	hPz]Crgdummy
		Igv		Igx			Igy			Igkt			Igkf			I		I	C��h m]Cegdummy
		gv		glit			gkt			gkf						C>?h��]145$@45$@45$@45$	@4
5$@45$
@6�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp		~�gfilenamefsystem/base/pmatch.scm�
	8	��	�g
macro-typegsyntax-rules�gpatternsgvg_gktgkfgvgktgkfgvgquoteglitgktgkfgvgunquotegvargktgkfgvgxgy�gktgkfgvglitgktgkfC5�RCRgm
		(gfilenamefsystem/base/pmatch.scm�		$
��	s
C6system/base/syntax.go000064400000046234150536206120010670 0ustar00GOOF----LE-8-2.0�L]4h�]gguile�	�	gdefine-module*�	�	�	gsystem�	gbase�	gsyntax�		�	
gfilenameS�	fsystem/base/syntax.scm�	gexportsS�	
g%compute-initargs�	gdefine-type�	g
define-record�	gdefine-record/keywords�	grecord-case�	gtransform-record�	
�	gset-current-module�	�	�	gstring->symbol�	gstring-trim-both�	gsymbol->string�	gsymbol-trim-both�	glist->char-set�	<>�	g
trim-brackets�	gmake-syntax-transformer�	�	 �	!gmacro�	"g$sc-dispatch�	#"�	$"�	%g_�	&gany�	'%&��	(g
syntax->datum�	)(�	*(�	+g
datum->syntax�	,+�	-+�	.g
kw-arg-ref�	/gprinterS�	0gcommon-slotsS�	1gbegin�	2gappend�	32�	42�	5gmap�	6gdefine�	7g
symbol-append�	8g-�	9gmake-procedure-with-setter�	:glambda�	;gx�	<;�	=g
struct-ref�	>gv�	?;>�	@gstruct-set!�	A>�	Bgiota�	Cglength�	Dgsyntax-violation�	ED�	FD�	Gf-source expression failed to match any pattern�	Hgmake-record-type�	Igquote�	Jg	list-tail�	Kg
module-gensym�	Lfdefrec�	Mgmake-�	Nglet�	Ogcond�	Pgnull?�	Qgelse�	Rg_x�	Sgcar�	Tgset!�	Ugcdr�	VR�	Wgmake-struct�	Xg?�	Ygrecord-predicate�	Zgrecord-accessor�	[grecord-modifier�	\gslots�	]glist�	^gcons�	_gconstructor�	`grecord-constructor�	agargs�	bgapply�	c
a\�	db_c�	e:ad�	fe�	ggassq�	hgerror�	ifunbound slot�	jgkeyword?�	kgkeyword->symbol�	lgmemq�	mgfilter�	ngpair?�	ofunknown slot�	pfslot already set�	qftoo many initargs�	rgeach-any�	s&r��	t%s��	ug
syntax-object�	vgr�	wgtop�	xw�	ygribcage�	zgrecord�	{gclause�	|z{�	}xx�	~fl-3d2ad63ef-21d�	fl-3d2ad63ef-21e��~��y|}���y��;��x��fl-3d2ad63ef-21a�����y�����x�����ghygiene�����uv����grtd��u�����greverse!��glp��gclauses��gout�������xxx��fl-3d2ad63ef-265��fl-3d2ad63ef-266��fl-3d2ad63ef-267�������y�����gprocess-clause�����x��fl-3d2ad63ef-225�����y�����v���fl-3d2ad63ef-221��fl-3d2ad63ef-222������y�}���x��������	��uQ����uh����funhandled record��u�����uv�������������gfree-id�������s������ge0��ge1������fl-3d2ad63ef-26f��fl-3d2ad63ef-270������y�}���x���������
��uQ�����&���fbad else clause placement��grest�������fl-3d2ad63ef-275��fl-3d2ad63ef-276��fl-3d2ad63ef-277�������y�����x���������
��u;����uQ����sr����&���&&���r���ginfix�����fl-3d2ad63ef-22e�����y�����gtag��gfields��gexprs�������fl-3d2ad63ef-22b��fl-3d2ad63ef-22c��fl-3d2ad63ef-22d�������y�����x������������u�������geach��&&�������&�s��geq?��gf��gaccessor���������xxxxx��fl-3d2ad63ef-233��fl-3d2ad63ef-234��fl-3d2ad63ef-235��fl-3d2ad63ef-236��fl-3d2ad63ef-237���������y�����x������������
��u�����u�����uN����5��5��uv�������&&r��glet*��g	processed��v����fl-3d2ad63ef-25e��fl-3d2ad63ef-25f��fl-3d2ad63ef-260�������y�����x��������	��u�����g
struct-vtable��u�����uO���frec�frtd�g->�gunquote�fbad -> form�g<�g>�gand�greverse�	gif�
	�
�C5h�9r]4	
54>"Gh�]44556�gsym
		gpred		gfilenamefsystem/base/syntax.scm�
	
��			��			$��			��			��			gnamegsymbol-trim-both�CRh�]456�gsym
		gfilenamefsystem/base/syntax.scm�
	
��			��			(��	
		��			��		gnameg
trim-brackets�CR4 !$'*-./01454h(�]L$�L"�4L�5��C�gdef
		&gfilenamefsystem/base/syntax.scm�
	(	��		)	��	
	)	(��	
	*	/��		*	,��		+	,��		)	��	!	-	��	#	)	��
		&C6789:<=;?@A
h@�]44L55	
	���C�gcommon-slot
		?gi		?gfilenamefsystem/base/syntax.scm�
	/	��		0	��		0	!��		0	0��		1	0��		0	!��		0	��		?	CBCh��-13�$�"�$�"4545$"44O54O4	4
5555�Czgname
		�grest		�gname		(�gopts		(�gt		>	Pgprinter		P�gcommon-slots		P�gfilenamefsystem/base/syntax.scm�
	#
��		$	��		$	��		$	��		%	��	 	%	��	#	%	��	(	%	*��	(	$	��	-	&	��	6	'	��	>	'	��	M	'	=��	P	&	��	V	(	��	Z	(	��	j	/	��	v	5	"��	y	5	(���	5	"���	/	���	(	��		�
Chj]	45L4?6bgargs
		gv			gfilenamefsystem/base/syntax.scm�		#
��		CFGh(h]	45$O@6`gy
		'gtmp		'gfilenamefsystem/base/syntax.scm�
	#
��		'C5R4 !$'*-5ht]�$�CClgslot
		gfilenamefsystem/base/syntax.scm�
	?	��		?	-��			?	)��		?	:��		C16HIh(�]("���$C�4L�5�C�gslots
		%gfilenamefsystem/base/syntax.scm�
	E	��		F	��			F	��		F	;��		F	2��		F	-��		F	��		G	��		H	!��		H	-��	!	H	1��	#	H	-��	$	H	��		%gnameglp�CJCKL7M4NOPQNRSTUV
hHy]�L��LLL	���Cqgo
		Egfilenamefsystem/base/syntax.scm�
	L	��		M	��		M	��		M	;��		M	��		ECWXY6789ZI[h8�]4L5LLC}gsname
		4gfilenamefsystem/base/syntax.scm�
	T	��		U	��		U	��		U	.��		U	��		U	��		4Ch�-13	�$�"�$��"454545$	"���	OQ454
4554
54545�4O5
���454O5����C�g	name-form
		gslots		gname		gprinter		+g
slot-names		6gstem		?glp		u�greqs	��gopts	��gtail	��
gfilenamefsystem/base/syntax.scm�
	<
��		=	��		=	��		=	%��		=	��		>	��	"	>	��	%	>	)��	+	=	��	.	?	��	6	=	��	9	A	��	?	=	��	C	B	��	J	C	(��	R	B	��	]	D	)��	b	D	5��	g	D	D��	h	B	��	u	E	���	E	���	I	���	I	&���	I	���	E	���	J	���	J	$���	J	���	E	���	K	
���	K	���	K	$���	K	���	K	
���	L	���	K	
���	B	���	S	���	S	$���	S	���	B	���	T		��	B	��-		
Chj]	45L4?6bgargs
		gv			gfilenamefsystem/base/syntax.scm�		<
��		CFGh(h]	45$O@6`gy
		'gtmp		'gfilenamefsystem/base/syntax.scm�
	<
��		'C5R4 !$'*-5ht]�$�CClgslot
		gfilenamefsystem/base/syntax.scm�
	`	��		`	-��			`	)��		`	:��		C16HI7MN\]^Ih(�]�$���CC�gslot
		#gfilenamefsystem/base/syntax.scm�
	g	#��		h	)��			h	%��		i	)��		i	2��		i	)��		i	>��		i	)��		j	)��
		#C_`fXY6789ZI[h8�]4L5LLC}gsname
		4gfilenamefsystem/base/syntax.scm�
	p	��		q	��		q	��		q	.��		q	��		q	��		4Ch��-13�$�"�$��"454545$	"���4	
5
45���4	54O5����C�g	name-form
		�gslots		�gname		�gprinter		+�g
slot-names		6�gstem		?�gfilenamefsystem/base/syntax.scm�
	]
��		^	��		^	��		^	%��		^	��		_	��	"	_	��	%	_	)��	+	^	��	.	`	��	6	^	��	9	b	��	?	^	��	C	c	��	J	d	(��	R	c	��	]	e	)��	b	e	5��	g	e	D��	h	c	��	p	f	��	t	f	��	x	f	��	z	c	��		g	���	c	���	o	���	o	$���	o	���	c	���	p		���	c	��!		�
Chj]	45L4?6bgargs
		gv			gfilenamefsystem/base/syntax.scm�		]
��		CFGh(h]	45$O@6`gy
		'gtmp		'gfilenamefsystem/base/syntax.scm�
	]
��		'C5R5ghih@�]�$�"4L5$�C�$�CLL6�gslot
		@gname		@gt			@gfilenamefsystem/base/syntax.scm�
	y		��		z	��			z	��		z	(��		z	��		{	��		{	
��	,	|	��	0	{	
��	3	|	!��	8	}	 ��	@	}	��
		@Cjklgmnhopq
h��]""�(O64�5$i4�545$"4455�$	
645$
	6������"��t(
	6����$�"���"��5"��&�gargs
	�gslots	�gin		�g
positional		�gout		�gsym		1�gslot	��gfilenamefsystem/base/syntax.scm�
	w
��			��	�	��		y	��	�	��	#�	��	%�	��	)�	��	*�	��	/�	"��	1�	��	1�	��	4�	��	@�	
��	F�	��	K�	��	U�	��	V�	��	Z�	��	^�	��	b�	
��	c�	
��	o�	��	s�	 ��	y�	��	|�	��	~�	����	,����	!����	����	����	
����	����	
����	����	����	
����	����	����	$����	����	����	���		���		-���		��/	�	gnameg%compute-initargs�C
R4 !$t��$��hT]L�6Lgfilenamefsystem/base/syntax.scm�		�	��	�	��		
C���hu]��L�6mge0
		ge1		gfilenamefsystem/base/syntax.scm�	�	��	�	��			C�D���h�]��6�ge0
		ge1		grest			gfilenamefsystem/base/syntax.scm�	�	&��	�	&��	�	��			C�($h]C		
C�+78(h(�]4L4L4555�4L5�C�gv0
		%gf0		%gf1			%gfilenamefsystem/base/syntax.scm�	�	(��	
�	7��	�	L��	�	O��	�	7��	�	(��	�	!��	�	(��	$�	!��
		%	Cs+78(h(�]4L4L4555�4L5�C�gf0
		%gf1		%gfilenamefsystem/base/syntax.scm�	�	(��	
�	7��	�	L��	�	O��	�	7��	�	(��	�	!��	�	(��	$�	!��
		%	CFG	hh�]45$@45$LLLO@45$LLLO@6�gfields
		agtmp	
	agtmp		!	agtmp		A	agfilenamefsystem/base/syntax.scm�
�	��		agnameglp�C$�h]C		
Csh:]�C2ge0
		ge1					CFG������hX]�CPgtmp-3d2ad63ef-23e
		
gtmp-3d2ad63ef-23d		
		
	Ch(p]45���Chgtag
		#gf		#gaccessor			#ge0			#ge1			#		#	Ch�B]L4455OLQ4545$4?")45$4?"
4	54
5$4?"
4	5L�6:g<foo>
	�gf0	�ge0		�grest		�ginfix		�glp		 	3gtmp		;	zgtmp		W	wgtmp		}�gtmp	��
gfilenamefsystem/base/syntax.scm�	�	��	
�	'��	�	��	�	��	 �	��	}�	
����	����	��		�	CFGh��]"45$O@45$O@45$@45$LLO@	
6�gclauses
		ygout		ygtmp		
	ygtmp		&	ygtmp		B	ygtmp		Y	ygfilenamefsystem/base/syntax.scm�
�	��		y	gnameglp�C$����h(Q]L�CIgr
		#grtd		#g	processed			#		#	CFG	hP�]OLQ4545$O@6�grecord
		Kgclause		Kglp			!gtmp		$	Kgtmp		/	Kgfilenamefsystem/base/syntax.scm�	�	��	�	��	�	��	$�		��		K	CFGh(j]	45$O@6bgx
		'gtmp		'gfilenamefsystem/base/syntax.scm�
�	��		'C5R4 !$'*-K278�Ih��]#"�(C��$�������$
�"����$6�44L44L55��55"����44L55�"��^�"��Q"��F�gx
	�grecord-stem	�gslots		�gin		�gout		�gslot		 �garg		 �gfilenamefsystem/base/syntax.scm�
�	��	�	��	�	��	�	��	�	��	�	��		��		��	 	��	'	��	+	��	.	��	8	��	;	��	?	��	B	��	C	��	F	$��	I�	��	L�	��	R�	��	V�	��	X�	2��	\�	��	a�	��	d	8��	g	8��	i	$��	m	��	u	��	x
	!��	z
	0��	{�	��	~�	����	����	����	2����	����	���
	0���
	*���
	���	���	����	����	����	��0	�	gnamegfurther-predicates�C782h�]#"�(C��$�������$,�44L55�"����$6�44L44L55��55"��r�"��e���44L55�"��0"��%gx
	�grecord-stem	�gslots		�gin		�gout		�gslot		 �garg		 �gslot	��gfilenamefsystem/base/syntax.scm�

	��		��		��		��		��		��		��		��	 	��	'	��	+	��	.	��	1	��	4�	��	:�	��	>�	��	@	2��	D	��	I	��	L	"��	O	��	W	��	Z	��	^	��	a	��	b	��	e	$��	h	��	k�	��	q�	��	u�	��	w	2��	{	���	���	1���	1���	$���	���	���	���	���!	���"	���"	.���"	&���	����	����	����	���	2���	���	���"	���"	���!	���	���	���	��;	�	gnameglet-clauses�CC7M845h �]�$�&L��6CC�gy
		 gfilenamefsystem/base/syntax.scm�
*	��	+	'��		+	��	+	6��	+	>��	+	"��	,	2��	,	"��			 Chhx�]�$g�&O45	�$9��4�4L554L�4LO�55�C	
6�4L�5�CC�gx
		sgform	$	Ygs		.	>gfilenamefsystem/base/syntax.scm�
#	��	$	��		$	��	%	��	%	��	$	��	&	��	&	��	 &	
��	#'	��	$'	��	'(	��	+(	%��	.(	7��	.(	,��	1�	��	7�	��	;�	��	@(	��	A(	��	F)	��	G*	��	S.	��	U*	��	W(	��	]/	��	a/	��	d0	��	e0	 ��	l0	4��	n0	 ��	o0	��!		sgnamegtransform-expr�CQ78�N5h��]!�&C�����44L55L44LL55��	44LL55�$
4
L5"��C�gclause
	�gstem	�gslots		�gbody		�grecord-type		3�gfilenamefsystem/base/syntax.scm�
1	��	2	��	2	��	2	��	4	��	5	��	6	��	4	
��	 7	��	$7	.��	%�	��	+�	��	/�	��	17	B��	37	��	37	��	78	��	A9	��	D9	 ��	P9	��	Q8	��	U:	��	X:	��	d:	��	g;	��	k;	��	l<	��	z=	��	{8	��	�gnamegprocess-clause�C��578h�]4L5LCygslot
		gfilenamefsystem/base/syntax.scm�
@	��	�	��	�	��	�	��	A	��		COgQ2h�h�L-1345454�5OOOO	QQQQ		
4O�5��
4	5
4
5$
"4
5
�CDgtype-and-common
		�grecord		�gclauses			�gr		�grtd		�g	type-stem		�gfurther-predicates		N�glet-clauses		N�gtransform-expr		N�gprocess-clause			N�gclauses	
��gfilenamefsystem/base/syntax.scm�
�
��	
�	��	�	��	�	��	�	
��	�	��	�	
��	�	��	�	"��	�	��	�	��	v>	���@	���B	���@	���>	���C	���C	���D	���D	���D	���D	���F	���F	%���F	���>	��		�	
	Chk]	45L4?6cgargs
		gv			gfilenamefsystem/base/syntax.scm�	�
��		CFGh(i]	45$O@6agy
		'gtmp		'gfilenamefsystem/base/syntax.scm�
�
��		'C5RCjgm
		(gfilenamefsystem/base/syntax.scm�		
��	
���	
���	w
��	9�
C6system/base/types.go000064400000300005150536206120010473 0ustar00GOOF----LE-8-2.0�]	�4h��]gguile�	�	gdefine-module*�	�	�	gsystem�	gbase�	gtypes�		�	
gfilenameS�	fsystem/base/types.scm�	gimportsS�	
grnrs�	gbytevectors�	
�	�	gio�	gports�	
�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-9�	�	�	ggnu�	�	�	gsrfi-11�	 �	! �	"gsrfi-26�	#"�	$#�	%gsrfi-60�	&%�	'&�	(gice-9�	)gmatch�	*()�	+*�	,giconv�	-(,�	.-�	/gformat�	0(/�	10�	2gvlist�	3(2�	43�	5gforeign�	65�	76�	8!$'+.147
�	9gexportsS�	:g
%word-size�	;gmemory-backend�	<gmemory-backend?�	=g%ffi-memory-backend�	>gdereference-word�	?gmemory-port�	@gtype-number->name�	Aginferior-object?�	Bginferior-object-kind�	Cginferior-object-sub-kind�	Dginferior-object-address�	Eginferior-fluid?�	Fginferior-fluid-number�	Gginferior-struct?�	Hginferior-struct-name�	Iginferior-struct-fields�	Jgscm->object�	K:;<=>?@ABCDEFGHIJ�	Lgset-current-module�	ML�	NL�	Ogsizeof�	Pg*�	Qg<memory-backend>�	Rg%memory-backend-procedure�	Sgmake-syntax-transformer�	TS�	US�	Vgmacro�	Wg$sc-dispatch�	XW�	YW�	Zg_�	[gany�	\Z[[[�	]g
syntax-object�	^glambda�	_g
m-1f6d4c535-6�	`gtop�	a_`�	bgribcage�	cg
t-1f6d4c535-3�	dg
t-1f6d4c535-4�	eg
t-1f6d4c535-5�	fcde�	gaaa�	hf
l-1f6d4c535-b�	if
l-1f6d4c535-c�	jf
l-1f6d4c535-d�	khij�	lbfgk�	mb�	ngx�	on�	pa�	qf
l-1f6d4c535-8�	rq�	sbopr�	tgshift�	ug	proc-name�	vgargs�	wuv�	x`�	yxx�	zfl-1e8ba8b5a-60�	{fl-1e8ba8b5a-61�	|z{�	}bwy|�	~gkey�	gvalue��gname��gformals��gbody��~�����xxxxx��fl-1e8ba8b5a-53��fl-1e8ba8b5a-54��fl-1e8ba8b5a-55��fl-1e8ba8b5a-56��fl-1e8ba8b5a-57���������b�����gmake-procedure-name�����x��fl-1e8ba8b5a-43�����b�����x��fl-1e8ba8b5a-42�����bo����almstmmmm}���
��ghygiene�����]^����gpeek��xlms�����]�����gopen��]�����g	type-name��]����������gmake-struct��g
m-1f6d4c535-1���`��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���`�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������b�����g	ctor-args�����fl-1e8ba8b5a-120�����b�����gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������b�y���gform��gconstructor-spec��gfield-names��������xxxx��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������b�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������xxxxxxxx��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������b�����fl-1e8ba8b5a-da�����bo�����lmstm�mmm��m�����]�����]Q����]
�����������������geach-any��Z挤�gsyntax-violation��������fWrong number of arguments��gidentifier?��������xms��]R����������f-source expression failed to match any pattern��grecord-type-vtable��������gpwpwpw��gdefault-record-printer�������������gset-struct-vtable-name!��������gvtable-offset-user�����g%memory-backend?-procedure�Z[�gm-1f6d4c535-17�`�gt-1f6d4c535-16���	fl-1f6d4c535-1c�
	�b
�fl-1f6d4c535-19�
�bo
�mtmmmm}���
�]^��gobj�gt-1e8ba8b5a-224�gt-1e8ba8b5a-21e�gt-1e8ba8b5a-21f�gt-1e8ba8b5a-220�gt-1e8ba8b5a-223�gt-1e8ba8b5a-222�gt-1e8ba8b5a-221��gm-1e8ba8b5a-225�`��fl-1e8ba8b5a-229�fl-1e8ba8b5a-22a�fl-1e8ba8b5a-22b� fl-1e8ba8b5a-22c�!fl-1e8ba8b5a-22d�"fl-1e8ba8b5a-22e�#fl-1e8ba8b5a-22f�$ !"#�%b$�&g	copier-id�'&�(fl-1e8ba8b5a-21c�)(�*b'�)�+g	ctor-name�,+�-fl-1e8ba8b5a-214�.-�/b,�.�0��1fl-1e8ba8b5a-212�21�3b0�2�4glayout�54�6fl-1e8ba8b5a-210�76�8b5�7�9g
immutable?�:9�;fl-1e8ba8b5a-20e�<;�=b:�<�>gfield-count�?>�@fl-1e8ba8b5a-20c�A@�Bb?�A�Cg
getter-ids�DC�Efl-1e8ba8b5a-209�FE�GbD�F�Hg	field-ids�IH�Jfl-1e8ba8b5a-206�KJ�LbI�K�Mgpredicate-name�Ng
field-spec�O9���MN�Pxxxxxx�Qfl-1e8ba8b5a-1f9�Rfl-1e8ba8b5a-1fa�Sfl-1e8ba8b5a-1fb�Tfl-1e8ba8b5a-1fc�Ufl-1e8ba8b5a-1fd�Vfl-1e8ba8b5a-1fe�WQRSTUV�XbOPW�Y�mtm%mmmm*m/m3m8m=mBmGmLX���Z]Y��[Z�\gand�]]\Y��^gstruct?�_]^Y��`_Z�ageq?�b]aY��cg
struct-vtable�d]cY��edZ�fxm�g]Qf��hbeg�i]`h�j[i�kxm�l]k��mgthrow-bad-struct�nm�om�pgmemory-backend-peek�qg%memory-backend-peek-procedure�rgfree-id�sg
%%on-error�tgm-1f6d4c535-23�ut`�vu�wfl-1f6d4c535-25�xw�ybovx�zumytmmmm}����{]sz��|r{�}|[�~g%%type�gt-1e8ba8b5a-14b��gt-1e8ba8b5a-14c��gt-1e8ba8b5a-14d��gt-1e8ba8b5a-14e��gt-1e8ba8b5a-14f��gt-1e8ba8b5a-150��gt-1e8ba8b5a-151����������gm-1e8ba8b5a-152���`�����������fl-1e8ba8b5a-156��fl-1e8ba8b5a-157��fl-1e8ba8b5a-158��fl-1e8ba8b5a-159��fl-1e8ba8b5a-15a��fl-1e8ba8b5a-15b��fl-1e8ba8b5a-15c�����������b�����ggetter��gindex������fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a������b�y����C&��xxx��fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������b������mytm�mmm�m�����]~����r���Z}�[��gck��gerr��gs������uu��fl-1f6d4c535-28��fl-1f6d4c535-29������b�����u�mytmmmm}���
��]�����gquote��]�����x�my��]Q�����������g%%index��]�����r���Z}�[��fl-1f6d4c535-2d��fl-1f6d4c535-2e������b�����u�mytmmmm}���
��]�����]������my��]
�����������g%%copier��]�����r���Z}�[��fl-1f6d4c535-32��fl-1f6d4c535-33������b�����u�mytmmmm}���
��]�����]�����g%%<memory-backend>-set-fields��x�my��]������������gt-1f6d4c535-22�����fl-1f6d4c535-37�����b�v���u�mytmmmm}���
��]^������mytm�mmm�m�����]��������gif��]�����]a����]c��������x�my��]Q���������g
struct-ref��]������my��]
���������]m����]�����]p������������������������xmy��]q����gmemory-backend-open��g%memory-backend-open-procedure��gm-1f6d4c535-3e���`�����fl-1f6d4c535-40�����bo�����m�tmmmm}�����]s����r���[��m�tm�mmm�m����]~��r�Z[����fl-1f6d4c535-43�fl-1f6d4c535-44��	b��
�	m�tmmmm}���
�]�
��]�
��
x	m��]Q
����]���r�Z[�fl-1f6d4c535-48�fl-1f6d4c535-49��b���m�tmmmm}���
�]���]���m��]����]��� r�!Z [�"fl-1f6d4c535-4d�#fl-1f6d4c535-4e�$"#�%b�$�&�%m�tmmmm}���
�']�&��(]�&��)x%m��*]�)��+(*�,+�-gt-1f6d4c535-3d�.-�/fl-1f6d4c535-52�0/�1b.�0�2�1m�tmmmm}���
�3]^2��4�1m�tm�mmm�m����5]�4��65�7]�4��8]a4��9]c4��:95�;x1m��<]Q;��=8:<�>]�4��?1m��@]?��A>5@�B]m4��C]�4��D]�;��ECD�FB5E�G7=AF�H36G�Ixm��J]�I��Kgmemory-backend-type-name�Lg#%memory-backend-type-name-procedure�Mgm-1f6d4c535-59�NM`�ON�Pfl-1f6d4c535-5b�QP�RboOQ�SNmRtmmmm}����T]sS��UrT�VU[�W�mRtm�mmm�m����X]~W��YrX�ZZVY[�[NN�\fl-1f6d4c535-5e�]fl-1f6d4c535-5f�^\]�_b�[^�`N_mRtmmmm}���
�a]�`��b]�`��cx_mR�d]Qc��ebd�fe�g]�W��hrg�iZVh[�jfl-1f6d4c535-63�kfl-1f6d4c535-64�ljk�mb�[l�nNmmRtmmmm}���
�o]�n��p]�n��qmmR�r]	q��spr�ts�u]�W��vru�wZVv[�xfl-1f6d4c535-68�yfl-1f6d4c535-69�zxy�{b�[z�|N{mRtmmmm}���
�}]�|��~]�|��x{mR��]����~������gt-1f6d4c535-58�����fl-1f6d4c535-6d�����b�O���N�mRtmmmm}���
��]^������mRtm�mmm�m�����]��������]�����]a����]c��������x�mR��]Q���������]������mR��]	���������]m����]�����]K������������������������xmR��]L����geach��[[������[����[����[����g%%set-fields��gdummy��gcheck?��gexpr���������gm-1f6d4c535-74���`���������fl-1f6d4c535-79��fl-1f6d4c535-7a��fl-1f6d4c535-7b��fl-1f6d4c535-7c��fl-1f6d4c535-7d���������b��������fl-1f6d4c535-76�����bo����gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d���`�������fl-1e8ba8b5a-171��fl-1e8ba8b5a-172��fl-1e8ba8b5a-173�������b�����fl-1e8ba8b5a-167��fl-1e8ba8b5a-168��fl-1e8ba8b5a-169�������b�������m�tm�mmm���
��]�����x�m���]Q����]p����]�����]K���������gmap��������glist��gmake-pointer��gpointer->bytevector��gbytevector-uint-ref��gnative-endianness��gopen-bytevector-input-port��gmake-custom-binary-input-port��f
ffi-memory��gbytevector-copy!��gsetvbuf��g_IONBF��g% dereference-word-procedure��Z[[��gsyntax-parameterize��gm-1f6d4c535-c6���`��gt-1f6d4c535-c4��gt-1f6d4c535-c5����������fl-1f6d4c535-cb��fl-1f6d4c535-cc������b��������fl-1f6d4c535-c8�����bo����fl-bde397a-1eaf��fl-bde397a-1eb0������bwy��������fl-bde397a-1ea6��fl-bde397a-1ea7��fl-bde397a-1ea8�������b�����gprefix������xx��fl-bde397a-1e9a�fl-bde397a-1e98���b���fl-bde397a-1e97��bo����m�tmmmm��
���]��	x�m��
]>	��gidentifier-syntax�]�
]�	��
�
��]^�gbackend�]	��gaddress�]	���f*Return the word at ADDRESS, using BACKEND.�]	��glet�]	��]�	��]p	����� �! �"!�#"�$��%��&xm��']�&��([[[�)��*gm-1f6d4c535-e9�+*`�,+xx�-fl-1f6d4c535-ee�.fl-1f6d4c535-ef�/fl-1f6d4c535-f0�0-./�1b),0�2+�3fl-1f6d4c535-eb�43�5bo24�6x1m5�7]6��8]�6��9]�6��:]6��;:�<[[[[�=gsize�>�=�?+xxx�@fl-1f6d4c535-f5�Afl-1f6d4c535-f6�Bfl-1f6d4c535-f7�Cfl-1f6d4c535-f8�D@ABC�Eb>?D�FxEm5�G]�F��Hgzero?�I]HF��J]�F��K]�F��Lgvu8
	�j�M]LF��NKM�OJN�P]F��Q]�F��R]�F��Sgget-bytevector-n�Tgget-word�Ug% type-number->name-procedure�Vgm-1f6d4c535-104�WV`�Xgt-1f6d4c535-101�Ygt-1f6d4c535-102�Zgt-1f6d4c535-103�[XYZ�\WWW�]fl-1f6d4c535-109�^fl-1f6d4c535-10a�_fl-1f6d4c535-10b�`]^_�ab[\`�bW�cfl-1f6d4c535-106�dc�ebobd�fWametmmmm��
�g]�f�hxame�i]@h��j]f�k]Uh��ljk�mil�nm�o]^f�p]h��qgkind�r]qh��sgnumber�t]sh��uprt�vfyReturn the name of the type NUMBER of KIND, where KIND is one of
'smob or 'port, or #f if the information is unavailable.�w]vh��x]h��ygproc�z]yh��{]Kh��|{p�}z|�~}�]\h���zrt��z���x~���ouw���gn���xme��]U����gmatch-cell-words��g
bytevector��gm-1f6d4c535-12d���`�����fl-1f6d4c535-12f�����bo����xm���]�����r����[[���挤�[[�[��gport��glen��grest�����������xxxxx��fl-1f6d4c535-132��fl-1f6d4c535-133��fl-1f6d4c535-134��fl-1f6d4c535-135��fl-1f6d4c535-136��fl-1f6d4c535-137����������b�����x�m���]����]S����g	remainder��]�����gmodulo��]�����]:�������gunless��]�����]H��������g-��]�������������]�����[挤�[[�[����������xxxx��fl-1f6d4c535-140��fl-1f6d4c535-141��fl-1f6d4c535-142��fl-1f6d4c535-143��fl-1f6d4c535-144���������b�����x�m���]����]T����]�����[[[��gmatch-bit-pattern��g||��gm-1f6d4c535-152���`�����fl-1f6d4c535-154�����bo����xm���]�����r���[�[��g&��]�����r���g=��]�����r�����[�[��[[�[[��gbits��ga��gb��gn��gc��g
consequent��g	alternate�������������xxxxxxx��fl-1f6d4c535-157��fl-1f6d4c535-158��fl-1f6d4c535-159��fl-1f6d4c535-15a��fl-1f6d4c535-15b��fl-1f6d4c535-15c��fl-1f6d4c535-15d��fl-1f6d4c535-15e������������b�����x�m���]����gtag��]�����glogand��]�����]�����]��������gbitwise-not��]�����[�[�[��[[�[[����n�������xxxxxx��fl-1f6d4c535-168��fl-1f6d4c535-169��fl-1f6d4c535-16a��fl-1f6d4c535-16b��fl-1f6d4c535-16c��fl-1f6d4c535-16d�fl-1f6d4c535-16e��������b���xm��]��]���]���]���]���	]Z���
r	�
�[�[�[[[[�
��������xxxxx�fl-1f6d4c535-177�fl-1f6d4c535-178�fl-1f6d4c535-179�fl-1f6d4c535-17a�fl-1f6d4c535-17b�fl-1f6d4c535-17c��b
�xm��]��]���]���]���]���(�[�[[[[�g<<� ��������!fl-1f6d4c535-184�"fl-1f6d4c535-185�#fl-1f6d4c535-186�$fl-1f6d4c535-187�%fl-1f6d4c535-188�&fl-1f6d4c535-189�'fl-1f6d4c535-18a�(fl-1f6d4c535-18b�)!"#$%&'(�*b �)�+x*m��,]+��-]�+��.gbitwise-and�/].+��0]�+��1gexpt�2]1+��3]	+��4]+��54�6]�+��7]�+��8garithmetic-shift�9]8+��:gmatch-cell-clauses�;�[�<;挤=[[[<�>gtag-pattern�?gthing�@���>?���Agm-1f6d4c535-194�BA`�CBxxxxxx�Dfl-1f6d4c535-199�Efl-1f6d4c535-19a�Ffl-1f6d4c535-19b�Gfl-1f6d4c535-19c�Hfl-1f6d4c535-19d�Ifl-1f6d4c535-19e�Jfl-1f6d4c535-19f�KDEFGHIJ�Lb@CK�MB�Nfl-1f6d4c535-196�ON�PboMO�QxLmP�R]�Q��S]�Q��T]:Q��U[[[�Vginferior-object�W����XBxx�Yfl-1f6d4c535-1aa�Zfl-1f6d4c535-1ab�[fl-1f6d4c535-1ac�\YZ[�]bWX\�^x]mP�_]V^��`]�^��ag
unmatched-tag�b]a^��c`b�dg
match-cell�e���f[e��g[f��hgpattern�i��h��jgm-1f6d4c535-1b0�kj`�lkxxx�mfl-1f6d4c535-1b5�nfl-1f6d4c535-1b6�ofl-1f6d4c535-1b7�pfl-1f6d4c535-1b8�qmnop�rbilq�sk�tfl-1f6d4c535-1b2�ut�vbosu�wxrmv�x]w��ygport*�z]yw��{]�w��|]Tw��}]:w��~gbegin�]~w���gmatch-scm-clauses���挤�[����[����gbit-pattern���������gm-1f6d4c535-1c0���`���xxxx��fl-1f6d4c535-1c5��fl-1f6d4c535-1c6��fl-1f6d4c535-1c7��fl-1f6d4c535-1c8��fl-1f6d4c535-1c9���������b��������fl-1f6d4c535-1c2�����bo����x�m���]�����]~����]����������x��fl-1f6d4c535-1d2��fl-1f6d4c535-1d3������b�����x�m���]�����g
unmatched-scm��]���������g	match-scm��[����gclauses�������gm-1f6d4c535-1d6���`���xx��fl-1f6d4c535-1db��fl-1f6d4c535-1dc��fl-1f6d4c535-1dd�������b��������fl-1f6d4c535-1d8�����bo����x�m���]����gbits*��]�����]�����g%tc2-int��g
%tc3-imm24��g	%tc3-cons��g	%tc3-int1��g	%tc3-int2��g	%tc8-char��g	%tc8-flag��g%tc3-struct��g%tc7-symbol��g
%tc7-variable��g%tc7-vector��g
%tc7-wvect��g%tc7-string��g%tc7-number��g%tc7-hashtable��g%tc7-pointer��g
%tc7-fluid��g%tc7-stringbuf��g%tc7-dynamic-state��g
%tc7-frame��g%tc7-objcode��g%tc7-vm��g%tc7-vm-continuation��g%tc7-bytevector��g%tc7-program��g
%tc7-array��g%tc7-bitvector��g	%tc7-port��g	%tc7-smob��g%tc16-bignum��g
%tc16-real��g
%tc16-complex��g%tc16-fraction��g<stringbuf>��g%stringbuf-procedure��g	stringbuf��gm-1f6d4c535-1e6���`��gt-1f6d4c535-1e5��������fl-1f6d4c535-1eb�����b�����fl-1f6d4c535-1e8�����bo������m�tmmmm}���
��]^����gstring��x�m���]��������gm-1f6d4c535-1e3���`����m�tm�mmm��m�����]�����]�����]
���������������xm���]�����gpw�����g%stringbuf?-procedure��g
stringbuf?��gm-1f6d4c535-1f3���`��gt-1f6d4c535-1f2�������fl-1f6d4c535-1f8��b���fl-1f6d4c535-1f5��bo���mtmmmm}���
�]^���mtm%mmmm*m/m3m8m=mBmGmLX���	]��
	�]\��]^��
	�]a��]c��	�xm�]����
�
�xm�]���gstringbuf-contents�g%stringbuf-contents-procedure�gm-1f6d4c535-1ff�`��fl-1f6d4c535-201��bo� mtmmmm}����!]s ��"r!�#"[�$�mtm�mmm�m����%]~$��&r%�'Z#&[�(�)fl-1f6d4c535-204�*fl-1f6d4c535-205�+)*�,b�(+�-,mtmmmm}���
�.]�-��/]�-��0x,m�1]�0��2/1�32�4]�$��5r4�6Z#5[�7fl-1f6d4c535-209�8fl-1f6d4c535-20a�978�:b�(9�;:mtmmmm}���
�<]�;��=]�;��>:m�?]
>��@=?�A@�B]�$��CrB�DZ#C[�Efl-1f6d4c535-20e�Ffl-1f6d4c535-20f�GEF�Hb�(G�IHmtmmmm}���
�J]�I��K]�I��Lg%%<stringbuf>-set-fields�MxHm�N]LM��OKN�PO�Qgt-1f6d4c535-1fe�RQ�Sfl-1f6d4c535-213�TS�UbRT�VUmtmmmm}���
�W]^V��X�Umtm�mmm�m����Y]�X��ZY�[]�X��\]aX��]]cX��^]Y�_xUm�`]�_��a\^`�b]�X��cUm�d]
c��ebYd�f]mX��g]�X��h]_��igh�jfYi�k[aej�lWZk�mxm�n]m��ogm-1f6d4c535-21a�po`�qp�����rfl-1f6d4c535-21f�sfl-1f6d4c535-220�tfl-1f6d4c535-221�ufl-1f6d4c535-222�vfl-1f6d4c535-223�wrstuv�xb�qw�yp�zfl-1f6d4c535-21c�{z�|boy{�}�xm|tm�mmm���
�~]�}��xxm|��]����]������gset-record-type-printer!��gdisplay��f#<stringbuf ��gwrite��f#>��g<inferior-struct>��g%inferior-struct-procedure��ginferior-struct��gm-1f6d4c535-242���`��gt-1f6d4c535-240��gt-1f6d4c535-241����������fl-1f6d4c535-247��fl-1f6d4c535-248������b��������fl-1f6d4c535-244�����bo������m�tmmmm}���
��]^����x�m���]�����gfields��]���������gm-1f6d4c535-23e���`����m�tm�mmm��m�����]�����]�����]
����������������xm���]�����gpwpw������g%inferior-struct?-procedure��gm-1f6d4c535-251���`��gt-1f6d4c535-250��������fl-1f6d4c535-256�����b�����fl-1f6d4c535-253�����bo������m�tmmmm}���
��]^������m�tm%mmmm*m/m3m8m=mBmGmLX����]�������]\����]^��������]a����]c��������x�m���]��������������������xm���]�����g%inferior-struct-name-procedure��gm-1f6d4c535-25d���`�����fl-1f6d4c535-25f�����bo�����m�tmmmm}�����]s����r����[���m�tm�mmm�m�����]~����r���Z��[������fl-1f6d4c535-262��fl-1f6d4c535-263������b�������m�tmmmm}���
��]�����]�����x�m���]������������]�����r���Z��[��fl-1f6d4c535-267��fl-1f6d4c535-268������b�������m�tmmmm}���
��]�����]������m���]
�����������]�����r���Z��[��fl-1f6d4c535-26c��fl-1f6d4c535-26d������b�������m�tmmmm}���
��]�����]�����g%%<inferior-struct>-set-fields��x�m���]��������gt-1f6d4c535-25c��fl-1f6d4c535-271��b���m�tmmmm}���
�]^��	�m�tm�mmm�m����
]�	��
�]�	��
]a	��]c	��
�xm��]���
�]�	��m��]
��
�]m	��]�	��]H���
���xm��]��� g!%inferior-struct-fields-procedure�!gm-1f6d4c535-278�"!`�#"�$fl-1f6d4c535-27a�%$�&bo#%�'"m&tmmmm}����(]s'��)r(�*)[�+�m&tm�mmm�m����,]~+��-r,�.Z*-[�/""�0fl-1f6d4c535-27d�1fl-1f6d4c535-27e�201�3b�/2�4"3m&tmmmm}���
�5]�4��6]�4��7x3m&�8]�7��968�:9�;]�+��<r;�=Z*<[�>fl-1f6d4c535-282�?fl-1f6d4c535-283�@>?�Ab�/@�B"Am&tmmmm}���
�C]�B��D]�B��EAm&�F]E��GDF�HG�I]�+��JrI�KZ*J[�Lfl-1f6d4c535-287�Mfl-1f6d4c535-288�NLM�Ob�/N�P"Om&tmmmm}���
�Q]�P��R]�P��SxOm&�T]�S��URT�VU�Wgt-1f6d4c535-277�XW�Yfl-1f6d4c535-28c�ZY�[bX#Z�\"[m&tmmmm}���
�]]^\��^�[m&tm�mmm�m����_]�^��`_�a]�^��b]a^��c]c^��dc_�ex[m&�f]�e��gbdf�h]�^��i[m&�j]i��kh_j�l]m^��m]�^��n]Ie��omn�pl_o�qagkp�r]`q�sxm&�t] s��ugm-1f6d4c535-293�vu`�wv�����xfl-1f6d4c535-298�yfl-1f6d4c535-299�zfl-1f6d4c535-29a�{fl-1f6d4c535-29b�|fl-1f6d4c535-29c�}xyz{|�~b�w}�v��fl-1f6d4c535-295�����bo����~m�tm�mmm���
��]�����x~m���]�����]H����]I��������gset-inferior-struct-fields!��g&%set-inferior-struct-fields!-procedure��gm-1f6d4c535-2a7���`��gt-1f6d4c535-2a5��gt-1f6d4c535-2a6����������fl-1f6d4c535-2ac��fl-1f6d4c535-2ad������b��������fl-1f6d4c535-2a9�����bo������m�tmmmm}���
��]^����gt-1e8ba8b5a-18c��gt-1e8ba8b5a-18d������gm-1e8ba8b5a-18e���`������fl-1e8ba8b5a-192��fl-1e8ba8b5a-193������b�����gsetter�������fl-1e8ba8b5a-186��fl-1e8ba8b5a-187��fl-1e8ba8b5a-188�������b�����N���fl-1e8ba8b5a-17d��fl-1e8ba8b5a-17e������b�y���gfield-specs������fl-1e8ba8b5a-179��fl-1e8ba8b5a-17a������b�y�����m�tm��m�m�����]�����gval��]���������]�����]a����]c��������x�m���]����������gstruct-set!��]������m���]����������]m����]�����]�������������������������xm���]�����gmake-parameter��g
vlist-null��g
vhash-assq��f#-1#��f#<struct ~a��g
parameter?��������g	scm-error��gwrong-type-arg��fparameterize��fNot a parameter: ~S��gvhash-consq��gfor-each��f #0#��f ~s��f ~x>��gobject-address��gprint-inferior-struct��g<inferior-fluid>��g%inferior-fluid-procedure��ginferior-fluid��gm-1f6d4c535-2de���`��gt-1f6d4c535-2dc��gt-1f6d4c535-2dd����������fl-1f6d4c535-2e3��fl-1f6d4c535-2e4������b��������fl-1f6d4c535-2e0�����bo������m�tmmmm}���
��]^����x�m���]s����]��������gm-1f6d4c535-2da���`����m�tm�mmm��m�����]����]����]
����������xm��]���s�g%inferior-fluid?-procedure�gm-1f6d4c535-2ed�	`�
gt-1f6d4c535-2ec�
�	�
fl-1f6d4c535-2f2�
�b�fl-1f6d4c535-2ef��bo�	mtmmmm}���
�]^���mtm%mmmm*m/m3m8m=mBmGmLX���]���]\��]^���]a��]c���xm�]��� �! �"!�#xm�$]#��%g %inferior-fluid-number-procedure�&gm-1f6d4c535-2f9�'&`�('�)fl-1f6d4c535-2fb�*)�+bo(*�,'m+tmmmm}����-]s,��.r-�/.[�0�m+tm�mmm�m����1]~0��2r1�3Z/2[�4''�5fl-1f6d4c535-2fe�6fl-1f6d4c535-2ff�756�8b�47�9'8m+tmmmm}���
�:]�9��;]�9��<x8m+�=]�<��>;=�?>�@]�0��Ar@�BZ/A[�Cfl-1f6d4c535-303�Dfl-1f6d4c535-304�ECD�Fb�4E�G'Fm+tmmmm}���
�H]�G��I]�G��JFm+�K]
J��LIK�ML�N]�0��OrN�PZ/O[�Qfl-1f6d4c535-308�Rfl-1f6d4c535-309�SQR�Tb�4S�U'Tm+tmmmm}���
�V]�U��W]�U��Xg%%<inferior-fluid>-set-fields�YxTm+�Z]XY��[WZ�\[�]gt-1f6d4c535-2f8�^]�_fl-1f6d4c535-30d�`_�ab^(`�b'am+tmmmm}���
�c]^b��d�am+tm�mmm�m����e]�d��fe�g]�d��h]ad��i]cd��jie�kxam+�l]�k��mhjl�n]�d��oam+�p]
o��qnep�r]md��s]�d��t]Fk��ust�vreu�wgmqv�xcfw�yxm+�z]%y��{ginferior-fluid-value�|g%inferior-fluid-value-procedure�}gm-1f6d4c535-314�~}`�~��fl-1f6d4c535-316�����bo���~m�tmmmm}�����]s����r����[���m�tm�mmm�m�����]~����r���Z��[��~~��fl-1f6d4c535-319��fl-1f6d4c535-31a������b�����~�m�tmmmm}���
��]�����]�����x�m���]������������]�����r���Z��[��fl-1f6d4c535-31e��fl-1f6d4c535-31f������b�����~�m�tmmmm}���
��]�����]������m���]�����������]�����r���Z��[��fl-1f6d4c535-323��fl-1f6d4c535-324������b�����~�m�tmmmm}���
��]�����]�����x�m���]X�����������gt-1f6d4c535-313�����fl-1f6d4c535-328�����b����~�m�tmmmm}���
��]^������m�tm�mmm�m�����]��������]�����]a����]c��������x�m���]����������]������m���]���������]m����]�����]{������������������������xm���]|����gm-1f6d4c535-32f���`���������fl-1f6d4c535-334��fl-1f6d4c535-335��fl-1f6d4c535-336��fl-1f6d4c535-337��fl-1f6d4c535-338���������b��������fl-1f6d4c535-331�����bo������m�tm�mmm���
��]�����x�m���]�����]F����]{��������f#<fluid ~a ~x>��gerror��*���*���fno matching pattern��g<inferior-object>��g%%inferior-object-procedure��g%inferior-object��gm-1f6d4c535-3a3���`��gt-1f6d4c535-3a0��gt-1f6d4c535-3a1��gt-1f6d4c535-3a2������������fl-1f6d4c535-3a8��fl-1f6d4c535-3a9��fl-1f6d4c535-3aa�������b��������fl-1f6d4c535-3a5�����bo������m�tmmmm}���
��]^���x�m��]q��gsub-kind�]��]���gm-1f6d4c535-39e�`��m�tm�mmm��m����	]���
]���]
��	
�
��xm��]���q�g%inferior-object?-procedure�gm-1f6d4c535-3b4�`�gt-1f6d4c535-3b3���fl-1f6d4c535-3b9��b�fl-1f6d4c535-3b6��bo�mtmmmm}���
�]^��mtm%mmmm*m/m3m8m=mBmGmLX��� ]��! �"]\��#]^��$# �%]a��&]c��'& �(xm�)]�(��*%')�+"$*�,!+�-xm�.]-��/g%inferior-object-kind-procedure�0gm-1f6d4c535-3c0�10`�21�3fl-1f6d4c535-3c2�43�5bo24�61m5tmmmm}����7]s6��8r7�98[�:m5tm�mmm�m����;]~:��<r;�=Z9<[�>11�?fl-1f6d4c535-3c5�@fl-1f6d4c535-3c6�A?@�Bb�>A�C1Bm5tmmmm}���
�D]�C��E]�C��FxBm5�G]�F��HEG�IH�J]�:��KrJ�LZ9K[�Mfl-1f6d4c535-3ca�Nfl-1f6d4c535-3cb�OMN�Pb�>O�Q1Pm5tmmmm}���
�R]�Q��S]�Q��TPm5�U]
T��VSU�WV�X]�:��YrX�ZZ9Y[�[fl-1f6d4c535-3cf�\fl-1f6d4c535-3d0�][\�^b�>]�_1^m5tmmmm}���
�`]�_��a]�_��bg%%<inferior-object>-set-fields�cx^m5�d]bc��ead�fe�ggt-1f6d4c535-3bf�hg�ifl-1f6d4c535-3d4�ji�kbh2j�l1km5tmmmm}���
�m]^l��nkm5tm�mmm�m����o]�n��po�q]�n��r]an��s]cn��tso�uxkm5�v]�u��wrtv�x]�n��ykm5�z]
y��{xoz�|]mn��}]�n��~]Bu��}~��|o��qw{���mp���xm5��]/����g#%inferior-object-sub-kind-procedure��gm-1f6d4c535-3db���`�����fl-1f6d4c535-3dd�����bo�����m�tmmmm}�����]s����r����[��m�tm�mmm�m�����]~����r���Z��[������fl-1f6d4c535-3e0��fl-1f6d4c535-3e1������b�������m�tmmmm}���
��]�����]�����x�m���]������������]�����r���Z��[��fl-1f6d4c535-3e5��fl-1f6d4c535-3e6������b�������m�tmmmm}���
��]�����]������m���]�����������]�����r���Z��[��fl-1f6d4c535-3ea��fl-1f6d4c535-3eb������b�������m�tmmmm}���
��]�����]�����x�m���]b�����������gt-1f6d4c535-3da�����fl-1f6d4c535-3ef�����b�������m�tmmmm}���
��]^�����m�tm�mmm�m�����]��������]�����]a����]c��������x�m���]����������]������m���]���������]m����]�����]C������������������������xm���]�����g"%inferior-object-address-procedure��gm-1f6d4c535-3f6���`�����fl-1f6d4c535-3f8�����bo�����m�tmmmm}�����]s����r����[��m�tm�mmm�m�����]~����r���Z��[������fl-1f6d4c535-3fb��fl-1f6d4c535-3fc������b�������m�tmmmm}���
��]�����]�����x�m���]������������]�����r���Z��[��fl-1f6d4c535-400��fl-1f6d4c535-401������b�������m�tmmmm}���
��]�����]������m��	]	���	�	�		�	]����	r	�	Z�	[�	fl-1f6d4c535-405�	fl-1f6d4c535-406�			�		b��	�	
�		m�tmmmm}���
�	]�	
��	]�	
��	
x		m��	]b	
��			�		�	gt-1f6d4c535-3f5�		�	fl-1f6d4c535-40a�		�	b	�	�	�	m�tmmmm}���
�	]^	��		m�tm�mmm�m����	]�	��		�	]�	��	]a	��	]c	��			�	x	m��	 ]�	��	!			 �	"]�	��	#	m��	$]		#��	%	"		$�	&]m	��	']�	��	(]D	��	)	'	(�	*	&		)�	+		!	%	*�	,			+�	-xm��	.]�	-��	/gm-1f6d4c535-411�	0	/`�	1	0�	2fl-1f6d4c535-416�	3fl-1f6d4c535-417�	4fl-1f6d4c535-418�	5fl-1f6d4c535-419�	6fl-1f6d4c535-41a�	7	2	3	4	5	6�	8b�	1	7�	9	0�	:fl-1f6d4c535-413�	;	:�	<bo	9	;�	=	8m	<tm�mmm���
�	>]�	=��	?x	8m	<�	@]�	?��	A]B	?��	B]C	?��	C]D	?��	D	A	B	C�	Ef#<~a ~:[~*~;~a ~]~x>�	Fgsmob�	Gg
inferior-smob�	Hg
inferior-port�	Ig%visited-cells�	Jgvisited�	Kg->�	Lgm-1f6d4c535-525�	M	L`�	N	M�	Ofl-1f6d4c535-527�	P	O�	Qbo	N	P�	Rxm	Q�	S]	K	R��	Tr	S�	U[	T[�	V	U挤	W[	V��	Xgparameterize�	Ygobject�	Z�	Y��	[	Mxxx�	\fl-1f6d4c535-52a�	]fl-1f6d4c535-52b�	^fl-1f6d4c535-52c�	_fl-1f6d4c535-52d�	`	\	]	^	_�	ab	Z	[	`�	bx	am	Q�	c]	X	b��	d]	I	b��	egvhash-consv�	f]	e	b��	g	d�	h	g�	igsymbol->string�	jg
string-length�	kgbytevector->uint-list�	lginvalid-struct�	mgaddress->inferior-struct�	ngand=>�	og
vhash-assv�	pgcdr�	qgcell->object�	rgstring->symbol�	sgvariable�	tg	substring�	ugbytevector->string�	vf
ISO-8859-1�	wgbitwise-ior�	xglittle�	yfUTF-32LE�	zgbig�	{fUTF-32BE�	|gmake-vector�	}gfold�	~gweak-vector�	g
dynamic-state�	�gprogram�	�gbignum�	�gdouble�	�g
hash-table�	�gobjcode�	�gvm�	�gvm-continuation�	�garray�	�g	bitvector�	�gbit-set?�	�g
integer->char�	�g	undefined�	�g
eof-object�	�gunbound�C5h��]4	
89K54N>"G4OiP5:RQh�]�C�gpeek
		gopen		g	type-name			gfilenamefsystem/base/types.scm�
	D
��			gnameg%memory-backend-procedure�CRR4U;VY\�hk]Ccg
t-1f6d4c535-3
		g
t-1f6d4c535-4		g
t-1f6d4c535-5						C��;�hX]L6Pga
		gfilenamefsystem/base/types.scm�		D
��		CZ�hH]L6@gfilenamefsystem/base/types.scm�		D
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�
	D
��		nC5;R���Q��4�Q>"G	�Ri�QRQh�]�$��CCxgobj
		gfilenamefsystem/base/types.scm�
	D
��		gnameg%memory-backend?-procedure�CR4U<VYjh6]C.gt-1f6d4c535-16
		
		
C��<�hX]L6Pga
		gfilenamefsystem/base/types.scm�		D
��		CZ�hH]L6@gfilenamefsystem/base/types.scm�		D
��		
Clh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�
	D
��		nC5<RQoph�]�&
�C6zgs
		gfilenamefsystem/base/types.scm�
	D
��		gnameg%memory-backend-peek-procedure�CqR4UpVY���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h6]C.gt-1f6d4c535-22
		
		
C��p�hX]L6Pga
		gfilenamefsystem/base/types.scm�		D
��		CZ�hH]L6@gfilenamefsystem/base/types.scm�		D
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�
	D
��	�C5pRQo�h�]�&�C6zgs
		gfilenamefsystem/base/types.scm�
	D
��		gnameg%memory-backend-open-procedure�C�R4U�VYh:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C!',h:]��C2gerr
		gs					CHh6]C.gt-1f6d4c535-3d
		
		
C����hX]L6Pga
		gfilenamefsystem/base/types.scm�		D
��		CZ�hH]L6@gfilenamefsystem/base/types.scm�		D
��		
CJh]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�
	D
��	�C5�RQoKh �]�&	�C6gs
		gfilenamefsystem/base/types.scm�
	D
��		gnameg#%memory-backend-type-name-procedure�CLR4UKVYZafh:]��C2gerr
		gs					Cioth:]��C2gerr
		gs					Cw}�h:]��C2gerr
		gs					C�h6]C.gt-1f6d4c535-58
		
		
C��K�hX]L6Pga
		gfilenamefsystem/base/types.scm�		D
��		CZ�hH]L6@gfilenamefsystem/base/types.scm�		D
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�
	D
��	�C5KR4U�VY������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/base/types.scm�
	D
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�RQi��:��h(�]4545
456�gaddress
		$gptr			$gbv			$gfilenamefsystem/base/types.scm�
	O	��		P	��			P	��		Q	��		P	��		R	"��	$	R	��		$gnamegdereference-word�C��������h@�]4M5454
>"GM�NC�gbv
		9gindex		9gcount			9gptr				9gmem			9gfilenamefsystem/base/types.scm�
	W	��		X	��			X	��		Y	��		X	��		Z	
��	4	[	 ��	6	[	
��			9	gnamegread-memory!�C��	hX)]HK$454564O54>"GC!gaddress
		Sgsize		Sgcurrent-address			Sgptr			)gbv		!	)gport		:	Sgfilenamefsystem/base/types.scm�
	T	��		^	��		_	��		_	
��		`	��	!	_	
��	)	a	��	*	b	��	.	b	5��	:	b	��	:	b	
��	=	e	��
		S	gnamegopen�C�=RQoph(�]
�&
�"	456�gbackend
		$gaddress		$gpeek			$gfilenamefsystem/base/types.scm�
	j
��		l	��		l	��	$	m	��		$	gnameg% dereference-word-procedure�C�R4U>VY�#hR]CJgt-1f6d4c535-c4
		gt-1f6d4c535-c5					C��>�hX]L6Pga
		gfilenamefsystem/base/types.scm�		j
��		CZ%hH]L6@gfilenamefsystem/base/types.scm�		j
��		
C'h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�
	j
��		nC5>R4U?VY(789;h W]��COgdummy
		gbackend		gaddress						C<GIOPQRh0i]Cagdummy
		.gbackend		.gaddress			.gsize			.		.	C��h@�]45$@45$@6zgx
		9gtmp		9gtmp		"	9gfilenamefsystem/base/types.scm�
	p	��		9g
documentationf�Return an input port to the SIZE bytes at ADDRESS, using BACKEND.  When
SIZE is omitted, return an unbounded port to the memory at ADDRESS.�g
macro-typegsyntax-rules�gpatternsgbackendgaddressgbackendgaddressgsizeC5?RS:��h �]	45
456�gport
		gbv		gfilenamefsystem/base/types.scm�
	~
��	�	��	�	��	�	��	�	��		gnamegget-word�g
documentationf2Read a word from PORT and return it as an integer.�CTRQoKh0�]�&		�"	45$6C�gbackend
		/gkind		/gnumber			/gproc			/gfilenamefsystem/base/types.scm�
�
��	�	��	�	��	%�	��	-�	��		/	gnameg% type-number->name-procedure�CUR4U@VY\�hq]Cigt-1f6d4c535-101
		gt-1f6d4c535-102		gt-1f6d4c535-103						C��@�hY]L6Qga
		gfilenamefsystem/base/types.scm�	�
��		CZ%hI]L6Agfilenamefsystem/base/types.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�
�
��		nC5@R4U�VY����������
h@�]����	C~gdummy
		@gport		@gname			@glen			@grest			@gbody			@		@	C����h(u]Cmgdummy
		"gport		"gname			"grest			"gbody			"		"	C�hQ]CIgdummy
		gport		gbody						C��
hP?]45$@45$@45$@	67gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsystem/base/types.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgportg
bytevectorgnameglengrestg...gbodygportgnamegrestg...gbodygportgbodyC5�R4U�VY��������hP�,3�C�gdummy
		Ogbits		Oga			Ogb			Ogn			Ogc			Og
consequent			Og	alternate			O		O	C�h@�]C�gdummy
		:gbits		:gx			:gn			:gc			:g
consequent			:g	alternate			:		:	Ch0�]C�gdummy
		+gbits		+gn			+gc			+g
consequent			+g	alternate			+		+	C,-/0235679hX�,3��	
C�gdummy
		Wgbits		Wga			Wg<<			Wgn			Wgc			Wg
consequent			Wg	alternate			W		W	C��hh�]!45$@45$@45$@45$	@
6�gx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsystem/base/types.scm�
�	��		gg
macro-typegsyntax-rules�gpatternsgbitsgag||gbg&gng=gcg
consequentg	alternategbitsgxg&gng=gcg
consequentg	alternategbitsg_g&gng=gcg
consequentg	alternategbitsgag<<gng||gcg
consequentg	alternateC5�R4U:VY=RSTh(�]C�gdummy
		"gport		"gtag			"gtag-pattern			"gthing			"gbody			"grest			"		"	CU_chP]CHgdummy
		gport		gtag						C��h@]45$@45$@6gx
		9gtmp		9gtmp		"	9gfilenamefsystem/base/types.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgportgtaggtag-patterngthingg...gbodygrestg...gportgtagC5:R4UdVYgxz{|}�hX]�CPgtmp-1f6d4c535-1be
		
gtmp-1f6d4c535-1bd		
		
	Ch8f]45C^gdummy
		2gport		2gpattern			2gbody			2		2	C��h(B]	45$@6:gx
		"gtmp		"gfilenamefsystem/base/types.scm�
�	��		"g
documentationffMatch a cell---i.e., a non-immediate value other than a pair.  The
cell's contents are read from PORT.�g
macro-typegsyntax-rules�gpatternsgportgpatterngbodyg...g...C5dR4U�VY����h |]���Ctgdummy
		gbits		gbit-pattern			gbody			grest						C��h?]C7gdummy
		gbits					C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsystem/base/types.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgbitsgbit-patterngbodyg...grestg...gbitsC5�R4U�VY����h T]��CLgdummy
		gbits		gclauses						C��h(,]	45$@6$gx
		"gtmp		"gfilenamefsystem/base/types.scm�
�	��		"g
documentationfbMatch BITS, an integer representation of an 'SCM' value, against
CLAUSES.  Each clause must have the form:

  (PATTERN BODY ...)

PATTERN is a bit pattern that may specify bitwise operations on BITS to
determine if it matches.  TEMPLATE specify the name of the variable to bind
the matching bits, possibly with bitwise operations to extract it from BITS.�g
macro-typegsyntax-rules�gpatternsgbitsgclausesg...C5�R	�R	�R
�R�i�R�i	��R	�i��R�i
��R�R	�R	�R	
�R	�R	�R	�R	�R	�R	%�R	'�R	-�R	/�R	5�R	7�R	G�R	M�R	O�R	U�R	W�R	}�R	�R�i��R�i��R�i��R�i��R�h~]�Cvgstring
		
gfilenamefsystem/base/types.scm�

��		
gnameg%stringbuf-procedure�C�R4U�VY�h7]C/gt-1f6d4c535-1e5
		
		
C����hY]L6Qga
		gfilenamefsystem/base/types.scm�	
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�

��		nC5�R������4��>"G	��i��R�h|]�$��CCtgobj
		gfilenamefsystem/base/types.scm�

��		gnameg%stringbuf?-procedure�C�R4U�VYh7]C/gt-1f6d4c535-1f2
		
		
C����hY]L6Qga
		gfilenamefsystem/base/types.scm�	
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�

��		nC5�R�oh�]�&
�C6zgs
		gfilenamefsystem/base/types.scm�

��		gnameg%stringbuf-contents-procedure�CR4UVY'.3h:]��C2gerr
		gs					C6<Ah:]��C2gerr
		gs					CDJPh:]��C2gerr
		gs					Clh7]C/gt-1f6d4c535-1fe
		
		
C���hY]L6Qga
		gfilenamefsystem/base/types.scm�	
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	
��		
Cnh]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�

��	�C5R4ULVY�~����h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/base/types.scm�

��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5LR4�i�i����o�hP�]4>"G4�&
�"	45>"G6�g	stringbuf
		Jgport		Jgfilenamefsystem/base/types.scm�
	��		��		%��		��		��		#��	:	��	F	%��	J	��
		J	C>"G�h�]�C�gname
		gfields		gfilenamefsystem/base/types.scm�

��			gnameg%inferior-struct-procedure�C�R4U�VY��hT]CLgt-1f6d4c535-240
		gt-1f6d4c535-241					C����hY]L6Qga
		gfilenamefsystem/base/types.scm�	
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�

��		nC5�R������4��>"G	��i��R�h�]�$��CCzgobj
		gfilenamefsystem/base/types.scm�

��		gnameg%inferior-struct?-procedure�C�R4UGVY�h7]C/gt-1f6d4c535-250
		
		
C��G�hY]L6Qga
		gfilenamefsystem/base/types.scm�	
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�

��		nC5GR�oHh�]�&
�C6|gs
		gfilenamefsystem/base/types.scm�

��		gnameg%inferior-struct-name-procedure�C�R4UHVY���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					Ch7]C/gt-1f6d4c535-25c
		
		
C��H�hY]L6Qga
		gfilenamefsystem/base/types.scm�	
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	
��		
Ch]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�

��	�C5HR�oIh�]�&�C6~gs
		gfilenamefsystem/base/types.scm�

��		gnameg!%inferior-struct-fields-procedure�C R4UIVY.5:h:]��C2gerr
		gs					C=CHh:]��C2gerr
		gs					CKQVh:]��C2gerr
		gs					Crh7]C/gt-1f6d4c535-277
		
		
C��I�hY]L6Qga
		gfilenamefsystem/base/types.scm�	
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	
��		
Cth]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�

��	�C5IR4U�VY������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/base/types.scm�

��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R�o�h �]�&�C6�gs
		gval		gfilenamefsystem/base/types.scm�

��			gnameg&%set-inferior-struct-fields!-procedure�C�R4U�VY��hT]CLgt-1f6d4c535-2a5
		gt-1f6d4c535-2a6					C����hY]L6Qga
		gfilenamefsystem/base/types.scm�	
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�

��		nC5�R4�i�i5�/���oH���������/�h �]L&L6L6�gfield
		gfilenamefsystem/base/types.scm�
/	��	
0	��	1	'��	1	��	2	+��	2	��		CI��h�9]44L55$64�&
�"	45>"G4L5$"4	
L>"GL�4L	�4
4L555Y4O�&�"	45>"GZ4561gstruct
	�gport	�gfilenamefsystem/base/types.scm�
'	��	(	
��	(	��	(	
��	(	��	)	��	)	
��	+	��	!+	��	$,	��	@+	��	I-	��	~.	���.	3���.	���-	���/	���3	���/	���4	���4	 ���4	��	�	CO�R4�i�i�i>"G�h�]�C�gnumber
		gvalue		gfilenamefsystem/base/types.scm�
9
��			gnameg%inferior-fluid-procedure�C�R4U�VY�hT]CLgt-1f6d4c535-2dc
		gt-1f6d4c535-2dd					C����hY]L6Qga
		gfilenamefsystem/base/types.scm�	9
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	9
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�
9
��		nC5�R�����4��>"G	��i��R�h�]�$��CCygobj
		gfilenamefsystem/base/types.scm�
9
��		gnameg%inferior-fluid?-procedure�CR4UEVY"h7]C/gt-1f6d4c535-2ec
		
		
C��E�hY]L6Qga
		gfilenamefsystem/base/types.scm�	9
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	9
��		
C$h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�
9
��		nC5ER�oFh�]�&
�C6}gs
		gfilenamefsystem/base/types.scm�
9
��		gnameg %inferior-fluid-number-procedure�C%R4UFVY3:?h:]��C2gerr
		gs					CBHMh:]��C2gerr
		gs					CPV\h:]��C2gerr
		gs					Cxh7]C/gt-1f6d4c535-2f8
		
		
C��F�hY]L6Qga
		gfilenamefsystem/base/types.scm�	9
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	9
��		
Czh]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�
9
��	�C5FR�o{h�]�&�C6|gs
		gfilenamefsystem/base/types.scm�
9
��		gnameg%inferior-fluid-value-procedure�C|R4U{VY���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h7]C/gt-1f6d4c535-313
		
		
C��{�hY]L6Qga
		gfilenamefsystem/base/types.scm�	9
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	9
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�
9
��	�C5{R4UXVY������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/base/types.scm�
9
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5XR4�i�i�/���)�hH�]
�$-�&
�456456456�gfluid
		Cgport		Cgw			)gfilenamefsystem/base/types.scm�
@	��	A	��	C	,��	!E	'��	)C	��	*A	��		C	C>"G�h�]�C�gkind
		gsub-kind		gaddress			gfilenamefsystem/base/types.scm�
J
��			gnameg%%inferior-object-procedure�C�R4U�VY\
hq]Cigt-1f6d4c535-3a0
		gt-1f6d4c535-3a1		gt-1f6d4c535-3a2						C����hY]L6Qga
		gfilenamefsystem/base/types.scm�	J
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	J
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�
J
��		nC5�R�����4��>"G	��i��R�h�]�$��CCzgobj
		gfilenamefsystem/base/types.scm�
J
��		gnameg%inferior-object?-procedure�CR4UAVY,h7]C/gt-1f6d4c535-3b3
		
		
C��A�hY]L6Qga
		gfilenamefsystem/base/types.scm�	J
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	J
��		
C.h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/base/types.scm�
J
��		nC5AR�oBh�]�&
�C6|gs
		gfilenamefsystem/base/types.scm�
J
��		gnameg%inferior-object-kind-procedure�C/R4UBVY=DIh:]��C2gerr
		gs					CLRWh:]��C2gerr
		gs					CZ`fh:]��C2gerr
		gs					C�h7]C/gt-1f6d4c535-3bf
		
		
C��B�hY]L6Qga
		gfilenamefsystem/base/types.scm�	J
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	J
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�
J
��	�C5BR�oCh�]�&�C6�gs
		gfilenamefsystem/base/types.scm�
J
��		gnameg#%inferior-object-sub-kind-procedure�C�R4UCVY���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h7]C/gt-1f6d4c535-3da
		
		
C��C�hY]L6Qga
		gfilenamefsystem/base/types.scm�	J
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	J
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�
J
��	�C5CR�oDh �]�&	�C6gs
		gfilenamefsystem/base/types.scm�
J
��		gnameg"%inferior-object-address-procedure�C�R4UDVY���h:]��C2gerr
		gs					C��	h:]��C2gerr
		gs					C			h:]��C2gerr
		gs					C	,h7]C/gt-1f6d4c535-3f5
		
		
C��D�hY]L6Qga
		gfilenamefsystem/base/types.scm�	J
��		CZ�hI]L6Agfilenamefsystem/base/types.scm�	J
��		
C	.h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/base/types.scm�
J
��	�C5DR4UbVY�	>	@	D��h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/base/types.scm�
J
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5bR�h(U)3�C]�CMgkind
			gaddress			gkind
		"gsub-kind		"gaddress			"gfilenamefsystem/base/types.scm�
R	��	V	��	R	��	!X	��						"	gnameginferior-object�g
documentationfSReturn an object representing an inferior object at ADDRESS, of type
KIND/SUB-KIND.�CVR4�i�i�/	E�)�hP�]�$9�&#
��	�6456456�gio
		Ogport		Ogw			5gw			5gw		#	5gfilenamefsystem/base/types.scm�
[	��	\	��	+^	,��	5^	��	6\	��		O	C>"GV	FQoKhX_]�&		�"	45$
45"$"6Wgbackend
		Qgtype-number		Qgaddress			Qgproc		!	:gt		:	Mgfilenamefsystem/base/types.scm�
b
��	e	��		f	��	.f	2��	2f	��	:f	��	Qe	��		Q	gnameg
inferior-smob�g
documentationfLReturn an object representing the SMOB at ADDRESS whose type is
TYPE-NUMBER.�C	GRV�QoKhX_]�&		�"	45$
45"$"6Wgbackend
		Qgtype-number		Qgaddress			Qgproc		!	:gt		:	Mgfilenamefsystem/base/types.scm�
j
��	m	��		n	��	.n	2��	2n	��	:n	��	Qm	��		Q	gnameg
inferior-port�g
documentationfLReturn an object representing the port at ADDRESS whose type is
TYPE-NUMBER.�C	HR4�i�i5	IR4U	JVY	W	c	d	f	hh h]�����C`gdummy
		gaddress		gobject			gbody						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/base/types.scm�
y	��		"g
macro-typegsyntax-rules�gpatternsgaddressg->gobjectgbodyg...C5	JR:QopJ	i	j�L�S�	I�����	e�Jhg]L6_gt-1f6d4c535-5af
		
gfilenamefsystem/base/types.scm�
�	��		
C	k��V	lh��]s
���&
�"	454545	���&
�"	454545�$745	4	5	�
��&
�"	4545
�
�$4	5"+�&�"	4
54
�54
�5
�
45$"4>"G�4	�44
555Y4O4
4555�&�"4>"GZCZF6�gaddress
	�gvtable-data-address	�gbackend		�glayout-address			�gpeek		%	1glayout-bits		1�glayout		<�gname-address		F�gpeek		b	ng	name-bits		n�gname		y�glayout		��glen	
��gaddress	��gpeek	��gslots	��gopen	�
gport	
�gfields	
�gresult	"�gt-1f6d4c535-5a8	&�gvalues	��gfilenamefsystem/base/types.scm�

��	�	��		�	��		�	��	�	��	1�	��	4�	��	<�	��	E�	��	F�	��	F�	��	K�	��	n�	��	q�	��	y�	��	~�	����	����	����	����	����	����	����	1����	����	����	2����	���	2���	��
�	��
�	���	.���	���	��"�	��"�	��&�	
��p�	��z�	���	6����	����	����	����	����	����	��/	�	gnamegaddress->inferior-struct�g
documentationf^Read the struct at ADDRESS using BACKEND.  Return an 'inferior-struct'
object representing it.�C	mR=	n	o	I	pQo�T�	m�	q�	r�)��V	s�	t�S:	u	v	w�	x	y	z	{��L.1�8	|�����	e	}h�]L��C|gelement
		
gindex		
gfilenamefsystem/base/types.scm�
�	��		�	��	�	��		
	C�Jhg]L6_gt-1f6d4c535-732
		
gfilenamefsystem/base/types.scm�
�	��		
C	k�	~���	�	H�	��	��O	��s�	����	��	��	��	��	��	GaXh��
-.,3#444555$C�&�"	45454	5	�
�$

�6	��$n4	54	>"G4	>"G4
5�$"�&
�6456456�$4	>"G6�$c4	54	5	4	5
4
5�$)�&
�		
�6456456��$Q4	5	4	5	�

�$"4�>"G4
5�C		45�$�4	5
4	
�5	
��
�$"4�>"G445

& "!
&""44
55
5

�C	�

#�$W4	54	5
�$4$%5"(�&�"	45
4
5


64&4'		5�5(�$�4)	�54	>"G4)	�5
4
�54*
54+5$"4,-./>"G�4	�404555Y412O
434O454555>"GZCZF	�6�$764&4'		5�5

8�$&4)	�54	>"G9�C	�:�$;64&4'		5�5<�$4)	�5=��6	�>�$?6���@�$A6B�$}4	>"G	��4CD5
�$4$%5"-�&�"	4544CD5544CD55
45�CE�$4	>"GF6G�$>4	>"G4	>"G4	>"GH6I�$4	5J6K�$L6M�$N6O�$P6Q�$R6S�$T64&4'		5�5U�$'4)	�54	>"GV6W6}
gaddress
	�gbackend	�gt		)�gopen		N	[gport		[�gtag		d�gtag		k�gtag	��gbuf	�gv	�gw	��gtag	�gtag	*�gbuf	<�gstart		E�glen	
N�gv	Y�gw	o~gtag	��glen		��gbuf	
��g	remainder	��gstring	��gtag		��glen	
�gbuf	,�g	remainder	,�gv	
]�gstring	
��gtag	
��glen	��gaddress	��gopen	
��gbv-port	
��gtag	�glen	$�glen	
A�gwords	O�gvector	X�gt-1f6d4c535-729	\�gtag	��gtag	
�gn	7gtag	<�gtag	`�g
flags+type	t�gtag	��gtag	��gtag	��gaddress	�Egopen	)gport	)Egwords	9Egtag	G�gtag	n�gtag	��gaddress	��gtag	��gtag	��gtag	��gtag	�gtag	)�gtag	M�g	smob-type	a@gfilenamefsystem/base/types.scm�
�
��	�	��	�	
��	�	!��	%�	
��	)�	��	)�	��	7�	��	[�	��	^�	��	�	%����	����	����	����	����	���	��$�	��(�	��*�	��Q�	��|�	&��~�	���	����	����	����	.����	����	����	���	���	��"�	 ��$�	��)�	 ��,�	��T�	��Y�	.��i�	9��o�	.��w�	6��|�	.����	����	����	����	����	����	
���	��9�	��A�	��D�	��M�	1��O�	��O�	��R�	��X�	��\�	
����	����	����	����	7����	����	����	����	����	����	����	��6�	��<�	��K�	��O�	��P�	����	"����	����	����	����	����	����	����	����	����	&����	����	����	8����	���	8��&�	��)�	��,�	��1�	2��9�	��9�	��?�	1��D�	
��G�	��h�	��l�	��n�	����	����	����	����	����	����	����	����	����	����	����	���	���	���	��#�	��'�	��)�	��8�	��<�	��=�	���	����	��|	�gnamegcell->object�g
documentationfWReturn an object representing the object at ADDRESS, reading from memory
using BACKEND.�C	qR=.1�8�Qop	�	n	o	I	p:�����	eJ	q�	��V	�	�	�� h|-.,3
#44		5�5�$	�6	��$��&
�"	4	5454

5�$�444
555$C��
45$"4>"G�4	�44
555Y45�4�&
�"	4	5	4	5	5�ZCZF644		5�5�$4	�5644		5�5�$q4	�5
�$C�$C	�$C	�$C	�$C		�$6	
�$6	�$6CCtgbits
	�gbackend	�gtag		'�gtag		?�gpeek		d	pgtype		pBgpair?		{Bgt	�:gcdrloc	�:gpair	�:gt-1f6d4c535-80f	�:gpeek		#/gtag	S�gchar	gogtag	��gflag	��gfilenamefsystem/base/types.scm�
�
��	�	��	M�	��	p�	��	s�	��	{�	��	{�	����	����	����	����	*����	����	����	����	����	����	����	����	"���	��	��	*��3	��4	��B	��C�	��o	��p�	���	���	
���	���	���	
���	���	
���	���	���	
����	��(	�gnamegscm->object�g
documentationfLReturn the Scheme object corresponding to BITS, the bits of an 'SCM'
object.�CJRC�gm
		,grtd
��grtd
A�Bgrtd
P�Qg%printed-struct
c�f�grtd
j�j�grtd
~�gfilenamefsystem/base/types.scm�		
��	-	B	��	3	B	
��	5	B	��	8	@
��	D
���	h	��	K
��		j
��$	~
��%P�
��=��
��=��
��=��
��=��
��=��	��=��
��=��	��=��
��=��	��=��
��=��
��=��
��=��
��=��
��=��
��>�
��>�
��>�
��>�
��>�
��> �
��>&
��>,
��>2
��>8
��>>
��>D
��>J
��>P
��>V
��>\	
��>b

��>j	$��>k	��>o
��>w
	"��>x
	��>|
��>�	%��>�	��>�
��>�	&��>�	��>�
��?:
��L#
��N"
��c�&	��c�&	��f�%
��f�6
��g�9
��y�?
��{�J
����Q
����Z
����b
����j
����v	����r
����
����
�����
��K	��
C6system/foreign.go000064400000023253150536206120010055 0ustar00GOOF----LE-8-2.0�&]�4h�]gguile�	�	gdefine-module*�	�	�	gsystem�	gforeign�	�		gfilenameS�	
fsystem/foreign.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-9�	�	�	ggnu�	�	�	�	gexportsS�	gvoid�	gfloat�	gdouble�	gshort�	 gunsigned-short�	!gint�	"gunsigned-int�	#glong�	$g
unsigned-long�	%gsize_t�	&gssize_t�	'g	ptrdiff_t�	(gint8�	)guint8�	*guint16�	+gint16�	,guint32�	-gint32�	.guint64�	/gint64�	0gsizeof�	1galignof�	2g
%null-pointer�	3g
null-pointer?�	4gpointer?�	5gmake-pointer�	6gpointer->scm�	7gscm->pointer�	8gpointer-address�	9gpointer->bytevector�	:gbytevector->pointer�	;gset-pointer-finalizer!�	<gdereference-pointer�	=gstring->pointer�	>gpointer->string�	?gpointer->procedure�	@g
make-c-struct�	Agparse-c-struct�	Bgdefine-wrapped-pointer-type�	C !"#$%&'()*+,-./0123456789:;<=>?@AB'�	Dgset-current-module�	ED�	FD�	Ggload-extension�	Hg
string-append�	If	libguile-�	Jgeffective-version�	Kfscm_init_foreign�	Lgdefined?�	Mgprocedure->pointer�	Ngcall-with-deferred-observers�	ON�	PN�	Qgmodule-export!�	RQ�	SQ�	Tgcurrent-module�	UT�	VT�	WM�	Xg*�	Ygerror�	Zfwhat machine is this?�	[gbytevector-pointer-ref�	\gbytevector-pointer-set!�	]g"bytevector-ieee-single-native-set!�	^]�	_]�	`g"bytevector-ieee-double-native-set!�	a`�	b`�	cgbytevector-s8-set!�	dc�	ec�	fgbytevector-u8-set!�	gf�	hf�	igbytevector-s16-native-set!�	ji�	ki�	lgbytevector-u16-native-set!�	ml�	nl�	ogbytevector-s32-native-set!�	po�	qo�	rgbytevector-u32-native-set!�	sr�	tr�	ugbytevector-s64-native-set!�	vu�	wu�	xgbytevector-u64-native-set!�	yx�	zx�	{g	*writers*�	|g!bytevector-ieee-single-native-ref�	}|�	~|�	g!bytevector-ieee-double-native-ref������gbytevector-s8-ref��������gbytevector-u8-ref��������gbytevector-s16-native-ref��������gbytevector-u16-native-ref��������gbytevector-s32-native-ref��������gbytevector-u32-native-ref��������gbytevector-s64-native-ref��������gbytevector-u64-native-ref��������g	*readers*��galign��gwrite-c-struct��gassv-ref��ftoo few values��ftoo many values��g
read-c-struct��greverse��gmake-bytevector��gfold��gmake-syntax-transformer��������gmacro��g$sc-dispatch��������g_��gany����������g
datum->syntax��ggensym��fwrap��g
syntax-object��gbegin��gtop�����gribcage�����g%wrap��������fl-40afcf54ff-e4�����������g	type-name��gpred��gwrap��gunwrap��gprint����������������fl-40afcf54ff-d8��fl-40afcf54ff-d9��fl-40afcf54ff-da��fl-40afcf54ff-db��fl-40afcf54ff-dc���������������gstx�����fl-40afcf54ff-d5�������������������ghygiene�����������gdefine-record-type��������gpointer�����������gdefine��������glet��������gptr->obj��������gmake-weak-value-hash-table�������������������������glambda��������gptr�����������gor��������ghash-ref�������������go��������g	hash-set!������������������gset-record-type-printer!��������gsyntax-violation��������f-source expression failed to match any pattern�C5h0�]4	
C54F>"G4Gi4HiI4Ji55K>"G8h�]45
�C�gpointer
		gfilenamefsystem/foreign.scm�
	B
��		D	��		D	��		gnameg
null-pointer?�g
documentationf+Return true if POINTER is the null pointer.�C3R4LiM5$�4PSVWhE]456=gfilenamefsystem/foreign.scm�
	G	��		
C>"G"40iX5	�$�5hz]�6rgbv
		goffset		gfilenamefsystem/foreign.scm�
	P		��			Q	��		Q	��			C"�	�$�5hz]�6rgbv
		goffset		gfilenamefsystem/foreign.scm�
	R		��			S	��		S	��			C"	4YiZ5[R40iX5	�$�8h�]45�C�gbv
		goffset		gptr			gfilenamefsystem/foreign.scm�
	X		��		Y	1��		Y	��			C"�	�$�8h�]45�C�gbv
		goffset		gptr			gfilenamefsystem/foreign.scm�
	Z		��		[	1��		[	��			C"	4YiZ5\Ri_�ib�(ie�)ih�+ik�*in�-iq�,it�/iw�.iz�X\i�{Ri~�i��(i��)i��+i��*i��-i��,i��/i��.i��X[i��Rh�]����C�goff
		g	alignment		gfilenamefsystem/foreign.scm�
	y
��		z	��		z	��			z	��	
	z	��			gnamegalign�C�R�1��{0Y��
h�>],"��$��$r�4455�$4��>"G"445�>"G45���"���6(C	6"��X6gbv
	�goffset	�gtypes		�gvals		�goffset		�gtypes		�gvals		�gtype		�goffset		'�	gfilenamefsystem/foreign.scm�
	|
��		}	��				��	
	~	��	�	��		~	��	�	��	�	��	�	��	�	#��	'�	��	'�	��	,�	��	0�	��	1�	��	:�	&��	=�	2��	B�	��	O�	��	P�	
��	_�	1��	d�	��	o�	��	v�	��	y�	%��	|�	1����	����	
����	����	����	
����	����	
���	}	��#	�	gnamegwrite-c-struct�C�R�10����hx�]+"c�$V�445545���$4�5"4455�"���6"����gbv
		xgoffset		xgtypes			xgoffset			igtypes			igvals			igtype			cgoffset		 	cgfilenamefsystem/foreign.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	�	��	�	#��	 �	��	 �	��	%�	��	,�	��	/�	%��	2�	��	6�	��	7�	��	@�	/��	B�	��	G�	��	H�	��	V�	��	Y�	��	c�	��	i�	��	i�	��	n�	/��	x�	��		x	gnameg
read-c-struct�C�R�0�:h0�]
445
54
>"G6�gtypes
		.gvals		.gbv			.gfilenamefsystem/foreign.scm�
�
��	�	��	�	��	�	��	�	��	�	��	.�	��		.	gnameg
make-c-struct�C@R�0�1h �]454455�C�gtype
		gtotal		gfilenamefsystem/foreign.scm�
�	��	�	��	
�	��	�	&��	�	��	�	��			C�9h �]
4
545
6�gforeign
		gtypes		gsize			gfilenamefsystem/foreign.scm�
�
��	�	��	�	��	�	��	�	��			gnamegparse-c-struct�CAR4�B��������������������hh�]
4455�	

	���C�g	type-name
		egpred		egwrap			egunwrap			egprint			egtmp			egfilenamefsystem/foreign.scm�	�	��	�	2��	�	:��	�	2��	�	��	�	��		e	C��h(�]	45$@6�gstx
		"gtmp		"gfilenamefsystem/foreign.scm�
�	��		"g
documentationfSDefine helper procedures to wrap pointer objects into Scheme
objects with a disjoint type.  Specifically, this macro defines PRED, a
predicate for the new Scheme type, WRAP, a procedure that takes a
pointer object and returns an object that satisfies PRED, and UNWRAP
which does the reverse.  PRINT must name a user-defined object printer.�C5BRC�gm
		,gkey
�2gkey
>�gfilenamefsystem/foreign.scm�		
��	-	:	��	2	:	��	8	:	!��	9	:	-��	A	:	��	C	;	��	H	:	��8	B
��9	F	��?	F	��A	F	��E	F
��F	G	���	O	���	O	���	O	���	O	��'	T	
��-	T	��/	T	
��5	N
��6	W	��<	W	��>	W	��>	W	���	\	
���	\	���	\	
���	V
���	_	��	^
��	l	��d	k
��"	y
��	9	|
����
����
����
��(	0
C6system/vm/trace.go000064400000017500150536206120010142 0ustar00GOOF----LE-8-2.0(]h4h�]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	gtrace�		�	
gfilenameS�	fsystem/vm/trace.scm�	gimportsS�	
gbase�	gsyntax�	
�	�	�	�	gframe�	�	�	gprogram�	�	�	gobjcode�	�	�	gtraps�	�	�	grnrs�	 gbytevectors�	! �	"!�	#ginstruction�	$#�	%$�	&gice-9�	'gformat�	(&'�	)(�	*"%)	�	+gexportsS�	,gtrace-calls-in-procedure�	-gtrace-calls-to-procedure�	.gtrace-instructions-in-procedure�	/gcall-with-trace�	0,-./�	1gset-current-module�	21�	31�	4g*objcode-header-len*�	5g
string-append�	6g
string-length�	7f�	8gbuild-prefix�	9f|  �	:f~d> �	;gcurrent-error-port�	<f~a~v:@y
�	=gframe-call-representation�	>gprint-application�	?gframe-num-locals�	@gframe-local-ref�	Af~d< �	Bf~ano values
�	Cf~a~d values:~{ ~a~}
�	Dgmap�	Ef~v:@y�	Fgframe-return-values�	Ggprint-return�	HgwidthS�	IH��	JgvmS�	KJ	��	LgprefixS�	ML	��	Ng
max-indentS�	ON	��	PIKMO�	Qgthe-vm�	Rftrace: �	Sgtrap-calls-to-procedure�	Tgtrap-calls-in-dynamic-extent�	UN	��	VIKU�	Wg#trap-instructions-in-dynamic-extent�	Xgframe-instruction-pointer�	Ygprogram-objcode�	Zgframe-procedure�	[gobjcode->bytecode�	\f~8d: ~a
�	]gopcode->instruction�	^gcalls?S�	_^��	`g
instructions?S�	a`	��	bH	��	cJ	��	dN	��	e_abcd�	fgset-vm-trace-level!�	ggvm-trace-level�C5h@�]4	
*+0543>"G	4R56'7h`x]"M�$64545��$45�"���456
"���pgprefix
		^gdepth		^ginfix			^gnumeric-format			^g
max-indent			^gindent			Sgn			Sgfilenamefsystem/vm/trace.scm�
	&
��		'	��		)	��		(	��		*	��		+	��		+	#��	&	+		��	)	+	��	-	(	��	.	,	
��	9	,	'��	A	,	��	H	.	#��	S	.	��	S	'	��	U	'	��	^	'	��		^	gnamegbuild-prefix�C8R89:';<=h0%]
4545456gframe
		)gdepth		)gwidth			)gprefix			)g
max-indent			)gprefix			)gfilenamefsystem/vm/trace.scm�
	0
��		1	��		1	+��	
	1	1��		1	��		1	��		2	��		2	!��	!	5	��	)	2	��		)	gnamegprint-application�C>R?@89A';B<CD'Ehh]L6`gval
		
gfilenamefsystem/vm/trace.scm�
	H	��		I	!��	
	I	��		
CFh��]454�545
�$
456�$45	4	�5645
4O4
556�gframe
	�gdepth	�gwidth		�gprefix		�g
max-indent		�glen			�gnvalues		�gprefix		&�gfilenamefsystem/vm/trace.scm�
	7
��		8	��			8	��		9	��		9	)��		9	��		8	��		:	��	 	:	,��	"	:	2��	&	:	��	&	8	��	0	;	��	3	=	��	9	=	$��	=	=	��	E	;	��	H	?	��	N	?	$��	S	B	��	\	B	&��	^	B	��	`	?	��	c	F	��	i	F	$��	n	H	��	x	J	���	H	���	F	��	�	gnamegprint-return�CGRPQRS>h�]LLL6�gframe
		gdepth		gfilenamefsystem/vm/trace.scm�
	O	��		P	��			gnameg
apply-handler�CGh�]LLL6�gframe
		gdepth		gfilenamefsystem/vm/trace.scm�
	Q	��		R	��			gnamegreturn-handler�CJhh'-/03#	P#45##	(�OO6gproc
		agwidth		agvm			agprefix			ag
max-indent			agfilenamefsystem/vm/trace.scm�
	L
��	$	L	=��	2	M	+��	?	N	/��	a	S	��		a
gwidthS�gvmS	�gprefixS	�g
max-indentS	�gnamegtrace-calls-to-procedure�C-RPQRT>h�]LLL6�gframe
		gdepth		gfilenamefsystem/vm/trace.scm�
	Y	��		Z	��			gnameg
apply-handler�CGh�]LLL6�gframe
		gdepth		gfilenamefsystem/vm/trace.scm�
	[	��		\	��			gnamegreturn-handler�CJhh'-/03#	P#45##	(�OO6gproc
		agwidth		agvm			agprefix			ag
max-indent			agfilenamefsystem/vm/trace.scm�
	V
��	$	V	=��	2	W	+��	?	X	/��	a	]	��		a
gwidthS�gvmS	�gprefixS	�g
max-indentS	�gnamegtrace-calls-in-procedure�C,RVQWXYZ[4'\]	h8]45445545��456	gframe
		8gip			8gobjcode			8gopcode		&	8gfilenamefsystem/vm/trace.scm�
	b	��		c	��			c	��		d	��		d	%��		d	��		c	��		e	&��	%	f	&��	&	e	��	&	c	��	-	g	��	0	g	 ��	8	g	��		8gnameg
trace-next�CJhH-/03#	P#45#	(�6�gproc
		Cgwidth		Cgvm			Cg
max-indent			Cgfilenamefsystem/vm/trace.scm�
	`
��	$	`	D��	5	a	6��	C	i	��		C
gwidthS�gvmS	�g
max-indentS	�gnamegtrace-instructions-in-procedure�C.ReQ,JHN.fghP�]L$4LLLL5N"L$4LLLL5N"L4L5�6�gfilenamefsystem/vm/trace.scm�
	t	��		u	��			w	��		v	��	'	y	��	(	{	��	<	z	��	E	}	$��	L	}	 ��	N	}	��		N
CfghX�]4L4L5�>"GM$4M>"G"M$4M>"G"NNC�gfilenamefsystem/vm/trace.scm�
		��	�	��	�	$��	�	 ��	�	��	"�	��	#�	��	<�	��	=�	��	S�	��	V�	��		X
C,JHN.fghP�]L$4LLLL5N"L$4LLLL5N"L4L5�6�gfilenamefsystem/vm/trace.scm�
	t	��		u	��			w	��		v	��	'	y	��	(	{	��	<	z	��	E	}	$��	L	}	 ��	N	}	��		N
CfghX�]4L4L5�>"GM$4M>"G"M$4M>"G"NNC�gfilenamefsystem/vm/trace.scm�
		��	�	��	�	$��	�	 ��	�	��	"�	��	#�	��	<�	��	=�	��	S�	��	V�	��		X
CfghX�]4L4L5�>"GM$4M>"G"M$4M>"G"NNC�gfilenamefsystem/vm/trace.scm�
		��	�	��	�	$��	�	 ��	�	��	"�	��	#�	��	<�	��	=�	��	S�	��	V�	��		X
Ch��-/03###	P#45#	(�HHOO4O>"GV4>X4O>"GCX4O>"GF~gthunk
	�gcalls?	�g
instructions?		�gwidth		�gvm		�g
max-indent		�g	call-trap		K�g	inst-trap		K�gfilenamefsystem/vm/trace.scm�
	o
��	6	p	)��	G	p	?��	K	q	��	p	s	��	�
gcalls?S�g
instructions?S	�gwidthS	�gvmS	�g
max-indentS	�gnamegcall-with-trace�C/RC�gm
		,gfilenamefsystem/vm/trace.scm�		
��	1	$
��#	&
���	0
���	7
��	�	L
���	V
���	`
��9	o
��
	;
C6system/vm/inspect.go000064400000023373150536206120010516 0ustar00GOOF----LE-8-2.0�&]t4h�]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	ginspect�		�	
gfilenameS�	fsystem/vm/inspect.scm�	gimportsS�	
gbase�	gpmatch�	
�	�	gsyntax�	
�	�	�	�	gframe�	�	�	glanguage�	gassembly�	gdisassemble�	�	gselectS�	g%disassemble�	��	 �	! �	"gice-9�	#grdelim�	$"#�	%$�	&gpretty-print�	'"&�	('�	)gformat�	*")�	+*�	,gprogram�	-,�	.-�	/!%(+.	�	0gexportsS�	1�	2gset-current-module�	32�	42�	5gmake-hash-table�	6g
hash-for-each�	7g
hashq-set!�	8g	hashq-ref�	9g
reverse-hashq�	:gcatch�	;gwrong-number-of-args�	<gkeyword-argument-error�	=gcatch-bad-arguments�	>geof-object?�	?gchar=?�	@g	read-char�	Agrepl-reader�	Bgchar-whitespace?�	Cgunread-char�	Dgread�	Egreverse�	Fg	read-args�	Ggmake-module�	Hgthrow�	Igquit�	Jgset-procedure-property!�	Kgname�	Lgmodule-define!�	Mgmodule-add!�	Ngq�	Ogmodule-local-variable�	Pgcontinue�	Qgcont�	Rgc�	Sgprint�	Tgp�	Ugwrite�	Vgw�	Wgdisplay�	Xgd�	YfError disassembling object: ~a
�	Zgx�	[gmodule-obarray�	\gprocedure-name�	]f~a~{ ~:@(~a~)~}~?~%~a~&~%�	^gprogram-lambda-list�	_f"~#[~:;~40t(aliases: ~@{~a~^, ~})~]�	`gdelq�	agprocedure-documentation�	bfInvalid command ~s.~%�	cf#Try `help' for a list of commands~%�	dgsort�	eghash-map->list�	fgstring<?�	ggsymbol->string�	hfAvailable commands:~%~%�	igfor-each�	jghelp�	kgh�	lg?�	mgapply�	ngcurrent-error-port�	of)Invalid arguments to ~a. Try `help ~a'.~%�	pgnewline�	qf$~&Unknown command: ~a. Try `help'.~%�	rgsave-module-excursion�	sf~20@y inspect> �C5hy]4	
/01544>"G5678h�]L4L5�6�gk
		gv		gfilenamefsystem/vm/inspect.scm�
	%	��		&	!��		&	2��		&	!��		&	��		&	��			Ch(�]	454O>"GC�gh
		%gret		%gfilenamefsystem/vm/inspect.scm�
	"
��		#	
��		#	��	
	$	��		%gnameg
reverse-hashq�C9R:;:<hs-13L6kgk
			
gargs			
gfilenamefsystem/vm/inspect.scm�
	/	��	
	0	
��			

ChX]LLO6Pgfilenamefsystem/vm/inspect.scm�
	,	��		-	
��		-	��		
Chs-13L6kgk
			
gargs			
gfilenamefsystem/vm/inspect.scm�
	1	��	
	2	��			

Ch�]OO6�gthunk
		gbad-args-thunk		gfilenamefsystem/vm/inspect.scm�
	*
��		+		��		+	��			gnamegcatch-bad-arguments�C=R>?@ABCDE	h@�]!"�45$C4
5$45"���45$45"���4>"G4545""�45$64
5$645$45"���4>"G45�45"��v45"����gprompt
	@gchr	�greader		&	4greader		G	Ugreader		o	}gtok		}�greader	��gout�*gchr	�*greader	��greader	�gtok	*greader	"greader,:gfilenamefsystem/vm/inspect.scm�
	4
��		9	��		;	��		:	��		;	��		<	��	$	:	��	&	8	��	)	6	��	:	<	��	;	=	��	E	:	��	G	8	��	J	6	��	[	=	��	\	?	��	o	@	��	r	6	��	}	@	���	A	���	8	���	6	���	A	���	B	���	D	���	C	���	D	���	E	���	C	���	E	���	F	���	C	���	8	���	6	���	F	���	H	���	I	��	6	��	I	��	J	��	8	��	6	��*	J	��,	8	��/	6	��@	K	��/	@gnameg	read-args�CFRGHIh�]6�gfilenamefsystem/vm/inspect.scm�
	a	��		c	
��		c	��		
gnamegc�g
documentationfQuit the inspector.�CJKILMNOPQR&h�]L6�gfilenamefsystem/vm/inspect.scm�
	e	��		g	��		
gnamegc�g
documentationf.Print the current object using `pretty-print'.�CSTh�]ML6�gfilenamefsystem/vm/inspect.scm�
	i	��		k	��		
gnamegc�g
documentationf'Print the current object using `write'.�CUVh�]ML6�gfilenamefsystem/vm/inspect.scm�
	m	��		o	��		
gnamegc�g
documentationf)Print the current object using `display'.�CWX:hP]L6Hgfilenamefsystem/vm/inspect.scm�
	t	��		u	
��		
C)Yhm-136egargs
			gfilenamefsystem/vm/inspect.scm�
	v	��		w	��		w	
��			


Ch�]LO6�gfilenamefsystem/vm/inspect.scm�
	q	��		s	��		
gnamegc�g
documentationfGDisassemble the current object, which should be objcode or a procedure.�CZ9[O\)]^_`8a
hH ]4L5454544L554	56gcmd
		Dgv		Dgp			Dgcanonical-name			Dgfilenamefsystem/vm/inspect.scm�
	|	��		}	��		}	
��		~	��		}	
��			!��		}	
��	 �	��	#�	#��	+�	��	,�	��	1�	)��	;�	��	<�	��	D�	��		Dgnameghelp-cmd�C)bcO\]^_`8ade\hz]6rgk
			gv			gfilenamefsystem/vm/inspect.scm�
�	��	�	+��		�	��				Cfgh�]45456{gx
		gy		gfilenamefsystem/vm/inspect.scm�
�	��	�	$��	�	$��	�	��			Chih�i-.,3#44L55OLQ$~"4>"G6�$S4L5$B4L545	4
544
55456"���"���44554>"G6agcmd
	�grhash	!�ghelp-cmd		,�gv		v�gp		{�gcanonical-name	��gnames	��gfilenamefsystem/vm/inspect.scm�
	y	��		{	��		{	"��	!	{	��	!	{	��	9�	��	>�	��	C�	��	J�	��	W�	��	Y�	��	Y�	
��	\�	��	`�	
��	a�	��	m�	��	n	}	��	v	}	
��	{	~	��	{	}	
��	~		!���	}	
����	����	#����	����	����	)����	����	����	����	����	����	����	
����	����	����	����	��'	�
gnamegc�g
documentationfShow this help message.�Cjkl:mO=h[]LL@Sgfilenamefsystem/vm/inspect.scm�
�	��	�	��		�	��			
C)no\h v]454L54L56ngfilenamefsystem/vm/inspect.scm�
�	��	�	��	�	��	�	��	�	0��	�	��		
C>pHI)nqh�2-13�$
4L5"$OO645$4>"G64	4
5>"GC*gcmd
			{gargs			{gt			{gproc		)	?gfilenamefsystem/vm/inspect.scm�
�	��	�	
��	�	��	�	
��	�	��	)�	��	)�	
��	?�	��	@�	��	J�	��	K�	��	^�	��	`�	��	a�	��	d�	��	j�	��	q�	��			{
gnameghandle�Cr2F)shk]L6cgfilenamefsystem/vm/inspect.scm�
	^	��		_	��		_	��		
gnamegprompt�Ch []4L>"GLO6Sgfilenamefsystem/vm/inspect.scm�
�	��	�	��	�	��		
Ch8]")4LO4LLO5>"G"���"���wgfilenamefsystem/vm/inspect.scm�
�	��	�	��	�	
��	�	��	#�	
��	/�	
��	/�	��		3
Chu-13Emgk
			
gargs			
gfilenamefsystem/vm/inspect.scm�
�	��	
�	��			

C h��]A45HHHHHH4>"G4>"G44	5>"G4
4	5>"G44	5>"G44	5>"GK
OQ4>"G4>"G44	5>"GKOQ4>"G4>"G44	5>"GKOQ4>"G4>"G44	5>"GKOQ4>"G4>"G44	5>"GKOQ4>"G4>"G44	5>"G44	5>"GKO6�gx
	�gcommands	�gquit		�gprint		�gwrite		�gdisplay		�gdisassemble		�ghelp		�gc		�gc	�!gc	,�gc	��gc	�>gc	H�gfilenamefsystem/vm/inspect.scm�
	R
��		]	��		]	��		a	���	e	��,	i	���	m	���	q	��H	y	����	����	��	�gnameginspect�CRCqgm
		,gfilenamefsystem/vm/inspect.scm�		
���	"
��:	*
���	4
���	R
��	�
C6system/vm/instruction.go000064400000001515150536206120011424 0ustar00GOOF----LE-8-2.05]4h)]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	ginstruction�		�	
gfilenameS�	fsystem/vm/instruction.scm�	gexportsS�	
ginstruction-list�	ginstruction?�	ginstruction-length�	ginstruction-pops�	ginstruction-pushes�	ginstruction->opcode�	gopcode->instruction�	
�	gset-current-module�	�	�	gload-extension�	g
string-append�	f	libguile-�	geffective-version�	fscm_init_instructions�C5h@�]4	
54>"Gi4i4i556�gm
		(gfilenamefsystem/vm/instruction.scm�		
��	-		��	3		��	4		+��	<		��	>		��	@	
��		@
C6system/vm/program.go000064400000036773150536206120010530 0ustar00GOOF----LE-8-2.0�=]�4hI
]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	gprogram�		�	
gfilenameS�	fsystem/vm/program.scm�	gimportsS�	
gbase�	gpmatch�	
�	�	ginstruction�	�	�	gobjcode�	�	�	grnrs�	gbytevectors�	�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-26�	 �	! �	"!�	#gexportsS�	$gmake-program�	%gmake-binding�	&gbinding:name�	'gbinding:boxed?�	(g
binding:index�	)g
binding:start�	*gbinding:end�	+gsource:addr�	,gsource:line�	-g
source:column�	.gsource:file�	/gsource:line-for-user�	0gprogram-sources�	1gprogram-sources-pre-retire�	2gprogram-source�	3gprogram-bindings�	4gprogram-bindings-by-index�	5gprogram-bindings-for-ip�	6gprogram-arities�	7g
program-arity�	8garity:start�	9g	arity:end�	:g
arity:nreq�	;g
arity:nopt�	<garity:rest?�	=garity:kw�	>garity:allow-other-keys?�	?gprogram-arguments-alist�	@gprogram-lambda-list�	Agprogram-meta�	Bgprogram-objcode�	Cgprogram?�	Dgprogram-objects�	Egprogram-module�	Fgprogram-base�	Ggprogram-free-variables�	Hgprogram-num-free-variables�	Igprogram-free-variable-ref�	Jgprogram-free-variable-set!�	K$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJ'�	Lgset-current-module�	ML�	NL�	Ogload-extension�	Pg
string-append�	Qf	libguile-�	Rgeffective-version�	Sfscm_init_programs�	Tglist-ref�	Ug*bytecode-header-len*�	Vgopcode->instruction�	Wgload-program�	Xginstruction-length�	Ygbytecode-instruction-length�	Zgobjcode->bytecode�	[greverse�	\gerror�	]f
unexpected�	^gmap�	_gcdr�	`gsort!�	agassv-ref�	bgappend!�	cgcollapse-locals�	df	bad arity�	egrequired�	fgoptional�	ggkeyword�	hgallow-other-keys?�	igrest�	jgextents�	kgarglist->arguments-alist�	lgstring->symbol�	mf_�	nglength�	ogarity->arguments-alist�	pgand=>�	qgarguments-alist->lambda-list�	rgassq-ref�	sgkeyword->symbol�	tgcar�	ugappend�	vu�	wu�	xgoptionalS�	ygkeyS�	zgunfold�	{g1+�	|gformat�	}f#<procedure ~a~a>�	~gprocedure-name�	f~a at ~a:~a:~a��gnumber->string��gobject-address��f<current input>��f<unknown port>��f��f ��gstring-join��gobject->string��f | ��g
write-program�C5hH1�]4	
"#K54N>"G4Oi4PiQ4Ri55S>"Gh�]C�gname
		gboxed?		gindex			gstart			gend			gfilenamefsystem/vm/program.scm�
	5
��		6	��			gnamegmake-binding�C%RThx]
6pgb
			gfilenamefsystem/vm/program.scm�
	7
��			7	��			gnamegbinding:name�C&RThz]6rgb
			gfilenamefsystem/vm/program.scm�
	8
��			8	��			gnamegbinding:boxed?�C'RThy]	6qgb
		
gfilenamefsystem/vm/program.scm�
	9
��	
	9	��		
gnameg
binding:index�C(RThy]	6qgb
		
gfilenamefsystem/vm/program.scm�
	:
��	
	:	��		
gnameg
binding:start�C)RThw]	6ogb
		
gfilenamefsystem/vm/program.scm�
	;
��	
	;	��		
gnamegbinding:end�C*Rh|]�Ctgsource
		gfilenamefsystem/vm/program.scm�
	=
��		>	��		gnamegsource:addr�C+Rh|]��Ctgsource
		gfilenamefsystem/vm/program.scm�
	?
��		@	��		gnamegsource:file�C.Rh|]���Ctgsource
		gfilenamefsystem/vm/program.scm�
	A
��		B	��		gnamegsource:line�C,Rh~]���Cvgsource
		gfilenamefsystem/vm/program.scm�
	C
��		D	��		gnameg
source:column�C-R,h�]45�C�gsource
		gfilenamefsystem/vm/program.scm�
	I
��		J	��	
	J	��		gnamegsource:line-for-user�C/R	URUVWXhh�]�4�5&��	���"645
�$"��	�	��	��	���"45�C�gbytecode
		hgip		hgidx			hginst			hgfilenamefsystem/vm/program.scm�
	Q
��		R	��		R	��	
	S	��		S	$��		S	��		R	��		V	��		U	��	"	W	1��	#	W	
��	*	X	1��	+	X	
��	,	W	
��	1	Y	
��	9	Y	
��	=	U	��	B	\	.��	C	\	��	F	\	
��	M	]	.��	N	]	��	Q	]	
��	R	\	
��	Y	^	)��	Z	^	
��	[	\	
��	`	a	
��	g	U	��		h	gnamegbytecode-instruction-length�CYRZB[Y\]0h��]I4455"n(6��$P��"6	�$		4	5�	"������	"���	"���645
"���gproc
	�gbv	�gin		�gout		�gip		�gv		#�gvx		2	|gvy		2	|gip		:	pgnext			:	p
gfilenamefsystem/vm/program.scm�
	m
��		n	��		n	��		n	��		n	��		o	��		r	��	 	t	��	#	v	��	#	v	��	:	x	��	?	z	��	C	z	
��	H	{	#��	Q	{	��	Y	{	��	\	|	��	a	}	��	p	|	��	p	x	����	����	���	o	���	o	���	p	���	o	��	�gnamegprogram-sources-pre-retire�C1R^_`h�]���C{gx
		
gy		
gfilenamefsystem/vm/program.scm�
�	��	�	)��	�	1��		�	&��		
	Ca(bh��]!"n(456�4455$$4>"G�"���45��"���"���~glocs
		gret		tglocs			tgb			tgt		.	tgfilenamefsystem/vm/program.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	!�	��	&�	��	.�	��	.�	
��	7�	��	@�	#��	E�	��	R�	��	Z�	��	[�	��	f�	)��	i�	��	l�	��	t�	��	t�	��	u�	��	�	��		gnamegcollapse-locals�CcR3ch �]	45$6C�gprog
		gt			gfilenamefsystem/vm/program.scm�
�
��	�		��		�	��	�	��		gnamegprogram-bindings-by-index�C4R[)*4h��]"m(6�"I("F"	�"���4�5�$4�5�$
��""���"����"���"���45"����gprog
	�gip	�gin			sgout			sgbinds			bgfilenamefsystem/vm/program.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	,�	!��	2�	��	2�	��	3�	��	8�	(��	:�	��	=�	��	A�	��	D�	��	I�	&��	K�	��	L�	��	S�	��	V�	��	b�	��	e�	��	k�	��	s�	��	s�	��	t�	��	{�	6����	��	�	gnamegprogram-bindings-for-ip�C5R\dh8�]�$$���$��C66�ga
		5gvx		-gvy			-gfilenamefsystem/vm/program.scm�
�
��	�	��	)�	3��	-�	,��	1�	3��	5�	,��		5gnamegarity:start�C8R\dh8�]	�$ ���$��C66�ga
		1gvy		)gfilenamefsystem/vm/program.scm�
�
��	�	��	%�	1��	)�	*��	-�	1��	1�	*��		1gnameg	arity:end�C9Rh8�]�$,���$���$��C
C
C
C�ga
		7gvy		5gvy			3gfilenamefsystem/vm/program.scm�
�
��	�	��		7gnameg
arity:nreq�C:RhP�]�$>���$,���$���$��C
C
C
C
C�ga
		Igvy		Ggvy			Egvy		,	Cgfilenamefsystem/vm/program.scm�
�
��	�	��		Ignameg
arity:nopt�C;Rh`�]!�$P���$>���$,���$���$��CCCCCC�ga
		[gvy		Ygvy			Wgvy		,	Ugvy		<	Sgfilenamefsystem/vm/program.scm�
�
��	�	��		[gnamegarity:rest?�C<Rh�]A�$����$o���$]���$K���$9���$'���$��(CCCCCCCCC�ga
	�gvy	�gvy		�gvy		,�gvy		<�gvy		L�gvx		_�gvy		_�gvy		m	~	gfilenamefsystem/vm/program.scm�
�
��	�	��	}�	:��	�gnamegarity:kw�C=Rh�
]A�$����$o���$]���$K���$9���$'���$��(CCCCCCCCCga
	�gvy	�gvy		�gvy		,�gvy		<�gvy		L�gvx		_�gvy		_�gvx		m	~	gfilenamefsystem/vm/program.scm�
�
��	�	��	�gnamegarity:allow-other-keys?�C>R689hhl]45$U"I(C$7"	�"���4�5�$4�5�$�C"���"����C"���Cdgprog
		hgip		hgarities				hgarities			^gfilenamefsystem/vm/program.scm�
�
��	�	��		�	��	�	��	�		��	�	��	*�	��	0�	��	0�	��	1�	��	6�	'��	8�	��	;�	��	?�	��	B�	��	G�	)��	I�	��	J�	��	N�	��	Q�	��	]�	��	^�		��		h	gnameg
program-arity�C7Refghijh�8]Q�$x���$e���$R���$?���$,��
	����	�
�CCCCCC0garglist
	�gvx	�gvy		�gvx		 	gvy		 	gvx		1	}gvy		1	}gvx		B	{gvy		B	{gvx			S	ygvy	
	S	ygfilenamefsystem/vm/program.scm�
�
��	�	��	Y�	��	�gnamegarglist->arguments-alist�CkRlmhk]6cgi
		gfilenamefsystem/vm/program.scm�
�	"��	�	>��	�	.��		C^(&ht]4545�Clgx
		gfilenamefsystem/vm/program.scm�
�	��	�	��	
�	1��	�	��		C58ah �]	4L5$CL6zgi
		gt		gfilenamefsystem/vm/program.scm�
�	��	�	��	�	��	�	��		Cn=e[fgh>i:;<h@ -.,3#H444555OK"�
�$*�4J
5�	
�
	"���
�$*�4J
5�	
�
	"���$24J
4455�5
�
	"��d	4
5�4
5�45�
45�	�C454545

	"��gprog
	:garity	:gmake-placeholder		:gvar-by-index		:grbinds		.	<gnreq		Bgreq		Bgnopt		Bgopt		Bgrest?		Bgrest			Bgn	
	Bgfilenamefsystem/vm/program.scm�
�
��	�	��	�	��	$�	0��	,�	��	.�	��	.�	��	B�	��	F�	��	J�	��	M�	
��	N�	��	W�	��	b�	��	t�	��	x�	��	|�	����	
����	����	����	����	����	����	
����	 ����	(����	 ����	����	
����	
����	����	����	����	����	����	����	����	����	���	���	���	���	*���	���	*�� �	��:�	��0	:	gnamegarity->arguments-alist�CoR7oh0,-.,3#45$6C$gprog
		0gip		0garity			0gfilenamefsystem/vm/program.scm�
�
��	�	��	�	��	&�	��	.�		��		0gnamegprogram-arguments-alist�g
documentationfPReturns the signature of the given procedure in the form of an association list.�C?Rp?qh(-.,3#456�gprog
		$gip		$gfilenamefsystem/vm/program.scm�
�
��	�		��	$�	��		$gnamegprogram-lambda-list�g
documentationfMReturns the signature of the given procedure in the form of an argument list.�C@Rref^stgiwxyh�`]!45$"45$"4445$"5545$"	4	�$	
�"4	�$	�"556Xgarguments-alist
	�gt		gt	&	8gt	K	]gt	j	|greq	|�gopt		|�gkey		|�grest		|�	gfilenamefsystem/vm/program.scm�
�
��	�	��		�	+��	�	��	�	
��	�	6��	�	��	$�	+��	&�	��	&�	
��	5�	6��	9�	
��	>�	��	C�	��	I�	9��	K�	��	K�	��	Z�	C��	_�	��	a�	
��	b�	��	h�	,��	j�	��	j�	��	y�	3��	|�	����	���	���	���	���	.����	���	���	���	���	)����	��&	�gnamegarguments-alist->lambda-list�CqRHzhb]L�CZgi
		gfilenamefsystem/vm/program.scm�
	��		��		CIhh]L6`gt-46b52c6efc-47d
		
gfilenamefsystem/vm/program.scm�
	��		
C{h �]	45OO
6�gprog
		 gcount			 gfilenamefsystem/vm/program.scm�

��		��			��	 	��		 gnamegprogram-free-variables�g
documentationf*Return the list of free variables of PROG.�CGR|}~p2|��.��/-
hP�]	44L5	545$"$"454	56�gs
		Kgt		;gfilenamefsystem/vm/program.scm�
	��		"��		��		/��		��		#��		��	0	#��	2	)��	8	;��	<	��	C	8��	K	��		KC��6�P��^�qoh}]44L556uga
		gfilenamefsystem/vm/program.scm�
	'��		*��		+��		*��		)��		C�h��]
45$"344
5O5$"445	54	5$�"$
"44
4O5556�gprog
	�gport	�gt			Sgt		1	Pgarities		Z�gfilenamefsystem/vm/program.scm�

��	
	��			��		
��		��	!	��	1	��	1	
��	@	��	C	��	M	��	T	��	Z	
��	b	��	e	"��	j	��	n	��	p	��	u	��	y	��	z	��	}	"��� 	"���	���	���
	��	�	gnameg
write-program�C�RC�gm
		,gfilenamefsystem/vm/program.scm�		
��	-	2
��	2	2	��	8	2	��	9	2	+��	A	2	��	C	3	��	H	2
��9	5
���	7
��u	8
��	9
���	:
��R	;
���	=
��	?
��	A
���	C
��`	I
��e	M
��	�	Q
��$	m
����
����
��6�
��?�
��5�
���
���
��C�
����
����
����
��c�
��$��
��&?�
��'��
��*��
��,�
��1F
��)	1H
C6system/vm/objcode.go000064400000001471150536206120010451 0ustar00GOOF----LE-8-2.0!]4h]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	gobjcode�		�	
gfilenameS�	fsystem/vm/objcode.scm�	gexportsS�	
gobjcode?�	gobjcode-meta�	gbytecode->objcode�	gobjcode->bytecode�	gload-objcode�	g
write-objcode�	g	word-size�	g
byte-order�	
�	gset-current-module�	�	�	gload-extension�	g
string-append�	f	libguile-�	geffective-version�	fscm_init_objcodes�C5h@�]4	
54>"Gi4i4i556gm
		(gfilenamefsystem/vm/objcode.scm�		
��	-		��	3		��	4		+��	<		��	>		��	@	
��		@
C6system/vm/trap-state.go000064400000037452150536206120011140 0ustar00GOOF----LE-8-2.0?]�4hp]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	g
trap-state�		�	
gfilenameS�	fsystem/vm/trap-state.scm�	gimportsS�	
gbase�	gsyntax�	
�	�	gsrfi�	gsrfi-1�	�	gselectS�	gfold�	�	�	�	�	gtraps�	�	�	gtrace�	�	�	 gframe�	! �	"!�	#gprogram�	$#�	%$�	&"%�	'gexportsS�	(g	add-trap!�	)g
list-traps�	*g
trap-enabled?�	+g	trap-name�	,genable-trap!�	-g
disable-trap!�	.gdelete-trap!�	/gwith-default-trap-handler�	0ginstall-trap-handler!�	1gadd-trap-at-procedure-call!�	2gadd-trace-at-procedure-call!�	3gadd-trap-at-source-location!�	4g#add-ephemeral-trap-at-frame-finish!�	5gadd-ephemeral-stepping-trap!�	6()*+,-./012345�	7gset-current-module�	87�	97�	:g
make-fluid�	;g%default-trap-handler�	<gwarn�	=fTrap with no handler installed�	>gdefault-trap-handler�	?gmake-record-type�	@f<trap-wrapper>�	Agindex�	Bgenabled?�	Cgtrap�	Dgname�	EABCD�	Fg<trap-wrapper>�	Ggmake-trap-wrapper�	Hgrecord-predicate�	Ig
trap-wrapper?�	Jgmake-procedure-with-setter�	Kgrecord-accessor�	Lgrecord-modifier�	Mgtrap-wrapper-index�	Ngtrap-wrapper-enabled?�	Ogtrap-wrapper-trap�	Pgtrap-wrapper-name�	Qf<trap-state>�	Rghandler�	Sgnext-idx�	Tgnext-ephemeral-idx�	Ugwrappers�	VRSTU�	Wg<trap-state>�	Xgmake-trap-state�	Ygtrap-state?�	Zgtrap-state-handler�	[gtrap-state-next-idx�	\gtrap-state-next-ephemeral-idx�	]gtrap-state-wrappers�	^gtrap-wrapper<?�	_gerror�	`fTrap already enabled�	agsetter�	ba�	ca�	dgenable-trap-wrapper!�	efTrap already disabled�	fgdisable-trap-wrapper!�	ggappend�	hgadd-trap-wrapper!�	igdelq�	jgremove-trap-wrapper!�	kgtrap-state->trace-level�	lf)no wrapper found with index in trap-state�	mgwrapper-at-index�	ngnext-index!�	ognext-ephemeral-index!�	pghandler-for-index�	qgephemeral-handler-for-index�	rgmake-weak-key-hash-table�	sg
*trap-states*�	tg	hashq-ref�	ug
hashq-set!�	vgtrap-state-for-vm�	wgthe-vm�	xgthe-trap-state�	ygset-vm-trace-level!�	zgmap�	{gand=>�	|gtrap-at-procedure-call�	}gformat�	~fBreakpoint at ~a�	gtrace-calls-to-procedure��gprefixS��f	Trap ~a: ��fTracepoint at ~a��gtrap-at-source-location��fBreakpoint at ~a:~a��gtrap-frame-finish��fReturn from ~a��f~a:~a:~a��gsource:file��funknown file��gsource:line-for-user��g
source:column��funknown source location��g
source-string��ginto?S���	���ginstruction?S���	�������gframe-next-source��gtrap-matching-instructions��g
frame-address��fStep to different instruction��f#Step to different instruction in ~a��fStep into ~a��fStep out of ~a�C5hX0�]4	
&'6549>"G4:i5;R;<=h(�][$
66�gframe
		#gidx		#g	trap-name			#gdefault-handler			#gfilenamefsystem/vm/trap-state.scm�
	1
��		2	��	
	3	��		4	��		5	��	#	5	��		#	gnamegdefault-trap-handler�C>R4?i@E5FRFh�-13�C�gindex
			genabled?			gtrap				gname				gdefrec-3703f9048699c1-8				gfilenamefsystem/vm/trap-state.scm�
	7
��				
	gnamegmake-trap-wrapper�CGR4HiFi5IR4Ji4KiFiA54LiFiA55MR4Ji4KiFiB54LiFiB55NR4Ji4KiFiC54LiFiC55OR4Ji4KiFiD54LiFiD55PR4?iQV5WR>Wh�9-13HJ("J�J�KJ(
"J�J�KJ(	�"J�J�KJ("J�J�K�C1gdefrec-3703f9048699c1-14
	
�g_x		(g_x	6	Bg_x	Q	]g_x	k	wghandler	w�gnext-idx		w�gnext-ephemeral-idx		w�gwrappers		w�	gfilenamefsystem/vm/trap-state.scm�
	=
��	d	A	��		�


gnamegmake-trap-state�CXR4HiWi5YR4Ji4KiWiR54LiWiR55ZR4Ji4KiWiS54LiWiS55[R4Ji4KiWiT54LiWiT55\R4Ji4KiWiU54LiWiU55]RMh�]4545�C�gt1
		gt2		gfilenamefsystem/vm/trap-state.scm�
	C
��		D	��	
	D	��		D	��			gnamegtrap-wrapper<?�C^RN_`MOchP�]	45$
4564544545>"G456�gwrapper
		Kgtrap	!	Kgfilenamefsystem/vm/trap-state.scm�
	J
��		K	��	
	K	��		L	
��		L	$��		L	��		M	��	!	M	��	$	N	��	.	N	*��	7	N	��	K	O	��
		Kgnamegenable-trap-wrapper!�CdRNOc_eMhP�]	45$14544545>"G456456�gwrapper
		Kgtrap		>gfilenamefsystem/vm/trap-state.scm�
	Q
��		R	��	
	R	��		T	��		T	��		U	��	!	U	*��	*	U	��	>	V	��	B	S	
��	C	S	%��	K	S	��
		Kgnamegdisable-trap-wrapper!�CfRc]gMh0�]4454455>"G6�g
trap-state
		0gwrapper		0gfilenamefsystem/vm/trap-state.scm�
	X
��		Y	��	
	Z	��		Z	��		Z	1��		Z	��	"	Y	��	0	[	��			0	gnamegadd-trap-wrapper!�ChRc]ih �]4544556�g
trap-state
		gwrapper		gfilenamefsystem/vm/trap-state.scm�
	]
��		_	��		_	��		_	��		^	��			gnamegremove-trap-wrapper!�CjRNh�]45$�CC�gwrapper
		glevel		gfilenamefsystem/vm/trap-state.scm�
	b	��		c	��	
	c	
��		d	��			C]h�]
456�g
trap-state
		gfilenamefsystem/vm/trap-state.scm�
	a
��		g	��		b	��		gnamegtrap-state->trace-level�CkR<lM]hP']
"8(4>"GC4�5�$�C�"���45"���g
trap-state
		Kgidx		Kgwrappers			>gfilenamefsystem/vm/trap-state.scm�
	i
��		j	��		k	��	
	m	��		m	��		m	��	#	o	��	(	o	 ��	*	o	��	-	o	��	1	k	��	4	p	��	8	r	
��	>	r	��	>	j	��	?	j	��	K	j	��		K	gnamegwrapper-at-index�CmR[ch(�]	45445�>"GC�g
trap-state
		(gidx			(gfilenamefsystem/vm/trap-state.scm�
	t
��		u	
��			u	��		v	��		v	+��		v	��		(gnamegnext-index!�CnR\ch(�]	45445�>"GC�g
trap-state
		(gidx			(gfilenamefsystem/vm/trap-state.scm�
	y
��		z	
��			z	��		{	��		{	5��		{	��		(gnamegnext-ephemeral-index!�CoRmZMPh8�]4LL54L5$45456C�gframe
		2gwrapper		2ghandler			2gfilenamefsystem/vm/trap-state.scm�
		��	�	��	�	��	�	��	�	��	!�	��	(�	��	0�	
��			2Ch�]OC�g
trap-state
		gidx		gfilenamefsystem/vm/trap-state.scm�
	~
��			gnameghandler-for-index�CpRmNfjhP�]	4LL5$;45$4>"G"4L>"GL6C�gframe
		Pgwrapper		Pgfilenamefsystem/vm/trap-state.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	5�	��	N�	��
		PCh�]OC�g
trap-state
		gidx		ghandler			gfilenamefsystem/vm/trap-state.scm�
�
��			gnamegephemeral-handler-for-index�CqR4ri5sRtsXuvh@�]	45$C454>"G6�gvm
		9gt		9gts		9gfilenamefsystem/vm/trap-state.scm�
�
��	�	��	�	��	�	��	�	��	�	��	9�	��		9gnamegtrap-state-for-vm�CvRvwhx]456pgfilenamefsystem/vm/trap-state.scm�
�
��	�	��	�	��		
gnamegthe-trap-state�CxRx;ywkh p]L$454L56Chgfilenamefsystem/vm/trap-state.scm�
�	��	�	��	�	!��	�	*��	�	��		
Cywhg]L$
45
6C_gfilenamefsystem/vm/trap-state.scm�
�	��	�	��	�	!��	�	��		
Cywkh p]L$454L56Chgfilenamefsystem/vm/trap-state.scm�
�	��	�	��	�	!��	�	*��	�	��		
Cywhg]L$
45
6C_gfilenamefsystem/vm/trap-state.scm�
�	��	�	��	�	!��	�	��		
Chp�-.,3#45YOO4O>"GV4>X4O>"G"ZCZF�ghandler
		ngthunk		ng
trap-state			ngfilenamefsystem/vm/trap-state.scm�
�
��	�	;��	0�	��		n	gnamegwith-default-trap-handler�C/RxzM]h(�-.,3#45456�g
trap-state
		&gfilenamefsystem/vm/trap-state.scm�
�
��	�	,��	�	��	&�	��		&
gnameg
list-traps�C)Rx{mPh(�-.,3#45456�gidx
		(g
trap-state		(gfilenamefsystem/vm/trap-state.scm�
�
��	�	/��	�		��	(�	��		(gnameg	trap-name�C+Rx{mNh(�-.,3#45456�gidx
		(g
trap-state		(gfilenamefsystem/vm/trap-state.scm�
�
��	�	3��	�		��	(�	��		(gnameg
trap-enabled?�C*Rx{mdh(�-.,3#45456�gidx
		(g
trap-state		(gfilenamefsystem/vm/trap-state.scm�
�
��	�	2��	�		��	(�	��		(gnamegenable-trap!�C,Rx{mfh(�-.,3#45456�gidx
		(g
trap-state		(gfilenamefsystem/vm/trap-state.scm�
�
��	�	3��	�		��	(�	��		(gnameg
disable-trap!�C-Rx{mNfjh0�]45$4>"G"L6~gwrapper
		+gfilenamefsystem/vm/trap-state.scm�
�		��	�	��	
�	��	�	��	+�	��		+Ch0�-.,3#4545O6�gidx
		-g
trap-state		-gfilenamefsystem/vm/trap-state.scm�
�
��	�	2��	�		��	-�	��		-gnamegdelete-trap!�C.RxcZh(�-.,3#45456�ghandler
		&g
trap-state		&gfilenamefsystem/vm/trap-state.scm�
�
��	�	?��	&�	��		&gnameginstall-trap-handler!�C0Rxn|phG}~	hP6-.,3#4545445544556.gproc
		Ng
trap-state		Ngidx		 	Ngtrap		2	Ngfilenamefsystem/vm/trap-state.scm�
�
��	�	B��	�	��	 �	��	#�	��	(�	��	2�	��	2�	��	9�	��	A�	��	F�	��	J�	��	L�	��	N�	��		Ngnamegadd-trap-at-procedure-call!�C1Rxn�}�hG�
hXI-.,3#4545445544	556Agproc
		Qg
trap-state		Qgidx		 	Qgtrap		5	Qgfilenamefsystem/vm/trap-state.scm�
�
��	�	>��	�	��	 �	��	#�	��	*�	��	/�	$��	3�	��	5�	��	5�	��	<�	��	D�	��	I�	��	M�	��	O�	��	Q�	��		Qgnamegadd-trace-at-procedure-call!�C2Rxn�phG}�	hXO-.,3#4545445544556Ggfile
		Rg	user-line		Rg
trap-state			Rgidx		 	Rgtrap		4	Rgfilenamefsystem/vm/trap-state.scm�
�
��	�	>��	�	��	 �	��	#�	��	*�	(��	4�	��	4�	��	;�	��	C�	��	H�	��	N�	��	P�	��	R�	��		R	gnamegadd-trap-at-source-location!�C3Rxo�q.hi]LL6agframe
		
gfilenamefsystem/vm/trap-state.scm�
�	��	
�	 ��		
ChG}�
h`U-.,3#4545445O544	556Mgframe
		Yghandler		Yg
trap-state			Ygidx		 	Ygtrap		=	Ygfilenamefsystem/vm/trap-state.scm�
�
��	�	:��	�	��	 �	��	#�	��	(�	��	=�	��	=�	��	D�	��	L	��	Q	��	U	��	W�	��	Y�	��		Y	gnameg#add-ephemeral-trap-at-frame-finish!�C4R}������h@�]	$/45$"45456C�gsource
		:gt		'gfilenamefsystem/vm/trap-state.scm�

��		��	
	��		 ��		��	$	5��	(	��	/	,��	7	��	9	��		:gnameg
source-string�C�R�x�o�h\]CTgf
		gfilenamefsystem/vm/trap-state.scm�
	��		C�hw]45L��Cogf
		gfilenamefsystem/vm/trap-state.scm�
	��		.��		&��	
	!��		C��h�]45L�$L6Cxgf
		gfilenamefsystem/vm/trap-state.scm�
	
��		��		��		��		��		CqhG�}����h��-/03	#45##45454$"O$"45	O4
554$$
"
45"($4455"445556�gframe
	�ghandler	�g
trap-state		�ginto?		�ginstruction?		�gsource		9�gidx		B�g	predicate		Z�gfp		o	}gtrap	��
gfilenamefsystem/vm/trap-state.scm�
	
��		3��	3	��	9	��	<	��	B	��	E	��	M	��	Z	��	b	��	i	��	o	���	���	���	���	���!	���"	
���#	���$	���$	���$	���%	
���&	���&	���&	(���&	���'	���'	���'	*���'	���	���	��"	�	ginto?S	�ginstruction?S	�gnamegadd-ephemeral-stepping-trap!�C5RxnhGh8�-.,3#4545456�gtrap
		4gname		4g
trap-state			4gidx		 	4gfilenamefsystem/vm/trap-state.scm�
)
��	)	5��	*	��	 *	��	'-	��	4+	��		4	gnameg	add-trap!�C(RC�gm
		,gfilenamefsystem/vm/trap-state.scm�		
��	-	/	��	6	/
��g	1
��u	7
��-	=
��y	C
���	J
��	.	Q
��
I	X
��<	]
���	a
��B	i
��6	t
��0	y
���	~
����
����	����
��(�
����
����
��r�
��Y�
��E�
��4�
��%�
����
�� ��
��"y�
��$<�
��&
�
��(p�
��)�
��/"	
��0P)
��%	0R
C6system/vm/coverage.go000064400000113372150536206120010643 0ustar00GOOF----LE-8-2.0�]X4h�?]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	gcoverage�		�	
gfilenameS�	fsystem/vm/coverage.scm�	gimportsS�	
�	
�	gframe�	�	�	gprogram�	�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-9�	�	�	gsrfi-11�	�	�	gsrfi-26�	 �	! �	"!�	#gexportsS�	$gwith-code-coverage�	%gcoverage-data?�	&ginstrumented-source-files�	'ginstrumented/executed-lines�	(gline-execution-counts�	)gprocedure-execution-count�	*gcoverage-data->lcov�	+$%&'()*�	,gset-current-module�	-,�	.,�	/ghashq�	0gprogram-objcode�	1g
hashq-proc�	2gfind�	3g	assq-proc�	4gframe-procedure�	5gframe-instruction-pointer�	6ghashx-create-handle!�	7ghashv-create-handle!�	8gmake-hash-table�	9gvm-trace-level�	:gvm-next-hook�	;gset-vm-trace-level!�	<g	add-hook!�	=gremove-hook!�	>gcall-with-vm�	?gmake-coverage-data�	@g<coverage-data>�	Ag%%make-coverage-data-procedure�	Bgmake-syntax-transformer�	CB�	DB�	Eg%make-coverage-data�	Fgmacro�	Gg$sc-dispatch�	HG�	IG�	Jg_�	Kgany�	LJKKKK�	Mg
syntax-object�	Nglambda�	Ogm-8d25f648290-30�	Pgtop�	QOP�	Rgribcage�	Sgt-8d25f648290-2c�	Tgt-8d25f648290-2d�	Ugt-8d25f648290-2e�	Vgt-8d25f648290-2f�	WSTUV�	XQQQQ�	Yfl-8d25f648290-35�	Zfl-8d25f648290-36�	[fl-8d25f648290-37�	\fl-8d25f648290-38�	]YZ[\�	^RWX]�	_R�	`gx�	a`�	bQ�	cfl-8d25f648290-32�	dc�	eRabd�	fgshift�	gg	proc-name�	hgargs�	igh�	jP�	kjj�	lfl-1e8ba8b5a-2ba�	mfl-1e8ba8b5a-2bb�	nlm�	oRikn�	pgkey�	qgvalue�	rgname�	sgformals�	tgbody�	upqrst�	vjjjjj�	wfl-1e8ba8b5a-2ad�	xfl-1e8ba8b5a-2ae�	yfl-1e8ba8b5a-2af�	zfl-1e8ba8b5a-2b0�	{fl-1e8ba8b5a-2b1�	|wxyz{�	}Ruv|�	~gmake-procedure-name�	~��j��fl-1e8ba8b5a-29d�����R����j��fl-1e8ba8b5a-29c�����Ra����Q^_ef____o}��
��ghygiene�����MN����gprocedure->ip-counts��j^_e�����M�����gprocedure->sources��M�����gfile->procedures��M�����gfile->line-counts��M�����������gmake-struct��gm-8d25f648290-2a���P��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���P�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������R�����g	ctor-args�����fl-1e8ba8b5a-37a�����R�����gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������R�k���gform��g	type-name��gconstructor-spec��gfield-names��������jjjj��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������R�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������jjjjjjjj��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������R�����fl-1e8ba8b5a-334�����Ra�����^_ef_�___��_�����M�����M@����M
������������������geach-any��Jی��gsyntax-violation��������fWrong number of arguments��gidentifier?��������j_e��MA����������f-source expression failed to match any pattern��grecord-type-vtable��������gpwpwpwpw��gdefault-record-printer��������������gset-struct-vtable-name!��������gvtable-offset-user��������g%coverage-data?-procedure��JK��gm-8d25f648290-43���P��gt-8d25f648290-42��������fl-8d25f648290-48����R����fl-8d25f648290-45��Ra���_f____o}��
�MN��gobj�gt-1e8ba8b5a-47e�gt-1e8ba8b5a-478�	gt-1e8ba8b5a-479�
gt-1e8ba8b5a-47a�gt-1e8ba8b5a-47d�gt-1e8ba8b5a-47c�
gt-1e8ba8b5a-47b�	

�gm-1e8ba8b5a-47f�P��fl-1e8ba8b5a-483�fl-1e8ba8b5a-484�fl-1e8ba8b5a-485�fl-1e8ba8b5a-486�fl-1e8ba8b5a-487�fl-1e8ba8b5a-488�fl-1e8ba8b5a-489��R�g	copier-id��fl-1e8ba8b5a-476��R�� g	ctor-name�! �"fl-1e8ba8b5a-46e�#"�$R!�#�%��&fl-1e8ba8b5a-46c�'&�(R%�'�)glayout�*)�+fl-1e8ba8b5a-46a�,+�-R*�,�.g
immutable?�/.�0fl-1e8ba8b5a-468�10�2R/�1�3gfield-count�43�5fl-1e8ba8b5a-466�65�7R4�6�8g
getter-ids�98�:fl-1e8ba8b5a-463�;:�<R9�;�=g	field-ids�>=�?fl-1e8ba8b5a-460�@?�AR>�@�Bgpredicate-name�Cg
field-spec�D.���BC�Ejjjjjj�Ffl-1e8ba8b5a-453�Gfl-1e8ba8b5a-454�Hfl-1e8ba8b5a-455�Ifl-1e8ba8b5a-456�Jfl-1e8ba8b5a-457�Kfl-1e8ba8b5a-458�LFGHIJK�MRDEL�N�_f______$_(_-_2_7_<_AM���OMN��PO�Qgand�RMQN��Sgstruct?�TMSN��UTO�Vgeq?�WMVN��Xg
struct-vtable�YMXN��ZYO�[j_�\M@[��]WZ\�^RU]�_P^�`j_�aM�`��bgthrow-bad-struct�cb�db�egdata-procedure->ip-counts�fg$%data-procedure->ip-counts-procedure�ggfree-id�hg
%%on-error�igm-8d25f648290-4f�jiP�kj�lfl-8d25f648290-51�ml�nRakm�oj_nf____o}���pMho��qgp�rqK�sg%%type�tgt-1e8ba8b5a-3a5�ugt-1e8ba8b5a-3a6�vgt-1e8ba8b5a-3a7�wgt-1e8ba8b5a-3a8�xgt-1e8ba8b5a-3a9�ygt-1e8ba8b5a-3aa�zgt-1e8ba8b5a-3ab�{tuvwxyz�|gm-1e8ba8b5a-3ac�}|P�~}}}}}}}�fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6����������R{~���ggetter��gindex������fl-1e8ba8b5a-3a3��fl-1e8ba8b5a-3a4������R�k����8��jjj��fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0�������R������_nf_�___�_�����Ms����g���Jr�K��gck��gerr��gs������jj��fl-8d25f648290-54��fl-8d25f648290-55������R�����j�_nf____o}��
��M�����gquote��M�����j�_n��M@�����������g%%index��M�����g���Jr�K��fl-8d25f648290-59��fl-8d25f648290-5a������R�����j�_nf____o}��
��M�����M������_n��M
�����������g%%copier��M�����g���Jr�K��fl-8d25f648290-5e��fl-8d25f648290-5f������R�����j�_nf____o}��
��M�����M�����g%%<coverage-data>-set-fields��j�_n��M������������gt-8d25f648290-4e�����fl-8d25f648290-63�����R�k���j�_nf____o}��
��MN������_nf_�___�_�����M��������gif��M�����MV����MX��������j�_n��M@���������g
struct-ref��M������_n��M
���������Mb����M�����Me������������������������j_n��Mf����gdata-procedure->sources��g"%data-procedure->sources-procedure��gm-8d25f648290-6a���P�����fl-8d25f648290-6c�����Ra�����_�f____o}����Mh����g����K���_�f_�___�_�����Ms����g���J��K������fl-8d25f648290-6f��fl-8d25f648290-70������R�������_�f____o}��
�M����M����j�_��M@����M����g�J�K�	fl-8d25f648290-74�
fl-8d25f648290-75�	
�R���
�_�f____o}��
�M�
��M�
��_��M����M����g�J�K�fl-8d25f648290-79�fl-8d25f648290-7a��R����_�f____o}��
�M���M���j_��M��� �! �"gt-8d25f648290-69�#"�$fl-8d25f648290-7e�%$�&R#�%�'�&_�f____o}��
�(MN'��)�&_�f_�___�_����*M�)��+*�,M�)��-MV)��.MX)��/.*�0j&_��1M@0��2-/1�3M�)��4&_��5M4��63*5�7Mb)��8M�)��9M�0��:89�;7*:�<,26;�=(+<�>j_��?M�>��@gdata-file->procedures�Ag %data-file->procedures-procedure�Bgm-8d25f648290-85�CBP�DC�Efl-8d25f648290-87�FE�GRaDF�HC_Gf____o}���IMhH��JgI�KJK�L�_Gf_�___�_����MMsL��NgM�OJKNK�PCC�Qfl-8d25f648290-8a�Rfl-8d25f648290-8b�SQR�TR�PS�UCT_Gf____o}��
�VM�U��WM�U��XjT_G�YM@X��ZWY�[Z�\M�L��]g\�^JK]K�_fl-8d25f648290-8f�`fl-8d25f648290-90�a_`�bR�Pa�cCb_Gf____o}��
�dM�c��eM�c��fb_G�gM	f��heg�ih�jM�L��kgj�lJKkK�mfl-8d25f648290-94�nfl-8d25f648290-95�omn�pR�Po�qCp_Gf____o}��
�rM�q��sM�q��tjp_G�uM�t��vsu�wv�xgt-8d25f648290-84�yx�zfl-8d25f648290-99�{z�|RyD{�}C|_Gf____o}��
�~MN}���|_Gf_�___�_�����M�������M����MV���MX�������j|_G��M@���������M����|_G��M	���������Mb���M����M@�������������������~����j_G��MA����gdata-file->line-counts��g!%data-file->line-counts-procedure��gm-8d25f648290-a0���P�����fl-8d25f648290-a2�����Ra�����_�f____o}����Mh����g����K���_�f_�___�_�����Ms����g���J��K������fl-8d25f648290-a5��fl-8d25f648290-a6������R�������_�f____o}��
��M�����M�����j�_���M@�����������M�����g���J��K��fl-8d25f648290-aa��fl-8d25f648290-ab������R�������_�f____o}��
��M�����M������_���M	�����������M�����g���J��K��fl-8d25f648290-af��fl-8d25f648290-b0������R�������_�f____o}��
��M�����M�����j�_���M������������gt-8d25f648290-9f�����fl-8d25f648290-b4�����R�������_�f____o}��
��MN������_�f_�___�_�����M��������M�����MV����MX��������j�_���M@���������M������_���M	���������Mb����M�����M�������������������������j_���M�����geach��KK������K�K�K��g%%set-fields��gdummy��gcheck?��gexpr���������gm-8d25f648290-bb���P���������fl-8d25f648290-c0��fl-8d25f648290-c1��fl-8d25f648290-c2��fl-8d25f648290-c3��fl-8d25f648290-c4��������R������fl-8d25f648290-bd��Ra�gt-1e8ba8b5a-3c4�gt-1e8ba8b5a-3c6�gt-1e8ba8b5a-3c5��	gm-1e8ba8b5a-3c7�
	P�


�fl-1e8ba8b5a-3cb�
fl-1e8ba8b5a-3cc�fl-1e8ba8b5a-3cd�
�R�fl-1e8ba8b5a-3c1�fl-1e8ba8b5a-3c2�fl-1e8ba8b5a-3c3��R����_f____��
�M���j_�M@��Me��M���M@��M����gmap� �!�"glist�#g
hash-for-each�$gprogram-sources*�%gsource:file�&gfor-each�'gsource:line�(ghash-create-handle!�)gmax�*g
append-map�+gclosed-over-procedures�,gclosest-source-line�-g	hashq-ref�.gsource:addr�/gmodule-procedures�0gloaded-modules�1gand=>�2g	hashx-ref�3g	hashv-ref�4gprogram?�5gprogram-sources�6g
hashq-set!�7ghash-ref�8gfile-procedures�9g	hash-fold�:

��;g
alist-cons�<gmodule-submodules�=gresolve-module�>g
procedure?�?gmodule-obarray�@gmemq�Agfold�Bgappend�Cgvector->list�Dgprogram-objects�E�Fgprogram-free-variables�Ggformat�HfTN:~%�Igsearch-path�Jg
%load-path�Kgstring?�LfSF:~A~%�Mgsource:line-for-user�Ngprocedure-name�Of
anonymous-l~a�Pf
FN:~A,~A~%�QfFNDA:~A,~A~%�Rf
DA:~A,~A~%�SfLH: ~A~%�TfLF: ~A~%�Ufend_of_record~%�Vgcurrent-error-port�Wf"skipping unknown source file: ~a~%�C5hpR�]4	
"#+54.>"G/0h�]456�gproc
		gn		gfilenamefsystem/vm/coverage.scm�
	0
��		2		��		2	��			gnameg
hashq-proc�C1R020h|]L4�5�Ctgpair
		gfilenamefsystem/vm/coverage.scm�
	:	
��		;	��	
	;	'��		;	��	
	;	��		Ch�]
45O6�gproc
		galist		gcode				gfilenamefsystem/vm/coverage.scm�
	4
��		9	��			9	��		:	��			gnameg	assq-proc�C3R4561378h`h])45454M5"/H�KJ$4J
5���C45�"���"���`gframe
		[gproc			[gip			[g
proc-entry		"	[g	ip-counts		)	Wgip-entry		@	Kgfilenamefsystem/vm/coverage.scm�
	G	��		I	��			I	��		J	��		I	��		K	��	"	I	��	(	M	��	.	N	��	6	O	��	7	P	��	@	P	��	G	Q	$��	H	Q	!��	I	Q	��	N	S	#��	S	S	��	W	T	��	W	M	��		[gnamegcollect!�C89:;<h i]4LL�>"GLL6agfilenamefsystem/vm/coverage.scm�
	]	��		^	��	
	^	4��		^	��		_	��		
C;=h Y]4LL>"GLL6Qgfilenamefsystem/vm/coverage.scm�
	b	��		c	��		d	��		
C>?	h�*]2HOQ4�5K4545OOQQ4>"GV4>X4>"G"G4J5E"gvm
	�gthunk	�gprocedure->ip-counts		�gcollect!		
�glevel		*�ghook		*�gpre		D�gpost		D�gargs	��	gfilenamefsystem/vm/coverage.scm�
	>
��		E	��		Z	%��	$	[	%��	*	Z	��	9	\	��	p	a	��	~	\	���	Y	���	f	���	f	��	�	gnamegwith-code-coverage�g
documentationf�Run THUNK, a zero-argument procedure, using VM; instrument VM to collect code
coverage data.  Return code coverage data and the values returned by THUNK.�C$R@h�]�C�gprocedure->ip-counts
		gprocedure->sources		gfile->procedures			gfile->line-counts			gfilenamefsystem/vm/coverage.scm�
	m
��			gnameg%%make-coverage-data-procedure�CAR4DEFIL�h�]C�gt-8d25f648290-2c
		gt-8d25f648290-2d		gt-8d25f648290-2e			gt-8d25f648290-2f						C��E�hY]L6Qga
		gfilenamefsystem/vm/coverage.scm�		m
��		CJ�hI]L6Agfilenamefsystem/vm/coverage.scm�		m
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/vm/coverage.scm�
	m
��		nC5ER���@�4�@>"G	��Ai�@R@h�]�$��CCxgobj
		gfilenamefsystem/vm/coverage.scm�
	m
��		gnameg%coverage-data?-procedure�C�R4D%FI�_h8]C0gt-8d25f648290-42
		
		
C��%�hY]L6Qga
		gfilenamefsystem/vm/coverage.scm�		m
��		CJ�hI]L6Agfilenamefsystem/vm/coverage.scm�		m
��		
Cah]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsystem/vm/coverage.scm�
	m
��		nC5%R@deh�]�&
�C6�gs
		gfilenamefsystem/vm/coverage.scm�
	m
��		gnameg$%data-procedure->ip-counts-procedure�CfR4DeFI���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h8]C0gt-8d25f648290-4e
		
		
C��e�hY]L6Qga
		gfilenamefsystem/vm/coverage.scm�		m
��		CJ�hI]L6Agfilenamefsystem/vm/coverage.scm�		m
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/vm/coverage.scm�
	m
��	�C5eR@d�h�]�&�C6gs
		gfilenamefsystem/vm/coverage.scm�
	m
��		gnameg"%data-procedure->sources-procedure�C�R4D�FI�h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C!h:]��C2gerr
		gs					C�=h8]C0gt-8d25f648290-69
		
		
C����hY]L6Qga
		gfilenamefsystem/vm/coverage.scm�		m
��		CJ�hI]L6Agfilenamefsystem/vm/coverage.scm�		m
��		
C?h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/vm/coverage.scm�
	m
��	�C5�R@d@h �]�&	�C6}gs
		gfilenamefsystem/vm/coverage.scm�
	m
��		gnameg %data-file->procedures-procedure�CAR4D@FIOV[h:]��C2gerr
		gs					C^dih:]��C2gerr
		gs					Clrwh:]��C2gerr
		gs					C��h8]C0gt-8d25f648290-84
		
		
C��@�hY]L6Qga
		gfilenamefsystem/vm/coverage.scm�		m
��		CJ�hI]L6Agfilenamefsystem/vm/coverage.scm�		m
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/vm/coverage.scm�
	m
��	�C5@R@d�h �]�&	�C6~gs
		gfilenamefsystem/vm/coverage.scm�
	m
��		gnameg!%data-file->line-counts-procedure�C�R4D�FI���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h8]C0gt-8d25f648290-9f
		
		
C����hY]L6Qga
		gfilenamefsystem/vm/coverage.scm�		m
��		CJ�hI]L6Agfilenamefsystem/vm/coverage.scm�		m
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsystem/vm/coverage.scm�
	m
��	�C5�R4D�FI�!"h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsystem/vm/coverage.scm�
	m
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R8@#$%&%'(87)hXK]!45454L5�$"4�5�4�
54�
5�CCgsource
		Qgfile		Qgline			Qg
file-entry			Qg
line-entry		A	Qgfilenamefsystem/vm/coverage.scm�
�	��	�	-��	
�	-��	�	!��	�	��	�	��	#�	��	'�	��	.�	!��	6�	��	7�	��	<�	0��	A�	��	A�	��	F�	��	K�	$��	N�	��	O�	
��		QC*$hj]L6bgt-8d25f648290-118
		
gfilenamefsystem/vm/coverage.scm�
�	+��		
C+#,(87)hP@]4L54LL5�$"4�5�4�
54�5�C8gip
		Kgcount		Kgline			Kg
file-entry			Kg
line-entry		:	Kgfilenamefsystem/vm/coverage.scm�
�	��	�	-��	�	!��	�	��	�	��	�	��	 �	��	'�	!��	/�	��	0�	��	5�	0��	:�	��	:�	��	?�	��	D�	$��	H�	��	I�	
��		K	C
hh"]4L5�$4�5"$;4LO4LO455>"G	LO6Cgproc
		fg	ip-counts		fgsources			fgfile		!	fgfilenamefsystem/vm/coverage.scm�
�	��	�	%��	�	��	�	*��	�	%��	�	*��	�	7��	�	*��	!�	��	)�	��	*�	��	4�	��	>�	+��	F�	��	K�	��	d�	��		f	C&-&$%&,(87)hP,]4L54LL5�$"4�5�4�
54�
5�C$gip
		Jgline		Jg
file-entry			Jg
line-entry		:	Jgfilenamefsystem/vm/coverage.scm�
�	)��	�	7��	�	+��	�	��	�	��	�	��	 �	��	'�	!��	/�	��	0�	��	5�	0��	:�	��	:�	��	?�	��	D�	$��	G�	��	H�	
��		JC.hH�]4L5�$4�5"$LO456C�gproc
		Cgsources		Cgfile		!	Cgfilenamefsystem/vm/coverage.scm�
�	��	�	1��	�	!��	�	6��	�	1��	�	6��	�	C��	�	6��	!�	!��	)�	#��	7�	)��	A�	(��
		CC+h(�]4L5$CLLO456ygproc
		%gfilenamefsystem/vm/coverage.scm�
�	��	�	��	�	��	�	��	%�	��		%C*/0
hxw]!4�54	d54	d5�4O>"G4O44	55>"GCogprocedure->ip-counts
		rgprocedure->sources	
	rgfile->procedures			rgfile->line-counts			rgdata		+	rgfilenamefsystem/vm/coverage.scm�
�
��	�	��	
�	��	
�	��	�	��	�	��	�	��	+�	��	+�	��	.�	��	I�	��	W�	��	\�	,��	b�	��	g�	��		rgnamegmake-coverage-data�C?R$1213@de.3h�]	4L�5
6�g	ip-counts
		gentry-ip	
	gfilenamefsystem/vm/coverage.scm�
�	��	�	"��	�	/��	
�	"��	
�	��	�	��		C
hH]
45�$04�&
�"	455	O6Cgdata
		Fgproc		Fgsources			Fgfilenamefsystem/vm/coverage.scm�
�
��	�	��	�	��	�		��	�	��	�	��	 �	��	;�	��	D�		��
		F	gnamegprocedure-execution-count�g
documentationfReturn the number of times PROC's code was executed, according to DATA, or #f
if PROC was not executed.  When PROC is a closure, the number of times its code
was executed is returned, not the number of times this code associated with this
particular closure was executed.�C)R-@d�45@%(6h��]*4�&�"	455$C45$�45�&�"	45�&		�"	45�$84�54	54
>"G���CCC�gdata
	�gproc	�gt		#�gsources		u�gp->s		u�gf->p		u�gfile	��gentry	��gfilenamefsystem/vm/coverage.scm�
�
��	�	��	�	��	#�	��	#�	��	/�	��	9�	��	:�	��	C�	��	]�	��	u�	��	~�	����	
����	����	,����	����	����	����	>����	����	����	����	.����	#����	��	�	gnamegprogram-sources*�C$R7@d@h(�]�&		�"	456�gdata
		$gfile		$gfilenamefsystem/vm/coverage.scm�
�
��	�	��	"�	.��	$�	��		$	gnamegfile-procedures�C8R17@d�9h(�]���
�$�"�C�gline
		"gcount		"g
instr+exec			"ginstr			"gexec			"gfilenamefsystem/vm/coverage.scm�
�	��	�	'��	�	'��	�	��	�	"��	�	&��	�	"��	�	&��	!�	��
		"	C:hv]6ngline-counts
		gfilenamefsystem/vm/coverage.scm�
�	��	�	��	�	
��		Ch8p]
H44�&		�"	4555KJ�J�Dhgdata
		8gfile		8g
instr+exec			8gfilenamefsystem/vm/coverage.scm�
�
��	�	��		�	��	�	��	*�	��	.�	��	3�	
��	6�	��	8�	��
		8	gnameginstrumented/executed-lines�g
documentationfdReturn the number of instrumented and the number of executed source lines in
FILE according to DATA.�C'R17@d�9;hv]6ngline-counts
		gfilenamefsystem/vm/coverage.scm�
�		��	�	!��	�	��		Ch0<]4�&		�"	45564gdata
		*gfile		*gfilenamefsystem/vm/coverage.scm�
�
��	�		��	
�	��	&�		��	*�	��		*	gnamegline-execution-counts�g
documentationfrReturn a list of line number/execution count pairs for FILE, or #f if FILE
is not among the files covered by DATA.�C(R9h�]�C�gfile
		gcounts		gfiles			gfilenamefsystem/vm/coverage.scm�
	
��		��			C@d�h(+]�&		�"	456#gdata
		$gfilenamefsystem/vm/coverage.scm�
�
��		
��	
	
��	$	��		$gnameginstrumented-source-files�g
documentationfxReturn the list of `instrumented' source files, i.e., source files whose code
was loaded at the time DATA was collected.�C&R89-6<h8�]4M5$C4M>"GL45�6�gname
		7gmodule		7gresult			7gfilenamefsystem/vm/coverage.scm�
	��		��		��		��	*	��	5	��	7	��		7	Ch�]LLO6�gmodules
		gresult		gfilenamefsystem/vm/coverage.scm�
	��		��			gnamegloop�C<=h0�]H45KOQ44556�gseen
		-gloop		-gfilenamefsystem/vm/coverage.scm�

��	
	��		��		��	"	)��	%	9��	(	)��	*	��	+	��	-	��		-
gnamegloaded-modules�C0R9>h(�]$45$�CCC�gbinding
		%gvar		%gresult			%gvalue			"gfilenamefsystem/vm/coverage.scm�
	
��		��			��		 ��		��	 	��	 	��	!	��			%	C?h�]456�gmodule
		gfilenamefsystem/vm/coverage.scm�

��	$	
��	%	
��		��		gnamegmodule-procedures�C/R.'hXc]"1(C�45�$C�45"����$4�5""���[gsources
		Ugip		Ugsources			7gline			7gsource			7gfilenamefsystem/vm/coverage.scm�
'
��	+	��	-	��	/	��	/	��	0	��	0	��	"0	
��	(2	��	)2	"��	72	��	7+	��	<,	��	@,	��	A,	+��	F,	8��	H,	+��	U+	��		U	gnamegclosest-source-line�C,R4@ABCDEF	hX]
45$F45$CL�4445$"54556Cgproc
		Vgresult		Vgt		3	Fgfilenamefsystem/vm/coverage.scm�
6	��	8	
��	
8	��	8	"��	8	��	&9	��	':	��	*:	��	-:	(��	3:	$��	C:	?��	H:	��	I;	��	Q:	��	S9	��		V	gnamegloop�C4ABCDEF	hX]OQ45$64445$"54556Cgproc
		Rgloop	
	Rgt		0	Cgfilenamefsystem/vm/coverage.scm�
4
��	
6	��	8	
��	8	��	#7	��	$:	��	':	��	*:	(��	0:	$��	@:	?��	E:	��	F;	��	N:	��	P9	��	Q7	��		Rgnamegclosed-over-procedures�C+RGH&8IJKGL&4$MNGOP1)GQhp]LL6hgcount
		gfilenamefsystem/vm/coverage.scm�
S	��	T	(��	T	��		Ch�{]45$p4L5�$\4�545$"
454L>"G4	L5
LO6CCsgproc
		gsources		}gline		'	{gt		0	Kgname		K	{gfilenamefsystem/vm/coverage.scm�
I	��	K		��	
K	��	L	��	L		��	M	��	M	��	 N	��	%N	3��	'N	��	'N	��	*O	!��	0O	��	?P	!��	DP	,��	HP	!��	KN	��	NQ	��	TQ	��	]Q	��	hR	��	{R	��		gnameg
dump-function�CGRh �]��L�6�g
line+count
		gline		gcount			gfilenamefsystem/vm/coverage.scm�
_	 ��	`	/��	a	/��	`	"��	b	1��	c	,��	b	$��		C('STUVWh��]!4L54545$�4L>"G4LLO>"G4	LO4
L5>"G4L>G4L>"G4L
>"GL6456�gfile
	�gprocs	�gpath		�ginstr	��gexec	��gfilenamefsystem/vm/coverage.scm�
X	��	Y	��	Z	��	Y	��	[	��	#[	��	$]	��	*]	#��	1]	��	:^	��	U_	��	_d	 ��	l_	��	uf	$���e	���g	���g	%���g	���h	���h	%���h	���i	#���i	���k	���l	���k	��	�C&h0�]4>"GO456�gdata
		*gport		*gfilenamefsystem/vm/coverage.scm�
C
��	W	��		W	��	W	��	"n	��	*X	��		*	gnamegcoverage-data->lcov�g
documentationfTraverse code coverage information DATA, as obtained with
`with-code-coverage', and write coverage information in the LCOV format to PORT.
The report will include all the modules loaded at the time coverage data was
gathered, even if their code was not executed.�C*RC�gm
		,grtd
t�gfilenamefsystem/vm/coverage.scm�		
���	0
��Y	4
��]	>
��	v	m
��1B�
��4��
��7t�
��8a�
��;��
��>�
��@6�
��C
��D�
��F�'
��I�4
��RjC
��	Rl
C6system/vm/vm.go000064400000002044150536206120007463 0ustar00GOOF----LE-8-2.0]'4h�]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	�		gfilenameS�	
fsystem/vm/vm.scm�	gexportsS�	gvm?�	
gmake-vm�	gthe-vm�	gcall-with-vm�	gvm:ip�	gvm:sp�	gvm:fp�	gvm-trace-level�	gset-vm-trace-level!�	g	vm-engine�	gset-vm-engine!�	gset-default-vm-engine!�	gvm-push-continuation-hook�	gvm-pop-continuation-hook�	g
vm-apply-hook�	gvm-next-hook�	gvm-abort-continuation-hook�	gvm-restore-continuation-hook�	
�	gset-current-module�	 �	!�	"gload-extension�	#g
string-append�	$f	libguile-�	%geffective-version�	&fscm_init_vm�C5h@�]4	
54!>"G"i4#i$4%i55&6zgm
		(gfilenamefsystem/vm/vm.scm�		
��	-	 	��	3	 	��	4	 	+��	<	 	��	>	!	��	@	 
��		@
C6system/vm/frame.go000064400000015605150536206120010142 0ustar00GOOF----LE-8-2.0m]E4h�]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	gframe�		�	
gfilenameS�	fsystem/vm/frame.scm�	gimportsS�	
gbase�	gpmatch�	
�	�	gprogram�	�	�	ginstruction�	�	�	gobjcode�	�	�	�	gexportsS�	gframe-bindings�	gframe-lookup-binding�	gframe-binding-ref�	gframe-binding-set!�	 gframe-next-source�	!gframe-call-representation�	"gframe-environment�	#gframe-object-binding�	$gframe-object-name�	%gframe-return-values�	& !"#$%
�	'gset-current-module�	('�	)'�	*gframe-procedure�	+gprogram?�	,gprogram-bindings-for-ip�	-gframe-instruction-pointer�	.gbinding:name�	/gframe-local-set!�	0g
binding:index�	1gerror�	2fvariable not bound in frame�	3gframe-local-ref�	4gframe-arguments�	5gprogram-source�	6gprogram-sources-pre-retire�	7gcatch�	87�	97�	:gprocedure-name�	;gprogram-arguments-alist�	<gframe-num-locals�	=g???�	>gassq-ref�	?grequired�	@goptional�	Agkeyword�	Bgrest�	Cgmap�	Dgiota�C5hh�]4	
&54)>"G*+,-h(�]	4545$
456C�gframe
		%gp			%gfilenamefsystem/vm/frame.scm�
	!
��		"	��			"	��		#	��		#	��		$	#��	#	$	��	$	%	��			%gnamegframe-bindings�CR.h8]
"#(C4�5&�C�"���45"����gframe
		6gvar		6gbindings			)gfilenamefsystem/vm/frame.scm�
	'
��		(	��		)	��		+	��		+	��		+	��		)	��		,	��	#	.	��	)	.	��	)	(	��	*	(	��	6	(	��		6	gnamegframe-lookup-binding�CR/012h8�]445$"4556�gframe
		4gvar		4gval			4gt			.gfilenamefsystem/vm/frame.scm�
	0
��		2	��	
	3	��		3	��	!	4	��	%	4	 ��	+	4	��	0	2	��	4	1	��
		4	gnamegframe-binding-set!�CR3012h8�]
445$"4556�gframe
		2gvar		2gt			.gfilenamefsystem/vm/frame.scm�
	7
��		9	��	
	:	��		:	��	!	;	��	%	;	��	+	;	��	0	9	��	2	8	��
		2	gnamegframe-binding-ref�CR!h�]45�C}gframe
		gfilenamefsystem/vm/frame.scm�
	A
��		B	��	
	B	��		gnamegframe-arguments�C4R*+5-6h0�]	4545$45456C�gframe
		,gproc			,gfilenamefsystem/vm/frame.scm�
	J
��		K	��			K	��		L	��		L	��		N	��	"	O	��	*	M	��	+	P	��
		,gnamegframe-next-source�C R*9:hN]L6Fgfilenamefsystem/vm/frame.scm�
	e		��		e	��		
Ch[-13CSgargs
			gfilenamefsystem/vm/frame.scm�
	e		��			


C+;-30<=h8]�$^�4L5$4L455"4L5�$
4L5"4L��5�C�$^�4L5$4L455"4L5�$
4L5"4L��5�C�$#��4L��54L��5��C$74L5$
L4564L5�$L6CC	greq
	5gopt	5gkey		5grest		5gi		5gsym			Tgt			Qgsym		q�gt		|�gt	3
gfilenamefsystem/vm/frame.scm�
	t	��		z	��			y	��		{	#��		{	��		m	��		l	��	 	n	��	%	n	6��	-	n	��	4	o	��	;	o	��	?	l	��	@	p	��	N	s	��	U	|	��	Z	|	��	c	|	1��	e	|	��	f	{	��	j	}	��	n	y	��	q	~	#��	q	~	��	t	m	��	|	l	���	n	���	n	6���	n	���	o	���	o	���	l	���	p	���	s	���		���		���		1���		���	~	����	���	y	����	����	����	.����	����	����	#����	2����	����	���	y	���	m	��	l	��	n	6��	n	��	o	��$	o	��(	l	��0	p	��2	s	��4�	��>	5	gnameglp�C>?@ABC3h`]L6Xgi
		
gfilenamefsystem/vm/frame.scm�
�	��	
�	��		
CD<hE]!454O5$"45$4455"$�OQ44	
5$"4	5$"4	5$"4	
5$"
5"4O44555�C=gframe
	�gp		�gt			-gt		K�glp		\�gt		o�gt	��gt	��gt	��	gfilenamefsystem/vm/frame.scm�
	b
��		c	��			c	��		e		��		e	��	.	g	��	8	g	��	9	h	��	>	h	'��	F	h	��	K	f	��	\	t	��	g	t	��	m	t	2��	o	t	��	o	t	��	~	t	=���	u	���	u	2���	u	���	u	���	u	=���	v	���	v	2���	v	���	v	���	v	<���	w	���	w	3���	w	���	w	���	t	����	����	����	����	����	���	d	��'	�gnamegframe-call-representation�C!RC.hx]454L5�Cpgbinding
		gfilenamefsystem/vm/frame.scm�
�	��	�	��	
�	&��	�		��		Ch�]O456�gframe
		gfilenamefsystem/vm/frame.scm�
�
��	�	��	�	��		gnamegframe-environment�C"RhH#]
"2("
4�5�$
�$�CC�"���45"���gframe
		Egobj		Egbs			8gfilenamefsystem/vm/frame.scm�
�
��	�	��	�	��	
�	��	�	��	�	8��	�	��	�	��	"�	��	%�	��	)�	��	,�	��	2�	"��	8�	��	9�	��	E�	��		E	gnamegframe-object-binding�C#R#.h �]
45$6C�gframe
		gobj		gt			gfilenamefsystem/vm/frame.scm�
�
��	�		��	�	��			gnamegframe-object-name�C$R<3C3hr]LLL���6jgi
		gfilenamefsystem/vm/frame.scm�
�		��	�	%��	�	"��	�	��		CDh0�]454�5O456�gframe
		-glen			-gnvalues			-gfilenamefsystem/vm/frame.scm�
�
��	�	��		�	��	�	��	�	)��	�	��	�	��	%�		��	-�	��
		-gnamegframe-return-values�C%RC�gm
		,gfilenamefsystem/vm/frame.scm�		
��-	!
��|	'
���	0
���	7
���	A
���	J
���	b
��5�
����
����
��b�
��
	d
C6system/vm/traps.go000064400000072243150536206120010202 0ustar00GOOF----LE-8-2.0�t]�4hU]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	gtraps�		�	
gfilenameS�	fsystem/vm/traps.scm�	gimportsS�	
gbase�	gpmatch�	
�	�	�	�	gframe�	�	�	gprogram�	�	�	gobjcode�	�	�	ginstruction�	�	�	gxref�	 �	! �	"grnrs�	#gbytevectors�	$"#�	%$�	&!%�	'gexportsS�	(gtrap-at-procedure-call�	)gtrap-in-procedure�	*gtrap-instructions-in-procedure�	+gtrap-at-procedure-ip-in-range�	,gtrap-at-source-location�	-gtrap-frame-finish�	.gtrap-in-dynamic-extent�	/gtrap-calls-in-dynamic-extent�	0g#trap-instructions-in-dynamic-extent�	1gtrap-calls-to-procedure�	2gtrap-matching-instructions�	3()*+,-./012�	4gset-current-module�	54�	64�	7gmake-syntax-transformer�	87�	97�	:g	arg-check�	;gmacro�	<g$sc-dispatch�	=<�	><�	?gany�	@????�	Ag
syntax-object�	Bgif�	Cgtop�	DC�	Egribcage�	Fgdummy�	Ggarg�	Hg
predicate?�	Igmessage�	JFGHI�	Kg
m-1f68148ae-0�	LKC�	MLDDD�	Nf
l-1f68148ae-5�	Of
l-1f68148ae-6�	Pf
l-1f68148ae-7�	Qf
l-1f68148ae-8�	RNOPQ�	SEJMR�	TE�	Ugx�	VU�	WL�	Xf
l-1f68148ae-2�	YX�	ZEVWY�	[DSTZ�	\ghygiene�	]\�	^AB[]�	_gnot�	`A_[]�	agerror�	bAa[]�	cfbad argument ~a: ~a�	dAc[]�	egquote�	fAe[]�	g???�	hFGH�	iLDD�	jf
l-1f68148ae-e�	kf
l-1f68148ae-f�	lfl-1f68148ae-10�	mjkl�	nEhim�	oDnTZ�	pABo]�	qA_o]�	rAao]�	sfbad argument ~a: expected ~a�	tAso]�	uAeo]�	vgsyntax-violation�	wv�	xv�	yf-source expression failed to match any pattern�	zftrap already enabled�	{ftrap already disabled�	|gnew-disabled-trap�	}gnew-enabled-trap�	~g	procedure�	gframe-procedure��gprogram?��gprogram-objcode��g
frame-matcher��gvmS���	���gclosure?S���	���g
our-frame?S���	��������gthe-vm��g
procedure?��gproc��ghandler��g	add-hook!��g
vm-apply-hook��gremove-hook!��g
current-frameS���	����	����	����	���������g
enter-handler��gexit-handler��gwarn��falready in proc��gframe-previous��gvm-push-continuation-hook��gvm-pop-continuation-hook��gvm-abort-continuation-hook��gvm-restore-continuation-hook��gnext-handler��gvm-next-hook��gnumber?��ginteger?��gexact?��gnon-negative-integer?��gpositive-integer?��gand-map��grange?��gor-map��g	in-range?��grange��g
frame-address��gframe-instruction-pointer��gobjcode->bytecode��gprogram-last-ip��f
unexpected��gfor-each��g	assv-set!��gassv-ref��gsort!��gprogram-sources-pre-retire��gprogram-sources-by-line��fno instructions found at��f:��f; using line��finstead��fno instructions found for��gsource->ip-range��gsource-closures��gsource-procedures��gsource-closures-or-procedures������gstring?��gfile��g	user-line��gmap��fNo procedures found at ~a:~a.���	������gframe?��greturn-handler��g
abort-handler��f.return-or-abort traps may only be enabled once���	����	����	����	���������g
apply-handler���	����	����	���������glength��gdelq�����g
frame-pred�C5hc]4	
&'3546>"G49:;>@^`bdfh(k]Ccgdummy
		$garg		$g
predicate?			$gmessage			$		$	Cgpqrtuh0V]CNgdummy
		)garg		)g
predicate?			)		)	Cxyh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsystem/vm/traps.scm�
	N	��		9g
macro-typegsyntax-rules�gpatternsgargg
predicate?gmessagegargg
predicate?C5:Raza{hP�-.,3#M$"4>"G4L>"GNLC�gframe
		Igfilenamefsystem/vm/traps.scm�
	c	��		d	��	 	d	��	$	d	��	)	d	��	2	e	��	D	f	��		I
gnamegdisable-trap�ChX�-.,3#M$4>"G"4L>"GNLLLOC�gframe
		Rgfilenamefsystem/vm/traps.scm�
	]	��		^	��		^	��	 	^	��	%	^	��	2	_	��	F	`	��		R
gnamegenable-trap�Ch �]HOQC�gvm
		genable		gdisable			genabled?			genable-trap			gfilenamefsystem/vm/traps.scm�
	V
��		W	��			gnamegnew-disabled-trap�C|R|h�]456�gvm
		gframe		genable			gdisable			gfilenamefsystem/vm/traps.scm�
	k
��		l	��		l	��			gnamegnew-enabled-trap�C}R~��h8�]	45L&C45$454L5�CC�gframe
		2g
frame-proc			2gfilenamefsystem/vm/traps.scm�
	s	��		t	��			t	
��		u	��		u	��		v	��	 	v	��	!	w	��	(	x	��	/	w	��		2Chj]45L�Cbgframe
		
gfilenamefsystem/vm/traps.scm�
	y	��		z	��		z	
��		
Ch0�]
�$45"$OCOC�gproc
		.gmatch-objcode?		.gproc			.gfilenamefsystem/vm/traps.scm�
	n
��		o	��			o	��	
	p	��		o	��		r	��		.	gnameg
frame-matcher�C�R����as���h�]4L5$L6C�gframe
		gfilenamefsystem/vm/traps.scm�
�	��	�	
��	
�	��	�	
��		gnameg
apply-hook�C}��hm]4L5L6egframe
		gfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��		C��hm]4L5L6egframe
		gfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��		Ch�M-/03#45##4545$"4>"G45$"4	>"G
OQO
O6Egproc
	�ghandler	�gvm		�gclosure?		�g
our-frame?		�g
apply-hook	��gfilenamefsystem/vm/traps.scm�
	~
��		~	8��	0�	-��	;�	��	`�	����	��	�	
gvmS	�gclosure?S	�g
our-frame?S	�gnamegtrap-at-procedure-call�C(R����as������hX�]M$4L>"GN"4L5$%M$64L>"GNCC�gframe
		Sgfilenamefsystem/vm/traps.scm�
�	��	�	��		�	��	�	��	"�	
��	,�	��	2�	��	6�	��	:�	
��	;�	��	O�	��		Sgnameg
apply-hook�Ch(�]M$4L>"GNCC�gframe
		!gfilenamefsystem/vm/traps.scm�
�	��	�	��		�	��	�	��		!gnamegpush-cont-hook�C���hh]	M$4L>"GN"4L455$.45M$64L>"GNCC�gframe
		agframe	8	_gfilenamefsystem/vm/traps.scm�
�	��	�	��		�	��	�	��	"�	
��	%�	��	-�	
��	1�	��	2�	��	8�	
��	@�	��	D�	��	H�	
��	I�	��	]�	��		agnameg
pop-cont-hook�C��hX�]M$4L>"GN"4L5$%M$64L>"GNCC�gframe
		Sgfilenamefsystem/vm/traps.scm�
�	��	�	��		�	��	�	��	"�	
��	,�	��	2�	��	6�	��	:�	
��	;�	��	O�	��		Sgnameg
abort-hook�C��hX�]M$4L>"GN"4L5$%M$64L>"GNCC�gframe
		Sgfilenamefsystem/vm/traps.scm�
�	��	�	��		�	��	�	��	"�	
��	,�	��	2�	��	6�	��	:�	
��	;�	��	O�	��		Sgnamegrestore-hook�C}��������	h�4]44L5L>"G44L5L>"G44L5L>"G44L5L>"G44L5L>"G$24L5$%M$64L>"GNCCC,gframe
	�gfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��	�	��	�	��	�	��	,�	��	5�	��	8�	��	E�	��	N�	��	Q�	��	^�	��	g�	��	j�	��	w�	����	����	����	����	����	����	
����	����	��	�C������h��]M$4L>"GN"44L5L>"G44L5L>"G44L5L>"G44L5L>"G4L5L6�gframe
	�gfilenamefsystem/vm/traps.scm�
�	��	�	��		�	��	�	��	"�	��	%�	��	2�	��	;�	��	>�	��	K�	��	T�	��	W�	��	d�	��	m�	��	p�	��	}�	����	����	��	�ChX9-/03
##45##4545$"4>"G45$"4	>"G45$"4
>"GHOO	
O
OOQQ	Q
QQ
	O	
	O61gproc
	Qg
enter-handler	Qgexit-handler		Qg
current-frame		Qgvm		Qgclosure?		Qg
our-frame?		Qgin-proc?	�Qg
apply-hook	�Qgpush-cont-hook		�Qg
pop-cont-hook	
�Qg
abort-hook	�Qgrestore-hook	�Q
gfilenamefsystem/vm/traps.scm�
�
��	#�	4��	9�	(��	D�	��	i�	����	����	��Q�	��		Q	
g
current-frameS	�gvmS	�gclosure?S	�g
our-frame?S	�gnamegtrap-in-procedure�C)R����as����h�]4L5$L6C�gframe
		gfilenamefsystem/vm/traps.scm�
�	��	�	
��	
�	��	�	
��		gnameg	next-hook�C)��h8�]44L5L>"G$4L5$L6CC�gframe
		6gfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��	�	��	!�	��	"�	
��	,�	��	2�	
��			6gnamegenter�C��h(�]4L>"G4L5L6gframe
		!gfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��	!�	��		!gnamegexit�C���h��-/03##45##4545$"4>"G45$"4	>"G45$"4
>"GOQ
OO6	�gproc
	�gnext-handler	�gexit-handler		�g
current-frame		�gvm		�gclosure?		�g
our-frame?		�g	next-hook	��gfilenamefsystem/vm/traps.scm�
�
��	#�	A��	9�	*��	D�	��	i�	����	����	��	�	
g
current-frameS	�gvmS	�gclosure?S	�g
our-frame?S	�gnamegtrap-instructions-in-procedure�C*R���h0�]45$ 45$45$
��CCCC�gx
		/gfilenamefsystem/vm/traps.scm�
�
��	�	��	
�	��	�	��	�	��	�	 ��	#�	��	&�	0��	(�	+��
		/gnamegnon-negative-integer?�C�R���h0�]45$45$45$
�CCCC�gx
		.gfilenamefsystem/vm/traps.scm�

��		��	
	��		��		��		 ��	#	��	&	+��			.gnamegpositive-integer?�C�R��h �]�$4�5$�6CC�gx
		 gfilenamefsystem/vm/traps.scm�
	��		��			��	
	��		.��		��		��		.��		��
		 Ch�]�$6C|gx
		gfilenamefsystem/vm/traps.scm�

��		��			��		��		gnamegrange?�C�R�h�]�L�$L��CC�gbounds
		gfilenamefsystem/vm/traps.scm�
	
��	
	��	
	��	
	��		��		��		Ch�]O6�grange
		gi		gfilenamefsystem/vm/traps.scm�

��		��			gnameg	in-range?�C�R����as������h@�]	","NC�$��$	�"���"���"���M"����gfp
		:gframes		2gfilenamefsystem/vm/traps.scm�
	��		��	!	��		��		��		��		#��		 ��	!	��	$ 	��	* 	��	2	��
		:gnamegcull-frames!�C���hpk]!45454L>"G4L5M�$
M��"$$CM�NC$
M�NL6Ccgframe
		ogfp		ogip			og
now-in-range?		A	og
was-in-range?		A	ogfilenamefsystem/vm/traps.scm�
#	��	$	��	
%	��	$	��	&	��	''	��	2(	"��	6(	��	9(	6��	<(	3��	A'	��	K)	
��	Q+	��	V,	��	X,	��	`)	
��	e.	��	g.	��	m/	��		ognamegnext-handler�C*�h(�]M�$M�45�$M�NCCC�gframe
		#gfilenamefsystem/vm/traps.scm�
1	��	2	��		2	��	3	��	
3	!��	3	��	2	
��	4	��	4	
��
		#gnamegexit-handler�C���h��-/03
##45##4545$"4>"G4	5$"4
>"G45$"4>"GH
OO	QQ		O6	�gproc
	�grange	�ghandler		�g
current-frame		�gvm		�gclosure?		�g
our-frame?		�gfp-stack	��gcull-frames!	��gnext-handler		��
gfilenamefsystem/vm/traps.scm�

��	#	@��	9	)��	D	��	i	���	���	���	���6	��
	�	
g
current-frameS	�gvmS	�gclosure?S	�g
our-frame?S	�gnamegtrap-at-procedure-ip-in-range�C+R��h�]4455
�C�gprog
		gfilenamefsystem/vm/traps.scm�
=
��	>	��	>	0��	>	��	>	��		gnamegprogram-last-ip�C�Ra�����h0�]	4M��4M�5$"�5NC�gpair
		0gt		)gfilenamefsystem/vm/traps.scm�
T	��	V	��	
V	$��	
W	$��	X	(��	X	8��	X	(��	X	$��	&Y	(��	*W	��	,V	��	.U	
��
		0C�h�]���Cygx
		
gy		
gfilenamefsystem/vm/traps.scm�
[	��	[	(��	[	0��		[	%��		
	C�	h �]R"�$����$����$����$g�	��$L	��$0��

�$
�
��"45
"
45���"	"45"45"45"��-H4O>"G4J>"GJC45"����gproc
	gfile	gsources		gout		gv		�gvx		"�gvy		"�gvx		3�gvy		3�gvx			A�gv	
	^�gvx		j	xgalist	�
gfilenamefsystem/vm/traps.scm�
@
��	A	��		C	��	
C	��	D	��	E	��	E	��	LG	��	PG	��	UI	*��	VI	#��	ZI	��	]J	+��	^J	#��	uL	&��	}M	+���M	2���M	+���N	2���N	#���H	���H	���Q	���Q	���Q	���Q	���Q	���Q	���Q	���D	���R	���R	���S	
���[	
��A	��
A	��B	��A	��'		gnamegprogram-sources-by-line�C�R������h@�]�L�$�C�L�$#4LL�>"G�CC�gline-and-ranges
		?gfilenamefsystem/vm/traps.scm�
_	��	a	��	a	��	`	��	b	��	c	��	c	��	`	��	d	��	d	��	#d	8��	'e	��	*e	'��	,e	=��	1d	��	<f	��		?C����h@�]4O455$C4>"GC�gproc
		>gfile		>gline			>gt			>gfilenamefsystem/vm/traps.scm�
^
��	_	��	h	��	_	��	_	��	%j	��	)j	��	-j	/��	4j	��	=k	��		>	gnamegsource->ip-range�C�R��h(�]
45�$D45D�gfile
		%gline		%gclosures			%gfilenamefsystem/vm/traps.scm�
m
��	n	��	n	��	o	��	o	��	p	��	q	��	%q	��			%	gnamegsource-closures-or-procedures�C�R���as���������}��+���h(�]	4LL�5LLLL6	�gproc
		&grange		&gfilenamefsystem/vm/traps.scm�
�	��	�	!��	�	=��	�	!��	�	��	&�	��		&Ca�h0�]4LLLLLLOL5NM(
LL6C�gframe
		.gfilenamefsystem/vm/traps.scm�
�		��	�	��	�	��	"�	��	&�	��	,�	��		.C�hc]L6[gtrap
		gfilenamefsystem/vm/traps.scm�
�	��	�	$��		Ch m]4OM>"GNCegframe
		 gfilenamefsystem/vm/traps.scm�
�		��	�	��	�	��		 Ch��-/03##4545$"4>"G45$"4	
>"G45$"4
>"GH4�>GOO6�gfile
	�g	user-line	�ghandler		�g
current-frame		�gvm		�gtraps	��gprocs	��g	closures?	��gfilenamefsystem/vm/traps.scm�
w
��	#x	:��	*y	��	Oz	��	t{	���|	���~	���~	7���~	���}	����	��	�	
g
current-frameS	�gvmS	�gnamegtrap-at-source-location�C,R���as�������h(�]M$45M&	NL6CC�gframe
		"gfilenamefsystem/vm/traps.scm�
�	��	�	��		�	��	�	
��	�	��	�	��		"gnameg
pop-cont-hook�C�h(�]M$45M�$	NL6CC�gframe
		#gfilenamefsystem/vm/traps.scm�
�	��	�	��		�	��	�	��	�	
��	�	��	�	��		#gnameg
abort-hook�C}a�����h`�]M$"4>"G44L5L>"G44L5L>"G4L5L6�gframe
		]gfilenamefsystem/vm/traps.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	"�	��	/�	��	8�	��	;�	��	H�	��	S�	��	]�	��		]C����hH�]N44L5L>"G44L5L>"G4L5L6�gframe
		Dgfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��		�	��	�	��	�	��	"�	��	/�	��	:�	��	D�	��		DCh�_-/03#4545$"4>"G45$"4	
>"G45$"4
>"G45H
OOQQOO6Wgframe
	�greturn-handler	�g
abort-handler		�gvm		�gfp	��g
pop-cont-hook	��g
abort-hook	��gfilenamefsystem/vm/traps.scm�
�
��	�	&��	!�	��	F�	��	k�	����	����	����	��		�	
gvmS	�gnamegtrap-frame-finish�C-R����as�����h �]4M>"GNL6�gframe
		gfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��	�	��		gnameg
abort-hook�C-h �]4M>"GNL6�gframe
		gfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��	�	��		gnamegreturn-hook�C�hH�]M$"4L5$,4L>"G4LLOLL5NCC�gframe
		Fgfilenamefsystem/vm/traps.scm�
�	��	�	
��	�	��	�	��	�	��	+�	��	B�	��		Fgnameg
apply-hook�C}��hm]4L5L6egframe
		gfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��		C��hH�]M$+4M>"GN4L>"G"N4L5L6�gframe
		Cgfilenamefsystem/vm/traps.scm�
�	��	�	��		�	��	�	��	�	��	6�	��	9�	��	C�	��			CCh(-/03##45##4545$"4>"G45$"4	>"G45$"4
>"G45$"4>"GHO	
O
Q		Q

O
O6gproc
	$g
enter-handler	$greturn-handler		$g
abort-handler		$g
current-frame		$gvm		$gclosure?		$g
our-frame?		$g	exit-trap	�$g
abort-hook		�$g
apply-hook	
�$gfilenamefsystem/vm/traps.scm�
�
��	#�	9��	9�	-��	D�	��	i�	����	����	����	��$�	��
	$	
g
current-frameS	�gvmS	�gclosure?S	�g
our-frame?S	�gnamegtrap-in-dynamic-extent�C.R����as����h�]M�NC|gframe
			gfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��			gnameg
trace-push�Ch �]4LM>"GM�NC�gframe
		gfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��	�	��		gnameg	trace-pop�Ch|]LM6tgframe
		
gfilenamefsystem/vm/traps.scm�
�	��	
�	��		
gnamegtrace-apply�C.����hH�]44L5L>"G44L5L>"G4L5L6�gframe
		Agfilenamefsystem/vm/traps.scm�
�	��	�	��	�	��	�	��	�	��	�	��	,�	��	7�	��	A�	��
		Agnamegenter�C����hH�]44L5L>"G44L5L>"G4L5L6�gframe
		Agfilenamefsystem/vm/traps.scm�
	��	�	��	�	��	�	��	�	��	�	��	,�	��	7	��	A	��
		Agnamegreturn�C����hH�]44L5L>"G44L5L>"G4L5L6�gframe
		Agfilenamefsystem/vm/traps.scm�
	��	�	��	�	��	�	��	�	��	�	��	,�	��	7	��	A	��
		Agnamegabort�C���h 
-/03##45##4545$"4>"G45$"4	>"G45$"4
>"G
HOO	
O
QQ	Q

	O
	O
	O6
gproc
	g
apply-handler	greturn-handler		g
current-frame		gvm		gclosure?		g
our-frame?		g*call-depth*	�g
trace-push	�g	trace-pop		�gtrace-apply	
�gfilenamefsystem/vm/traps.scm�
�
��	#�	?��	9�	(��	D�	��	i�	����	����	��	��			
g
current-frameS	�gvmS	�gclosure?S	�g
our-frame?S	�gnamegtrap-calls-in-dynamic-extent�C/R����as���h{]L6sgframe
		gfilenamefsystem/vm/traps.scm�
	��		��		gnameg
trace-next�C.��h]4L5L6wgframe
		gfilenamefsystem/vm/traps.scm�
	��		��		��		gnamegenter�C��h�]4L5L6xgframe
		gfilenamefsystem/vm/traps.scm�
	��		��		��		gnamegreturn�C��h]4L5L6wgframe
		gfilenamefsystem/vm/traps.scm�
"	��		��		��		gnamegabort�C���h��-/03##45##4545$"4>"G45$"4	>"G
OQO
OO6
�gproc
	�gnext-handler	�g
current-frame		�gvm		�gclosure?		�g
our-frame?		�g
trace-next	��gfilenamefsystem/vm/traps.scm�

��	#	F��	9	/��	D	��	i	���%	��	�	
g
current-frameS	�gvmS	�gclosure?S	�g
our-frame?S	�gnameg#trap-instructions-in-dynamic-extent�C0R���as������-�h0�]4M>"G4MM5NNLL6�gframe
		*gfilenamefsystem/vm/traps.scm�
?	��	:	��	<	��	;	��	"=	��	*A	��		*gnamegreturn-hook�C�h(�]4M>"G4MM5NNC�gframe
		$gfilenamefsystem/vm/traps.scm�
D	��	:	��	<	��	;	��	"=	��		$gnameg
abort-hook�C�h`�]4M54L>"G45&CH4LLOLOL5KJM�NC�gframe
		\gdepth			\gfinish-trap		.	\gfilenamefsystem/vm/traps.scm�
2	��	3	��		3	��	5	��	 7	��	+7	��	.8	��	1H	��	SG	��	XJ	��	ZI	��		\gnameg
apply-hook�C�hf]L6^gdisable
		gfilenamefsystem/vm/traps.scm�
_	��	_	$��		Ch n-.,3#L4L56fgframe
		 gfilenamefsystem/vm/traps.scm�
[	��	\	)��	 \	
��		 
ChH�-.,3#4OM>"GN4L5LOC�gframe
		Dgtrap	8	Dgfilenamefsystem/vm/traps.scm�
^	��	_	��	/a	#��	1a	��	2b	&��	8b	��		D
Ch�]LLOC|gtrap
		gfilenamefsystem/vm/traps.scm�
Y	��		gnamegwith-pending-finish-disablers�C(�h��-/03#4545$"4>"G45$"4>"G45$"4	>"GH
OOQQ4
56�gproc
	�g
apply-handler	�greturn-handler		�gvm		�gpending-finish-traps	��g
apply-hook	��gwith-pending-finish-disablers	��gfilenamefsystem/vm/traps.scm�
+
��	,	,��	!-	��	F.	��	k/	���0	���0	���e	���d	��
	�	
gvmS	�gnamegtrap-calls-to-procedure�C1R���as���h�]4L5$L6C�gframe
		gfilenamefsystem/vm/traps.scm�
n	��	o	
��	
o	��	p	
��		gnameg	next-hook�C}��hm]4L5L6egframe
		gfilenamefsystem/vm/traps.scm�
t	��	u	��	u	��		C��hm]4L5L6egframe
		gfilenamefsystem/vm/traps.scm�
v	��	w	��	w	��		C
h��-/03#4545$"4>"G45$"4>"G	OQ
OO6�g
frame-pred
	�ghandler	�gvm		�g	next-hook		s�gfilenamefsystem/vm/traps.scm�
i
��	j	/��	!k	��	Fl	���r	��	�	
gvmS	�gnamegtrap-matching-instructions�C2RCgm
		,gfilenamefsystem/vm/traps.scm�		8
���	V
���	k
��	[	n
��
P	~
����
����
��!�
��!�
��#
��$�
��,
��,�=
��2z@
��5^
��6=m
��;�w
��B*�
��I��
��R(�
��W-
��_�+
��ci
��	c
C6web/server/http.go000064400000071001150536206120010134 0ustar00GOOF----LE-8-2.0�q]\4h�=]gguile�	�	gdefine-module*�	�	�	gweb�	gserver�	ghttp�		�	
gfilenameS�	fweb/server/http.scm�	gimportsS�	
gsrfi�	gsrfi-1�	
�	gselectS�	gfold�	�	�	gsrfi-9�	
�	�	grnrs�	gbytevectors�	�	�	grequest�	�	�	gresponse�	�	 �	!�	"!�	#gice-9�	$gpoll�	%#$�	&%�	' "&�	(gexportsS�	)�	*gset-current-module�	+*�	,*�	-gsocket�	.gPF_INET�	/gSOCK_STREAM�	0g
setsockopt�	1g
SOL_SOCKET�	2gSO_REUSEADDR�	3gbind�	4gmake-default-socket�	5g
<http-server>�	6g%make-http-server-procedure�	7gmake-syntax-transformer�	87�	97�	:gmake-http-server�	;gmacro�	<g$sc-dispatch�	=<�	><�	?g_�	@gany�	A?@@@�	Bg
syntax-object�	Cglambda�	Dg
m-1e74a72e9-e�	Egtop�	FDE�	Ggribcage�	Hg
t-1e74a72e9-b�	Ig
t-1e74a72e9-c�	Jg
t-1e74a72e9-d�	KHIJ�	LFFF�	Mfl-1e74a72e9-13�	Nfl-1e74a72e9-14�	Ofl-1e74a72e9-15�	PMNO�	QGKLP�	RG�	Sgx�	TS�	UF�	Vfl-1e74a72e9-10�	WV�	XGTUW�	Ygshift�	Zg	proc-name�	[gargs�	\Z[�	]E�	^]]�	_fl-1e8ba8b5a-2ba�	`fl-1e8ba8b5a-2bb�	a_`�	bG\^a�	cgkey�	dgvalue�	egname�	fgformals�	ggbody�	hcdefg�	i]]]]]�	jfl-1e8ba8b5a-2ad�	kfl-1e8ba8b5a-2ae�	lfl-1e8ba8b5a-2af�	mfl-1e8ba8b5a-2b0�	nfl-1e8ba8b5a-2b1�	ojklmn�	pGhio�	qgmake-procedure-name�	rq�	s]�	tfl-1e8ba8b5a-29d�	ut�	vGrsu�	w]�	xfl-1e8ba8b5a-29c�	yx�	zGTwy�	{FQRXYRRRRbpvz
�	|ghygiene�	}|
�	~BC{}�	]QRX��|��B-���gpoll-idx��B����gpoll-set��B���������gmake-struct��g
m-1e74a72e9-9���E��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���E�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������G�����g	ctor-args�����fl-1e8ba8b5a-37a�����G�w���gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������G�^���gform��g	type-name��gconstructor-spec��gfield-names��������]]]]��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������G�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������]]]]]]]]��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������G�����fl-1e8ba8b5a-334�����GTw����QRXYR�RRR��R�����B��}��B5���B
�}����������~����geach-any��?ˌ��gsyntax-violation��������fWrong number of arguments��gidentifier?��������]RX��B6����������f-source expression failed to match any pattern��grecord-type-vtable��������gpwpwpw��gdefault-record-printer��������-����gset-struct-vtable-name!��������gvtable-offset-user��������g%http-server?-procedure��ghttp-server?��?@��gm-1e74a72e9-1f���E��gt-1e74a72e9-1e��������fl-1e74a72e9-24�����G�����fl-1e74a72e9-21�����GT������R�YRRRRbpvz
��BC�}��gobj��gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b����������gm-1e8ba8b5a-47f�E��fl-1e8ba8b5a-483�fl-1e8ba8b5a-484�fl-1e8ba8b5a-485�fl-1e8ba8b5a-486�fl-1e8ba8b5a-487�fl-1e8ba8b5a-488�	fl-1e8ba8b5a-489�
	�G�
�g	copier-id�
�fl-1e8ba8b5a-476��G
w�g	ctor-name��fl-1e8ba8b5a-46e��Gw���fl-1e8ba8b5a-46c��Gw�glayout��fl-1e8ba8b5a-46a��Gw�g
immutable?� �!fl-1e8ba8b5a-468�"!�#G w"�$gfield-count�%$�&fl-1e8ba8b5a-466�'&�(G%w'�)g
getter-ids�*)�+fl-1e8ba8b5a-463�,+�-G*w,�.g	field-ids�/.�0fl-1e8ba8b5a-460�10�2G/w1�3gpredicate-name�4g
field-spec�5���34�6]]]]]]�7fl-1e8ba8b5a-453�8fl-1e8ba8b5a-454�9fl-1e8ba8b5a-455�:fl-1e8ba8b5a-456�;fl-1e8ba8b5a-457�<fl-1e8ba8b5a-458�=789:;<�>G56=�?��R�YRRRRRRRRR#R(R-R2>���@B�?}�A@�Bgand�CBB?}�Dgstruct?�EBD?}�FE@�Ggeq?�HBG?}�Ig
struct-vtable�JBI?}�KJ@�L]�R��MB5L��NHKM�OCFN�P�AO�Q]R��RB�Q��Sgthrow-bad-struct�TS�US�Vghttp-socket�Wg%http-socket-procedure�Xgfree-id�Yg
%%on-error�Zgm-1e74a72e9-2b�[ZE�\[�]fl-1e74a72e9-2d�^]�_GT\^�`[R_YRRRRbpvz�aBY`}�bXa�cb@�dg%%type�egt-1e8ba8b5a-3a5�fgt-1e8ba8b5a-3a6�ggt-1e8ba8b5a-3a7�hgt-1e8ba8b5a-3a8�igt-1e8ba8b5a-3a9�jgt-1e8ba8b5a-3aa�kgt-1e8ba8b5a-3ab�lefghijk�mgm-1e8ba8b5a-3ac�nmE�onnnnnnn�pfl-1e8ba8b5a-3b0�qfl-1e8ba8b5a-3b1�rfl-1e8ba8b5a-3b2�sfl-1e8ba8b5a-3b3�tfl-1e8ba8b5a-3b4�ufl-1e8ba8b5a-3b5�vfl-1e8ba8b5a-3b6�wpqrstuv�xGlow�yggetter�zgindex�{yz�|fl-1e8ba8b5a-3a3�}fl-1e8ba8b5a-3a4�~|}�G{^~���)��]]]��fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0�������G������R_YRxRRRR�����Bd�}��X���?c�@��gck��gerr��gs������[[��fl-1e74a72e9-30��fl-1e74a72e9-31������G�����[�R_YRRRRbpvz
��B��}��gquote��B��}��]�R_��B5�����������g%%index��B��}��X���?c�@��fl-1e74a72e9-35��fl-1e74a72e9-36������G�����[�R_YRRRRbpvz
��B��}��B��}���R_��B
�����������g%%copier��B��}��X���?c�@��fl-1e74a72e9-3a��fl-1e74a72e9-3b������G�����[�R_YRRRRbpvz
��B��}��B��}��g%%<http-server>-set-fields��]�R_��B������������gt-1e74a72e9-2a�����fl-1e74a72e9-3f�����G�\���[�R_YRRRRbpvz
��BC�}����R_YRxRRRR�����B��}�����gif��B��}��BG�}��BI�}������]�R_��B5���������g
struct-ref��B��}���R_��B
���������BS�}��B��}��BV������������������������]R_��BW����g
http-poll-idx��g%http-poll-idx-procedure��gm-1e74a72e9-46���E�����fl-1e74a72e9-48�����GT�����R�YRRRRbpvz��BY�}��X����@���R�YRxRRRR�����Bd�}��X���?��@������fl-1e74a72e9-4b��fl-1e74a72e9-4c������G�������R�YRRRRbpvz
��B��}��B��}��]�R���B5�����������B��}��X���?��@��fl-1e74a72e9-50��fl-1e74a72e9-51������G�������R�YRRRRbpvz
��B��}�B��}��R��B����B��}�X�?�@�fl-1e74a72e9-55�	fl-1e74a72e9-56�
	�G��
��R�YRRRRbpvz
�
B�}�B�}�]R��B�����gt-1e74a72e9-45��fl-1e74a72e9-5a��G���R�YRRRRbpvz
�BC}��R�YRxRRRR����B�}��B�}�BG}�BI}� �!]R��"B5!��# "�$B�}�%R��&B%��'$&�(BS}�)B�}�*B�!��+)*�,(+�-#',�.-�/]R��0B�/��1g
http-poll-set�2g%http-poll-set-procedure�3gm-1e74a72e9-61�43E�54�6fl-1e74a72e9-63�76�8GT57�94R8YRRRRbpvz�:BY9}�;X:�<;@�=�R8YRxRRRR����>Bd=}�?X>�@?<?@�A44�Bfl-1e74a72e9-66�Cfl-1e74a72e9-67�DBC�EG�AD�F4ER8YRRRRbpvz
�GB�F}�HB�F}�I]ER8�JB5I��KHJ�LK�MB�=}�NXM�O?<N@�Pfl-1e74a72e9-6b�Qfl-1e74a72e9-6c�RPQ�SG�AR�T4SR8YRRRRbpvz
�UB�T}�VB�T}�WSR8�XB	W��YVX�ZY�[B�=}�\X[�]?<\@�^fl-1e74a72e9-70�_fl-1e74a72e9-71�`^_�aG�A`�b4aR8YRRRRbpvz
�cB�b}�dB�b}�e]aR8�fB�e��gdf�hg�igt-1e74a72e9-60�ji�kfl-1e74a72e9-75�lk�mGj5l�n4mR8YRRRRbpvz
�oBCn}�p�mR8YRxRRRR����qB�p}�rq�sB�p}�tBGp}�uBIp}�vuq�w]mR8�xB5w��ytvx�zB�p}�{mR8�|B	{��}zq|�~BSp}�B�p}��B1w������~q���sy}���or���]R8��B2����geach��@@������@����@����@����g%%set-fields��gdummy��gcheck?��gexpr�����y���gm-1e74a72e9-7c���E���������fl-1e74a72e9-81��fl-1e74a72e9-82��fl-1e74a72e9-83��fl-1e74a72e9-84��fl-1e74a72e9-85���������G��������fl-1e74a72e9-7e�����GT����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���E�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������G�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������G�������R�YR�RRR���
��B��}��]�R���B5����BV����B�����B1���������gmap��������glist��gset-http-poll-idx!��g%set-http-poll-idx!-procedure��?@@��gm-1e74a72e9-90���E��gt-1e74a72e9-8e��gt-1e74a72e9-8f����������fl-1e74a72e9-95��fl-1e74a72e9-96������G��������fl-1e74a72e9-92�����GT������R�YRRRRbpvz
��BC�}��gt-1e8ba8b5a-3e6��gt-1e8ba8b5a-3e7������gm-1e8ba8b5a-3e8���E������fl-1e8ba8b5a-3ec��fl-1e8ba8b5a-3ed������G�����gsetter��ey���fl-1e8ba8b5a-3e0��fl-1e8ba8b5a-3e1��fl-1e8ba8b5a-3e2�������G�����4z��fl-1e8ba8b5a-3d7��fl-1e8ba8b5a-3d8������G�^���gfield-specs������fl-1e8ba8b5a-3d3��fl-1e8ba8b5a-3d4������G�^�����R�YR��R�R�����B��}��gval��B��}������B��}��BG�}��BI�}������]�R���B5���������gstruct-set!��B��}���R���B����������BS�}��B��}��B�����������������]R��B���gPOLLHUP�gPOLLERR�g*error-events*�	gPOLLIN�
g
*read-events*�g*events*�ghostS�

��gfamilyS���gaddrS�	��gportS�	��gsocketS�	��
�gAF_INET�g	inet-pton�gINADDR_LOOPBACK�glisten�g	sigaction�gSIGPIPE�gSIG_IGN�gmake-empty-poll-set�g
poll-set-add!� g	http-open�!gwrite-response�"gbuild-response�#gversionS�$
��%gcodeS�&gheadersS�'gcontent-length�('
��)(�*gbad-request�+gpoll-set-revents�,g
<poll-set>�-%,�.%,�/g
poll-set-nfds�0gaccept�1g
poll-set-port�2gsetvbuf�3g_IOFBF�4g	SO_SNDBUF�5gthrow�6g	interrupt�7gpoll-set-remove!�8geof-object?�9g	peek-char�:g
close-port�;gwith-throw-handler�<gread-request�=gread-request-body�>gcatch�?gformat�@gcurrent-error-port�AfIn ~a:
�Bgport�C*B�Dgprint-exception�E:B�Fg	http-read�Gg
<response>�HG�IG�Jgresponse-version�Kg
response-code�Lgmemq�Mgclose�Ngresponse-connection�Og
keep-alive�Pgkeep-alive?�Qg
response-port�Rgbytevector?�Sgwrite-response-body�Tgerror�UfExpected a bytevector for body�Vgforce-output�Wg
http-write�Xg
http-close�Ygserver-impl�Z!Y�[!Y�C5hh//] 4	
'()54,>"G-./0123h@�]4
54>"G4>"GC�gfamily
		@gaddr		@gport			@gsock			@gfilenamefweb/server/http.scm�
	(
��		)	��		)	��		*	��	&	+	��		@	gnamegmake-default-socket�C4R5h�]�C�gsocket
		gpoll-idx		gpoll-set			gfilenamefweb/server/http.scm�
	.
��			gnameg%make-http-server-procedure�C6R49:;>A�hk]Ccg
t-1e74a72e9-b
		g
t-1e74a72e9-c		g
t-1e74a72e9-d						C��:�hV]L6Nga
		gfilenamefweb/server/http.scm�		.
��		C?�hF]L6>gfilenamefweb/server/http.scm�		.
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/server/http.scm�
	.
��		nC5:R���5�4�5>"G	�6i�5R5h{]�$��CCsgobj
		gfilenamefweb/server/http.scm�
	.
��		gnameg%http-server?-procedure�C�R49�;>�Ph6]C.gt-1e74a72e9-1e
		
		
C����hV]L6Nga
		gfilenamefweb/server/http.scm�		.
��		C?�hF]L6>gfilenamefweb/server/http.scm�		.
��		
CRh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/server/http.scm�
	.
��		nC5�R5UVhx]�&
�C6pgs
		gfilenamefweb/server/http.scm�
	.
��		gnameg%http-socket-procedure�CWR49V;>���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h6]C.gt-1e74a72e9-2a
		
		
C��V�hV]L6Nga
		gfilenamefweb/server/http.scm�		.
��		C?�hF]L6>gfilenamefweb/server/http.scm�		.
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/server/http.scm�
	.
��	�C5VR5U�hz]�&�C6rgs
		gfilenamefweb/server/http.scm�
	.
��		gnameg%http-poll-idx-procedure�C�R49�;>���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					C
h:]��C2gerr
		gs					C�.h6]C.gt-1e74a72e9-45
		
		
C����hV]L6Nga
		gfilenamefweb/server/http.scm�		.
��		C?�hF]L6>gfilenamefweb/server/http.scm�		.
��		
C0h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/server/http.scm�
	.
��	�C5�R5U1h z]�&	�C6rgs
		gfilenamefweb/server/http.scm�
	.
��		gnameg%http-poll-set-procedure�C2R491;>@GLh:]��C2gerr
		gs					COUZh:]��C2gerr
		gs					C]chh:]��C2gerr
		gs					C��h6]C.gt-1e74a72e9-60
		
		
C��1�hV]L6Nga
		gfilenamefweb/server/http.scm�		.
��		C?�hF]L6>gfilenamefweb/server/http.scm�		.
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/server/http.scm�
	.
��	�C51R49�;>������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefweb/server/http.scm�
	.
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R5U�h �]�&�C6�gs
		gval		gfilenamefweb/server/http.scm�
	.
��			gnameg%set-http-poll-idx!-procedure�C�R49�;>�hR]CJgt-1e74a72e9-8e
		gt-1e74a72e9-8f					C����hV]L6Nga
		gfilenamefweb/server/http.scm�		.
��		C?�hF]L6>gfilenamefweb/server/http.scm�		.
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/server/http.scm�
	.
��		nC5�Rii�R	i
Ri
i�R45h�g-/03###$
45"#�#
454�>"G4	>"G4
54>"G

�C_ghost
	�gfamily	�gaddr		�gport		�gsocket		�gpoll-set	��gfilenamefweb/server/http.scm�
	:
��	2	=	��	3	>	��	U	A	��	b	B	��	w	C	���	D	���	D	���	E	���	F	��	�

ghostS
�gfamilyS�gaddrS	�gportS	�gsocketS	�gnameg	http-open�C R!"#$%&)h �]4�56�gport
		gfilenamefweb/server/http.scm�
	H
��		I	��		I	,��		J	,��		I	��		I	��		gnamegbad-request�C*R5U1+$./0123014�56789:;<=hy]4L5L45Dqgreq
			gfilenamefweb/server/http.scm�
	}	��		~	��			~	��	�	��			��		
C>*hP]L6Hgfilenamefweb/server/http.scm�
�	��	�	 ��		
C?@ACDh0j-13445>"G456bgk
			0gargs			0gfilenamefweb/server/http.scm�
�	��			0
C:hP]L6Hgfilenamefweb/server/http.scm�
�	��	�	 ��		
C?@AEDh0j-13445>"G456bgk
			0gargs			0gfilenamefweb/server/http.scm�
�	��			0
Ch8|-134LO>"GLO6tgk
			1gargs			1gfilenamefweb/server/http.scm�
�	��	
�	��	1�	��			1
C�h��])�&		�"	45"�45
�$�
�$34>"G�&�"	45�"����
�$�4	4
554�>"G4
�0>"G4�>"G4>"G�&�"	45�"���&�"4>"G6
�$	�"���45��&�"4>"G4455$4>"G�"��yOO6�&�"	45"��F�gserver
	�gpoll-set	�gidx		#�grevents		,�gclient	�gport	M�gval	Rgfilenamefweb/server/http.scm�
	N
��		O	��		O	��	#	P	��	$	Q	��	,	Q	��	1	S	
��	6	R	��	9	V	��	>	U	
��	?	X	��	S	Y	��	k	Y	��	q	Y	��	v	Z	��	w	Z	��	|	U	
��	}	b	���	b	"���	b	���	b	���	d	���	d	���	d	���	f	���	f	���	f	<���	f	���	g	���	g	&���	g	���	h	���	i	���	i	��	i	��	\	��1	]	��3	]	��6	j	
��;	R	��>	l	��D	l	
��E	p	��M	p	
��R	s	'��R	s	���	u	���	u	���	u	���	t	���	w	���	x	���	x	���	{	���	P	���	P	���	P	��:	�gnameg	http-read�CFRIUJKLMNO	h�]�&
�"	45�&�"	45��$"�&�"	45��$C��$4��$4455�C
�$
456CCCwgresponse
	�gv	�gt		<	jgkey		q�gkey		~�gfilenamefweb/server/http.scm�
�
��	�	��	�	��	!�	��	<�	
��	<�		��	L�	��	g�	
��	n�	��	q�	��	q�		��	~�	��	~�	����	����	����	%����	����	����	����	����	%����	��	�gnamegkeep-alive?�CPR!IUQRSTUPV51:h��]45�&		�"	45$;45$4>"G"4>"G"4	5$E4
>"G4�&		�"	4
5>"G"4>"GD�gserver
	�gclient	�gresponse		�gbody		�gresponse		�gport		(�gfilenamefweb/server/http.scm�
�
��	�	��	�	��	�	��	(�	��	0�	��	1�	��	;�	��	<�	��	T�	��	X�	
��	_�	��	l�	��	v�	��	w�	����	����	����	����	����	��	�	gnameg
http-write�CWR5U1:7./hp]�&		�"	45"-
�$#44�5>"G�"���C�&�"	45"���gserver
		pgpoll-set		pgn		#	Pgfilenamefweb/server/http.scm�
�
��	�	��	�	��	#�	��	&�	
��	+�	��	,�	��	/�	��	6�	3��	8�	��	=�	��	H�	��	N�	��	P�	��	S�	��	p�	��		pgnameg
http-close�CXR iFiWiXi[�RC'gm
		,grtd
�!gopen
/=/agread/=/agwrite	/=/agclose	/=/agfilenamefweb/server/http.scm�		
��[	(
��1	.
��P	5	��T	5
��]	6
��h	7	��l	7
���	:
���	H
��(p	N
��*��
��-q�
��/)�
��/=�
��	/f
C6web/client.go000064400000102527150536206120007135 0ustar00GOOF----LE-8-2.0?�]4hh]gguile�	�	gdefine-module*�	�	�	gweb�	gclient�	�		gfilenameS�	
fweb/client.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	gice-9�	gbinary-ports�	�	�	giconv�	�	�	grdelim�	�	�	grequest�	�	�	gresponse�	�	�	 guri�	! �	"!�	#ghttp�	$#�	%$�	&gsrfi�	'gsrfi-1�	(&'�	)(�	*gsrfi-9�	+&*�	,+�	-ggnu�	.&*-�	/.�	0"%),/�	1gexportsS�	2gcurrent-http-proxy�	3gopen-socket-for-uri�	4ghttp-get�	5g	http-get*�	6g	http-head�	7g	http-post�	8ghttp-put�	9ghttp-delete�	:g
http-trace�	;ghttp-options�	<23456789:;
�	=gset-current-module�	>=�	?=�	@gmake-parameter�	Aggetenv�	Bf
http_proxy�	Cf�	Dgstring?�	Egstring->uri�	Fgerror�	GfInvalid URI�	Hg<uri>�	I!H�	J!H�	Kg
ensure-uri�	Lgthrow-bad-struct�	M+L�	N+L�	Oguri-port�	Pgdelete-duplicates�	Qggetaddrinfo�	Rguri-host�	Sgnumber->string�	Tgsymbol->string�	Ug
uri-scheme�	VgAI_NUMERICSERV�	Wg
addrinfo:addr�	Xg%default-port-encoding�	Ygsocket�	Zgaddrinfo:fam�	[gSOCK_STREAM�	\g
IPPROTO_IP�	]gcatch�	^gsystem-error�	_gconnect�	`gsetvbuf�	ag_IOFBF�	bgset-http-proxy-port?!�	cgclose�	dgthrow�	eg	<request>�	fe�	ge�	hg
assoc-set!�	ig	copy-tree�	jg%%<request>-set-fields�	kgextend-request�	lgrequest-content-type�	mg
text/plain�	nm�	ogassq-ref�	pgcharset�	qgsanitize-request�	rgcontent-type�	sgappend�	ts�	us�	vfutf-8�	wgstring->bytevector�	xg
procedure?�	ygcall-with-encoded-output-string�	zgbytevector?�	{grequest-content-length�	|gbytevector-length�	}fbad content-length�	~gcontent-length�	funexpected body type��fcontent-length, but no body��gassq��gtransfer-encoding��grequest-headers��f*transfer-encoding not allowed with no body��gvu8
	�j��gresponse-content-length��gresponse-content-type��gtext-content-type?��gbytevector->string��f
iso-8859-1��gdecode-response-body��gbodyS������gportS���	���gmethodS���	���gversionS���	���gkeep-alive?S���	���gheadersS���	���gdecode-body?S���	���g
streaming?S���	���grequestS���		������������	��gGET�����g
build-request��g
connection���c��g
write-request��gwrite-request-body��gforce-output��grequest-port��g
read-response��grequest-method��gHEAD��g
close-port��gresponse-body-port��gdecode?S��gread-response-body���	����	���g
extra-headersS���	�������������gissue-deprecation-warning��fHThe #:extra-headers argument to http-get has been renamed to #:headers. ��fPlease update your code.�����������f"`http-get*' has been deprecated.  ��fBInstead, use `http-get' with the #:streaming? #t keyword argument.��gmake-syntax-transformer��������gdefine-http-verb��gmacro��g$sc-dispatch��������gany��������g
syntax-object��gdefine*��gtop�����gribcage��gdummy��g	http-verb��gmethod��gdoc��������gm-1a596c681-fb������������fl-1a596c681-100��fl-1a596c681-101��fl-1a596c681-102��fl-1a596c681-103�����������������gx��������fl-1a596c681-fd�����������������ghygiene������������ ����gkeyS��������gbody�����������������gport���������3������������gversion��������gquote������������������������gkeep-alive?������������gheaders���������������gdecode-body?���������������g
streaming?��������������	��������������������	�����
���������������
������	�
���
�gsyntax-violation���f-source expression failed to match any pattern��	���	���	�������gPOST�gPUT�gDELETE�gTRACE�gOPTIONS�C5hho-]4	
01<54?>"G4@i4AiB5C�$"52RDEFGJh@�]45$6"6�$�&C"���"����g
uri-or-string
		:gfilenamefweb/client.scm�
	=
��		?	��	
	>	��		?	��		A	��		A		��		>	��	"	@	��	&	>	��	)	@	��		:gnameg
ensure-uri�CKR2KJNOPQRSTUVWh|]4545�Ctgai1
		gai2		gfilenamefweb/client.scm�
	P	��		Q	��	
	Q	%��		Q		��			CXYZ[\]^_W`abhPq]4L4L5>"G4L>"GM$4L>"G"LCigfilenamefweb/client.scm�
	Y	��		Z	
��		Z	��		Z	
��		]	
��	5	_	
��	6	_	��		O
Ccdh0�-134L>"GL�(@LL�6~gargs
			/gfilenamefweb/client.scm�
	a	��	
	c	
��		d	��	"	d	
��	(	e	��	-	f	��	/	f	��			/


C
h@�]�Y4455ZLO	LO6�g	addresses
		;gai		;gs			;gfilenamefweb/client.scm�
	S	��		T	��		T	��	
	W	��		W	��		W	��		T	��	#	X	
��	;	X	��
		;gnamegloop�Ch��]!HHH45K4J$J"5KJ�&	J	�"	4J544J�&	J	�"	4J5$4	5"4
J�&J
�"	4J55$"
5
5KOQJ6�g
uri-or-string
	�g
http-proxy	�guri		�g	addresses		�gport		B�gloop	��gfilenamefweb/client.scm�
	C
��		E	��		F	��		F	��	%	F	��	*	H	��	B	H	��	E	I	��	H	J	��	M	J	��	k	K	��	w	L	 ��	|	L	0���	L	 ���	M	���	J	���	I	���	S	��	�gnamegopen-socket-for-uri�g
documentationf9Return an open input/output port for a connection to URI.�C3RghiNjkhh-13�&3
��	�44	�55	�	��"	45(C@�gr
			agk			agv				ag
additional				agr		N	agfilenamefweb/client.scm�
	h
��		i	��	"	j	��	%	j	"��	,	j	-��	.	j	"��	4	j	��	9	i	��	N	i	��	V	l	��	a	n	��			a	
	gnamegextend-request�CkRDlnopqkruvwxyz{|F}~���gN���h��]$45$T454�5$"44	
�554$"
5645$T454�5$"44	
�554
$"
5645$K4545$�$"45"45D645$"
�$"4>"G"<4�&		�"	455$4>"G"D}grequest
	�gbody	�gtype			ggdeclared-charset		(	ggtype		{�gdeclared-charset	��grlen	�gblen	�glength	)�	gfilenamefweb/client.scm�
	q
��	�	��		�	��	�	��	�	��	�	/��	�	��	�	��	�	��	$�	'��	&�	2��	(�	��	(�	��	2�	��	9�	��	?�	#��	@�	��	H�	)��	I�	��	P�	��	Q�	��	[�	��	c�	)��	e�	��	g�	��	h�	��	r�	��	s�	��	y�	(��	{�	��	{�	��	~�	����	'����	2����	����	����	����	����	#����	����	)����	����	����	����	����	)����	����	����		����	����	����	����	����	����	����	����	����	 ���	���	���	-���	���	�� �	��"�	��#�	��)�	��1�	��4�	��9�	
��>�	��B�	��G�	��T�	��X�	��[�	)��u�	��y�	
��z�	��~�	����	����	����	��T	�	gnamegsanitize-request�g
documentationk0"Sanitize" the given request and body, ensuring that they are
complete and coherent.  This method is most useful for methods that send
data to the server, like POST, but can be used for any method.  Return
two values: a request and a bytevector, possibly the same ones that were
passed as arguments.

If BODY is a string, encodes the string to a bytevector, in an encoding
appropriate for REQUEST.  Adds a  content-length  and  content-type 
header, as necessary.

If BODY is a procedure, it is called with a port as an argument, and the
output collected as a bytevector.  In the future we might try to instead
use a compressing, chunk-encoded port, and call this procedure later.
Authors are advised not to rely on the procedure being called at any
particular time.

Note that we rely on the request itself already having been validated,
as is the case by default with a request returned by `build-request'.�CqRz�|���op�F}
h��]"$�45${4545"D45$24�5$#4�5$"	6CC$�$"���
6"���
6C�gresponse
	�gbody	�grlen		!�gblen		!�gt		0	mgt		R	egfilenamefweb/client.scm�
�
��	�	��		�	��	�	��	�	��	�	��	!�	��	*�	��	0�	��	9�	��	>�	#��	@�	��	D�	
��	I�	,��	N�	6��	P�	A��	R�	,��	R�	(��	b�	,��	g�	��	m�	��	x�	��	|�	����	����	����	����	��	�	gnamegdecode-response-body�C�R�3���K�����q���gN����������h��-/
0
3##	45######	#-445	$"
�5		4	>G
4

5$4>"G"4�&		�"	45>"G45
�&
�"	45&!$"4>"G
D$
4
5D4
5$"4>"G
$
4
5"D�guri
	�gbody	�gport		�gmethod		�gversion		�gkeep-alive?		�gheaders		�gdecode-body?		�g
streaming?		�grequest			�grequest	
��gbody	��grequest	��gresponse	
�gbody	h�gfilenamefweb/client.scm�
�
��	#�	��	3�	��	=�	��	O�	��	j�	��	m�	����	����	(����	"����	����	����	����	����	����	����	
����	����	����	����	���	��
�	��#�	*��'�	
��-�	��2�	��H�	��N�	
��Q�	��a�	��b�	��h�	��p�	��u�	����	����	����	��'	�
gbodyS�gportS	�gmethodS	�gversionS	�gkeep-alive?S	�gheadersS	�gdecode-body?S	�g
streaming?S	�grequestS		�
gnamegrequest�CR�3�������������h�)-/	0	3	##	45####$"##$4>"G"	

6!guri
	�gbody	�gport		�gversion		�gkeep-alive?		�g
extra-headers		�gheaders		�gdecode-body?		�g
streaming?		�	gfilenamefweb/client.scm�
�
��	#�	��	3�	��	S�	/��	Z�	A��	t	��	u	��	y	��	{	���	���	���	��
	�
gbodyS�gportS	�gversionS	�gkeep-alive?S	�g
extra-headersS	�gheadersS	�gdecode-body?S	�g
streaming?S	�	gnameghttp-get�g
documentationk�Connect to the server corresponding to URI and ask for the
resource, using the  GET  method.  If you already have a port open,
pass it as PORT.  The port will be closed at the end of the
request unless KEEP-ALIVE? is true.  Any extra headers in the
alist HEADERS will be added to the request.

If BODY is not  #f , a message body will also be sent with the HTTP
request.  If BODY is a string, it is encoded according to the
content-type in HEADERS, defaulting to UTF-8.  Otherwise BODY should be
a bytevector, or  #f  for no body.  Although it's allowed to send a
message body along with any request, usually only POST and PUT requests
have bodies.  See  http-put  and  http-post  documentation, for more.

If DECODE-BODY? is true, as is the default, the body of the
response will be decoded to string, if it is a textual content-type.
Otherwise it will be returned as a bytevector.

However, if STREAMING? is true, instead of eagerly reading the response
body from the server, this function only reads off the headers.  The
response body will be returned as a port on which the data may be read.
Unless KEEP-ALIVE? is true, the port will be closed after the full
response body has been read.

Returns two values: the response read from the server, and the response
body as a string, bytevector, #f value, or as a port (if STREAMING? is
true).�C4R�3����4�������h�-/03##	45####$"#4>"G	

6guri
	�gbody	�gport		�gversion		�gkeep-alive?		�g
extra-headers		�gheaders		�gdecode-body?		�gfilenamefweb/client.scm�
!
��	##	��	3$	��	S&	0��	Z&	B��	f)	��	j*	��	l+	��	q)	���,	��	�
gbodyS�gportS	�gversionS	�gkeep-alive?S	�g
extra-headersS	�gheadersS	�gdecode-body?S	�gnameg	http-get*�g
documentationf2Deprecated in favor of (http-get #:streaming? #t).�C5R4��������	h(i]�������Cagdummy
		#g	http-verb		#gmethod			#gdoc			#		#	Ch(�]	45$@6�gx
		"gtmp		"gfilenamefweb/client.scm�
0
��		"g
macro-typegsyntax-rules�gpatternsg	http-verbgmethodgdocC5�R3����������h��-/03##	45#####	

6�guri
		gbody		gport			gversion			gkeep-alive?			gheaders			gdecode-body?			g
streaming?			gfilenamefweb/client.scm�
@
��	eA	��	@
��		
gbodyS�gportS	�gversionS	�gkeep-alive?S	�gheadersS	�gdecode-body?S	�g
streaming?S	�gnameg	http-head�g
documentationk@Fetch message headers for the given URI using the HTTP "HEAD"
method.

This function is similar to  http-get , except it uses the "HEAD"
method.  See  http-get  for full documentation on the various keyword
arguments that are accepted by this function.

Returns two values: the resulting response, and  #f .  Responses to HEAD
requests do not have a body.  The second value is only returned so that
other procedures can treat all of the http-foo verbs identically.�C6R3���������h�i-/03##	45#####	

6aguri
		gbody		gport			gversion			gkeep-alive?			gheaders			gdecode-body?			g
streaming?			gfilenamefweb/client.scm�
M
��	eN	��	M
��		
gbodyS�gportS	�gversionS	�gkeep-alive?S	�gheadersS	�gdecode-body?S	�g
streaming?S	�gnameg	http-post�g
documentationk�Post data to the given URI using the HTTP "POST" method.

This function is similar to  http-get , except it uses the "POST"
method.  See  http-get  for full documentation on the various keyword
arguments that are accepted by this function.

Returns two values: the resulting response, and the response body.�C7R3���������h�]-/03##	45#####	

6Uguri
		gbody		gport			gversion			gkeep-alive?			gheaders			gdecode-body?			g
streaming?			gfilenamefweb/client.scm�
W
��	eX	��	W
��		
gbodyS�gportS	�gversionS	�gkeep-alive?S	�gheadersS	�gdecode-body?S	�g
streaming?S	�gnameghttp-put�g
documentationk�Put data at the given URI using the HTTP "PUT" method.

This function is similar to  http-get , except it uses the "PUT"
method.  See  http-get  for full documentation on the various keyword
arguments that are accepted by this function.

Returns two values: the resulting response, and the response body.�C8R3���������h��-/03##	45#####	

6}guri
		gbody		gport			gversion			gkeep-alive?			gheaders			gdecode-body?			g
streaming?			gfilenamefweb/client.scm�
a
��	eb	��	a
��		
gbodyS�gportS	�gversionS	�gkeep-alive?S	�gheadersS	�gdecode-body?S	�g
streaming?S	�gnameghttp-delete�g
documentationk�Delete data at the given URI using the HTTP "DELETE" method.

This function is similar to  http-get , except it uses the "DELETE"
method.  See  http-get  for full documentation on the various keyword
arguments that are accepted by this function.

Returns two values: the resulting response, and the response body.�C9R3���������h�-/03##	45#####	

6�guri
		gbody		gport			gversion			gkeep-alive?			gheaders			gdecode-body?			g
streaming?			gfilenamefweb/client.scm�
k
��	el	��	k
��		
gbodyS�gportS	�gversionS	�gkeep-alive?S	�gheadersS	�gdecode-body?S	�g
streaming?S	�gnameg
http-trace�g
documentationkdSend an HTTP "TRACE" request.

This function is similar to  http-get , except it uses the "TRACE"
method.  See  http-get  for full documentation on the various keyword
arguments that are accepted by this function.

Returns two values: the resulting response, and the response body.�C:R3���������h��-/03##	45#####	

6�guri
		gbody		gport			gversion			gkeep-alive?			gheaders			gdecode-body?			g
streaming?			gfilenamefweb/client.scm�
u
��	ev	��	u
��		
gbodyS�gportS	�gversionS	�gkeep-alive?S	�gheadersS	�gdecode-body?S	�g
streaming?S	�gnameghttp-options�g
documentationk Query characteristics of an HTTP resource using the HTTP "OPTIONS"
method.

This function is similar to  http-get , except it uses the "OPTIONS"
method.  See  http-get  for full documentation on the various keyword
arguments that are accepted by this function.

Returns two values: the resulting response, and the response body.�C;RC%gm
		,gproxy
	:	Ogfilenamefweb/client.scm�		!
��	-	9	��	2	9	��	8	9	'��	:	9	��	:	9	��	@	:	,��	A	:	��	E	:	��	Q	9	��	T	8
��n	=
���	C
��	&	h
���	q
�� �
��%��
��=��
��@�!
��K�@
��R�M
��ZW
��a@a
��g�k
��odu
��	of
C6web/server.go000064400000140721150536206120007163 0ustar00GOOF----LE-8-2.0��]�4h�I]gguile�	�	gdefine-module*�	�	�	gweb�	gserver�	�		gfilenameS�	
fweb/server.scm�	gimportsS�	gsrfi�	
gsrfi-9�	
�	�	ggnu�	
�	�	grnrs�	gbytevectors�	�	�	gice-9�	gbinary-ports�	�	�	grequest�	�	�	gresponse�	�	 �	!gsystem�	"grepl�	#gerror-handling�	$!"#�	%$�	&gcontrol�	'&�	('�	)giconv�	*)�	+*�	, %(+	�	-gexportsS�	.gdefine-server-impl�	/glookup-server-impl�	0gmake-server-impl�	1gserver-impl?�	2gserver-impl-name�	3gserver-impl-open�	4gserver-impl-read�	5gserver-impl-write�	6gserver-impl-close�	7gopen-server�	8gread-client�	9ghandle-request�	:gsanitize-response�	;gwrite-client�	<gclose-server�	=gserve-one-client�	>g
run-server�	?./0123456789:;<=>�	@gset-current-module�	A@�	B@�	Cggettimeofday�	Dg*timer*�	Egpk�	Fg
print-elapsed�	Ggmake-syntax-transformer�	HG�	IG�	Jg
debug-elapsed�	Kgmacro�	Lg$sc-dispatch�	ML�	NL�	Og_�	Pgany�	QOP�	Rg
*time-debug?*�	Sg
syntax-object�	Tgtop�	UT�	Vgribcage�	Wgwho�	XW�	YU�	Zf
l-1e6f79399-8�	[Z�	\VXY[�	]V�	^gx�	_^�	`f
l-1e6f79399-5�	a`�	bV_Ya�	cU\]b�	dghygiene�	ed�	fSFce�	gg
*unspecified*�	hSgce�	igsyntax-violation�	ji�	ki�	lf-source expression failed to match any pattern�	mgserver-impl�	ng%make-server-impl-procedure�	oOPPPPP�	pglambda�	qgm-1e6f79399-12�	rqT�	sg
t-1e6f79399-d�	tg
t-1e6f79399-e�	ug
t-1e6f79399-f�	vgt-1e6f79399-10�	wgt-1e6f79399-11�	xstuvw�	yrrrrr�	zfl-1e6f79399-17�	{fl-1e6f79399-18�	|fl-1e6f79399-19�	}fl-1e6f79399-1a�	~fl-1e6f79399-1b�	z{|}~��Vxy��r��fl-1e6f79399-14�����V_����gshift��g	proc-name��gargs������UU��fl-1e8ba8b5a-2ba��fl-1e8ba8b5a-2bb������V�����gkey��gvalue��gname��gformals��gbody���������UUUUU��fl-1e8ba8b5a-2ad��fl-1e8ba8b5a-2ae��fl-1e8ba8b5a-2af��fl-1e8ba8b5a-2b0��fl-1e8ba8b5a-2b1���������V�����gmake-procedure-name�����U��fl-1e8ba8b5a-29d�����V�����fl-1e8ba8b5a-29c�����V_Y���r�]��]]]]����
��d
��Sp����U�]���S��e��gopen��S��e��gread��S��e��gwrite��S��e��gclose��S��e���������gmake-struct��g
m-1e6f79399-b���T��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���T�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������V�����g	ctor-args�����fl-1e8ba8b5a-37a�����V�Y���gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������V�����gform��g	type-name��gconstructor-spec��gfield-names��������UUUU��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������V�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������UUUUUUUU��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������V�����fl-1e8ba8b5a-334�����V_Y�����]��]�]]]��]�����S�����Sm�e��S
�������������������geach-any��O����i��i��fWrong number of arguments��gidentifier?��������U]��Sn�e�grecord-type-vtable���g
pwpwpwpwpw�gdefault-record-printer���������	gset-struct-vtable-name!�
	�	�gvtable-offset-user�
��g%server-impl?-procedure�gm-1e6f79399-27�T�gt-1e6f79399-26���fl-1e6f79399-2c��V�fl-1e6f79399-29��V_�]�]]]]����
�Sp��gobj�gt-1e8ba8b5a-47e�gt-1e8ba8b5a-478� gt-1e8ba8b5a-479�!gt-1e8ba8b5a-47a�"gt-1e8ba8b5a-47d�#gt-1e8ba8b5a-47c�$gt-1e8ba8b5a-47b�% !"#$�&gm-1e8ba8b5a-47f�'&T�('''''''�)fl-1e8ba8b5a-483�*fl-1e8ba8b5a-484�+fl-1e8ba8b5a-485�,fl-1e8ba8b5a-486�-fl-1e8ba8b5a-487�.fl-1e8ba8b5a-488�/fl-1e8ba8b5a-489�0)*+,-./�1V%(0�2g	copier-id�32�4fl-1e8ba8b5a-476�54�6V3Y5�7g	ctor-name�87�9fl-1e8ba8b5a-46e�:9�;V8Y:�<��=fl-1e8ba8b5a-46c�>=�?V<Y>�@glayout�A@�Bfl-1e8ba8b5a-46a�CB�DVAYC�Eg
immutable?�FE�Gfl-1e8ba8b5a-468�HG�IVFYH�Jgfield-count�KJ�Lfl-1e8ba8b5a-466�ML�NVKYM�Og
getter-ids�PO�Qfl-1e8ba8b5a-463�RQ�SVPYR�Tg	field-ids�UT�Vfl-1e8ba8b5a-460�WV�XVUYW�Ygpredicate-name�Zg
field-spec�[E���YZ�\UUUUUU�]fl-1e8ba8b5a-453�^fl-1e8ba8b5a-454�_fl-1e8ba8b5a-455�`fl-1e8ba8b5a-456�afl-1e8ba8b5a-457�bfl-1e8ba8b5a-458�c]^_`ab�dV[\c�e�]�]1]]]]6];]?]D]I]N]S]Xd���fSe��gf�hgand�iShe��jgstruct?�kSje��lkf�mgeq?�nSme��og
struct-vtable�pSoe��qpf�rU]�sSmre�tnqs�uilt�vgu�wU]�xSwe�ygthrow-bad-struct�zy�{y�|g%server-impl-name-procedure�}gfree-id�~g
%%on-error�gm-1e6f79399-33��T�����fl-1e6f79399-35�����V_�����]��]]]]������S~����}����P��g%%type��gt-1e8ba8b5a-3a5��gt-1e8ba8b5a-3a6��gt-1e8ba8b5a-3a7��gt-1e8ba8b5a-3a8��gt-1e8ba8b5a-3a9��gt-1e8ba8b5a-3aa��gt-1e8ba8b5a-3ab�����������gm-1e8ba8b5a-3ac���T�����������fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6�����������V�����ggetter��gindex������fl-1e8ba8b5a-3a3��fl-1e8ba8b5a-3a4������V������O2��UUU��fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0�������V������]��]�]]]�]�����S�����}���O��P��gck��gerr��gs����������fl-1e6f79399-38��fl-1e6f79399-39������V�������]��]]]]����
��S�����gquote��S�����U�]���Sm�e���������g%%index��S�����}���O��P��fl-1e6f79399-3d��fl-1e6f79399-3e������V�������]��]]]]����
��S�����S������]���S
�e���������g%%copier��S�����}���O��P��fl-1e6f79399-42��fl-1e6f79399-43������V�������]��]]]]����
��S�����S�����g%%server-impl-set-fields��U�]���S��e���������gt-1e6f79399-32�����fl-1e6f79399-47�����V�������]��]]]]����
��Sp������]��]�]]]�]�����S��������gif��S�����Sm����So��������U�]���Sm�e�������g
struct-ref��S������]���S
�e�������Sy����S�����S2�e����������������������U]���S|�e�g%server-impl-open-procedure�gm-1e6f79399-4e�T��fl-1e6f79399-50��V_�]�]]]]�����S~��	}�
	P��]�]�]]]�]����S���
}�O

P��fl-1e6f79399-53�fl-1e6f79399-54��V��]�]]]]����
�S���S���U]�Sme���S���}�O
P�fl-1e6f79399-58�fl-1e6f79399-59� �!V� �"!]�]]]]����
�#S�"��$S�"��%!]�&S%e�'$&�('�)S���*})�+O
*P�,fl-1e6f79399-5d�-fl-1e6f79399-5e�.,-�/V�.�0/]�]]]]����
�1S�0��2S�0��3U/]�4S�3e�524�65�7gt-1e6f79399-4d�87�9fl-1e6f79399-62�:9�;V8:�<;]�]]]]����
�=Sp<��>�;]�]�]]]�]����?S�>��@?�AS�>��BSm>��CSo>��DC?�EU;]�FSmEe�GBDF�HS�>��I;]�JSIe�KH?J�LSy>��MS�>��NS3Ee�OMN�PL?O�QAGKP�R=@Q�SU]�TSSe�Ug%server-impl-read-procedure�Vgm-1e6f79399-69�WVT�XW�Yfl-1e6f79399-6b�ZY�[V_XZ�\W][�]]]]�����]S~\��^}]�_^P�`�][�]�]]]�]����aS�`��b}a�cO_bP�dWW�efl-1e6f79399-6e�ffl-1e6f79399-6f�gef�hV�dg�iWh][�]]]]����
�jS�i��kS�i��lUh][�mSmle�nkm�on�pS�`��q}p�rO_qP�sfl-1e6f79399-73�tfl-1e6f79399-74�ust�vV�du�wWv][�]]]]����
�xS�w��yS�w��zv][�{S	ze�|y{�}|�~S�`��}~��O_P��fl-1e6f79399-78��fl-1e6f79399-79������V�d���W�][�]]]]����
��S�����S�����U�][��S��e���������gt-1e6f79399-68�����fl-1e6f79399-7d�����V�X���W�][�]]]]����
��Sp������][�]�]]]�]�����S��������S�����Sm����So��������U�][��Sm�e�������S������][��S	�e�������Sy����S�����S4�e����������������������U][��SU�e��g%server-impl-write-procedure��gm-1e6f79399-84���T�����fl-1e6f79399-86�����V_�����]��]]]]������S~����}����P���]��]�]]]�]�����S�����}���O��P������fl-1e6f79399-89��fl-1e6f79399-8a������V�������]��]]]]����
��S�����S�����U�]���Sm�e���������S�����}���O��P��fl-1e6f79399-8e��fl-1e6f79399-8f������V�������]��]]]]����
��S�����S������]���S	�e���������S�����}���O��P��fl-1e6f79399-93��fl-1e6f79399-94������V�������]��]]]]����
��S�����S�����U�]���S��e���������gt-1e6f79399-83�����fl-1e6f79399-98�����V�������]��]]]]����
��Sp������]��]�]]]�]�����S��������S�����Sm����So��������U�]���Sm�e�������S������]���S	�e�������Sy����S�����S5�e����������������������U]���S��e��g%server-impl-close-procedure�gm-1e6f79399-9f�T��fl-1e6f79399-a1��V_�]�]]]]�����S~��}�	P�
�]�]�]]]�]����S�
��}�
O	P��fl-1e6f79399-a4�fl-1e6f79399-a5��V��]�]]]]����
�S���S���U]�Sme���S�
��}�O	P�fl-1e6f79399-a9�fl-1e6f79399-aa�� V��! ]�]]]]����
�"S�!��#S�!��$ ]�%S	$e�&#%�'&�(S�
��)}(�*O	)P�+fl-1e6f79399-ae�,fl-1e6f79399-af�-+,�.V�-�/.]�]]]]����
�0S�/��1S�/��2U.]�3S�2e�413�54�6gt-1e6f79399-9e�76�8fl-1e6f79399-b3�98�:V79�;:]�]]]]����
�<Sp;��=�:]�]�]]]�]����>S�=��?>�@S�=��ASm=��BSo=��CB>�DU:]�ESmDe�FACE�GS�=��H:]�IS	He�JG>I�KSy=��LS�=��MS6De�NLM�OK>N�P@FJO�Q<?P�RU]�SS�Re�Tgeach�UPP�VTU�WPV��XPW��YPX��Zg%%set-fields�[gdummy�\gcheck?�]gexpr�^[\��]�_gm-1e6f79399-ba�`_T�a`�����bfl-1e6f79399-bf�cfl-1e6f79399-c0�dfl-1e6f79399-c1�efl-1e6f79399-c2�ffl-1e6f79399-c3�gbcdef�hV^ag�i`�jfl-1e6f79399-bc�kj�lV_ik�mgt-1e8ba8b5a-3c4�ngt-1e8ba8b5a-3c6�ogt-1e8ba8b5a-3c5�pmno�qgm-1e8ba8b5a-3c7�rqT�srrr�tfl-1e8ba8b5a-3cb�ufl-1e8ba8b5a-3cc�vfl-1e8ba8b5a-3cd�wtuv�xVpsw�yfl-1e8ba8b5a-3c1�zfl-1e8ba8b5a-3c2�{fl-1e8ba8b5a-3c3�|yz{�}V��|�~�h]l�]x]]]}��
�SZ~���Uh]l��Sm�e��S2�e��S3�e��S4�e��S5�e��S6�e���������gmap��������glist��PPPPPP��gdefine��[�������gm-1e6f79399-e7���T���UUUUU��fl-1e6f79399-ec��fl-1e6f79399-ed��fl-1e6f79399-ee��fl-1e6f79399-ef��fl-1e6f79399-f0��fl-1e6f79399-f1����������V��������fl-1e6f79399-e9�����V_����U�]���S��e��S0�e��S��e��g
module-ref��gresolve-module��gerror��f expected a server impl in module��f"expected a server-impl or a symbol��gcall-with-error-handling��g	pass-keysS��gquit��g	interrupt������gon-errorS��gbatch-mode?��g	backtrace��gdebug��g
post-errorS��g
<response>��������g
assoc-set!��g	copy-tree��g%%<response>-set-fields��gextend-response��gbuild-response��gversionS��g	<request>��������grequest-version��gheadersS��gresponse-version��gstring?��gresponse-content-type��g
text/plain�����gassq-ref��gcharset��gcontent-type��gappend��������futf-8��gstring->bytevector��g
procedure?��gcall-with-encoded-output-string��gbytevector?��gresponse-content-length��gbytevector-length��fbad content-length��gcontent-length��grequest-method��gHEAD��gresponse-must-not-include-body?��f4response with this status code must not include body��funexpected body type��gvu8
	�j��gadapt-response-version��gwith-stack-and-prompt��gcodeS��g	provided?��gposix��gcatch��g	sigaction��gSIGINT��gthrow��gcall-with-sigint��gdefault-prompt-tag��g%start-stack��������ghttp�C5hs]4	
,-?54B>"G4Ci5DRCEDh@�]	454���B@�����>"G C�gwho
		:gt		:gfilenamefweb/server.scm�
	i
��		j	��		j	��	
	k	��		k	��		k	��		k	��		k	��	"	l	��	%	l	��	&	l	��	'	k	��	,	k	��	8	m	��		:gnameg
print-elapsed�CFR4IJKNQRfhhT]$CCLgwho
		gfilenamefweb/server.scm�		v	��		Cklh(a]	45$@6Ygx
		"gtmp		"gfilenamefweb/server.scm�
	s	��		"C5JRmh�]�C�gname
		gopen		gread			gwrite			gclose			gfilenamefweb/server.scm�
	z
��			gnameg%make-server-impl-procedure�CnR4I0KNo�h�]C�g
t-1e6f79399-d
		g
t-1e6f79399-e		g
t-1e6f79399-f			gt-1e6f79399-10			gt-1e6f79399-11						C��0�hQ]L6Iga
		gfilenamefweb/server.scm�		z
��		CO�hA]L69gfilenamefweb/server.scm�		z
��		
Ch]C		
Cklhp�]45$@45$O@45$4O?$@	
6	
6zgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/server.scm�
	z
��		nC50Rm�4m>"G	�ni�mRmhv]�$��CCngobj
		gfilenamefweb/server.scm�
	z
��		gnameg%server-impl?-procedure�CR4I1KNQvh6]C.gt-1e6f79399-26
		
		
C��1�hQ]L6Iga
		gfilenamefweb/server.scm�		z
��		CO�hA]L69gfilenamefweb/server.scm�		z
��		
Cxh]C		
Cklhp�]45$@45$O@45$4O?$@	
6	
6zgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/server.scm�
	z
��		nC51Rm{2hx]�&
�C6pgs
		gfilenamefweb/server.scm�
	z
��		gnameg%server-impl-name-procedure�C|R4I2KN���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CQ�h6]C.gt-1e6f79399-32
		
		
C��2�hQ]L6Iga
		gfilenamefweb/server.scm�		z
��		CO�hA]L69gfilenamefweb/server.scm�		z
��		
C�h]C		
Cklh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/server.scm�
	z
��	�C52Rm{3hx]�&�C6pgs
		gfilenamefweb/server.scm�
	z
��		gnameg%server-impl-open-procedure�CR4I3KNh:]��C2gerr
		gs					C#(h:]��C2gerr
		gs					C+16h:]��C2gerr
		gs					CQRh6]C.gt-1e6f79399-4d
		
		
C��3�hQ]L6Iga
		gfilenamefweb/server.scm�		z
��		CO�hA]L69gfilenamefweb/server.scm�		z
��		
CTh]C		
Cklh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/server.scm�
	z
��	�C53Rm{4h x]�&	�C6pgs
		gfilenamefweb/server.scm�
	z
��		gnameg%server-impl-read-procedure�CUR4I4KNcjoh:]��C2gerr
		gs					Crx}h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CQ�h6]C.gt-1e6f79399-68
		
		
C��4�hQ]L6Iga
		gfilenamefweb/server.scm�		z
��		CO�hA]L69gfilenamefweb/server.scm�		z
��		
C�h]C		
Cklh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/server.scm�
	z
��	�C54Rm{5h y]�&	�C6qgs
		gfilenamefweb/server.scm�
	z
��		gnameg%server-impl-write-procedure�C�R4I5KN���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CQ�h6]C.gt-1e6f79399-83
		
		
C��5�hQ]L6Iga
		gfilenamefweb/server.scm�		z
��		CO�hA]L69gfilenamefweb/server.scm�		z
��		
C�h]C		
Cklh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/server.scm�
	z
��	�C55Rm{6h y]�&	�C6qgs
		gfilenamefweb/server.scm�
	z
��		gnameg%server-impl-close-procedure�C�R4I6KN
h:]��C2gerr
		gs					C"'h:]��C2gerr
		gs					C*05h:]��C2gerr
		gs					CQQh6]C.gt-1e6f79399-9e
		
		
C��6�hQ]L6Iga
		gfilenamefweb/server.scm�		z
��		CO�hA]L69gfilenamefweb/server.scm�		z
��		
CSh]C		
Cklh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/server.scm�
	z
��	�C56R4I�KNY����h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						Cklh(�]	45$@6�gx
		"gtmp		"gfilenamefweb/server.scm�
	z
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R4I.KN����h �]C�gdummy
		gname		gopen			gread			gwrite			gclose						Cklh(�]	45$@6�gx
		"gtmp		"gfilenamefweb/server.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnamegopengreadgwritegcloseC5.R����m�	hx]	"T�$E4455"6�$�&C"���"���6�$�&C"���"���gimpl
		ugimpl	"	Rgfilenamefweb/server.scm�
�
��		�	��	
�	��	�	��	�	��	�	,��	�	��	"�	��	"�	��	,�	��	.�	4��	7�	
��	7�	��	:�	
��	>�	��	A�	
��	V�	��	Z�	��	Z�	��	]�	��	a�	��	d�	��		ugnameglookup-server-impl�g
documentationk�Look up a server implementation.  If IMPL is a server
implementation already, it is returned directly.  If it is a symbol, the
binding named IMPL in the  (web server IMPL)  module is
looked up.  Otherwise an error is signaled.

Currently a server implementation is a somewhat opaque type, useful only
for passing to other procedures in this module, like
 read-client .�C/Rm{3h i]�&�"	45@agimpl
		 gopen-params		 gfilenamefweb/server.scm�
�
��	�		��	 �	��		 	gnamegopen-server�g
documentationk�Open a server for the given implementation.  Return one value, the
new server object.  The implementation's  open  procedure is
applied to OPEN-PARAMS, which should be a list.�C7R�m{4h(K]L�&	L	�"	4L5L6Cgfilenamefweb/server.scm�
�	��	�	��		!
C�������h]-13DUg_
			gfilenamefweb/server.scm�
�	��	�	��			


Ch0	]O45$"	
6gimpl
		*gserver		*gfilenamefweb/server.scm�
�
��	�	��	�	��	�	��	�	 ��	$�	+��	*�	��		*	gnamegread-client�g
documentationk<Read a new client from SERVER, by applying the implementation's
 read  procedure to the server.  If successful, return three
values: an object corresponding to the client, a request object, and the
request body.  If any exception occurs, return  #f  for all three
values.�C8R���{��h`-13�&.
��	�44	�55	��"	45(C@gr
			\gk			\gv				\g
additional				\gr		I	\gfilenamefweb/server.scm�
�
��	�	��	"�	��	%�	"��	,�	-��	.�	"��	4�	��	9�	��	I�	��	Q�	��	\�	��			\	
	gnamegextend-response�C�R:���{�����������������������������#hM]�$.4�&		�"	4556�&		�"	45�&
�"	4	5�${$o4
5$V454
�5$"44�554$"5645$V454
�5$"44�554$"5645$�"p4545$�$"45"45�&
�"	45&"D45$45
�$"��t6"��h 6!D4"�&		�"	4556Egrequest
	gresponse	gbody		gtype	��gdeclared-charset	��gtype	�9gdeclared-charset	�9grlen	V�gblen	V�	gfilenamefweb/server.scm�
�
��	�	��		�	��	�	��	�	1��	3�	��	7�	��	:�	��	U�	+��	m�		��	q�	��	x�	����	����	����	(����	����	����	����	'����	2����	����	����	����	����	%����	����	)����	����	����	����	����	)����	����	����	����	����	����	(����	����	����	����	'����	2����	����	���	���	���	%���	���	)���	��"�	��#�	��+�	��3�	)��7�	��9�	��:�		��D�	��I�	��P�	��V�	��`�	��e�	��i�	��p�	��t�	 ��z�	���	����	/����	����	����	.����	����	����	����		����	����	����	����	����	����	����	����	����	����	����	����	/���	���	��\		gnamegsanitize-response�g
documentationk�"Sanitize" the given response and body, making them appropriate for
the given request.

As a convenience to web handler authors, RESPONSE may be given as
an alist of headers, in which case it is used to construct a default
response.  Ensures that the response version corresponds to the request
version.  If BODY is a string, encodes the string to a bytevector,
in an encoding appropriate for RESPONSE.  Adds a
 content-length  and  content-type  header, as necessary.

If BODY is a procedure, it is called with a port as an argument,
and the output collected as a bytevector.  In the future we might try to
instead use a compressing, chunk-encoded port, and call this procedure
later, in the write-client procedure.  Authors are advised not to rely
on the procedure being called at any particular time.�C:R��hK]LLLL@Cgfilenamefweb/server.scm�
	��		��		
C:h@�](4LLLLO>G4L>GD�gresponse
		?gbody		?gstate			?gresponse		0	?gbody		0	?gfilenamefweb/server.scm�
	��		��		��	"	��	3		��	?	
��		?
C���������hf-134�5LD^g_
			gfilenamefweb/server.scm�
 	��	
!	��	!	��			


Ch8]O45$"	
O6ghandler
		3grequest		3gbody			3gstate			3gfilenamefweb/server.scm�

��		��		��	 	��	"	 ��	(	+��	3	��		3	gnameghandle-request�g
documentationf"Handle a given request, returning the response and body.

The response and response body are produced by calling the given
HANDLER with REQUEST and BODY as arguments.

The elements of STATE are also passed to HANDLER as
arguments, and may be returned as additional values.  The new
STATE, collected from the HANDLER's return values, is then
returned as a list.  The idea is that a server loop receives a handler
from the user, along with whatever state values the user is interested
in, allowing the user's handler to explicitly manage its state.�C9R�m{5h(K]L�&	L	�"	4L5LLLL6Cgfilenamefweb/server.scm�
*	��	+	��		'
C�������h]-13DUg_
			gfilenamefweb/server.scm�
.	��	.	��			


Ch0�]O45$"	
6�gimpl
		0gserver		0gclient			0gresponse			0gbody			0gfilenamefweb/server.scm�
$
��	,	��	-	��	"-	��	$-	 ��	*-	+��	0)	��		0	gnamegwrite-client�g
documentationf�Write an HTTP response and body to CLIENT.  If the server and
client support persistent connections, it is the implementation's
responsibility to keep track of the client thereafter, presumably by
attaching it to the SERVER argument somehow.�C;Rm{6h(�]�&		�"	456�gimpl
		!gserver		!gfilenamefweb/server.scm�
1
��	4	��		!	gnamegclose-server�g
documentationkRelease resources allocated by a previous invocation of
 open-server .�C<R4�i�5$������hf]6^gsig
		gfilenamefweb/server.scm�
@	*��	@	?��	@	8��		ChT]45NCLgfilenamefweb/server.scm�
>	��	@	��	
?	��		
C��h o]M$M�M�66ggfilenamefweb/server.scm�
B	��	C	��	E	(��	E	6��	E	��	G	��		
C��h o]M$M�M�66ggfilenamefweb/server.scm�
B	��	C	��	E	(��	E	6��	E	��	G	��		
C��h o]M$M�M�66ggfilenamefweb/server.scm�
B	��	C	��	E	(��	E	6��	E	��	G	��		
Ch`K]LOLO4LO>"GV4L>X4LO>"GCX4LO>"GFCgfilenamefweb/server.scm�
<	��	=	��		\
Chk-13L6cgk
			
g_			
gfilenamefweb/server.scm�
H	��	
H	��			

Ch �]
HOO6�gthunk
		g
handler-thunk		ghandler			gfilenamefweb/server.scm�
9	��	:	��		;	��	;	
��			C"�hz]6rgthunk
		g
handler-thunk		gfilenamefweb/server.scm�
8	��	8	$��			C�R��hK]L6Cgfilenamefweb/server.scm�
L	��	L	/��		
ChC]LO6;gfilenamefweb/server.scm�	L	��		
C�hK]LL6Cgfilenamefweb/server.scm�
N	-��	N	8��		
Ch8�]45U4O>XCXFGO6�gthunk
		1gk		1gproc			1gfilenamefweb/server.scm�
J
��	K	��	K	��	1N	��		1gnamegwith-stack-and-prompt�C�R89;hX]44>G$74>G	4>"G	CC	ghandler
		Xgimpl		Xgserver			Xgstate			Xgclient			Xgrequest			Xgbody			Xgresponse		/	Ugbody		/	Ugstate			/	U
gfilenamefweb/server.scm�
Q
��	X	��	V	��	[	��	^	��	2\	
��	9a	��		X	gnamegserve-one-client�g
documentationf�Read one request from SERVER, call HANDLER on the request
and body, and write the response to the client.  Return the new state
produced by the handler procedure.�C=R�/7�=h(z]"4LLL5"���L"���rgstate
		gfilenamefweb/server.scm�
�	��	�	��	�	
��	�		��	�	��		!
C<hT]4LL>"GDLgfilenamefweb/server.scm�
�	��	�	��	�	��		
ChP�-.13##4545OO6�ghandler
		Mgimpl		Mgopen-params			Mgstate			Mgimpl		&	Mgserver		1	Mgfilenamefweb/server.scm�
f
��	f	.��	f	B��	 �	��	&�	��	)�	��	1�	��	M�	��			M		gnameg
run-server�g
documentationk
�Run Guile's built-in web server.

HANDLER should be a procedure that takes two or more arguments,
the HTTP request and request body, and returns two or more values, the
response and response body.

For example, here is a simple "Hello, World!" server:

@example
 (define (handler request body)
   (values '((content-type . (text/plain)))
           "Hello, World!"))
 (run-server handler)
@end example

The response and body will be run through  sanitize-response 
before sending back to the client.

Additional arguments to HANDLER are taken from
STATE.  Additional return values are accumulated into a new
STATE, which will be used for subsequent requests.  In this way a
handler can explicitly manage its state.

The default server implementation is  http , which accepts
OPEN-PARAMS like  (#:port 8081) , among others.  See "Web
Server" in the manual, for more information.�C>RCgm
		,grtd
��gfilenamefweb/server.scm�		J
��	-	h	��	6	h
��u	i
���	z
��-��
��14�
��7��
��9;�
��M�
��R�
��V%$
��X$1
��X%7	��X-7	��X/7	��X37	��]�6
��_�J
��b|Q
��r�f
��	r�
C6web/http.go000064400000364241150536206120006641 0ustar00GOOF----LE-8-2.0��]}4h�g]gguile�	�	gdefine-module*�	�	�	gweb�	ghttp�	�		gfilenameS�	
fweb/http.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	gselectS�	gappend-map!�	gmap!�	�	�	gsrfi-9�	�	�	gsrfi-19�	�	�	gice-9�	grdelim�	�	�	gmatch�	�	 �	!gq�	"!�	#"�	$gbinary-ports�	%$�	&%�	'grnrs�	(gbytevectors�	)'(�	*)�	+guri�	,+�	-,�	. #&*-	�	/gexportsS�	0gstring->header�	1gheader->string�	2gdeclare-header!�	3gdeclare-opaque-header!�	4g
known-header?�	5g
header-parser�	6gheader-validator�	7g
header-writer�	8gread-header�	9gparse-header�	:g
valid-header?�	;gwrite-header�	<gread-headers�	=g
write-headers�	>gparse-http-method�	?gparse-http-version�	@gparse-request-uri�	Agread-request-line�	Bgwrite-request-line�	Cgread-response-line�	Dgwrite-response-line�	Egmake-chunked-input-port�	Fgmake-chunked-output-port�	Gghttp-proxy-port?�	Hgset-http-proxy-port?!�	I0123456789:;<=>?@ABCDEFGH�	Jgset-current-module�	KJ�	LJ�	Mgstring->symbol�	Ngstring-downcase�	Og
<header-decl>�	Pg%make-header-decl-procedure�	Qgmake-syntax-transformer�	RQ�	SQ�	Tgmake-header-decl�	Ugmacro�	Vg$sc-dispatch�	WV�	XV�	Yg_�	Zgany�	[YZZZZZ�	\g
syntax-object�	]glambda�	^g
m-556baa-a�	_gtop�	`^_�	agribcage�	bg
t-556baa-5�	cg
t-556baa-6�	dg
t-556baa-7�	eg
t-556baa-8�	fg
t-556baa-9�	gbcdef�	h`````�	if
l-556baa-f�	jfl-556baa-10�	kfl-556baa-11�	lfl-556baa-12�	mfl-556baa-13�	nijklm�	oaghn�	pa�	qgx�	rq�	s`�	tf
l-556baa-c�	ut�	varsu�	wgshift�	xg	proc-name�	ygargs�	zxy�	{_�	|{{�	}fl-1e8ba8b5a-2ba�	~fl-1e8ba8b5a-2bb�	}~��az|��gkey��gvalue��gname��gformals��gbody���������{{{{{��fl-1e8ba8b5a-2ad��fl-1e8ba8b5a-2ae��fl-1e8ba8b5a-2af��fl-1e8ba8b5a-2b0��fl-1e8ba8b5a-2b1���������a�����gmake-procedure-name�����{��fl-1e8ba8b5a-29d�����a�����{��fl-1e8ba8b5a-29c�����ar����`opvwpppp����
��ghygiene�����\]����{opv�����\�����gparser��\�����g	validator��\�����gwriter��\�����g	multiple?��\������������gmake-struct��g
m-556baa-3���_��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���_�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������a�����g	ctor-args�����fl-1e8ba8b5a-37a�����a�����gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������a�|���gform��g	type-name��gconstructor-spec��gfield-names��������{{{{��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������a�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������{{{{{{{{��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������a�����fl-1e8ba8b5a-334�����ar�����opvwp�ppp��p�����\�����\O����\
�������������������geach-any��Y팤�gsyntax-violation��������fWrong number of arguments��gidentifier?��������{pv��\P����������f-source expression failed to match any pattern��grecord-type-vtable��������g
pwpwpwpwpw��gdefault-record-printer�����������gset-struct-vtable-name!���gvtable-offset-user���	g%header-decl?-procedure�
gheader-decl?�YZ�gm-556baa-1f�
_�gt-556baa-1e��
�fl-556baa-24��a�fl-556baa-21��ar�
pwpppp����
�\]��gobj�gt-1e8ba8b5a-47e�gt-1e8ba8b5a-478�gt-1e8ba8b5a-479�gt-1e8ba8b5a-47a�gt-1e8ba8b5a-47d�gt-1e8ba8b5a-47c� gt-1e8ba8b5a-47b�! �"gm-1e8ba8b5a-47f�#"_�$#######�%fl-1e8ba8b5a-483�&fl-1e8ba8b5a-484�'fl-1e8ba8b5a-485�(fl-1e8ba8b5a-486�)fl-1e8ba8b5a-487�*fl-1e8ba8b5a-488�+fl-1e8ba8b5a-489�,%&'()*+�-a!$,�.g	copier-id�/.�0fl-1e8ba8b5a-476�10�2a/�1�3g	ctor-name�43�5fl-1e8ba8b5a-46e�65�7a4�6�8��9fl-1e8ba8b5a-46c�:9�;a8�:�<glayout�=<�>fl-1e8ba8b5a-46a�?>�@a=�?�Ag
immutable?�BA�Cfl-1e8ba8b5a-468�DC�EaB�D�Fgfield-count�GF�Hfl-1e8ba8b5a-466�IH�JaG�I�Kg
getter-ids�LK�Mfl-1e8ba8b5a-463�NM�OaL�N�Pg	field-ids�QP�Rfl-1e8ba8b5a-460�SR�TaQ�S�Ugpredicate-name�Vg
field-spec�WA���UV�X{{{{{{�Yfl-1e8ba8b5a-453�Zfl-1e8ba8b5a-454�[fl-1e8ba8b5a-455�\fl-1e8ba8b5a-456�]fl-1e8ba8b5a-457�^fl-1e8ba8b5a-458�_YZ[\]^�`aWX_�a�pwp-pppp2p7p;p@pEpJpOpT`���b\a��cb�dgand�e\da��fgstruct?�g\fa��hgb�igeq?�j\ia��kg
struct-vtable�l\ka��mlb�n{p�o\On��pjmo�qehp�rcq�s{p�t\	s��ugthrow-bad-struct�vu�wu�xgheader-decl-name�yg%header-decl-name-procedure�zgfree-id�{g
%%on-error�|gm-556baa-2b�}|_�~}�fl-556baa-2d����ar~���}p�wpppp������\{����z����Z��g%%type��gt-1e8ba8b5a-3a5��gt-1e8ba8b5a-3a6��gt-1e8ba8b5a-3a7��gt-1e8ba8b5a-3a8��gt-1e8ba8b5a-3a9��gt-1e8ba8b5a-3aa��gt-1e8ba8b5a-3ab�����������gm-1e8ba8b5a-3ac���_�����������fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6�����������a�����ggetter��gindex������fl-1e8ba8b5a-3a3��fl-1e8ba8b5a-3a4������a�|����K.��{{{��fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0�������a������p�wp�ppp�p�����\�����z���Y��Z��gck��gerr��gs������}}��fl-556baa-30��fl-556baa-31������a�����}�p�wpppp����
��\�����gquote��\�����{�p���\O�����������g%%index��\�����z���Y��Z��fl-556baa-35��fl-556baa-36������a�����}�p�wpppp����
��\�����\������p���\
�����������g%%copier��\�����z���Y��Z��fl-556baa-3a��fl-556baa-3b������a�����}�p�wpppp����
��\�����\�����g%%<header-decl>-set-fields��{�p���\������������gt-556baa-2a�����fl-556baa-3f�����a�~���}�p�wpppp����
��\]������p�wp�ppp�p�����\��������gif��\�����\i����\k��������{�p���\O���������g
struct-ref��\������p���\
���������\u����\�����\x������������������������{p���\y����gheader-decl-parser��g%header-decl-parser-procedure��gm-556baa-46��_��fl-556baa-48��ar�pwpppp�����\{��z�Z�	�pwp�ppp�p����
\�	��z
�YZ�
�fl-556baa-4b�fl-556baa-4c��a�
�pwpppp����
�\���\���{p�\O����\�	��z�YZ�fl-556baa-50�fl-556baa-51��a�
� pwpppp����
�!\� ��"\� ��#p�$\#��%"$�&%�'\�	��(z'�)Y(Z�*fl-556baa-55�+fl-556baa-56�,*+�-a�
,�.-pwpppp����
�/\�.��0\�.��1{-p�2\�1��302�43�5gt-556baa-45�65�7fl-556baa-5a�87�9a68�:9pwpppp����
�;\]:��<�9pwp�ppp�p����=\�<��>=�?\�<��@\i<��A\k<��BA=�C{9p�D\OC��E@BD�F\�<��G9p�H\G��IF=H�J\u<��K\�<��L\�C��MKL�NJ=M�O?EIN�P;>O�Q{p�R\�Q��Sgheader-decl-validator�Tg %header-decl-validator-procedure�Ugm-556baa-61�VU_�WV�Xfl-556baa-63�YX�ZarWY�[VpZwpppp�����\\{[��]z\�^]Z�_�pZwp�ppp�p����`\�_��az`�bY^aZ�cVV�dfl-556baa-66�efl-556baa-67�fde�ga�cf�hVgpZwpppp����
�i\�h��j\�h��k{gpZ�l\Ok��mjl�nm�o\�_��pzo�qY^pZ�rfl-556baa-6b�sfl-556baa-6c�trs�ua�ct�vVupZwpppp����
�w\�v��x\�v��yupZ�z\	y��{xz�|{�}\�_��~z}�Y^~Z��fl-556baa-70��fl-556baa-71������a�c���V�pZwpppp����
��\�����\�����{�pZ��\������������gt-556baa-60�����fl-556baa-75�����a�W���V�pZwpppp����
��\]������pZwp�ppp�p�����\��������\�����\i����\k��������{�pZ��\O���������\������pZ��\	���������\u����\�����\S������������������������{pZ��\T����gheader-decl-writer��g%header-decl-writer-procedure��gm-556baa-7c���_�����fl-556baa-7e�����ar�����p�wpppp������\{����z����Z���p�wp�ppp�p�����\�����z���Y��Z������fl-556baa-81��fl-556baa-82������a�������p�wpppp����
��\�����\�����{�p���\O�����������\�����z���Y��Z��fl-556baa-86��fl-556baa-87������a�������p�wpppp����
��\�����\������p���\	�����������\�����z���Y��Z��fl-556baa-8b��fl-556baa-8c������a�������p�wpppp����
��\�����\�����{�p���\������������gt-556baa-7b�����fl-556baa-90�����a�������p�wpppp����
��\]������p�wp�ppp�p�����\��������\�����\i����\k��������{�p���\O���������\������p���\	���������\u����\�����\�������������������������{p���\�����gheader-decl-multiple?�g %header-decl-multiple?-procedure�gm-556baa-97�_��fl-556baa-99��ar�pwpppp�����\{��	z�
	Z��pwp�ppp�p����\���
z�Y

Z��fl-556baa-9c�fl-556baa-9d��a��pwpppp����
�\���\���{p�\O����\���z�Y
Z�fl-556baa-a1�fl-556baa-a2� �!a� �"!pwpppp����
�#\�"��$\�"��%!p�&\	%��'$&�('�)\���*z)�+Y
*Z�,fl-556baa-a6�-fl-556baa-a7�.,-�/a�.�0/pwpppp����
�1\�0��2\�0��3{/p�4\�3��524�65�7gt-556baa-96�87�9fl-556baa-ab�:9�;a8:�<;pwpppp����
�=\]<��>�;pwp�ppp�p����?\�>��@?�A\�>��B\i>��C\k>��DC?�E{;p�F\OE��GBDF�H\�>��I;p�J\	I��KH?J�L\u>��M\�>��N\�E��OMN�PL?O�QAGKP�R=@Q�S{p�T\S��Ugeach�VZZ�WUV�XZW��YZX��ZZY��[g%%set-fields�\gdummy�]gcheck?�^gexpr�_\]��^�`gm-556baa-b2�a`_�ba�����cfl-556baa-b7�dfl-556baa-b8�efl-556baa-b9�ffl-556baa-ba�gfl-556baa-bb�hcdefg�ia_bh�ja�kfl-556baa-b4�lk�marjl�ngt-1e8ba8b5a-3c4�ogt-1e8ba8b5a-3c6�pgt-1e8ba8b5a-3c5�qnop�rgm-1e8ba8b5a-3c7�sr_�tsss�ufl-1e8ba8b5a-3cb�vfl-1e8ba8b5a-3cc�wfl-1e8ba8b5a-3cd�xuvw�yaqtx�zfl-1e8ba8b5a-3c1�{fl-1e8ba8b5a-3c2�|fl-1e8ba8b5a-3c3�}z{|�~a��}��ipmwpyppp~��
��\[���{ipm��\O����\x����\�����\S����\�����\������������gmap��������glist��gmake-hash-table��g*declared-headers*��g	hashq-ref��glookup-header-decl��g	multiple?S���	������gerror��fbad header decl��gstring?��g
hashq-set!��gstring-titlecase��gsymbol->string��gdisplay��g
%read-line��gstring-suffix?��f
��gstring-drop-right��g
bad-header��gread-header-line��������fno matching pattern��g	peek-char��gread-continuation-line��g
string-append��gcall-with-input-string��f��gread��g*eof*��gstring-null?��gstring=?��gstring-index��g%read��g	substring��gstring-trim-both��gchar-set:whitespace��fheader name not a symbol��f: ��f
��geof-object?��greverse!��gthrow��gbad-header-component��gformat��fBad ~a header: ~a
��gbad-header-printer��fBad ~a header component: ~a
��gbad-header-component-printer��gset-exception-printer!��gparse-opaque-string��gvalidate-opaque-string��gwrite-opaque-string��gstring->char-set��f[^][()<>@,;:\"?= 	]��gseparators-without-slash��g
string-rindex��gvalidate-media-type��g
media-type��gparse-media-type��g
string-length��gchar-whitespace?��g
string-ref��gskip-whitespace��gtrim-whitespace��gsplit-and-trim��glist-of?��glist-of-strings?��g
write-list��f, ��gwrite-list-of-strings��gsplit-header-names��gsymbol?��glist-of-header-names?��gwrite-header-list��gmake-string��gsubstring-move!��gstring-set!��gcollect-escaped-string��gincremental?S���	������gqstring��g
parse-qstring��gstring-split��f\"��g
write-qstring��gstring=��f1��f1.��f1.0��f1.00��f1.000��gquality��f0��f0.��g
char->integer��g
parse-quality��gnon-negative-integer?��gvalid-quality?��g
integer->char��g
write-quality��gstring-prefix?��fq=��gparse-quality-list��gvalidate-quality-list��f;q=��f,��gwrite-quality-list��gnon-negative-integer��gparse-non-negative-integer��gnumber?��gexact?��ginteger?��gdefault-val-parser�gdefault-val-validator�gdefault-val-writer�gmin�gkey-value-list�gparse-key-value-list�gkey-value-list?�gwrite-key-value-list�gchar-set�gparam-delimiters�	gchar-set-adjoin�
gparam-value-delimiters�gparse-param-component�g
param-list�
gparse-param-list�gvalidate-param-list�f;�gwrite-param-list�g
string-match?�YZZ�g
syntax->datum�g
char-numeric?�gt-556baa-43c��gm-556baa-43d�_��fl-556baa-440��a���gm-556baa-439�_� �!fl-556baa-43a�"!�#a "�$gc�%$�&fl-556baa-437�'&�(a%�'�)glp�*gi�+gtests�,)*+�-fl-556baa-431�.fl-556baa-432�/fl-556baa-433�0-./�1a,�0�2gp�32�4fl-556baa-424�54�6a3�5�7gstr�8gpat�978�:fl-556baa-420�;fl-556baa-421�<:;�=a9|<�>fl-556baa-419�?>�@ar�?�A{pp#p(p1ppp6=p@�B\A��C\�A��D\�A��Egchar-alphabetic?�Fgt-556baa-442�GF�Hgm-556baa-443�IH_�JI�Kfl-556baa-446�LK�MaGJL�N{pMp#p(p1ppp6=p@�O\EN��P\�N��Q\�N��Rgeqv?�Sgt-556baa-448�Tgt-556baa-449�UST�Vgm-556baa-44a�WV_�XWW�Yfl-556baa-44e�Zfl-556baa-44f�[YZ�\aUX[�]{p\p#p(p1ppp6=p@�^\R]��_\�]��`\�]��aZ��bglet�cgt-556baa-426�dgt-556baa-427�ecd�fgm-556baa-428�gf_�hgg�ifl-556baa-42c�jfl-556baa-42d�kij�laehk�m{plppp6=p@
�n\bm��o\�m��p\dm��qg=�r\qm��s\�m��tso�ugmonth�vgparse-month�wfGMT�xfUTC�ygzone-offset�zgparse-zone-offset�{gdate�|{�}{�~gparse-rfc-822-date�gcurrent-date��g	date-year��gparse-rfc-850-date��gparse-asctime-date��gdate-zone-offset��gtime-utc->date��gdate->time-utc��gnormalize-date��gcatch��������g
parse-date��g	truncate/��gfloor/��gexpt��gtime-tai->date��gdate->time-tai��g
date-week-day��fSun, ��fMon, ��fTue, ��fWed, ��fThu, ��fFri, ��fSat, ��fbad date��gdate-day��g
date-month��f Jan ��f Feb ��f Mar ��f Apr ��f May ��f Jun ��f Jul ��f Aug ��f Sep ��f Oct ��f Nov ��f Dec ��g	date-hour��gdate-minute��gdate-second��f GMT��g
write-date��fW/��f"��gparse-entity-tag��gentity-tag?��gwrite-entity-tag��gparse-entity-tag-list��gentity-tag-list��gentity-tag-list?��gwrite-entity-tag-list��g
authorization��gbasic��gcredentials��gparse-credentials��gvalidate-credentials��gwrite-credentials��g	challenge��gparse-challenge��greverse��gparse-challenges��gvalidate-challenges��gwrite-challenge��gwrite-challenges��gbad-request��gbad-response��g*known-versions*��ghttp-version��fHTTP/��gwrite-http-version��gfor-each��fHTTP/1.0��fHTTP/1.1������fGET��gGET��fHEAD��gHEAD��fPOST��gPOST��fPUT��gPUT��fDELETE��gDELETE��fOPTIONS��gOPTIONS��fTRACE��gTRACE��fInvalid method: ~a��fMissing Request-URI��f*��g	build-uri��gpathS��gqueryS��gfragmentS��gstring->uri��fInvalid URI: ~a��fBad Request-Line: ~s��g<uri>��,���,���guri-host��g
uri-scheme��f://��guri-userinfo��guri-port��guri-path��f"Empty path and no host for URI: ~s��fNon-absolute URI path: ~s��g	uri-query��g	write-uri��g
default-port?��,���,���f/��f?��fBad Response-Line: ~s��g%date?-procedure��������gdeclare-date-header!��gdeclare-string-list-header!��gdeclare-symbol-list-header!��gdeclare-header-list-header!��gdeclare-integer-header!��g
absolute-uri?�,��,��gdeclare-uri-header!�gstring->uri*�,�,�g%uri?-procedure�,�,�	gdeclare-relative-uri-header!�
gdeclare-quality-list-header!�gdeclare-param-list-header!�gdeclare-key-value-list-header!�
g*�gdeclare-entity-tag-list-header!�gdeclare-credentials-header!�gdeclare-challenge-list-header!�f
Cache-Control�gmax-age�g	min-fresh�gs-maxage�g	max-stale�gprivate�gno-cache�gno-store�gno-transform�g
only-if-cache�gmust-revalidate�gproxy-revalidate�g
cache-control�f
Connection�gclose� fclose�!fDate�"fPragma�#fTrailer�$fTransfer-Encoding�%fUpgrade�&fVia�'fWarning�(gwarning�)glength�*fAllow�+fContent-Disposition�,gcontent-disposition�-fContent-Encoding�.fContent-Language�/fContent-Length�0fContent-Location�1fContent-MD5�2f
Content-Range�3g
content-range�4fbytes �5gbytes�6fContent-Type�7gcontent-type�8gstring-trim�9gstring-trim-right�:fThu, 01 Jan 1970 00:00:00 GMT�;g*date-in-the-past*�<fExpires�=gmember�>f-1�?�>�@f
Last-Modified�AfAccept�BfAccept-Charset�CfAccept-Encoding�DfAccept-Language�Ef
Authorization�FfExpect�GfFrom�HfHost�Ighost�JfIf-Match�KfIf-Modified-Since�Lf
If-None-Match�MfIf-Range�NfIf-Unmodified-Since�OfMax-Forwards�PfProxy-Authorization�QfRange�Rfbytes=�Sgrange�TfReferer�UfTE�Vf
User-Agent�Wf
Accept-Ranges�XfAge�YfETag�ZfLocation�[fProxy-Authenticate�\fRetry-After�]fServer�^fVary�_fWWW-Authenticate�`g	read-line�agchar=?�bgstring->number�cgread-chunk-header�dgkeep-alive?S�ed��fe�ggget-bytevector-n!�hgget-u8�igmake-custom-binary-input-port�jfchunked input port�kg
close-port�lgq-empty?�mgdeq!�ngq-length�ognumber->string�pg
write-char�qgmake-q�rgmake-soft-port�sgenq!�tgstring-for-each�uf0
�vgforce-output�wfw�xgmake-object-property�yg%http-proxy-port?�zgsetter�{z�|z�C5hHk�]4	
./I54L>"GMNh�]456�gname
		
gfilenamefweb/http.scm�
	K
��		M	��	
	M	��		
gnamegstring->header�g
documentationf%Parse NAME to a symbolic header name.�C0ROh�]�C�gname
		gparser		g	validator			gwriter			g	multiple?			gfilenamefweb/http.scm�
	O
��			gnameg%make-header-decl-procedure�CPR4STUX[�h�]C�g
t-556baa-5
		g
t-556baa-6		g
t-556baa-7			g
t-556baa-8			g
t-556baa-9						C��T�hO]L6Gga
		gfilenamefweb/http.scm�		O
��		CY�h?]L67gfilenamefweb/http.scm�		O
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6xgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/http.scm�
	O
��		nC5TR��O�4O>"G	�Pi�OROht]�$��CClgobj
		gfilenamefweb/http.scm�
	O
��		gnameg%header-decl?-procedure�C	R4S
UXrh3]C+gt-556baa-1e
		
		
C��
�hO]L6Gga
		gfilenamefweb/http.scm�		O
��		CY�h?]L67gfilenamefweb/http.scm�		O
��		
Cth]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6xgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/http.scm�
	O
��		nC5
ROwxhv]�&
�C6ngs
		gfilenamefweb/http.scm�
	O
��		gnameg%header-decl-name-procedure�CyR4SxUX���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h3]C+gt-556baa-2a
		
		
C��x�hO]L6Gga
		gfilenamefweb/http.scm�		O
��		CY�h?]L67gfilenamefweb/http.scm�		O
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/http.scm�
	O
��	�C5xROw�hx]�&�C6pgs
		gfilenamefweb/http.scm�
	O
��		gnameg%header-decl-parser-procedure�C�R4S�UXh:]��C2gerr
		gs					C!&h:]��C2gerr
		gs					C)/4h:]��C2gerr
		gs					CPh3]C+gt-556baa-45
		
		
C����hO]L6Gga
		gfilenamefweb/http.scm�		O
��		CY�h?]L67gfilenamefweb/http.scm�		O
��		
CRh]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/http.scm�
	O
��	�C5�ROwSh {]�&	�C6sgs
		gfilenamefweb/http.scm�
	O
��		gnameg %header-decl-validator-procedure�CTR4SSUXbinh:]��C2gerr
		gs					Cqw|h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					C�h3]C+gt-556baa-60
		
		
C��S�hO]L6Gga
		gfilenamefweb/http.scm�		O
��		CY�h?]L67gfilenamefweb/http.scm�		O
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/http.scm�
	O
��	�C5SROw�h x]�&	�C6pgs
		gfilenamefweb/http.scm�
	O
��		gnameg%header-decl-writer-procedure�C�R4S�UX���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h3]C+gt-556baa-7b
		
		
C����hO]L6Gga
		gfilenamefweb/http.scm�		O
��		CY�h?]L67gfilenamefweb/http.scm�		O
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/http.scm�
	O
��	�C5�ROw�h {]�&	�C6sgs
		gfilenamefweb/http.scm�
	O
��		gnameg %header-decl-multiple?-procedure�CR4S�UXh:]��C2gerr
		gs					C#(h:]��C2gerr
		gs					C+16h:]��C2gerr
		gs					CRh3]C+gt-556baa-96
		
		
C����hO]L6Gga
		gfilenamefweb/http.scm�		O
��		CY�h?]L67gfilenamefweb/http.scm�		O
��		
CTh]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/http.scm�
	O
��	�C5�R4S�UXZ�����h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefweb/http.scm�
	O
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R4�i5�R��hw]6ogsym
		
gfilenamefweb/http.scm�
	[
��	
	\	��		
gnameglookup-header-decl�C�R����O��0	h��-/03#"645$M$C$9$/�445>"GC"���"���"���"����gname
	�gparser	�g	validator		�gwriter		�g	multiple?		�gdecl		\	|gfilenamefweb/http.scm�
	^
��	$	h	
��	0	h	��	0	d	��	1	d	��	;	d	��	A	d	��	\	e	��	\	e	��	_	f	��	d	f	'��	q	f	��
	�	
g	multiple?S	�gnamegdeclare-header!�g
documentationf;Declare a parser, validator, and writer for a given header.�C2R�Owx��h8�]	45$�&
�C6456�gsym
		2gdecl			2gfilenamefweb/http.scm�
	j
��		l	��			l	��		m	��		n	��	*	o	��	2	o	��		2gnamegheader->string�g
documentationf0Return the string form for the header named SYM.�C1R�h]45$CC�gsym
		gfilenamefweb/http.scm�
	q
��		t	��	
	t	��		gnameg
known-header?�g
documentationkpReturn  #t  iff SYM is a known header, with associated
parsers and serialization procedures.�C4R�Ow�hO]CGgx
		gfilenamefweb/http.scm�
	~	��		Ch0�]	45$�&�C6C�gsym
		*gdecl			*gfilenamefweb/http.scm�
	v
��		{	��			{	��		|	��		}	��		*gnameg
header-parser�g
documentationf�Return the value parser for headers named SYM.  The result is a
procedure that takes one argument, a string, and returns the parsed
value.  If the header isn't known to Guile, a default parser is returned
that passes through the string unchanged.�C5R�OwS�h0�]	45$�&	�C6C�gsym
		+gdecl			+gfilenamefweb/http.scm�
�
��	�	��		�	��	�	��	�	��		+gnamegheader-validator�g
documentationkDReturn a predicate which returns  #t  if the given value is valid
for headers named SYM.  The default validator for unknown headers
is  string? .�C6R�Ow��h0]]	45$�&	�C6CUgsym
		+gdecl			+gfilenamefweb/http.scm�
�
��	�	��		�	��	�	��	�	��		+gnameg
header-writer�g
documentationk�Return a procedure that writes values for headers named SYM to a
port.  The resulting procedure takes two arguments: a value and a port.
The default writer is  display .�C7R���������hp�]!45�$M��45$,
�$45$6C664	
56�gport
		lgv			lgw			_gx			_gw		I	Sgw		U	_gfilenamefweb/http.scm�
�
��	�	��	1�		��	5�	��	9�		��	=�	��	D�		��	I�	��	O�	��	S�	��	U�	��	[�	��	_�	��	`�	��		lgnamegread-header-line�g
documentationf�Read an HTTP header line and return it without its final CRLF or LF.
Raise a 'bad-header' exception if the line does not end in CRLF or LF,
or if EOF is reached.�C�R����hH�]
45 �$"
45	�$44556C�gport
		Agval		Agt			&gfilenamefweb/http.scm�
�
��	�	��	�	
��	�	��	�	��	#�	
��	*�	��	/�	��	4�	-��	<�	��	>�	��		A	gnamegread-continuation-line�C�R4�i��i5�R��������0�9���h��]4545$"	45$D4:5$"	454	4

55444
�555D�gport
	�gline		�gt			+gt		>	Xgdelim		X�gsym		i�gfilenamefweb/http.scm�
�
��	�	��		�	��	�	��	�	��	 �	��	&�	��	(�	��	/�	��	5�	��	6�	��	>�	��	M�	��	Q�	&��	U�	��	X�	��	[�	��	^�	$��	i�	��	i�	��	n�	��	s�	��	x�	
����	8����	
����	����	����	
��	�gnamegread-header�g
documentationfRead one HTTP header from PORT. Return two values: the header
name and the parsed Scheme value. May raise an exception if the header
was known but the value was invalid.

Returns the end-of-file object for both values if the end of the message
body was reached (i.e., a blank line).�C8R5h]456�gsym
		
gval		
gfilenamefweb/http.scm�
�
��	�	��	
�	��		
	gnamegparse-header�g
documentationfdParse VAL, a string, with the parser registered for the header
named SYM.  Returns the parsed value.�C9R6��h ]�$4566gsym
		gval		gfilenamefweb/http.scm�
�
��	�	��		�	��	
�	��	�	��	�	
��	�	��			gnameg
valid-header?�g
documentationfRReturns a true value iff VAL is a valid Scheme value for the
header with name SYM.�C:R�1�7�hP]]445>"G4>"G445>"G6Ugsym
		Pgval		Pgport			Pgfilenamefweb/http.scm�
�
��	�	��	�	��	�	��	�	��	 �	��	'�	��	0�	��	1�	��	@�	��	L�	��	P�	��
		P	gnamegwrite-header�g
documentationkTWrite the given header name and value to PORT, using the writer
from  header-writer .�C;R8��h8�]4L>G45$6��"����gheaders
		3gk	
	3gv		
	3gfilenamefweb/http.scm�
�	��	�	!��	�	��	�	��	�	��	%�	��	*�	��	3�	��			3gnameglp�Ch�]	OQ6�gport
		glp		gfilenamefweb/http.scm�
�
��	�	��	�	��	�	��		gnamegread-headers�g
documentationfRRead the headers of an HTTP message from PORT, returning them
as an ordered alist.�C<R;h@�]
",�$#4����>"G�"���C"����gheaders
		:gport		:gheaders			2gfilenamefweb/http.scm�
�
��	�	��		�	��	
�	��	�	
��	�	��	�	'��	�	
��	*�	��	0�	
��	2�	��		:	gnameg
write-headers�g
documentationk�Write the given header alist to PORT.  Doesn't write the final
 \r\n , as the user might want to add another header.�C=R��h�]6�gsym
		gval		gfilenamefweb/http.scm�
�
��	�		��	�	��			gnameg
bad-header�C�R��h�]6�gsym
		gval		gfilenamefweb/http.scm�
�
��	�		��	�	��			gnamegbad-header-component�C�R��1h(�)3L456-13L6�gsym
			gval			g_
	#	'gfilenamefweb/http.scm�
�		��	�	��	�	/��	�	��	#�		��	'�	��					#	'


Ch�]O@�gport
		gkey		gargs			gdefault-printer			gfilenamefweb/http.scm�
�
��	�	��			gnamegbad-header-printer�C�R��h(�)3L6-13L6�gsym
			gval			g_
		"gfilenamefweb/http.scm�
�		��	�	��	�	��	�		��	"�	��						"


Ch�]O@�gport
		gkey		gargs			gdefault-printer			gfilenamefweb/http.scm�
�
��	�	��			gnamegbad-header-component-printer�C�R4�i��i>"G4�i��i>"Ghq]Cigstr
		gfilenamefweb/http.scm�

��		gnamegparse-opaque-string�C�R�h}]6ugval
		gfilenamefweb/http.scm�

��		��		gnamegvalidate-opaque-string�C�R�h�]6�gval
		
gport		
gfilenamefweb/http.scm�

��	
	��		
	gnamegwrite-opaque-string�C�R4�i�5�R���h8�]	4/5$4/5�$45�CCC�gstr
		2gidx		2gfilenamefweb/http.scm�

��	
	
��	
	��		��		��		
��	#	��	$	��	-		��
		2gnamegvalidate-media-type�C�R�M��h �]45$66�gstr
		gfilenamefweb/http.scm�

��		��	
	��		��		��		��		gnamegparse-media-type�C�R���h`-.,3#
#	45"*�$4455$	�"���CC"����gstr
		Zgstart		Zgend			Zgi		(	Rgfilenamefweb/http.scm�

��		8��	(	��	-	
��	1	��	2	��	5	)��	?	��	C	��	F	��	L	��	R	��
		Z	gnamegskip-whitespace�C�R���h`-.,3#
#	45"+�$44�55$	�"���CC"���gstr
		[gstart		[gend			[gi		(	Sgfilenamefweb/http.scm�

��		8��	(	��	-	
��	1	��	2	��	5	+��	<	;��	>	+��	@	��	D	��	G	��	M	��	S	��		[	gnamegtrim-whitespace�C�R�����h�S-.,3#,#
#	45�$H454$"54$�"5�CCKgstr
	�gdelim	�gstart		�gend		�gidx		D	gtok		_	gfilenamefweb/http.scm�
!
��	&"	(��	3$	��	7$	��	8%	��	D%	��	G&	��	U&	@��	_&	��	_%	��	d'	��	p'	.��	s'	6��	}'	��	~'	
���(	��	�	gnamegsplit-and-trim�C�R��hw]6ogval
		
gfilenamefweb/http.scm�
*
��	
+	��		
gnameglist-of-strings?�C�R���h�]6�gval
		gport		gfilenamefweb/http.scm�
-
��	.	��	.	��			gnamegwrite-list-of-strings�C�R�0�h�]456zgstr
		gfilenamefweb/http.scm�
0
��	1	��	1	��		gnamegsplit-header-names�C�R��h|]6tgval
		
gfilenamefweb/http.scm�
3
��	
4	��		
gnameglist-of-header-names?�C�R��1ht]456lgx
		gport		gfilenamefweb/http.scm�
8	��	9	��	9	��			C�h�]6�gval
		gport		gfilenamefweb/http.scm�
6
��	:	��	7	��			gnamegwrite-header-list�C�R����h�]445"�(#4��>"GC���	�	4		�>"G44	�5>"G	��"��x
"��igfrom
	�gstart	�glen		�gescapes		�gto			�gstart		�gi		�gescapes		�ge		;�g
next-start			H�
gfilenamefweb/http.scm�
<
��	=	��		=	��	>	��	?	��	A	��	#A	1��	$A	(��	-A	��	;C	��	;C	
��	DD	&��	ED	��	HC	
��	KE	��	VE	(��	_E	��	hF	��	oF	��	vF	/��	xF	��	}F	���G	���G	"���G	���>	��	�	gnamegcollect-escaped-string�C�R������h�-/03	#
#45#"6�$�45"�$�"��$x45\�$	���"���"�$24�5$�D��$C6��"��6�
"��h"��?"��;�gstr
	�gstart	�gend		�gincremental?		�gi		_�gqi		_�gescapes		_�gkey		q�gout	��	gfilenamefweb/http.scm�
K
��	#L	'��	>^	��	B^	��	BN	��	GN	��	KN	��	LN	��	WN	��	[N	��	_O	��	dP	��	hP	��	iQ	��	qQ	���S	���S	���S	#���S	���Q	���U	���U	6���U	���U	���V	���W	!���W	���X	���X	���X	���Z	/���Z	���\	���\	���\	���]	"���]	���O	���O	���O	.���O	��*	�	gincremental?S	�gnameg
parse-qstring�C�R�hX']�$H"<4�>"G��$4>"G�"���C"���Cgl
		Sgport		Sg
write-item			Sgdelim			Sgl		
	Igfilenamefweb/http.scm�
`
��	a	��		a	��	
b	��	c	��	c	��	c	��	%d	��	&d	��	*d	��	+f	��	Ag	��	Gg	��	Ib	��		S	gnameg
write-list�C�R�����hh�]4">"G4"5$#44"5>"G"4>"G"6�gstr
		bgport		bgfilenamefweb/http.scm�
i
��	j	��	k	��	#k	��	$m	��	'm	��	5m	6��	:m	��	Gn	��	bo	��		b	gnameg
write-qstring�C�R���������������hJ]L6Bgfilenamefweb/http.scm�	�	��	
�	��		

Ch�6-.,3
#
#	45�$�451�$�45$"d45$"G45$"*45$"
45$�C	
6450�$45$"
45$
C�	�$		�"$�"���$4�5.�$C	
6	
���$[454
5	0�"
4	
5"#
�$	
�$""���""�����""��b	�
"��Q	
6OQ45.�$���$		�"$�"|�$C	
���$S454
5	0�	
�$	
�$"4	5"4	5	��""���	�
"��s66	
6.gstr
	�gstart	�gend		�gt		J�gt		d�gt		~�gt	��gt	�gb	+gplace	3�gi	3�gq	3�gc	w�gi	��gfailure	��gb	#gplace	+�gi	+�gq	+�gc	U�gi	a�gfailure		e�gfilenamefweb/http.scm�
q
��	q	6��	)x		��	-w	��	.z	
��	9z	��	=w	��	>{	��	D{	��	J{	��	J{	��	X|	��	^|	��	d|	��	d{	��	r}	��	x}	��	~}	��	~{	���~	���~	���~	���{	���	���	���	���{	����	����	����	
����	���w	����	����	����	����	����	����	���	���	���	���	��/�	��3�	��8�	��9�	��=�	��>�	��E�	,��G�	��J�	��N�	��U�	,��Y�	��^�	��a�	#��f�	��j�	��o�	7��w�	(��zs	���s	"���s	
���s	���v	
���v	 ���v	
���t	���t	���t	���t	���t	
����	����	����	����	����	"����	����	"����	���w	����	���		��w	���	���		��'�	��+�	��0�	
��4�	��<�	��?�	��D�	��H�	��M�	/��U�	 ��Xs	��`s	"��as	
��as	��et	��kt	��ot	��tt	��xt	
����	����	����	
����	����	����	���y	���y	��r	�	gnameg
parse-quality�C�R�h�]45$�CC}gq
		gfilenamefweb/http.scm�
�
��	�	��	
�	��	�	!��		gnamegvalid-quality?�C�R��h�]
4�	
�4	0�5>"G4.>"G4	d�	
�4	0�5>"G4	
�	
�4	0�5>"G	
�4	0�56�gq
	�gport	�gd			gd		K	Zgd		t�gd	��gfilenamefweb/http.scm�
�
��	�	��	�	 ��	�	��	�	��	�	��	�	��	�	��	�	��	$�	��	-�	��	A�	��	H�	 ��	K�	��	K�	��	N�	��	R�	��	U�	��	W�	��	a�	��	j�	��	q�	 ��	t�	��	t�	��	w�	��	{�	��	~�	����	����	����	����	����	����	����	����	����	��%	�	gnameg
write-quality�C�R�h0�](C�$4�5$	�6CC�gval
		*gpred		*gfilenamefweb/http.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	�	��	�	��	�	��	"�	��	&�	��		*	gnameglist-of?�C�R���������	h`
]4;5$:4�545$4	54
5�C6�45�Cgpart
		[gt		[gqpart			Mgfilenamefweb/http.scm�
�	��	�	��	�		��	�	��	�	H��	�	��	�	��	"�	��	&�	&��	*�	��	.�	��	/�	��	8�	��	D�	��	I�	,��	M�	��	Q�	��	Z�	��		[C�h�]4,56zgstr
		gfilenamefweb/http.scm�
�
��	�	��	�	��		gnamegparse-quality-list�C�R���h �]�$4�5$�6CC�gelt
		 gfilenamefweb/http.scm�
�	��	�	��		�	��	
�	��	�	#��	�	��	�	��	�	��	�	��
		 Chz]6rgl
		
gfilenamefweb/http.scm�
�
��	
�	��		
gnamegvalidate-quality-list�C�R����hH�]��4>"G�$4>"G6C�gx
		Hgport		Hgq			Hgstr			Hgfilenamefweb/http.scm�
�	��	�	��	�	��	�	��	
�	��	&�	��	*�	��	+�	��	/�	!��	6�	��	F�	��		H	C�h�]6�gl
		gport		gfilenamefweb/http.scm�
�
��	�	��	�	��			gnamegwrite-quality-list�C�R�����h��-.,3#
#	45�$}"n�$b�	
�4545	0�"
45"#
�$	
�$""���""����"���C
"���6�gval
	�gstart	�gend		�gi		1�gout		1�gc		K�gi		W�gfilenamefweb/http.scm�
�
��	�	*��	)�	��	-�	��	1�	��	6�	��	:�	��	=�	��	B�	��	C�	-��	K�	��	N�	��	V�	"��	W�	
��	W�	��	^�	
��	b�	 ��	f�	
��	j�	��	n�	��	r�	��	w�	��	{�	
����	����	����	����	����	��	�	gnamegparse-non-negative-integer�C�R���h0�]45$
�$45$6CCC�gcode
		,gfilenamefweb/http.scm�
�
��	�	��	
�	��	�	��	�	��	�	"��	 �	��	&�	0��			,gnamegnon-negative-integer?�C�Rh]Cwgk
		gval		gfilenamefweb/http.scm�
�
��			gnamegdefault-val-parser�C�R�h�]$6C�gk
		gval		gfilenamefweb/http.scm�
�
��	�	��	�	��	�	��			gnamegdefault-val-validator�CR���hX�]4;5$""4,5$"	4"5$66�gk
		Qgval		Qgport			Qgt			=gt		!	:gfilenamefweb/http.scm�
�
��	�	
��	�	��	�	
��	!�	��	/�	
��	A�	��	I�	��	Q�	��
		Q	gnamegdefault-val-writer�CR����M�������
h��]RL�$�4LL54L=L54L,L54$"L$"L544L4L555"		"�$�$	�"$�4L�L5"44L4L$"L55$"L	"KL�$-4L5"�$4LL	>!""���""���""��U""��MG4L54LL5
	
L�$"4L
5,�$
�	$		�"�"��s
4LLL566�gi
	�gout	�gi		�geq		%�gcomma		4�gdelim		W�gk		r�gi	�gv-str	,�gnext-i	,�gv		G�gi	
G�gt	Pl
gfilenamefweb/http.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	%�	��	(�	��	4�	��	7�	��	?�	��	M�	'��	W�	��	W�	��	Z�	��	]�	��	d�	$��	p�	��	r�	��	r�	���	����	����	����	,����	 ����	����	����	2����	����	���	"���	-���	>���	-���	"���	"���	���	���	���	���	/���	)���	���	��/�	
��4	��=		��G	��P
	��P
	��^
	(��i
	"��p
	��s	��y	%��~	+���	���	���	*���
	*���	����	��?	�	gnameglp�ChP�-.,3##
#	45OQ6�gstr
		Ng
val-parser		Ngstart			Ngend			Nglp		:	Ngfilenamefweb/http.scm�
�
��	&�	.��	:�	��	L�	��	N�	��		N	gnamegparse-key-value-list�CR�h8�]�$���$L6C�$L6C�gelt
		4gk		$gv			$gfilenamefweb/http.scm�
	��		��			��		��		��		��		��		��	"	��	'	��	+	��	2	��
		4Ch(�-.,3#O6�glist
		#gvalid?		#gfilenamefweb/http.scm�

��	#	��		#gnamegkey-value-list?�CR���h`�]�$�"�$�"4>"G$4=>"GL6C�gx
		_gport		_gk		!	_gv		!	_gfilenamefweb/http.scm�
!	��	"	��		"	��	"	��	#	��	#	��	#	��	!"	��	&$	��	?%	��	@'	
��	](	
��
		_	Ch8�-.,3##O6�glist
		1gport		1g
val-writer			1gdelim			1gfilenamefweb/http.scm�

��		F��	1	��		1		gnamegwrite-key-value-list�CR4i,;=5R4	i�i,;5
R���M����
���h�k]JL�$�4L544L4L$"L555$
4L5"=�$4L�L5"54LL5$"L4L5	";L�$-4L5"�$4	LL
>""���""���G4L5$	�"4LL5		L�$
4L	5"

�$4�5LD
;�$4L	�L5�"���4�5	D;�$24L54L�L5$	�"�"��V4L54$	�"�5$"LD45LDcgi
	�gout	�gdelim		�gk		Q�gdelimc		Q�gi		j�gt		}�gdelim	��gv-str	�qgnext-i	�qgv	�qgx	qgi		qgkey	
)qgv	��gv	��gfilenamefweb/http.scm�
3	��	4	
��	4	��	6	��	6	��	7	��	8	��	#8	%��	/8	<��	98	%��	;8	��	=7	��	C9	��	D9	#��	Q7	
��	^:	��	_>	��	f>	3��	j>	��	j>	��	qB	&��	}B	"���A	���E	%���E	���?	���?	 ���?	���?	0���?	*���?	���@	���<	���H	���H	���I	���I	#��H	��J	��H	��K	 ��K	��K	*��)K	��4M	 ��;M	*��=M	 ��AM	��JK	��KO	��RO	1��VO	��[P	��cO	��dR	 ��kR	*��mR	 ��qR	��z:	��{T	���T	���U	���U	*���U	���V	���V	!���V	���U	���Y	���Y	���Z	���Z	)���Z	/���Z	#���Z	���[	���Z	���5	���5	��P	�	gnameglp�ChP�-.,3##
#	45OQ6�gstr
		Kg
val-parser		Kgstart			Kgend			Kglp		9	Kgfilenamefweb/http.scm�
0
��	&2	/��	93	��	I3	��	K3	��		K	gnamegparse-param-component�CR������h`!]4LLL>GL�$14L5,�$4L�L5�"���L6�6gi
		]gout		]gitem			]gi			]gfilenamefweb/http.scm�
`	��	b	��	a	��	d	��	#d	��	$e	��	/e	��	3e	��	4f	��	;f	)��	?f	��	Dg	��	Lf	��	Ph	&��	Th	��	[i	��	]i	��		]	gnameglp�ChP�-.,3##
#	45OQ6�gstr
		Kg
val-parser		Kgstart			Kgend			Kglp		9	Kgfilenamefweb/http.scm�
]
��	&_	*��	9`	��	I`	��	K`	��		K	gnamegparse-param-list�C
R�h[]L6Sgelt
		
gfilenamefweb/http.scm�
n	��	
o	��		
Ch(�-.,3#O6�glist
		#gvalid?		#gfilenamefweb/http.scm�
k
��	#m	��		#gnamegvalidate-param-list�CR�hw]L6ogitem
		gport		gfilenamefweb/http.scm�
u	��	v	0��	v	��			C�h(�-.,3#O6�glist
		'gport		'g
val-writer			'gfilenamefweb/http.scm�
q
��	%w	��	's	��		'	gnamegwrite-param-list�CR4SUX���hm]456egstr
		
gpat		
gfilenamefweb/http.scm�	|	��	
|	��		
	C��BCDOPQXV^_`hN]CFgt-556baa-448
		gt-556baa-449					C��anoprth(N]L��CFgt-556baa-426
		!gt-556baa-427		!		!	Ch�]24545"�45�$�45�.�$"td�$�"Va�$	�"84
5$4?"
4
5�"��Y"

"��F4
5$O@
6�gstr
	�gpat	�gp			�gi		�gtests		�gc		-�gtmp	��gtmp	��gtmp	��gtmp	��
gfilenamefweb/http.scm�	}	��		}	��	�	%��	�	��	�	��	 �	��	$�	��	%�	 ��	-�	��	2�	��	;�	��	[�	 ��	h�	��	y�	 ����	'����	 ����	����	����	'����	���~	
��	�	Ch@`]	45"	6$4?$@"���"���Xgx
		9gtmp		9gfilenamefweb/http.scm�
z	��		9C5R��u�h��]�	�$�4
�54�54	�5J�$ha�$n�$C456u�$)n�$	Cl�$	C456456F�$7e�$b�$	C456456M�$Ca�$)r�$	Cy�$	C456456A�$]p�$r�$	C456u�$g�$	C456456S�$7e�$p�$		C456456O�$7c�$t�$	
C456456N�$7o�$v�$	C456456D�$7e�$c�$	C456456456456�gstr
	�gstart	�gend		�ga		/�gb		/�gc		/�gfilenamefweb/http.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	�	��	�	��	!�	��	#�	��	$�	��	-�	��	/�	��	/�	��	>�	��	G�	��	P�	��	V�	��	W�	!��	c�	��	l�	��	u�	����	����	!����	����	����	!����	����	����	����	����	����	!����	����	����	!����	����	����	���	���	���	!��!�	��%�	��&�	!��2�	��;�	��D�	��M�	��T�	��U�	!��a�	��j�	��s�	��z�	��{�	!����	����	����	!����	����	����	����	����	����	!����	����	����	!����	����	����	����	����	����	!���	���	���	!���	��!�	��*�	��3�	��:�	��;�	!��G�	��K�	��L�	!��X�	��a�	��j�	��s�	��z�	��{�	!����	����	����	!����	����	����	!����	����	����	!����	��g	�	gnamegparse-month�CvR��wx�y���h�]"4545$
C45$
C"645	�$�44		55$�44		55$�44		55$r44	55$]4	
5+�$"-�$	�"	454
	54
		5	<�	<���C"��B"��>"��:"��6"��2�gstr
	�gstart	�gs		�gkey	��gsign	��ghours	��gminutes	��gfilenamefweb/http.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	%�	��	)�	��	3�	��	7�	��	7�	��	8�	��	E�	��	F�	����	����	����	����	����	����	����	����	����	����	����	����	��	�	gnamegparse-zone-offset�CzR���E�v}�{h�
�]34
545	�$*44	55$44	55$�4	5:�$�44	55$�44	55$�4	5:�$�44	55$�44	55$v4	5 �$a44	55$J44	55$344	
55$44	55$4	5 �$�44	
55$�44		55$�44	55$�4	5 �$�44	55$44	55$h4	5 �$S4	5,�$>44	55$'4455$44
55"""""""""""""""""""""""""$c4		54		54		54		54		54		5
�	C4
545	�$44	55$�44	55$�4	5:�$�44	55$�44	55$�4	5:�$�44	55$v44	55$_4	5 �$J44	55$344	
55$44	55$44	55$�4	
5 �$�44		55$�44	55$�44	55$�4	5 �$44	55$h4	5 �$S4	5,�$>44	55$'4455$44
55""""""""""""""""""""""""$c4		54		
54		54		54		54		5
�	C4
545	�$(44	55$44	55$�4	5:�$�44	55$�44	55$�4	5:�$�44	55$�4	5 �$v4	5 �$a44	55$J44	55$344	
55$44	55$4	5 �$�44	
55$�44		55$�44	55$�4	5 �$�44	55$44	55$h4	5 �$S4	5,�$>44	55$'4455$44
55"""""""""""""""""""""""""$c4		54		54		54		54		54		5
�	C4
545	�$44	55$�44	55$�4	5:�$�44	55$�44	55$�4	5:�$�44	55$t4	5 �$_4	5 �$J44	55$344	
55$44	55$44	55$�4	
5 �$�44		55$�44	55$�44	55$�4	5 �$44	55$h4	5 �$S4	5,�$>44	55$'4455$44
55""""""""""""""""""""""""$c4		54		
54		54		54		54		5
�	C4	
>"GC�gstr
	
�gspace	
�gzone-offset		
�gs		Jgdate	��gmonth	��gyear	��ghour	��gminute	��gsecond	��gs	��gdate	(Igmonth	(Igyear	(Ighour	(Igminute	(Igsecond	(Igs	S�gdate	��gmonth	��gyear	��ghour	��gminute	��gsecond	��gs	
%gdate	
k
�gmonth	
k
�gyear	
k
�ghour	
k
�gminute	
k
�gsecond	
k
�gfilenamefweb/http.scm�
�
��	�	��	�		��N�	��O�	��Z�	��e�	��p�	��{�	����	����		����	����	����		����	����	����	����	���	���	���	��(�		��H�	��J�	��S�		����	����	����	����	����	����	����	����		����	����	���		��
)�	��
*�	��
5�	��
@�	��
K	��
V	��
a	��
k�		��
�	��
�		��
�	��
�		��1	
�	gnamegparse-rfc-822-date�C~R��{��E�v}w�h��]L4�5"4>"�G"�45	�$�44	55$�44	55$�4	5:�$�44	55$~44	55$d4	
5:�$L44	55$244	55$4	
5 �$44		55$�44	55$�4	5-�$�44	55$�44	55$�44	55$f4	5-�$N44	55$44455$4
5 �$""���""���""��z""��r""��j""��b""��Z""��R""��J""��B""��:""��2""��*""��"""��""��""��
""��""���""���4	54			54		
54		
54		54		5
	4
5�&		�"	4
5�
	d���	2��$		d�"	2��$		d�"

	�	C�gstr
	�gcomma	�gspace		�gzone-offset		�gtail		�gdate	c�gmonth	c�gyear	c�ghour	c�gminute		c�gsecond	
c�gs	t�gnow	��gthen	��gyear	��gfilenamefweb/http.scm�

��		��	
	��		��		��		��		��	 	��	,	��	-	
��	:	��	;	
��#	��-	��8	��C	��N	��Y	��c	��p	(��t	���	���	���	*���	-���	*���	���	���	���	���	���	.���	���	���	���	.���	��&	�	gnamegparse-rfc-850-date�C�R�{��E�v}
h��]1"4>"eG"^45	�$L44	55$244	55$44	55$�44	55$�4	5 �$�44	55$�44	55$�4	5:�$�44	55$f44	55$L4	
5:�$444	55$44	55$4	
5 �$�44		55$�4	5 �$�44	55$�44	55$�44	55$h4	5 �$P44	55$64455$44
55$""��B""��:""��2""��*""��"""��""��""��
""��""���""���""���""���""���""���""���""���""���""���""���""���""���""���""���44	5 �$		"		
54		54		54		
54		54		5	

�	C�gstr
	�gdate��gmonth	��gyear	��ghour	��gminute	��gsecond	��gfilenamefweb/http.scm�
$
��	&	��	&	��	&	��	%	��	%	��	,%	��	-%	��}'	���)	���)	���)	���'	���+	���,	���-	���.	���/	���'	���0	��	�gnamegparse-asctime-date�C�R}w���h8�]�&		�"	45
�$C45
6�gdate
		2gfilenamefweb/http.scm�
3
��	4	
��	4	��	#4	��	)6	��	26	��		2gnamegnormalize-date�C�R��zhR]LL�6Jgfilenamefweb/http.scm�
:	!��		;	9��	;	"��		
ChU-13CMgargs
			gfilenamefweb/http.scm�
:	!��			


C��~��{�h�M]4 5$4O5"$J4,5$)	�$45"
45"	4	
5"456Egstr
	�gspace	�gzone-offset		)�gcomma		<	ygfilenamefweb/http.scm�
8
��	9	��	9	��	:	��	:	!��	)9	��	3=	��	4>	��	<>		��	D?	��	I@	��	M?	��	N@	��	]A	��	n?	��	r?	*��	v?	��	~B		���<	��	�gnameg
parse-date�C�R�����hXE]"?
�$544	045	
��5>"G4	
5"���C4	
�5"���=gn
		Ugdigits		Ugport			Ugtens			Egfilenamefweb/http.scm�
E	��	G	��	
H	
��	H	��	J	��	J	��	F	��	J	4��	"J	,��	#J	$��	%J	��	,J	��	5L	��	CL	��	EG	��	FG	��	MG	��	OG	��	UG	��		U	gnamegdisplay-digits�C}w���������������������������������%h��]�&		�"	45
�$"
445
5445
�$	"b�$
"T	�$"E	�$"6	�$
"'	�$"	�$"	45>"G4�&		�"	45	>"G4�&		�"	45�$"�	�$"�	�$"�	�$"�	�$"r	�$"c	�$"T	�$"E		�$"6	
�$"'	�$"	�$"	45>"G4�&		�"	4 5	>"G4 >"G4�&		�"	4!5	>"G4:>"G4�&		�"	4"5	>"G4:>"G4�&�"	4#5	>"G$6�gdate
	�gport	�gdisplay-digits		�gdate		:�gkey		F�gkey	�gfilenamefweb/http.scm�
D
��		M	��	"M	��	'M	��	.O	��	1O	"��	:O	��	:M	��	=P	��	@P	��	FP	
��	RQ	��	^P	
��	`Q	"��	mP	
��	oQ	0��	|P	
��	~R	���P	
���R	"���P	
���R	0���P	
���S	���S	#���S	*���S	#���P	���U	���U	���U	���V	���V	��V	
��#W	��0V	
��2W	$��?V	
��AW	3��NV	
��PX	��]V	
��_X	$��lV	
��nX	3��{V	
��}Y	���V	
���Y	$���V	
���Y	3���V	
���Z	���V	
���Z	$���V	
���Z	3���[	���[	���[	���V	���]	���]	��]	��^	��+_	��0_	��Q_	��Z`	��na	��sa	���a	���b	���c	���c	���c	���d	
���d	��O	�	gnameg
write-date�C�R����h8�]45$4	5�C45$
45�C�C�gval
		7gfilenamefweb/http.scm�
j
��	l	��	l	��	l	��	k	��	l	$��	l	��	m	��	 m	��	$m	��	(k	��	)m	$��	1m	��	6n		��		7gnamegparse-entity-tag�C�R�h�]�$�6C�gval
		gfilenamefweb/http.scm�
p
��	q	��		q	��	r	��	r	��		gnamegentity-tag?�C�R���h0�]�$"4>"G�6�gval
		*gport		*gfilenamefweb/http.scm�
t
��	u	��		u	��	v	��	v	��	v	��	&w	��	*w	��			*	gnamegwrite-entity-tag�C�R����������h��-.,3#
#	454
	5�4$"	�>G�45�$645,�$44�55"	4	
5"�C�gval
	�gstart	�gend		�gstrong?		5�gtag		X�gnext		X�gnext		o�gfilenamefweb/http.scm�
y
��	z	/��	%{	��	){	&��	4{	��	5{	��	5{	��	8}	��	B}	+��	M}	=��	W}	��	[|	��	d�	��	e�	��	o�	��	v�	��	z�	��	{�	 ����	����	����	����	����	0����	����	����	����	0����	����	����	��	�	gnamegparse-entity-tag-list�C�R��hw]6ogval
		
gfilenamefweb/http.scm�
�
��	
�	��		
gnamegentity-tag-list?�C�R���h�]6�gval
		gport		gfilenamefweb/http.scm�
�
��	�	)��	�	��			gnamegwrite-entity-tag-list�C�R�������MN���h�3-.,3##
#	454545$"�$4>"G"44	4
$"555�$-45�$4
5�C64
5�C+gstr
	�g
val-parser	�gstart		�gend		�gstart		9�gt		H	[gdelim		[�gscheme	��gstart	��	gfilenamefweb/http.scm�
�
��	&�	+��	/�	��	9�	��	<�	��	H�	��	[�	��	b�	��	f�	��	g�	��	k�	��	r�	��	�	����	����	$����	9����	$����	����	����	����	����	����		����	����	����	����	����	%����	����	����		�� 	�	gnamegparse-credentials�C�R��h8�]	�$&��$��$�6�6CC�gval
		1gkey		-gfilenamefweb/http.scm�
�
��	�	��		�	��	�	��	
�	��	�	��	�	
��	�	��	$�	��	&�	��	+�	 ��	-�	��
		1gnamegvalidate-credentials�C�R��hP�]
4�>"G4 >"G��$	�6�6�gval
		Kgport		Kgkey		.	Kgfilenamefweb/http.scm�
�
��	�	��	�	��	�	��	�	��	.�	��	.�	��	>�	��	B�	
��	G�	 ��	K�	
��		K	gnamegwrite-credentials�C�R���MN�������M������
h��]RL�$�4LL54L=L54L,L54$"L$"L54L54L 5$45D44L55"		"�$�$	�"$�4L�L5"44L4L$"L55$"L	"KL�$-4L5"�$4	LL
>!""���""���""��U""��MG	4L	L5

L�$"4L
5,�$
�$	�"�"��^4LLL5645LD�gi
	�gout	�gi		�geq		%�gcomma		4�gdelim		W�g	token-end		d�gk	��gi	�;gv	L�gnext-i		L�gi	
^�gt	e�
gfilenamefweb/http.scm�
�	��	�	��	�	��	�	��	�	
��	�	��	%�	
��	(�	��	4�	
��	7�	��	?�	��	M�	)��	W�	��	W�	
��	Z�	��	d�	
��	g�	��	w�	��	x�	����	����	����	)����	����	����	����	����	$����	4����	(����	����	%����	:����	%����	����	*����	+����	<����	+����	*����	*���	"���	���	'��
�	���	7���	1���	"���	"��O�	��T�	��^�	��e�	 ��e�	��s�	0��~�	*����	����	 ����	-����	3����	'����	����	����	����	����	����	
��C	�	gnameglp�C
h��-.,3#
#	45454 5$444555"	45	OQ6}gstr
	�gstart	�gend		�gstart		/�gsp		>�gscheme		h�glp		u�gfilenamefweb/http.scm�
�
��	�	)��	%�	��	/�	��	2�	
��	>�	��	F�	��	G�	��	J�	%��	M�	6��	Y�	%��	[�	��	`�	��	d�	+��	h�	��	h�	��	u�	����	����	��	�	gnamegparse-challenge�C�R�����hH�]4LL5L�$%4LL>G�"���6�gi
		Cgret		Cgi		
	Cg	challenge		'	=gi		'	=gfilenamefweb/http.scm�
�	��	�	
��	
�	��	�	
��	�	��	�	'��	*�	
��	5�	��	=�	��	C�	
��		C	gnameglp�ChH�-.,3##
#	45OQ6�gstr
		Hg
val-parser		Hgstart			Hgend			Hglp		8	Hgfilenamefweb/http.scm�
�
��	&�	*��	8�	��	F�	��	H�	��		H	gnamegparse-challenges�C�R�h �]�$��$�6CC�gx
		gfilenamefweb/http.scm�
�	��	�	��		�	��	�	*��	
�	!��	�	��	�	(��	�	��			Chz]6rgval
		
gfilenamefweb/http.scm�
�
��	
�	��		
gnamegvalidate-challenges�C�R�h8�]4�>"G4 >"G�6�gval
		4gport		4gfilenamefweb/http.scm�
�
��	�	��	�	��	�	��	�	��	0�	��	4�	��		4	gnamegwrite-challenge�C�R���h�]6�gval
		gport		gfilenamefweb/http.scm�
�
��	�	'��	�	��			gnamegwrite-challenges�C�R��h�-136�gmessage
			gargs			gfilenamefweb/http.scm�

��	
		��		��			
gnamegbad-request�C�R��h�-136�gmessage
			gargs			gfilenamefweb/http.scm�

��	
		��		��			
gnamegbad-response�C�R�R�����������h�E-.,3#
#	45"0�$$4��5$��"�"���""���$C4.5"4564	
	5$>$44
.5�$4	�54�5�C"���"���"���=gstr
	�gstart	�gend		�gknown		(	Xgt		`�gdot-idx		x�gfilenamefweb/http.scm�
	
��			;��	(
	��	+	
��	/	��	0	��	7	��	>	��	B	
��	E	��	M	��	S	��	X
	��	`
	��	l	��	x	���	"���	0���	���	���	���	!���	���	���	���	���	���	���	���	2���	���	���	2���	���	��$	�	gnamegparse-http-version�g
documentationkParse an HTTP version from STR, returning it as a major minor
pair. For example,  HTTP/1.1  parses as the pair of integers,
 (1 . 1) .�C?R��hH]4>"G4�>"G4.>"G�6gval
		Hgport		Hgfilenamefweb/http.scm�

��		��		��		��		��		��	#	��	,	��	D	��	H	��		H	gnamegwrite-http-version�g
documentationf1Write the given major-minor version pair to PORT.�C�R4�i?��h |]4
455�� Ctgv
		gfilenamefweb/http.scm�
"��	$	��	$	*��	$	��	$		��	#	��		C�>"G�������������������h�Y-.,3#
#	4545$C45$C45$C4	5$
C45$C4
5$C45$C456Qgstr
	�gstart	�gend		�gfilenamefweb/http.scm�
/
��	/	:��	%3	��	+3	��	13	��	52	��	73	"��	94	��	?4	��	E4	��	I2	��	K4	#��	M5	��	S5	��	Y5	��	]2	��	_5	#��	a6	��	g6	��	m6	��	q2	��	s6	"��	u7	��	{7	���7	���2	���7	%���8	���8	���8	���2	���8	&���9	���9	���9	���2	���9	$���:	���:	+���:		��)	�	gnamegparse-http-method�g
documentationk<Parse an HTTP method from STR.  The result is an upper-case
symbol, like  GET .�C>R��������������h8-.,3#
#	45�$645$C45/�$�4?54#5$$	�"$""	
4$"$"5$4�$"5"
$4�5"64455$C456gstr
	1gstart	1gend		1gq		cgf		rgq	�gt	1gfilenamefweb/http.scm�
<
��	<	:��	)@	��	-?	��	1A	��	3A	��	4B	��	:B	��	@B	��	D?	��	GD	
��	RD	��	V?	��	WE	��	cE	��	fF	��	rE	��	zG	���G	���G	!���G	���G	���E	���H	���I	���I	-���I	���J	���J	 ���J	/���J	6���J	 ���K	���K	#���K	2���K	#��H	��M	��	M	��M	��M	��$N	��%N	'��1N	��-	1	gnamegparse-request-uri�g
documentationf�Parse a URI from an HTTP request line.  Note that URIs in requests do
not have to have a scheme or host name.  The result is a URI object.�C@R������>@�?�h��]454545"6$I$?�$24
544	�554
�455D"���"���"����gport
	�gline		�gd0		�gd1		�gfilenamefweb/http.scm�
P
��	S	��		S	��	T	
��	S	��	U	
��	S	��	)Z	��	-Z	��	-V	��	9V	��	>V	��	BV	��	CW	��	MX	��	RX	(��	YX	>��	]X	(��	aX	��	bY	��	iY	)��	jY	1��	rY	��	tW	��	�gnamegread-request-line�g
documentationfoRead the first line of an HTTP request from PORT, returning
three values: the method, the URI, and the version.�CAR�w�������������hx�]�&		�"	45$14�&
�"	45>"G4>"G�&�"	45$D4�&�"	45>"G4@>"G"4�&		�"	45>"G�&		�"	45$8	P&"(4:>"G4>"G""�&		�"	4	54
5"4>"�G"�"G
�$;�&		�"	45$"���4>"FG"?"���
�$/4

5/�$"���"4>"G""��~�&		�"	45$54?>"G�&		�"	456C�guri
	vgport	vgp	Ngpath	m glen	vgfilenamefweb/http.scm�
\
��	]	��	!]	��	"_	��	'_	��	E_	��	N`	��	R`	��	Y`	��	da	��	a	���c	���c	���c	���d	���e	���e	���e	���f	��f	��g	
��g	�� i	��4j	��Uk	��mk	��pl	��vk	��}s	���m	���p	���m	���p	���p	���q	���q	���q	���m	���n	���m	���n	 ���n	���n	���o	��o	��
o	��#t	��?t	��@v	��Xw	��tw	��4	v	gnameg	write-uri�C�R�G�w�������������hH]4>"G4 >"G45$9�&
�"	45�&		�"	45�&		�"	45$�$�4>"G4>"G4	:5$@4[>"G4>"G4]>"G"4>"G4
5$"(4:>"G4>"G"""�&		�"	45�&		�"	454
5$4>"G"4>"G$,4>"G4>"G"4 >"G4>"G6gmethod
	Gguri	Ggversion		Ggport		Ggscheme	�jghost	�jg	host-port	�jgpath	�gquery	�	gfilenamefweb/http.scm�
y
��	{	��	|	��	+}	��	5}	��	8~	��	R	��	m�	���~	����	����	����	����	����	����	����	����	����	����	����	��
�	��!�	��#�	��)�	��-�	��2�	
��F�	
��q�	����	����	����	����	����	����	����	����	����	����	
����	����	
����	
���	��,�	��C�	��G�	��.	G	gnamegwrite-request-line�g
documentationf0Write the first line of an HTTP request to PORT.�CBR������?��
h�]4545$4455""6$5$+4
544554	5D"���"����gport
	�gline		�gd0		�gd1		3�gfilenamefweb/http.scm�
�
��	�	��		�	��	�	
��	�	��	�	
��	�	��	$�	#��	.�	��	3�	��	=�	��	A�	��	A�	��	M�	��	N�	��	X�	��	]�	1��	k�	��	l�	��	x�	��	�gnamegread-response-line�g
documentationf�Read the first line of an HTTP response from PORT, returning three
values: the HTTP version, the response code, and the (possibly empty)
"reason phrase".�CCR���hp:]4>"G4 >"G4>"G4 >"G4>"G62gversion
		ngcode		ng
reason-phrase			ngport			ngfilenamefweb/http.scm�
�
��	�	��	�	��	+�	��	?�	��	S�	��	j�	��	n�	��			n	gnamegwrite-response-line�g
documentationf1Write the first line of an HTTP response to PORT.�CDR2���h]6	gname
		gfilenamefweb/http.scm�
�
��	�	��		gnamegdeclare-opaque-header!�g
documentationf}Declares a given header as "opaque", meaning that its value is not
treated specially, and is just returned as a plain string.�C3R2���h|]6tgname
		gfilenamefweb/http.scm�
�
��	�	��		gnamegdeclare-date-header!�C�R2���h�]6{gname
		gfilenamefweb/http.scm�
�
��	�	��		gnamegdeclare-string-list-header!�C�R2�M�hd]456\gstr
		gfilenamefweb/http.scm�
�	��	�	��	�	��		C��hY]6Qgv
		
gfilenamefweb/http.scm�
�	��	
�	��		
C���ht]6lgv
		gport		gfilenamefweb/http.scm�
�	��	�	!��	�	��			Ch�]6{gname
		gfilenamefweb/http.scm�
�
��	�	��		gnamegdeclare-symbol-list-header!�C�R2���h�]6{gname
		gfilenamefweb/http.scm�
�
��	�	��		gnamegdeclare-header-list-header!�C�R2���h]6wgname
		gfilenamefweb/http.scm�
�
��	�	��		gnamegdeclare-integer-header!�C�R2��+h �]	45$C6|gstr
		gt			gfilenamefweb/http.scm�
�	��	�	��		�	��	�	>��	�	(��		C�h{]6sgname
		gfilenamefweb/http.scm�
�
��	�	��		gnamegdeclare-uri-header!�CR2�+h �]	45$C6�gstr
		gt			gfilenamefweb/http.scm�
�	��	�	
��	�	��		�	
��		�	��	�	 ��	�	
��		C�h�]6|gname
		gfilenamefweb/http.scm�
�
��	�	��		gnamegdeclare-relative-uri-header!�C	R2���h�]6|gname
		gfilenamefweb/http.scm�
�
��	�	��		gnamegdeclare-quality-list-header!�C
R�2
h[]L6Sgstr
		
gfilenamefweb/http.scm�
�	��	
�	��		
Ch[]L6Sgval
		
gfilenamefweb/http.scm�
�	��	
�	��		
Chm]L6egval
		gport		gfilenamefweb/http.scm�
�	��	�	��			ChH�-.,3###OOO6�gname
		Eg
val-parser		Eg
val-validator			Eg
val-writer			Egfilenamefweb/http.scm�
�
��	E�	��		E	gnamegdeclare-param-list-header!�CR�2h[]L6Sgstr
		
gfilenamefweb/http.scm�
	��	
	��		
Ch[]L6Sgval
		
gfilenamefweb/http.scm�
	��	
	��		
Chm]L6egval
		gport		gfilenamefweb/http.scm�
	��		��			ChH�-.,3###OOO6�gname
		Eg
val-parser		Eg
val-validator			Eg
val-writer			Egfilenamefweb/http.scm�
�
��	E	��		E	gnamegdeclare-key-value-list-header!�CR2��
�h�]45$C6�gstr
		gfilenamefweb/http.scm�

	��	
	��		
	$��	
	��	
	��	
	)��	
	,��		C
�hv]&C6ngval
		gfilenamefweb/http.scm�
	��		��	
	��		��		#��		C
���h �]&66�gval
		gport		gfilenamefweb/http.scm�
	��	
	��	

	��		��		
��		
��			Ch�]6gname
		gfilenamefweb/http.scm�

��			��		gnamegdeclare-entity-tag-list-header!�CR2���h�]6{gname
		gfilenamefweb/http.scm�

��		��		gnamegdeclare-credentials-header!�CR2���h�]6~gname
		gfilenamefweb/http.scm�

��		��		gnamegdeclare-challenge-list-header!�CR4i��	hp�]�$"�$"�$6�$$6C�$"�$$6CC�gk
		lgv-str		lgfilenamefweb/http.scm�
;	��	<	��	->	��	6<	��	<@	��	B@	��	M<	��	aB	��	gB	��
		l	C���h��]�$"�$"�$6�$$6C�$"�$$6C	�$"/
�$"!�$"�$"
�$�C$6C�gk
	�gv	�gfilenamefweb/http.scm�
D	��	E	��	-G	��	6E	��	<I	��	BI	��	CI	��	ME	��	aK	��	gK	��	hK	��	rE	���M	���O	���O	���O	��	�	C�����hp�]45$
6�$04">"G4>"G"645$66�gk
		igv		igport			igfilenamefweb/http.scm�
P	��	R	��	
Q	��	R	��	S	��	Q	��	T	��	3U	��	NV	��	OW	��	YQ	��	aX	��	eZ	��	iZ	��		i	C>"G42i�i�i�� 1h �]&"456�gx
		gport		gfilenamefweb/http.scm�
f	��	g	&��	g	��	h	��	i	��	g	��			C�hv]6ngval
		gport		gfilenamefweb/http.scm�
d	��	k	��	e	��			C>"G4�i!>"G4i">"G4�i#>"G4i$>"G4�i%>"G42i&�i�i�i�>"G42i'����������(h ]Y4L 54L �5$�$�4L54L�54L�>GL�$
4L5" �$-4L�>G	45		""	"G		L�$
4L	5"
�$
C,�$
4L4L	�55�C	
L6CC
gi
	gidx1	
gidx2		gcode		@gagent		@gtext		Ugi		Ugc		s�gdate	��gi		��gtext	�gdate	�gi		�gw	
�gc	�gfilenamefweb/http.scm�
�	��	�	��	
�	��	�	��	�	/��	�	��	�	��	#�	
��	)�	��	*�	��	5�	��	<�	*��	@�	��	@�	��	E�	��	L�	2��	T�	��	X�	��	a�	(��	e�	#��	f�	2��	s�	��	~�	��	�	.����	A����	.����	����	0����	#����	����	����	!����	&����	!����	0����	����	����	"����	���	+���	/��
�	D���	/���	+���	#���	.���	"��0	gnameglp�C�h0�]45OQ4
56�gstr
		*glen			*glp			*gfilenamefweb/http.scm�
�	��	�	��		�	��	�	��	!�	��	*�	��		*C�)��}hP�]45$>�$245$%45$$�$��CCCCCCC�gcode
		Mghost		Mgtext			Mgdate			Mgfilenamefweb/http.scm�
�	��	�	#��	
�	��	�	@��	�	��	�	#��	"�	��	#�	#��	-�	��	3�	#��	6�	2��	D�	'��
		M	Ch(�]�$45	�$@CC�gelt
		!gfilenamefweb/http.scm�
�	��	�	��		�	��	
�	��	�	��	�	��	�	��		!Ch[]6Sgval
		
gfilenamefweb/http.scm�
�	��	
�	��		
C����h��]4L>"G4 L>"G4L>"G4 L>"G4L>"G$4 L>"GL6C�gcode
	�ghost	�gtext		�gdate		�gfilenamefweb/http.scm�
�	��	�	
��	�	
��	+�	
��	?�	
��	S�	
��	l�	
��	m�	����	��
	�	Chk]O@cgw
		
gport		
gfilenamefweb/http.scm�
�	��	
�	��		
	C�hv]6ngval
		gport		gfilenamefweb/http.scm�
�	��	�	��	�	��			C�>"G4�i*>"G42i+
��,hP�]	45"4>"%G"�$�(""���""����C�gstr
		Kgdisposition		Kgfilenamefweb/http.scm�
�	��	�	��	�	��	�	��	�	��	�	��	)�	��	,�	��	0�	��	3�	��	7�	��	J�	��
		KC��h �]�$��$�6CC�gx
		gfilenamefweb/http.scm�
�	��	�	��		�	��	�	-��	
�	$��	�	��	�	?��	�	6��			Ch �]�$��$	�6CC�gval
		gfilenamefweb/http.scm�
�	��	�		��		�	��	�	��	
�		��	�	��	�	��	�		��			Chv]6ngval
		
gport		
gfilenamefweb/http.scm�
�	��		�	��	
�	��		
	C>"G4�i->"G4�i.>"G4�i/>"G4	i0>"G43i1>"G42i2��3�45���
h��]4-54/5"645$r$h$4	54�5�" 4		5$
"	454	�5$
"
4�5C"��y"��u�gstr
	�gdash	�gslash		�gfilenamefweb/http.scm�
	��		��		��		��	 -	��	$-	
��	$	��	%	��	)	��	-	��	1	��	7	
��	9 	��	?!	��	@$	��	K%	��	R%	3��	V%	��	W#	��	\&	��	b&	��	h&	��	l!	��	n'	��	s)	��	w)	��	{)	��	|*	���*	!���*	%���*	���*	���+	���,	���,	4���,	��� 	
��&	�C)
�h�s]	�$r45	�$b��$X��&"%�$4�5$4�5""$���&C6CCCCkgval
		}gx	#	Zgx	c	ugfilenamefweb/http.scm�
.	��	/		��		/	��	
/	��	/	��	/	��	0	��	0		��	/	��	"1	��	#1		��	)2	��	-2	��	.2	��	53	��	93	��	:4	��	?4	+��	A4	��	E3	��	F5	��	K5	+��	M5	��	^/	��	a6	��	c6		��	i7	��	m7	��	n7	��	u8	��		}C�
h�+]4�>"G4 >"G��&4*>"G"B4���>"G4->"G4���>"G���&*6���6#gval
	�gport	�gfilenamefweb/http.scm�
9	��	:	��	:	
��	:	��	;	��	.<	
��	1<	��	5<	��	6=	��	N?	
��	S?	��	\?	
��	e@	
��	yA	
��	~A	���A	
���B	
���B	���B	���C	���D	���D	��	�	C>"G42i6�����7�M8�9	hX�]	4=5"L6$34=5�$44
554�5�C"���"����gx
		Vgeq		Vgfilenamefweb/http.scm�
L	��	M	��	M	��	S	%��	S	��	N	��	"N	'��	+N	!��	/N	��	0P	��	3Q	��	@P	��	AR	��	JR	C��	LR	��	MO	��		VCh(�]	4;54�54O�5�C�gstr
		&gparts		&gfilenamefweb/http.scm�
I	��	J	��	J	��	K	��	K	��	K	��	L	��	"T	��	$L	��	%K	��		&C��h �]�$��$�6CC�gx
		gfilenamefweb/http.scm�
Y	��	Z	��		Z	��	Z	-��	
Z	$��	Z	��	Z	?��	Z	6��			Ch �]�$��$	�6CC�gval
		gfilenamefweb/http.scm�
U	��	V		��		V	��	W	��	
W		��	V	��	X	��	X		��			C���h8�]4�>"G4=>"G�6�gpair
		4gport		4gfilenamefweb/http.scm�
b	��	c	
��	c	��	c	
��	d	
��	0e	��	4e	
��		4	ChH�]4�>"G��$!4>"G�6C�gval
		Bgport		Bgfilenamefweb/http.scm�
[	��	\	��	\	
��	\	��	]	��	]	��	]	��	 _	
��	$_	��	+_	
��	8a	��	>f	��	@`	
��		B	C>"G4�i:5;R42i<=?;�h]45$C6wgstr
		gfilenamefweb/http.scm�
m	��	n	��		n	��	n	��	n	��	p	��		C��i>"G4�i@>"G4iA!�hz]&6Crgk
		gv		gfilenamefweb/http.scm�
�	��	�	��	
�	��	�	��			C!��h �]&6$6C�gk
		gv		gfilenamefweb/http.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	�	��			C!�h �]&66�gk
		gv		gport			gfilenamefweb/http.scm�
�	��	�	��	
�	��	�	��	�	��			C>"G4
iB>"G4
iC>"G4
iD>"G4iE>"G4iF>"G43iG>"G42iH���I��h�x]!4]54:$"
5$54
5[�$"4>"G45"$4
5"$4�5"�Cpgstr
	�grbracket	�gcolon		#�ghost		v�gport	��gfilenamefweb/http.scm�
�	��	�	��	�	��	�	��	�	(��	#�	��	#�	��	+�	��	,�	!��	6�	��	:�	��	?�	��	C�	!��	J�	��	S�	��	f�	��	g�	��	v�	��	~�	��	�	����	6����	����	����	��	�C��h0�]	�$$4�5$��$C�6CC�gval
		/gt		+gfilenamefweb/http.scm�
�	��	�		��		�	��	
�		��	�	��	�		��	�	��	�	��	�	
��	�		��	)�	$��	+�	
��
		/C��h�]4�:5$A4[>"G4�>"G4]>"G"4�>"G�$4:>"G�6C�gval
	�gport	�gfilenamefweb/http.scm�
�	��	�	��	�	��	�	��	�	��	�	
��	%�	
��	*�	��	1�	
��	:�	
��	R�	��	W�	��	^�	��	i�	��	m�	��	n�	
����	����	
��	�	C>"G4iJ>"G4�iK>"G4iL>"G42iM�����h8�]	45$"	45$66�gstr
		4gt		$gfilenamefweb/http.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	!�	��	(�	��	.�	��	4�	��		4C}�h({]	�$
��"$C6sgval
		%gt		%gfilenamefweb/http.scm�
�	��	�	��	�	��	%�	��		%C�}�h0�]"6�$�&6"���"����gval
		.gport		.gfilenamefweb/http.scm�
�	��	�	��	�	��	�	��	�	��	�	��	&�	��		.	C>"G4�iN>"G4�iO>"G4iP>"G42iQ�R5�����Sh`]	4-5$E
�$45�C45��$
4
5�C4
54�5�CL6
gx
		`gdash		`gfilenamefweb/http.scm�
	��		��		��		��		��		��		��	%	��	)	 ��	0	��	1	��	5	��	6	��	A	��	C	��	M	��	T	8��	V	��	W	��	\	 ��	`	��		`C���S
h8�]45$ 4O44	5,55�C	6�gstr
		7gfilenamefweb/http.scm�
	��		��		��		��		��			��			��	 	��	 	��	+ 	��	-		��	.	��	3!	��	7!	��		7C��hP�]�$C��$"$&$45"$$6CCCC�gelt
		Ngx		Lgy			Lgfilenamefweb/http.scm�
&	��	'	��		'	��	(	#��	(	1��	(	��	)	!��	$)	��	**	!��	+*	-��	6*	%��	:)	��	@+	!��	F+	-��	G+	%��		NCh �]�$��$	�6CC�gval
		gfilenamefweb/http.scm�
"	��	#		��		#	��	$	��	
$		��	#	��	%	��	%		��			C���hH�]�$4�>"G"4->"G�$	�6C�gpair
		Hgport		Hgfilenamefweb/http.scm�
1	��	2	��		2	��	
3	��	3	��	3	��	#4	��	95	��	=5	��	B6	��	F6	��		H	C�h8�]4�>"G4=>"G�6�gval
		8gport		8gfilenamefweb/http.scm�
,	��	-	��	-	
��	-	��	.	��	00	��	67	��	8/	��			8	C>"G4	iT>"G4iU>"G43iV>"G4�iW>"G4�iX>"G42iY�i�i�i>"G4	iZ>"G4i[>"G42i\����h0�]45$"
44
55$66�gstr
		/gfilenamefweb/http.scm�
i	��	j	��	
j	��	k	
��	k	��	k	
��	#j	��	)l	��	/m	��
		/C}�h({]	�$
��"$C6sgval
		%gt		%gfilenamefweb/http.scm�
n	��	o	��	o	��	%o	��		%C�}�h0�]"6�$�&6"���"����gval
		.gport		.gfilenamefweb/http.scm�
p	��	s	��	q	��	q	��	q	��	q	��	&r	��		.	C>"G43i]>"G42i^�
�h]�$C6wgstr
		gfilenamefweb/http.scm�
|	��	}	��	}	��	}	��	
~	��		��		C
�hv]&C6ngval
		gfilenamefweb/http.scm�
�	��	�	��	
�	��	�	��	�	��		C
���h �]&66�gval
		gport		gfilenamefweb/http.scm�
�	��	�	��	
�	��	�	��	�	��	�	��			C>"G4i_>"G`��ah y]	4;5$C
6qgc
		gt		gfilenamefweb/http.scm�
�	*��	�	0��	�	,��	�	0��		Cb�h@8]4545$
C45$4
5"	60gport
		?gv			?gextension-start		!	?gfilenamefweb/http.scm�
�
��	�	��	�	��	!�	��	+�	��	,�	��	?�	��		?gnamegread-chunk-header�g
documentationfQRead a chunk header from PORT and return the size in bytes of the
upcoming chunk.�CcRfcg�hh�L]+"�M$"
�$CM
�$'4L5N
�$NC"���4M54L�545$NCM�N
�$(4L>"G4L>"G"��"��9
"��.Dgbv
	�gidx	�gto-read		�gto-read		�gnum-read		�gt			gsize		2	Rgask-for		[�gread		m�gleft	��
gfilenamefweb/http.scm�
�	��	�	��	�	
��	�	��	 �	��	&�	
��	+�	��	,�	��	2�	
��	8�	��	;�	��	@�	��	C�	��	R�	��	S�	��	[�	
��	^�	��	i�	8��	m�	��	m�	
��	p�	��	z�	��	}�	����	����	����	����	����	����	����	%����	����	����	����	��#	�	gnamegread!�Cijkhd]L$CL6\gfilenamefweb/http.scm�
�	��	�	��	�	��		
gnamegclose�ChPO-/03#HHOQ
KKO6Ggport
		Ngkeep-alive?		Ng	remaining			Ng	finished?			Ngread!		,	Ngfilenamefweb/http.scm�
�
��	?�	!��	N�	��		N
gkeep-alive?S�gnamegmake-chunked-input-port�g
documentationf@Returns a new port which translates HTTP chunked transfer encoded
data from PORT into a non-encoded format. Returns eof when it has
read the final chunk from PORT. This does not necessarily mean
that there is no more data on PORT. When the returned port is
closed it will also close PORT, unless the KEEP-ALIVE? is true.�CERflmh@�]"0"(45$C445>"G"���"���"����gf
		:gq		:gfilenamefweb/http.scm�
�	��	�	��	�	��	�	��	�	��	�		��	&�	��	2�	��			:	gnameg
q-for-each�Cln�o�ph\]L6Tgelem
		
gfilenamefweb/http.scm�
�	��	
�	#��		
Chh�]4M5$C4M544	5L>"G4L>"G4LLOM>"GL6�glen
		hgfilenamefweb/http.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	�	��	+�	��	4�	��	8�	��	?�	��	H�	��	d�	��	h�	��		h
gnamegflush�Cqrshn]M6fgc
		
gfilenamefweb/http.scm�
�	��	
�	��		
gnamegput-char�CtshY]M6Qgc
		
gfilenamefweb/http.scm�
�	��	
�	!��		
Chp]LO6hgs
		gfilenamefweb/http.scm�
�	��	�	��		gnameg
put-string�C�uvkhH�]4L>"G4L>"G4L>"GL$CL6�gfilenamefweb/http.scm�
�	��	�	��	�	��	�	
��	�	��	'�	��	>�	��	F�	��			F
gnamegclose�Cw
hh�-/03#HOQ45KOOO	6�gport
		bgkeep-alive?		bgqueue			bg
q-for-each		-	bgflush		-	bgfilenamefweb/http.scm�
�
��	7�	��	^�	��	`�	>��	b�	��		b
gkeep-alive?S�gnamegmake-chunked-output-port�g
documentationf�Returns a new port which translates non-encoded data into a HTTP
chunked transfer encoded data and writes this to PORT. Data
written to this port is buffered until the port is flushed, at which
point it is all sent as one chunk. Take care to close the port when
done, as it will output the remaining data, and encode the final zero
chunk. When the port is closed it will also close PORT, unless
KEEP-ALIVE? is true.�CFR4xi5yRyhx]6pgport
		gfilenamefweb/http.scm�
�
��	�	 ��		gnameghttp-proxy-port?�CGR|yh�]456�gport
		gflag		gfilenamefweb/http.scm�
�
��	�	��			gnamegset-http-proxy-port?!�CHRC�gm
		,grtd
�gfilenamefweb/http.scm�		
��
	K
��
	O
��!�	Y	��!�	Y
��"�	[
��$�	^
��&=	j
��(l	q
��*�	v
��.�
��1��
��4Q�
��5��
��5��	��5��	&��5��	��5��
��9u�
��:��
��;��
��>��
��@��
��D$�
��D��
��E��
��G^�
��I(�
��I)
��I1	��I;
��ID
��IL	��IV
��I�
��J�
��K8
��K9	��KA	��KC	��KG

��Le
��M?
��N�
��PR
��RO!
��R�*
��S�-
��Tf0
��U3
��Vg6
��Y8<
��]K
��^�`
��_�i
��i�q
��jQ�
��m�
��n6�
��p~�
��q��
��s��
��v��
��w��
��x;�
��y�
��zk�
����
����
���p
���q.	����.
����/	����/
���p0
���[]
����k
���8q
����
���4�
�����
����
����$
����3
����8
���hD
��˧j
���ap
���kt
���Oy
�����
��ѻ�
����
���I�
��נ�
��߉�
���#�
����
����
���N�
���
����
����	����
���H	
����
����!
���&���!
���/
����<
���=P
����\
��6y
����
��	��
��
��
����
��G�
����
��?�
����
��O�
����
��x�
��B�
���
���
���
��R
��S:
��[:	 ��":
��"a
��"a	��#�a
��#�q
��#�q	��#�q
��#�w
��#�w	 ��#�w
��#�{
��#�{	��#�{
��#�
��#�	��#�
��#��
��#��	��#��
��$�
��$	�	��$!�
��$*�
��$1�	��.��
��.��
��.��	��.��
��.��
��.��	��2K�
��2T
��2\	��2a
��2j
��2r	��2w
��2�
��2�	��2�
��2�
��2�	��2�
��2�
��2�	��2�
��2�
��2�	��9h
��9qH
��9xH	��?}H
��?�j	��?�j	'��?�j	��?�j
��?�l
��?�l	��@\l
��@ev
��@mv	��@rv
��@{�
��@��	��B��
��B��
��B��	��B��
��B��
��B��	��B��
��B��
��C�	��C�
��C�
��C�	��C"�
��C+�
��C3�	��C8�
��CA�
��CH�	��CM�
��CV�
��C]�	��HG�
��HP�
��HX�	!��H]�
��Hf�
��Hn�	��Hs�
��H|�
��H��	!��H��
��H��
��H��	��KO�
��KX�
��K`�	��Ke�
��Kn�
��Kv�	��K{�
��K�
��K�	��K�
��K�
��K�	��R�
��R�;
��R�;	��R�;
��R�@
��R�@	��R�@
��R�D
��R�D	��R�D
��R�P
��R�P	��R�P
��R�U
��R�U	��R�U
��R�Y
��SY	��SY
��S"`
��S*`	��S/`
��S8d
��S@d	 ��SEd
��SNh
��SUh	��U�h
��U�w
��U�w	��U�w
��V{
��V{	��X6{
��X?�
��XG�	 ��XL�
��Z��
��a"�
��i��
��i��	��i��
��j��
��kB�
��	kD
C6web/response.go000064400000146032150536206120007514 0ustar00GOOF----LE-8-2.0�]{4h�U]gguile�	�	gdefine-module*�	�	�	gweb�	gresponse�	�		gfilenameS�	
fweb/response.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	gice-9�	gbinary-ports�	�	�	grdelim�	�	�	gmatch�	�	�	gsrfi�	gsrfi-9�	�	�	ghttp�	�	 �	! �	"gexportsS�	#g	response?�	$gresponse-version�	%g
response-code�	&gresponse-reason-phrase�	'gresponse-headers�	(g
response-port�	)g
read-response�	*gbuild-response�	+gadapt-response-version�	,gwrite-response�	-gresponse-must-not-include-body?�	.gresponse-body-port�	/gread-response-body�	0gwrite-response-body�	1gresponse-cache-control�	2gresponse-connection�	3g
response-date�	4gresponse-pragma�	5gresponse-trailer�	6gresponse-transfer-encoding�	7gresponse-upgrade�	8gresponse-via�	9gresponse-warning�	:gresponse-allow�	;gresponse-content-encoding�	<gresponse-content-language�	=gresponse-content-length�	>gresponse-content-location�	?gresponse-content-md5�	@gresponse-content-range�	Agresponse-content-type�	Bgtext-content-type?�	Cgresponse-expires�	Dgresponse-last-modified�	Egresponse-accept-ranges�	Fgresponse-age�	Gg
response-etag�	Hgresponse-location�	Igresponse-proxy-authenticate�	Jgresponse-retry-after�	Kgresponse-server�	Lg
response-vary�	Mgresponse-www-authenticate�	N#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM+�	Ogset-current-module�	PO�	QO�	Rg
<response>�	Sg%make-response-procedure�	Tgmake-syntax-transformer�	UT�	VT�	Wg
make-response�	Xgmacro�	Yg$sc-dispatch�	ZY�	[Y�	\g_�	]gany�	^\]]]]]�	_g
syntax-object�	`glambda�	agm-a15fd730aa5-8�	bgtop�	cab�	dgribcage�	egt-a15fd730aa5-3�	fgt-a15fd730aa5-4�	ggt-a15fd730aa5-5�	hgt-a15fd730aa5-6�	igt-a15fd730aa5-7�	jefghi�	kccccc�	lfl-a15fd730aa5-d�	mfl-a15fd730aa5-e�	nfl-a15fd730aa5-f�	ofl-a15fd730aa5-10�	pfl-a15fd730aa5-11�	qlmnop�	rdjkq�	sd�	tgx�	ut�	vc�	wfl-a15fd730aa5-a�	xw�	yduvx�	zgshift�	{g	proc-name�	|gargs�	}{|�	~b�	~~��fl-1e8ba8b5a-2ba��fl-1e8ba8b5a-2bb������d}���gkey��gvalue��gname��gformals��gbody���������~~~~~��fl-1e8ba8b5a-2ad��fl-1e8ba8b5a-2ae��fl-1e8ba8b5a-2af��fl-1e8ba8b5a-2b0��fl-1e8ba8b5a-2b1���������d�����gmake-procedure-name�����~��fl-1e8ba8b5a-29d�����d�����~��fl-1e8ba8b5a-29c�����du����crsyzssss����
��ghygiene�����_`����gversion��~rsy�����_�����gcode��_�����g
reason-phrase��_�����gheaders��_�����gport��_������������gmake-struct��gm-a15fd730aa5-1���b��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���b�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������d�����g	ctor-args�����fl-1e8ba8b5a-37a�����d�����gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������d����gform��g	type-name��gconstructor-spec��gfield-names��������~~~~��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������d�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������~~~~~~~~��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������d�����fl-1e8ba8b5a-334�����du�����rsyzs�sss��s�����_�����_R����_
�������������������geach-any��\��gsyntax-violation��������fWrong number of arguments��gidentifier?��������~sy��_S����������f-source expression failed to match any pattern��grecord-type-vtable�����g
pwpwpwpwpw�gdefault-record-printer���������gset-struct-vtable-name!��	�
gvtable-offset-user�
�
�
g%response?-procedure�\]�gm-a15fd730aa5-1d�b�gt-a15fd730aa5-1c���fl-a15fd730aa5-22��d�fl-a15fd730aa5-1f��du�szssss����
�_`��gobj�gt-1e8ba8b5a-47e�gt-1e8ba8b5a-478�gt-1e8ba8b5a-479� gt-1e8ba8b5a-47a�!gt-1e8ba8b5a-47d�"gt-1e8ba8b5a-47c�#gt-1e8ba8b5a-47b�$ !"#�%gm-1e8ba8b5a-47f�&%b�'&&&&&&&�(fl-1e8ba8b5a-483�)fl-1e8ba8b5a-484�*fl-1e8ba8b5a-485�+fl-1e8ba8b5a-486�,fl-1e8ba8b5a-487�-fl-1e8ba8b5a-488�.fl-1e8ba8b5a-489�/()*+,-.�0d$'/�1g	copier-id�21�3fl-1e8ba8b5a-476�43�5d2�4�6g	ctor-name�76�8fl-1e8ba8b5a-46e�98�:d7�9�;��<fl-1e8ba8b5a-46c�=<�>d;�=�?glayout�@?�Afl-1e8ba8b5a-46a�BA�Cd@�B�Dg
immutable?�ED�Ffl-1e8ba8b5a-468�GF�HdE�G�Igfield-count�JI�Kfl-1e8ba8b5a-466�LK�MdJ�L�Ng
getter-ids�ON�Pfl-1e8ba8b5a-463�QP�RdO�Q�Sg	field-ids�TS�Ufl-1e8ba8b5a-460�VU�WdT�V�Xgpredicate-name�Yg
field-spec�ZD���XY�[~~~~~~�\fl-1e8ba8b5a-453�]fl-1e8ba8b5a-454�^fl-1e8ba8b5a-455�_fl-1e8ba8b5a-456�`fl-1e8ba8b5a-457�afl-1e8ba8b5a-458�b\]^_`a�cdZ[b�d�szs0ssss5s:s>sCsHsMsRsWc���e_d��fe�ggand�h_gd��igstruct?�j_id��kje�lgeq?�m_ld��ng
struct-vtable�o_nd��poe�q~s�r_Rq��smpr�thks�uft�v~s�w_
v��xgthrow-bad-struct�yx�zx�{g%response-version-procedure�|gfree-id�}g
%%on-error�~gm-a15fd730aa5-29�~b����fl-a15fd730aa5-2b�����du����s�zssss������_}����|����]��g%%type��gt-1e8ba8b5a-3a5��gt-1e8ba8b5a-3a6��gt-1e8ba8b5a-3a7��gt-1e8ba8b5a-3a8��gt-1e8ba8b5a-3a9��gt-1e8ba8b5a-3aa��gt-1e8ba8b5a-3ab�����������gm-1e8ba8b5a-3ac���b�����������fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6�����������d�����ggetter��gindex������fl-1e8ba8b5a-3a3��fl-1e8ba8b5a-3a4������d�����N1��~~~��fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0�������d������s�zs�sss�s�����_�����|���\��]��gck��gerr��gs��������fl-a15fd730aa5-2e��fl-a15fd730aa5-2f������d������s�zssss����
��_�����gquote��_�����~�s���_R�����������g%%index��_�����|���\��]��fl-a15fd730aa5-33��fl-a15fd730aa5-34������d������s�zssss����
��_�����_������s���_
�����������g%%copier��_�����|���\��]��fl-a15fd730aa5-38��fl-a15fd730aa5-39������d������s�zssss����
��_�����_�����g%%<response>-set-fields��~�s���_������������gt-a15fd730aa5-28�����fl-a15fd730aa5-3d�����d������s�zssss����
��_`������s�zs�sss�s�����_��������gif��_�����_l����_n��������~�s���_R���������g
struct-ref��_������s���_
���������_x����_�����_$������������������������~s���_{����g%response-code-procedure�gm-a15fd730aa5-44�b��fl-a15fd730aa5-46��du�szssss�����_}��|�	]�
�szs�sss�s����_�
��|�
\	]��fl-a15fd730aa5-49�fl-a15fd730aa5-4a��d��szssss����
�_���_���~s�_R����_�
��|�\	]�fl-a15fd730aa5-4e�fl-a15fd730aa5-4f�� d��! szssss����
�"_�!��#_�!��$ s�%_$��&#%�'&�(_�
��)|(�*\	)]�+fl-a15fd730aa5-53�,fl-a15fd730aa5-54�-+,�.d�-�/.szssss����
�0_�/��1_�/��2~.s�3_�2��413�54�6gt-a15fd730aa5-43�76�8fl-a15fd730aa5-58�98�:d79�;:szssss����
�<_`;��=�:szs�sss�s����>_�=��?>�@_�=��A_l=��B_n=��CB>�D~:s�E_RD��FACE�G_�=��H:s�I_H��JG>I�K_x=��L_�=��M_%D��NLM�OK>N�P@FJO�Q<?P�R~s�S_�R��Tg%response-reason-phrase�Ug"%%response-reason-phrase-procedure�Vgm-a15fd730aa5-5f�WVb�XW�Yfl-a15fd730aa5-61�ZY�[duXZ�\Ws[zssss�����]_}\��^|]�_^]�`�s[zs�sss�s����a_�`��b|a�c\_b]�dWW�efl-a15fd730aa5-64�ffl-a15fd730aa5-65�gef�hd�dg�iWhs[zssss����
�j_�i��k_�i��l~hs[�m_Rl��nkm�on�p_�`��q|p�r\_q]�sfl-a15fd730aa5-69�tfl-a15fd730aa5-6a�ust�vd�du�wWvs[zssss����
�x_�w��y_�w��zvs[�{_	z��|y{�}|�~_�`��|~��\_]��fl-a15fd730aa5-6e��fl-a15fd730aa5-6f������d�d���W�s[zssss����
��_�����_�����~�s[��_������������gt-a15fd730aa5-5e�����fl-a15fd730aa5-73�����d�X���W�s[zssss����
��_`������s[zs�sss�s�����_��������_�����_l����_n��������~�s[��_R���������_������s[��_	���������_x����_�����_T������������������������~s[��_U����g%response-headers-procedure��gm-a15fd730aa5-7a���b�����fl-a15fd730aa5-7c�����du�����s�zssss������_}����|����]���s�zs�sss�s�����_�����|���\��]������fl-a15fd730aa5-7f��fl-a15fd730aa5-80������d�������s�zssss����
��_�����_�����~�s���_R�����������_�����|���\��]��fl-a15fd730aa5-84��fl-a15fd730aa5-85������d�������s�zssss����
��_�����_������s���_	�����������_�����|���\��]��fl-a15fd730aa5-89��fl-a15fd730aa5-8a������d�������s�zssss����
��_�����_�����~�s���_������������gt-a15fd730aa5-79�����fl-a15fd730aa5-8e�����d�������s�zssss����
��_`������s�zs�sss�s�����_��������_�����_l����_n��������~�s���_R���������_������s���_	���������_x����_�����_'������������������������~s���_�����g%response-port-procedure�gm-a15fd730aa5-95�b��fl-a15fd730aa5-97��du�szssss�����_}��|�	]�
�szs�sss�s����_�
��|�
\	]��fl-a15fd730aa5-9a�fl-a15fd730aa5-9b��d��szssss����
�_���_���~s�_R����_�
��|�\	]�fl-a15fd730aa5-9f�fl-a15fd730aa5-a0�� d��! szssss����
�"_�!��#_�!��$ s�%_	$��&#%�'&�(_�
��)|(�*\	)]�+fl-a15fd730aa5-a4�,fl-a15fd730aa5-a5�-+,�.d�-�/.szssss����
�0_�/��1_�/��2~.s�3_�2��413�54�6gt-a15fd730aa5-94�76�8fl-a15fd730aa5-a9�98�:d79�;:szssss����
�<_`;��=�:szs�sss�s����>_�=��?>�@_�=��A_l=��B_n=��CB>�D~:s�E_RD��FACE�G_�=��H:s�I_	H��JG>I�K_x=��L_�=��M_(D��NLM�OK>N�P@FJO�Q<?P�R~s�S_�R��Tgeach�U]]�VTU�W]V��X]W��Y]X��Zg%%set-fields�[gdummy�\gcheck?�]gexpr�^[\��]�_gm-a15fd730aa5-b0�`_b�a`�����bfl-a15fd730aa5-b5�cfl-a15fd730aa5-b6�dfl-a15fd730aa5-b7�efl-a15fd730aa5-b8�ffl-a15fd730aa5-b9�gbcdef�hd^ag�i`�jfl-a15fd730aa5-b2�kj�lduik�mgt-1e8ba8b5a-3c4�ngt-1e8ba8b5a-3c6�ogt-1e8ba8b5a-3c5�pmno�qgm-1e8ba8b5a-3c7�rqb�srrr�tfl-1e8ba8b5a-3cb�ufl-1e8ba8b5a-3cc�vfl-1e8ba8b5a-3cd�wtuv�xdpsw�yfl-1e8ba8b5a-3c1�zfl-1e8ba8b5a-3c2�{fl-1e8ba8b5a-3c3�|yz{�}d��|�~�hslzsxsss}��
�_Z~���~hsl��_R����_$����_%����_T����_'����_(�����������gmap��������glist��gthrow��gbad-response��gnumber?��gexact?��ginteger?��gnon-negative-integer?��g
valid-header?��gvalidate-headers��fBad value for header ~a: ~s��fHeader not a pair: ~a��fHeaders not a list: ~a��gversionS���
���gcodeS������g
reason-phraseS���	���gheadersS���	���gportS���	���gvalidate-headers?S���	��������������fBad version: ~a��fBad code: ~a��gstring?��fBad reason phrase��fContinue��	d����fSwitching Protocols��	e����fOK�������fCreated�������fAccepted�������fNon-Authoritative Information�������f
No Content�������f
Reset Content�������fPartial Content�������fMultiple Choices��,����fMoved Permanently��-����fFound��.����f	See Other��/����fNot Modified��0Ì��f	Use Proxy��1Ō��fTemporary Redirect��3nj��fBad Request���Ɍ��fUnauthorized���ˌ��fPayment Required���͌��f	Forbidden���ό��f	Not Found���ь��fMethod Not Allowed���ӌ��fNot Acceptable���Ռ��fProxy Authentication Required���׌��fRequest Timeout���ٌ��fConflict���ی��fGone���݌��fLength Required���ߌ��fPrecondition Failed���ጤ�fRequest Entity Too Large���㌤�fRequest-URI Too Long���匤�fUnsupported Media Type���猤�fRequested Range Not Satisfiable���錤�fExpectation Failed���댤�fInternal Server Error���팤�fNot Implemented����fBad Gateway�����fService Unavailable�����fGateway Timeout�������fHTTP Version Not Supported�����������������������������������������������(��g*reason-phrases*��gassv-ref��f	(Unknown)��gcode->reason-phrase��gsymbol->string��gstring-prefix?�ftext/�gstring-suffix?�f/xml�f+xml�gset-port-encoding!�f
ISO-8859-1�gread-response-line�gread-headers�gwrite-response-line�	g
write-headers�
gdisplay�f
�g
close-port�
gmake-custom-binary-input-port�fdelimited input port�gmin�geof-object?�f/EOF while reading response body: ~a bytes of ~a�gget-bytevector-n!�gmake-delimited-input-port�gdecode?S���gkeep-alive?S�	���gmember�gchunked��gmake-chunked-input-port�gmemq�gclose�
�� g
keep-alive�!gassq-ref�"gcharset�#gand=>�$gget-bytevector-all�%gvu8
	�j�&gput-bytevector�'gdefine-response-accessor�(��)fl-a15fd730aa5-22a�*)�+d(�*�,fl-a15fd730aa5-227�-,�.du�-�/~+s.�0_'/��1_/��21�3\]]�4g
datum->syntax�5g
symbol-append�6g	response-�7g
syntax->datum�8gdefine*�9gt-a15fd730aa5-235�:9�;gm-a15fd730aa5-236�<;b�=<�>fl-a15fd730aa5-239�?>�@d:=?�Agdef�B�A�Cfl-a15fd730aa5-231�Dfl-a15fd730aa5-232�ECD�FdBE�G~s@Fs.�H_8G��I_G��JgoptionalS�K_JG��Lgdefault�M_LG��Ngcond�O_NG��Pgassq�Q_PG��R_�G��S_'G��TSI�UT�Vg=>�W_VG��Xgcdr�Y_XG��ZWY�[gelse�\_[G��]\M�^]�_g
cache-control�`g
connection�agdate�bgpragma�cgtrailer�dgtransfer-encoding�egupgrade�fgvia�ggwarning�hgallow�igcontent-encoding�jgcontent-language�kgcontent-length�lgcontent-location�mgcontent-md5�ng
content-range�ogcontent-type�pgexpires�qg
last-modified�rg
accept-ranges�sgage�tgetag�uglocation�vgproxy-authenticate�wgretry-after�xgserver�ygvary�zgwww-authenticate�C5h`o]4	
!"N54Q>"GRh�]�C�gversion
		gcode		g
reason-phrase			gheaders			gport			gfilenamefweb/response.scm�
	S
��			gnameg%make-response-procedure�CSR4VWX[^�h�]C�gt-a15fd730aa5-3
		gt-a15fd730aa5-4		gt-a15fd730aa5-5			gt-a15fd730aa5-6			gt-a15fd730aa5-7						C��W�hS]L6Kga
		gfilenamefweb/response.scm�		S
��		C\�hC]L6;gfilenamefweb/response.scm�		S
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/response.scm�
	S
��		nC5WRR�4	R>"G	�Si�RRRhu]�$��CCmgobj
		gfilenamefweb/response.scm�
	S
��		gnameg%response?-procedure�C
R4V#X[uh8]C0gt-a15fd730aa5-1c
		
		
C��#�hS]L6Kga
		gfilenamefweb/response.scm�		S
��		C\�hC]L6;gfilenamefweb/response.scm�		S
��		
Cwh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/response.scm�
	S
��		nC5#RRz$hz]�&
�C6rgs
		gfilenamefweb/response.scm�
	S
��		gnameg%response-version-procedure�C{R4V$X[���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h8]C0gt-a15fd730aa5-28
		
		
C��$�hS]L6Kga
		gfilenamefweb/response.scm�		S
��		C\�hC]L6;gfilenamefweb/response.scm�		S
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/response.scm�
	S
��	�C5$RRz%hw]�&�C6ogs
		gfilenamefweb/response.scm�
	S
��		gnameg%response-code-procedure�C�R4V%X[
h:]��C2gerr
		gs					C"'h:]��C2gerr
		gs					C*05h:]��C2gerr
		gs					CQh8]C0gt-a15fd730aa5-43
		
		
C��%�hS]L6Kga
		gfilenamefweb/response.scm�		S
��		C\�hC]L6;gfilenamefweb/response.scm�		S
��		
CSh]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/response.scm�
	S
��	�C5%RRzTh �]�&	�C6ygs
		gfilenamefweb/response.scm�
	S
��		gnameg"%%response-reason-phrase-procedure�CUR4VTX[cjoh:]��C2gerr
		gs					Crx}h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h8]C0gt-a15fd730aa5-5e
		
		
C��T�hS]L6Kga
		gfilenamefweb/response.scm�		S
��		C\�hC]L6;gfilenamefweb/response.scm�		S
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/response.scm�
	S
��	�C5TRRz'h z]�&	�C6rgs
		gfilenamefweb/response.scm�
	S
��		gnameg%response-headers-procedure�C�R4V'X[���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h8]C0gt-a15fd730aa5-79
		
		
C��'�hS]L6Kga
		gfilenamefweb/response.scm�		S
��		C\�hC]L6;gfilenamefweb/response.scm�		S
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/response.scm�
	S
��	�C5'RRz(h w]�&	�C6ogs
		gfilenamefweb/response.scm�
	S
��		gnameg%response-port-procedure�C�R4V(X[
h:]��C2gerr
		gs					C"'h:]��C2gerr
		gs					C*05h:]��C2gerr
		gs					CQh8]C0gt-a15fd730aa5-94
		
		
C��(�hS]L6Kga
		gfilenamefweb/response.scm�		S
��		C\�hC]L6;gfilenamefweb/response.scm�		S
��		
CSh]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/response.scm�
	S
��	�C5(R4V�X[Y����h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefweb/response.scm�
	S
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R��h�-136�gmessage
			gargs			gfilenamefweb/response.scm�
	\
��	
	]		��		]	��			
gnamegbad-response�C�R���h0�]45$
�$45$6CCC�gn
		,gfilenamefweb/response.scm�
	_
��		`	��	
	`	��		`	��		`	��		`	��	 	`	��	&	`	'��			,gnamegnon-negative-integer?�C�R������hXA]�$<��$(��45$�666(C69gheaders
		Ugh		Egk			=gv			=gfilenamefweb/response.scm�
	b
��		c	��			c	��		d	��		d	��		e	��		e	��		f	��		f	!��		f	��	 	g	��	,	g	��	1	h	$��	3	h	��	7	i	 ��	=	i	��	A	j	��	E	j	��	K	k	��	Q	l	��	U	l	
��		Ugnamegvalidate-headers�C�R���������RhP-/03##�####"4>"�G"��$�4�5$�4�5$�"4>"�G"~45$oX�$]" $4>"@G"9"5$+45$"���"4	>"G""���""��r""��j""��'""��""��
�C�gversion
	Igcode	Ig
reason-phrase		Igheaders		Igport		Igvalidate-headers?		Igfilenamefweb/response.scm�
	n
��		n	(��	8	o	"��	Q	v	��	U	v	��	\	v	��	h	r	��	k	s	��	o	r	��	p	t	��	u	t	%��	w	t	��	{	s		��	|	u	���	u	%���	u	���	s		���	x	���	x	���	x	���	r	���	w	���	r	���	w	+���	w		���	|	���	}	���	r	���	y	���	y	���	z	���	z	��	z	��H	~	��#	I

gversionS
�gcodeS�g
reason-phraseS	�gheadersS	�gportS	�gvalidate-headers?S	�gnamegbuild-response�g
documentationf~Construct an HTTP response object. If VALIDATE-HEADERS? is true,
the headers are each run through their respective validators.�C*R��R���h �]	45$CC�gcode
		gt		gfilenamefweb/response.scm�
�
��	�	��	�	��	�	��		gnamegcode->reason-phrase�C�RRzT�%hH']	�&		�"	45$C�&�"	456gresponse
		Fgt		Fgfilenamefweb/response.scm�
�
��	�	��	�	��	-�	��	F�	��		Fgnamegresponse-reason-phrase�g
documentationfbReturn the reason phrase given in RESPONSE, or the standard
reason phrase for the response's code.�C&R��h@�]4545$C45$C6�gtype
		;gtype			;gt			;gt		(	;gfilenamefweb/response.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	 �	��	$�	��	(�	��	(�	��	7�	��	;�	��		;gnamegtext-content-type?�g
documentationfsReturn #t if TYPE, a symbol as returned by `response-content-type',
represents a textual type such as `text/plain'.�CBRRhH]!4>"G4>G45�Cgport
		Cgversion	!	Cgcode		!	Cg
reason-phrase		!	Cgheaders		1	Cgfilenamefweb/response.scm�
�
��	�	��		�	��	�	��	�	��	$�	��	+�	0��	1�	��			Cgnameg
read-response�g
documentationf�Read an HTTP response from PORT.

As a side effect, sets the encoding on PORT to
ISO-8859-1 (latin-1), so that reading one character reads one byte.  See
the discussion of character sets in "HTTP Responses" in the manual,
for more information.�C)R*�Rz%��'�(h`I]�&�"	45�&		�"	45	�&		�"	4
56Agresponse
		`gversion		`gfilenamefweb/response.scm�
�
��		�	��	)�	��	F�	��	`�	��		`	gnamegadapt-response-version�g
documentationf}Adapt the given response to a different HTTP version.  Returns a new
HTTP response.

The idea is that many applications might just build a response for the
default HTTP version, and this method could handle a number of
programmatic transformations to respond to older HTTP versions (0.9 and
1.0).  But currently this function is a bit heavy-handed, just updating
the version field.�C+RRz$%&	'
(h(
]"4�&
�"	45�&�"	4545>"G4�&		�"	45>"G4	
>"G�&		�"	45&C�&
�"	45�&�"	4545�&		�"	45�Cgr
	"gport	"gversion	
"gcode	
"g
reason-phrase	
"gheaders	
"gfilenamefweb/response.scm�
�
��	�	��	�	��	"�	,��	:�	��	G�	��	P�	��	U�	��	t�	��	}�	����	����	����	����	����	����	*����	����	0��
�	��	"	gnamegwrite-response�g
documentationkhWrite the given HTTP response to PORT.

Returns a new response, whose  response-port  will continue writing
on PORT, perhaps using some transfer encoding.�C,RRz%h�
]	�&�"	45	d�$
Ǔ"$C�&�"	45̑$C�&�"	450�Cgr
	�gb		5gt	5�gt	^�gfilenamefweb/response.scm�
�
��	�	��	�	��	5�	��	C�		��	^�	��	^�	��	l�		����	��
	�gnamegresponse-must-not-include-body?�g
documentationkReturns  #t  if the response R is not permitted to have a body.

This is true for some response types, like those with code 304.�C-RhM]L6Egfilenamefweb/response.scm�

		��		��		
C
�h��]4LM�5"Y45$ML�$
CML6"
M�NC
�$
�$4L5"���"���"���4L5"���~gbv
	�gstart	�gcount		�gcount		�gret			mgfilenamefweb/response.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	$�	��	(�	��	.�	��	4�	��	=	 ��	?	��	B�	��	E	��	J�	��	N	 ��	R	��	S	��	e	��	m�	��	n�	����	��	�	gnamegread!�Ch8�]HH
K$"OKOJ6�gport
		4glen		4gkeep-alive?			4g
bytes-read			4gclose			4gfilenamefweb/response.scm�
�
��			��	#
	!��	2		��	4
	��		4	gnamegmake-delimited-input-port�g
documentationf�Return an input port that reads from PORT, and makes sure that
exactly LEN bytes are available from PORT.  Closing the returned port
closes PORT, unless KEEP-ALIVE? is true.�CR6Rz(=-2$ AB!"h��-/03##H4455$(4�&		�"	45	5"�4
5$(4�&		�"	455"�45$"�4
455$"5�&
�"	45�$4
455�"$�&		�"	45"�&		�"	45K$rJ$h45�$Q��45$24J45$">"G""""JC�gr
	�gdecode?	�gkeep-alive?		�gport		&�gt		i=gt	��gv	R�gw	a�gx	a�gt	~�
gfilenamefweb/response.scm�

��	)	��	-	��	.	��	6	��	:	��	;	��	@	��	^	��	c	��	i	��	r	��	w	&���	��� 	���	���"	
���"	���"	���"	
���"	���#	���#	,���#	���#	
���$	���$	���$	&���$	���$	��	��%	��"+	��E-	��K-	��L.	��q0	��v1	��|1	/��~1	��~1	���2	���0	��,	�
gdecode?S�gkeep-alive?S	�gnamegresponse-body-port�g
documentationk�Return an input port from which the body of R can be read.  The
encoding of the returned port is set according to R's  content-type 
header, when it's textual, except if DECODE? is  #f .  Return #f when
no body is available.

When KEEP-ALIVE? is  #f , closing the returned port also closes R's
response port.�C.R#.$%h(M]	445545$CCEgr
		&gbody		&gfilenamefweb/response.scm�
7
��	:	��	:	��	:	��	:	��	>	��	 >	��	"?	��			&gnamegread-response-body�g
documentationktReads the response body from R, as a bytevector.  Returns
 #f  if there was no response body.�C/R&Rz(h(�]�&		�"	456�gr
		#gbv		#gfilenamefweb/response.scm�
B
��	E	��	#E	��		#	gnamegwrite-response-body�g
documentationfIWrite BV, a bytevector, to the port corresponding to the HTTP
response R.�C0R4V'X[02h-]��C%gfield
				C3���hj]6bgfield
		gdef		gfilenamefweb/response.scm�	L	��			C4567HIKMOQRUZ^hH�]
444555	
��
���C�gfield
		Egdef		Egtmp			Egfilenamefweb/response.scm�	M	��	O	��	O	%��	
O	0��	O	��	M	��	M	��		E	C	hPu]45$@45"	6$4?$@"���"���mgx
		Pgtmp		Pgtmp		"	Pgfilenamefweb/response.scm�
H	��		PC5'RP_Rz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
X
��	X	(��	X
��		Fgnamegresponse-cache-control�C1RP`Rz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
Y
��	Y	%��	Y
��		Fgnamegresponse-connection�C2RPaRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
Z
��		Fgnameg
response-date�C3RPbRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
[
��	[	!��	[
��		Fgnamegresponse-pragma�C4RPcRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
\
��	\	"��	\
��		Fgnamegresponse-trailer�C5RPdRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
]
��	]	,��	]
��		Fgnamegresponse-transfer-encoding�C6RPeRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
^
��	^	"��	^
��		Fgnamegresponse-upgrade�C7RPfRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
_
��	_	��	_
��		Fgnamegresponse-via�C8RPgRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
`
��	`	"��	`
��		Fgnamegresponse-warning�C9RPhRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
d
��	d	 ��	d
��		Fgnamegresponse-allow�C:RPiRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
e
��	e	+��	e
��		Fgnamegresponse-content-encoding�C;RPjRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
f
��	f	+��	f
��		Fgnamegresponse-content-language�C<RPkRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
g
��		Fgnamegresponse-content-length�C=RPlRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
h
��		Fgnamegresponse-content-location�C>RPmRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
i
��		Fgnamegresponse-content-md5�C?RPnRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
j
��		Fgnamegresponse-content-range�C@RPoRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
k
��		Fgnamegresponse-content-type�CARPpRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
l
��		Fgnamegresponse-expires�CCRPqRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
m
��		Fgnamegresponse-last-modified�CDRPrRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
q
��		Fgnamegresponse-accept-ranges�CERPsRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
r
��		Fgnamegresponse-age�CFRPtRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
s
��		Fgnameg
response-etag�CGRPuRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
t
��		Fgnamegresponse-location�CHRPvRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
u
��		Fgnamegresponse-proxy-authenticate�CIRPwRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
v
��		Fgnamegresponse-retry-after�CJRPxRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
w
��		Fgnamegresponse-server�CKRPyRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
x
��	x	��	x
��		Fgnameg
response-vary�CLRPzRz'hH�-.,3#4�&		�"	455$�CC�gresponse
		Fgdefault		Fgt		7	Fgfilenamefweb/response.scm�
y
��		Fgnamegresponse-www-authenticate�CMRC�gm
		,grtd
:dgfilenamefweb/response.scm�		
��,	S
��"�	\
��#�	_
��%E	b
��)�	n
��)��	��)��
��*��
��,:�
��.<�
��0��
��3��
��8��
��<��
��A4�
��K
��M�7
��N�B
��R�X
��TY
��UZ
��V[
��W'\
��XI]
��Y_^
��Zs_
��[�`
��\�d
��]�e
��^�f
��_�g
��`�h
��a�i
��cj
��dk
��el
��fm
��gq
��hr
��is
��jt
��k1u
��l:v
��m=w
��nLx
��oWy
��0	oY
C6web/request.go000064400000147053150536206120007352 0ustar00GOOF----LE-8-2.0�]�4h9W]gguile�	�	gdefine-module*�	�	�	gweb�	grequest�	�		gfilenameS�	
fweb/request.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	gice-9�	gbinary-ports�	�	�	grdelim�	�	�	gsrfi�	gsrfi-9�	�	�	guri�	�	�	ghttp�	�	 �	! �	"gexportsS�	#grequest?�	$grequest-method�	%grequest-uri�	&grequest-version�	'grequest-headers�	(grequest-meta�	)grequest-port�	*gread-request�	+g
build-request�	,g
write-request�	-gread-request-body�	.gwrite-request-body�	/grequest-cache-control�	0grequest-connection�	1grequest-date�	2grequest-pragma�	3grequest-trailer�	4grequest-transfer-encoding�	5grequest-upgrade�	6grequest-via�	7grequest-warning�	8g
request-allow�	9grequest-content-encoding�	:grequest-content-language�	;grequest-content-length�	<grequest-content-location�	=grequest-content-md5�	>grequest-content-range�	?grequest-content-type�	@grequest-expires�	Agrequest-last-modified�	Bgrequest-accept�	Cgrequest-accept-charset�	Dgrequest-accept-encoding�	Egrequest-accept-language�	Fgrequest-authorization�	Ggrequest-expect�	Hgrequest-from�	Igrequest-host�	Jgrequest-if-match�	Kgrequest-if-modified-since�	Lgrequest-if-none-match�	Mgrequest-if-range�	Ngrequest-if-unmodified-since�	Ogrequest-max-forwards�	Pgrequest-proxy-authorization�	Qg
request-range�	Rgrequest-referer�	Sg
request-te�	Tgrequest-user-agent�	Ugrequest-absolute-uri�	V#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU3�	Wgset-current-module�	XW�	YW�	Zg	<request>�	[g%make-request-procedure�	\gmake-syntax-transformer�	]\�	^\�	_gmake-request�	`gmacro�	ag$sc-dispatch�	ba�	ca�	dg_�	egany�	fdeeeeee�	gg
syntax-object�	hglambda�	igm-45c8615977-9�	jgtop�	kij�	lgribcage�	mgt-45c8615977-3�	ngt-45c8615977-4�	ogt-45c8615977-5�	pgt-45c8615977-6�	qgt-45c8615977-7�	rgt-45c8615977-8�	smnopqr�	tkkkkkk�	ufl-45c8615977-e�	vfl-45c8615977-f�	wfl-45c8615977-10�	xfl-45c8615977-11�	yfl-45c8615977-12�	zfl-45c8615977-13�	{uvwxyz�	|lst{�	}l�	~gx�	~��k��fl-45c8615977-b�����l����gshift��g	proc-name��gargs������j������fl-1e8ba8b5a-2ba��fl-1e8ba8b5a-2bb������l�����gkey��gvalue��gname��gformals��gbody����������������fl-1e8ba8b5a-2ad��fl-1e8ba8b5a-2ae��fl-1e8ba8b5a-2af��fl-1e8ba8b5a-2b0��fl-1e8ba8b5a-2b1���������l�����gmake-procedure-name��������fl-1e8ba8b5a-29d�����l��������fl-1e8ba8b5a-29c�����l����k|}��}}}}����
��ghygiene�����gh����gmethod���|}������g�����g����gversion��g�����gheaders��g�����gmeta��g�����gport��g�������������gmake-struct��gm-45c8615977-1���j��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���j�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������l�����g	ctor-args�����fl-1e8ba8b5a-37a�����l�����gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������l�����gform��g	type-name��gconstructor-spec��gfield-names��������������fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������l�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers����������������������fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������l�����fl-1e8ba8b5a-334�����l�����|}��}�}}}��}�����g�����gZ����g
�������������	�������geach-any��d����gsyntax-violation������fWrong number of arguments�gidentifier?����}��g[������	f-source expression failed to match any pattern�
grecord-type-vtable�
�
�
gpwpwpwpwpwpw�gdefault-record-printer���������gset-struct-vtable-name!���gvtable-offset-user���g%request?-procedure�de�gm-45c8615977-20�j�gt-45c8615977-1f���fl-45c8615977-25� �!l �"fl-45c8615977-22�#"�$l#�%!}$�}}}}����
�&gh%��'gobj�(gt-1e8ba8b5a-47e�)gt-1e8ba8b5a-478�*gt-1e8ba8b5a-479�+gt-1e8ba8b5a-47a�,gt-1e8ba8b5a-47d�-gt-1e8ba8b5a-47c�.gt-1e8ba8b5a-47b�/()*+,-.�0gm-1e8ba8b5a-47f�10j�21111111�3fl-1e8ba8b5a-483�4fl-1e8ba8b5a-484�5fl-1e8ba8b5a-485�6fl-1e8ba8b5a-486�7fl-1e8ba8b5a-487�8fl-1e8ba8b5a-488�9fl-1e8ba8b5a-489�:3456789�;l/2:�<g	copier-id�=<�>fl-1e8ba8b5a-476�?>�@l=�?�Ag	ctor-name�BA�Cfl-1e8ba8b5a-46e�DC�ElB�D�F��Gfl-1e8ba8b5a-46c�HG�IlF�H�Jglayout�KJ�Lfl-1e8ba8b5a-46a�ML�NlK�M�Og
immutable?�PO�Qfl-1e8ba8b5a-468�RQ�SlP�R�Tgfield-count�UT�Vfl-1e8ba8b5a-466�WV�XlU�W�Yg
getter-ids�ZY�[fl-1e8ba8b5a-463�\[�]lZ�\�^g	field-ids�_^�`fl-1e8ba8b5a-460�a`�bl_�a�cgpredicate-name�dg
field-spec�eO���cd�f�������gfl-1e8ba8b5a-453�hfl-1e8ba8b5a-454�ifl-1e8ba8b5a-455�jfl-1e8ba8b5a-456�kfl-1e8ba8b5a-457�lfl-1e8ba8b5a-458�mghijkl�nlefm�o�!}$�};}}}}@}E}I}N}S}X}]}bn���pg'o��qp�rgand�sgro��tgstruct?�ugto��vup�wgeq?�xgwo��yg
struct-vtable�zgyo��{zp�|�!}$�}gZ|��~x{}�sv~��&q���}$��g����gthrow-bad-struct��������g%request-method-procedure��gfree-id��g
%%on-error��gm-45c8615977-2c���j�����fl-45c8615977-2e�����l�����}��}}}}������g����������e��g%%type��gt-1e8ba8b5a-3a5��gt-1e8ba8b5a-3a6��gt-1e8ba8b5a-3a7��gt-1e8ba8b5a-3a8��gt-1e8ba8b5a-3a9��gt-1e8ba8b5a-3aa��gt-1e8ba8b5a-3ab�����������gm-1e8ba8b5a-3ac���j�����������fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6�����������l�����ggetter��gindex������fl-1e8ba8b5a-3a3��fl-1e8ba8b5a-3a4������l������Y<�������fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0�������l������}��}�}}}�}�����g���������d��e��gck��gerr��gs����������fl-45c8615977-31��fl-45c8615977-32������l�������}��}}}}����
��g�����gquote��g�������}���gZ�����������g%%index��g���������d��e��fl-45c8615977-36��fl-45c8615977-37������l�������}��}}}}����
��g�����g������}���g
�����������g%%copier��g���������d��e��fl-45c8615977-3b��fl-45c8615977-3c������l�������}��}}}}����
��g�����g�����g%%<request>-set-fields����}���g������������gt-45c8615977-2b�����fl-45c8615977-40�����l�������}��}}}}����
��gh������}��}�}}}�}�����g��������gif��g�����gw����gy����������}���gZ���������g
struct-ref��g������}���g
�������g����g����g$�������������}��	g���
g%request-uri-procedure�gm-45c8615977-47�j�
�fl-45c8615977-49��l
�}�}}}}�����g�����e��}�}�}}}�}����g�����de��fl-45c8615977-4c�fl-45c8615977-4d��l��}�}}}}����
�g��� g���!�}�"gZ!��# "�$#�%g���&�%�'d&e�(fl-45c8615977-51�)fl-45c8615977-52�*()�+l�*�,+}�}}}}����
�-g�,��.g�,��/+}�0g/��1.0�21�3g���4�3�5d4e�6fl-45c8615977-56�7fl-45c8615977-57�867�9l�8�:9}�}}}}����
�;g�:��<g�:��=�9}�>g�=��?<>�@?�Agt-45c8615977-46�BA�Cfl-45c8615977-5b�DC�ElB
D�FE}�}}}}����
�GghF��H�E}�}�}}}�}����Ig�H��JI�Kg�H��LgwH��MgyH��NMI�O�E}�PgZO��QLNP�Rg�H��SE}�TgS��URIT�Vg�H��Wg�H��Xg%O��YWX�ZVIY�[KQUZ�\GJ[�]�}�^g
]��_g%request-version-procedure�`gm-45c8615977-62�a`j�ba�cfl-45c8615977-64�dc�elbd�fa}e�}}}}�����gg�f��h�g�ihe�j�}e�}�}}}�}����kg�j��l�k�mdile�naa�ofl-45c8615977-67�pfl-45c8615977-68�qop�rl�nq�sar}e�}}}}����
�tg�s��ug�s��v�r}e�wgZv��xuw�yx�zg�j��{�z�|di{e�}fl-45c8615977-6c�~fl-45c8615977-6d�}~��l�n��a�}e�}}}}����
��g�����g������}e��g	�����������g�j�������di�e��fl-45c8615977-71��fl-45c8615977-72������l�n���a�}e�}}}}����
��g�����g�������}e��g������������gt-45c8615977-61�����fl-45c8615977-76�����l�b���a�}e�}}}}����
��gh������}e�}�}}}�}�����g��������g�����gw����gy����������}e��gZ���������g������}e��g	���������g�����g�����g&�������������������������}e��g_����g%request-headers-procedure��gm-45c8615977-7d���j�����fl-45c8615977-7f�����l�����}��}}}}������g����������e���}��}�}}}�}�����g���������d��e������fl-45c8615977-82��fl-45c8615977-83������l�������}��}}}}����
��g�����g�������}���gZ�����������g���������d��e��fl-45c8615977-87��fl-45c8615977-88������l�������}��}}}}����
��g�����g������}���g	�����������g���������d��e��fl-45c8615977-8c��fl-45c8615977-8d������l�������}��}}}}����
��g�����g�������}���g������������gt-45c8615977-7c�����fl-45c8615977-91�����l�������}��}}}}����
��gh������}��}�}}}�}�����g��������g�����gw����gy����������}���gZ���������g������}���g	��������g����g����g'��������������}��g���	g%request-meta-procedure�
gm-45c8615977-98�
j��
fl-45c8615977-9a�
�l�}�}}}}�����g�����e��}�}�}}}�}����g�����de��fl-45c8615977-9d�fl-45c8615977-9e��l��}�}}}}����
�g���g��� �}�!gZ ��"!�#"�$g���%�$�&d%e�'fl-45c8615977-a2�(fl-45c8615977-a3�)'(�*l�)�+*}�}}}}����
�,g�+��-g�+��.*}�/g	.��0-/�10�2g���3�2�4d3e�5fl-45c8615977-a7�6fl-45c8615977-a8�756�8l�7�98}�}}}}����
�:g�9��;g�9��<�8}�=g�<��>;=�?>�@gt-45c8615977-97�A@�Bfl-45c8615977-ac�CB�DlAC�ED}�}}}}����
�FghE��G�D}�}�}}}�}����Hg�G��IH�Jg�G��KgwG��LgyG��MLH�N�D}�OgZN��PKMO�Qg�G��RD}�Sg	R��TQHS�Ug�G��Vg�G��Wg(N��XVW�YUHX�ZJPTY�[FIZ�\�}�]g	\��^g%request-port-procedure�_gm-45c8615977-b3�`_j�a`�bfl-45c8615977-b5�cb�dlac�e`}d�}}}}�����fg�e��g�f�hge�i�}d�}�}}}�}����jg�i��k�j�ldhke�m``�nfl-45c8615977-b8�ofl-45c8615977-b9�pno�ql�mp�r`q}d�}}}}����
�sg�r��tg�r��u�q}d�vgZu��wtv�xw�yg�i��z�y�{dhze�|fl-45c8615977-bd�}fl-45c8615977-be�~|}�l�m~��`}d�}}}}����
��g�����g�����}d��g	�����������g�i�������dh�e��fl-45c8615977-c2��fl-45c8615977-c3������l�m���`�}d�}}}}����
��g�����g�������}d��g������������gt-45c8615977-b2�����fl-45c8615977-c7�����l�a���`�}d�}}}}����
��gh������}d�}�}}}�}�����g��������g�����gw����gy����������}d��gZ���������g������}d��g	���������g�����g�����g)�������������������������}d��g^����geach��ee������e����e����e����g%%set-fields��gdummy��gcheck?��gexpr���������gm-45c8615977-ce���j���������fl-45c8615977-d3��fl-45c8615977-d4��fl-45c8615977-d5��fl-45c8615977-d6��fl-45c8615977-d7���������l��������fl-45c8615977-d0�����l����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���j�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������l�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������l�������}��}�}}}���
��g�������}���gZ����g$����g%����g&����g'����g(����g)������������gmap��������glist��gthrow��gbad-request��gdisplay��f
Bad request: ��gapply��gformat��gnewline��gbad-request-printer��gset-exception-printer!��gnumber?��gexact?��ginteger?��gnon-negative-integer?��g
valid-header?��gvalidate-headers��fBad value for header ~a: ~s��fHeader not a pair: ~a��fHeaders not a list: ~a��gmethodS�����gversionS�	��gheadersS�	��gportS�	��gmetaS�	��gvalidate-headers?S�		��
�	�gGET���
gassq-ref�ghost�fBad version: ~a�fBad uri: ~a�g<uri>���gPOST�gPUT�fMissing port for message ~a�f;HTTP/1.1 request without Host header and no host in URI: ~a�fBad metadata alist�guri-host�guri-port�gset-port-encoding!�f
ISO-8859-1�gread-request-line�gread-headers�gwrite-request-line� g
write-headers�!f
�"gget-bytevector-n�#gbytevector-length�$f.EOF while reading request body: ~a bytes of ~a�%gput-bytevector�&gdefine-request-accessor�'��(fl-45c8615977-1b1�)(�*l'�)�+fl-45c8615977-1ae�,+�-l�,�.�*}-�/g&.��0g.��10�2dee�3g
datum->syntax�4g
symbol-append�5grequest-�6g
syntax->datum�7gdefine*�8gt-45c8615977-1bc�98�:gm-45c8615977-1bd�;:j�<;�=fl-45c8615977-1c0�>=�?l9<>�@gdef�A�@�Bfl-45c8615977-1b8�Cfl-45c8615977-1b9�DBC�ElA�D�F�}?E}-�Gg7F��HgF��IgoptionalS�JgIF��Kgdefault�LgKF��Mgcond�NgMF��Ogassq�PgOF��Qg�F��Rg'F��SRH�TS�Ug=>�VgUF��Wgcdr�XgWF��YVX�Zgelse�[gZF��\[L�]\�^g
cache-control�_g
connection�`gdate�agpragma�bgtrailer�cgtransfer-encoding�dgupgrade�egvia�fgwarning�ggallow�hgcontent-encoding�igcontent-language�jgcontent-length�kgcontent-location�lgcontent-md5�mg
content-range�ngcontent-type�ogexpires�pg
last-modified�qgaccept�rgaccept-charset�sgaccept-encoding�tgaccept-language�ug
authorization�vgexpect�wgfrom�xgif-match�ygif-modified-since�zg
if-none-match�{gif-range�|gif-unmodified-since�}gmax-forwards�~gproxy-authorization�grange��greferer��gte��g
user-agent��f4URI not absolute, no Host header, and no default: ~s��g	build-uri��g
uri-scheme��ghostS��gpathS��guri-path��gqueryS��g	uri-query��gfragmentS��guri-fragment�C5h�o9]4	
!"V54Y>"GZh�]�C�gmethod
		guri		gversion			gheaders			gmeta			gport			gfilenamefweb/request.scm�
	x
��			gnameg%make-request-procedure�C[R4^_`cf�h�]C�gt-45c8615977-3
		gt-45c8615977-4		gt-45c8615977-5			gt-45c8615977-6			gt-45c8615977-7			gt-45c8615977-8						C�_hR]L6Jga
		gfilenamefweb/request.scm�		x
��		CdhB]L6:gfilenamefweb/request.scm�		x
��		
Ch]C		
C	hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/request.scm�
	x
��		nC5_R
Z�4Z>"G	�[i�ZRZhs]�$��CCkgobj
		gfilenamefweb/request.scm�
	x
��		gnameg%request?-procedure�CR4^#`c�h7]C/gt-45c8615977-1f
		
		
C�#hR]L6Jga
		gfilenamefweb/request.scm�		x
��		CdhB]L6:gfilenamefweb/request.scm�		x
��		
C�h]C		
C	hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/request.scm�
	x
��		nC5#RZ�$hw]�&
�C6ogs
		gfilenamefweb/request.scm�
	x
��		gnameg%request-method-procedure�C�R4^$`c���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch7]C/gt-45c8615977-2b
		
		
C�$hR]L6Jga
		gfilenamefweb/request.scm�		x
��		CdhB]L6:gfilenamefweb/request.scm�		x
��		
C	h]C		
C	h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/request.scm�
	x
��	�C5$RZ�%ht]�&�C6lgs
		gfilenamefweb/request.scm�
	x
��		gnameg%request-uri-procedure�C
R4^%`c$h:]��C2gerr
		gs					C'-2h:]��C2gerr
		gs					C5;@h:]��C2gerr
		gs					C\h7]C/gt-45c8615977-46
		
		
C�%hR]L6Jga
		gfilenamefweb/request.scm�		x
��		CdhB]L6:gfilenamefweb/request.scm�		x
��		
C^h]C		
C	h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/request.scm�
	x
��	�C5%RZ�&h x]�&	�C6pgs
		gfilenamefweb/request.scm�
	x
��		gnameg%request-version-procedure�C_R4^&`cmtyh:]��C2gerr
		gs					C|��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h7]C/gt-45c8615977-61
		
		
C�&hR]L6Jga
		gfilenamefweb/request.scm�		x
��		CdhB]L6:gfilenamefweb/request.scm�		x
��		
C�h]C		
C	h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/request.scm�
	x
��	�C5&RZ�'h x]�&	�C6pgs
		gfilenamefweb/request.scm�
	x
��		gnameg%request-headers-procedure�C�R4^'`c���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch7]C/gt-45c8615977-7c
		
		
C�'hR]L6Jga
		gfilenamefweb/request.scm�		x
��		CdhB]L6:gfilenamefweb/request.scm�		x
��		
Ch]C		
C	h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/request.scm�
	x
��	�C5'RZ�(h u]�&	�C6mgs
		gfilenamefweb/request.scm�
	x
��		gnameg%request-meta-procedure�C	R4^(`c#h:]��C2gerr
		gs					C&,1h:]��C2gerr
		gs					C4:?h:]��C2gerr
		gs					C[h7]C/gt-45c8615977-97
		
		
C�(hR]L6Jga
		gfilenamefweb/request.scm�		x
��		CdhB]L6:gfilenamefweb/request.scm�		x
��		
C]h]C		
C	h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/request.scm�
	x
��	�C5(RZ�)h u]�&	�C6mgs
		gfilenamefweb/request.scm�
	x
��		gnameg%request-port-procedure�C^R4^)`clsxh:]��C2gerr
		gs					C{��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h7]C/gt-45c8615977-b2
		
		
C�)hR]L6Jga
		gfilenamefweb/request.scm�		x
��		CdhB]L6:gfilenamefweb/request.scm�		x
��		
C�h]C		
C	h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/request.scm�
	x
��	�C5)R4^�`c������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C	h(�]	45$@6�gx
		"gtmp		"gfilenamefweb/request.scm�
	x
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R��h�-136�gmessage
			gargs			gfilenamefweb/request.scm�
�
��	
�		��	�	��			
gnamegbad-request�C�R�����hH�)534L>"G4L>"GL6-13L6�gmsg
			;gargs			;g_
	D	Hgfilenamefweb/request.scm�
�		��	
�	��	�	��	�	��	�	��	;�	��	D�		��	H�	��				;		D	H


Ch�]O@�gport
		gkey		gargs			gdefault-printer			gfilenamefweb/request.scm�
�
��	�	��			gnamegbad-request-printer�C�R4�i��i>"G���h0�]45$
�$45$6CCC�gn
		,gfilenamefweb/request.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	 �	��	&�	'��			,gnamegnon-negative-integer?�C�R������hXU]�$<��$(��45$�666(C6Mgheaders
		Ugh		Egk			=gv			=gfilenamefweb/request.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	!��	�	��	 �	��	,�	��	1�	$��	3�	��	7�	��	=�	��	A�	��	E�	��	K�	��	Q�	��	U�	
��		Ugnamegvalidate-headers�C�R

����Zh[-/03	######�$45�""4>")G""�$4�5$4�5$�"4	>"�G"��$��
&�$"&"�$4
>"G"v�$[" $4>">G"7"3$)	�$"���"4>"G""���"4>"G""��!""��""���""���""���$A�
&		�"	45�
&		�"	45���"�CSguri
	gmethod	gversion		gheaders		gport		gmeta		gvalidate-headers?		gneeds-host?		cgheaders	�	gfilenamefweb/request.scm�
�
��	�	*��	%�	9��	.�	!��	@�	1��	O�	*��	P�	��	T�	��	U�	��	[�	1��	]�	��	^�	��	c�	��	j�	��	n�	��	u�	����	����	����	����	����	'����	����	����	����	'����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	���	
��0�	��;�	��?�	��H�	��L�	��S�	��h�	��l�	��s�	����	����	����	)����	8����	#����	����	��=	
gmethodS�gversionS	�gheadersS	�gportS	�gmetaS	�gvalidate-headers?S	�gnameg
build-request�g
documentationf}Construct an HTTP request object. If VALIDATE-HEADERS? is true,
the headers are each run through their respective validators.�C+RZhX�-.,3#4>"G4>G45�C�gport
		Xgmeta		Xgmethod		4	Xguri		4	Xgversion		4	Xgheaders		D	Xgfilenamefweb/request.scm�
�
��	�	-��	�	��	�	��	!�	��	*�	��	7�	��	>�	'��	D�	��
		Xgnamegread-request�g
documentationf�Read an HTTP request from PORT, optionally attaching the given
metadata, META.

As a side effect, sets the encoding on PORT to
ISO-8859-1 (latin-1), so that reading one character reads one byte.  See
the discussion of character sets in "HTTP Requests" in the manual, for
more information.

Note that the body is not part of the request.  Once you have read a
request, you may read the body separately, and likewise for writing
requests.�C*RZ�$%& '�!)(
hp]*4�&
�"	45�&�"	45�&		�"	45>"G4�&		�"	45>"G4	
>"G�&		�"	45&C�&
�"	45�&�"	45�&		�"	45�&		�"	45�&		�"	45�C	gr
	igport	igmethod	Miguri	Migversion	Migheaders	Migmeta	Migfilenamefweb/request.scm�
�
��	�	��	�	��	"�	)��	<�	��	[�	��	d�	��	i�	����	����	����	����	����	����	����	����	'����	7���	��5�	(��M�	��	i	gnameg
write-request�g
documentationkXWrite the given HTTP request to PORT.

Return a new request, whose  request-port  will continue writing
on PORT, perhaps using some transfer encoding.�C,R;"Z�)#�$	hX�]45$D4�&		�"	45545�$C456C�gr
		Wgnbytes			Wgbv		3	Ugfilenamefweb/request.scm�
�
��	�	��		�	��	�	��	�	��	�	%��	3�	��	3�		��	6�	��	?�	��	C�	��	J�	��	K�	��	U�	��		Wgnamegread-request-body�g
documentationkhReads the request body from R, as a bytevector.  Return  #f 
if there was no request body.�C-R%Z�)h(�]�&		�"	456�gr
		#gbv		#gfilenamefweb/request.scm�
�
��	�	��	#�	��		#	gnamegwrite-request-body�g
documentationfHWrite BV, a bytevector, to the port corresponding to the HTTP
request R.�C.R4^&`c/1h-]��C%gfield
				C2	hi]6agfield
		gdef		gfilenamefweb/request.scm�	�	��			C3456GHJLNPQTY]hH�]
444555	
��
���C�gfield
		Egdef		Egtmp			Egfilenamefweb/request.scm�	�	��	�	��	�	%��	
�	/��	�	��	�	��	�	��		E	C	hPt]45$@45"	6$4?$@"���"���lgx
		Pgtmp		Pgtmp		"	Pgfilenamefweb/request.scm�
�	��		PC5&RO^Z�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
�
��	�	'��	�
��		Fgnamegrequest-cache-control�C/RO_Z�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		$��	
��		Fgnamegrequest-connection�C0RO`Z�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-date�C1ROaZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		 ��	
��		Fgnamegrequest-pragma�C2RObZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		!��	
��		Fgnamegrequest-trailer�C3ROcZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		+��	
��		Fgnamegrequest-transfer-encoding�C4ROdZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		!��	
��		Fgnamegrequest-upgrade�C5ROeZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		��	
��		Fgnamegrequest-via�C6ROfZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		!��	
��		Fgnamegrequest-warning�C7ROgZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		��	
��		Fgnameg
request-allow�C8ROhZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		*��	
��		Fgnamegrequest-content-encoding�C9ROiZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��	
	*��	
��		Fgnamegrequest-content-language�C:ROjZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-content-length�C;ROkZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-content-location�C<ROlZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-content-md5�C=ROmZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-content-range�C>ROnZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-content-type�C?ROoZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-expires�C@ROpZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-last-modified�CAROqZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		 ��	
��		Fgnamegrequest-accept�CBROrZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		(��	
��		Fgnamegrequest-accept-charset�CCROsZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		)��	
��		Fgnamegrequest-accept-encoding�CDROtZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		)��	
��		Fgnamegrequest-accept-language�CEROuZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-authorization�CFROvZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		 ��	
��		Fgnamegrequest-expect�CGROwZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-from�CHROZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�

��		Fgnamegrequest-host�CIROxZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
!
��		Fgnamegrequest-if-match�CJROyZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
"
��		Fgnamegrequest-if-modified-since�CKROzZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
#
��		Fgnamegrequest-if-none-match�CLRO{Z�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
$
��		Fgnamegrequest-if-range�CMRO|Z�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
%
��		Fgnamegrequest-if-unmodified-since�CNRO}Z�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
&
��		Fgnamegrequest-max-forwards�CORO~Z�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
'
��		Fgnamegrequest-proxy-authorization�CPROZ�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
(
��		Fgnameg
request-range�CQRO�Z�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
)
��		Fgnamegrequest-referer�CRRO�Z�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
*
��	*	��	*
��		Fgnameg
request-te�CSRO�Z�'hH�-.,3#4�&		�"	455$�CC�grequest
		Fgdefault		Fgt		7	Fgfilenamefweb/request.scm�
+
��		Fgnamegrequest-user-agent�CTRZ�%I�����������h}-.,3##�&�"	45�&		�"	45$C45$"$	�"	45	�&
�"	4
5��
�&		�"	45�&		�"	45�&		�"	456ugr
	
gdefault-host	
gdefault-port		
guri		8
gt		c�ghost	�
gfilenamefweb/request.scm�
.
��	!1	
��	81	��	=2	��	Y2	��	]5	��	c5	��	w6	��	|7	���8	���9	���8	���4	���;	���<	���=	���>	���?	���@	 ��
;	
��	
	gnamegrequest-absolute-uri�g
documentationk�A helper routine to determine the absolute URI of a request, using the
 host  header and the default host and port.�CURC1gm
		,grtd
a�gfilenamefweb/request.scm�		
��4	x
��'i�
��)r�
��)s�
��){�	��)��
��*��
��,a�
��3�
��6l�
��<�
��?$�
��@\�
��Dj�
��E
��F�
��G�
��H�
��I�
��J�
��K�
��L�
��M�
��O
��P-
��Q2
��R<
��S?
��TI
��UP
��VS
��WY
��Xk
��Y�
��Z�
��[�
��\�
��]�
��^�
��_�
��`�!
��a�"
��b�#
��c�$
��d�%
��e�&
��f�'
��h(
��i)
��j*
��k+
��o�.
��6	o�
C6web/uri.go000064400000157503150536206120006462 0ustar00GOOF----LE-8-2.0+�]�4h�X]gguile�	�	gdefine-module*�	�	�	gweb�	guri�	�		gfilenameS�	
fweb/uri.scm�	gimportsS�	gsrfi�	
gsrfi-9�	
�	�	gice-9�	gregex�	�	�	grdelim�	�	�	gcontrol�	�	�	grnrs�	gbytevectors�	�	�	gbinary-ports�	�	 �	! �	"gexportsS�	#guri?�	$g
uri-scheme�	%guri-userinfo�	&guri-host�	'guri-port�	(guri-path�	)g	uri-query�	*guri-fragment�	+g	build-uri�	,gdeclare-default-port!�	-gstring->uri�	.guri->string�	/g
uri-decode�	0g
uri-encode�	1gsplit-and-decode-uri-path�	2gencode-and-join-uri-path�	3#$%&'()*+,-./012�	4gset-current-module�	54�	64�	7g<uri>�	8g%make-uri-procedure�	9gmake-syntax-transformer�	:9�	;9�	<gmake-uri�	=gmacro�	>g$sc-dispatch�	?>�	@>�	Ag_�	Bgany�	CABBBBBBB�	Dg
syntax-object�	Eglambda�	Fg	m-50eea-a�	Ggtop�	HFG�	Igribcage�	Jg	t-50eea-3�	Kg	t-50eea-4�	Lg	t-50eea-5�	Mg	t-50eea-6�	Ng	t-50eea-7�	Og	t-50eea-8�	Pg	t-50eea-9�	QJKLMNOP�	RHHHHHHH�	Sf	l-50eea-f�	Tf
l-50eea-10�	Uf
l-50eea-11�	Vf
l-50eea-12�	Wf
l-50eea-13�	Xf
l-50eea-14�	Yf
l-50eea-15�	ZSTUVWXY�	[IQRZ�	\I�	]gx�	^]�	_H�	`f	l-50eea-c�	a`�	bI^_a�	cgshift�	dg	proc-name�	egargs�	fde�	gG�	hgg�	ifl-1e8ba8b5a-2ba�	jfl-1e8ba8b5a-2bb�	kij�	lIfhk�	mgkey�	ngvalue�	ogname�	pgformals�	qgbody�	rmnopq�	sggggg�	tfl-1e8ba8b5a-2ad�	ufl-1e8ba8b5a-2ae�	vfl-1e8ba8b5a-2af�	wfl-1e8ba8b5a-2b0�	xfl-1e8ba8b5a-2b1�	ytuvwx�	zIrsy�	{gmake-procedure-name�	|{�	}g�	~fl-1e8ba8b5a-29d�	~��I|}��g��fl-1e8ba8b5a-29c�����I^����H[\bc\\\\lz��
��ghygiene���
��DE����gscheme��g[\b�����D�����guserinfo��D�����ghost��D�����gport��D�����gpath��D�����gquery��D�����gfragment��D��������������gmake-struct��g	m-50eea-1���G��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���G�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������I�����g	ctor-args�����fl-1e8ba8b5a-37a�����I�����gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������I�h���gform��g	type-name��gconstructor-spec��gfield-names��������gggg��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������I�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������gggggggg��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������I�����fl-1e8ba8b5a-334�����I^�����[\bc\�\\\��\�����D�����D7����D
��������������
�������geach-any��Aތ��gsyntax-violation��������fWrong number of arguments��gidentifier?��������g\b��D8����������f-source expression failed to match any pattern��grecord-type-vtable��������gpwpwpwpwpwpwpw��gdefault-record-printer�����������������gset-struct-vtable-name!��������gvtable-offset-user��������g%uri?-procedure��AB��g
m-50eea-23���G��g
t-50eea-22������f
l-50eea-28��I��f
l-50eea-25��I^��\c\\\\lz��
�DE��	gobj�
gt-1e8ba8b5a-47e�gt-1e8ba8b5a-478�gt-1e8ba8b5a-479�
gt-1e8ba8b5a-47a�gt-1e8ba8b5a-47d�gt-1e8ba8b5a-47c�gt-1e8ba8b5a-47b�

�gm-1e8ba8b5a-47f�G��fl-1e8ba8b5a-483�fl-1e8ba8b5a-484�fl-1e8ba8b5a-485�fl-1e8ba8b5a-486�fl-1e8ba8b5a-487�fl-1e8ba8b5a-488�fl-1e8ba8b5a-489��I�g	copier-id�� fl-1e8ba8b5a-476�! �"I�!�#g	ctor-name�$#�%fl-1e8ba8b5a-46e�&%�'I$�&�(��)fl-1e8ba8b5a-46c�*)�+I(�*�,glayout�-,�.fl-1e8ba8b5a-46a�/.�0I-�/�1g
immutable?�21�3fl-1e8ba8b5a-468�43�5I2�4�6gfield-count�76�8fl-1e8ba8b5a-466�98�:I7�9�;g
getter-ids�<;�=fl-1e8ba8b5a-463�>=�?I<�>�@g	field-ids�A@�Bfl-1e8ba8b5a-460�CB�DIA�C�Egpredicate-name�Fg
field-spec�G1���EF�Hgggggg�Ifl-1e8ba8b5a-453�Jfl-1e8ba8b5a-454�Kfl-1e8ba8b5a-455�Lfl-1e8ba8b5a-456�Mfl-1e8ba8b5a-457�Nfl-1e8ba8b5a-458�OIJKLMN�PIGHO�Q�\c\\\\\"\'\+\0\5\:\?\DP���RD	Q��SR�Tgand�UDTQ��Vgstruct?�WDVQ��XWR�Ygeq?�ZDYQ��[g
struct-vtable�\D[Q��]\R�^g\�_D7^��`Z]_�aUX`�bSa�cg\�dD�c��egthrow-bad-struct�fe�ge�hg%uri-scheme-procedure�igfree-id�jg
%%on-error�kg
m-50eea-2f�lkG�ml�nf
l-50eea-31�on�pI^mo�ql\pc\\\\lz���rDjq��sir�tsB�ug%%type�vgt-1e8ba8b5a-3a5�wgt-1e8ba8b5a-3a6�xgt-1e8ba8b5a-3a7�ygt-1e8ba8b5a-3a8�zgt-1e8ba8b5a-3a9�{gt-1e8ba8b5a-3aa�|gt-1e8ba8b5a-3ab�}vwxyz{|�~gm-1e8ba8b5a-3ac�~G����fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6�����������I}����ggetter��gindex������fl-1e8ba8b5a-3a3��fl-1e8ba8b5a-3a4������I�h����;��ggg��fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0�������I������\pc\�\\\�\�����Du����i���At�B��gck��gerr��gs������ll��f
l-50eea-34��f
l-50eea-35������I�����l�\pc\\\\lz��
��D�����gquote��D�����g�\p��D7�����������g%%index��D�����i���At�B��f
l-50eea-39��f
l-50eea-3a������I�����l�\pc\\\\lz��
��D�����D������\p��D
�����������g%%copier��D�����i���At�B��f
l-50eea-3e��f
l-50eea-3f������I�����l�\pc\\\\lz��
��D�����D�����g%%<uri>-set-fields��g�\p��D������������g
t-50eea-2e�����f
l-50eea-43�����I�m���l�\pc\\\\lz��
��DE������\pc\�\\\�\�����D��������gif��D�����DY����D[��������g�\p��D7���������g
struct-ref��D������\p��D
���������De����D�����D$������������������������g\p��Dh����g%uri-userinfo-procedure��g
m-50eea-4a���G�����f
l-50eea-4c�����I^�����\�c\\\\lz����Dj����i����B���\�c\�\\\�\�����Du����i���A��B������f
l-50eea-4f��f
l-50eea-50������I������\�c\\\\lz��
�D���D���g�\��D7����D����i�	A�B�
f
l-50eea-54�f
l-50eea-55�
�
I����
\�c\\\\lz��
�D���D���
\��D����D����i�A�B�f
l-50eea-59�f
l-50eea-5a��I����\�c\\\\lz��
�D���D���g\�� D���! �"!�#g
t-50eea-49�$#�%f
l-50eea-5e�&%�'I$�&�(�'\�c\\\\lz��
�)DE(��*�'\�c\�\\\�\����+D�*��,+�-D�*��.DY*��/D[*��0/+�1g'\��2D71��3.02�4D�*��5'\��6D5��74+6�8De*��9D�*��:D%1��;9:�<8+;�=-37<�>),=�?g\��@D�?��Ag%uri-host-procedure�Bg
m-50eea-65�CBG�DC�Ef
l-50eea-67�FE�GI^DF�HC\Gc\\\\lz���IDjH��JiI�KJB�L�\Gc\�\\\�\����MDuL��NiM�OAKNB�PCC�Qf
l-50eea-6a�Rf
l-50eea-6b�SQR�TI�PS�UCT\Gc\\\\lz��
�VD�U��WD�U��XgT\G�YD7X��ZWY�[Z�\D�L��]i\�^AK]B�_f
l-50eea-6f�`f
l-50eea-70�a_`�bI�Pa�cCb\Gc\\\\lz��
�dD�c��eD�c��fb\G�gD	f��heg�ih�jD�L��kij�lAKkB�mf
l-50eea-74�nf
l-50eea-75�omn�pI�Po�qCp\Gc\\\\lz��
�rD�q��sD�q��tgp\G�uD�t��vsu�wv�xg
t-50eea-64�yx�zf
l-50eea-79�{z�|IyD{�}C|\Gc\\\\lz��
�~DE}���|\Gc\�\\\�\�����D�������D����DY���D[�������g|\G��D7���������D����|\G��D	���������De���D����D&�������������������~����g\G��DA����g%uri-port-procedure��g
m-50eea-80���G�����f
l-50eea-82�����I^�����\�c\\\\lz����Dj����i����B���\�c\�\\\�\�����Du����i���A��B������f
l-50eea-85��f
l-50eea-86������I�������\�c\\\\lz��
��D�����D�����g�\���D7�����������D�����i���A��B��f
l-50eea-8a��f
l-50eea-8b������I�������\�c\\\\lz��
��D�����D������\���D	�����������D�����i���A��B��f
l-50eea-8f��f
l-50eea-90������I�������\�c\\\\lz��
��D�����D�����g�\���D������������g
t-50eea-7f�����f
l-50eea-94�����I�������\�c\\\\lz��
��DE������\�c\�\\\�\�����D��������D�����DY����D[��������g�\���D7���������D������\���D	���������De����D�����D'������������������������g\���D�����g%uri-path-procedure��g
m-50eea-9b���G�����f
l-50eea-9d�����I^�����\�c\\\\lz����Dj����i����B���\�c\�\\\�\�����Du����i���A��B������f
l-50eea-a0��f
l-50eea-a1������I�������\�c\\\\lz��
�D����D����g�\��D7����D����i�A�B�	f
l-50eea-a5�
f
l-50eea-a6�	
�I���
�\�c\\\\lz��
�D�
��D�
��\��D	����D����i�A�B�f
l-50eea-aa�f
l-50eea-ab��I����\�c\\\\lz��
�D���D���g\��D��� �! �"g
t-50eea-9a�#"�$f
l-50eea-af�%$�&I#�%�'�&\�c\\\\lz��
�(DE'��)�&\�c\�\\\�\����*D�)��+*�,D�)��-DY)��.D[)��/.*�0g&\��1D70��2-/1�3D�)��4&\��5D	4��63*5�7De)��8D�)��9D(0��:89�;7*:�<,26;�=(+<�>g\��?D�>��@g%uri-query-procedure�Ag
m-50eea-b6�BAG�CB�Df
l-50eea-b8�ED�FI^CE�GB\Fc\\\\lz���HDjG��IiH�JIB�K�\Fc\�\\\�\����LDuK��MiL�NAJMB�OBB�Pf
l-50eea-bb�Qf
l-50eea-bc�RPQ�SI�OR�TBS\Fc\\\\lz��
�UD�T��VD�T��WgS\F�XD7W��YVX�ZY�[D�K��\i[�]AJ\B�^f
l-50eea-c0�_f
l-50eea-c1�`^_�aI�O`�bBa\Fc\\\\lz��
�cD�b��dD�b��ea\F�fD	e��gdf�hg�iD�K��jii�kAJjB�lf
l-50eea-c5�mf
l-50eea-c6�nlm�oI�On�pBo\Fc\\\\lz��
�qD�p��rD�p��sgo\F�tD�s��urt�vu�wg
t-50eea-b5�xw�yf
l-50eea-ca�zy�{IxCz�|B{\Fc\\\\lz��
�}DE|��~�{\Fc\�\\\�\����D�~�����D�~���DY~���D[~������g{\F��D7���������D�~���{\F��D	��������De~���D�~���D)������������������}����g\F��D@����g%uri-fragment-procedure��g
m-50eea-d1���G�����f
l-50eea-d3�����I^�����\�c\\\\lz����Dj����i����B���\�c\�\\\�\�����Du����i���A��B������f
l-50eea-d6��f
l-50eea-d7������I�������\�c\\\\lz��
��D�����D�����g�\���D7�����������D�����i���A��B��f
l-50eea-db��f
l-50eea-dc������I�������\�c\\\\lz��
��D�����D������\���D	�����������D�����i���A��B��f
l-50eea-e0��f
l-50eea-e1������I�������\�c\\\\lz��
��D�����D�����g�\���D������������g
t-50eea-d0�����f
l-50eea-e5�����I�������\�c\\\\lz��
��DE������\�c\�\\\�\�����D��������D�����DY����D[��������g�\���D7���������D������\���D	���������De����D�����D*������������������������g\���D�����geach��BB������B쌤�B팤�B�g%%set-fields��gdummy��gcheck?��gexpr���������g
m-50eea-ec���G���������f
l-50eea-f1��f
l-50eea-f2��f
l-50eea-f3��f
l-50eea-f4��f
l-50eea-f5���������I�������f
l-50eea-ee��I^��gt-1e8ba8b5a-3c4�gt-1e8ba8b5a-3c6�gt-1e8ba8b5a-3c5��gm-1e8ba8b5a-3c7�G�	�
fl-1e8ba8b5a-3cb�fl-1e8ba8b5a-3cc�fl-1e8ba8b5a-3cd�

�I	
�fl-1e8ba8b5a-3c1�fl-1e8ba8b5a-3c2�fl-1e8ba8b5a-3c3��I�����\c\\\\��
�D���g�\�D7��D$��D%��D&��D'��D(��D)��D*��� gmap�! �" �#glist�$g
absolute-uri?�%gthrow�&g	uri-error�'gnumber?�(gexact?�)ginteger?�*gpositive-exact-integer?�+gstring?�,gstring-null?�-g
string-ref�.f3Expected path of absolute URI to start with a /: ~a�/fExpected string for path: ~s�0f Expected string for userinfo: ~s�1gvalid-host?�2fExpected valid host: ~s�3f"Expected port to be an integer: ~s�4f'Expected a host, given userinfo or port�5f(Expected a symbol for the URI scheme: ~s�6gvalidate-uri�7guserinfoS�87��9ghostS�:9	��;gportS�<;	��=gpathS�>=	��?gqueryS�@?	��AgfragmentS�BA	��Cg	validate?S�DC	��E8:<>@BD�Ff�Ggmake-regexp�Hf^([0-9.]+)$�Igipv4-regexp�Jf^([0-9a-fA-F:.]+)$�Kgipv6-regexp�Lf(^[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?$�Mgdomain-label-regexp�Nf%^[a-zA-Z]([a-zA-Z0-9-]*[a-zA-Z0-9])?$�Ogtop-label-regexp�Pgregexp-exec�Qgcatch�RQ�SQ�Tg	inet-pton�UgAF_INET�VgAF_INET6�Wgstring-index�Xg	substring�Yf[a-zA-Z0-9_.!~*'();:&=+$,-]+�Zguserinfo-pat�[f[a-zA-Z0-9.-]+�\ghost-pat�]f[0-9a-fA-F:.]+�^g
ipv6-host-pat�_f[0-9]*�`gport-pat�agformat�bf%^//((~a)@)?((~a)|(\[(~a)\]))(:(~a))?$�cgauthority-regexp�df//�egmatch:substring�fgstring->number�ggparse-authority�hf[a-zA-Z][a-zA-Z0-9+.-]*�ig
scheme-pat�jf[^/?#]*�kg
authority-pat�lf[^?#]*�mgpath-pat�nf[^#]*�og	query-pat�pf.*�qgfragment-pat�rf&^((~a):)?(//~a)?(~a)(\?(~a))?(#(~a))?$�sguri-pat�tg
uri-regexp�ugdefault-prompt-tag�vu�wu�xgabort�ygstring->symbol�zgstring-downcase�{gstring->uri*�|gmake-hash-table�}g*default-ports*�~g
hashq-set!�g	hashq-ref��g
default-port?��ghttp��ghttps��g
string-append��gsymbol->string��f:��f@��f[��f]��gnumber->string��f?��f#��gopen-output-string��gget-output-string��g
close-port��gcall-with-output-string*��gopen-bytevector-output-port��gcall-with-output-bytevector*��gstring-ci=?��futf-8��gstring->utf8��gset-port-encoding!��gcall-with-encoded-output-string��gdisplay��g
encode-string��gutf8->string��gopen-bytevector-input-port��gread-string��g
decode-string��gstring->char-set��f0123456789abcdefABCDEF��g	hex-chars��gencodingS������gdecode-plus-to-space?S���	�������g
string-length��gchar-set-contains?��gstring��gput-u8��g
char->integer��f'Invalid character in encoded URI ~a: ~s��f>abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789��gascii-alnum-chars��f:/?#[]@��g
gen-delims��f!$&'()*+,l=��g
sub-delims��gchar-set-union��greserved-chars��f-._~��gunreserved-chars��gunescaped-charsS���	�������gstring-for-each��gbytevector-length��g
string-upcase��gfilter��gstring-split��gstring-join��f/�C5h�}�]4	
!"3546>"G7h�]�C�gscheme
		guserinfo		ghost			gport			gpath			gquery			gfragment			gfilenamefweb/uri.scm�
	,
��			gnameg%make-uri-procedure�C8R4;<=@C�h�]C�g	t-50eea-3
		g	t-50eea-4		g	t-50eea-5			g	t-50eea-6			g	t-50eea-7			g	t-50eea-8			g	t-50eea-9						C��<�hN]L6Fga
		gfilenamefweb/uri.scm�		,
��		CA�h>]L66gfilenamefweb/uri.scm�		,
��		
C�h]C		
C��hp]45$@45$O@45$4O?$@	
6	
6wgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/uri.scm�
	,
��		nC5<R���7�4�7>"G	��8i�7R7hk]�$��CCcgobj
		gfilenamefweb/uri.scm�
	,
��		gnameg%uri?-procedure�C�R4;#=@�bh2]C*g
t-50eea-22
		
		
C��#�hN]L6Fga
		gfilenamefweb/uri.scm�		,
��		CA�h>]L66gfilenamefweb/uri.scm�		,
��		
Cdh]C		
C��hp]45$@45$O@45$4O?$@	
6	
6wgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefweb/uri.scm�
	,
��		nC5#R7g$ho]�&
�C6ggs
		gfilenamefweb/uri.scm�
	,
��		gnameg%uri-scheme-procedure�ChR4;$=@���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h2]C*g
t-50eea-2e
		
		
C��$�hN]L6Fga
		gfilenamefweb/uri.scm�		,
��		CA�h>]L66gfilenamefweb/uri.scm�		,
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/uri.scm�
	,
��	�C5$R7g%hq]�&�C6igs
		gfilenamefweb/uri.scm�
	,
��		gnameg%uri-userinfo-procedure�C�R4;%=@�h:]��C2gerr
		gs					C	h:]��C2gerr
		gs					C"h:]��C2gerr
		gs					C�>h2]C*g
t-50eea-49
		
		
C��%�hN]L6Fga
		gfilenamefweb/uri.scm�		,
��		CA�h>]L66gfilenamefweb/uri.scm�		,
��		
C@h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/uri.scm�
	,
��	�C5%R7g&h m]�&	�C6egs
		gfilenamefweb/uri.scm�
	,
��		gnameg%uri-host-procedure�CAR4;&=@OV[h:]��C2gerr
		gs					C^dih:]��C2gerr
		gs					Clrwh:]��C2gerr
		gs					C��h2]C*g
t-50eea-64
		
		
C��&�hN]L6Fga
		gfilenamefweb/uri.scm�		,
��		CA�h>]L66gfilenamefweb/uri.scm�		,
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/uri.scm�
	,
��	�C5&R7g'h m]�&	�C6egs
		gfilenamefweb/uri.scm�
	,
��		gnameg%uri-port-procedure�C�R4;'=@���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h2]C*g
t-50eea-7f
		
		
C��'�hN]L6Fga
		gfilenamefweb/uri.scm�		,
��		CA�h>]L66gfilenamefweb/uri.scm�		,
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/uri.scm�
	,
��	�C5'R7g(h m]�&	�C6egs
		gfilenamefweb/uri.scm�
	,
��		gnameg%uri-path-procedure�C�R4;(=@�h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C!h:]��C2gerr
		gs					C�=h2]C*g
t-50eea-9a
		
		
C��(�hN]L6Fga
		gfilenamefweb/uri.scm�		,
��		CA�h>]L66gfilenamefweb/uri.scm�		,
��		
C?h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/uri.scm�
	,
��	�C5(R7g)h n]�&	�C6fgs
		gfilenamefweb/uri.scm�
	,
��		gnameg%uri-query-procedure�C@R4;)=@NUZh:]��C2gerr
		gs					C]chh:]��C2gerr
		gs					Ckqvh:]��C2gerr
		gs					C��h2]C*g
t-50eea-b5
		
		
C��)�hN]L6Fga
		gfilenamefweb/uri.scm�		,
��		CA�h>]L66gfilenamefweb/uri.scm�		,
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/uri.scm�
	,
��	�C5)R7g*h q]�&	�C6igs
		gfilenamefweb/uri.scm�
	,
��		gnameg%uri-fragment-procedure�C�R4;*=@���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h2]C*g
t-50eea-d0
		
		
C��*�hN]L6Fga
		gfilenamefweb/uri.scm�		,
��		CA�h>]L66gfilenamefweb/uri.scm�		,
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefweb/uri.scm�
	,
��	�C5*R4;�=@�"#h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefweb/uri.scm�
	,
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R7h(�]�$�&
�$CCCC�gobj
		"gfilenamefweb/uri.scm�
	7
��		8	��			8	��		8	��		8	��		8	��		"gnameg
absolute-uri?�C$R%&h�-136�gmessage
			gargs			gfilenamefweb/uri.scm�
	:
��	
	;		��		;	��			
gnameg	uri-error�C&R'()h0�]45$45$45$
�CCCC�gport
		.gfilenamefweb/uri.scm�
	=
��		>	��	
	>	��		>	��		>	��		>	$��	#	>	��	&	>	4��			.gnamegpositive-exact-integer?�C*R+,-&./012*345hE]�$�"E45$2$*45$"4
5/��$6CC6"!$45$"���6"���"2$(45$45�"$	6"���"���"!$4
5$"���6"���$"$$"���6"���
6=gscheme
	�guserinfo	�ghost		�gport		�gpath		�gquery		�gfragment		�gfilenamefweb/uri.scm�
	@
��		B		��			A	��		L		��		A	��		N	��	)	N	��	/	O	��	9	O	��	:	O		��	>	N	��	B	P	��	F	P	��	N	M	��	R	M	��	R	A	��	]	J	��	g	J	��	o	K	��	s	K	��	w	A	���	H	���	H	���	H	,���	H	'���	H	���	H	���	I	���	I	���	A	���	F	���	F	���	G	���	G	���	A	���	D		���	A	���	D	���	E	���	E	���	C	���	C	��+	�	gnamegvalidate-uri�C6REF67h��-/03#######$"4>"G"�C�gscheme
	�guserinfo	�ghost		�gport		�gpath		�gquery		�gfragment		�g	validate?		�gfilenamefweb/uri.scm�
	R
��	6	R	:��	Y	Y	��	Z	Z	���	[	��	�
guserinfoS�ghostS	�gportS	�gpathS	�gqueryS	�gfragmentS	�g	validate?S	�gnameg	build-uri�g
documentationkConstruct a URI object.  SCHEME should be a symbol, PORT
either a positive, exact integer or  #f , and the rest of the
fields are either strings or  #f .  If VALIDATE? is true,
also run some consistency checks to make sure that the constructed URI
is valid.�C+R4GiH5IR4GiJ5KR4GiL5MR4GiN5ORPISTUhF]L6>gfilenamefweb/uri.scm�
	l	��	
	l	��		

ChS-13CKgargs
			gfilenamefweb/uri.scm�
	l	��			


CKTVhF]L6>gfilenamefweb/uri.scm�
	n	��	
	n	��		

ChS-13CKgargs
			gfilenamefweb/uri.scm�
	n	��			


CWMXO
h�]45$O645$O6">4	.5$!4
455$	�"���C6
"���ghost
	�gstart	<	zgend		G	zgfilenamefweb/uri.scm�
	i
��		k	��		j	��		l	��		m	��	*	j	��	8	n	��	<	p	��	=	q	��	G	q	��	O	r	��	P	s	��	U	t	��	a	s	��	e	s	��	h	u	��	n	u	��	z	v	��	z	p	��	�gnamegvalid-host?�C1RYZR[\R]^R_`R4Gi4aibZi\i^i`i55cRdPc1e,fh��]�$D45$�44	5$"	4	55$^4	54	5$"	4	54	5$45$"45"D66�g	authority
	�gfail	�gm		�gt		-	Ggt		_	ygport	��gfilenamefweb/uri.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	!�	��	"�	��	%�	$��	-�	 ��	<�	$��	I�	��	M�	��	N�	��	W�	��	_�	��	n�	��	z�	 ����	����	����	%����	����	����	����	��	�	gnamegparse-authority�CgRhiRjkRlmRnoRpqR4airiikimioiqi5sR4Gisi5tRwPtxeyzg7
h�i]I45U�45$"4>"G4	5$4455"4	54	54	54	5$4>"		"G			�XCXFGCagstring
	�gm	�gstr		:	Vgscheme		z�g	authority		z�gpath		z�gquery		z�gfragment		z�guserinfo	��ghost	��gport		��gk��gfilenamefweb/uri.scm�
�
��	�	��	
�	��	�	��	�	��	"�	��	2�	 ��	:�	��	B�	��	C�	 ��	F�	0��	N�	 ��	W�	��	`�	��	i�	��	r�	��	z�	����	����	����	����		����	
����	��	�gnamegstring->uri*�g
documentationk<Parse STRING into a URI object.  Return  #f  if the string
could not be parsed.�C{R{7g$h8�]	45$#�&
�"	45$CCC�gstring
		6guri			6gfilenamefweb/uri.scm�
�
��	�	
��		�	��	�	��	�	
��	/�	��		6gnamegstring->uri�g
documentationk<Parse STRING into a URI object.  Return  #f  if the string
could not be parsed.�C-R4|i5}R~}h�]6�gscheme
		gport		gfilenamefweb/uri.scm�
�
��	�	��			gnamegdeclare-default-port!�g
documentationf0Declare a default port for the given URI scheme.�C,R}h�]$
45�CC�gscheme
		gport		gfilenamefweb/uri.scm�
�
��	�	��	�	��	�	��	�	��			gnameg
default-port?�C�R4,i�	P>"G4,i��>"G7g$%&'()*���Fd�W������h��]9�&
�"	45�&�"	45�&		�"	45�&		�"	45�&		�"	45�&		�"	45�&		�"	4	5
$4
455"
$w4
$
4
5"
4:5$4
5"4�&
�"	455$
"4
4555"
$
4
5"
$
4
5"
6�guri
	�gscheme	�guserinfo		8�ghost		U�gport		r�gpath	��gquery	��gfragment	��gfilenamefweb/uri.scm�
�
��	�	��	�	��	!�	��	8�	��	=�	��	U�	��	Z�	��	r�	��	w�	����	����	����	����	����	����	����		����	����	0����		����		����	����		����	����	����	%����	=���	%���	���	���	���	���	+���	4���	��&�	��+�	+��F�	��J�	��L�	��Q�	��U�	+��V�	/��^�	��`�		��f�		��n�	��o�		��s�	��w�		��}�		����	����		����	����		����		����	��:	�gnameguri->string�g
documentationf�Serialize URI to a string.  If the URI has a port that is the
default port for its scheme, the port is not included in the
serialization.�C.R���h@�]454>"G454>"GC�gproc
		9gport		9gstr		"	9gfilenamefweb/uri.scm�
�
��	�	��	�	��	
�	��	�	��	"�	��	%�	��		9gnamegcall-with-output-string*�C�R��h@�]4>G4>"G454>"GC�gproc
		@gport		@gget-bytevector			@gbv		)	@gfilenamefweb/uri.scm�

��		��		��		��	%	��	)	��	,		��		@gnamegcall-with-output-bytevector*�C�R������h d]4L>"GL6\gport
		gfilenamefweb/uri.scm�
	��			��			��		Ch(�]45$456O6�gencoding
		'gproc		'gfilenamefweb/uri.scm�

��	
	��		
	��	
	��	
	��		��		��	'	��			'	gnamegcall-with-encoded-output-string�C�R�����h[]L6Sgport
		
gfilenamefweb/uri.scm�
	'��	
	)��		
Ch(�]45$6O6�gstr
		"gencoding		"gfilenamefweb/uri.scm�

��		��			��		��		��		��	"	��		"	gnameg
encode-string�C�R�������hP]45$6454>"G454>"GC�gbv
		Pgencoding		Pgp			Pgres		9	Pgfilenamefweb/uri.scm�

��		��			��		��		��		��		��		��		��	3 	��	9 	��	<!	
��
		P	gnameg
decode-string�C�R4�i�5�R����-��f���&�
h0m]!"#L�$4L5"�	�L�$f%�$X4L�54L	�545$&45$445	5""""$4>"G	�"��N45��$"445>"G�"��	L6+�$'L$4	 >"G�"���"���"���C
"���egport
	0gi	)gch		'ga		I�gb		I�gt	��gfilenamefweb/uri.scm�
K	��	L	
��	M	��	M	��	N	��	N	��	#S	��	&S	��	*S	��	/S	,��	3S	��	4T	%��	;T	5��	=T	%��	>U	%��	GU	5��	IU	%��	IT	��	NV	#��	ZV	��	[W	#��	gV	��	hX	#��	kX	3��	wX	#���O	���Z	���[	 ���[	���\	���\	���O	���]	���]	$���]	���^	���^	���`	"���`	���O	���P	���O	��P	��Q	��	Q	$��Q	��R	��R	��)L	
��2	0C�hX
-/03##454O5$6Cgstr
		Rgencoding		Rgdecode-plus-to-space?			Rglen		-	Rgbv		?	Rgfilenamefweb/uri.scm�
2
��	2	)��	'H	��	-H	��	0J	
��	?H	��	Gb	��	Oc	��			R
gencodingS�gdecode-plus-to-space?S	�gnameg
uri-decode�g
documentationk�Percent-decode the given STR, according to ENCODING,
which should be the name of a character encoding.

Note that this function should not generally be applied to a full URI
string. For paths, use  split-and-decode-uri-path  instead. For query
strings, split the query on  &  and  =  boundaries, and decode
the components separately.

Note also that percent-encoded strings encode _bytes_, not characters.
There is no guarantee that a given byte sequence is a valid string
encoding. Therefore this routine may signal an error if the decoded
bytes are not valid for the given encoding. Pass  #f  for ENCODING if
you want decoded bytes as a bytevector directly.   set-port-encoding! ,
for more information on character encodings.

If DECODE-PLUS-TO-SPACE? is true, which is the default, also replace
instances of the plus character (+) with a space character.  This is
needed when parsing application/x-www-form-urlencoded data.

Returns a string of the decoded characters, or a bytevector if
ENCODING was  #f .�C/R4�i�5�R4�i�5�R4�i�5�R4�i�i�i5�R4�i�i4�i�55�R���W�h}]4L5�Cugch
		
gfilenamefweb/uri.scm�
�	��	�		��	�	��		
gnamegneeds-escaped?�C���������h��]!4L5$L6445L545"p�$e�4%L>"G	�$40L>"G"444	55L>"G�"���C
"���gch
	�gbv	%�glen		.�gi		4�gbyte		B�gfilenamefweb/uri.scm�
�	
��	�	��	�	��	�	��	�	��	�	*��	%�	��	%�	��	(�	��	.�	��	4�	��	9�	��	=�	��	B�	$��	B�	��	E�	��	]�	 ��	a�	��	b�	��	z�	��	}�	#����	2����	#����	����	����	����	��	�Ch[]LLOL6Sgport
		gfilenamefweb/uri.scm�
�	��	�		��		ChPe-/03##4O5$O6C]gstr
		Kgencoding		Kgunescaped-chars			Kgfilenamefweb/uri.scm�
{
��	{	)��	(�	��	9�	��	H�	��		K
gencodingS�gunescaped-charsS	�gnameg
uri-encode�g
documentationkdPercent-encode any character not in the character set,
UNESCAPED-CHARS.

The default character set includes alphanumerics from ASCII, as well as
the special characters  - ,  . ,  _ , and  ~ .  Any other character will
be percent-encoded, by writing out the character to a bytevector within
the given ENCODING, then encoding each byte as  %HH , where HH is the
uppercase hexadecimal representation of the byte.�C0R�,ha]45�CYgx
		gfilenamefweb/uri.scm�
�	
��	�	��	
�	��		C /�hX]6Pgs
		gfilenamefweb/uri.scm�
�	��	�	��		C�he]44/556]gpath
		gfilenamefweb/uri.scm�
�
��	�	
��	�	��	�	
��	�	��		gnamegsplit-and-decode-uri-path�g
documentationk�Split PATH into its components, and decode each component,
removing empty components.

For example,  "/foo/bar%20baz/"  decodes to the two-element list,
 ("foo" "bar baz") .�C1R� 0�hI]456Agparts
		gfilenamefweb/uri.scm�
�
��	�	��	�	&��	�	��		gnamegencode-and-join-uri-path�g
documentationk�URI-encode each element of PARTS, which should be a list of
strings, and join the parts together with  /  as a delimiter.

For example, the list  ("scrambled eggs" "biscuits&gravy") 
encodes as  "scrambled%20eggs/biscuits%26gravy" .�C2RC�gm
		,grtd
Iqgfilenamefweb/uri.scm�		
��B	,
��+5	7
��+�	:
��,�	=
��0i	@
��6�	R
��6�	a	��6�	a	��6�	a	��6�	`
��6�	c	��6�	c	��6�	c	��6�	b
��6�	e	��6�	e	��6�	e	��6�	d
��6�	g	��6�	g	��6�	g	��6�	f
��:�	i
��:�	y	��:�	x
��:�	{	��:�	z
��:�	}	��:�	|
��:�		��:�	~
��:��	��:��	��:��	��:��	��:��	��:��
��=]�
��=`�	��=d�
��=g�	��=k�
��=n�	��=r�
��=u�	��=y�
��=|�	��=��
��=��	��=��	
��=��	��=��
��=��	��=��
��B%�
��Dx�
��Dy�	��D��
��E��
��FW�
��FX�
��F_�	��Ff�
��Fo�
��Fv�	��F~�
��L-�
��MZ�
��N�
��PV
��Q�
��SN
��SO0	��SW0	��SY0	��S]/
��h�2
��h�h	��h�i	��h�h	��h�g
��h�m	��h�m	��h�m	��h�l
��h�o	��h�o	��h�o	��h�n
��h�q	��h�p
��h�u	��h�v	��iv	$��i	v	��iu	��it
��th{
��y�
��}|�
��f	}~
C6texinfo/plain-text.go000064400000041042150536206120010635 0ustar00GOOF----LE-8-2.0
B]�4hC]gguile�	�	gdefine-module*�	�	�	gtexinfo�	g
plain-text�	�		gfilenameS�	
ftexinfo/plain-text.scm�	gimportsS�	�	
�	gstring-utils�	�	�	gsxml�	g	transform�	�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-13�	�	�	gice-9�	gmatch�	�	�	 
�	!gexportsS�	"gstexi->plain-text�	#"�	$gset-current-module�	%$�	&$�	'gand=>�	(gassq�	)gcdr�	*garg-ref�	+gerror�	,fMissing argument:�	-garg-req�	.gmake-ticker�	/gformat�	0f~A. �	1gmake-enumerator�	2g
make-fluid�	3f�	4g*indent*�	5f* �	6g
*itemizer*�	7gmake-syntax-transformer�	87�	97�	:gwith-indent�	;gmacro�	<g$sc-dispatch�	=<�	><�	?g_�	@gany�	A?@��	Bg
syntax->datum�	CB�	DB�	Eg
datum->syntax�	FE�	GE�	Hgwith-fluids�	Ig
string-append�	Jg	fluid-ref�	KJ4�	Lgmake-string�	M �	Ngsyntax-violation�	ON�	PN�	Qf-source expression failed to match any pattern�	Rgapply�	Sg
make-indenter�	Tf
�	Ug
string-indent�	Vg
with-itemizer�	Wgfill-string�	Xgstring-concatenate�	Yg
line-widthS�	Zginitial-indentS�	[gsubsequent-indentS�	\gwrap*�	]f

�	^gwrap�	_gwrap-heading�	`gnode�	agname�	bgmanual�	cgxref�	dfSee �	ecd�	fgpxref�	gfsee �	hfg�	ieh�	jgcadr�	kf in manual �	lgref�	mgurl�	ngtitle�	of (�	pf)�	qf`�	rf'�	sguref�	tgdefun�	ufFunction�	vgdefspec�	wfSpecial Form�	xgdefvar�	yfVariable�	zgcategory�	{f - �	|f: �	}gstring-join�	~gfilter�	gidentity��gmap��g	data-type��gclass��g	arguments����a���f ��gdef��g%��gstart��g
string-ref��gnumber?��gstring->number��g
char->integer��gchar-upper-case?��g	enumerate��gitemize��g
string-length��gstring-null?��gstring-copy!��gitem��gtable��gheading��gentry��gmake-underliner��gchapter��gsection��g
subsection��g
subsubsection��gstring-split��gexample��gverbatim��gmap-in-order��gfragment��gpara��gmake-surrounder��gcode��f<��f>��gkey��g
string-upcase��gvar��gpassthrough��gfoo��gpage��gsetfilename��gsetchapternewpage��giftex��gifinfo��gifplaintext��gifxml��gsp��gvskip��gmenu��gignore��gsyncodeindex��gcomment��gc��ganchor�����������������`���gignore-list��gmemq��gignored?��gappendix��gappendixsec��gappendixsubsec��gappendixsubsubsec��g
unnumbered��g
unnumberedsec��gunnumberedsubsec��gunnumberedsubsubsec��gmajorheading��gchapheading��g
subheading��g
subsubheading��gstrong��f*��gsample��gsamp��gmath��gkbd��genv��gfile��gcommand��goption��gdfn��f"��gcite��gacro��gemail��gemph��f_��gsc��g	copyright��f(C)��gresult��f==>��gdots��f...��g	quotation��glisp��gsmallexample��g	smalllisp��g
*fragment*��gdeftp��gdefcv��gdefivar��gdeftypeivar��gdefop��g	deftypeop��g	defmethod��g
deftypemethod��gdefopt��gdefvr��g	deftypevr��g
deftypevar��gdeffn��g	deftypefn��gdefmac��g
deftypefun��gtag-handlers��gstring?�C5h�.�]4	
 !#54&>"G'()"h �]44�556�gkey
		g%-args		gfilenameftexinfo/plain-text.scm�
	%
��		&		��		&	��		&	��		&	��		&		��		&	��			gnamegarg-ref�C*R*+,h �]
45$C6�gkey
		 g%-args		 gt			 gfilenameftexinfo/plain-text.scm�
	(
��		)	��		)	��		*	
��	 	*	��		 	gnamegarg-req�C-RhI]LCAgfilenameftexinfo/plain-text.scm�
	-	��		
Chr]OCjgstr
		
gfilenameftexinfo/plain-text.scm�
	,
��		
gnamegmake-ticker�C.R/0h�]MM�N6|glast
		gfilenameftexinfo/plain-text.scm�
	/	��		0	��			1	��		1	��		2	��		2	��		
Cht]HOClgn
		gfilenameftexinfo/plain-text.scm�
	.
��		gnamegmake-enumerator�C1R42i354R42i4.i5556R49:;>ADGH4IKLMh(s-13����Ckgn
			'gbody			'gfilenameftexinfo/plain-text.scm�
	7
��		8	��			'
Chj]	45L4?6bgargs
		gv			gfilenameftexinfo/plain-text.scm�		7
��		CPQh(h]	45$O@6`gy
		'gtmp		'gfilenameftexinfo/plain-text.scm�
	7
��		'C5:R4ILRh0f-134[4L 55Y4L>ZCZF^gargs
			.gfilenameftexinfo/plain-text.scm�
	=	��		=	��			.


Ch�]OC|gn
		gproc		gfilenameftexinfo/plain-text.scm�
	<
��			gnameg
make-indenter�CSRI4Th�][6|gstr
		
gfilenameftexinfo/plain-text.scm�
	?
��		@	*��	
	@	��		
gnameg
string-indent�CUR49V;>ADGH6h z-13��Crgitemizer
			gbody			gfilenameftexinfo/plain-text.scm�
	B
��		C	��			
Chj]	45L4?6bgargs
		gv			gfilenameftexinfo/plain-text.scm�		B
��		CPQh(h]	45$O@6`gy
		'gtmp		'gfilenameftexinfo/plain-text.scm�
	B
��		'C5VR4WXYZ[h(�-13[45	H6�gstrings
			%gindent		%gfilenameftexinfo/plain-text.scm�
	F
��		G	��		H	��	%	H	��			%


gnamegwrap*�C\RI\]h�-134?6�gstrings
			gfilenameftexinfo/plain-text.scm�
	K
��		L	��		L	'��		L	��			


gnamegwrap�C^RI\Th�-134?6�gstrings
			gfilenameftexinfo/plain-text.scm�
	M
��		N	��		N	'��		N	��			


gnamegwrap-heading�C_R-`*abX'(ij3k
hx�]"4545$"4544	5
5$"$"��6�gtag
		sgargs		sgnode			sgt			)gname		)	sgmanual		4	sgt		H	[gfilenameftexinfo/plain-text.scm�
	P
��		Q	��		Q	��		Q	��		Q	��		R	��		R	��		R	��		R	��	)	Q	��	,	S	��	0	S	��	4	S	��	4	Q	��	9	V	
��	<	V	��	B	V	��	D	V	��	H	V	
��	H	V	��	X	V	B��	c	X	��	e	X	��	o	X	*��	p	U	��	s	T	��		s	gnamegref�ClR-m*nIopqr
h8]4545$6	6	gtag
		4gargs		4gurl			4gtitle			4gfilenameftexinfo/plain-text.scm�
	Z
��		[	
��		[	��		[	
��		\	��		\	��		\	��		[	��		]	��	$	^	��	(	^	&��	*	^	��	.	_	��	2	_	��	4	_	��		4	gnameguref�CsRtuvwxy-zI_{|}~�*ha]L6Ygx
		
gfilenameftexinfo/plain-text.scm�
	e	��	
	e	��		
C��4L"h�~-13�$"'�$"�$"	45	4
4	4
44O555554	[4	 55Y45Z6vgtag
		�gargs		�gbody			�gcategory		?�gfilenameftexinfo/plain-text.scm�
	a
��		i	��		j	��	!	i	��	#	k	 ��	0	i	��	2	l	��	7	m	��	;	m	$��	?	m	��	?	i	��	D	o	��	G	o	��	K	o	"��	O	o	1��	P	c	��	S	d	��	X	e	
��	c	f	��	e	e	
��	g	d	��	i	g	��	k	c	��	m	o	��	o	o	���	p	���	n	��		�	
	gnamegdef�C�R�*�61�����4IL"h��-13�$��$���""$4�5"4$H4
545$45"!4	54	4
5$A"a5��"5Y4[4
	 55Y4$�">Z"ZCZF�gtag
		�gelts		�gargs?		)�gstart		@�gc		U�gfilenameftexinfo/plain-text.scm�
	r
��		x	��		x	��		x	)��		x	"��		x	��		y	��		y	&��		y	��	)	x	��	1	z	��	2	z	��	6	z	$��	9	z	+��	;	z	��	@	x	��	E	{	��	M	{	$��	N	t	
��	U	t	��	X	u	
��	b	u	��	c	u	��	n	v	��	u	w	��	x	w	,���	w	(���	w	���	v	���	v	���	{	���	}	���	}	���	}	%���	}	��$		�
gnameg	enumerate�C�R6.54IL"h@�-1345Y4[4	 55Y4>Z"ZCZF�gtag
			=gargs			=gelts				=gfilenameftexinfo/plain-text.scm�
	
��	�	��	�	��	�	��	*�	��			=	
	gnamegitemize�C�R"6�4��hh6-13454[54[545�45$"
��$4>"G"C.gtag
			bgelts			bgret			bgtick			bgtick-pos		*	bgfilenameftexinfo/plain-text.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	#�	��	*�	��	*�	��	-�	��	7�	��	?�	+��	A�	&��	E�	��	F�	��			b
gnamegitem�C�R"h�-136�gtag
			gargs			gbody				gfilenameftexinfo/plain-text.scm�
�
��	�	��				
	gnamegtable�C�R_"-�I4LhH-134445554[4	 55Y45Z6�gtag
			Agargs			Agbody				Agheading			Agfilenameftexinfo/plain-text.scm�
�
��	
�	��	
�	��	�	%��	�	.��	�	%��	�	��	�	��	�	��	8�	"��	A�	��			A	
	gnamegentry�C�R"ITUL�h8�-1345454445L556�gtag
			4gbody			4gstr			4gfilenameftexinfo/plain-text.scm�
�	��	
�	��	�	��	�	��	�	��	�	��	!�	��	$�	#��	.�	��	0�	��	2�	��	4�	��
			4
Chx]OCpgchar
		
gfilenameftexinfo/plain-text.scm�
�
��		
gnamegmake-underliner�C�R4�i*5�R4�i=5�R4�i-5�R4�i.5�R"IX4L�U�T
hH�-134544[4	 55Y44
55Z5	6�gtag
			Cgbody			Cgret			Cgfilenameftexinfo/plain-text.scm�
�
��	
�	
��	�	��	�	��	-�	��	2�	(��	<�	��	?�	��	A�	��	C�	��			C
gnamegexample�C�R"IX�U�Th0�-1345444
5556�gtag
			-gbody			-gret			-gfilenameftexinfo/plain-text.scm�
�
��	
�	
��	�	��	�	��	�	��	�	��	'�	��	)�	��	+�	��	-�	��			-
gnamegverbatim�C�RX�"h�-13456�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	�	��	�	��			
gnamegfragment�C�R^"h�-13456�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	�	��	�	��			
gnamegpara�C�RI"h�-13L45L6ygtag
			gbody			gfilenameftexinfo/plain-text.scm�
�	��	�	��	�	��			
Chw]OCogstr
		
gfilenameftexinfo/plain-text.scm�
�
��		
gnamegmake-surrounder�C�RIq"rh�-13456�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	
�	��	�	��	�	.��	�	��			
gnamegcode�C�RI�"�h�-13456�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	
�	��	�	��	�	.��	�	��			
gnamegkey�C�R�"h�-13456�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	�	��	�	��			
gnamegvar�C�R"h�-136�gtag
			gbody			gfilenameftexinfo/plain-text.scm�
�
��	�	��			
gnamegpassthrough�C�R��-nI"h(�-134455456�gtag
			(gargs			(gbody				(gtitle			(gfilenameftexinfo/plain-text.scm�
�
��	
�	��	�	��	�	��	�	&��	�	��	�	��	�	��	 �	��	(�	��			(	
	gnamegtexinfo�CR��R��hy]6qgtag
		
gfilenameftexinfo/plain-text.scm�
�
��	
�	��		
gnamegignored?�C�Rn�i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i�4�i�5��i��i��i��i��i��i��i��i��i��i��im�i�4�i�5�4�i�5��i��i�4�i�5��i��hh-13C`gargs
			gfilenameftexinfo/plain-text.scm�
�	��	�	 ��			


C��hh-13C`gargs
			gfilenameftexinfo/plain-text.scm�
�	��	�	 ��			


C��hh-13C`gargs
			gfilenameftexinfo/plain-text.scm�
�	��	�	 ��			


Cclilliflissii�4Si	�i5��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��i��ix�i��i��i��i��i��iv�it�i��iL�R3��'(�j�X�"h��](C45$C�$����$b�$D45$"#4455$"$@C�$
	4
56C�$
	4
56C�$
	4
56C�gtree
	�gw	&�gx		&�gt		X	kghandler		k	|gfilenameftexinfo/plain-text.scm�
#
��	%	��	
&	��	%	��	9)	��	C)	��	I*	��	L*	$��	X*	��	X*	��	k)	��	s,	��	y-	��	{.	��	%	���0	���0	���1	���%	���0	���0	���1	���%	���0	���0	���1	��	�gnamegstexi->plain-text�g
documentationf7Transform @var{tree} into plain text. Returns a string.�C"RC�gm
		,gfilenameftexinfo/plain-text.scm�		
��	%
��	(
���	,
��7	.
��8	4	��>	4	��@	4	��C	4
��D	5	��I	5	��O	5	,��Q	5	��S	5	��V	5
���	<
��_	?
��@	F
���	K
���	M
���	P
��l	Z
��9	a
��	r
��,	
����
����
���
����
����	����
����	����
����	���
���	���
��g�
����
�� h�
��!,�
��"r�
��#F�
��$�
��$��
��%��
��&��
��&��	��&��
��'|�
��'~�	��(!�	��('�	$��()�	��(,�	��(��	��(��	$��(��	��(��	��(��	��(��	$��(��	��(��	��(��	��(��	$��(��	��(��	��*�	��*��	��+��
��.�#
��H	.�
C6texinfo/indexing.go000064400000005520150536206120010356 0ustar00GOOF----LE-8-2.08]=4h�]gguile�	�	gdefine-module*�	�	�	gtexinfo�	gindexing�	�		gfilenameS�	
ftexinfo/indexing.scm�	gimportsS�	gsxml�	
gsimple�	
�	�	gsrfi�	gsrfi-13�	�	�	�	gexportsS�	gstexi-extract-index�	�	gset-current-module�	�	�	gdeftp�	gdefcv�	gdefivar�	gdeftypeivar�	gdefop�	 g	deftypeop�	!g	defmethod�	"g
deftypemethod�	#gdefopt�	$gdefvr�	%gdefvar�	&g	deftypevr�	'g
deftypevar�	(gdeffn�	)g	deftypefn�	*gdefspec�	+gdefmac�	,gdefun�	-g
deftypefun�	. !"#$%&'()*+,-�	/gdefines�	0gcindex�	1gfindex�	2gvindex�	3gkindex�	4gpindex�	5gtindex�	6012345�	7gindices�	8ganchor�	9gmemq�	:gassq�	;gname�	<gsxml->string�C5h�~]4	
54>"G./R67R89/:;7<h�C](C��$�"�4L�5"�����$����$���&{4���5$/��4�����5��4����5����"��|4���5$(��4��54����5����"��D"��U"��Q"��M"��I�"��';gin
	�gentries	�gfilenameftexinfo/indexing.scm�
	5	��		6	��		9	
��		9	��		6	��		F	��		F	��	 	F	��	$	F	��	,	F	��	,	:	��	/	;	��	0	;	
��	4	:	��	7	;	%��	9	;	��	=	;	��	@	<	��	C	<	��	G	;	��	H	<	%��	M	<	+��	S	<	%��	W	;	��	Z	=	��	\	=	%��	`	=	+��	c	=	6��	g	=	1��	i	=	%��	j	=	��	l	>	%��	p	>	+��	s	>	1��	x	>	%��	y	>	��	{	=	���	=	���	A	%���	A	+���	A	%���	@	���	B	���	B	���	B	-���	B	���	C	%���	C	+���	C	1���	C	%���	C	���	B	���	B	���	H	���	H	��8	�	gnamegloop�Ch]OQ6gtree
		gmanual-name		gkind			gloop		
	gfilenameftexinfo/indexing.scm�
	*
��	
	5	��		5	 ��		5	��			gnamegstexi-extract-index�g
documentationf6Given an stexi tree @var{tree}, index all of the entries of type
@var{kind}. @var{kind} can be one of the predefined texinfo indices
(@code{concept}, @code{variable}, @code{function}, @code{key},
@code{program}, @code{type}) or one of the special symbols @code{auto} 
or @code{all}. @code{auto} will scan the stext for a @code{(printindex)}
statement, and @code{all} will generate an index from all entries,
regardless of type.

The returned index is a list of pairs, the @sc{car} of which is the
entry (a string) and the @sc{cdr} of which is a node name (a string).�CRCvgm
		,gfilenameftexinfo/indexing.scm�		
��	.	#	��	1	"
��	3	(	��	6	'
���	*
��	�
C6texinfo/docbook.go000064400000023123150536206120010170 0ustar00GOOF----LE-8-2.0;&]�4h�]gguile�	�	gdefine-module*�	�	�	gtexinfo�	gdocbook�	�		gfilenameS�	
ftexinfo/docbook.scm�	gimportsS�	gsxml�	
gfold�	
�	�	gsrfi�	gsrfi-1�	�	gselectS�	
�	�	�	gexportsS�	g*sdocbook->stexi-rules*�	g*sdocbook-block-commands*�	gsdocbook-flatten�	gfilter-empty-elements�	greplace-titles�	�	gset-current-module�	�	 �	!gidentity�	"g@�	#gidentity-deattr�	$g	detag-one�	%g	parameter�	&gvar�	'%&�	(greplaceable�	)(&�	*gtype�	+gcode�	,*+�	-gfunction�	.-+�	/gliteral�	0gsamp�	1/0�	2gemphasis�	3gemph�	423�	5gsimpara�	6gpara�	756�	8gprogramlisting�	9gexample�	:89�	;g	firstterm�	<gdfn�	=;<�	>gfilename�	?gfile�	@>?�	Agquote�	Bgcite�	CAB�	Dgapplication�	EDB�	Fgsymbol�	GF+�	Hgnote�	Ig	cartouche�	JHI�	Kgenvar�	Lgenv�	MKL�	N'),.147:=@CEGJM�	Ogtag-replacements�	Pgignore-list�	Qgwith-output-to-string�	Rgwrite�	Sg	stringify�	Tg
*preorder*�	Ug%�	Vgorderedlist�	Wglistitem�	Xgitem�	Yg	enumerate�	Zgitemizedlist�	[gitemize�	\gacronym�	]gterm�	^ginformalexample�	_gsection�	`g
subsection�	ag
subsubsection�	bgulink�	cgassq�	dgurl�	eguref�	fgtitle�	gg*text*�	hg	*default*�	igappend�	jgwarn�	kfIgnoring�	lf
attributes�	mgmemq�	nfDon't know how to convert�	ofto stexi�	pgc�	qgall�	rg	indexterm�	sgvariablelist�	tgrefsect1�	ugrefsect2�	vgrefsect3�	wgrefsect4�	xg
informaltable�	y68^rsVtuvwf9HZx�	zginline-command?�	{i�	|i�	}greverse�	~gfoldts*-values�	gchapter��t���u_���v`���wa��������C5h��]4	
54 >"Gho-13Cggargs
			gfilenameftexinfo/docbook.scm�
	(
��			


gnamegidentity�C!R"h@�-13�$%��$��&�"""�C�gtag
			;gbody			;gfilenameftexinfo/docbook.scm�
	+
��		,	��		,	��		,	(��		,	!��		,	��		-	��	 	-	%��	$	,	��	'	.	��	:	,	��			;
gnamegidentity-deattr�C#Rh]Cwgtag
		gbody		gfilenameftexinfo/docbook.scm�
	1
��			gnameg	detag-one�C$RNORPRQRhN]L6Fgfilenameftexinfo/docbook.scm�
	H	��		H	$��		
Chu]O6mgexp
		
gfilenameftexinfo/docbook.scm�
	G
��	
	H	��		
gnameg	stringify�CSR"T!i��UT!i��6#i�VWXhs-13�Ckgtag
			gbody			gfilenameftexinfo/docbook.scm�
	R	��		S	��			
C�Yhs-13�Ckgtag
			gbody			gfilenameftexinfo/docbook.scm�
	T	��		U	��			
C��ZWXhs-13�Ckgtag
			gbody			gfilenameftexinfo/docbook.scm�
	W	��		X	��			
C�[hs-13�Ckgtag
			gbody			gfilenameftexinfo/docbook.scm�
	Y	��		Z	��			
C��\\Uh s-13�Ckgtag
			gbody			gfilenameftexinfo/docbook.scm�
	[	��		\	��			
C�]$i�^$i�_!i�`!i�a!i�bcdeUfh8�-134�5$�C�C�gtag
			1gattrs			1gbody				1gt			1gfilenameftexinfo/docbook.scm�
	b	��	
	d	��		d	��		d	��		d	��		c	��		f	��	0	h	��				1	
	C�g$i�hcOi"jklmPnopUqSh��-1345$U"	�6�$=��$1��&#4�>"G��6"���"���"���4	5$C4
>"G
4�5C�gtag
		�gbody		�gsubst		�gfilenameftexinfo/docbook.scm�
	j	��	
	k	!��		k	��		l	��	#	r	$��	'	r	��	'	n	��	*	n	!��	.	n	��	1	n	5��	2	n	.��	6	n	��	9	n	F��	<	n	R��	@	n	��	A	p	��	E	p	$��	I	p	3��	L	p	@��	Q	p	��	^	q	&��	a	q	2��	c	q	��	p	s	��	|	l	��		u	���	u	���	u	>���	u	���	v	���	v	%���	v	0���	v	%���	v	��#		�
C�RyRmh�]45�C�gcommand
		
gfilenameftexinfo/docbook.scm�
�
��	�	��	�	��		
gnameginline-command?�CzRU|}h(�]L4L$	L"455�D�gaccum
		%gblock		%gfilenameftexinfo/docbook.scm�
�	��	�	��	
�	��	�	(��	�	5��	�	��	 �	��	%�	��			%	ChXn]���$&���$���&��"""$��"�ODfgnode
		Vgaccum		Vgblock			Vgcont			Vgcommand		4	Vgattrs		4	Vgfilenameftexinfo/docbook.scm�
�	��	�	��	�	��		�	��	
�	��	�	0��	�	)��	�	��	�	��	�	(��	!�	��	$�	��	4�	��	>�	��	A�	��	I�	$��	J�	��	K�	��	V�	��		V	gnamegfdown�C~zihHy]4>G4�5$�45D4�5Dqgnode
		Fgpaccum		Fgpblock			Fgpcont			Fgkaccum			Fgkblock			Fgkcont			Fgret			Fgblock			F	gfilenameftexinfo/docbook.scm�
�	��	�	!��	�	��	�	��	�	��	�	��	"�	��	'�	��	(�	&��	4�	��	7�	��	@�	*��	B�	��	F�	��		F	gnamegfup�Ch�]�D�gstr
		
gaccum		
gblock			
gcont			
gfilenameftexinfo/docbook.scm�
�	��	�	��	
�	��		
	gnamegfhere�C}h0"]!4>G6gsdocbook
		)gfdown		)gaccum			)gblock			)gcont			)gfilenameftexinfo/docbook.scm�
�
��	�	��	�	:��	�	>��	�	��	�	��	)�	��		)gnamegsdocbook-flatten�g
documentationf"Flatten" a fragment of sdocbook so that block elements do not nest
inside each other.

Docbook is a nested format, where e.g. a @code{refsect2} normally
appears inside a @code{refsect1}. Logical divisions in the document are
represented via the tree topology; a @code{refsect2} element
@emph{contains} all of the elements in its section.

On the contrary, texinfo is a flat format, in which sections are marked
off by standalone section headers like @code{@@chapter}, and block
elements do not nest inside each other.

This function takes a nested sdocbook fragment @var{sdocbook} and
flattens all of the sections, such that e.g.
@example
 (refsect1 (refsect2 (para "Hello")))
@end example
becomes
@example
 ((refsect1) (refsect2) (para "Hello"))
@end example

Oftentimes (always?) sectioning elements have @code{<title>} as their
first element child; users interested in processing the @code{refsect*}
elements into proper sectioning elements like @code{chapter} might be
interested in @code{replace-titles} and @code{filter-empty-elements}.
@xref{texinfo docbook replace-titles,,replace-titles}, and @ref{texinfo
docbook filter-empty-elements,,filter-empty-elements}.

Returns a nodeset, as described in @ref{sxml xpath}. That is to say,
this function returns an untagged list of stexi elements.�CR}
h(�]"�C�$�(C"���"����gx
		%grest		%gfilenameftexinfo/docbook.scm�
�	��	�	
��	�	��	�	��	�	��	�	 ��	�	
��		%	Ch ]456gsdocbook
		gfilenameftexinfo/docbook.scm�
�
��	�	��	
�	��	�	��	�	��		gnamegfilter-empty-elements�g
documentationfgFilters out empty elements in an sdocbook nodeset. Mostly useful
after running @code{sdocbook-flatten}.�CR}c�hh]"U(6��$4��5"$��������"������"���"���gsdocbook-fragment
		fgin		[gout			[gt		*	[gfilenameftexinfo/docbook.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	"��	#�	��	%�	��	*�	��	5�	��	9�	"��	<�	/��	?�	��	B�	��	J�	��	M�	
��	P�	��	S�	��	[�	��	[�	��	^�	'��	f�	��		fgnamegreplace-titles�g
documentationfrIterate over the sdocbook nodeset @var{sdocbook-fragment},
transforming contiguous @code{refsect} and @code{title} elements into
the appropriate texinfo sectioning command. Most useful after having run
@code{sdocbook-flatten}.

For example:
@example
 (replace-titles '((refsect1) (title "Foo") (para "Bar.")))
    @result{} '((chapter "Foo") (para "Bar."))
@end example
�CRC�gm
		,gfilenameftexinfo/docbook.scm�		
���	(
���	+
���	1
���	5	���	4
���	E	���	E
���	G
���	N	��
q	J
��
s�	��
v�
��%�
���
��#�
����
��	�
C6texinfo/serialize.go000064400000037576150536206120010560 0ustar00GOOF----LE-8-2.0f?]�4hw]gguile�	�	gdefine-module*�	�	�	gtexinfo�	g	serialize�	�		gfilenameS�	
ftexinfo/serialize.scm�	gimportsS�	�	
�	gstring-utils�	�	�	gsxml�	g	transform�	�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-13�	�	�	
�	gexportsS�	gstexi->texi�	�	 gset-current-module�	! �	" �	#greverse�	$glist-intersperse�	%greverse!�	&gfilter*�	'gappend�	(glist*�	)f
�	*f �	+f@�	,ginclude�	-g
empty-command�	.gstring=?�	/f*braces*�	0f@}�	1g
append-map�	2f@{�	3f}�	4f{�	5ginline-text�	6gmap�	7gwarn�	8fStrange inline-args!�	9gerror�	:fInvalid inline-args�	;f�	<g
drop-while�	=gnot�	>gassq-ref�	?f,�	@ginline-args�	A?�	Bginline-text-args�	C*�	Dgserialize-text-args�	Eg
eol-text-args�	Fgeol-text�	Gf, �	Hgeol-args�	If@bye
�	Jf
@c %**end of header

�	Kgtitle�	Lf
@settitle �	Mgand=>�	Ngfilename�	Of
@setfilename �	Pf8\input texinfo   @c -*-texinfo-*-
@c %**start of header
�	Qf

�	Rf@end �	Sg
string-ref�	Tg
string-length�	Ugenviron�	Vgsymbol->string�	Wg
table-environ�	Xgfill-string�	Ygstring-concatenate�	Zg
line-widthS�	[gbreak-long-words?S�	\gwrap�	]g	paragraph�	^f@item
�	_gitem�	`f@item �	agentry�	bf
@c %end of fragment
�	cf
@c %start of fragment

�	dgfragment�	eg
EMPTY-COMMAND�	fgINLINE-TEXT�	ggINLINE-ARGS�	hgINLINE-TEXT-ARGS�	igEOL-TEXT�	jg
EOL-TEXT-ARGS�	kgINDEX�	lgEOL-ARGS�	mgENVIRON�	ng
TABLE-ENVIRON�	ogENTRY�	pgITEM�	qg	PARAGRAPH�	rgFRAGMENT�	sgserializers�	tfUnknown command type�	u}{@�	vg
escaped-chars�	wgstring�	xgmemq�	ygstring->list�	zgescape�	{gstring-concatenate-reverse�	|gstring?�	}gassq�	~gtexi-command-specs�	gsymbol?��g%��f$Unknown stexi command, not rendering��f
Invalid stexi�C5h5<]4	
54">"G#h@](C" (6����"�����"���gsrc-l
		@gelem		@gl			/gdest			/gfilenameftexinfo/serialize.scm�
	"
��		#	��		$	��		%	��		%	��		&	��	!	&	 ��	&	&	(��	'	&	��	/	&	��	/	$	��	2	$	��	5	$	-��	8	$	9��	@	$	��		@	gnameglist-intersperse�C$R%hhF]"U(6�$#�4�5$
��""���45$	�""���"���>gpred
		fgl		fgin			[gout			[gfilenameftexinfo/serialize.scm�
	)
��		*	��		+	��		,	��		-	��		+	��		.	��		.	��	"	.	"��	$	.	��	(	.	��	+	.	2��	.	.	,��	<	.	��	=	0	��	>	0	��	H	0	��	M	0	!��	[	0	��	[	*	��	^	*	��	f	*	��		f	gnamegfilter*�C&R#'hxz-1345�"K(C��$�4�5"����(
�"������"����"���rgargs
			sgargs		sgtail			sgin			fgout			fgfilenameftexinfo/serialize.scm�
	3
��	
	4	��		4	��		5	��		4	��		6	��	!	7	��	'	8	��	(	8	
��	,	7	��	/	8	"��	0	8	+��	5	8	3��	9	8	+��	A	8	��	D	9	��	H	7	��	K	9	"��	U	9	��	X	:	��	[	:	%��	^	:	��	f	:	��	f	6	��	i	6	��	s	6	��			s


gnameglist*�C(R()$*+h ]456gexp
		glp		gcommand			gtype			gformals			gargs			gaccum			gfilenameftexinfo/serialize.scm�
	?	��		@	��		A	��	
	C	��		A	��		D	��		D	��		@	��				gnameginclude�C,R(*+h�]6�gexp
		glp		gcommand			gtype			gformals			gargs			gaccum			gfilenameftexinfo/serialize.scm�
	F
��		G		��	
	G	��		G	��			gnameg
empty-command�C-R./(01hh]L6`gx
			gfilenameftexinfo/serialize.scm�
	O	��		O	+��			O	%��			C#23hh]L6`gx
			gfilenameftexinfo/serialize.scm�
	L	��		L	+��			L	%��			C4+
hP�]45$4O4�556	4
O4�556�gexp
		Oglp		Ogcommand			Ogtype			Ogformals			Ogargs			Ogaccum			Ogfilenameftexinfo/serialize.scm�
	I
��		J	��			J	��		J	��		J	��		N	
��		O	
��		O	1��	#	O	:��	%	O	1��	'	O	
��	)	P	
��	-	N	��	1	K	
��	2	L	
��	<	L	1��	A	L	:��	C	L	1��	E	L	
��	G	M	
��	K	M	��	O	K	��		O	gnameginline-text�C5R(3$6789:;h@�]$3�$$��$4L>"G"�CL6C�gx
		>gfilenameftexinfo/serialize.scm�
	W	��		X	��		Y	��		X	��		Z	#��		Z	��		Z	��		[	��		[	"��	#	[	��	2	\	��	7	]	$��	;	]	��	=	X	 ��		>C<=>h`]L6Xgx
		
gfilenameftexinfo/serialize.scm�
	_	 ��	
	_	,��		
C#?;4+hPb]$144O44O4	5555
5"
6Zgexp
		Iglp		Igcommand			Igtype			Igformals			Igargs			Igaccum			Igfilenameftexinfo/serialize.scm�
	R
��		S		��		T		��	
	U	
��		V	��		^	��		_	��	)	`	 ��	1	_	��	3	^	��	5	V	��	7	a	��	9	U	
��	?	T	��	A	b		��	E	b	��	I	S	��		I	gnameginline-args�C@R(3'$61hh]L6`gx
			gfilenameftexinfo/serialize.scm�
	k	(��		k	:��			k	4��			C#hh]LO456`gx
		gfilenameftexinfo/serialize.scm�
	k	��		k	@��		k	��		C<=>h`]L6Xgx
		
gfilenameftexinfo/serialize.scm�
	m	!��	
	m	-��		
C#A;4+hPw]$6444O44	O4
55555?"
6ogexp
		Nglp		Ngcommand			Ngtype			Ngformals			Ngargs			Ngaccum			Ngfilenameftexinfo/serialize.scm�
	d
��		e		��		f		��	
	g	
��		i	��		j	��		l	��	"	m	��	,	n	!��	4	m	��	6	l	��	8	j	��	:	o	��	<	i	��	>	g	
��	D	f	��	F	p		��	J	p	��	N	e	��		N	gnameginline-text-args�CBR'$61hh]L6`gx
			gfilenameftexinfo/serialize.scm�
	v	#��		v	5��			v	/��			Chb]LO6Zgarg
		gfilenameftexinfo/serialize.scm�
	v		��		v	��		C#<=>h`]L6Xgx
		
gfilenameftexinfo/serialize.scm�
	z	��	
	z	 ��		
CC
h@]44O444O455555	5@�glp
		:gformals		:gargs			:gfilenameftexinfo/serialize.scm�
	r
��		u	��		v	��		w		��		y	
��		z	��	&	{	��	.	z	��	0	y	
��	2	w		��	4	v	��	6	|	��	8	u	��	:	s	��		:	gnamegserialize-text-args�CDR()D*+h ]456gexp
		glp		gcommand			gtype			gformals			gargs			gaccum			gfilenameftexinfo/serialize.scm�
	~
��				��	�		��	�		��	�	��			��			gnameg
eol-text-args�CER()1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C#*+h8C]4O4$��"�556;gexp
		2glp		2gcommand			2gtype			2gformals			2gargs			2gaccum			2gfilenameftexinfo/serialize.scm�
�
��	�		��	�		��	�	��	�	��	�	'��	$�	2��	&�	��	(�		��	*�		��	.�	��	2�	��
		2	gnamegeol-text�CFR()$'<=6>hb]L6Zgx
		
gfilenameftexinfo/serialize.scm�
�	"��	
�	.��		
C#G*+
h8^]4444O4	555?
56Vgexp
		6glp		6gcommand			6gtype			6gformals			6gargs			6gaccum			6gfilenameftexinfo/serialize.scm�
�
��	�		��	�		��	
�	
��	
�	��	�	��	�	"��	$�	��	&�	��	(�	
��	*�	
��	,�		��	.�		��	2�	��	6�	��		6	gnamegeol-args�CHR(I1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	*��		�	$��			C#J>KLMN)#Oh�]4�5�C�gfilename
		gfilenameftexinfo/serialize.scm�
�	��	�	��	�	$��		�	3��	�	-��	�	$��	�	��		C;PQRhk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	$��	�	6��		�	0��			CST)D*+h�]��$T4O4��5544	55
445
5$"64O4$��"�55("4�4�5�5
�$"�456
�gexp
	�glp	�gcommand		�gtype		�gformals		�gargs		�gaccum		�gkey		�gt		K	^gbody	��
gfilenameftexinfo/serialize.scm�
�
��	�	��	�	��	�	��	�	��	�	0��	$�	9��	'�	0��	)�	��	+�	��	,�	��	/�	��	5�	$��	7�	��	9�	��	;�	-��	<�	��	?�	��	E�	&��	G�	��	K�	��	K�	��	[�	��	`�	��	d�	��	h�	��	l�	��	m�	��	w�	$��	�	-����	6����	A����	$����	����	����	����	����	����	(����	,����	;����	,����	(����	����	����	����	����	����	����	����	����	����	��6	�	gnamegenviron�CUR(QR1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C#);V+*hh�]4O4$��"�55$	���"�$4	�5
"
6
�gexp
		hglp		hgcommand			hgtype			hgformals			hgargs			hgaccum			hgarg		?	^gfilenameftexinfo/serialize.scm�
�
��	�		��	
�	��	�		��	�	��	�	��	 �	'��	(�	2��	*�	��	,�		��	.�		��	4�	��	7�	��	?�	+��	?�		��	D�	��	H�	��	I�	��	N�	%��	P�	��	R�	0��	U�	��	`�		��	d�	��	h�	��		h	gnameg
table-environ�CWRXYZ[h�]45	H6ygstrings
		gfilenameftexinfo/serialize.scm�
�
��	�	��	�	��		gnamegwrap�C\R(Q\#1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	)��		�	#��			Ch(D]444O4�55556<gexp
		(glp		(gcommand			(gtype			(gformals			(gargs			(gaccum			(gfilenameftexinfo/serialize.scm�
�
��	�		��	�		��	
�	
��	
�	��	�	/��	�	8��	�	/��	 �	��	"�	
��	$�		��	(�	��
		(	gnameg	paragraph�C]R(1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C#^h ]4O4�556gexp
		glp		gcommand			gtype			gformals			gargs			gaccum			gfilenameftexinfo/serialize.scm�
�
��	�		��	�	-��	�	6��	�	-��	�		��	�		��	�	��				gnamegitem�C_R(1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C#)hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C`h8R]4O4��554O4��556Jgexp
		6glp		6gcommand			6gtype			6gformals			6gargs			6gaccum			6gfilenameftexinfo/serialize.scm�
�
��	�		��	�	-��	�	6��	�	-��	�		��	�		��	�		��	&�	-��	+�	6��	.�	-��	0�		��	2�		��	6�	��		6	gnamegentry�CaR(b1hk]L6cgx
			gfilenameftexinfo/serialize.scm�
�	��	�	'��		�	!��			C#ch (]4O4�556 gexp
		 glp		 gcommand			 gtype			 gformals			 gargs			 gaccum			 gfilenameftexinfo/serialize.scm�
�
��	�		��	�		��	�	-��	�	6��	�	-��	�		��	�		��	 �	��
		 	gnamegfragment�CdRe-i�f5i�g@i�hBi�iFi�jEi�kEi�lHi�mUi�nWi�oai�p_i�q]i�rdi�,i�sR>s9th8&]45$"456gexp
		4glp		4gcommand			4gtype			4gformals			4gargs			4gaccum			4gt			4gfilenameftexinfo/serialize.scm�
�
��	�	��	�	��	�	��	�	��	$�	��	4�	��		4	gnameg	serialize�CRuvRw#xvyh`�]"D(45@4�5$��@��"������"���45"����gstr
		Zgin		Jgout			Jgfilenameftexinfo/serialize.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	!�	��	%�	��	(�	��	+�	"��	0�	��	9�	��	<�	��	?�	!��	B�	��	J�	��	J�	��	K�	��	R�	*��	Z�	��		Zgnamegescape�g
documentationfBEscapes any illegal texinfo characters (currently @{, @}, and @@).�CzR{|z}~V&�7�9�h� ]
$�"$C45$45�C�$�4�5$rL4�5��4��5"��$"@�"9��$-���$���	&	���""���""���""���64
>"GC
6gin
	�gout	�gcommand-spec		>�gfilenameftexinfo/serialize.scm�
�	��	�	��	�	��	�	��	�	��	�	��	"�	��	#�	��	,�	��	0�	��	4�	��	5�	��	:�	!��	>�	��	>�	��	F		��	M	��	R	(��	T	��	W	��	Y	��	`	)��	c	��	j
	��	o		��	w	��	{		��	~
	&��	
	���		���
	7���
	0���
	���	$���	/���
	���	���	
���	���	���	���	���	��,	�	gnameglp�Ch �]	OQ456�gtree
		glp		gfilenameftexinfo/serialize.scm�
�
��	�	��	�	��	�	��	�	��		gnamegstexi->texi�g
documentationf2Serialize the stexi @var{tree} into plain texinfo.�CRC4gm
		,gfilenameftexinfo/serialize.scm�		
���	"
��a	)
��m	3
���	?	���	F
��
�	I
��e	R
���	d
���	r
��2	~
��V�
����
�� ��
��#i�
��$�
��&/�
��(�
��*��
��,��
��,��	��-)�
��.��
��.��	��.��
��0��
��5�
��	5
C6texinfo/string-utils.go000064400000040617150536206120011223 0ustar00GOOF----LE-8-2.0wA]S4h�]gguile�	�	gdefine-module*�	�	�	gtexinfo�	gstring-utils�	�		gfilenameS�	
ftexinfo/string-utils.scm�	gimportsS�	gsrfi�	
gsrfi-13�	
�	�	gsrfi-14�	�	�	�	gexportsS�	gescape-special-chars�	gtransform-string�	gexpand-tabs�	g
center-string�	gleft-justify-string�	gright-justify-string�	gcollapse-repeated-chars�	gmake-text-wrapper�	gfill-string�	gstring->wrapped-lines�	
�	 gset-current-module�	! �	" �	#gopen-output-string�	$gchar?�	%gchar=?�	&g
procedure?�	'gstring?�	(gstring-index�	)gboolean?�	*gthrow�	+gbad-type�	,f'expected #t, char, string, or procedure�	-gdisplay�	.g
string-length�	/g	substring�	0gstring-for-each�	1g
write-char�	2gget-output-string�	3gmake-string�	4gstring�	5gmax�	6g
string-append�	7godd?�	8f�	9gchar-set-complement�	:gchar-set:whitespace�	;greverse�	<gsplit-by-single-words�	=g
string-ref�	>gend-of-sentence?�	?g
line-widthS�	@?
��	Agexpand-tabs?S�	BA��	Cg	tab-widthS�	DC	��	Egcollapse-whitespace?S�	FE	��	Ggsubsequent-indentS�	HG	��	Iginitial-indentS�	JI	��	Kgbreak-long-words?S�	LK	��	M@BDFHJL�	Ngstring-trim�	Of �	Pgstring-join�	Qf
�	Rginfix�C5hx:�]4	
54">"G#$%hc]L6[gc
		
gfilenameftexinfo/string-utils.scm�
	O	��	
	O	%��		
C&'(hc]L6[gc
		
gfilenameftexinfo/string-utils.scm�
	S	��	
	S	%��		
C)h[]LCSgc
		gfilenameftexinfo/string-utils.scm�
	U	��		C*+,-hk]4L5L6cgc
		gfilenameftexinfo/string-utils.scm�
	X	��		X	,��		X	#��		C-hc]LL6[gc
		
gfilenameftexinfo/string-utils.scm�
	Y	��	
	Y	#��		
C.-/01h {]4L5$L6L6sgc
		gfilenameftexinfo/string-utils.scm�
	a	��		b	��	
	b	��		d	��		g	��		C2hX-	-.,3##4545$O"F45$"545$O"45$O"	4	
545$
O"	
O$245�$ 44
5>"G""4O$"
$"45>"G$145�$445>"G""6%	gstr
	Xgmatch?	Xgreplace		Xgstart		Xgend		Xgos		#Xgmatcher	�Xgreplacer	�Xgfilenameftexinfo/string-utils.scm�
	'
��		M	
��	#	M	��	&	N	��	0	N	��	<	P	��	F	N	��	M	R	��	W	N	��	c	T	��	m	N	��	y	V	��	}	V	%��		V	/���	V	���	M	���	W	���	W	���	M	���	\	���	\	���	\	���	\	���	]	���	]	���	]	���	`	���	i	��	j	��	j	
��	`	��!	m	��$	m	��+	m	��/	m	��0	n	��3	n	��B	n	��X	p	��(	X		gnamegtransform-string�g
documentationf�Uses @var{match?} against each character in @var{str}, and performs a
replacement on each character for which matches are found.

@var{match?} may either be a function, a character, a string, or
@code{#t}.  If @var{match?}  is a function, then it takes a single
character as input, and should return @samp{#t} for matches.
@var{match?} is a character, it is compared to each string character
using @code{char=?}.  If @var{match?} is a string, then any character
in that string will be considered a match.  @code{#t} will cause 
every character to be a match.

If @var{replace} is a function, it is called with the matched
character as an argument, and the returned value is sent to the output
string via @samp{display}.  If @var{replace} is anything else, it is
sent through the output string via @samp{display}.

Note that te replacement for the matched characters does not need to
be a single character.  That is what differentiates this function from
@samp{string-map}, and what makes it useful for applications such as
converting @samp{#\&} to @samp{"&amp;"} in web page text.  Some other
functions in this module are just wrappers around common uses of
@samp{transform-string}.  Transformations not possible with this
function should probably be done with regular expressions.

If @var{start} and @var{end} are given, they control which portion
of the string undergoes transformation.  The entire input string
is still output, though.  So, if @var{start} is @samp{5}, then the
first five characters of @var{str} will still appear in the returned
string.

@lisp
; these two are equivalent...
 (transform-string str #\space #\-) ; change all spaces to -'s
 (transform-string str (lambda (c) (char=? #\space c)) #\-)
@end lisp�CR3h(u-.,3#		4 56mgstr
		'gtab-size		'gfilenameftexinfo/string-utils.scm�
	r
��		z	��	'	x	��		'gnamegexpand-tabs�g
documentationf�Returns a copy of @var{str} with all tabs expanded to spaces.  @var{tab-size} defaults to 8.

Assuming tab size of 8, this is equivalent to: @lisp
 (transform-string str #\tab "        ")
@end lisp�CR$%he]L6]gc
		
gfilenameftexinfo/string-utils.scm�
�	��	
�	$��		
C(he]L6]gc
		
gfilenameftexinfo/string-utils.scm�
�	��	
�	$��		
C4he]L6]gc
		
gfilenameftexinfo/string-utils.scm�
�	��	
�	 ��		
Ch0)]45$O"OO6!gstr
		,g
special-chars		,gescape-char			,gfilenameftexinfo/string-utils.scm�
	|
��	�	��	�	��	,�	��		,	gnamegescape-special-chars�g
documentationfGReturns a copy of @var{str} with all given special characters preceded
by the given @var{escape-char}.

@var{special-chars} can either be a single character, or a string consisting
of all the special characters.

@lisp
;; make a string regexp-safe...
 (escape-special-chars "***(Example String)***"  
                      "[]()/*." 
                      #\\)
=> "\\*\\*\\*\\(Example String\\)\\*\\*\\*"

;; also can escape a singe char...
 (escape-special-chars "richardt@@vzavenue.net"
                      #\@@
                      #\@@)
=> "richardt@@@@vzavenue.net"
@end lisp�CR.35%6748	h��-.,3#	P# #4544�	�
554$"5$"!44�	�
5$"5�$C4�5$4$"5"6�gstr
	�gwidth	�gchr		�grchr		�glen		0�glpad		G�grpad	��gfilenameftexinfo/string-utils.scm�
�
��	*�	��	0�	��	3�	��	6�	��	=�	+��	@�	!��	C�	��	G�	��	G�	��	J�	��	R�	��	^�	��	b�	��	i�	��	l�	 ��	s�	/��	v�	%��	y�	 ��	�	����	����	����	����	����	)����	/����	)����	%����	>����	����	>����	Q����	��"	�	gnameg
center-string�g
documentationf�Returns a copy of @var{str} centered in a field of @var{width}
characters.  Any needed padding is done by character @var{chr}, which
defaults to @samp{#\space}.  If @var{rchr} is provided, then the
padding to the right will use it instead.  See the examples below.
left and @var{rchr} on the right.  The default @var{width} is 80.  The
default @var{chr} and @var{rchr} is @samp{#\space}.  The string is
never truncated.
@lisp
 (center-string "Richard Todd" 24)
=> "      Richard Todd      "

 (center-string " Richard Todd " 24 #\=)
=> "===== Richard Todd ====="

 (center-string " Richard Todd " 24 #\< #\>)
=> "<<<<< Richard Todd >>>>>"
@end lisp�CR.356hXH-.,3#	P# 4544�
55�$C6@gstr
		Qgwidth		Qgchr			Qglen		'	Qgpad		;	Qgfilenameftexinfo/string-utils.scm�
�
��	!�	��	'�	��	*�	��	-�	��	4�	 ��	7�	��	;�	��	;�	��	B�	��	F�	��	Q�	��
		Q	gnamegleft-justify-string�g
documentationf@code{left-justify-string str [width chr]}.  
Returns a copy of @var{str} padded with @var{chr} such that it is left
justified in a field of @var{width} characters.  The default
@var{width} is 80.  Unlike @samp{string-pad} from srfi-13, the string
is never truncated.�CR.356hXF-.,3#	P# 4544�
55�$C6>gstr
		Qgwidth		Qgchr			Qglen		'	Qgpad		;	Qgfilenameftexinfo/string-utils.scm�
�
��	!�	��	'�	��	*�	��	-�	��	4�	 ��	7�	��	;�	��	;�	��	B�	��	F�	��	Q�	��
		Q	gnamegright-justify-string�g
documentationfReturns a copy of @var{str} padded with @var{chr} such that it is
right justified in a field of @var{width} characters.  The default
@var{width} is 80.  The default @var{chr} is @samp{#\space}.  Unlike
@samp{string-pad} from srfi-13, the string is never truncated.�CR%%h@�]"	
NNC4M5$4ML5$M�NML�C"���"����gc
		<gfilenameftexinfo/string-utils.scm�
�	��		�	��	
�	��	�	��	�	��	�	��	�	��	)�	��	,�	&��	.�	��	3�	��		<C8hX�-.,3# #4 5$A" 
HHO6�gstr
		Xgchr		Xgnum			Xgprev-chr		5	Lgmatch-count		5	Lgrepeat-locator		L	Xgfilenameftexinfo/string-utils.scm�
���	 �	��	,�	��	5�	
��	L�	��	V�	*��	X�	��		X	gnamegcollapse-repeated-chars�g
documentationf�Returns a copy of @var{str} with all repeated instances of 
@var{chr} collapsed down to at most @var{num} instances.
The default value for @var{chr} is @samp{#\space}, and 
the default value for @var{num} is 1.

@lisp
 (collapse-repeated-chars "H  e  l  l  o")
=> "H e l l o"
 (collapse-repeated-chars "H--e--l--l--o" #\-)
=> "H-e-l-l-o"
 (collapse-repeated-chars "H-e--l---l----o" #\- 2)
=> "H-e--l--l--o"
@end lisp�CR9:(/;hp�])45"T45$;45$45�"���45�66
"����gstr
		mgnon-wschars			mgans			cgindex			cgnext-non-ws			cgnext-ws		-	]gfilenameftexinfo/string-utils.scm�
�
��	�	��		�	��	�	��	�	��	�	��	"�	��	#�	��	-�	
��	5�	��	6	��	C	��	M	��	P	��	[	��	]	��	c	
��	c�	��	d�	��	m�	��		mgnamegsplit-by-single-words�C<R.=h@T]	45�$$.4�5�$.4	�5��CCCLgstr
		9glen			9gfilenameftexinfo/string-utils.scm�

��			
��				��	
		��	
	��		��		#��		��	 		��	$
	��	'	��	0	(��	2	��	3	��	4		��		9gnamegend-of-sentence?�g
documentationf6Return #t when STR likely denotes the end of sentence.�C>RM8%he]
6]gc
		
gfilenameftexinfo/string-utils.scm�
D	$��	
D	0��		
CN;.6>O/<
hx]1H4J 5KL$4JL5K"L$
4J5K"4J5K"(
�$	�"6L45�
�$4�5"�45�$Q�"
45",L$"4	5$4
5""���""����"��_
�$�L
"��AL$044
55�45��L
"��45��L
"���4J5L
"���gstr
	rgans	H[gwords		H[gline		H[gcount		H[glength-left	�[g	next-word	�[gfilenameftexinfo/string-utils.scm�
B	��	D	��	D	��	G	��	H	��	$H	��	.K	��	/L	��	7L	��	<O	��	DO	��	HR	��	NV	��	TX	��	XX	��	]Y	��	eX	
��	h^	 ��	o]	��	s_	��	w_	��	x`	��	}`	,��	`	���a	���]	
���d	���d	���b	���g	���l	���h	���i	���h	���k	���k	,���k	���m	���f	���p	���b	���r	��r	��
b	��{	��{	.��{	��!{	��"}	��-~	��.}	��={	��>�	��I�	��L�	��[�	��[R	��\R	��]S	��rR	��=	rChp|-/03#	P##	####OCtg
line-width
		jgexpand-tabs?		jg	tab-width			jgcollapse-whitespace?			jgsubsequent-indent			jginitial-indent			jgbreak-long-words?			jgfilenameftexinfo/string-utils.scm�

��	A	/��	K	,��		j

g
line-widthS
�gexpand-tabs?S�g	tab-widthS	�gcollapse-whitespace?S	�gsubsequent-indentS	�ginitial-indentS	�gbreak-long-words?S	�gnamegmake-text-wrapper�g
documentationf�Returns a procedure that will split a string into lines according to the
given parameters.

@table @code
@item #:line-width
This is the target length used when deciding where to wrap lines.
Default is 80.

@item #:expand-tabs?
Boolean describing whether tabs in the input should be expanded. Default
is #t.

@item #:tab-width
If tabs are expanded, this will be the number of spaces to which they
expand. Default is 8.

@item #:collapse-whitespace?
Boolean describing whether the whitespace inside the existing text
should be removed or not.  Default is #t.

If text is already well-formatted, and is just being wrapped to fit in a
different width, then set this to @samp{#f}. This way, many common text
conventions (such as two spaces between sentences) can be preserved if
in the original text. If the input text spacing cannot be trusted, then
leave this setting at the default, and all repeated whitespace will be
collapsed down to a single space.

@item #:initial-indent
Defines a string that will be put in front of the first line of wrapped
text. Default is the empty string, ``''.

@item #:subsequent-indent
Defines a string that will be put in front of all lines of wrapped
text, except the first one.  Default is the empty string, ``''.

@item #:break-long-words?
If a single word is too big to fit on a line, this setting tells the
wrapper what to do.  Defaults to #t, which will break up long words.
When set to #f, the line will be allowed, even though it is longer
than the defined @code{#:line-width}.
@end table

The return value is a procedure of one argument, the input string, which
returns a list of strings, where each element of the list is one line.�CRh�-134?6�gstr
			gkwargs			gfilenameftexinfo/string-utils.scm�
�
��	
�	��	�	��			
gnamegstring->wrapped-lines�g
documentationf8@code{string->wrapped-lines str keywds ...}. Wraps the text given in
string @var{str} according to the parameters provided in @var{keywds},
or the default setting if they are not given. Returns a list of strings
representing the formatted lines. Valid keyword arguments are discussed
in @code{make-text-wrapper}.�CRPQRh �-134?6�gstr
			gkwargs			gfilenameftexinfo/string-utils.scm�
�
��	�	��	�	��	�	��	�	��			
gnamegfill-string�g
documentationfWraps the text given in string @var{str} according to the parameters
provided in @var{kwargs}, or the default setting if they are not
given.  Returns a single string with the wrapped text.  Valid keyword
arguments are discussed in @code{make-text-wrapper}.�CRC�gm
		,gfilenameftexinfo/string-utils.scm�		
��	'
���	r
���	|
����
��;�
����
��$F���&g�
��(
��6O
��8o�
��:o�
��	:q
C6texinfo/reflection.go000064400000072521150536206120010710 0ustar00GOOF----LE-8-2.09u],4h�]gguile�	�	gdefine-module*�	�	�	gtexinfo�	g
reflection�	�		gfilenameS�	
ftexinfo/reflection.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	gselectS�	g
append-map�	�	�	goop�	ggoops�	�	�	�	�	g
plain-text�	�	�	gsrfi-13�	�	�	gice-9�	 gsession�	! �	"!�	#g
documentation�	$#�	%$�	&goptargs�	'&�	('�	)gsxml�	*g	transform�	+)*�	,gpre-post-order�	-,�	.+-�	/"%(.	�	0gexportsS�	1gmodule-stexi-documentation�	2gscript-stexi-documentation�	3gobject-stexi-documentation�	4gpackage-stexi-standard-copying�	5g package-stexi-standard-titlepage�	6gpackage-stexi-generic-menu�	7gpackage-stexi-standard-menu�	8gpackage-stexi-extended-menu�	9gpackage-stexi-standard-prologue�	:gpackage-stexi-documentation�	;g'package-stexi-documentation-for-include�	<123456789:;�	=gset-current-module�	>=�	?=�	@gdeftp�	Agdefcv�	Bgdefivar�	Cgdeftypeivar�	Dgdefop�	Eg	deftypeop�	Fg	defmethod�	Gg
deftypemethod�	Hgdefopt�	Igdefvr�	Jgdefvar�	Kg	deftypevr�	Lg
deftypevar�	Mgdeffn�	Ng	deftypefn�	Ogdefmac�	Pgdefspec�	Qgdefun�	Rg
deftypefun�	S@ABCDEFGHIJKLMNOPQR�	Tgdefs�	Ugassq�	Vgname�	Wg
list-index�	Xg=�	Yg<�	Zgstring=?�	[g	string<=?�	\gstring->symbol�	]g	sort-defs�	^greverse!�	_g
list*-join�	`gmap�	agstring?�	bgobject->string�	cf �	df . �	egprocess-args�	fgprocedure-arguments�	ggassq-ref�	hgrequired�	igoptional�	jgkeyword�	kgrest�	lgappend�	mgsymbol->string�	ngformat�	of	[~a = ~s]�	pf[~a]�	qf[#:~a]�	rf.�	sg
get-proc-args�	tgsyntax-rules�	ugprocedure-property�	vgpatterns�	wgidentifier-syntax�	xgdefmacro�	yg
defmacro-args�	zgmacro-arguments�	{gdefspecx�	|g%�	}g	arguments�	~gmacro-additional-stexi�	gmake-regexp��f![[:space:]][[:space:]][[:space:]]��gmany-space?��f^[[:space:]]��ginitial-space?��gstring-null?��g
*fragment*�����gstring-index��gregexp-exec��gcatch��������gtexi-fragment->stexi��gverbatim��g
string->stexi��gdefined?��gmethod-formals��greverse��f (��gvar��gcode��g
class-name��f)�����f...��gmethod-specializers��g
method-source��gwarn��gmethod-stexi-arguments��gforceS���	������f	[unknown]��gobject-documentation��gis-a?��g<method>��gmethod-procedure��g<class>��gcategory��fClass���������g<macro>��gmacro-transformer��g
macro-type��l��l��g<procedure>��fMethod������g	<generic>��fGeneric���������ggeneric-function-methods��gmemq��gstring-join��gmodule-name->node-name��g
string-append��f/��g%search-load-path��gin-vicinity��gmodule-filename��gopen-input-file��geof-object?��gread��gread-module��g
define-module��gand=>��gexportS��gcadr��gidentity��gmodule-export-list��g
docs-resolverS���	������gissue-deprecation-warning��fQmodule-stexi-documentation: use #:docs-resolver instead of a positional argument.��gmodule-commentary��gstring-trim-both��gwith-output-to-string��gdisplay��gresolve-interface��gtitle��gnode��gsection��fOverview������fUsage������gappend!��gsort!��g
module-map��ganchor��fvariable unbound!��f
[unbound!]�����gfile-commentary��gbasename��gadd-value-help-handler!��gstexi->plain-text��gadd-name-help-handler!��gand-map��gsymbol?��!���!���gcopying��gpara��fThis manual is for ��f
 (version ��f
, updated ��f
Copyright ��gnumber->string��f,��g	quotation��g	titlepage��gsubtitle��fversion ��gauthor��gemail��gpage�����gvskip��gall��f0pt plus 1filll������|������g
insertcopying�����gifnottex�fTop�V�|���gtop�	gmenu�
f* �f::�gmake-string�
gmax�g
string-length�f
��giftex�g
shortcontents����gcons�gcar�gcdr�gdircategory�gdirentry�f: (�f).  �r�gchapter�g*text*� g	*default*�!gstexi->chapter�"gmodule-stexi-documentation-argsS�#"	��$gscriptsS�%$	��&#%�'gerror�(f2expected modules to be a list of a list of symbols�)gfilename�*"	��+*�C5hH]�]4	
/0<54?>"GSTRUVh�]4�����5��C�gx
		gfilenameftexinfo/reflection.scm�
	>	��		?	
��		?	��	
	=	��		?	��		?	
��		?	��		gnamegname�Ch@-1344L54L55$(CL@4L54L56�gproc
			@geq?			@g<				@gargs				@gfilenameftexinfo/reflection.scm�
	F	��	
	G	
��	
	G	��		G	��		G	
��	 	G	��	&	I	��	'	I	��	.	J	��	1	H	��	8	H	��	@	H	��
			@	
	gnamegcompare-in-order�CWTh�]���6~gx
		
gfilenameftexinfo/reflection.scm�
	@	��			=	��		A	��	
	A	��		
gnamegpriority�CXYZ[W\UVh�]#OQ44	4
�����5��55$"	I��44	4
�����5��55$"	I���$(C@44	4
�����5��55$"	I��44	4
�����5��55$"	I���C�gordering
	ga	gb		gname		gcompare-in-order		gargs		(gt		F	`gt		|�gt	��gt	�
gfilenameftexinfo/reflection.scm�
	:
��	(	K	��	+	C	��	0	C	��	3	?	
��	7	?	��	:	=	��	<	?	��	@	?	
��	A	?	��	D	C	��	F	C	��	F	C	��	a	C	��	f	C	��	i	?	
��	m	?	��	p	=	��	r	?	��	v	?	
��	w	?	��	z	C	��	|	C	��	|	C	���	G	
���	G	���	I	���	I	���	J	���	C	���	C	���	?	
���	?	���	=	���	?	���	?	
���	?	���	C	���	C	���	C	���	C	���	C	���	?	
���	?	���	=	���	?	���	?	
���	?	���	C	���	C	���	C	��	H	��5		gnameg	sort-defs�C]R^hX@]"C(6�$��6�(
�"	���"���"���8gl
		Tginfix		Tgrestfix			Tgin			Igout			Igfilenameftexinfo/reflection.scm�
	O
��		P	��		Q	��		Q	��		R	��		Q	��	"	R	"��	%	R	��	(	S	��	.	S	��	1	T	'��	4	T	!��	;	U	(��	@	U	!��	I	S	��	I	P	��	L	P	��	T	P	��		T	gnameg
list*-join�C_R`abhq]45$C6igx
		gfilenameftexinfo/reflection.scm�
	X	��		X	��	
	X	��		X	%��		C_cdh �]4$"56�gargs
		gfilenameftexinfo/reflection.scm�
	W
��		Y	��		Y	��		Y	��		Z	��		Z	��		Y	��		X	��			gnamegprocess-args�CeRfghijkel`mnoph �]�$���66�ga
		 gfilenameftexinfo/reflection.scm�
	j	��		k	��			k	��		l	#��		l	/��		l	7��		l	��		m	#��	 	m	��
		 Cnpqh �]�$
�66�ga
		gfilenameftexinfo/reflection.scm�
	q	��		r	��			r	��		s	#��		s	*��		s	��		t	#��		t	��			Crh��])45$g4545454544	
54	54	5$
4
5"56C�gproc
		zgt			zg
required-args		5	xg
optional-args		5	xgkeyword-args		5	xgrest-arg		5	xgfilenameftexinfo/reflection.scm�
	\
��		^	��			]	��		`	��		`	-��		`	��		a	��	!	a	-��	#	a	��	$	b	��	*	b	-��	,	b	��	-	c	��	3	c	(��	5	c	��	5	`		��	@	e	��	C	g	
��	L	j	
��	U	q	
��	c	x	
��	e	y	��	f	y	��	o	y	��	t	z	��	v	e	��	x	d	��		zgnameg
get-proc-args�CsRetuvwxyhhn]�$!45�$�""7�$")�$45$""6fgname
		ggtype		ggtransformer			ggpatterns			*gt		N	`gfilenameftexinfo/reflection.scm�
	|
��	
	~	��	�	��	�	6��	�	��	�	��	�	��	�	��	"�	��	'�	��	7	~	��	8�	��	E	~	��	F�	
��	L�	*��	N�	
��	N�	��	]�	
��	e�	��	g	}	��		g	gnamegmacro-arguments�CzRtuv`{|V}eh u]L45�Cmgx
		gfilenameftexinfo/reflection.scm�
�	��	�	��	�	-��	�	��		Ch0#]�$"45�$O�6CCgname
		/gtype		/gtransformer			/gpatterns			-gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��	�	5��	�	��	�	��	�	��	�	��	)�	��	+�	��	,�	��	.�	��
		/	gnamegmacro-additional-stexi�C~R4i�5�R4i�5�R��������hS]L6Kgfilenameftexinfo/reflection.scm�
�	��	�	��		
Ch_-13CWgargs
			gfilenameftexinfo/reflection.scm�
�	��			


C��h�4]	$45"$"$C4@5$"45$"
45�$4O	5"$C
C,gstr
	�gt	�gt	3	_gt	w�gfilenameftexinfo/reflection.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	+�	��	3�	��	A�	��	M�	��	S�	��	\�	��	c�	��	d�	��	w�	����	��	�gnameg
string->stexi�C�R4�i�5$�i"�R��l��mc�������h�^])$�"�(6�$S��44��4544	55
����55"���454544	55
����64545"��J4
5$�"�(6��$D�44�4�54��5
����55"���454�54��5
����64
5��"��a4>"GCVgmethod
	�gformals	�gspecializers		�gout		�gformal		1	bgspecializer		1	bgbindings�^gout	�^garg	�	gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	"�	��	%�	��	&�	��	)�	��	.�	*��	1�	8��	1�	��	7�	��	:�	��	C�	��	H�	��	K�	!��	S�	��	V�	��	d�	��	h�	��	r�	��	u�	��	}�	����	����	����	����	!����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	
����	����	����	����	����	*����	����	����	����	%����	���	���	���	!���	���	���	��!�	��)�	��,�	��4�	��7�	��<�	%��>�	��A�	��F�	��K�	!��N�	��Q�	��Y�	;��\�	5��^�	��^�	��_�	��f�	��h�	;��p�	��q�		����	��V	�gnamegmethod-stexi-arguments�C�R��m����a����V�@|��u�P}z�~�sQ��M��`3�hh]ML6`gmethod
		gfilenameftexinfo/reflection.scm�
�	��	�	
��		C�J�T(h0--/03H#K#J�$
4J5K"445$45"545$4	5"7"$
"'""�$�&""���""���$u"A45$
J�����C45$Q45$
45"
J4J5�44J5�5��C45$#
J45�����C45$%
J45�����C4 5$5
J!�����4"#O4$55��C
J%����C��$$���$4&���'5$C"���"���"���C%gobject
	/gname	/gforce		/gx		^�gstexi	�/gargs	��gproc	�@gtype	@gargs	apgargs	��gargs	��gargs	��gfilenameftexinfo/reflection.scm�
�
��	 �	=��	.�	��	2�	��	3�	��	;�	��	@�	��	C�	��	O�	��	P�	��	^�	��	^�	��	a�	��	k�	��	l�	%����	����	����	����	����	����	-����	5����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	6���	���	���	���	"��'�	��.�	
��;�	
��=�	��A�	��M�	��O�	��W�	&��^�	��a�	��e�	��g�	��m�	��n�	��q�	��}�	���	����	&����	����	����	����	����	����	����	����	����	����	����		����	����	����	����	����	
����	����	
����	����	����	����	����	����	����	����	���	���	���	���	&��
�	���	���	���	���	���	��c	/gforceS	�gnamegobject-stexi-documentation�C3R�`mch�]456�gsym-name
		gfilenameftexinfo/reflection.scm�
�
��	�	��	�	-��	�	��		gnamegmodule-name->node-name�C�R`m����hn]6fgelt
		
gfilenameftexinfo/reflection.scm�
	��		4��	
	!��		
C��hH}])4545�4�5445?456ugname
		Bgname		Bgreverse-name			Bgleaf			Bgdir-hint-module-name		#	Bgdir-hint		3	Bgfilenameftexinfo/reflection.scm�

��		��		��		��		��		��		��		��	!	(��	#	��	#	��	&	��	)	��	3	��	3	��	8
	��	B
	��		Bgnamegmodule-filename�C�R�����hXW]!45$B45"%45$6�45"���45"���COgname
		Ugfilename			Ugport			Sgout			Cgform			Cgfilenameftexinfo/reflection.scm�

��	
	��		
	��		��		��		��		
��		��	)	��	/	��	4	��	5	$��	C	��	C	
��	D	��	E	#��	S	
��	T	��		Ugnamegread-module�C�R�������hx�]"c(C��$4�&&���$44��55"""$6�"���45"����gsym-name
		vgforms		igform			Rgt		R	igfilenameftexinfo/reflection.scm�

��		��		��	
	��		$��		��			��		��		��		��	#	��	&	��	*		��	.	��	/		��	2	��	9	��	<	��	@		��	R	��	c	��	i	��	i	��	j	��	v	��		vgnamegmodule-export-list�C�R�hn]Cfgname
		gdef		gfilenameftexinfo/reflection.scm�
%	0��			C�����hc]
6[gx
		
gfilenameftexinfo/reflection.scm�
-	��	
-	(��		
C����hS]L6Kgfilenameftexinfo/reflection.scm�
1	��	1	 ��		
C��|��V�������|V�cm3���J��h�l]
4L455$4L455"+4	
>"G45���
&�"�Cdgsym
	�gvar	�gx		k�gfilenameftexinfo/reflection.scm�
9	��	:	
��		5	��	5	��	5	#��	5	��	:	
��	$?	��	(?	��	)@	��	.B	��	3B	0��	:B	��	<@	��	AE	��	EE	��	LE	��	VF	��	[F	(��	dF	��	k;	��	p<	��	r<	"��	v<	��	y=	���>	���:	
��	�	C]hr]L6jga
		gb		gfilenameftexinfo/reflection.scm�
I	��	I	��			Ch�-/03	##$"$4>"G"4455454	54
O5454
54�444O5O5?�5����Cgsym-name
	�g%docs-resolver	�g
docs-resolver		�g
commentary		\�gstexi		e�g	node-name		n�gname-str		|�gmodule	��gexport-list	��	gfilenameftexinfo/reflection.scm�
!
��	($	,��	8)	��	9*	��	=+	��	B*	��	O,	��	R,	��	\,	��	\,	��	_.	��	e,	��	h/	��	n,	��	q0	��	|,	��	2	���,	���3	���,	���K	���N	���K	���P	���7	���8	���7	���P	���K	��	�g
docs-resolverS	�gnamegmodule-stexi-documentation�g
documentationf�Return documentation for the module named @var{sym-name}. The
documentation will be formatted as @code{stexi}
 (@pxref{texinfo,texinfo}).�C1R�|���V��
hX�]	454545$44	
55�"���C�g
scriptpath
		Rg
commentary			Rgfilenameftexinfo/reflection.scm�
R
��	V	��		V	��	
W	��	W	��	W	��	%X	��	.W	��	:Y	��	;[	��	>\	��	H[	��	IZ	��	N]	��	OW	��		Rgnamegscript-stexi-documentation�g
documentationf�Return documentation for given script. The documentation will be
taken from the script's commentary, and will be returned in the
@code{stexi} format (@pxref{texinfo,texinfo}).�C2R4�i�5$�4�i�3�h�]456zgname
		gvalue		gfilenameftexinfo/reflection.scm�
b	��	d	��	c	��			C>"G4�i���1h(�]�$45$456CC�gname
		%gfilenameftexinfo/reflection.scm�
f	��	g		��		g	��	
h		��	g	��	i	��	!i		��		%C>"G"��R��������`��c�hH�]�������44	
55
C�gname
		Fgversion		Fgupdated			Fgyears			Fgcopyright-holder			Fgpermissions			Fgfilenameftexinfo/reflection.scm�
o
��	u	��	 x	��	#x	%��	-x	@��	/x	��	1u	��		F	gnamegpackage-stexi-standard-copying�g
documentationf�Create a standard texinfo @code{copying} section.

@var{years} is a list of years (as integers) in which the modules
being documented were released. All other arguments are strings.�C4R������`����h�]������C�gpair
		gfilenameftexinfo/reflection.scm�
�	��	�	��	�	��		�	��	�	$��	�	��		C
h0�]445	5���C�gname
		/gversion		/gupdated			/gauthors			/gfilenameftexinfo/reflection.scm�
}
��	�	��	�	��	&�	��		/	gnameg package-stexi-standard-titlepage�g
documentationf�Create a standard GNU title page.

@var{authors} is a list of @code{(@var{name} . @var{email})}
pairs. All other arguments are strings.

Here is an example of the usage of this procedure:

@smallexample
 (package-stexi-standard-titlepage
  "Foolib"
  "3.2"
  "26 September 2006"
  '(("Alyssa P Hacker" . "alyssa@@example.com"))
  '(2004 2005 2006)
  "Free Software Foundation, Inc."
  "Standard GPL permissions blurb goes here")
@end smallexample
�C5R|�	l`

�hH�]$6��44	45�	5 545����CC�gentry
		Agnode		>gdescription			>gfilenameftexinfo/reflection.scm�
�	
��	�	��	�	��	�	(��	�	��	�	��	�	��	�	��	!�	��	(�	��	,�	��	0�	��	1�	��	@�	��		ACh8�]44	
5?��C�gname
		1gentries		1gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��	�		��	)�	��	*�	��		1	gnamegpackage-stexi-generic-menu�g
documentationf�Create a menu from a generic alist of entries, the car of which
should be the node name, and the cdr the description. As an exception,
an entry of @code{#f} will produce a separator.�C6R6`��h8�]44554("�56�gname
		6gmodules		6gmodule-descriptions			6g
extra-entries			6gmodule-entries			4gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��	�	��	�	��	�	��	%�	(��	/�	8��	1�	��	6�	��		6	gnamegpackage-stexi-standard-menu�g
documentationfICreate a standard top node and menu, suitable for processing
by makeinfo.�C7R6`���	h�&]444554554445545544("�("�556gname
		~gmodule-pairs		~gscript-pairs			~g
extra-entries			~gmodule-entries		F	|gscript-entries		F	|gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��	�	#��	�	��	�	��	&�	��	'�	��	,�	��	1�	,��	;�	��	<�	��	F�	��	F�	��	K�	��	X�	(��	b�	8��	h�	(��	r�	8��	t�	��	~�	��		~	gnamegpackage-stexi-extended-menu�g
documentationfQCreate an "extended" menu, like the standard menu but with a
section for scripts.�C8R|�
�
h@B]�������4	5���C:gname
		9gfilename		9gcategory			9gdescription			9gcopying			9g	titlepage			9gmenu			9gfilenameftexinfo/reflection.scm�
�
��	�	��		9	gnamegpackage-stexi-standard-prologue�g
documentationfCreate a standard prologue, suitable for later serialization
to texinfo and .info creation with makeinfo.

Returns a list of stexinfo forms suitable for passing to
@code{package-stexi-documentation} as the prologue. @xref{texinfo
reflection package-stexi-documentation}, @ref{texinfo reflection
package-stexi-standard-titlepage,package-stexi-standard-titlepage},
@ref{texinfo reflection
package-stexi-standard-copying,package-stexi-standard-copying},
and @ref{texinfo reflection
package-stexi-standard-menu,package-stexi-standard-menu}.�C9R,g�h �-134�5���C�gtag
			gattrs			gnode				gbody				gfilenameftexinfo/reflection.scm�
�	��	
�	��	�	 ��	�	*��	�	6��	�	 ��	�	��				
	Chn]Cfgtag
		gtext		gfilenameftexinfo/reflection.scm�
�	��			C h_-13CWgargs
			gfilenameftexinfo/reflection.scm�
�	��			


Ch �]���6�gstexi
		gfilenameftexinfo/reflection.scm�
�
��	�	��	�	��		gnamegstexi->chapter�C!R&h0�]
4�5$��$C�"���C�gpred
		,gl		,gt			*gfilenameftexinfo/reflection.scm�
	��		��		��	
	��		��	
	��	
	��	
	��	"
	)��	*
	��		,	gnamegall�C��hc]L6[gx
		
gfilenameftexinfo/reflection.scm�
	
��	
	��		
ChS]LLOL6Kgfilenameftexinfo/reflection.scm�
	��		��		
Ch_-13CWgargs
			gfilenameftexinfo/reflection.scm�
	��			


Ch �]	OQLO6�gl
		gall	
	gfilenameftexinfo/reflection.scm�

	��		��		gnamegverify-modules-list�C'(|�)�!1hn]4L?6fgmod
		gfilenameftexinfo/reflection.scm�
	��		��		��		C!2hq]456igscript
		
gfilenameftexinfo/reflection.scm�
	��		��	
	��		
C
h�@-/03##OQ45$"4>"G4	4	4
O54	4
5555��C8gmodules
	�gname	�gfilename		�gprologue		�gepilogue		�gmodule-stexi-documentation-args		�gscripts		�gverify-modules-list		-�gfilenameftexinfo/reflection.scm�
�
��	�	'��	#�	/��	3	��	=	��	B	��	F	
��	M	��	W	��	s	���	���	���	��	�	
gmodule-stexi-documentation-argsS	�gscriptsS	�gnamegpackage-stexi-documentation�g
documentationf8Create stexi documentation for a @dfn{package}, where a
package is a set of modules that is released together.

@var{modules} is expected to be a list of module names, where a
module name is a list of symbols. The stexi that is returned will
be titled @var{name} and a texinfo filename of @var{filename}.

@var{prologue} and @var{epilogue} are lists of stexi forms that
will be spliced into the output document before and after the
generated modules documentation, respectively.
@xref{texinfo reflection package-stexi-standard-prologue}, to
create a conventional GNU texinfo prologue.

@var{module-stexi-documentation-args} is an optional argument that, if
given, will be added to the argument list when
@code{module-texi-documentation} is called. For example, it might be
useful to define a @code{#:docs-resolver} argument.�C:R+�	�

�	h8�]
4544	45�	5 545����C�gmodname
		7gdesc		7gnode				7gfilenameftexinfo/reflection.scm�
<	��	=	!��		=	��	
7	��	8	��	8	��	8	��	!8	��	%8	��	)8	��	*7	��		7	C!1hr]4L?6jgmodname
		gfilenameftexinfo/reflection.scm�
A	��	C	��	B	��		Ch@_-/03#45�4O5��CWgmodules
		=gmodule-descriptions		=gmodule-stexi-documentation-args			=gfilenameftexinfo/reflection.scm�
#
��	%	S��	:	��	!<	��	,:	��	-A	��	;:	��		=	
gmodule-stexi-documentation-argsS	�gnameg'package-stexi-documentation-for-include�g
documentationfCreate stexi documentation for a @dfn{package}, where a
package is a set of modules that is released together.

@var{modules} is expected to be a list of module names, where a
module name is a list of symbols. Returns an stexinfo fragment.

Unlike @code{package-stexi-documentation}, this function simply produces
a menu and the module documentations instead of producing a full texinfo
document. This can be useful if you write part of your manual by hand,
and just use @code{@@include} to pull in the automatically generated
parts.

@var{module-stexi-documentation-args} is an optional argument that, if
given, will be added to the argument list when
@code{module-texi-documentation} is called. For example, it might be
useful to define a @code{#:docs-resolver} argument.�C;RC�gm
		,gfilenameftexinfo/reflection.scm�		
��	.	6	��	1	5
��	:
���	O
��
7	W
��,	\
��!	|
��F�
��G�	��M�	!��O�	��R�
��S�	��Y�	$��[�	��^�
��/�
��0�	��6�	��8�	��<�	��H�
��a�
��#��
��$y�
��&�
��(�
��*�
��3;!
��5�R
��5�`	��5�`	��5�`	��5�_
��5�a	��6pe	��7am
��9�o
��=�}
��@��
��B��
��E��
��Im�
��L>�
��V��
��]B#
��0	]D
C6texinfo/html.go000064400000037056150536206120007526 0ustar00GOOF----LE-8-2.0>]^4hp]gguile�	�	gdefine-module*�	�	�	gtexinfo�	ghtml�	�		gfilenameS�	
ftexinfo/html.scm�	gimportsS�	�	
�	gsxml�	g	transform�	�	�	gice-9�	gmatch�	�	�	gsrfi�	gsrfi-13�	�	�	
�	gexportsS�	gstexi->shtml�	gadd-ref-resolver!�	gurlify�	�	 gset-current-module�	! �	" �	#gand=>�	$gassq�	%garg-ref�	&gerror�	'fMissing argument:�	(garg-req�	)gcar*�	*gstring-downcase�	+g
string-map�	,g
string-append�	-f�	.f#�	/g
ref-resolvers�	0gor-map�	1fCould not resolve reference�	2gresolve-ref�	3gnode�	4gsection�	5gmanual�	6gspan�	7gxref�	8fSee �	978�	:gpxref�	;fsee �	<:;�	=9<�	>gcdr�	?ga�	@g@�	Aghref�	Bgref�	Cgurl�	Dgtitle�	Eguref�	Fgname�	G-�	Hgdefun�	IfFunction�	Jgdefspec�	KfSpecial Form�	Lgdefvar�	MfVariable�	Ngcategory�	Ogdiv�	Pgtable�	Qgcellpadding�	Rf0�	SQR�	Tgcellspacing�	UTR�	Vgwidth�	Wf100%�	XVW�	Ygclass�	Zfdef�	[YZ�	\@SUX[�	]gtr�	^gtd�	_g	data-type�	`gcode�	agb�	bg	deftypeop�	cg	deftypefn�	dg
deftypefun�	eg	arguments�	fgvar�	ggreverse!�	hf �	ifright�	jYi�	k@j�	lf[�	mf]�	nm�	ofdescription�	pYo�	q@p�	rgdef�	sgol�	tg%�	ugstart�	vg
string-ref�	wgnumber?�	xgstring->number�	yg
char->integer�	zgchar-upper-case?�	{g	enumerate�	|gul�	}gitemize�	~gacronym�	&��&��fno matching pattern��g	formatter��gdl��gmap��gdt��gappend��gdd��gitemx��gheading��gentry��g	titlepage��f	titlepage��Y���@����O���gh2��ftitle��Y���@���D����gsubtitle��gh3��fsubtitle��Y���@��������gauthor��fauthor��Y���@��������gexample��gpre������glisp������gsmallexample��fsmaller��Y���@��������g	smalllisp�������g	cartouche��f	cartouche��Y���@����O���gverbatim��fverbatim��Y���@��������gchapter������4���g
subsection��gh4������g
subsubsection��gh5������gappendix������gappendixsec������gappendixsubsec������gappendixsubsubsec������g
unnumbered������g
unnumberedsec������gunnumberedsubsec������gunnumberedsubsubsec������gmajorheading������gchapheading����������g
subheading������g
subsubheading������g	quotation��g
blockquote������gitem��gli������gpara��gp������g
*fragment*���O��gasis���6��gbold���a��gsample��gsamp����������``��gkbd������gkey��fkey��Y���@����`���ff��genv��fenv��Y���@����`���gfile��ffile��Y���@����`���gcommand��fcommand�Y��@��`�goption�foption�Y�@�`�furl�	Y�
@	�C`
�gdfn�
�gcite��gacro�~�gemail�femail�Y�@�`�gemph�gem��gstrong��gsc�f
small-caps�Y�@� 6�!�����������������������������������������
 3�"gtag-replacements�#gpage�$gsetfilename�%gsetchapternewpage�&giftex�'gifinfo�(gifplaintext�)gifxml�*gsp�+gvskip�,gmenu�-gignore�.gsyncodeindex�/gcomment�0gc�1gdircategory�2gdirentry�3gtop�4g
shortcontents�5gcindex�6g
printindex�7#$%&'()*+,-./0123456�8gignore-list�9g
*preorder*�:gpre-post-order�;gxmlns�<fhttp://www.w3.org/1999/xhtml�=;<�>@=�?ghead�@gbody�Ag*text*�Bg	*default*�Cg	copyright�Dg*ENTITY*�Efcopy�FDE�Ggresult�HfrArr�IDH�Jganchor�Kgdeftp�Lgdefcv�Mgdefivar�Ngdeftypeivar�Ogdefop�Pg	defmethod�Qg
deftypemethod�Rgdefopt�Sgdefvr�Tg	deftypevr�Ug
deftypevar�Vgdeffn�Wgdefmac�Xgifnottex�Ygmemq�Zgwarn�[fDon't know how to convert�\fto HTML�]grules�C5h�&$]4	
54">"G#$hc]�6[gx
			gfilenameftexinfo/html.scm�
	/	!��		/	;��			/	-��			Ch�]4�56�gkey
		g%-args		gfilenameftexinfo/html.scm�
	.
��		/		��		/	��		/		��		/	��			gnamegarg-ref�C%R%&'h �]
45$C6�gkey
		 g%-args		 gt			 gfilenameftexinfo/html.scm�
	0
��		1	��		1	��		2	
��	 	2	��		 	gnamegarg-req�C(Rhs]$�CCkgx
		gfilenameftexinfo/html.scm�
	3
��		3	��		3	��		gnamegcar*�C)R*+h0[] �$"/�$":�$-CCSgc
		-gfilenameftexinfo/html.scm�
	8	��		9	��		-Chw]456ogstr
		gfilenameftexinfo/html.scm�
	5
��		7	��		6	��		gnamegurlify�CR,-.h �]4$"56�g	node-name
		gmanual-name		gfilenameftexinfo/html.scm�
	@	��		A	
��	
	A	��		A	,��		A	0��		A	
��		A	��			C/R/h�]� C�gproc
		gfilenameftexinfo/html.scm�
	C
��		K	��			K	��		gnamegadd-ref-resolver!�g
documentationfXAdd @var{proc} to the head of the list of ref-resolvers. @var{proc}
will be expected to take the name of a node and the name of a manual and
return the URL of the referent, or @code{#f} to pass control to the next
ref-resolver in the list.

The default ref-resolver will return the concatenation of the manual
name, @code{#}, and the node name.�CR0h[]LL6Sgx
		
gfilenameftexinfo/html.scm�
	N	��	
	N	��		
C/&1h(�]
4O5$C6�gnode
		'gmanual		'gt			'gfilenameftexinfo/html.scm�
	M
��		N	��		N	��	!	O	
��	'	O	��		'	gnamegresolve-ref�C2R(3)%4526#$=>?@Ahx�]"45�4455$"4455454	4
55
C�gtag
		ugargs		ugnode			ugt			/gsection		/	ugmanual		?	ugtarget		J	ugfilenameftexinfo/html.scm�
	Q
��		R	��		R	��		R	��		R	��		R	��		S	��		S	��		S	%��		S	��		S	��		S	��	/	R	��	2	T	��	5	T	��	9	T	 ��	=	T	��	?	T	��	?	R	��	B	U	��	J	R	��	N	V	��	O	V	��	R	V	��	X	V	��	Z	V	��	^	V	��	`	V	��		u	gnamegref�CBR(C?@A)%D	hH�]45�4455$"C�gtag
		Agargs		Agurl			Agt		*	=gfilenameftexinfo/html.scm�
	Y
��		Z	��		Z	��		Z	��		Z	
��		Z	��		[	��		[	��	 	[	#��	$	[	,��	(	[	#��	*	[	��	*	[	��	@	[	��		A	gnameguref�CER?@F(Gh(�]445�5��C�gtag
		"gargs		"gfilenameftexinfo/html.scm�
	_
��		`	��			`	��		`	��		`	&��		`	��		`	��		`	��		`	��
		"	gnamegnode�C3RHIJKLM(NOP\]^%_`YaFbcdefghklnqh�6-13�$"(�$"�$"
45�	

45$	�"45$	�"$	�"45$	�"$	�"&"&"�$"45$	�""645$	�"$	�""E(45"?�(
�"�����("��"���"����
	����	��C.gtag
		�gargs		�gbody			�gcategory		@�gx		U	jgx		s�gx	��gx	��gx	��gx	gx	$9gx	<Qgelts	T�gin	Z�gout	Z�gfilenameftexinfo/html.scm�
	b
��		u	��		v	��	!	u	��	#	w	 ��	0	u	��	2	x	��	7	y	 ��	;	y	)��	?	y	 ��	@	y	��	@	u	��	D	z	��	M	n	��	Q	n	 ��	U	n	��	U	n	��	]	c	��	_	c	 ��	b	c	��	k	o	 ��	o	o	)��	s	o	 ��	s	o	��	{	c	��	}	c	 ���	c	���	o	���	o	���	e	���	e	���	e	���	p	 ���	p	)���	p	 ���	p	���	c	���	c	 ���	c	���	p	���	p	���	e	���	e	���	e	���	q	���	q	���	r	���	r	$��	r	��	r	��
	c	��	c	 ��	c	��	s	&�� 	s	/��$	s	&��$	s	 ��,	c	��.	c	 ��1	c	��<	s	��<	s	��D	d	��F	d	��I	d	��T	n	��Z	g	��`	h	��a	h	��n	i	��r	h	��u	i	"��	i	���	j	���	k	���	l	���	l	6���	l	0���	k	���	j	���	g	���	g	���	g	���	z	��U		�	
	gnamegdef�CrRst@u(vwxyzh��-13�$���$s��&c4�54
545$45"!4	54	4
5$A"a5�����"""�C�gtag
		�gelts		�gstart		2	{gc		<	xgfilenameftexinfo/html.scm�
�
��	�	��	�	��	�		��	�	&��	�	��	�	
��	�	7��	 �	C��	$�	
��	&�	��	)�	*��	-�	3��	0�	:��	2�	*��	2�	 ��	5�	
��	<�	��	?�	
��	I�	��	J�	��	U�	��	\�	��	_�	,��	i�	(��	s�	��	t�	��	u�	��	|�	����	����	
����	��!		�
gnameg	enumerate�C{R|thX�-13�$=���$ ��&"""�C�gtag
			Sgelts			Sgw			Kgx			Kgw		&	?gfilenameftexinfo/html.scm�
�
��	�	��	�		��	R�	��			S
gnamegitemize�C}Rt~��h�	-13	�$��(���$���&��$q���$T��&5�$!�(
�C456456456456456456456456456gtag
		�gelts		�gw		�gw		)�gx		)�gw		?�gw		R�gx		R�gw		o	y	gfilenameftexinfo/html.scm�
�
��	�	��	s�	 ��	z�	��		�
gnamegacronym�C~R(����h(�]�$�&
�L��CCC�gx
		%gfilenameftexinfo/html.scm�
�	��	�	��		�	��	�	,��	�	4��	�	��	�	��	�	6��	�	&��	�	��		%C�h0�-1345��4O4?5�C�gtag
			-gargs			-gbody				-g	formatter			-gfilenameftexinfo/html.scm�
�
��	
�	��	�	"��	�	��	�	��	�	��	�	
��	�	
��	#�	��	+�	
��	,�	��			-	
	gnamegtable�CPR�����(�	h��-13"^"45�6�$:��$.��& 44��5�5�"���"���"���"���45�"����gtag
		�gargs		�gbody			�gout		
	kgbody		
	kgfilenameftexinfo/html.scm�
�
��	
�	��	�	��	�	��	!�	��	&�	��	&�	��	)�	
��	-�	��	0�	!��	1�	��	5�	��	8�	2��	;�	>��	?�	��	@�	��	F�	��	G�	��	N�	1��	Q�	��	R�	��	T�	��	W�	��	_�	��	k�	��	m�	��	n�	��	r�	!��	v�	��	w�	����	�� 		�	
	gnamegentry�C�R!"R78Rt9hY-13CQgargs
			gfilenameftexinfo/html.scm�
�	��			


C��:>?D(@t9hY-13CQgargs
			gfilenameftexinfo/html.scm�
�	(��			


CAhe]C]gtag
		gx		gfilenameftexinfo/html.scm�
�	(��			CBhr-13�Cjgtag
			gbody			gfilenameftexinfo/html.scm�
�	(��	�	*��			
ChH�-1345��	
���
�6�gtag
			Bgargs			Bgbody				Bgfilenameftexinfo/html.scm�
�	��	
�	��	�	*��	�	3��	�	*��	�	%��	 �	��	-�	��	B�	��
			B	
	C�CFhb-13CZgargs
			gfilenameftexinfo/html.scm�
�	��	�	��			


C�GIhb-13CZgargs
			gfilenameftexinfo/html.scm�
�	��	�	��			


C�7Bi�BBi�:Bi�EEi�33i�J3i�PPi�{{i�}}i�~~i��9�i��Kri�Lri�Mri�Nri�Ori�bri�Pri�Qri�Rri�Sri�Lri�Tri�Uri�Vri�cri�Wri�Jri�Hri�dri�Xhi-13Cagtag
			gbody			gfilenameftexinfo/html.scm�
	��			
C�Ahe]C]gtag
		gx		gfilenameftexinfo/html.scm�
	��			C�B$"�Y8Z[\	hP�-1345$	�645$C4>"GC�gtag
			Kgbody			Kgsubst			Kgfilenameftexinfo/html.scm�
	��	
	!��		��		��		&��	#	��	$	��	0	��	3
	��	7
	��	;
	>��	@
	��
			K
C�%]R:]h]6gtree
		
gfilenameftexinfo/html.scm�

��	
	��		
gnamegstexi->shtml�g
documentationf~Transform the stexi @var{tree} into shtml, resolving references via
ref-resolvers. See the module commentary for more details.�CRCgm
		,gfilenameftexinfo/html.scm�		&
��w	.
��^	0
���	3
��"	5
���	?	��	>
��	C
���	M
��
�	Q
��J	Y
��
J	_
���	b
��(�
��_�
��t�
����
���
���	���
���	���
���	��%��
��&�
��	&�
C6ice-9/weak-vector.go000064400000001541150536206120010231 0ustar00GOOF----LE-8-2.0I]4hx]gguile�	�	gdefine-module*�	�	�	gice-9�	gweak-vector�	�		gfilenameS�	
fice-9/weak-vector.scm�	gexportsS�	gmake-weak-vector�	
glist->weak-vector�	gweak-vector?�	gweak-vector-length�	gweak-vector-ref�	gweak-vector-set!�	gmake-weak-key-alist-vector�	gmake-weak-value-alist-vector�	gmake-doubly-weak-alist-vector�	gweak-key-alist-vector?�	gweak-value-alist-vector?�	gdoubly-weak-alist-vector?�	

�	gset-current-module�	�	�	g%init-weaks-builtins�C5h0_]4	
54>"Gi6Wgm
		(gfilenamefice-9/weak-vector.scm�		
��	.	
��		.
C6ice-9/psyntax-pp.go000064400000576507150536206120010150 0ustar00GOOF----LE-8-2.0/�]�4hZw]gprimitive-eval�	gcurrent-module�	gwarn�	f0module system is booted, we should have a module�	gmodule-variable�	gresolve-module�	gmacro?�	g
macro-type�		g
macro-binding�	
g%expanded-vtables�	gassq�	gname�	
gpublic�	gprivate�	gmodule-name�	gbare�	ghygiene�	gsyntax-violation�	fbad module kind�	gfor-each�	glexical�	gmacro�	gellipsis�	gmodule-define!�	gmake-syntax-transformer�	g
vector-length�	g
syntax-object�	gsymbol->string�	g
module-gensym�	fl�	glist->vector�	 gmake-vector�	!gappend�	"gribcage�	#gshift�	$glist-ref�	%gid-var-name�	&f
invalid id�	'gsupports-source-properties?�	(gset-source-properties!�	)gsource-properties�	*g
begin-form�	+g$sc-dispatch�	,g_�	-,�	.gapply�	/gany�	0geach-any�	1/0��	2,1��	3f-source expression failed to match any pattern�	4glocal-syntax-form�	5geval-when-form�	601��	7,6��	8ge�	9gmemq�	:geval�	;gexpand�	<gc&e�	=:�	>gload�	?gcompile�	@?>�	Agc�	B>�	Cgdefine-syntax-form�	Dgdefine-syntax-parameter-form�	Egguile�	FE�	Ggdefine-form�	Hgglobal�	IH�	Jgdisplaced-lexical�	KJ�	Lgcore�	Mg
module-ref�	Ngmodule-local-variable�	Ogmodule-add!�	Pgmake-undefined-variable�	Qg	variable?�	Rfidentifier out of context�	Sf"cannot define keyword at top level�	Tg
procedure?�	U�	Vg	eval-when�	Wfinvalid situation�	Xglexical-call�	Ygglobal-call�	Zg	core-form�	[glocal-syntax�	\gbegin�	]gdefine�	^,//�	_//��	`_1��	a,`��	b,/�	cgif�	dgtop�	ed�	f�	ge�	hfl-bde397a-100e�	ih�	j"fgi�	k"�	lgkey�	ml�	ng
m-bde397a-fde�	ond�	po�	qf
l-bde397a-fdf�	rq�	s"mpr�	tgftype�	ugfval�	vgfform�	wgfe�	xgfw�	ygfs�	zgfmod�	{tuvwxyz�	|eeeeeee�	}f
l-bde397a-fd7�	~f
l-bde397a-fd8�	f
l-bde397a-fd9��f
l-bde397a-fda��f
l-bde397a-fdb��f
l-bde397a-fdc��f
l-bde397a-fdd��}~������"{|���gfirst�����f
l-bde397a-fce�����"�g���gr��gw��gs��grib��gmod��gfor-car?��8��������f
l-bde397a-fb6��f
l-bde397a-fb7��f
l-bde397a-fb8��f
l-bde397a-fb9��f
l-bde397a-fba��f
l-bde397a-fbb��f
l-bde397a-fbc�����������"�|���glambda-var-list��ggen-var��gstrip��gexpand-lambda-case��glambda*-formals��gexpand-simple-lambda��glambda-formals��g	ellipsis?��gexpand-void��geval-local-transformer��gexpand-local-syntax��gexpand-body��gexpand-macro��gexpand-application��gexpand-expr��gsyntax-type��gparse-when-list��gexpand-install-global��gexpand-top-sequence��gexpand-sequence��gsource-wrap��gwrap��gbound-id-member?��gdistinct-bound-ids?��gvalid-bound-ids?��g
bound-id=?��g	free-id=?��gwith-transformer-environment��gtransformer-environment��gresolve-identifier��glocally-bound-identifiers��gsame-marks?��g
join-marks��g
join-wraps��gsmart-append��gmake-binding-wrap��gextend-ribcage!��gmake-empty-ribcage��gnew-mark��g	anti-mark��g
the-anti-mark��gtop-marked?��gtop-wrap��g
empty-wrap��gset-ribcage-labels!��gset-ribcage-marks!��gset-ribcage-symnames!��gribcage-labels��g
ribcage-marks��gribcage-symnames��gribcage?��gmake-ribcage��g
gen-labels��g	gen-label��g
wrap-subst��g
wrap-marks��g	make-wrap��gid-sym-name&marks��gid-sym-name��gid?��g
nonsymbol-id?��g
global-extend��glookup��gmacros-only-env��gextend-var-env��g
extend-env��gnull-env��g
binding-value��gbinding-type��gmake-binding��g	arg-check��gsource-annotation��g	no-source��gset-syntax-object-module!��gset-syntax-object-wrap!��gset-syntax-object-expression!��gsyntax-object-module��gsyntax-object-wrap��gsyntax-object-expression��gsyntax-object?��gmake-syntax-object��gbuild-lexical-var��gbuild-letrec��gbuild-named-let��g	build-let��gbuild-sequence��g
build-data��g
build-primref��gbuild-lambda-case��gbuild-case-lambda��gbuild-simple-lambda��gbuild-global-definition��gbuild-global-assignment��gbuild-global-reference��ganalyze-variable��gbuild-lexical-assignment��gbuild-lexical-reference��gbuild-dynlet��gbuild-conditional��gbuild-application��g
build-void�gmaybe-name-value!�gdecorate-source�gget-global-definition-hook�gput-global-definition-hook�g
session-id�glocal-eval-hook�gtop-level-eval-hook�gfx<�gfx=�	gfx-�
gfx+�gset-lambda-meta!�glambda-meta�
glambda?�gmake-dynlet�gmake-letrec�gmake-let�gmake-lambda-case�gmake-lambda�g
make-sequence�gmake-application�gmake-conditional�gmake-toplevel-define�gmake-toplevel-set�gmake-toplevel-ref�gmake-module-set�gmake-module-ref�gmake-lexical-set�gmake-lexical-ref�gmake-primitive-ref�g
make-const�g	make-void� ���������������;����������������%����������������������������������������������������������������������	

��!eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee��"f
l-bde397a-b9e�#f
l-bde397a-b9c�$f
l-bde397a-b9a�%f
l-bde397a-b98�&f
l-bde397a-b96�'f
l-bde397a-b94�(f
l-bde397a-b92�)f
l-bde397a-b90�*f
l-bde397a-b8e�+f
l-bde397a-b8c�,f
l-bde397a-b8a�-f
l-bde397a-b88�.f
l-bde397a-b86�/f
l-bde397a-b84�0f
l-bde397a-b82�1f
l-bde397a-b80�2f
l-bde397a-b7e�3f
l-bde397a-b7c�4f
l-bde397a-b7a�5f
l-bde397a-b78�6f
l-bde397a-b76�7f
l-bde397a-b74�8f
l-bde397a-b72�9f
l-bde397a-b70�:f
l-bde397a-b6e�;f
l-bde397a-b6c�<f
l-bde397a-b6a�=f
l-bde397a-b68�>f
l-bde397a-b66�?f
l-bde397a-b64�@f
l-bde397a-b62�Af
l-bde397a-b60�Bf
l-bde397a-b5e�Cf
l-bde397a-b5c�Df
l-bde397a-b5a�Ef
l-bde397a-b58�Ff
l-bde397a-b56�Gf
l-bde397a-b54�Hf
l-bde397a-b52�If
l-bde397a-b4a�Jf
l-bde397a-b41�Kf
l-bde397a-b3e�Lf
l-bde397a-b30�Mf
l-bde397a-b26�Nf
l-bde397a-b17�Of
l-bde397a-b09�Pf
l-bde397a-b07�Qf
l-bde397a-b05�Rf
l-bde397a-b03�Sf
l-bde397a-b01�Tf
l-bde397a-aff�Uf
l-bde397a-afd�Vf
l-bde397a-afb�Wf
l-bde397a-af9�Xf
l-bde397a-af6�Yf
l-bde397a-af4�Zf
l-bde397a-ae6�[f
l-bde397a-ad8�\f
l-bde397a-aca�]f
l-bde397a-ac8�^f
l-bde397a-abe�_f
l-bde397a-abb�`f
l-bde397a-ab9�af
l-bde397a-ab7�bf
l-bde397a-ab5�cf
l-bde397a-ab3�df
l-bde397a-ab1�ef
l-bde397a-aaf�ff
l-bde397a-aa1�gf
l-bde397a-a97�hf
l-bde397a-a8c�if
l-bde397a-a75�jf
l-bde397a-a67�kf
l-bde397a-a64�lf
l-bde397a-a56�mf
l-bde397a-a54�nf
l-bde397a-a52�of
l-bde397a-a50�pf
l-bde397a-a4e�qf
l-bde397a-a4c�rf
l-bde397a-a4a�sf
l-bde397a-a48�tf
l-bde397a-a46�uf
l-bde397a-a39�vf
l-bde397a-a36�wf
l-bde397a-a34�xf
l-bde397a-a32�yf
l-bde397a-a30�zf
l-bde397a-a2e�{f
l-bde397a-a2c�|f
l-bde397a-a2a�}f
l-bde397a-a28�~f
l-bde397a-a26�f
l-bde397a-a24��f
l-bde397a-a22��f
l-bde397a-a20��f
l-bde397a-a1e��f
l-bde397a-a1c��f
l-bde397a-a1a��f
l-bde397a-a18��f
l-bde397a-a16��f
l-bde397a-a14��f
l-bde397a-a12��f
l-bde397a-a10��f
l-bde397a-a0e��f
l-bde397a-a0c��f
l-bde397a-a0a��f
l-bde397a-a08��f
l-bde397a-a06��f
l-bde397a-a04��f
l-bde397a-9f6��f
l-bde397a-9e8��f
l-bde397a-9da��f
l-bde397a-9cc��f
l-bde397a-9ca��f
l-bde397a-9c8��f
l-bde397a-9c6��f
l-bde397a-9c3��f
l-bde397a-9c1��f
l-bde397a-9bf��f
l-bde397a-9bd��f
l-bde397a-9bb��f
l-bde397a-9b9��f
l-bde397a-9b7��f
l-bde397a-9b5��f
l-bde397a-9b3��f
l-bde397a-9b1��f
l-bde397a-9af��f
l-bde397a-9ad��f
l-bde397a-9ab��f
l-bde397a-9a9��f
l-bde397a-9a7��f
l-bde397a-9a5��f
l-bde397a-9a3��f
l-bde397a-9a1��"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~��������������������������������������������" !���gdefine-structure��gdefine-expansion-accessors��gdefine-expansion-constructors�������eee��f
l-bde397a-967��f
l-bde397a-92f��f
l-bde397a-8fd�������"�����ejkskk�k�kk�����E��c�������������glambda��gargs��ge1��ge2�������eeee��fl-bde397a-1001��fl-bde397a-1002��fl-bde397a-1003��fl-bde397a-1004��������"�����e�kskk�k�kk����������g
define-syntax��gdefine-syntax-parameter��gcall��gself-evaluating?��gconstant��gother��g
syntax->datum��ginclude-deprecated-features��gissue-deprecation-warning��fASequences of zero expressions are deprecated.  Use *unspecified*.��fsequence of zero expressions��fDdefinition in expression context, where definitions are not allowed,��gsyntax��f1reference to pattern variable outside syntax form��f)reference to identifier outside its scope��funexpected syntax��gmap��f&encountered raw symbol in macro output��fm��fplaceholder��gplaceholder������fno expressions in body��fnonprocedure transformer��,0���f-invalid or duplicate identifier in definition��greverse��geach��//�������1���,挤�fduplicate bound keyword��fbad local syntax definition��g $sc-ellipsis ��g...��gb�����fl-bde397a-116a�����"�g���gn�����fl-bde397a-1167�����"�g���gid�����fl-bde397a-1165�����"�g���8����eee��fl-bde397a-115f��fl-bde397a-1160��fl-bde397a-1161�����"���ekk�k�k�kk��
����finvalid argument list�f%duplicate identifier in argument list�glambda*�grestS�gkeyS�	goptionalS�
�/��finvalid optional argument list�ga�
��ee�fl-bde397a-11f4�fl-bde397a-11f5��"
�greq�gropt���fl-bde397a-11ea�fl-bde397a-11eb�fl-bde397a-11ec��"��gcheck�grest�gopt�l�eeeee� fl-bde397a-11b4�!fl-bde397a-11b2�"fl-bde397a-11b0�#fl-bde397a-11ae�$fl-bde397a-11ac�% !"#$�&"%�'g	orig-args�('�)fl-bde397a-11ab�*)�+"(g*�,ek&+���-,��.-�////�0//��1/�2finvalid keyword argument list�3gallow-other-keysS�4gkeyword?�5gsymbol->keyword�6gk�76�8fl-bde397a-1233�98�:"7g9�;fl-bde397a-122d�<fl-bde397a-122e�=;<�>"
=�?grkey�@�?�Afl-bde397a-1222�Bfl-bde397a-1223�Cfl-bde397a-1224�Dfl-bde397a-1225�EABCD�F"@�E�Gek:>kF&+��
�HG��IH�Jfinvalid rest argument�Kgcar�Lgcadr�M/1��Ngvector�O�_�PNO�QP1��Rgcons�Sgstring?�Tg
documentation�U�M�VMU��Wgvector->list�Xgsyntax-session-id�Yg
make-fluid�Zgerror�[f9called outside the dynamic extent of a syntax transformer�\g
letrec-syntax�]g
let-syntax�^gsyntax-parameterize�_f
bad syntax�`gquote�agref�bfmisplaced ellipsis�c/_��dglist�eN1�f`�gfextra ellipsis�hg	primitive�ih!�jfmissing ellipsis�kgtmp�lgcdr�mgand-map�nfhow did we get here�ofbad `syntax' form�p,M��qf
bad lambda�rfbad lambda*�sgcase-lambda�t,U��u/U��v,u��wfbad case-lambda�xgcase-lambda*�yfbad case-lambda*�zg
with-ellipsis�{glet�|fduplicate bound variable�}/挤~,}��fbad let��gletrec��f
bad letrec��gletrec*��fbad letrec*��gset!��,1/��gsetter��gm-bde397a-16ac���d�����fl-bde397a-16ad�����"m����gtype��gvalue��gformform��gee��gww��gss��gmodmod�����������fl-bde397a-16a5��fl-bde397a-16a6��fl-bde397a-16a7��fl-bde397a-16a8��fl-bde397a-16a9��fl-bde397a-16aa��fl-bde397a-16ab�����������"�|���ghead��gtail��gval�������fl-bde397a-1696��fl-bde397a-1697��fl-bde397a-1698�������"�����8������eeeee��fl-bde397a-1677��fl-bde397a-1678��fl-bde397a-1679��fl-bde397a-167a��fl-bde397a-167b���������"�����ek�kk��k����������fbad set!��gprocedure-property��gvariable-transformer��fnot a variable transformer��g@��,0/��e������fl-bde397a-16d4��fl-bde397a-16d5������"����8����fl-bde397a-16c8��fl-bde397a-16c9��fl-bde397a-16ca�������"�����e�k�����
����g@@��gfree-id��g
remodulate�����fl-bde397a-16e0�����"�����fl-bde397a-16dd��fl-bde397a-16de��fl-bde397a-16df�������"�����e���������������,�0/��gexp������fl-bde397a-1709��fl-bde397a-170a������"����e�����������fl-bde397a-16fd��fl-bde397a-16fe������"����e�����������,///��gwith-fluids��gsyntax-case��gp��gids�������fl-bde397a-1776��fl-bde397a-1777��fl-bde397a-1778�������"�����gcvt��g	v-reverse��gcvt*�������fl-bde397a-1755��fl-bde397a-1753��fl-bde397a-1751�������"�����gpattern��gkeys�������fl-bde397a-174e��fl-bde397a-174f��fl-bde397a-1750�������"����ggen-syntax-case�g
gen-clause�gbuild-dispatch-call�gconvert-pattern��eeee�fl-bde397a-1749�fl-bde397a-1747�fl-bde397a-1745�	fl-bde397a-1743�
	�"
�ek������
,��N0�gatom�geach+��fduplicate pattern variable�gpat���fl-bde397a-1812�fl-bde397a-1813��"�gx�gclauses�����fl-bde397a-1807�fl-bde397a-1808�fl-bde397a-1809�fl-bde397a-180a� fl-bde397a-180b�! �""�!�#ek"���$�#��%,#��&finvalid clause�'00��(/'��),(��*finvalid literals list�+gmacroexpand�,gidentifier?�-g
datum->syntax�.g
syntax-source�/ggenerate-temporaries�0finvalid argument�1ft�2gfree-identifier=?�3gbound-identifier=?�4gthrow�5gsyntax-error�6gsyntax-local-binding�7gassq-ref�8funexpected id-var-name�9gpattern-variable�:g syntax-locally-bound-identifiers�;gdefine!�<g
syntax-module�=gwith-syntax�>1��?,>��@���Afl-bde397a-196a�Bfl-bde397a-196b�CAB�D"@C�E�Ffl-bde397a-1967�GF�H"EgG�IeDkH�J{I��K��LK1��M,L��Ngout�Ogin�PNO���Qfl-bde397a-1970�Rfl-bde397a-1971�Sfl-bde397a-1972�Tfl-bde397a-1973�UQRST�V"P�U�WeVkH�X�W��Y{W��Zfl-bde397a-197a�[fl-bde397a-197b�\fl-bde397a-197c�]fl-bde397a-197d�^Z[\]�_"P�^�`e_kH�a�`��bd`��c{`��dgmessage�egarg�fde�gfl-bde397a-19a3�hfl-bde397a-19a4�igh�j"fi�kfl-bde397a-1986�lk�m"Egl�nejkm�o5n��pn��qp�rgstring-join�sgobject->string�tgsyntax-rules�ugclause�vu�wfl-bde397a-19af�xw�y"vgx�zgexpand-syntax-rules�{g
expand-clause�|z{�}ee�~fl-bde397a-19ac�fl-bde397a-19aa��~��"|}���gxx�����fl-bde397a-19a9�����"�g���eky����5���������1���_���_/��gdummy��gkeyword��gtemplate�������fl-bde397a-19c4��fl-bde397a-19c5��fl-bde397a-19c6�������"�����e�ky����������������de��fl-bde397a-19ba��fl-bde397a-19bb��fl-bde397a-19bc��fl-bde397a-19bd��������"�����e�ky��������������5��������00�0��g	docstring��6����u��eeeeee��fl-bde397a-19d5��fl-bde397a-19d6��fl-bde397a-19d7��fl-bde397a-19d8��fl-bde397a-19d9��fl-bde397a-19da����������"�����gdots��g
docstrings�������fl-bde397a-19ce��fl-bde397a-19cf��fl-bde397a-19d0��fl-bde397a-19d1��������"�����ekk�kk���	������������������t���������gpatterns���������������fl-bde397a-19e7�����"�g���gform�����fl-bde397a-19e3�����"�g���ek�k�kk�kk���
��z����0����,ό��/����0ь��,Ҍ��/ό��,Ԍ��/Ҍ��,֌��gdefine-syntax-rule��,_/������fl-bde397a-1a50��fl-bde397a-1a51��fl-bde397a-1a52�������"�����fl-bde397a-1a4d�����"Eg���e�k��������t����,����,_//�������fl-bde397a-1a5f��fl-bde397a-1a60��fl-bde397a-1a61��fl-bde397a-1a62��������"�����e�k��������t����,����glet*��gf��gbindings������fl-bde397a-1a80��fl-bde397a-1a81������"����gv��������fl-bde397a-1a76��fl-bde397a-1a77��fl-bde397a-1a78�fl-bde397a-1a79�fl-bde397a-1a7a�����"���fl-bde397a-1a68��"Eg�ek�k�{��	gbody�
gbinding�	
�fl-bde397a-1a8a�
fl-bde397a-1a8b�
�"�ekk�k�{��g
quasiquote�gunquote�glev���fl-bde397a-1a9e�fl-bde397a-1a9f��"�gemit�gquasivector�g
quasilist*�gquasiappend�g	quasicons�gvquasi� gquasi�! �"eeeeeee�#fl-bde397a-1a9a�$fl-bde397a-1a98�%fl-bde397a-1a96�&fl-bde397a-1a94�'fl-bde397a-1a92�(fl-bde397a-1a90�)fl-bde397a-1a8e�*#$%&'()�+"!"*�,ek+�-,��.�-�/./�0fvalue�1��2fl-bde397a-1aa2�32�4"1g3�5e4k+�605��7fquote�875��95��:89�;,��<�;�=</�>fl-bde397a-1aa5�?>�@"1g?�Ae@k+�B7A��CA��DBC�Egq�F�E�Gfl-bde397a-1aa8�Hfl-bde397a-1aa9�IGH�J"FI�KeJk+�LK��M�L�NM0��Ofl-bde397a-1aae�PO�Q"1gP�ReQJk+�S0R��T7R��UR��VTU�Wgunquote-splicing�XWK��Y�X�ZY0��[fl-bde397a-1ab3�\[�]"1g\�^e]Jk+�_0^��`7^��aW^��b`a�c7�dc0�efl-bde397a-1b0e�fe�g"Egf�hfl-bde397a-1b0b�ih�j"Egi�kegkj+�l7k��mgy�nm�ofl-bde397a-1b23�po�q"ngp�r�m6�sfl-bde397a-1b11�tfl-bde397a-1b12�ufl-bde397a-1b13�vstu�w"r�v�xeqkwkj+�y7x��zflist�{z�|{0��}flist*�~}�/1��~���flist->vector��gt-bde397a-1b34�����gm-bde397a-1b35���d�����fl-bde397a-1b38�����"�����gelse�����fl-bde397a-1b32�����"�g���ek��kwkj+	�������fvector��gt-bde397a-1b19�����gm-bde397a-1b1a���d�����fl-bde397a-1b1e�����"�����gls�����fl-bde397a-1b18�����"�g���ek�kkk�kj+
�������fl-bde397a-1abb�����"1g���e�k+��7����fl-bde397a-1ac3��fl-bde397a-1ac4������"F���fl-bde397a-1abf��fl-bde397a-1ac0������"���e�k�+�����������0���fl-bde397a-1ac9�����"1g���e��k�+��0����7������������W���������0���fl-bde397a-1ace�����"1g���e��k�+��0����7����W��������ek�+��7�������c/��gdx�����fl-bde397a-1ae4�����"�g���gdy�����fl-bde397a-1ae0�����"�g���m��fl-bde397a-1ada��fl-bde397a-1adb������"����fl-bde397a-1ad5��fl-bde397a-1ad6������"����e��k�kk�+	��7����e�k�kk�+��z����}����{/���gstuff�����fl-bde397a-1ae7�����"�g���e�k�kk�+��z����~/���fl-bde397a-1aea�����"�g���e�k�kk�+��}����ek�kk�+��}����c��fl-bde397a-1aee��fl-bde397a-1aef������"����ek�+��7�������fappend��fl-bde397a-1af6�����"1g���ek�k�+�������0/��m�fl-bde397a-1afd�fl-bde397a-1afe��"�ekk�+����fl-bde397a-1b3e��	"Eg�
fl-bde397a-1b3b�
�"Eg�
e	k+�`
��gt-bde397a-1b43��gm-bde397a-1b44�d��fl-bde397a-1b48��"�fl-bde397a-1b41��"Eg�ekk+�d��gt-bde397a-1b57�gt-bde397a-1b56��gm-bde397a-1b58� d�!  �"fl-bde397a-1b5c�#fl-bde397a-1b5d�$"#�%"!$�&gx*�'�&�(fl-bde397a-1b51�)fl-bde397a-1b52�*()�+"'*�,fl-bde397a-1b4d�-fl-bde397a-1b4e�.,-�/"�.�0ek%k+/k+	�1R0��2��320��4gt-bde397a-1b63�54�6gm-bde397a-1b64�76d�87�9fl-bde397a-1b68�:9�;"58:�<fl-bde397a-1b61�=<�>"Eg=�?ek;>k+�@!?��A��BA0��Cgt-bde397a-1b6f�DC�Egm-bde397a-1b70�FEd�GF�Hfl-bde397a-1b74�IH�J"DGI�Kfl-bde397a-1b6d�LK�M"EgL�NekJMk+�ONN��P��QP/�Rgt-bde397a-1b7b�SR�Tgm-bde397a-1b7c�UTd�VU�Wfl-bde397a-1b7f�XW�Y"SVX�Zfl-bde397a-1b79�[Z�\"Eg[�]ekY\k+�^]��_0�`_/�aginclude�bgopen-input-file�cgabsolute-file-name?�dgin-vicinity�efBrelative file name only allowed when the include form is in a file�fg
file-encoding�ggset-port-encoding!�hfUTF-8�igeof-object?�jgclose-input-port�kgread�lgfilename�mgdirname�n��ofl-bde397a-1bba�po�q"ngp�rgfn�sr�tfl-bde397a-1bb5�ut�v"sgu�w6l�xfl-bde397a-1bb1�yfl-bde397a-1bb2�zxy�{"wz�|gdir�}|�~fl-bde397a-1bab�~��"}g��gfile�����fl-bde397a-1ba7�����"�g���gsrc�����fl-bde397a-1ba5�����"�g���g	read-file�����fl-bde397a-1b8c�����"�����fl-bde397a-1b8b�����"Eg���ekqkkv{kk�k�k������\����ginclude-from-path��g%search-load-path��ffile not found in path��fl-bde397a-1bc9�����"sg���fl-bde397a-1bc5�����"sg���fl-bde397a-1bc1��fl-bde397a-1bc2������"w���fl-bde397a-1bbe�����"Eg���ek�kk��k�	��a����f*expression not valid outside of quasiquote��gset-procedure-property!��f$variable transformer not a procedure��gmake-variable-transformer��gidentifier-syntax��8��fl-bde397a-1bdd�����"�g���fl-bde397a-1bda�����"�g���e�k������������������������������������������,�����������������,������������������ek�������������//���/��,����gexp1��gvar��gexp2���������fl-bde397a-1bec��fl-bde397a-1bed��fl-bde397a-1bee��fl-bde397a-1bef��fl-bde397a-1bf0���������"�����e�k������������������������������܌��������������������������������,����gdefine*��gb0��gb1��������fl-bde397a-1bfa��fl-bde397a-1bfb��fl-bde397a-1bfc��fl-bde397a-1bfd��������"�����fl-bde397a-1bf7�����"Eg���e�k���]������������fl-bde397a-1c08��fl-bde397a-1c09������"����e�k���]���C5hj�,35HHh�]6�gx
		gmod		gfilenamefice-9/psyntax.scm�
	��		
��			gnamegtop-level-eval-hook�C		h��]$"45$4>"G"4$4�5"455$8$/45$45$4545�CCCCC�gsymbol
	�gmodule	�gv		L�gval		^�gfilenamefice-9/psyntax.scm�
)	��	*	��	*	 ��	*	
��	+	��	+	��	"+	��	/,	��	7,	$��	8-	(��	=-	8��	?-	(��	D.	(��	L,	��	L,	
��	T0	��	W0	��	[0	��	^1	��	^1	��	a2	��	k2	��	l2	%��	v2	��	w3	��	~4	���3	��	�	gnamegget-global-definition-hook�C
h@]�$4�	
�&&�45$C���CCCgname
		?gval		?gmeta			;gv		2	;gfilenamefice-9/psyntax.scm�
<	��		��		=	��		��	>	
��	?	��	 ?	��	$?	��	(?	��	,@	-��	/@	&��	2@	��	:	��		?	gnamegmaybe-name-value!�C
h�]	��C�gsource
		gfun-exp		garg-exps			gfilenamefice-9/psyntax.scm�
H	��	
	��			gnamegbuild-application�C
h��]$����$	6�$ 4455�$66�$6�$74455�$"4455$	66	
66�gmod
	�gvar	�gmodref-cont		�g	bare-cont		�gkind		�gmod		�gfilenamefice-9/psyntax.scm�
\	��	]	��	_	��	`	��	_	
��	a	��	$b	��	-a	��	0c	.��	3c	;��	9c	.��	:c	"��	>c	��	De	��	Md	��	Va	��	\f	��	ea	��	hg	3��	kg	@��	qg	3��	rg	'��	vg	��	|h	"��	h	3���h	"���g	���i	���j	���k	)���k	���^	
��!	�	gnameganalyze-variable�C
h0]	��
	
��Cgsrc
		)greq		)grest			)gvars			)gmeta			)gexp			)gbody			)gfilenamefice-9/psyntax.scm�
�	��	
	��	�	)��	
	��	�	��	
	��		)	gnamegbuild-simple-lambda�C
h �]�(�C	��C�gsrc
		gexps		gfilenamefice-9/psyntax.scm�
�	��	�	��		�	��	�	��	
	��			gnamegbuild-sequence�C
h��]M����	��
		
�	�			�$B	�	
�&2	�
4
5$"�
�	�
""4L>"G		��
	�
�


	�

�C�gsrc
	�gids	�gvars		�gval-exps		�gbody-exp		�gf		�gf-name		�gvars		�gids		�gbody			+	=gproc			=�gmeta	
	V�gv		q	}gfun-exp	
��gnames	
��ggensyms	��gvals	��gbody	
��gfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	��	�	��	�	��	
	��	#�	)��	+
	��	+�	��	2
	��	5�	;��	:
	��	=�	
��	B	��	F=	��	I	��	V>	
��	Y?	��	]?	��	a?	��	e?	��	k@	-��	n@	&��	q@	��	y	����	����	
����	����	$���
	����	
���
	����	���
	��$	�	gnamegbuild-named-let�CO	
h8�](C4L>"G	��C�gsrc
		6g	in-order?		6gids			6gvars			6gval-exps			6gbody-exp			6gfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	&
	��		6	gnamegbuild-letrec�CO
hz]�Crgx
		gfilenamefice-9/psyntax.scm�
�	��		gnamegsyntax-object-expression�Ch(�](C������"����glabels
		%gbindings		%gr			%gfilenamefice-9/psyntax.scm�
-	��	.	��	0	��	0	%��	1	$��	1	1��	1	��	1	��	%0	��
		%	gnameg
extend-env�COh(�](C�������"����glabels
		(gvars		(gr			(gfilenamefice-9/psyntax.scm�
5	��	6	��	8	��	8	)��	9	(��	9	C��	9	L��	9	5��	9	"��	9	��	(8	��		(	gnamegextend-var-env�CO
hH](C���&"�$4L�5�C�"����gr
		Cga	
	Cgt			*gfilenamefice-9/psyntax.scm�
?	��	@	��		A	��	
B	��	
B	��	C	��	C	��	.C	��	1D	��	6D	+��	8D	��	9D	��	=E	#��	CE	��		Cgnamegmacros-only-env�COh�]45456�gtype
		gsym		gval			gfilenamefice-9/psyntax.scm�
T	��	$	��	&	��	$	
��			gnameg
global-extend�Ch8�]�$C�$"45	�$
�&��CCCC�gx
		6gfilenamefice-9/psyntax.scm�
c	��	e	
��		d	��	�	��	d	��	�	��	/f	��		6gnamegid?�Ch �](C44554L�5�C�gls
		 gfilenamefice-9/psyntax.scm�
�	��	�	��		�	��	�	��	�	��	�	%��	�	��	�	��	�	��	�	*��	�	��	�	��
		 gnameg
gen-labels�CO !h��](C�"L�	"j�$^45	�$H
�&6�L�	��("	45	"""���""���""���GL�L���"��W�gids
	�gi	�gx		
�gm1		J	igm2		J	igsymname	��gmarks	��gfilenamefice-9/psyntax.scm�
�	��	�	��	
�	<��	
�	)��	u	��	u	��	q	��	!�	��	%q	��	&�	��	Dt	��	I�	��	Jt	(��	Jt	
��	T�	��	[�	��	or	����	����	����	����	!����	+����	��	�	gnamegf�C"h�x]+(C�45454545OQ4
>"G���Cpgids
		{glabels		{gw			{glabelvec			ugn			rg
symnamevec		.	ogmarksvec		.	ogf		=	^gfilenamefice-9/psyntax.scm�
�	��	�	��	�	
��	�	��	�	��	�	��	�	��	!�	$��	(�	?��	.�	��	=�	��	`�	��	x�	��	y�	
��	z�	��		{	gnamegmake-binding-wrap�C!h��]��(+(C��("	45�C�("	45�("	45�Cygw1
		ygw2		ygm1			ygs1			ygm2		!	;gm2		@	Zgm2		]	wgfilenamefice-9/psyntax.scm�
�	��	�	��	�	'��	�	��	�	
��	�	��	�	��	!�	$��	!�	��	)�	��	0�	��	<�	��	@�	 ��	@�	��	H�	��	O�	��	]�	 ��	]�	��	e�	��	l�	��	x�	��		y	gnameg
join-wraps�Ch8�]&C(C(C��&��"���C�gx
		6gy		6gfilenamefice-9/psyntax.scm�
�	��	
�	��	�	��	�	��	�	��	"�	��	&�	��	)�	��	,�	&��	4�	��		6	gnamegsame-marks?�CO#$h]#(D�&��"�����$m45"Y�$�"���"	�"����&#4L	��5$	��D"���"���
"���"a(�"��A"��"����&+4L4	�55$4	�5D"���"���
"���
gsym
	gsubst	gmarks		gfst		gsymnames		0gn		@�gi		F�gsymnames	�gi	�	gfilenamefice-9/psyntax.scm�
�	
��	�	��	
�	��	�	��	�	��	�	��	�	��	�	"��	"�	.��	,�	��	0�	��	0�	��	5�	��	9�	��	:	��	@	��	F	��	K	��	O	��	T	(��	`	��	g	��	m	��	m	��	r		��	x	��	y
	����	���
	*���
	���		����	���	���	���	����	����	����	-����	!���	���	'���	����	����	����	���	���	(����	���	(���	����	���	����	���	��	���	��9		gnamegsearch�C%&!h�R]:OLQ�$4��5$CC"
6�$�45	�$|
�&n�	���("	454�>G$C4�5$CC"��e"��a"��]Jgid
	�gw	�gsearch		�gt		&	4gid		j�gw1		j�gm1		t�gm2		t�gmarks	��gnew-id	��gmarks	��gt	��gfilenamefice-9/psyntax.scm�
�	��		
��	
	��		��	!	 ��	$	/��	&	��	&	
��	<	!��	>	.��	B	��	B
	��	E�	��	I
	��	J�	��	j	
��	q	%��	t	4��	t	��	~�	����	���	���	+���	6���	+���	���	���	���	(���	���	�� 	�	gnamegid-var-name�CO#h8�]B"_(C�&
�"����	��$"w""["G(
�"�����4L���		��	���	5�"���"���"a45"I�$
�"���4L���		��	���	5�"���
"����"����gw
	5gmod	5gsubst			egresults			egfst			egsymnames		2	egmarks		2	egsubst		i�gsymnames		i�gmarks		i�gresults		i�gsymnames		m�gmarks		m�gresults		m�gw		��gsubst	�)gsymnames	�)gmarks	�)gresults	�)gn	�)gi	�gresults	�gw		�gfilenamefice-9/psyntax.scm�
(	��	*	
��	+	��	-	��	-	��	.	��	.	��	/	��	)/	��	-�	��	20	��	92	��	=2	��	Q3	��	e4	��	i6	
��	m7	��	s8	��	v9	���9	���:	���:	$���;	���;	!���<	7���<	,���<	!����	'����	����	����	 ����	����	���;	���;	���:	���7	���@	
���A	���A	���B	���C	���C	���D	���D	���E	���F	���F	#���G	9���G	.���G	#���	'���	���	��
�	 ���	���	��F	��F	��E	��B	��,J	��-J	��5J	��A	5	gnameglocally-bound-identifiers�COh�,]"d("a��$"3�$+45	�$
�&	��"""$	�"���""���$L6C$gids
		~gids		jgx			Xgfilenamefice-9/psyntax.scm�
�	��	�	
��	�	��	
�	��	�	��	�	��	e	
��	d	��	%�	��	)d	��	*�	��	Ff	��	\�	��	_�	"��	e�	��	j�	
��	v�	��	|�	
��		~gnamegvalid-bound-ids?�COh0�]	""(C4L��5$C�"���"����gids
		0gids		(gfilenamefice-9/psyntax.scm�
�	��	�	��	�	
��	
�	��	�	��	�	*��	�	4��	�	��	�	��	"�	��	(�	��	(�	��
		0gnamegdistinct-bound-ids?�COh�_]
(C�"	�"��$�45	�$o
�&]�$N45	�$8
�&&��&4L	��	��5"""���""���""��""��w""��o""��g$C�"��;Wgx
	�glist	�gj		
�gt	��gfilenamefice-9/psyntax.scm�
�	��	�	��	
�	��	
�	��	�	��	|	��	�	��	#|	��	$�	��	1|	��	5�	��	f}	��	g	��	n�	��	o	��	t�	��	u�	��	w	����	
����	%����	��	�	gnamegbound-id-member?�COh�d]"(CC"R�$G45	�$5
�&'�4L	�5	�C"���"���"����(�(C"���"���\gx
	�gw	�gdefmod		�g
expression		S	egwrap		S	egmodule		S	egfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	��	"�	��	&�	��	'�	��	C�	��	L�	��	N�	��	S�	��	S�	
��	[�	��	q�	��	t�	��	x�	��	{�	-��	�	
��	�	gnamegwrap�CO'(h@�]L$'45$4>"G""6�gx
		9gw		9gs			9gdefmod			9gfilenamefice-9/psyntax.scm�
�	��	
8	��	8	��	8	
��	9	
��	9�	��		9	gnamegsource-wrap�CO)h�]D(C�4L4�$,45	�$
�&�"""5�$">G
	4L	
5	
4L�5�Cgbody
	�gr	�gw		�gmod		�ge		
�gprops		R	egtype		o�gvalue		o�gform		o�ge		o�gw			o�gs	
	o�gmod		o�gfirst	��gfilenamefice-9/psyntax.scm�
�	��	�	��		�	��	
�	3��	
�	+��	�	��	�	��	�	��	"�	��	#�	��	R�	��	R�	��	W�	��	[�	
��	n�	��	r�	����	����	����	,����	4����	,����	 ��	�	gnamegdobody�Ch0�]
LOLLQ456�gbody
		+gr		+gw			+gs			+gmod			+gdobody			)gfilenamefice-9/psyntax.scm�
�	��	�	��	+�	��		+	gnamegexpand-sequence�CO)*+-.h]LC		
C2h g]L�LLLLLLL6_ge1
		ge2		gfilenamefice-9/psyntax.scm�	�	��			C34h�]LLLL6�gbody
		gr		gw			gs			gmod			gfilenamefice-9/psyntax.scm�
�	.��	�	0��			C5789:;<=>?@AB
h��]#4LL5�L	&r45$'LLLL45$"LL645$.4LLLLL54>"G"LC45$�4	5$"/45$"L	&
45"$LLLL
LL6L	&"L	�$LLLLLL6LC4	5$"/45$"L	&
45"$-4LLLLL54>"GLCLC�gx
	�ge1	�ge2		�g	when-list		�gbody		�gx		p�gt	��gt	��gt	1pgt	Gmgx	��gfilenamefice-9/psyntax.scm�	�	-��	�	��	�	'��	�	��	�	$��	!�	*��	%�	$��	)�	 ��	4�	.��	8�	4��	<�	.��	@�	*��	B�	G��	H�	L��	J�	*��	P�	$��	Q�	*��	U�	0��	Y�	*��	]�	&��	^�	+��	j�	K��	l�	N��	p�	+��	p�	*��	s	
����	 ����	&����	 ����	����	(����	.����	(����	$����	(����	.����	(����	$����	4����	(����	:����	@����	:����	 ����	5����	:����	$���	(���	$���	9���	<��%�	(��)	$��-	*��1	$��1	 ��?	$��C	*��G	$��G	 ��X	0��\	$��]	6��a	<��e	6��t�	��u	!���	A���	D���	!���	 ���	
��I	�	CCDA9?><:F
GIKHLMNOPQ)
h�]84LLLL4L�$,4L5	�$L
�&L�"L"L"L5�$"L>G4LL5�$B�	
�&2�45$"L���""		�LL�C�gprops
	E	Xgtype
	b�gvalue	b�gform		b�ge		b�gw		b�gs		b�gmod		b�gexp
��gmeta��gv	��gfilenamefice-9/psyntax.scm�
:	$��	�	��	�	��	�	��	�	��	�	��	E�	��	E�	��	J�	��	N�	
��	a�	��	e�	��	t�	���;	&���	���=	���	���>	
���?	���?	���?	���?	���@	-���@	&���@	���	���
	��	�
CJR'(ShN]LLLLLLLLL6Fgfilenamefice-9/psyntax.scm�
K	&��	L	(��		
C7h`	�,3(C�4L4�$,45	�$
�&�"""5		�$	"			$	"	>G

	�$k45$4O>o"A4	5$#4

LO>;"
4>*"%
�$%4L	
LO>�"��$I45$'4L	
LL
O
>�"
4>�"��$"�$4L	54L5�$�45$�4L4L4�$,45	�$
�&�"""5�$">G4L554L>"G45$	�""�45$�4L4L4�$,45	�$
�&�"""5�$">G4L55�""H�$�4L4L4�$,45	�$
�&�"""5�$">G4L554L>"G�"~45$o4L4L4�$,45	�$
�&�"""5�$">G4L54455�$	��"	������	���$B�	
�&2�4 !5$"!���""		��>"G""�"�$+4L	54 5$�")�$ 4L5$"#"$�%�$"!&�$"�$"'�$�&"�$�4(455$"45$�4)455" 4*454+5>"WG"P4,5$A$24-5$"���"4.45>"G""���""���""&4L4�$,45	�$
�&�"""5�$">G4L5�$B�	
�&2�4 !5$"!���""		�
�4/>"G"0LL
O�"�1�$R424L
$'43
5$44

>"G""
54L	5>�"N454L
$'43
5$44

>"G""
54L	5>Y"T&24L	

54/>"G"6

	LO	�G�"����gbody
		\gr		\gw			\gs			\gm			\gesew			\gmod			\gexps			\ge		�gprops			W	jgt			j	}gtype	�	1gvalue		�	1gform	
�	1ge	�	1gw	�	1gs	
�	1gmod	�	1gtmp	�gtmp	�gtmp	L�gn	��gr	��gprops	(gtype	2mgvalue	2mgform	2mge	2mgw	2mgs	2mgmod	2mge	o�gprops	�	gtype	Ngvalue	Ngform	Nge	Ngw	Ngs	Ngmod	Ngprops	��gtype	�gvalue	�gform	�ge	�gw	�gs	�gmod	�ge	#gprops	z�gtype	��gvalue	��gform	��ge	��gw	��gs	��gmod	��ge	��gfun-exp	2garg-exps	2gexp	2�gmeta	Kugv	frgn	��gt	�gt	��gtype	�gold	w�gprops	CVgtype	`�gvalue	`�gform	`�ge	`�gw	`�gs	`�gmod	`�gexp	��gmeta	��gv	��gx	�gx	�	gexps		2	\Rgfilenamefice-9/psyntax.scm�
�	��	�	
��	�	!��	�	��	�	��	�	��	#�	��	'�	��	(�	��	W�	��	W�	��	\�	��	`�	
��	j�	-����	����	����	���	��C�	���	"���	<���	���	���	"���	(���	"���	���	+����	����	����	����	����	���	���	���	���	
��1�	��5�	��D�	��o	+��o	"��r	$���	(���	.���	(���	$���	0���	&���	,���	&���	"���	4����	����	����	����	����	����	����	����	����	
���	���	��%�	��P	4��S	.��f	��g	'��l�	��u�	��z�	��~�	���	����	����	����	����	
����	����	����	��	'��	��	 ��#	(��(	"��,	(��0	"��4	��5	"��8�	��A�	��F�	��J�	��K�	��z�	��z�	���	����	
����	����	����	���	#����	����	!����	����	3����	����	���
	���e	#���
	����	!���e	#��
	��g	&��
	��f	
��c		��$
	��2`	��7	��;=	��>	��K>	
��N?	��R?	��V?	��Z?	��`@	-��c@	&��f@	��n	���
	���	"����	���#	#���#	���N	
���M	���O	
���M	���P	���P	
���P	1���Q	��%	&��#	��
&	��?)	'��M)	��N*	,��Q*	C��Y*	,��])	"��c+	'��k)	"��l,	-��o,	>��w,	-��w,	"��~3	(���3	5���3	H���3	(���/	$���/	-���/	$���0	-���/	(���1	2���1	:���1	2���/	(���2	(���2	8���2	K���2	(���6	+��6	 ���	��
�	���	���	���	��C�	��C�	��H�	��L�	
��_�	��c�	��r�	���7	-���	���=	���	���>	
���?	���?	���?	���?	���@	-���@	&���@	���	���
	���7	$���	
��,5	��9&	��:>	��?>	3��@�	��H8	��I8	��S8	
��T9	
��w�	��x@	0���>	���B	���B	3����	���8	���8	���8	
���9	
����	���D	0���B	���G	-���G	"���H	/���H	&���	
��	1F	!��	5�	��	:O	��	\O	���		\	gnamegscan�C
Th��]/OL
L	LLLLLLLLLQ4>G(

��CL"8	(
"7	�	�45$	45"
�
	"���
	"���6�gbody
	�gr	�gw		�gs		�gm		�gesew		�gmod		�gscan		�gexps		H�gin			e�gout	
	e�ge		t�gfilenamefice-9/psyntax.scm�
�	��	1R	��	BR	8��	GR	��	KQ	��	ST	��	W
	��	eX	��	kY	��	tZ	 ��	tZ	��	y[	��	z\	'���\	#���\	6���\	���[	���X	���X	)���X	���V	��	�	gnamegexpand-top-sequence�COF
	h�]4455�$	��"	������	���$B�	
�&2�45$"���""		��Cgname
	�ge	�gfun-exp		I	`garg-exps		I	`gexp		`�gmeta		y�gv	��gfilenamefice-9/psyntax.scm�
_	��	�	��	�	!��	�	��	�	3��	�	��	�	��	
	��	e	#��	
	��	*�	!��	,e	#��	0
	��	Ag	&��	D
	��	If	
��	Ic		��	R
	��	``	��	e	��	i=	��	l	��	y>	
��	|?	���?	���?	���?	���@	-���@	&���@	���	���
	��!	�	gnamegexpand-install-global�CU?>:;VW	hp8]4L5"W(C�&"&"&"�$	�"����6"���0ge
		pg	when-list		pgresult			pgl			hgt			Ngfilenamefice-9/psyntax.scm�
k	��	m	��	m	��	n	
��	o	��	q	��	q	��	Rq	��	Ur	��	[r	��	_s	&��	as	1��	ft	&��	hs	��	hn	
��		p	gnamegparse-when-list�COIKHUXYMLZ[4\*V5]+^ab3h8�]�$C�$"45	�$
�&��CCCC~gname
		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6CG�Uh(t]4LLL54LLLL5LLDlgname
		$gfilenamefice-9/psyntax.scm�	�	��	�	+��	�	��	$�	��		$CUh8.]�$"3�$+45	�$
�&	��"""$�L"��$�4L�5�"����$"3�$+45	�$
�&	��"""$4L5�"o("c"	�"V�$<45	�$*
�&�4L	�5"��4"���"���"���"��6C&gname
	6gargs	6ge1		6ge2		6gvars		K#gls		K#gw		K#gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	2f	��	E�	��	K=	��	N?	��	R>	
��	U?	��	V?	/��	[?	5��	`?	/��	c?	)��	o?	��	re	
��	vd	��	~�	���d	����	���f	���>	
���@	���@	���>	
���H	���>	
����	���>	
����	��E	���	��
E	��C	��#=	��&=	"��2=	��4�	��(	6	CG�'(Uhp�]4LLL54LLLL54L��LL5�L$'45$4L>"G""LLD�gname
		jgargs		jge1			jge2			jge		.	bgfilenamefice-9/psyntax.scm�	�	��	�	+��	�	��	�	.��	.�	��	.�	��	68	��	78	��	A8	
��	B9	
��	j�	��		j	Ch8�]�$C�$"45	�$
�&��CCCC�gname
		6gval		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6	CGhs]LLLLDkgname
		gval		gfilenamefice-9/psyntax.scm�	�	��	�	��			C�h8�]�$C�$"45	�$
�&��CCCC�gname
		6gval		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6	CChs]LLLLDkgname
		gval		gfilenamefice-9/psyntax.scm�	�	��	�	��			C�h8�]�$C�$"45	�$
�&��CCCC�gname
		6gval		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6	CDhs]LLLLDkgname
		gval		gfilenamefice-9/psyntax.scm�	�	��	�	��			C����)-h�]o�$�4L545$�")�$ 4L5		$	"	"�		�$	�D	�$	D	�$H$	�D4L�5"��	�D�$��4L>G

	�$	D�$	
	D�$14L	5"��f�$<4	>G"��!�$
	D�$	D�$D�$D�$�45"�45"D45"	6$"4?$LO@"���"���$+4LLLO?$LO@"���"���$ 4?$ O@"��R"��N!�$B45"	6$ 4"?$#O@"���"���$�$B45"	6$ 4%?$&O@"���"���'D")4(5$)D*D�$�4+5	�$�
�
&��4L	�54,4+5	�$
�
&�""5�$"$"	�$""��q"��!"��"��ge
	�gr	�gw		�gs		�grib		�gmod		�gfor-car?		�gn		�gt			Xgt			<	Ogb		X�gtype			]�gfirst	��gftype	�gfval		�gfform	
�gfe	�gfw	�gfs	
�gfmod	�ge	��gr	��gw	��gs	��gmod	��gtmp	U
gtmp	d�gtmp	s�gtmp	Xgtmp	j�gprops	=Pgt	Pcgt	j}!gfilenamefice-9/psyntax.scm�
�	��	�	
��		�	��	
�	��	�	
��	N	
��	M	��	/O	
��	3M	��	4P	��	<P	
��	LP	1��	UQ	��	X�	
��	]�	��	]�	
��	h�	��	m�	&��	y�	����	����	����	����	����	 ����	����	 ����	.����	 ����	����	!����	����	
����	����	����	
���	���	��0�	��2�	��@�	��I�	��K�	��M�	��b�	��k�	��l�	 ����	����	����	0����	����	����	����	����	���	���	���	���	���	��+�	��4�	��6�	��C�	��L�	����	����	����	
����	����	'����	����	����	����	����	����	����	���	���	���	���	���	��=�	��=�	��B�	��F�	
��P�	��j�	��j�	����	
��Z	�	gnamegsyntax-type�CO )h��]<4L4�$,45	�$
�&�"""5�$">G
	L	
6�ge
	�gr	�gw		�gmod		�gprops		E	Xgtype		b�gvalue		b�gform		b�ge		b�gw		b�gs			b�gmod	
	b�gfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	��	�	��	�	��	E�	��	E�	��	J�	��	N�	
��	a�	��	e�	����	��	�	gnamegexpand�CO!
LZM)X�Y
h�]	�L�C~gmod
		gvar		gpublic?			gfilenamefice-9/psyntax.scm�
q		��	
	��			C
h`]	�L�CXgvar
		gfilenamefice-9/psyntax.scm�
s		��	
	��		C�'(UH
h�]	�L�C~gmod
		gvar		gpublic?			gfilenamefice-9/psyntax.scm�
q		��	
	��			C
h`]	�L�CXgvar
		gfilenamefice-9/psyntax.scm�
s		��	
	��		C�*+2hg]L�LLLL6_ge1
		ge2		gfilenamefice-9/psyntax.scm�	 	��			C-���
�'(	hh�]45$4>"G
��C4LL$'4L5$4LL>"G""LLL56�gfilenamefice-9/psyntax.scm�	"	��	"	��	$	��	%	��	$	��	!
	��	+'	'��	,�	��	48	��	58	��	?8	
��	@9	
��	c�	��	e'	��		e
C34579:
h8�]4LL545$L�LLLL6
��C�gx
		4ge1		4ge2			4g	when-list			4gfilenamefice-9/psyntax.scm�	.	��	.	��	/	��	/	��	/	��	/	��	+0	��	/
	��			4	CGCD���J��+h�5,3�$	��C�$"�$6�$�4>G
	4L	
4�$,45	�$
�&�"""5

�$
"
>G

	"��		�$�L�4�$,45	�$
�&�"""5		�$	"	�$/45	�$
�&4
5"""
		�	
�	
6�$�L�4�$,45	�$
�&�"""5		�$	"	�$,45	�$
�&�"""�$-45	�$
�&		�"""
	4L
	O
O5	
6�$M4L4L$'45$4>"G""55��C�$LOO6�$�L�4L4�$,45	�$
�&�"""5		�$	"	>G

	4L	

5	

6�$Q45$LO@45		$LO	@6�$LL6�$14 5$!LLO@6"�$"#�$"$�$?%4L$'45$4>"G""56&�$?'4L$'45$4>"G""56(�$?)4L$'45$4>"G""56*4L$'45$4>"G""56-gtype
	�gvalue	�gform		�ge		�gr		�gw		�gs		�gmod		�ge		[�gr			[�gw	
	[�gs		[�gmod		[�gprops	
��gtype	
��gvalue	��gform	��ge	��gw	��gs	��gmod	��gid	�gprops		GZgsource		��gname	
��gx	�gprops		gsource	��gvar		��gmod	
��gexp	�ge	9�gprops		~�gtype		��gvalue	
��gform	��ge	��gw	
��gs	��gmod	��gtmp	�?gtmp		?gtmp	l�+gfilenamefice-9/psyntax.scm�
�	��	�	��	
	��	'�	��	C	��	L�	��	M	(��	^	��	i�	��	r�	��	w�	��	{�	��	|�	����	����	����	����	
����	����	����	���	��
	��
	���	���	���	���	��G�	��G�	��L�	��P�	
��]�	��a	'��b�	��z
	+���	���
	���		����	���	7���	$����	����	����	����	���	���	���	���	
���	�� 	$��!�	��U	$��V�	���	���o	���	����	���	$����	���8	���8	���8	
���9	
����	���	$���	��
	���	��+o	��4�	��9	.��9	&��<�	��E�	��J�	��N�	��O�	��~�	��~�	����	����	
����	����	����	���	����	��Z*	��c�	���3	 ����	���8	���8	���8	
���9	
����	���3	���	��6	 ���	��8	��8	��8	
��9	
��>�	��@6	��I�	��N9	 ��O�	��W8	��X8	��b8	
��c9	
����	���9	���;	%����	���8	���8	���8	
���9	
����	���;	��|	�	gnamegexpand-expr�CO	"+1�)h�Q]94LLL4�$,45	�$
�&�"""5�$"L>GLL6Ige
	�gprops	E	Xgtype	b�gvalue		b�gform		b�ge		b�gw		b�gs		b�gmod		b�	gfilenamefice-9/psyntax.scm�
C	#��	�	��	�	��	�	��	�	��	�	��	E�	��	E�	��	J�	��	N�	
��	a�	��	e�	����	��	�C
h0�]
4LLLLLO5	�LL�C�ge0
		)ge1		)garg-exps			)gfilenamefice-9/psyntax.scm�	C	��	B	��	
	��		)	C3h8�]45$LLO@6�gx
		3ge		3gr			3gw			3gs			3gmod			3gtmp			3gfilenamefice-9/psyntax.scm�
?	��		3	gnamegexpand-application�CO#'( #�	h@]2�$G4L�54L�5�L$'45$4L>"G""C�$e"w4545L$'45$4L>"G"""&�$C4L�5��"���
"���45	�$�
�&�	���"l�L$'45$4L>"G""�L$L��"��	�C�$>�&2��L$
L��"��	�C"��O"��K"���"����$IL�4L$'4L5$4L>"G""LLL56L$'45$4L>"G""Cgx
	<gm	<ge			Pgn		b�ge		k�gv	��gi	��gw	��gms	��gss	��ge	7g
expression	Ykgwrap	Ykgmodule	Ykg
expression	��gwrap	��gmodule	��gs	�gfilenamefice-9/psyntax.scm�
i	
��	j	��		j	��	
l	��	l	0��	l	��	m	��	m	0��	m	��	l	��	k	��	&8	��	'8	��	18	
��	29	
��	S�	��	Wj	��	\�	��	b�	��	e�	.��	k�	��	s8	��	t8	��	~8	
��	9	
����	����	����	����	����	$����	:����	$����	����	����	���j	����	���p	���q	���q	3���q	���	��z	��8	��8	��8	
��9	
��<{	'��B|	'��F}	;��I}	5��J}	+��P~	1��S~	+��T{	��Y�	��Yy	��a�	��kr	��nr	 ��rr	��ur	0��zr	��~�	���v	'���v	0���v	B���v	8���v	L���v	����	���t	����	����	���j	����	(����	6����	%����	���8	���8	���8	
���9	
���	���	��8	��8	��8	
��9	
��Z	<	gnamegrebuild-macro-output�Ch^]LLLLLL6Vgk
		gfilenamefice-9/psyntax.scm�
�	��	�	#��		C#'(�h��]OLQMOY44�����4L$'45$4>"G""5545>ZCZF�gp
	�ge	�gr		�gw		�gs		�grib		�gmod		�grebuild-macro-output		�gw		H�	gfilenamefice-9/psyntax.scm�
g	��	7�	
��	:�	 ��	@�	'��	A�	��	C�	��	F�	 ��	G�	��	H�	��	H�	#��	K�	��	S8	��	T8	��	^8	
��	_9	
����	����	 ����	 ����	
��	�	gnamegexpand-macro�CO$�"�U)GCDT�*+�h(�](L�CL4L�LL5�4L�5�C�gforms
		%gfilenamefice-9/psyntax.scm�
�	#��	�	%��	�	)��	�	8��	�	>��	�	8��	�	/��	�	/��	!�	2��	#�	/��	$�	)��		%gnamegf�Ch8n]	LOLLLL	L
Q45LLLLLL6fge1
		8gf		*gfilenamefice-9/psyntax.scm�	�	#��	8�	��		8C34h(�](L�CL4L�LL5�4L�5�C�gforms
		%gfilenamefice-9/psyntax.scm�
�	7��	�	9��	�	=��	�	L��	�	R��	�	L��	�	C��	�	C��	!�	F��	#�	C��	$�	=��		%gnamegf�Ch8�]
LOLLQ45LLLLLL6�gforms
		8ger		8gw			8gs			8gmod			8gf			*gfilenamefice-9/psyntax.scm�
�	.��	�	7��	8�	0��		8	C�U)h��]I��4L4�$,45	�$
�&�"""5�$"L>G	L	6�gx
	�ge	�gr		�gprops		O	bgtype		l�gvalue		l�gform		l�ge		l�gw		l�gs		l�gmod			l�gfilenamefice-9/psyntax.scm�
�	2��	�	<��	�	D��	�	4��	
�	��	�	��	�	��	�	��	 �	��	O�	��	O�	��	T�	��	X�	
��	k�	��	o�	����	��	�C'(
���U)h��]I��4L4�$,45	�$
�&�"""5�$"L>G	L	6�gx
	�ge	�gr		�gprops		O	bgtype		l�gvalue		l�gform		l�ge		l�gw		l�gs		l�gmod			l�gfilenamefice-9/psyntax.scm�
	2��		<��		D��		4��	
�	��	�	��	�	��	�	��	 �	��	O�	��	O�	��	T�	��	X�	
��	k�	��	o�	����	��	�CU)h��]I��4L4�$,45	�$
�&�"""5�$"L>G	L	6�gx
	�ge	�gr		�gprops		O	bgtype		l�gvalue		l�gform		l�ge		l�gw		l�gs		l�gmod			l�gfilenamefice-9/psyntax.scm�
	B��		L��		T��		D��	
�	��	�	��	�	��	�	��	 �	��	O�	��	O�	��	T�	��	X�	
��	k�	��	o�	����	��	�C$h�c
]�(	L6����4L4�$,45	�$
�&�"""5		�$	"	LL>G

		�$�4L


544	
55�$,45	�$
�&�"""4	455�L��L�	��L	��L	�L	��L	������4L

5����"���	�$"	
�$e4L


544	
554L5�L��L�	��L	��L	�L	��L	�L4L4L
4�$,45	�$
�&�"""5�$">G4L54545$"
45�L�5���"��		�$;45$!
L
LO@6	�$'L

L
LO	6(h4LLO4L
$'45$4>"G""
5���5�(�C	��C4L5$"4L>"GL4LL�5�44 55454!LLO4554"LLO4L
$'45$4>"G""
5���5�(�"	��(C4#L	>"G	��C[
gbody
	�gids	�glabels		�gvar-ids		�gvars		�gvals		�gbindings		�ge		�ger		�gprops			`	sgtype			~�gvalue	
	~�gform		~�ge		~�gw	
	~�gs		~�gmod		~�gid	�}glabel	�}gid	��gvar	�}gupdate	gupdate	'gupdate	/;gid	��glabel	��gtrans-r	��gupdate	��gupdate	��gupdate	��gprops	GZgtype	d�gvalue	d�gform	d�ge	d�gw	d�gs	d�gmod	d�gexpanded	��gp	��gtmp	=gexps	��gexps	��gids	��gvars	��gval-exps	��gbody-exp	��/gfilenamefice-9/psyntax.scm�
�	
��	�	��	
�	%��	�	��	�	��	�	*��	�	��	�	!��	'�	��	,�	��	0�	��	1�	��	`�	��	`�	��	e�	��	i�	
��	}�	!����	����	����	#����	����	����	%����	����	����	����	���7	����	���7	���8	
����	����	���	���	���	���	���	���	"���	���	���	��$�	��/�	��/�	��8�	��>�	$��C�	$��H�	2��M�	$��R�	$��U�	C��`�	:��c�	4��e�	8��h�	*��k�	$��}�	����	����	#����	����	����	%����	����	����	(����	����	����	����	����	����	����	����	"����	����	����	����	����	����	����	����	'���	3���	G���	���	���	���	���	��G�	��G�	��L�	��P�	
��c�	��g�	��v�	����	G���	
���(	���)	���)	
���+	���+	#���+	����	9����	3����	3����	'����	����	"����	-����	���	��m�	��s�	��t�	-����	���8	���8	���8	
���9	
����	����	8����	8����	2����	-����	����	����	����	���
	����	(����	����	#����	'����	#���	+���	G��
�	+���	��	-��	6��	-��	-��$	-��2	2��:	-��;	=��K�	��S8	��T8	��^8	
��_9	
����	���	H���		H���	B���	=���	-����	����	����	���
	����	����	����	���
	���	�	gnamegparse�C�hg]L4LLL5�C_gx
		gfilenamefice-9/psyntax.scm�
�	!��	�	5��	�	-��		Chp�]%�����O
LLLLLLLLQ4LO56�gbody
		ng
outer-form		ngr			ngw			ngmod			ngr			ngribcage			ngw			ngparse		3	n	gfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	:��	�	,��	�	��	�	��	3�	
��	S�	��	g�	��	h�	(��	i�	��	j�	*��	k�	5��	l�	D��	n�	
��		n	gnamegexpand-body�CO%+��)h��]94L4LLL$L"L4�$,45	�$
�&�"""5�$"L>G4LL5L5�Cxgx
	�gprops	V	igtype	s�gvalue		s�gform		s�ge		s�gw		s�gs		s�gmod		s�	gfilenamefice-9/psyntax.scm�
	 ��		0��		0��	�	��		"��	�	��	"�	��	&�	��	'�	��	V�	��	V�	��	[�	��	_�	
��	r�	��	v�	����	���	0���	"��	�C�hp9]4L5$V4L
54LL5L�4L
4L	L54LLLLLLO5L5LL6L61gid
		lgval		lge1			lge2			lglabels			cgnew-w		!	cgtrans-r		6	Wgfilenamefice-9/psyntax.scm�		��	
	
��		��		��		 ��	!	��	+	��	0	(��	6	��	9	��	[	��	c	��	h	&��	l	��		l	C�'(h�-]45$'LLLLLLLLO@4L$'45$4>"G""56%grec?
		yge		ygr			ygw			ygs			ygmod			ygk			ygtmp			ygfilenamefice-9/psyntax.scm�
	��	?#	"��	@�	��	H8	��	I8	��	S8	
��	T9	
��	w�	��	y#	
��
		y	gnamegexpand-local-syntax�CO	&T�h(�]
4545$C6�gexpanded
		"gmod		"gp				"gfilenamefice-9/psyntax.scm�
'	��		
��		(	��	)	��	)	
��	+	#��	"+	��		"	gnamegeval-local-transformer�C'�UIK�h��]#�$r45	�$b
�&V��$K	�	�4L545$�")�$ 4L5$""�&x�"�C45	�$W
�&I�$>45	�$,
�&��&L	��	��6C"���"���"���"���"���45	�$
�&�""4	5	�$
"	&4L54L	5�CCCCCC�ge
	}gr	}gmod		}gwrap		4	Igmodule		4	Igid		Iugn		Tugt		_�gt		~�gb	�ugj	�gfilenamefice-9/psyntax.scm�
2	��	�	��		3	��	
�	��	_	��	�	��	&`	
��	*�	��	4:	��	:�	��	<:	,��	C�	��	I:	
��	L=	��	T:	
��	WN	
��	_M	��	qO	
��	uM	��	vP	��	~P	
���P	1���Q	���:	
���?	���?	)���?	���@	!���@	����	���|	����	���|	����	���}	����	���	���	���	��	���	��Ss	"��U�	��_s	��`t	��it	-��rt	
��0	}	gnameg	ellipsis?�CO(+�hO]L4L56Ggfilenamefice-9/psyntax.scm�	H	��	H	
��		
C_h8�]�$C�$"45	�$
�&��CCCC{gr
		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6C�h_]L4L56Wgr
		gfilenamefice-9/psyntax.scm�	L	��	L	��		C�h8�]�$C�$"45	�$
�&��CCCC�ga
		6gb		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6	Chn]LL�6fga
		
gb		
gfilenamefice-9/psyntax.scm�	J	��	
J	
��		
	Ch��]45$
LO@45"+4?$
LO@L6$4	?$

LO@"���"����gargs
		grreq		gtmp		
	gtmp		(	gtmp		3	Ygfilenamefice-9/psyntax.scm�
E	��	QN	��	SN	'��	YN	
��			gnamegreq�C�h0�]4L$	�"5$DL6�greq
		.grest		.gfilenamefice-9/psyntax.scm�
O	��	Q	��	Q	!��	Q	*��	Q	��	P	
��	$R	��	(T	��	*T	&��	.T	��		.	gnamegcheck�Ch0�]OOQLQ6�g	orig-args
		,greq		,gcheck			,gfilenamefice-9/psyntax.scm�
D	��	*V	��	,V	��		,gnameglambda-formals�CO)!��'(h�,	3$45"	4L	5
4L	5L45$45"
4L4L$'45$4>"G""54L
54L	556ge
	�gr	�gw		�gs		�gmod		�greq		�grest		�gmeta		�gbody		�gids			�gvars	
	)�glabels		2�gfilenamefice-9/psyntax.scm�
Y	��	Z	��	
Z	��	Z	)��	Z	��	Z	��	![	��	)Z	��	,\	��	2Z	��	9_	��	G_	#��	H_	-��	Xa	��	]�	��	e8	��	f8	��	p8	
��	q9	
����	���b	���c	���a	���]	
��	�		gnamegexpand-simple-lambda�CO*+�ha]L4L56Ygfilenamefice-9/psyntax.scm�	k	��	k	#��	k	*��	k	
��		
C_�h8�]�$C�$"45	�$
�&��CCCC{gr
		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6C�hq]L4L56igr
		gfilenamefice-9/psyntax.scm�	u	��	u	(��	u	,��	u	��		C�hn]45�Cfga
		
gb		
gfilenamefice-9/psyntax.scm�	r	��	r	��		
	C�h�]L4L56xga
		gb		gfilenamefice-9/psyntax.scm�	s	��	s	&��	s	*��	s	
��			C�hn]45�Cfga
		
gb		
gfilenamefice-9/psyntax.scm�	p	��	p	��		
	C�h�]L4L56xga
		gb		gfilenamefice-9/psyntax.scm�	q	��	q	%��	q	)��	q	
��			C�	hn]45�Cfga
		
gb		
gfilenamefice-9/psyntax.scm�	n	��	n	��		
	C�hw]L4L56oga
		gb		gfilenamefice-9/psyntax.scm�	o	��	o	%��	o	
��			Ch8�]�$C�$"45	�$
�&��CCCC�ga
		6gb		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6	Chn]LL�6fga
		
gb		
gfilenamefice-9/psyntax.scm�	m	��	
m	
��		
	Ch ]245$
LO@45"�45"�45"`45"+4?$
LO@	L6$4
?$
LO@"���"���$4?$

LO@"��~"��z$4?$
LO@"��I"��E$4?$
LO@"��"���gargs
	grreq	gtmp		
gtmp		(gtmp		7�gtmp		F�gtmp		U�gtmp		`�gfilenamefice-9/psyntax.scm�
h	��	~w	���w	(���w	
��		gnamegreq�C+�hX]LL4L56Pgfilenamefice-9/psyntax.scm�	{	��	{	*��	{	
��		
C_
�h8�]�$C�$"45	�$
�&��CCCC{gr
		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6C�hh]LL4L56`gr
		gfilenamefice-9/psyntax.scm�		�	��	�	,��	�	��		C�hn]45�Cfga
		
gb		
gfilenamefice-9/psyntax.scm�	�	��	�	��		
	C�hw]LL4L56oga
		gb		gfilenamefice-9/psyntax.scm�		�	��	�	*��	�	
��			C�hn]45�Cfga
		
gb		
gfilenamefice-9/psyntax.scm�	�	��	�	��		
	C�hw]LL4L56oga
		gb		gfilenamefice-9/psyntax.scm�		�	��	�	)��	�	
��			Ch8�]�$C�$"45	�$
�&��CCCC�ga
		6ginit		6gb			6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6	Ch�]LLL�6xga
		ginit		gb			gfilenamefice-9/psyntax.scm�		��		
��			Ch8�]�$C�$"45	�$
�&��CCCC�ga
		6gb		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6	C.hn]LL�L�6fga
		gb		gfilenamefice-9/psyntax.scm�	}	��	}	
��			Ch0]345$LO@45"�45"�45"d45"-4?$LO@	
L6$4?$LO@"���"���$4
?$LO@"��x"��t$4?$LO@"��A"��=$4?$LO@"��
"��gargs
	*greq	*gropt		*gtmp		
*gtmp		**gtmp		9gtmp		H�gtmp		W�gtmp		b�	gfilenamefice-9/psyntax.scm�
x	����	����	(����	
��	*	gnamegopt�C+�hX]LLL4L5�6Pgfilenamefice-9/psyntax.scm�	�	(��	�	��	�	
��		
C_
01/�h8�]�$C�$"45	�$
�&��CCCC{gr
		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6C�hh]LLL4L5�6`gr
		gfilenamefice-9/psyntax.scm�	�	*��	�	!��	�	��		C2�hn]45�Cfga
		
gb		
gfilenamefice-9/psyntax.scm�	�	��	�	��		
	C�hw]LLL4L5�6oga
		gb		gfilenamefice-9/psyntax.scm�	�	(��	�	��	�	
��			C�3hH�]45&4�$C�$"45	�$
�&��CCCCC�gaok
		Egr		Egfilenamefice-9/psyntax.scm�	�	!��	�	��	e	
��	d	��	�	��	d	��	 �	��	<f	��			E	C�hy]LLL4L5�6qgaok
		gr		gfilenamefice-9/psyntax.scm�	�	(��	�	��	�	
��			C�3h �]45&45�CC�gaok
		ga		gb			gfilenamefice-9/psyntax.scm�	�	!��	�	��	�	!��	�	��			C�h�]LLL4L5�6�gaok
		ga		gb			gfilenamefice-9/psyntax.scm�	�	(��	�	��	�	
��			C�3ha]45�CYgaok
		
gfilenamefice-9/psyntax.scm�	�	��	�	��		
C�hj]LLL4L5�6bgaok
		gfilenamefice-9/psyntax.scm�	�	(��	�	��	�	
��		C4�hX�]�$"3�$+45	�$
�&	��"""$456C�ga
		Rginit		Rgk			Rgb			Rgfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	2f	��	E�	��	H�	-��	P�	#��
		R	Ch�]LLLL�6�ga
		ginit		gk			gb			gfilenamefice-9/psyntax.scm�	�	��	�	
��			Ch8�]�$C�$"45	�$
�&��CCCC�ga
		6ginit		6gb			6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6	C5�h(�]4455LLLL�6�ga
		&ginit		&gb			&gtmp			&gfilenamefice-9/psyntax.scm�	�	��	�	/��	�	��	�	
��	$�	 ��	&�	��		&	Ch8�]�$C�$"45	�$
�&��CCCC�ga
		6gb		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6	C5�Ih(�]
4455LLL��L�6�ga
		%gb		%gtmp			%gfilenamefice-9/psyntax.scm�	�	��	�	/��	�	��	�	
��	#�	 ��	%�	��		%	Ch�c]L45$LO@45"�45"L45"45"�45	"�45
"h45"/4	?$
LO@
L6$ 4?$LO@"���"���
$ 4
?$LO
@"��r"��n	$ 4	?$LO	@"��9"��5$ 4?$LO@"��"���$ 4?$LO@"���"���$ 4?$LO@"���"���$ 4?$LO@"��U"��Q[gargs
	�greq	�gopt		�grkey		�gtmp		
�gtmp		,�gtmp		;�gtmp		J�gtmp		Ycgtmp			h9gtmp	
	wgtmp	��gtmp	��
gfilenamefice-9/psyntax.scm�
�	����	����	(����	
��	�	gnamegkey�Ch8�]�$C�$"45	�$
�&��CCCC{gr
		6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6ChV]LLLL6Ngr
		gfilenamefice-9/psyntax.scm�	�	��		CJh8�]4?$LO@L6�gargs
		1greq		1gopt			1gkw			1gtmp			1gfilenamefice-9/psyntax.scm�
�	��	)�	��	+�	(��	1�	
��		1	gnamegrest�C!�KLhXG]4L445$	"�$4�5"55$
DL6?greq
		Ugopt		Ugrest			Ugkw			Ugfilenamefice-9/psyntax.scm�
�	��	�	��	�	
��	�	��	�	'��	�	0��	#�	<��	&�	��	*�	��	+�	$��	2�	.��	4�	$��	9�	8��	;�	
��	=�	��	A�	
��	K�	��	O�	��	Q�	'��	U�	��		U	gnamegcheck�Chx�])OOOOOQQQQLQ6�g	orig-args
		tgreq	8	tgopt		8	tgkey		8	tgrest		8	tgcheck		8	tgfilenamefice-9/psyntax.scm�
g	��	r�	��	t�	��		tgnameglambda*-formals�CO+���hX[]%4L54L54LL54LL5L45456
Sgreq
		Rgopt		Rgrest			Rgkw			Rgbody			Rgvars			Rglabels			Rgr*		,	Rgw*		,	R	gfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	
��	�	��	"�	��	,�	��	3�	��	D�	*��	O�	?��	P�	C��	R�	��
		R	gnameg	parse-req�C+��)h8�]Z�$,45	�$
�&�"""44554L54LL54LL5LLL�L
LLL
�45L	�4LLL4�$,45	�$
�&�"""5�$"L>G
	4L	L
5	
L�6
�gid
	6gi	6gid		7	Hgv		H6gl		T6gr**		d6gw**		t6gprops	��gtype	�1gvalue	�1gform	�1ge		�1gw	
�1gs	�1gmod	�1gfilenamefice-9/psyntax.scm�	�	��		7	��	
�	��	77	��	:8	
��	H�	��	K�	��	R�	%��	T�	��	T�	��	W�	��	`�	-��	d�	��	d�	��	g�	��	n�	.��	t�	��	t�	��	}�	 ����	7����	*����	$����	����	����	����	����	����	����	����	����	
����	����	���	��4�	��6�	��%	6	C3��hh[,
3�$J�
4
5$+LLLLLL	LO@
6$��$,45	�$
�&�"""
44	
55

4L
54L
54L5
L�$4
5"45�$�"
�
�$�"	6L�$4
5"�$�"�$�"	6Sgreq
	bgopt	bgrest		bgkw		bgbody		bgvars		bgr*		bgw*		bgout		bginits			bgtmp	
		Wgtmp			Wgid	
��gv	
�gl	�gr*	�gw*	
�gfilenamefice-9/psyntax.scm�
�	��		�	��	
�	
��	�	��	�	��	]�	
��	`�	��	d7	��	e�	���7	���8	
����	����	����	"����	����	����	����	)����	����	����	����	*����	����	����	 ����	����	,����	����	����	����	'���	��
�	���	���	'���	���	��%�	��)�	��*�	*��9�	��=�	��@�	%��Q�	��U�	��X�	%��^�	��b�	��1	b	
gnameg	parse-opt�C+/�)hH�][�$,45	�$
�&�"""44554L54LL54LL5LLLLL
�LL�L
4545L	�4LLL4�$,45	�$
�&�"""5�$"L>G

	4L	
L
5	

L�6�gk
	Dgid	Dgi		Dgid		7	Hgv		HDgl		TDgr**		dDgw**		tDgprops	��gtype	?gvalue	?gform		?ge	
?gw	?gs	?gmod	
?gfilenamefice-9/psyntax.scm�	�	��		7	��	
�	��	77	��	:8	
��	H�	��	K�	��	R�	%��	T�	��	T�	��	W�	��	`�	-��	d�	��	d�	��	g�	��	n�	.��	t�	��	t�	����	(����	6����	'����	'����	!����	����	����	����	����	����	����	����	����	����	
���	���	���	��B�	��D�	��'	D	C3�h��,3
�$L�45$-LLLLLL
	LO@6L$"	�$4	5�"454
56
�greq
	�gopt	�grest		�gkw		�gbody		�gvars		�gr*		�gw*		�gaok		�gout			�ginits	
	�gtmp			Ygtmp			Y
gfilenamefice-9/psyntax.scm�
�	��		�	��	
�	
��	�	��	�	��	g�	��	o�	$��	s�	��	v�	;��	}�	1����	����	2����	B����	��	�	gnamegparse-kw�C+MQ!��Rh8�]L	LLLL�LLLL4L445556
�gk
		2gv		2ge1			2ge2			2gfilenamefice-9/psyntax.scm�	�	��	�	&��	0�	��	2�	
��		2	C1'(h`�]LL
LLL
L	L4L�4LL$'4L5$4LL>"G""LLL5LLL5D�ge1
		Zge2		Zgfilenamefice-9/psyntax.scm�	�	��	�	��	!8	��	"8	��	,8	
��	-9	
��	P�	��	X�	��	Z�	
��
		Z	C3S�h�]456g	docstring
		
ge1		
ge2			
gfilenamefice-9/psyntax.scm�	�	,��	
�	#��		
	C!T�h0�]L	LLLL�LLLL4L45�56
�g	docstring
		/ge1		/ge2			/gfilenamefice-9/psyntax.scm�	�	��	 �	!��	!�	'��	(�	!��	-�	��	/�	
��		/	Ch�K,
3
45
"o45$	LO
@45$'LLLLLL	O@6
$,4	
?$
	LO

@"��_"��[Cgreq
	�gopt	�grest		�gkw		�gbody		�gvars		�gr*		�gw*		�ginits		�gmeta			�gtmp	
	�gtmp		�gtmp		L�
gfilenamefice-9/psyntax.scm�
�	��	�	
gnameg
parse-body�C+hO]DGgfilenamefice-9/psyntax.scm�		��		��		
CV�ht]��Clgtmp-bde397a-1382
		gtmp-bde397a-1381		gtmp-bde397a-1380						C!
h�]v4L>G	4L	�>G

4LLLLLLL45>G4
5	�L
�
D�gargs
	�ge1	�ge2		�gargs*		�ge1*		�ge2*		�greq		
�gopt		
�grest		
�gkw			
�gmeta	
	.�greq		.�gopt		.�grest	
	.�gkw		.�ginits		.�gvars		.�gbody		.�gmeta*		c�gelse*		c�gfilenamefice-9/psyntax.scm�		(��		��		#��	1	��	B
	��	f	��	k	��	x
	���
	��
	�	C3h�n]7OOO	O
LLLLQ	LLLLLQ
LLLLL	Q	LL
Q
45$@45$LO@	
6fge
	�gr	�gw		�gs		�gmod		�gget-formals		�gclauses		�g	parse-req		<�g	parse-opt		<�gparse-kw			<�g
parse-body	
	<�gtmp	��gtmp	��
gfilenamefice-9/psyntax.scm�
�	��	�	gnamegexpand-lambda-case�CO	,9dW�h�]!"��$;4L�54L�5"�C�&�&C"���"����$K454L5"'(C��&��"���6"���C�$-45	�$
�&
L�	�6"��9"��5"��1gx
	�ga		Hgd			Hgold	V�gnew		a�gl1		g�gl2		g�gfilenamefice-9/psyntax.scm�
	��		"	��	
	��	#	��	#	��	#	��	#	)��	#	,��	#	)��	#	��	*&	��	+$	��	0$	"��	4$	��	9$	2��	=$	��	K'	��	O	��	P(	��	V(	��	Y)	��	a)	��	g+	��	m,	��	s.	#��	v.	,��	z.	��	}/	"���/	+���/	���0	���+	���	����	���	����	���!	��&	�gnamegf�Ch0�]
4�5$COLQ6�gx
		)gw		)gf			)gfilenamefice-9/psyntax.scm�
	��		��		��		��		)	gnamegstrip�CO-hH�]	�$,45	�$
�&�"""456�gid
		Dgid	7	Dgfilenamefice-9/psyntax.scm�
6	��	�	��		7	��	
�	��	77	��	<8	
��		Dgnameggen-var�C.Q	Q
Q
Q
QQQQQQQQQQ" Q"& Q-Q $Q " Q!#-&" Q"" Q#Q$&" Q% "'Q&Q(Q).%
Q*Q+%" 
.,Q,-Q-4i4i5X5/hW]L6Ogfilenamefice-9/psyntax.scm�
	
��	 	
��	 	��		
C/O/K4YiZ[hg]6_gk
		gfilenamefice-9/psyntax.scm�
h	��	i	��	i		��		C5K4i4i5\4i\[5>"G4i4i5]4i][5>"G4L^+�^_'(h�]L6�gvar
		gval		ge1			ge2			gfilenamefice-9/psyntax.scm�	S	��			C�h^]LL6Vgx
		
gfilenamefice-9/psyntax.scm�
T	*��	
T	6��		
CIKJ^R'(
h�E]4L5$�")�$ 4LL5$""��$BL4LL$'45$4	L>"G""LL56C=gid
	�gn	�gt			Fgt		*	=gkey		G�gfilenamefice-9/psyntax.scm�
V	��	N	
��	M	��	O	
��	!M	��	"P	��	*P	
��	:P	1��	CQ	��	GW	#��	GW	��	VY	2��	XZ	2��	[�	��	c8	��	d8	��	n8	
��	o9	
����	���Y	 ��	�	C'()h�v]94L4LLL4�$,45	�$
�&�"""5�$"L>G4LL5L5�Cngx
	�gprops	J	]gtype	g�gvalue		g�gform		g�ge		g�gw		g�gs		g�gmod		g�	gfilenamefice-9/psyntax.scm�
e	#��	f	3��	g	3��	�	��	�	��	�	��	�	��	�	��	J�	��	J�	��	O�	��	S�	
��	f�	��	j�	��	y�	���g	3���f	%��	�Ch�<]4LLO54LLL	L
LLL
O>"GL�4L
L$'4L	5$4L	L>"G""L	LL
54L4LL54LLL
LLO5L5LL
64gvar
	�gval	�ge1		�ge2		�gnames		�gtrans-r	��gfilenamefice-9/psyntax.scm�	T	%��	T	��	U	��	C�	��	K8	��	L8	��	V8	
��	W9	
��	z�	��	{b	���d	+���d	���e	���b	���_	��	�	C
h��]
45"@4L	$'45$4>"G""56$94LO?$%	LLLLLLLLL	O@"���"��}�ge
	�gr	�gw		�gs		�gmod		�gtmp		�gfilenamefice-9/psyntax.scm�
P	��	m	,��	m	A��	�	��	 8	��	!8	��	+8	
��	,9	
��	O�	��	Qm	��	�	C%'" O
>"G4i4i5`4i`L+b
h x]	4LL5�L�Cpge
		gexp		gfilenamefice-9/psyntax.scm�	s	,��	s	��	
	��		C`_'(	hh�]
45$LO@4L$'45$4>"G""56�ge
		bgr		bgw			bgs			bgmod			bgtmp			bgfilenamefice-9/psyntax.scm�
q	��	&t	,��	(t	3��	)�	��	18	��	28	��	<8	
��	=9	
��	`�	��	bt	��		b	C-O5>"G4L�UIK�ab`+�c_`dRh��]*4LLLLLL>G4LLLLL>G��$<�&�����"��&"	"�$
���"	D�gx
	�gy	�gx		�gmaps		�gy		3�gmaps		3�gkey		=�gfilenamefice-9/psyntax.scm�	�	/��	�	 ��	�	3��	6�	$��	=�	��	=�	��	K�	%��	M�	-��	Q�	��	S�	 ��	V�	*��	Z�	6��	\�	 ��	f�	)��	h�	2��	l�	 ��	n�	$��	y�	$����	����	#����	/����	#����	!����	7��	�	CedN`h`]4LL�LLLL>G�&
��""�&4��5"Dge1
		Zge2		Zge			Zgmaps			Zgfilenamefice-9/psyntax.scm�	�	&��	�	 ��	$�	 ��	&�	(��	*�	��	,�	/��	/�	:��	0�	/��	7�	 ��	9�	(��	=�	��	?�	0��	E�	<��	H�	0��	Q�	 ��	Z�	3��		Z	Chw]LLL6ogx
		gdots		gy			gfilenamefice-9/psyntax.scm�	�	 ��			C+_f!hh]LLL6`gdots
		gy		gfilenamefice-9/psyntax.scm�	�	%��			C�g.ihH&]4L�>G�(
L6�4L5�Dgmaps
		Dgx		Dgmaps			Dgmap-env		*	?gfilenamefice-9/psyntax.scm�
�	(��	�	9��	�	B��		�	<��	�	9��	�	*��	�	9��	�	.��	!�	D��	#�	L��	'�	2��	*�	I��	*�	:��	.�	��	1�	5��	<�	��	B�	:��	D�	2��		DChh]LLLLO6`gdots
		gy		gfilenamefice-9/psyntax.scm�	�	%��			Ch�]*45"J4LLLLLL>G4>G�$"	D$)4LLLO?$LLLO@"���"���gy
	�gk	�gtmp		�gy		&	[gmaps		&	[gx		8	[gmaps		8	[gfilenamefice-9/psyntax.scm�
�	 ��	�	6��	)�	'��	.�	:��	;�	+��	C�	'��	D�	��	H�	��	P�	��	[�	/��	�	gnamegf�C�gh@
]4LLLL�LL>G�(
L64L�5�Dgmaps
		@gx		@gmaps			@gfilenamefice-9/psyntax.scm�
�	+��	�	3��	�	E��	�	?��	�	3��	�	-��	#�	<��	'�	1��	+�	G��	-�	O��	1�	5��	2�	=��	9�	H��	;�	=��	>�	=��	@�	5��		@gnamegk�Ch@�]OLLLLLLLQLLLLLLO6~gx
		=gdots		=gy			=gf			=gfilenamefice-9/psyntax.scm�	�	 ��		=	Chh]LLL6`gdots
		ge		gfilenamefice-9/psyntax.scm�	�	 ��			Chu]Cmge
		gr		gmod			gfilenamefice-9/psyntax.scm�
�	;��			Chh]LLLLL6`gdots
		ge		gfilenamefice-9/psyntax.scm�	�	 ��			Ch�]&�$"3�$+45	�$
�&	��"""$�4L545$�")�$ 4L5$""�&*�4L��>G		D45$
	
6D4
5"�45"W45$LO@45		$LO	@D$/4O?$LLO@"��t"��p$+4O?$LO@"��0"��,gsrc
	�ge	�gr		�gmaps		�g	ellipsis?		�gmod		�glabel		N�gt		Y�gt		x�gb	��gvar.lev	��gvar	��gmaps		��gtmp	��gtmp	�gtmp	bgtmp		:bgfilenamefice-9/psyntax.scm�
z	��	e	
��		d	��	�	��	d	��	�	��	2f	��	E{	��	F|	*��	N|	��	QN	
��	YM	��	kO	
��	oM	��	pP	��	xP	
���P	1���Q	���	����	*����	;����	!����	:����	+����	-����	:����	H����	-����	%����	B����	:����	)����	%����	;����	C����	)����	1����	)��Y�	*��b�	"��)	�	gnameg
gen-syntax�CO/�jkhx�]$
�$D(
64L��>G4�5$�D4455����D�gsrc
		qgvar		qglevel			qgmaps			qg	outer-var		3	qg
outer-maps		3	qgb		D	qg	inner-var		_	qgfilenamefice-9/psyntax.scm�
�	��	�	��	
�	��	�	��	�	��	�	3��	�	;��	 �	!��	!�	0��	*�	A��	-�	O��	2�	0��	6�	!��	;�	.��	B�	>��	D�	.��	D�	%��	L�	'��	O�	3��	S�	+��	T8	
��	[�	E��	]8	
��	_�	+��	h�	A��	k�	A��	l�	;��	o�	5��	q�	-��		q	gnameggen-ref�CO0�lahp]�Chgx
		gfilenamefice-9/psyntax.scm�
�	-��	�	9��	�	@��	
�	9��		Cama9h�]�&
��L6Czgx
		gfilenamefice-9/psyntax.scm�
�	��	�	4��	�	<��	�	*��	�	H��	�	B��		C�hRhy]4��L5�Cqgx
		gfilenamefice-9/psyntax.scm�
�	,��	�	=��	�	C��	
�	=��	�	8��		C�hxt]4545�&�C4O�5$,�44	5
O�5��C��Clge
		tgmap-env		tgformals			tgactuals			tgr		P	\gfilenamefice-9/psyntax.scm�
�	��	�	(��	�	(��	�	��	�	"��	�	*��	!�	��	$�	��	&�	��	2�	��	4�	��	8�	��	:�	��	?�	/��	B�	��	C�	%��	F�	3��	P�	*��	_�	*��	a�	%��	b�	��	f�	"��		t	gnameggen-map�C1a
hF`�Zn�h(u])��$����	��C�$2��4455�$	��C	��C�$����C�$L���$;����4L���5	��
	
��C	
64455�$	��"	��4L�5	��Cmgx
	%gkey	%gname			*gvar			*gname		7	egexp		r	greq	��gvars	��gexp	��gbody	��gname	�	gfun-exp	%garg-exps	%
gfilenamefice-9/psyntax.scm�
	��		��		��		L��		U��		"��	!
	��	3	��	6	A��	7	(��	:�	��	=�	!��	C�	��	E�	3��	F�	��	J�	��	O
	��	^�	!��	d
	��	n	��	q	:��	r	$��	x
	���	���		'���		 ���		���
	?���
	K���
	X���
	_���
	X���
	 ���
	����	)���
	����	���
	���
	T���
	���	'���	 ���
	M���
	4����	����	!����	����	3����	����	���
	���	!��
	��
	4��	?��	4��	!��
	��;	%gnamegregen�CO2/10Q/0Q02Q2'(+bh(�]4LLLLL>GL6�gx
		#ge		#gmaps			#gfilenamefice-9/psyntax.scm�		+��		?��		+��		��	#	/��		#C�o	hp
]4L$'45$4>"G""545$LLLO@6ge
		lgr		lgw			lgs			lgmod			lge		:	lgtmp		E	lgfilenamefice-9/psyntax.scm�
	��	�	��	8	��	8	��	8	
��	9	
��	:�	��	:	��	f	0��	h	8��	l	��		l	C/(2O/012>"G4L�+p+MQ!��Rh(�]L�4L445556�gk
		"gv		"ge1			"ge2			"gfilenamefice-9/psyntax.scm�	
(	%��	(	2��	 (	%��	"'	!��		"	CS�h�]456g	docstring
		
ge1		
ge2			
gfilenamefice-9/psyntax.scm�	!	@��	
!	7��		
	C!T�h �]L�4L45�56�g	docstring
		ge1		ge2			gfilenamefice-9/psyntax.scm�	
#	%��	$	-��	%	3��	$	-��	#	%��	"	!��			Chp�]45"445$
LO@LLLLLLLL6	$4?$
LO@"���"����gbody
		kgmeta		kgtmp			kgtmp			Egfilenamefice-9/psyntax.scm�
	��	E)	#��		k	gnameglp�ChH�]+4L>GO	LLLLLLQ�6�gargs
		Gge1		Gge2			Ggreq		
	Ggopt		
	Ggrest		
	Ggkw		
	Gglp		(	Ggfilenamefice-9/psyntax.scm�		5��		��	(	��	E	@��	G	��		G	C�qh8�]
45$LLO@6�ge
		4gr		4gw			4gs			4gmod			4gtmp			4gfilenamefice-9/psyntax.scm�
	��	.*	,��	0*	4��	4*	��		4	C)*O>"G4L+p
h8�]4LLLLLLL��>G	
�L�C�gargs
		8ge1		8ge2			8gmeta		"	8glcase		"	8gfilenamefice-9/psyntax.scm�	2	��	%0	��	.
	��		8	C�rh8�]
45$LLO@6�ge
		4gr		4gw			4gs			4gmod			4gtmp			4gfilenamefice-9/psyntax.scm�
-	��	.6	,��	06	4��	46	��		4	C,+O>"G4Ls+t�ht]��Clgtmp-bde397a-154d
		gtmp-bde397a-154c		gtmp-bde397a-154b						C!
hH]#454LLLLLLL>G45	
�L�C�gargs
		Hge1		Hge2			Hgclauses			Hgmeta*		(	Hglcase		(	Hgmeta		7	Hgfilenamefice-9/psyntax.scm�	D	��	=	��	+;	��	0A	0��	3D	"��	7A	0��	7A	��	>
	��			H	CvswS�h�]456�g	docstring
		
gargs		
ge1			
ge2			
gfilenamefice-9/psyntax.scm�	F	!��	
F	��		
	CT��ht]��Clgtmp-bde397a-1563
		gtmp-bde397a-1562		gtmp-bde397a-1561						C!
hX7],45�454LLLLLLL>G45	
�L�C/g	docstring
		Xgargs		Xge1			Xge2			Xgmeta			Xgclauses			Xgmeta*		7	Xglcase		7	Xgmeta		G	X	gfilenamefice-9/psyntax.scm�	G	"��	H	(��	G	"��	G	��	!=	��	:;	��	?A	0��	GA	��	N
	��
		X	C
hx�]45$LLO@45"
6$&4?$	LLO@"���"����ge
		sgr		sgw			sgs			sgmod			sgtmp			sgtmp		3	sgfilenamefice-9/psyntax.scm�
9	��	=J	,��	?J	9��	CJ	��		s	C,)O>"G4Lx+t�ht]��Clgtmp-bde397a-1583
		gtmp-bde397a-1582		gtmp-bde397a-1581						C!
hH]#454LLLLLLL>G45	
�L�C�gargs
		Hge1		Hge2			Hgclauses			Hgmeta*		(	Hglcase		(	Hgmeta		7	Hgfilenamefice-9/psyntax.scm�	X	��	Q	��	+O	��	0U	0��	3X	"��	7U	0��	7U	��	>
	��			H	CvsyS�h�]456�g	docstring
		
gargs		
ge1			
ge2			
gfilenamefice-9/psyntax.scm�	Z	!��	
Z	��		
	CT��ht]��Clgtmp-bde397a-1599
		gtmp-bde397a-1598		gtmp-bde397a-1597						C!
hX7],45�454LLLLLLL>G45	
�L�C/g	docstring
		Xgargs		Xge1			Xge2			Xgmeta			Xgclauses			Xgmeta*		7	Xglcase		7	Xgmeta		G	X	gfilenamefice-9/psyntax.scm�	[	"��	\	(��	[	"��	[	��	!Q	��	:O	��	?U	0��	GU	��	N
	��
		X	C
hx�]45$LLO@45"
6$&4?$	LLO@"���"����ge
		sgr		sgw			sgs			sgmod			sgtmp			sgtmp		3	sgfilenamefice-9/psyntax.scm�
M	��	=^	,��	?^	9��	C^	��		s	C,+O>"G4Lz+pz_'(h8�]�$C�$"45	�$
�&��CCCC�gdots
		6ge1		6ge2			6gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	/f	��		6	C�'(	h�`]3�$"	�	�44554LL$'45$4L>"G""LL5�4LL54LL5L�4LL$'4L5$4LL>"G""LL5L6Xgdots
	�ge1	�ge2		�gwrap			.gmodule			.gid		.�gids	��glabels	��gbindings	��gnw	��gnr	��gfilenamefice-9/psyntax.scm�	e	&��		e	"��	f	&��	�	��	g	&��	�	��	!g	:��	(�	��	.e	��	5j	%��	6�	��	9�	��	=�	%��	?�	��	A�	��	Dk	(��	Fl	>��	G�	��	O8	��	P8	��	Z8	
��	[9	
��	~�	��	l	0���l	*���j	���m	&���n	&���m	����	���8	���8	���8	
���9	
����	���o	��%	�	C
h��]
45"@4L$'45$4>"G""56$*4?$	LLLLO	@"���"����ge
	�gr	�gw		�gs		�gmod		�gtmp		�gfilenamefice-9/psyntax.scm�
a	��	p	,��	p	;��	�	��	 8	��	!8	��	+8	
��	,9	
��	O�	��	Qp	��	�	C%O>"G4L{��)h�Q]94LLL4�$,45	�$
�&�"""5�$"L>GLL6Igx
	�gprops	E	Xgtype	b�gvalue		b�gform		b�ge		b�gw		b�gs		b�gmod		b�	gfilenamefice-9/psyntax.scm�
	1��	�	��	�	��	�	��	�	��	�	��	E�	��	E�	��	J�	��	N�	
��	a�	��	e�	����	��	�C{|h��,	3
4L5$o4L54L5
	4L	54L	
545
4LLO54L4L5566�ge
	�gr	�gw		�gs		�gmod		�gconstructor		�gids		�gvals		�gexps		�glabels			!�gnew-vars	
	!�gnw		;�gnr		;�
gfilenamefice-9/psyntax.scm�
u	��	v	 ��	v	��	x	)��	y	+��	!x	��	&z	'��	1{	'��	;z	��	D}	,��	O	,��	e�	,��	j�	>��	~�	,���|	���w	-���w	2���w	��	�		gnameg
expand-let�CO	/" %
.Q/+�~{'(mhP�]�$"3�$+45	�$
�&	��"""$L6C�gf
		Ogid		Ogval			Oge1			Oge2			Ogfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	2f	��	E�	��	M�	)��			O	Ch �]LLLLLLL��6	�gf
		gid		gval			ge1			ge2			gfilenamefice-9/psyntax.scm�	�	��			Cmh�]L6�gid
		
gval		
ge1			
ge2			
gfilenamefice-9/psyntax.scm�	
�	��		
	C
h8�]4L>"G(C	��C�gsrc
		4gids		4gvars			4gval-exps			4gbody-exp			4gfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	&
	��		4	gnameg	build-let�Ch �]LLLLLLLO�6	�gid
		 gval		 ge1			 ge2			 gfilenamefice-9/psyntax.scm�	 �	��		 	C
h�]45"�45"@4L$'45$4>"G""56$+4	LO?$
LLO@"���"���$+4LO?$LLO@"��K"��Gge
	�gr	�gw		�gs		�gmod		�gtmp		�gtmp		�gfilenamefice-9/psyntax.scm�
�	��	$�	.��	&�	3��	'�	��	/8	��	08	��	:8	
��	;9	
��	^�	��	`�	��	�	C	/O/>"G4L�+���'(mh�]L6�gid
		
gval		
ge1			
ge2			
gfilenamefice-9/psyntax.scm�	
�	��		
	C��h^]LLLL6Vgx
		gfilenamefice-9/psyntax.scm�
�	5��	�	A��		C'(�|	h��]$4L
5$�4L54L54LL54L
L	5LL454LLO54L�4LL$'4L5$4LL>"G""LL5L56L6�gid
	�gval	�ge1		�ge2		�glabels		�gnew-vars		�gw		7�gr		7�gfilenamefice-9/psyntax.scm�	�	#��	
�	��	�	,��	�	.��	�	��	"�	)��	-�	)��	7�	 ��	A�	0��	L�	0��	`�	0��	h�	��	p8	��	q8	��	{8	
��	|9	
����	����	0����	"����	0����	8����	��	�	C
h��]
45"@4L$'45$4>"G""56$94LO?$%	LLLLLLLLL	O@"���"��}�ge
	�gr	�gw		�gs		�gmod		�gtmp		�gfilenamefice-9/psyntax.scm�
�	��	�	,��	�	4��	�	��	 8	��	!8	��	+8	
��	,9	
��	O�	��	Q�	��	�	C
!%
.O
>"G4L�+���'(mh�]L6�gid
		
gval		
ge1			
ge2			
gfilenamefice-9/psyntax.scm�	
�	��		
	C��h^]LLLL6Vgx
		gfilenamefice-9/psyntax.scm�
�	5��	�	A��		C'(�|	h��]$4L
5$�4L54L54LL54L
L	5LL454LLO54L�4LL$'4L5$4LL>"G""LL5L56L6�gid
	�gval	�ge1		�ge2		�glabels		�gnew-vars		�gw		7�gr		7�gfilenamefice-9/psyntax.scm�	�	#��	
�	��	�	,��	�	.��	�	��	"�	)��	-�	)��	7�	 ��	A�	0��	L�	0��	`�	0��	h�	��	p8	��	q8	��	{8	
��	|9	
����	����	0����	"����	0����	9����	��	�	C
h��]
45"@4L$'45$4>"G""56$94LO?$%	LLLLLLLLL	O@"���"��}�ge
	�gr	�gw		�gs		�gmod		�gtmp		�gfilenamefice-9/psyntax.scm�
�	��	�	,��	�	5��	�	��	 8	��	!8	��	+8	
��	,9	
��	O�	��	Q�	��	�	C
!%
.O
>"G4L�+^�UM)h@�]�$C�$%45	�$
�&	4L5�CCCC�ge
		9gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	+f	&��	2f	��		9C�

h�]	�LL�C~gmod
		gvar		gpublic?			gfilenamefice-9/psyntax.scm�
{		��	
	��			C
h`]	�LL�CXgvar
		gfilenamefice-9/psyntax.scm�
}		��	
	��		Chp]45L�$BL�	
�&2L�45$"��L�""LLLLOLLO6�ge
		ngvar			ngmeta		"	Lgv		=	Igfilenamefice-9/psyntax.scm�	�	E��		�	*��		��	=	��		��	">	
��	%?	��	)?	��	-?	��	1?	��	7@	-��	:@	&��	=@	��	E	��	ny	��		nC3��)h�Z]94LLL4�$/45	�$
�&4L5"""5�$"L>GLL6Rge
	�gprops	H	[gtype	e�gvalue		e�gform		e�ge		e�gw		e�gs		e�gmod		e�	gfilenamefice-9/psyntax.scm�
�	7��	�	��	�	��	�	��	�	��	�	��	.�	��	H�	��	H�	��	M�	��	Q�	
��	d�	��	h�	����	��	�C!
hE]{4LLL>G	�$�4LLL4�$/45	�$
�&4L5"""5

�$
"
L>G

4L

L5


4�LL>G
4LO?$LL
O@	6

4L
LL4
�$/4
5	�$

�&4L
5"
"
"
5�$"L>G
4L
L5

4LLLLLLO4
55
	�L
�C=ghead
	�gtail	�gval		�gtype		�gvalue		�gformform		�gee		�gww		�gss		�gmodmod			�gprops	
	v�gtype	
��gvalue	��gform	��ge	
��gw	��gs	��gmod	��gval	
� ge	� gr	� gw	
� gs*	� gmod	� gtmp	� ge	
'�gprops	o�gtype	��gvalue	��gform	
��ge	��gw	��gs	��gmod	��gfun-exp	
��garg-exps	��$gfilenamefice-9/psyntax.scm�	�	'��	�	��	0�	��	1�	��	:�	��	?�	��	C�	��	D�	��	\�	��	v�	��	v�	��	{�	��	�	
����	����	����	����	����	>����	!��'�	2��*�	��3�	��8�	��<�	��=�	��U�	��o�	��o�	��t�	��x�	
����	����	����	����	2����	���
	��%	�	C��'(h@�]�$C�$%45	�$
�&	4L5�CCCC�gid
		9gval		9gfilenamefice-9/psyntax.scm�	e	
��		d	��	�	��	d	��	�	��	+f	&��	2f	��		9	CIK�)
H
h�]	�LL�C~gmod
		gvar		gpublic?			gfilenamefice-9/psyntax.scm�
{		��	
	��			C
h`]	�LL�CXgvar
		gfilenamefice-9/psyntax.scm�
}		��	
	��		C��U��JR�'(h��]j4LL
5�$-45	�$
�&		�"L"L"L4L5$�")�$ 4L5$""��$45�4LLL
4�$/45	�$
�&4L	5"""5�$"L>G
	4L	L
5	
�$B�		
�&2�	4
	5$"
�	�

�
	""		�L�C�$4LLL
4�$/45	�$
�&4L	5"""5�$"L>G
	4L	L
5	
�$B�		
�&2�4
5$"
���""LLO
LO6�$��45$�4LLLL
LL54LL4�$/45	�$
�&4L	5"""5�$"L>G

	L	
L
64LLL
L54LL
56�$4LL
L564LL$'4L5$4LL>"G""LL
L56�gid
	�gval	�gn		A�gid-mod		A�gt		N�gt		m�gb	��gkey	��gprops	��gtype	Agvalue	Agform	Age		Agw	
Ags	Agmod	Agname	A�gvar	A�gexp	A�gmeta		^�gv	
y�gprops	�gtype	
Hgvalue	
Hgform	
Hge		
Hgw	

Hgs	
Hgmod	
Hgexp	H�gmeta	a�gv	|�gp	��ge	�dgprops	"5gtype	?dgvalue		?dgform	
?dge	?dgw	?dgs	
?dgmod	?d*gfilenamefice-9/psyntax.scm�	�	!��	�	��	�	&��	�	��	A�	��	FN	
��	NM	��	`O	
��	dM	��	eP	��	mP	
��	}P	1���Q	����	����	"����	����	9����	9����	����	����	����	����	����	����	����	����	����	
���	��	�	���	��A�	��J	��N=	��Q	��^>	
��a?	��e?	��i?	��m?	��s@	-��v@	&��y@	���	���
	����	����	����	����	����	����	����	����	����	����	����	
���	���	���	��H�	��M	��Q=	��T	��a>	
��d?	��h?	��l?	��p?	��v@	-��y@	&��|@	���	���y	����	����	(����	����	%����	;����	%����	!����	-����	%����	����	����	����	����	���	��"�	��"�	��'�	��+�	
��>�	��B�	��d�	��h�	7��j�	=��k�	7��v�	7����	%����	����	1����	7����	1����	����	6����	<����	���8	���8	���8	
���9	
����	����	$��s	�	Ch�
]45"j45$LLLLO@4L$'45$4	>"G""56$74
LO?$#LLLLLLLLO
@"��Y"��Uge
	�gr	�gw		�gs		�gmod		�gtmp		�gtmp			{gfilenamefice-9/psyntax.scm�
�	��	?�	,��	A�	2��	B�	��	J8	��	K8	��	U8	
��	V9	
��	y�	��	{�	��	�	C$" O>"G4i4i5�4i�M+�3mhH�]4L5$4�$C�$"45	�$
�&��CCCCC�gmod
		Egid		Egfilenamefice-9/psyntax.scm�	�	��	�	��	e	
��	d	��	�	��	d	��	 �	��	<f	��			E	C���h z]45L4�5Drgmod
		gid		gfilenamefice-9/psyntax.scm�	�	 ��	�	 ��	�	��			ChH�]45"	6$4LO?$O@"���"���|ge
		Cgr		Cgw			Cgtmp			Cgfilenamefice-9/psyntax.scm�
�	��		C	CO5>"G4M� h�]�$4L�54L�5�C�$�"C4545"&�$C4L�5��"���
"���45	�$.
�& 4L�5	�C"���"��}C�gx
	�gmod	�gn		1	mgv		:	mgi		@	fg
expression	��gwrap	��gfilenamefice-9/psyntax.scm�
		��			 ��				��	
		&��			2��			&��			&��			2��			&��			 ��	"�	��	&		��	+	
	*��	1	
	 ��	4	
	@��	:	
	 ��	@		"��	E		'��	I		"��	Q		5��	X		A��	\		5��	]		$��	`		,��	f		"��	m		��	n�	���		!����	���		!����	���		 ����	��"	�	gnameg
remodulate�C+��3mhi]L6agmod
		
gexp		
gfilenamefice-9/psyntax.scm�	
		��		
	C��)hp�]4�54L5LL4�$,45	�$
�&�"""5�$"D�gmod
		lgexp		lgmod			lgprops		U	hgfilenamefice-9/psyntax.scm�		 	#��		 	��		!	"��	�	��	!�	��	%�	��	&�	��	U�	��	U�	��	Z�	��	^�	
��	l	!	��
		l	CmhH�]4L5$4�$C�$"45	�$
�&��CCCCC�gmod
		Egid		Egfilenamefice-9/psyntax.scm�			��			��	e	
��	d	��	�	��	d	��	 �	��	<f	��			E	C���h z]45L4�5Drgmod
		gid		gfilenamefice-9/psyntax.scm�			 ��			 ��			��			Ch��]OQ45"E45"	6$#4LO?$O@"���"���$4	LO?$
O@"���"����ge
	�gr	�gw		�g
remodulate		
�gtmp		�gtmp		'	cgfilenamefice-9/psyntax.scm�
		��	�	CO>"G4Lc+^)
hX�]:4LLL4�$,45	�$
�&�"""5�$"L>G4LL54LLL4�$,45	�$
�&�"""5�$"L>G4LL5
��	
�L�C�gtest
	Wgthen	Wgprops		E	Xgtype		b�gvalue		b�gform		b�ge		b�gw		b�gs		b�gmod		b�gprops	��gtype	�8gvalue	�8gform	�8ge	�8gw	�8gs	�8gmod	�8gtest-exp	@Wgthen-exp	@Wgelse-exp	@Wgfilenamefice-9/psyntax.scm�	�	��	�	��	�	��	�	��	�	��	E�	��	E�	��	J�	��	N�	
��	a�	��	e�	��	t�	����	����	����	����	����	����	����	����	����	
����	���	���	��<
	��@	)	��K
	��	W	C�)
h��];4LLL4�$,45	�$
�&�"""5�$"L>G	4LL	5	4LLL4�$,45	�$
�&�"""5�$"L>G	4LL	5	4LLL4�$,45	�$
�&�"""5�$"L>G	4LL	5		
�L�C�gtest
	�gthen	�gelse		�gprops		E	Xgtype		b�gvalue		b�gform		b�ge		b�gw		b�gs		b�gmod			b�gprops	��gtype	�8gvalue	�8gform	�8ge	�8gw	�8gs	�8gmod		�8gprops	{�gtype	��gvalue	��gform	��ge	��gw	��gs	��gmod		��gtest-exp	��gthen-exp	��gelse-exp	��gfilenamefice-9/psyntax.scm�	�	��	�	��	�	��	�	��	�	��	E�	��	E�	��	J�	��	N�	
��	a�	��	e�	��	t�	����	����	����	����	����	����	����	����	����	
����	���	���	��9�	��B�	��G�	��K�	��L�	��{�	��{�	����	����	
����	����	����	���	/	���
	��'	�	C3hX�]45$LLO@45$LLO@6�ge
		Wgr		Wgw			Wgs			Wgmod			Wgtmp			Wgtmp		1	Wgfilenamefice-9/psyntax.scm�
	&	��		W	C" O>"G4i4i5�4i�L+��)h�Q]94LLL4�$,45	�$
�&�"""5�$"L>GLL6Igx
	�gprops	E	Xgtype	b�gvalue		b�gform		b�ge		b�gw		b�gs		b�gmod		b�	gfilenamefice-9/psyntax.scm�
	;	��	�	��	�	��	�	��	�	��	�	��	E�	��	E�	��	J�	��	N�	
��	a�	��	e�	����	��	�C)h�Q]94LLL4�$,45	�$
�&�"""5�$"L>GLL6Igx
	�gprops	E	Xgtype	b�gvalue		b�gform		b�ge		b�gw		b�gs		b�gmod		b�	gfilenamefice-9/psyntax.scm�
	<	��	�	��	�	��	�	��	�	��	�	��	E�	��	E�	��	J�	��	N�	
��	a�	��	e�	����	��	�C'(
h�.]4LLLLLO54LLLLLO54L�4LL$'4L5$4LL>"G""LLL5LLL5	�L�C&gfluid
	�gval	�gb		�gb*		�gfluids		v�gvals		v�gbody		v�gfilenamefice-9/psyntax.scm�		;	��		<	��	/	=	��	7�	��	?8	��	@8	��	J8	
��	K9	
��	n�	��	v	=	��	v	9	���
	��
	�	C3h8�]
45$LLLLO	@6�ge
		7gr		7gw			7gs			7gmod			7gtmp			7gfilenamefice-9/psyntax.scm�
	6	��		7	C" %O5>"G4i4i5\4i\\5>"G4i4i5]4i]]5>"G4i4i5�4i��5>"G4i4i5�4i��5>"G4i4i5V4iVV5>"G4L�+_h8�]"4LLL>G4LL>G�D�gx
		7gy		7gy			7gids			7gx		'	7gids		'	7gfilenamefice-9/psyntax.scm�		T	0��		S	 ��		W	4��	*	V	%��	3	Y	1��	7	Y	)��		7	Ch0�]45$LLO@L6�gp*
		.gn		.gids			.gtmp			.gfilenamefice-9/psyntax.scm�
	P	��	.	Z	"��		.	gnamegcvt*�Ch0�]"�$���"���D"����gx
		/gr		$gx			$gfilenamefice-9/psyntax.scm�
	\	��		]	��			^	&��	
	^	��		`	-��		`	'��		`	8��		`	!��	$	_	!��	$	]	��	%	]	)��	/	]	��
		/gnameg	v-reverse�C�/
,U+�c_h8�]"4LLL>G4LL>G�D�gx
		7gy		7gy			7gids			7gx		'	7gids		'	7gfilenamefice-9/psyntax.scm�		�	3��		�	$��		�	7��	*	�	(��	3	�	4��	7	�	,��		7	ChO]LDGgfilenamefice-9/psyntax.scm�		�	/��		�	'��		
CNh(�]4LLL>GD�gx
		#gp		#gids			#gfilenamefice-9/psyntax.scm�		�	3��		�	$��		�	F��		�	>��	#	�	6��		#Chx]L6pgx
		gdots		gys			gfilenamefice-9/psyntax.scm�		u	$��			ChP)]34LLL>G4LL�>G4L>GD!gx
		Pgdots		Pgys			Pgys			Pgids			Pgx		(	Pgids		(	Pgys		:	Pge		:	P	gfilenamefice-9/psyntax.scm�		w	3��		v	$��		z	7��	 	z	G��	'	z	7��	+	y	(��	0	}	;��	=	|	,��	C		8��	P		0��		P	Chh]L6`gx
		gdots		gfilenamefice-9/psyntax.scm�		n	$��			C/0�h8�]4LL�L>G&"D�gx
		2gdots		2gp			2gids			2gfilenamefice-9/psyntax.scm�		p	3��	
	p	C��		p	3��		o	$��		r	;��	!	r	0��	#	r	A��	)	r	S��	.	r	K��	2	r	(��		2	Ch�]+�$"3�$+45	�$
�&	��"""$�4LL5$D"��D�$,45	�$
�&�"""45	�$"& 4L54L5&D"���"���4	5"�4
5"m45$LO@45$
O@45$LO@4L5D$'4LO?$LLLO@"��f"��b$#4LO?$LO@"��*"��&gp
	�gn	�gids		�gtmp	��gtmp	��gtmp	kgtmp	&kgtmp	Bkgfilenamefice-9/psyntax.scm�
	c	��	e	
��		d	��	�	��	d	��	�	��	2f	��	E	d	��	F	f	#��	R	e	!��	T	g	3��	Y	g	+��	]	g	#��	c	k	+��	h	k	6��	k	k	0��	m	k	#��	m	e	!��	p�	��	ts	��	u�	���s	"����	���	e	!���t	���t	-���s	���	i	+���	i	#��[	�	6��\	�	<��g	�	.��k	�	&��"	�	gnamegcvt�Ch@�]OOQLLLQ
6�gpattern
		@gkeys		@g	ellipsis?			@gcvt*			@g	v-reverse			@gcvt			@gfilenamefice-9/psyntax.scm�
	N	��	>	�	(��	@	�	��		@	gnamegconvert-pattern�CO/�KlF
.��h�]��C}gvar
		glevel		gfilenamefice-9/psyntax.scm�
	�	Y��		�	i��			�	q��	
	�	[��			CUh�&]454>"G4L54L5L4455�$	��"	��4L4	54L4L4
45554L5556gpvars
	�gexp	�gy		�gr		�gmod		�gids		�glabels		1�gnew-vars		1�gfilenamefice-9/psyntax.scm�
	�	��		�	$��		�	��		�	=��	"	�	)��	)	�	E��	1	�	��	9�	��	<�	!��	B�	��	D�	3��	E�	��	I�	��	N
	��	Q	�	I��	T
	��	`�	!��	b	�	I��	f
	��	g	�	6��	k	�	U��	w	�	y��	x	�	K��	}	�	S���	�	T���	�	Y���	�	T���	�	S���	�	S���	�	K���	�	6���	�	0���	�	��"	�	gnamegbuild-dispatch-call�CO0h^]LLL6Vge
		gfilenamefice-9/psyntax.scm�
	�	B��		�	N��		Cmhy]4L�LL5�Cqgx
		gfilenamefice-9/psyntax.scm�
	�	-��		�	>��		�	I��		�	>��		�	9��		C�Kk
+h]LC		
C/Fd+�bhH,34LLO>G	4LO	5$�4L4	55$�4455
L
		�
�4
5$4O?"14L	5	��
		
�
�
4L	54L5
		
�
�

		�
�
		
��

&N4455�$		��"		��		��"T4455�$		��"		��	��		��666@gx
	gkeys	gclauses		gr		gpat		gfender		gexp		gmod		gp		gpvars			gy	
	Y�gy		ugtmp	��gthen-exp	
��gelse-exp	��gtest-exp	�gthen-exp	
�gelse-exp	�greq	?gvars	?gexp	
?gbody	%6gfun-exp	z�garg-exps	z�gfun-exp	��garg-exps	��gfilenamefice-9/psyntax.scm�
	�	��		�	(��	!	�	��	&	�	$��	;	�	��	<	�	$��	?	�	9��	I	�	$��	M	�	��	N8	
��	U	�	1��	W8	
��	Y	�	��	`	�	Y��	c	�	S��	h	�	b��	m
	��	p	�	k��	u
	��	u	�	I���	�	v���
	���	�	c���
	���	�	^���	�	^���	�	K���
	��	�	4��
	���	)��%
	��%�	��,
	��.	�	k��3
	��C	�	E��G	�	:��H�	��K�	!��Q�	��S�	3��T�	��X�	��]
	��`	�	j��c
	��o�	!��q	�	j��u
	��z	�	Q��z	�	>���
	����	����	!����	����	3����	����	���
	���	�	j���
	����	!���	�	j���
	���	�	Q���	�	>���
	���	�	4���	�	!���	�	1���	�	>���	�	���	�	1���	�	>��	�	��M		gnameg
gen-clause�CO1F
3+�mUh��]L�$,4L5	�$L
�&L�"L"L"L�$,45	�$
�&�"""&4LL54L5�"�C�gx
	�gfilenamefice-9/psyntax.scm�
	�	2��	�	��		s	��	
�	��	>s	"��	?�	��	ps	��	qt	��	zt	-���t	
���	�	>��	�C$��U%,)h�]:"LL	LL�LL6�$"3�$+45	�$
�&	��"""$�4LOL�5$�"�4455�$,45	�$
�&�"""4455L4L4	54L4L

��L54L5L55L	6�$,45	�$
�&�"""45	�$
"&�4L54L5&�4L
L4�$,45	�$
�&�"""5�$"L>GL
L6"��n"��j"���"����gpat
	gexp	gid	��glabels	�gvar	�gprops	��gtype	�gvalue	�gform	�ge	�gw	�gs	�gmod	�
gfilenamefice-9/psyntax.scm�		�	7��		�	$��		�	 ��	e	
��	!d	��	)�	��	-d	��	.�	��	Jf	��	]	�	 ��	^	�	)��	n	�	2��	p	�	)��	t	�	$��	y�	��	|�	����	%����	����	���	�	6����	���7	����	���7	���8	
���	�	(���	�	=���	�	N���	�	H���	�	h���	�	>���	�	>���	�	F���	�	f���	�	n���	�	X���	�	R��	�	F��	�	F��	�	>��	�	=��	�	=��	�	*��	�	$���	��#s	��$�	��_s	"��a�	��k	�	$��lt	��ut	-���s	����	����	����	����	����	����	����	����	����	
����	����	���	��B		C/h�]LLLL�LL6~gpat
		gfender		gexp			gfilenamefice-9/psyntax.scm�		�	3��		�	 ��			C�&h��](X4455�$	��"	������	��C�45$%	LLLLLLLLLO@4
5$LO@
�6�gx
	�gkeys	�gclauses		�gr		�gmod		�gfun-exp		N	`garg-exps		N	`gtmp		c�gtmp		n�gtmp	��
gfilenamefice-9/psyntax.scm�
	�	��		�	��		�	��	�	!��	�	��	�	3��	�	��	�	��	
	��	!	�	I��	$
	��	0�	!��	2	�	I��	6
	��	F	�	B��	I
	��	N	�	0��	N	�	��	W
	��	c	�	*��	c	�	���	�	4���	�	A���	�	4���	�	"��	�	gnameggen-syntax-case�CO	2-Q/!.Q002(/Q11!" Q2'(+)mhX�]�$"3�$+45	�$
�&	��"""$
4LLL5�CC�gx
		Tgfilenamefice-9/psyntax.scm�
	�	)��	e	
��		d	��	�	��	d	��	�	��	2f	��	E	�	5��	F	�	G��	Q	�	B��		TCk
U)�*h@	]C4LLLO5$44554L	��LL5	��
	
��4LL4�$,4	5	�$
�
&�"""5�$"L>G
	4LL	
5	
	�L�C
L6gval
	9gkey	9gm		9gx		$/greq		J	~gvars		J	~gexp		J	~gbody		d	ugprops	��gtype	�gvalue	�gform	�ge	�gw	�gs		�gmod	
�gfun-exp	/garg-exps	/gfilenamefice-9/psyntax.scm�		�	 ��		�	��	8	
��	 	�	2��	"8	
��	$	�	 ��	(	�	Z��	+	�	T��	0	�	c��	1	�	J��	8
	��	;	�	t��	@
	��	J	�	J��	J	�	5��	U
	��	\�	)��	d
	��	d�	��	k
	��	m	�	l��	r
	��	�	����	����	����	����	����	����	����	����	
����	����	����	��	�	5��	�	"��%
	��3	�	2��5	�	?��9	�	 ��)	9	C3hp�]4L$'45$4>"G""545$LLLLO@6�ge
		ogr		ogw			ogs			ogmod			oge		:	ogtmp		E	ogfilenamefice-9/psyntax.scm�
	�	��	�	��	8	��	8	��	8	
��	9	
��	:�	��	:	�	��			o	C( "2O/012>"G8=�h@�-.,3##L4455�6�gx
		>gm		>gesew			>gfilenamefice-9/psyntax.scm�

	
��	
	$��	
	.��	'
		!��	1

	'��	2

	0��	5

	=��	;

	0��	<

	!��	>
		��		>	gnamegmacroexpand�CO+ih0�]�$"45	�$
�&��CCCC�gx
		-gfilenamefice-9/psyntax.scm�


	
��	�	��		_	��	
�	��	&`	
��		-gnamegidentifier?�C,ih �]	�	�C�gid
		gdatum		gwrap			gmodule			gfilenamefice-9/psyntax.scm�

	
��	�	��	
	��	�	��			gnameg
datum->syntax�C-iUhx]L6pgx
		
gfilenamefice-9/psyntax.scm�

	
��	

	��		
gnameg
syntax->datum�C-O�i)hP�]	4�$,45	�$
�&�"""5�$CC�gx
		Jgprops	<	Jgfilenamefice-9/psyntax.scm�

	
��	�	��	�	��	�	��	
�	��	<�	��	<�	��	A�	��	E�	
��
		Jgnameg
syntax-source�C.i/0�1�hy]L45L6qgx
		gfilenamefice-9/psyntax.scm�

"	��	
#	��		
#	*��	
#	��	
#	��		C	hH�]	�$"4>"G4455�LO6�gls
		Agmod	0	Agfilenamefice-9/psyntax.scm�

	
��	
 	��	
 	 ��	
 	��	%
!	��	&
!	&��	)
!	3��	/
!	&��	0
!	��	0
!	��	A
"	��		Agnameggenerate-temporaries�CO/i20UhX�]"4>"OG"H�$=45	�$'
�&��$""���""���""���""���"4>"OG"H�$=45	�$'
�&��$""���""���""���""����$,45	�$
�&�"""�$,45	�$
�&�"""&4L54L5�CC�gx
	Rgy	Rgfilenamefice-9/psyntax.scm�

'	
��	
(	��	
(	'��	

(	��	#�	��	'
(	��	(�	��	5_	��	9�	��	D`	
��	H�	��	m
)	��	q
)	'��	s
)	����	���
)	����	���_	����	���`	
����	���s	����	��
s	"���	��<s	��=t	��Ft	-��Ot	
��	R	gnamegfree-identifier=?�CO2i30hP�]"4>"OG"H�$=45	�$'
�&��$""���""���""���""���"4>"OG"H�$=45	�$'
�&��$""���""���""���""���"�C�$i45	�$W
�&I�$>45	�$,
�&��&L	��	��6C"���"���"���"���"���"����gx
	Lgy	Lgfilenamefice-9/psyntax.scm�

-	
��	
.	��	
.	'��	

.	��	#�	��	'
.	��	(�	��	5_	��	9�	��	D`	
��	H�	��	m
/	��	q
/	'��	s
/	����	���
/	����	���_	����	���`	
����	����	���|	����	���|	����	���|	����	��"}	��)�	��*	��/�	��0�	��2	��#	L	gnamegbound-identifier=?�CO3iS045)UhH7-.,3#$45$"�"$"4>"G45$"4>"G4�$,45	�$
�	&�"""5�$"$"M4�$,45	�$
�	&�"""5�$"4L
5$
4L
5"6/gwho
	Hgmessage	Hgform		Hgsubform		Hgprops	��gt	�)gprops	&gfilenamefice-9/psyntax.scm�

3	
��	
4	#��	
4	/��	&
4	#��	'
4	/��	.
4	;��	3
4	'��	7
4	��	@
5	��	B
4	��	R
6	��	e
6	'��	g
6	��	z
7	��	�	����	����	����	����	����	����	����	
���
8	����	����	����	����	���	���	���	���	
��*
:	��8
;	��9
;	 ��H
7	��$	H	gnamegsyntax-violation�C-Oi60IHS7KZ8�9J#�h8�]6L�L	���"$	�"�"6�$+�&�$
��"��""���""���L	�4L5		�$��$-45	�$
�&		�"""
4L	
5$"�&	
	"�"��
	"�"�4	5$h�$-45	�$
�&		�"""
4	5$"��
	""4		>G
�$
D�$D�$
D�$D�$
��D�$=�	�		��	���		�
		
	
DD�ge
	6gr	6gw		6gs		6grib		6gmod		6gw			rgms			ogs			ogid		w�gw		w�gmod		w�gn		��gmod	
�gt	��gb	�gmod	
Qgt	\ogb	ogtype	�6gvalue	�6gmod	�6gw		�g
expression		/gwrap	
/gmodule	/gfilenamefice-9/psyntax.scm�

E		��	�	��	
P	 ��	
G	��	
G	*��	
G	
��	#
L	!��	(
L	)��	/
L	��	3
H	��	6
H	��	:
H	��	=
H	(��	B
H	��	E
J	��	K
J	'��	P
J	9��	Q
J	/��	X
J	B��	Y
J	��	w�	��	w
N	��	~Y	���Y	���[	
���Z	����	���\	����	���\	
���P	���P	���Q	���P	���R	���R	$���R	
���S	���S	��T	��T	'��T	��_	
��Z	���	��"`	��#�	��Q`	
��TV	��\V	��lW	��oV	��tX	��wX	#��X	
���d	
���d	���d	
���
M	���
T	���
U	$���
U	���
T	���
V	"���
V	���
T	���
W	#���
W	���
T	���
X	.���
X	&���
T	���
Y	#���
Y	7���
Y	+���
Y	���
T	���
[	����	���
]	.���	'���	���	���	 ���	��
�	���	��
\	���	��1
[	��3
_	��6
_	��]	6	Chx�]"4>"OG"H�$=45	�$'
�&��$""���""���""���""���M[LLO6�gid
		xgfilenamefice-9/psyntax.scm�

B	��	
C	��	
C	$��	

C	��	#�	��	'
C	��	(�	��	5_	��	9�	��	D`	
��	H�	��	xl	��
		xgnamegsyntax-local-binding�CO/:0hx�]"4>"OG"H�$=45	�$'
�&��$""���""���""���""���L	�	�6�gid
		vgfilenamefice-9/psyntax.scm�

a	��	
b	��	
b	$��	

b	��	#�	��	'
b	��	(�	��	5_	��	9�	��	D`	
��	H�	��	v
c	��
		vgnameg syntax-locally-bound-identifiers�CO0Q/Q04;i<<0hp�]"4>"OG"H�$=45	�$'
�&��$""���""���""���""���	��C�gid
		ogfilenamefice-9/psyntax.scm�

>	��	
?	��	
?	$��	

?	��	#�	��	'
?	��	(�	��	5_	��	9�	��	D`	
��	H�	��	n
@	��
		ognameg
syntax-module�C>"G4;i6/>"G4;i:0>"G/0h��]�$74L�5$4L�5$�CCC(C�$?45	�$/
�&#�4L	�5	�"��xCCC�ge
	�gp	�gw		�gmod		�gfirst			@grest		.	>gfilenamefice-9/psyntax.scm�

�	��	
�	��		
�	
��	

�	��	
�	 ��	
�	,��	
�	��	
�	��	 
�	��	!
�	��	&
�	+��	.
�	��	.
�	��	6
�	��	;
�	��	F
�	
��	G
�	��	K�	��	O
�	
��	P�	��	n
�	��	w�	��	y
�	��	~�	���
�	��	�	gnameg
match-each�CO/hxS]�$&4L�5$4L�5�CC(C�$845	�$(
�&�4L	�5"���CCCKge
		xgw		xgmod			xgl			/gfilenamefice-9/psyntax.scm�

�	��	
�	��		
�	
��	

�	��	
�	%��	
�	��	
�	��	
�	��	
�	��	#
�	!��	)
�	��	,
�	��	5
�	
��	6
�	��	:�	��	>
�	
��	?�	��	[
�	��	d�	��	f
�	��	r
�	��		x	gnamegmatch-each-any�CO0,/0���N
h��]
(C&C&�C�$�4L�5"���&�C
��$�"����$'�4L4	�54L	�55"��i�$"�$C	�$�"��8C�gp
	�gr	�gkey		P�gfilenamefice-9/psyntax.scm�

�	��	
�	
��	
�	��	
�	
��	
�	��	
�	
��	
�	��	"
�	��	&
�	��	*
�	
��	-
�	#��	.
�	+��	3
�	8��	7
�	+��	?
�	��	C
�	��	G
�	
��	H
�	$��	K
�	��	P
�	��	P
�	��	_
�	#��	i
�	��	r
�	��	v
�	$��	w
�	$��	z
�	%���
�	.���
�	%���
�	%���
�	2���
�	%���
�	$���
�	���
�	���
�	%���
�	��&	�	gnamegmatch-empty�CO1�Klh(�]�(C454L455�C�gr*
		'gr		'gfilenamefice-9/psyntax.scm�

�	��	
�	��		
�	
��	

�	��	
�	!��	
�	*��	%
�	!��	&
�	��			'	gnamegcombine�CO20��Klh(�]�(LC454L455�C�gl
		%gfilenamefice-9/psyntax.scm�

�	��	
�	'��		
�	��	

�	&��	
�	2��	
�	;��	#
�	2��	$
�	 ��			%gnamegcollect�Ch�]"�$f4L�>G$D('4L�LL5$�DD�4L��L5DD"L4LLLL5D�$845	�$&
�&�4L	�5"��D"���"���"����ge
	�gw	�gxr*			ogy-pat			ogr			ogxr		;	Sgfilenamefice-9/psyntax.scm�

�	
��	
�	��		
�	��	

�	+��	
�	.��	
�	+��	
�	��	&
�	��	,
�	��	-
�	$��	2
�	+��	7
�	;��	;
�	$��	;
�	��	C
�	��	H
�	(��	N
�	 ��	S
�	 ��	T
�	��	W
�	��	X
�	��	]
�	"��	`
�	*��	h
�	��	j
�	��	o
�	��	t
�	��	w
�	 ���
�	���
�	����	���
�	����	���
�	����	���
�	���
�	��&	�	gnamegf�C�UNW
hpn]-((CC�$(�$L��4L��56C&4L5$�CC
��$?(
L�64L�5$OQ6C�$t�	�	�O	L	LQ	4	>G$ ((
L�6L6CC�$��$"3�$+45	�$
�&	��"""$�4L5��$,45	�$
�&�"""�$,45	�$
�&�"""&4L	54L	5�"$CCC
�$�4L5�$CC�$�$L45�6CCfge
	ogp	ogw		ogr		ogmod		ogl		U	egkey		iogl	��gcollect	��gx-pat	��gy-pat	��gz-pat	��gf		��gxr*	�0gy-pat	�0gr	�0gi	�gj	�gfilenamefice-9/psyntax.scm�

�	��	
�	
��	
�	��	
�	��	
�	
��	
�	��	!
�	��	&
�	"��	)
�	*��	,
�	��	1
�	$��	4
�	,��	<
�	��	@
�	��	F
�	��	J
�	
��	K
�	��	U
�	��	]
�	0��	b
�	7��	i
�	��	i
�	��	z
�	���
�	 ���
�	���
�	���
�	*���
�	���
�	���
�	���
�	���
�	���
�	$���
�	5���
�	F���
�	���
�	
��
�	��
�	��
�	�� 
�	)��$
�	��,
�	��9
�	��<e	
��@d	��H�	��Ld	��M�	��if	��|
�	��}
�	1���
�	@���
�	&����	���s	����	���s	"����	���s	���t	��t	-��t	
��
�	��/
�	��3
�	#��4
�	4��=
�	��A
�	��O
�	��R
�	��V
�	��Y
�	��c
�	,��k
�	��L	o	gnamegmatch*�CO	3,/h�D]$|&C&4L5�C"L6�$=45	�$+
�&L�4L	�5	�6"���"���"���C<ge
	�gp	�gw		�gr		�gmod		�gfilenamefice-9/psyntax.scm�

�	��	
�	
��	
�	��	
�	
��	
�	��	
�	
��	
�	��	)
�	��	<	��	<
�	
��	?�	��	C
�	
��	D�	��	d	
��	m�	��	o	
��	v�	��	x	��	�	gnamegmatch�CO4/4Q/0Q01Q12Q24/1-20Q33Q4/,Uhp]&C&C"L6�$545	�$#
�&L�	�	�6"���"���"����ge
		jgp		jgfilenamefice-9/psyntax.scm�
		��		��	

	��		��		��	
	��		��	'	,��	*	��	*
	��	-�	��	1
	��	2�	��	W	1��	\�	��	^	��		j	gnameg$sc-dispatch�C3O+i/01234	

 !"#$%&'()*+,-.4i=+?Jh:]���C2ge1
		
ge2		
		
	CMXYh []���CSgout
		gin		ge1			ge2						C�abch []����CSgout
		gin		ge1			ge2						C3
hP�]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/psyntax.scm�
	��		PC5=R4i5+a23S�hv]456ngmessage
		
garg		
gfilenamefice-9/psyntax.scm�	0	��	
0	��		
	Coqh@]���C8gmessage
		garg					CS�h�]456�gkeyword
		
goperands		
gmessage			
garg			
gfilenamefice-9/psyntax.scm�	%	��	
%	��		
	C�r�s�hg]456_gx
		
gfilenamefice-9/psyntax.scm�
(	1��	*	4��	
)	3��		
Ch8�]4544545�545$	�"6�gkeyword
		8goperands		8gmessage			8garg			8gfilenamefice-9/psyntax.scm�	&	��	'	��	'	,��	(	,��	'	&��	!'	��	",	��	,,	��	8&	��
		8	C
hhv]45"745"	6$4?$@"���"���$4?$	@"���"���ngx
		ggtmp		ggtmp			Hgfilenamefice-9/psyntax.scm�
 	��		gC55R4it+����hZ]�CRgkeyword
		gpattern		gtemplate						C3S�h�]456�gkeyword
		
gpattern		
gmessage			
garg			
gfilenamefice-9/psyntax.scm�	<	��	
<		��		
	C���h j]�����Cbgkeyword
		gpattern		gmessage			garg						C	hP�]45" 45$@6$4?$@"���"����gclause
		Pgtmp		Pgtmp			1gfilenamefice-9/psyntax.scm�
5	��		Pgnameg
expand-clause�C�+���!�����	h@�]4����5��L$
LCC�gk
		<g	docstring		<gkeyword			<gpattern			<gtemplate			<gclause			<gtmp		'	<gfilenamefice-9/psyntax.scm�	'G	��	/N	
��		<	C3h@�]4L545$O@6�gdots
		;gkeys		;g
docstrings			;gclauses			;gtmp			;gtmp			;gfilenamefice-9/psyntax.scm�
A	��		F	��	B	��		;	gnamegexpand-syntax-rules�C+��ht]�Clgtmp-bde397a-19fa
		
gtmp-bde397a-19f9		
gtmp-bde397a-19f8			
		
	Ch�]L456�gk
		gkeyword		gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	T	��			C���3,S�h �]45$456C�gdots
		gk		g	docstring			gkeyword			gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	\	��	
\	��	\	*��	\	!��			C�ht]�Clgtmp-bde397a-1a4b
		
gtmp-bde397a-1a4a		
gtmp-bde397a-1a49			
		
	Ch �]L456�gdots
		gk		g	docstring			gkeyword			gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	]	��			C,h�]6�gdots
		gk		gkeyword			gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	Y	��			C�ht]�Clgtmp-bde397a-1a2c
		
gtmp-bde397a-1a2b		
gtmp-bde397a-1a2a			
		
	Ch�]L456�gdots
		gk		gkeyword			gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	Z	��			CS�h�]456�gk
		
g	docstring		
gkeyword			
gpattern			
gtemplate			
gfilenamefice-9/psyntax.scm�	V	��	
V	��		
	C�ht]�Clgtmp-bde397a-1a13
		
gtmp-bde397a-1a12		
gtmp-bde397a-1a11			
		
	Ch �]L456�gk
		g	docstring		gkeyword			gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	W	��			Ch��]1OQ45$O@45"o45"<45"		
6$4?$O@"���"���$4
?$O@"���"���$4?$O@"��q"��m�gxx
	�g
expand-clause	�gexpand-syntax-rules		�gtmp		�gtmp		8�gtmp		G�gtmp		V�gfilenamefice-9/psyntax.scm�
4	��	�C5tR4i�+����h W]�COgname
		gpattern		gtemplate						C�3S�h�]456�gname
		
gpattern		
g	docstring			
gtemplate			
gfilenamefice-9/psyntax.scm�	g	��	
g	��		
	C���h n]�Cfgname
		gpattern		g	docstring			gtemplate						C	hPv]45$@45"	6$4?$@"���"���ngx
		Pgtmp		Pgtmp		"	Pgfilenamefice-9/psyntax.scm�
`	��		PC5�R4i�+}3m,h�]6�glet*
		
gx		
gv			
ge1			
ge2			
gfilenamefice-9/psyntax.scm�	
q	��		
	C+�hA]C9gbody
		gbinding					C3hH�](LL���C4L�5�45$@6�gbindings
		Cgtmp	!	Cgtmp		,	Cgfilenamefice-9/psyntax.scm�
r	��	s		��	u	!��	u	$��	u	!��	v	$��	!u	
��		Cgnamegf�C�dh(�]
OQ456�glet*
		$gx		$gv			$ge1			$ge2			$gf			$gfilenamefice-9/psyntax.scm�	r	��		$	Ch@e]	45"	6$4?$@"���"���]gx
		9gtmp		9gfilenamefice-9/psyntax.scm�
n	��		9C5�R4i+/6:h(�]L
�$CL4LL�56{gp
		%gfilenamefice-9/psyntax.scm�	~	
��	
~		��	�	,��	!�	9��	#�	,��	%�	
��		%C=Dhq]L4LL�56igp
		gfilenamefice-9/psyntax.scm�	�	:��	�	G��	�	:��	�	��		C_+N�Sh8]C0gtmp-bde397a-1ab0
		
		
CVh@�]L
�$L454LLL56L4L4LL�554LLL56�gp
		>gfilenamefice-9/psyntax.scm�	�	��	
�	��	�	0��	 �	��	#�	��	(�	0��	/�	A��	1�	0��	3�	��	4�	��	>�	��		>CZ�_h8]C0gtmp-bde397a-1ab5
		
		
Cbh@�]L
�$L454LLL56L4L4LL�554LLL56�gp
		>gfilenamefice-9/psyntax.scm�	�	��	
�	��	�	1��	 �	��	#�	��	(�	9��	/�	J��	1�	9��	3�	��	4�	��	>�	��		>Ch`�]45$LLLLO@45$LLLLO@L4LL54LL56�gp
		`gq		`gtmp			`gtmp		/	`gfilenamefice-9/psyntax.scm�	M�	��	V�	)��	`�	��		`	C+dlh)]45C!gx
				C+d�yh8]C0gtmp-bde397a-1b25
		
		
ChV]L456Ngy
		gfilenamefice-9/psyntax.scm�	�	 ��		C|hV]L6Ngy
		gfilenamefice-9/psyntax.scm�	�	��		C�!hh]L4L56`gls
		gfilenamefice-9/psyntax.scm�
�	'��	�	7��	�	4��		Che]LLO6]gy
		gz		gfilenamefice-9/psyntax.scm�	�	 ��			C�	h`�]45$O@45$O@45$
LO@LC�gy
		`gk		`gtmp			`gtmp		'	`gtmp		C	`gfilenamefice-9/psyntax.scm�
�		��		`	gnamegf�C+0�h6]�C.gt-bde397a-1b19
				C3h(t]	45$@6lgls
		"gtmp		"gfilenamefice-9/psyntax.scm�
�	��		"gnamegk�Ch@�]4LL545$@OQ6�gx
		<gx		<gtmp			<gf		-	<gfilenamefice-9/psyntax.scm�	�	��	�	��	-�		��		<C�h��]"45$LLO@45$LLO@45$LLLLO@45$
	LO@
C�gp
	�glev	�gtmp		�gtmp		+�gtmp		K�gtmp		o�gfilenamefice-9/psyntax.scm�
{	��	�	gnamegquasi�CO+_+���h8]C0gtmp-bde397a-1acb
		
		
C�h@�]L
�$L454LLL56L4L4LL�554LLL56�gp
		>gfilenamefice-9/psyntax.scm�	�	��	
�	��	�	0��	 �	��	#�	��	(�	0��	/�	A��	1�	0��	3�	��	4�	��	>�	��		>C���h8]C0gtmp-bde397a-1ad0
		
		
C�h@�]L
�$L454LLL56L4L4LL�554LLL56�gp
		>gfilenamefice-9/psyntax.scm�	�	��	
�	��	�	1��	 �	��	#�	��	(�	��	/�	#��	1�	��	3�	��	4�	��	>�	��		>Chh�]45$LLLLLO@45$LLLLLO@L4LL54LL56�gp
		dgq		dgtmp			dgtmp		1	dgfilenamefice-9/psyntax.scm�	Q�	��	Z�	)��	d�	��		d	C�h]C		
C3hH�]45$LLLLLO@45$@6�gp
		Gglev		Ggtmp			Ggtmp		0	Ggfilenamefice-9/psyntax.scm�
�	��		G	gnamegvquasi�CO+�+�+��h*]L�C"gdx
		
		
C��h8g]	4L5$O@(LCLLC_gdy
		6gtmp		6gfilenamefice-9/psyntax.scm�	$�	��		6C��h-]L��C%gstuff
				C��h-]L��C%gstuff
				C�	hhk]45$
O@45$O@45$O@Ccgx
		bgy		bgtmp			bgtmp		)	bgtmp		E	b		b	C3h0�]45$@6�gx
		+gy		+gtmp				+gtmp			+gfilenamefice-9/psyntax.scm�
�	��		�	��		+	gnameg	quasicons�C+��+0�h)]�C!gp
				C3h8s]L(CL�(L�C4L5$@L6kgtmp
		6gfilenamefice-9/psyntax.scm�	�		��	�	��	�		��	�	��		6
C�!h8]45�C0gp
		gy					C3hP�]45$O@(C45$@6�gx
		Pgy		Pgtmp			Pgtmp		.	Pgtmp		9	Pgfilenamefice-9/psyntax.scm�
�	��	$�		��	.�	��		P	gnamegquasiappend�Ch �](LCL�4L�56�gx
		gfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	��	�	"��	�	��	�	��		gnamegf�Ch �]
OLQ6�gx
		gy		gf			gfilenamefice-9/psyntax.scm�
�	��	�	��			gnameg
quasilist*�CO+�h)]C!gx
		
		
C|�+0h6]�C.gt-bde397a-1b43
				C3h0�]4L545$@6xgx
		-gtmp		-gtmp			-gfilenamefice-9/psyntax.scm�	�	#��	�	��		-C�+�1hR]CJgt-bde397a-1b57
		gt-bde397a-1b56					C3hH�](LL64L�54L�545$@6�gx*
		Cgtmp	!	Cgtmp		,	Cgfilenamefice-9/psyntax.scm�
�		��	�	��	�	��	�	��	�	��	�	��	�	+��	�	.��	�	+��	!�	��		Cgnamegf�Ch t]
OLQ6lgx
		gy		gf			gfilenamefice-9/psyntax.scm�	�		��			C3�+0@h6]�C.gt-bde397a-1b63
				C3h0�]4L545$@6xgx
		-gtmp		-gtmp			-gfilenamefice-9/psyntax.scm�	�	'��	�	��		-CB�+0Oh6]�C.gt-bde397a-1b6f
				C3h0�]4L545$@6xgx
		-gtmp		-gtmp			-gfilenamefice-9/psyntax.scm�	�	'��	�	��		-CQ^ho]	4L5Cggx
		gtmp			gfilenamefice-9/psyntax.scm�	�	.��		�	��		C`h)]C!gx
				C3h��]945$@45$LO@45$LO@45$	LO@4
5$LO@45$
LO@45$@6�gx
	�gtmp	�gtmp		"�gtmp		>�gtmp		Z�gtmp		v�gtmp	��gtmp	��gfilenamefice-9/psyntax.scm�
�	��	�gnamegemit�COQQQQ+bh_]L4L
56Wge
		gfilenamefice-9/psyntax.scm�	�	��	�	��		C3h0e]	45$
LLO@6]gx
		)gtmp		)gfilenamefice-9/psyntax.scm�
�	��		)CO5R4iabcdaefghij�k-h��]#445$"$
45"4L55454$"	>"G">4
5$4>"G64
545�"���4
5"����gfn
	�gdir	�gk		�gp		6�genc		?�gx		e�gresult		e�gfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	��	�	��	*�	��	.�	��	0�	��	4�	��	6�	��	6�	��	9�	��	?�	��	B�	
��	L�	 ��	T�	(��	Y�	
��	e�	
��	f�	��	p�	��	q�	����	����	����	����	����	����	
����	����	����	
��	�	gnameg	read-file�C.7lSm+��+0�h+]�C#gexp
				C3h8�]454LL545$@6�gk
		8gfilename		8gfn				8gtmp			8gtmp		!	8gfilenamefice-9/psyntax.scm�		��				��		$��		��		8	C3hp])OQ45$
45"45$45"45$
	O@
6gx
		ng	read-file	
	ngsrc			ngfile		,	ngdir		E	ngtmp		P	ngfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	��	�	��	%�	(��	'�	��	,�	��	/�	��	9�	��	:�	$��	E�	��
		nC5aR4i�+��-����hH�]45445$"
4L55C�gk
		Agfilename		Agfn				Agt			5gtmp		7	Agfilenamefice-9/psyntax.scm�	
	��		
	��		��	
	 ��	
	��	&	 ��	*	2��	,	2��	2	 ��	7	��	7		��		A	C3h(e]	45$O@6]gx
		'gtmp		'gfilenamefice-9/psyntax.scm�
	��		'C5�R4i�hp]6hgx
		gfilenamefice-9/psyntax.scm�
	��		��		��		��		C5R4iWW�hp]6hgx
		gfilenamefice-9/psyntax.scm�
	��		��		��		��		C5WRTh�]L6�gx
		gfilenamefice-9/psyntax.scm�
!	��	#	��		gnamegtrans�g
macro-typegvariable-transformer�C��Z�h@�]	45$%OQ4>"GC6�gproc
		:gtrans		2gfilenamefice-9/psyntax.scm�

��	 	��	
 	��	!	��	$	��	!$	'��	'$	��	6&	
��	:&	��
		:gnamegmake-variable-transformer�C�R4i�+b����������h8)]	
�C!ge
		1		1C�3,h�]45$6C�gid
		gexp1		gvar			gval			gexp2			gfilenamefice-9/psyntax.scm�	5	��	
5	��	5	��			C�����������hXp]	
�	
�		Chgid
		Wgexp1		Wgvar			Wgval			Wgexp2			W		W	C	hPw]45$@45"	6$4?$@"���"���ogxx
		Pgtmp		Pgtmp		"	Pgfilenamefice-9/psyntax.scm�
)	��		PC5�R4i�+a��h\]���CTgid
		gargs		gb0			gb1						C^3,hh]6`gid
		gval		gfilenamefice-9/psyntax.scm�	C	��			C�h;]C3gid
		gval					C	hPv]45$@45"	6$4?$@"���"���ngx
		Pgtmp		Pgtmp		"	Pgfilenamefice-9/psyntax.scm�
?	��		PC5�RC�g
session-id
	�gtransformer-environment	�gtop-level-eval-hook	��gget-global-definition-hook	��gmaybe-name-value!	��gbuild-application	��ganalyze-variable	��gbuild-simple-lambda	��gbuild-sequence	��gbuild-named-let		��gbuild-letrec	
��gsyntax-object-expression	��g
extend-env	��gextend-var-env	
��gmacros-only-env	��g
global-extend	��gid?	��g
gen-labels	��gmake-binding-wrap	��g
join-wraps	��gsame-marks?	��gid-var-name	��glocally-bound-identifiers	��gvalid-bound-ids?	��gdistinct-bound-ids?	��gbound-id-member?	��gwrap	��gsource-wrap	��gexpand-sequence	��gexpand-top-sequence	��gexpand-install-global	��gparse-when-list	��gsyntax-type	 ��gexpand	!��gexpand-expr	"��gexpand-application	#��gexpand-macro	$��gexpand-body	%��gexpand-local-syntax	&��geval-local-transformer	'��g	ellipsis?	(��glambda-formals	)��gexpand-simple-lambda	*��glambda*-formals	+��gexpand-lambda-case	,��gstrip	-��ggen-var	.��gv	/�g
gen-syntax	/F�Idggen-ref	0F�Idggen-map	1F�Idgregen	2F�Idg
expand-let	/ikpgconvert-pattern	/�r��gbuild-dispatch-call	0�r��g
gen-clause	1�r��ggen-syntax-case	2�r��gsyntax-local-binding	/���g syntax-locally-bound-identifiers	0���g
match-each	/lOgmatch-each-any	0lOgmatch-empty	1lOgcombine	2lOgmatch*	3lOgmatch	4lOgquasi
W�YgvquasiW�Yg	quasicons	W�Ygquasiappend	W�Yg
quasilist*	W�Ygemit	W�YGgfilenamefice-9/psyntax.scm��	���	"���	3���	���	��g	���$	
���$	���L	!���&	���L	!���L	���&	���$	
���$	���M	!���&	���M	!���M	���&	���$	
���O	��O	��O	��'(O	��'1$	
��'6$	��'?p	��'@&	��'Gp	��'Ip	��)v&	��){$	
��)�w	��)�w	��)�w	��Iiw	��Ir	��Iv	��Iy	��O�	��O�,	��O�,	��O�,	��Q�,	��Q�8	��Q�8	��Q�8	��X$8	��X-L	��X1L	��X4L	��^�L	��^�`	��^�`	��^�`	��d�`	��d�s	��d�s	��d�s	��p#s	��p,�	��p0�	��p3�	��u��	��u��	��u��	��u��	��{ �	��{)�	��{-�	��{0�	���]�	���f$	
���k$	���t�	���u&	���|�	���~�	���#&	���($	
���1�	���5�	���8�	���-�	���6	%	���:	%	���<	%	����	%	����$	
����$	����	5	����&	����	5	����	5	����&	����$	
����$	����	@	����&	����	@	����	@	����	@	!����&	����$	
����$	����	B	����&	����	B	����	B	����	B	#����&	����$	
����$	����	D	"����&	����	D	"����	D	����	D	1����&	����$	
���$	���	E	,���&	���	E	,��� 	E	���!	E	E���#&	���($	
���6$	���>	G	���?&	���E	G	���G	G	���H	G	)���J&	���O$	
���X	I	���\	I	���_	I	����	I	���*
	���
	���
	���
	����
	����
	����
&	���
,	����
2	����
j	����
j	��H
j	��Q
k	��Y
k	��`
k	��i
l	��q
l	��x
l	��=	��d[
���	j
C6ice-9/unicode.go000064400000001246150536206120007432 0ustar00GOOF----LE-8-2.0�]4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gunicode�	�		gfilenameS�	
fice-9/unicode.scm�	gexportsS�	gformal-name->char�	
gchar->formal-name�	
�	gset-current-module�	�	�	gload-extension�	g
string-append�	f	libguile-�	geffective-version�	fscm_init_unicode�C5h@�]4	
54>"Gi4i4i556|gm
		(gfilenamefice-9/unicode.scm�		
��	-		��	3		!��	4		-��	<		��	>		��	@		��		@
C6ice-9/iconv.go000064400000007555150536206120007133 0ustar00GOOF----LE-8-2.0U]34h�]gguile�	�	gdefine-module*�	�	�	gice-9�	giconv�	�		gfilenameS�	
fice-9/iconv.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	gbinary-ports�	�	�	grdelim�	�	gselectS�	gread-string�	�	�	�	gexportsS�	gstring->bytevector�	gbytevector->string�	gcall-with-encoded-output-string�	�	gset-current-module�	 �	!�	"gopen-output-string�	#gget-output-string�	$g
close-port�	%gcall-with-output-string*�	&gopen-bytevector-output-port�	'gcall-with-output-bytevector*�	(gerror�	)gset-port-encoding!�	*gset-port-conversion-strategy!�	+gstring-ci=?�	,futf-8�	-gstring->utf8�	.gdisplay�	/gopen-bytevector-input-port�	0geof-object?�	1f�	2gutf8->string�C5h�
{]4	
54!>"G"#$h@�]454>"G454>"GC�gproc
		9gport		9gstr		"	9gfilenamefice-9/iconv.scm�
	
��			��			��	
		��		 	��	"	 	��	%	!	��		9gnamegcall-with-output-string*�C%R&$h@�]4>G4>"G454>"GC�gproc
		@gport		@gget-bytevector			@gbv		)	@gfilenamefice-9/iconv.scm�
	$
��		%	��		%	��		'	��	%	(	��	)	(	��	,	)	��		@gnamegcall-with-output-bytevector*�C'R(')*h@u]4L>"GL$4L>"G"L6mgport
		:gfilenamefice-9/iconv.scm�
	8	��		9		��		:		��		;	
��	:	<		��		:C+,-%hX�-.,3#"O645$&456"���"����gencoding
		Qgproc		Qgconversion-strategy			Qgfilenamefice-9/iconv.scm�
	,
��		.	?��	)	7	��	)	1	��	*	1	��	0	1	!��	2	1	��	6	1	��	:	2	$��	>	1	��	A	6	��	I	6	��
		Q	gnamegcall-with-encoded-output-string�g
documentationfyCall PROC on a fresh port.  Encode the resulting string as a
bytevector according to ENCODING, and return the bytevector.�CR(.h]]L6Ugport
		
gfilenamefice-9/iconv.scm�
	J	��	
	K		��		
C+,-hPx-.,3#"O645$&6"���"���pgstr
		Lgencoding		Lgconversion-strategy			Lgfilenamefice-9/iconv.scm�
	A
��		B	=��	)	H	��	)	E	��	*	E	��	0	E	!��	2	E	��	6	E	��	:	F	$��	>	E	��	D	G	��		L	gnamegstring->bytevector�g
documentationfhEncode STRING according to ENCODING, which should be a string naming
a character encoding, like "utf-8".�CR(/)*$01+,2h�=-.,3#"g454>"G$4>"G"454>"G45$CC4	
5$&6"��z"��v5gbv
	�gencoding	�gconversion-strategy		�gp		!�gres		\�gfilenamefice-9/iconv.scm�
	N
��		O	=��		V	��	!	V	��	$	W	��	=	X	��	>	Y	��	V	Z	��	\	Z	��	_	[	
��	q	\	��	{	\	
��	}	]	���	S	���	S	���	S	!���	S	���	S	���	T	$���	S	���	U	��	�	gnamegbytevector->string�g
documentationf�Decode the string represented by BV.  The bytes in the bytevector
will be interpreted according to ENCODING, which should be a string
naming a character encoding, like "utf-8".�CRCsgm
		,gfilenamefice-9/iconv.scm�		
��N	
���	$
��r	,
���	A
��
�	N
��	
�
C6ice-9/popen.go000064400000052676150536206120007142 0ustar00GOOF----LE-8-2.0�U]j4h�,]gguile�	�	gdefine-module*�	�	�	gice-9�	gpopen�	�		gfilenameS�	
fice-9/popen.scm�	gimportsS�	gthreads�	
�	
�	gsrfi�	gsrfi-9�	�	�	�	gexportsS�	gport/pid-table�	g
open-pipe*�	g	open-pipe�	g
close-pipe�	gopen-input-pipe�	gopen-output-pipe�	gopen-input-output-pipe�	�	gset-current-module�	�	�	 gload-extension�	!g
string-append�	"f	libguile-�	#geffective-version�	$fscm_init_popen�	%g<pipe-info>�	&g%make-pipe-info-procedure�	'gmake-syntax-transformer�	('�	)'�	*gmake-pipe-info�	+gmacro�	,g$sc-dispatch�	-,�	.,�	/g_�	0gany�	1/0�	2g
syntax-object�	3glambda�	4gm-18e47d61-4�	5gtop�	645�	7gribcage�	8gt-18e47d61-3�	98�	:6�	;fl-18e47d61-9�	<;�	=79:<�	>7�	?gx�	@?�	Afl-18e47d61-6�	BA�	C7@:B�	Dgshift�	Eg	proc-name�	Fgargs�	GEF�	H5�	IHH�	Jfl-1e8ba8b5a-60�	Kfl-1e8ba8b5a-61�	LJK�	M7GIL�	Ngkey�	Ogvalue�	Pgname�	Qgformals�	Rgbody�	SNOPQR�	THHHHH�	Ufl-1e8ba8b5a-53�	Vfl-1e8ba8b5a-54�	Wfl-1e8ba8b5a-55�	Xfl-1e8ba8b5a-56�	Yfl-1e8ba8b5a-57�	ZUVWXY�	[7STZ�	\gmake-procedure-name�	]\�	^H�	_fl-1e8ba8b5a-43�	`_�	a7]^`�	bH�	cfl-1e8ba8b5a-42�	dc�	e7@bd�	f6=>CD>>>>M[ae
�	gghygiene�	hg�	i23fh�	jgpid�	kH=>C�	lg�	m2jkl�	nm�	ogmake-struct�	pgm-18e47d61-1�	qp5�	rgt-1e8ba8b5a-133�	sgt-1e8ba8b5a-132�	tgt-1e8ba8b5a-131�	urst�	vgm-1e8ba8b5a-134�	wv5�	xwww�	yfl-1e8ba8b5a-138�	zfl-1e8ba8b5a-139�	{fl-1e8ba8b5a-13a�	|yz{�	}7ux|�	~g	ctor-args�	~��fl-1e8ba8b5a-120�����7b���gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������7�I���gform��g	type-name��gconstructor-spec��gfield-names��������HHHH��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������7�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������HHHHHHHH��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������7�����fl-1e8ba8b5a-da�����7@b���q=>CD>}>>>��>�����2o�h��2%kl��2
�h�����m��in���geach-any��/����gsyntax-violation��������fWrong number of arguments��gidentifier?��������H>C��2&�l��������f-source expression failed to match any pattern��grecord-type-vtable��������gpw��gdefault-record-printer��������j��gset-struct-vtable-name!��������gvtable-offset-user��������g%pipe-info?-procedure��g
pipe-info?��g
m-18e47d61-11���5��g
t-18e47d61-10��������f
l-18e47d61-16�����7�����f
l-18e47d61-13�����7@������>�D>>>>M[ae
��23�h��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220��gt-1e8ba8b5a-223��gt-1e8ba8b5a-222��gt-1e8ba8b5a-221�����������gm-1e8ba8b5a-225���5�����������fl-1e8ba8b5a-229��fl-1e8ba8b5a-22a��fl-1e8ba8b5a-22b��fl-1e8ba8b5a-22c��fl-1e8ba8b5a-22d��fl-1e8ba8b5a-22e��fl-1e8ba8b5a-22f�����������7�����g	copier-id�����fl-1e8ba8b5a-21c�����7�b���g	ctor-name�����fl-1e8ba8b5a-214�����7�b������fl-1e8ba8b5a-212����7�b��glayout��fl-1e8ba8b5a-210��7b�g
immutable?��fl-1e8ba8b5a-20e�	�
7b	�gfield-count��
fl-1e8ba8b5a-20c�
�7b�g
getter-ids��fl-1e8ba8b5a-209��7b�g	field-ids��fl-1e8ba8b5a-206��7b�gpredicate-name�g
field-spec�����HHHHHH�fl-1e8ba8b5a-1f9�fl-1e8ba8b5a-1fa� fl-1e8ba8b5a-1fb�!fl-1e8ba8b5a-1fc�"fl-1e8ba8b5a-1fd�#fl-1e8ba8b5a-1fe�$ !"#�%7$�&q�>�D>�>>>>�>�>>>
>>>%���'2�&h�('�)gand�*2)&h�+gstruct?�,2+&h�-,'�.geq?�/2.&h�0g
struct-vtable�120&h�21'�3H�>��42%3l�5/24�6*-5�7�(6�8H>��92�8l�:gthrow-bad-struct�;:�<:�=g
pipe-info-pid�>g%pipe-info-pid-procedure�?gfree-id�@g
%%on-error�Ag
m-18e47d61-1d�BA5�CB�Df
l-18e47d61-1f�ED�F7@CE�GB>FD>>>>M[ae�H2@Gh�I?H�JI0�Kg%%type�Lgt-1e8ba8b5a-14b�Mgt-1e8ba8b5a-14c�Ngt-1e8ba8b5a-14d�Ogt-1e8ba8b5a-14e�Pgt-1e8ba8b5a-14f�Qgt-1e8ba8b5a-150�Rgt-1e8ba8b5a-151�SLMNOPQR�Tgm-1e8ba8b5a-152�UT5�VUUUUUUU�Wfl-1e8ba8b5a-156�Xfl-1e8ba8b5a-157�Yfl-1e8ba8b5a-158�Zfl-1e8ba8b5a-159�[fl-1e8ba8b5a-15a�\fl-1e8ba8b5a-15b�]fl-1e8ba8b5a-15c�^WXYZ[\]�_7SV^�`ggetter�agindex�b`a�cfl-1e8ba8b5a-149�dfl-1e8ba8b5a-14a�ecd�f7bIe�g���hHHH�ifl-1e8ba8b5a-144�jfl-1e8ba8b5a-145�kfl-1e8ba8b5a-146�lijk�m7ghl�nq>FD>_>>>f>m���o2Knh�p?o�q/Jp0�rgck�sgerr�tgs�ust�vBB�wf
l-18e47d61-22�xf
l-18e47d61-23�ywx�z7uvy�{Bz>FD>>>>M[ae
�|2r{h�}gquote�~2}{h�Hz>F��2%l��~������g%%index��2�nh��?���/J�0��f
l-18e47d61-27��f
l-18e47d61-28������7uv���B�>FD>>>>M[ae
��2r�h��2}�h���>F��2
�l���������g%%copier��2�nh��?���/J�0��f
l-18e47d61-2c��f
l-18e47d61-2d������7uv���B�>FD>>>>M[ae
��2r�h��2}�h��g%%<pipe-info>-set-fields��H�>F��2��l���������g
t-18e47d61-1c�����f
l-18e47d61-31�����7�C���B�>FD>>>>M[ae
��23�h��q�>FD>_>>>f>m����2t�h�����gif��2��h��2.�h��20�h������H�>F��2%�l�������g
struct-ref��2��h���>F��2
�l�������2:�h��2}�h��2=�l����������������������H>F��2>�l��geach��00������0Č��0Ō��0ƌ��g%%set-fields��gdummy��gcheck?��gexpr����t`���g
m-18e47d61-38���5���qqqq��f
l-18e47d61-3d��f
l-18e47d61-3e��f
l-18e47d61-3f��f
l-18e47d61-40��f
l-18e47d61-41���������7��������f
l-18e47d61-3a�����7@����gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d���5�������fl-1e8ba8b5a-171��fl-1e8ba8b5a-172��fl-1e8ba8b5a-173�������7�����fl-1e8ba8b5a-167��fl-1e8ba8b5a-168��fl-1e8ba8b5a-169�������7gh���q�>�D>�>>>���
��2��h��H�>���2%�l��2=�l�����gmap��������glist��gset-pipe-info-pid!��g%set-pipe-info-pid!-procedure��/00��g
m-18e47d61-4c���5��g
t-18e47d61-4a��g
t-18e47d61-4b����������f
l-18e47d61-51�f
l-18e47d61-52���7�����f
l-18e47d61-4e��7@��>D>>>>M[ae
�23h�	gt-1e8ba8b5a-18c�
gt-1e8ba8b5a-18d�	
�gm-1e8ba8b5a-18e�
5�

�fl-1e8ba8b5a-192�fl-1e8ba8b5a-193��7�gsetter�P`�fl-1e8ba8b5a-186�fl-1e8ba8b5a-187�fl-1e8ba8b5a-188��7h�a�fl-1e8ba8b5a-17d�fl-1e8ba8b5a-17e��7I�gfield-specs� ��!fl-1e8ba8b5a-179�"fl-1e8ba8b5a-17a�#!"�$7 I#�%q>D>>>$���&2t%h�'gval�(2'%h�)&(�*2�%h�+2.%h�,20%h�-,&�.H>�/2%.l�0+-/�1gstruct-set!�221%h�3>�42
3l�52&4(�62:%h�72}%h�82�.l�978�:6&9�;*05:�<);�=H>�>2�=l�?gmake-soft-port�@g
write-char�Agdisplay�Bgforce-output�Cg	read-char�Dg
close-port�Efr+�Fgmake-rw-port�Gg
make-guardian�Hg
pipe-guardian�Igmake-weak-key-hash-table�Jg
make-mutex�Kgport/pid-table-mutex�Lgapply�Mgopen-process�Ng%make-void-port�Og%set-port-property!�Pgpopen-pipe-info�Qg
lock-mutex�R
Q�S
Q�Tgunlock-mutex�U
T�V
T�Wg
hashq-set!�Xf/bin/sh�Yf-c�Zg%port-property�[gfetch-pipe-info�\gwaitpid�]g
close-process�^gerror�_f-close-pipe: port not created by (ice-9 popen)�`f(close-pipe: pid has already been cleared�agcatch�bgsystem-error�cgWNOHANG�dg
reap-pipes�eg	add-hook!�fg
after-gc-hook�gg	OPEN_READ�hg
OPEN_WRITE�ig	OPEN_BOTH�C5h@%4]4	
54>"G4 i4!i"4#i55$>"G%hy]�Cqgpid
		
gfilenamefice-9/popen.scm�
	
��		
gnameg%make-pipe-info-procedure�C&R4)*+.1�h4]C,gt-18e47d61-3
		
		
C��*�hR]L6Jga
		gfilenamefice-9/popen.scm�		
��		C/�hB]L6:gfilenamefice-9/popen.scm�		
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/popen.scm�
	
��		nC5*R���%Ȩ4�%>"G	Ζ&i�%R%hu]�$��CCmgobj
		gfilenamefice-9/popen.scm�
	
��		gnameg%pipe-info?-procedure�C�R4)�+.17h5]C-g
t-18e47d61-10
		
		
C����hR]L6Jga
		gfilenamefice-9/popen.scm�		
��		C/�hB]L6:gfilenamefice-9/popen.scm�		
��		
C9h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/popen.scm�
	
��		nC5�R%<=hv]�&
�C6ngs
		gfilenamefice-9/popen.scm�
	
��		gnameg%pipe-info-pid-procedure�C>R4)=+.q|�h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C1�h5]C-g
t-18e47d61-1c
		
		
C��=�hR]L6Jga
		gfilenamefice-9/popen.scm�		
��		C/�hB]L6:gfilenamefice-9/popen.scm�		
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/popen.scm�
	
��	�C5=R4)�+.������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/popen.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R%<�h �]�&
�C6�gs
		gval		gfilenamefice-9/popen.scm�
	
��			gnameg%set-pipe-info-pid!-procedure�C�R4)�+.�<hP]CHg
t-18e47d61-4a
		g
t-18e47d61-4b					C����hR]L6Jga
		gfilenamefice-9/popen.scm�		
��		C/�hB]L6:gfilenamefice-9/popen.scm�		
��		
C>h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/popen.scm�
	
��		nC5�R?@hZ]L6Rgc
		
gfilenamefice-9/popen.scm�
	&	��	
	&	��		
CAhZ]L6Rgs
		
gfilenamefice-9/popen.scm�
	'	��	
	'	��		
CBhJ]L6Bgfilenamefice-9/popen.scm�
	(	��		(	��		
CChJ]L6Bgfilenamefice-9/popen.scm�
	)	��		)	��		
CDh R]4L>"GL6Jgfilenamefice-9/popen.scm�
	*	��		*	��		*	&��		
CEh0�]OOOOO6�g	read-port
		0g
write-port		0gfilenamefice-9/popen.scm�
	#
��	,	%	��	.	+	��	0	$	��		0	gnamegmake-rw-port�CFR4Gi5HR4Ii	5R4Ji5KRLMFN%HOPKShB]L6:gfilenamefice-9/popen.scm�
	O	��		
CVhB]L6:gfilenamefice-9/popen.scm�
	O	��		
CWh-13	4>G$$
45""$"$"$"45�4>"G4>"G	
OO4
O>"GV4
>"GX4O>"GCgmode
		�gcommand		�gargs			�g	read-port		�g
write-port		�gpid		�gt		B	rgport		y�g	pipe-info		y�gx	��
gfilenamefice-9/popen.scm�
	7
��	
	?	��		>	��	)	A	��	0	B	��	B	A	��	i	E	��	y	F	��	y	A	��	~	K	���	L	���	L	"���	L	���	O	���	P	
���	O	��		�	
	gnameg
open-pipe*�g
documentationf[Executes the program @var{command} with optional arguments
@var{args} (all strings) in a subprocess.
A port to the process (based on pipes) is created and returned.
@var{mode} specifies whether an input, an output or an input-output
port to the process is created: it should be the value of
@code{OPEN_READ}, @code{OPEN_WRITE} or @code{OPEN_BOTH}.�CRXYh�]6�gcommand
		gmode		gfilenamefice-9/popen.scm�
	T
��		Z	��	
	Z	��		Z	��			gnameg	open-pipe�g
documentationf;Executes the shell command @var{command} (a string) in a subprocess.
A port to the process (based on pipes) is created and returned.
@var{mode} specifies whether an input, an output or an input-output
port to the process is created: it should be the value of
@code{OPEN_READ}, @code{OPEN_WRITE} or @code{OPEN_BOTH}.�CRZPh�]6xgport
		
gfilenamefice-9/popen.scm�
	\
��		]	��	
	]	��		
gnamegfetch-pipe-info�C[RD\h �]4>"G45�C�gport
		gpid		gfilenamefice-9/popen.scm�
	_
��		`	��		a	��		a	��			gnameg
close-process�C]R[^_%<=`�]
h��]45$"4>"G�&
�"	45$"4>"G�&

�"4>"G	6�gp
	�g	pipe-info		�gpid		A�gfilenamefice-9/popen.scm�
	c
��		g	��			g	��		h	��		i	��		i	
��		i	��	*	j	��	A	j	��	I	k	��	N	l	��	R	l	��	W	l	��	b	n	���	o	��	�gnameg
close-pipe�g
documentationf�Closes the pipe created by @code{open-pipe}, then waits for the process
to terminate and returns its status value, @xref{Processes, waitpid}, for
information on how to interpret this value.�CRH%<=ab\cH%<�h8�]4L5�
�$L6L�&L
�CL6�g
pid/status
		3gfilenamefice-9/popen.scm�
	}	��		~	"��		~	��			��			��			��	�	��	�	��			3
ChX-13CPgargs
			gfilenamefice-9/popen.scm�
�	��			


C	hh�]"Y45$J�&
�"	45$!4O>"G""���C"����g	pipe-info
		_gpid	-	Ygfilenamefice-9/popen.scm�
	q
��		r	��		s	��		s	��		t	��		u	��	-	u	��	5	w	
��	6	|	��	:	|	��	J	|	��	]�	��	_	r	��		c
gnameg
reap-pipes�CdR4eifidi>"Ggh�]6�gcommand
		
gfilenamefice-9/popen.scm�
�
��	
�	��		
gnamegopen-input-pipe�g
documentationf9Equivalent to @code{open-pipe} with mode @code{OPEN_READ}�CRhh�]6�gcommand
		
gfilenamefice-9/popen.scm�
�
��	
�	��		
gnamegopen-output-pipe�g
documentationf:Equivalent to @code{open-pipe} with mode @code{OPEN_WRITE}�CRih�]6�gcommand
		
gfilenamefice-9/popen.scm�
�
��	
�	��		
gnamegopen-input-output-pipe�g
documentationf9Equivalent to @code{open-pipe} with mode @code{OPEN_BOTH}�CRC,gm
		,grtd
}�gfilenamefice-9/popen.scm�		
��	-		��	2		��	8		!��	9		-��	A		��	C		��	H		���	
��	#
��	/	��"	/
��#	4	��/	4
��0	5	��;	5
��A	7
��S	T
���	\
���	_
��b	c
��"5	q
��"6�
��#G�
��$A�
��%>�
��	%@
C6ice-9/slib.go000064400000001522150536206120006732 0ustar00GOOF----LE-8-2.0:]4h]gassq-ref�	g%guile-build-info�	gdatadir�	g
string-append�	f/slib/guile.init�	gfile-exists?�	gguile�	�		gload-in-vicinity�	
	�		�	fice-9�	
f
/usr/share�	gload-from-path�	fslib/guile.init�C5h�P]4ii54i54i5$4>"G"$C4i
54i5$4>"G"$Ci6Hgdir
		Kginit		Hgt
	K�ginit
	a�gt
��gfilenamefice-9/slib.scm�
	
��			��	
		,��			��			��			��			1��			��			��			��	+		��	,		��	K		��	W		��	]		��	_		1��	a		��	a		��	d		��	p		��	q		���		���	 	���	 	��	�
C6ice-9/eval-string.go000064400000007443150536206120010244 0ustar00GOOF----LE-8-2.0]G4hm]gguile�	�	gdefine-module*�	�	�	gice-9�	geval-string�	�		gfilenameS�	
fice-9/eval-string.scm�	gimportsS�	gsystem�	
gbase�	gcompile�	
�	�	glanguage�	
�	�	gvm�	gprogram�	�	�	�	greplacementsS�	�	gset-current-module�	�	�	g	language?�	glookup-language�	 gensure-language�	!glangS�	"!��	#"�	$gcurrent-language�	%g
parameter?�	&%�	'%�	(g	scm-error�	)gwrong-type-arg�	*fparameterize�	+fNot a parameter: ~S�	,glanguage-reader�	-gcurrent-module�	.geof-object?�	/glanguage-evaluator�	0g
read-and-eval�	1gmoduleS�	21��	3gfileS�	43	��	5glineS�	65	��	7gcolumnS�	87	��	9!	��	:gcompile?S�	;:	��	<24689;�	=gcall-with-input-string�	>gset-port-filename!�	?gset-port-line!�	@gset-port-column!�	Agmake-program�	Bgread-and-compile�	CgfromS�	DgtoS�	Egobjcode�	Fgsave-module-excursion�C5h�	q]4	
54>"Gh�]45$C6�gx
		gfilenamefice-9/eval-string.scm�
	
��			��	
		��			��		gnamegensure-language�C R#$'()*+ ,-./$-,.hP]4445545>G44455L45545$E"���gexp
		Lgvals		Lgnext		3	Lgfilenamefice-9/eval-string.scm�
	+	
��		$	��		$	��		$	��	
	$	��		$	3��		$	��		,	��	 	"	��	!	"	��	$	"	��	*	"	��	-	"	1��	3	"	��	3	/	��	6	1	��	@	0	��	D	2	��	L	4	��		Lgnameglp�C
h�Q-/03#4545$"4>"G�4	�455Y44	4554
5545$"OQ4>ZCZFIgport
	�glang	�gt-6f52a6ff84e411f-7		"�gexp		x�glp	��gfilenamefice-9/eval-string.scm�
	
��			)��	"	 	��	Z	 	#��	b	 	��	e	"	��	f	"	��	i	"	��	o	"	��	r	"	1��	x	"	��	x	&	��	{	'	
���	'	���	+	
��	�
glangS�gnameg
read-and-eval�C0R<-$ =>?@/ABCDE0!
h��]L$4L>"G"L$4LL>"G"L$4LL>"G"L$4LL>"G"L$"4L5�$44LL	
556LL6�gfilenamefice-9/eval-string.scm�
	K	��		L	
��			M	��	$	N	
��	%	O	��	B	P	
��	C	Q	��	`	R	
��	a	S	��	~	U	���	U	 ���	U	���	U	
���	V	���	V	���	V	E���	V	���	V	���	V	���	W	��	�
CFhX]4L>"GL6Pgfilenamefice-9/eval-string.scm�
	@		��		A	��		B	��		
Ch8�]	OLLLLLLQL$
LO66�gport
		8gthunk		8gfilenamefice-9/eval-string.scm�
	H	��		I	��	'	>	��	4	?	��	8	C	��		8Chxs-/03#45####45#45O6kgstr
		qgmodule		qgfile			qgline			qgcolumn			qglang			qgcompile?			qglang		X	qgfilenamefice-9/eval-string.scm�
	6
��		7	��	B	;	��	R	E	��	X	E	��	q	F	��		q
gmoduleS�gfileS	�glineS	�gcolumnS	�glangS	�gcompile?S	�gnamegeval-string�CRCigm
		,gfilenamefice-9/eval-string.scm�		
���	
���	
��	�	6
��		�
C6ice-9/pretty-print.go000064400000056136150536206120010475 0ustar00GOOF----LE-8-2.0F\]�4h]gguile�	�	gdefine-module*�	�	�	gice-9�	gpretty-print�	�		gfilenameS�	
fice-9/pretty-print.scm�	gimportsS�	gmatch�	
�	
�	gsrfi�	gsrfi-1�	�	�	grnrs�	gbytevectors�	�	�	�	gexportsS�	gtruncated-print�	�	gset-current-module�	�	�	gmake-string�	ggenwrite:newline-str�	 g
string-length�	!f(�	"gfold�	#f �	$f)�	%gobject->string�	&gdisplay�	'gwrite�	(gquote�	)f'�	*g
quasiquote�	+f`�	,gunquote�	-f,�	.gunquote-splicing�	/f,@�	0f        �	1g	substring�	2gmin�	3g
generic-write�	4f�	5greverse-string-append�	6gvector->list�	7f#�	8gsymbol->string�	9f.�	:glambda�	;glambda*�	<glet*�	=gletrec�	>gdefine�	?gdefine*�	@g
define-public�	Ag
define-syntax�	Bg
let-syntax�	Cg
letrec-syntax�	Dgwith-syntax�	Egif�	Fgset!�	Ggcond�	Hgcase�	Igand�	Jgor�	Kglet�	Lgbegin�	Mgdo�	Ngsyntax-rules�	Ogsyntax-case�	Pgstring-set!�	Qg
string-ref�	RgportS�	SR	��	TgwidthS�	UT	��	Vgmax-expr-widthS�	WV	��	Xgdisplay?S�	YX	��	Zgper-line-prefixS�	[Z	��	\SUWY[�	]gcurrent-output-port�	^X	��	_gbreadth-first?S�	`_	��	aSU^`�	bg%default-port-encoding�	cg
port-encoding�	dgcatch�	egencoding-error�	fg!%default-port-conversion-strategy�	ggerror�	hgwith-output-to-string�	ik& �	jf...�	kgmax�	lgfloor�	mfexpected a positive width�	nglength�	ogcdr�	pf#(�	qg
vector-length�	rg
vector-ref�	sgidentity�	tgbytevector?�	ugformat�	vf#~a(�	wg
array-type�	xgarray-length�	yg	array-ref�	zf. �	{gstring-prefix?�	|gstring-suffix?�	}f~a~a~a~a�	~f#<�	f>��~���p$���!$���f"�������������gwith-output-to-port�C5h�R�]4	
54>"G4i
5R h(�]$4L5$45�CCC�gstr
		"gcol		"gfilenamefice-9/pretty-print.scm�
	9	��		:	��			:	
��		:	��		:	!��		:	��		"	gnamegout�C!"#h(�]L$4L5$�""6�gi
		'gcol		'gfilenamefice-9/pretty-print.scm�
	G	��		:	��	
	:	
��		H	%��		:	
��		:	��		:	!��		:	��	'	H	��
		'	C$%&' ()*+,-./hX�]""��$����$V4L$4L5$�""54LLO5$4L5$�CCC4L$"5$4L5$45�CCC4L$"5$4L5$45�CCC�$j��	&��$��(y�L	�$
".�$"
�$"�$"$4L5$45�""6"���"��|&��$��(y�L	�$
".�$"
�$"�$"$4L5$45�""6"���"���
&��$��(y�L	�$
".�$"
�$"�$"$4L5$45�""6"��R"��N&��$��(y�L	�$
".�$"
�$"�$"$4L5$45�""6"���"���"���"����gobj
	Wgcol	Wgw		�gx		�gcol		D	tgcol		X	tgstr	��gstr	��gw	�Sgx	�Sgw	�ghead	Vgstr	V�gw	�ghead	��gstr	�gw	:�ghead	B�gstr	��gw	�Gghead	�gstr	Egfilenamefice-9/pretty-print.scm�
	=	��		?	��		E	��	)	:	��	*	:	
��	.	E	$��	0	:	
��	4	:	��	7	:	!��	8	:	��	D	E	��	D	E		��	G	G	��	X	F	��	`	:	��	a	:	
��	e	F	��	g	:	
��	k	:	��	n	:	!��	o	:	��	u	K	��		K	"���	K	���	K		���	:	���	:	
���	:	���	:	!���	:	���	K	���	K	"���	K	���	K		���	:	���	:	
���	:	���	:	!���	:	���	?	��	2	��	2	��	3	��!	4	��.	3	��0	5	��=	3	��?	6	��L	3	��N	7	��V	A	��^	:	��_	:	
��i	:	��l	:	!��s	:	���	A		���	?	���	2	���	2	���	3	���	4	���	3	���	5	���	3	���	6	���	3	���	7	���	A	���	:	���	:	
��	:	��	:	!��
	:	��	A		��	?	��B	2	��B	2	��M	3	��O	4	��\	3	��^	5	��k	3	��m	6	��z	3	��|	7	���	A	���	:	���	:	
���	:	���	:	!���	:	���	A		���	?	���	2	���	2	���	3	���	4	���	3	���	5	��	3	��	6	��	3	��	7	��	A	��#	:	��$	:	
��.	:	��1	:	!��8	:	��G	A		��K	?	��q	W	gnamegloop�Ch �]
OLLLQ6�gobj
		 gcol		 gloop		
	 gfilenamefice-9/pretty-print.scm�
	<	��	
	=	��		 	gnamegwr�C01 hp>]

�$b	�$-	�$4L5$		�"""���4
5$4L5$45�CCCC6gn
		ogcol		ogstr		J	lgfilenamefice-9/pretty-print.scm�
	O	��		P	
��	
	P	��		Q	��		Q	��		R	��		:	��		:	
��	#	R	��	%	:	
��	)	:	��	-	:	!��	.	:	��	@	R	
��	A	S	��	E	S	��	J	S	��	J	S	
��	R	:	��	S	:	
��	]	:	��	`	:	!��	g	:	��		o	gnamegspaces�C hh]
$^�$J4L5$45�"$#4LL5$
4L5�$L
6CCCL�6Cgto
		hgcol		hgstr			2gfilenamefice-9/pretty-print.scm�
	V	��		W	��	
	X	��		X	��		Y	��		:	
��	 	:	��	#	:	!��	*	:	��	6	Y	
��	7	:	
��	A	Y	
��	C	:	!��	J	:	��	N	:	��	U	[	��	b	\	��	f	\	
��		h	gnamegindent�C234 h �]M�NM45�NM
�C�gstr
		gfilenamefice-9/pretty-print.scm�
	c	��		d	��			d	��		e	!��		e	��		e	��		f	��		C5 67!
h��],�$"�$�4L���L5HH4LLO>"GJ
�$)4J5$4L5$45�CCC�$
645$4L5$�""$4L	5$�""LL6L6�gobj
	�gcol	�gextra		�gpp-pair		�gresult		&�gleft		&�gstr		[	}gl	��gcol	��gcol	��
gfilenamefice-9/pretty-print.scm�
	^	��		_	��			_	
��	
	_	��		_	��		_	��		`	��		a	��		a	��	!	a	��	"	a	��	&	a	��	&	`	��	+	b	
��	6	b	8��	D	b	
��	P	g	��	T	g	
��	U	h	��	[	h	��	c	:	��	d	:	
��	n	:	��	q	:	!��	x	:	���	i	���	i	���	j	���	k	���	:	���	:	
���	k	/���	:	
���	:	���	:	!���	:	���	k	���	:	���	:	
����	���	:	
���	:	���	:	!���	:	����	����	���	l	��0	�	gnamegpr�C(*,.)+-/ 8!h�x]���$"!�$"�$"�$�$��""${L����$".�$"�$"�$"$4L5$4	5�""L6��$|4L5$
64	4
55	�$LL64L�$4L5$�""5$L��L6C$4L5$�""LL6pgexpr
	�gcol	�gextra		�ghead			Zgtail			Zghead		g�gstr	��ghead	��gproc	�agcol*	Gagcol	��gfilenamefice-9/pretty-print.scm�
	n	��		)	��		)	��		)	��		*	��	B	(	��	F	(	��	I	(	/��	J	(	(��	^	o	��	c	/	��	g	2	��	g	2	��	r	3	��	t	4	���	3	���	5	���	3	���	6	���	3	���	7	���	q	���	:	���	:	
���	:	���	:	!���	:	���	p	���	t	���	t	���	u	���	u	
���	v	���	v	���	w	���	x	���	y	��	y	&��
	y	��
	y	��	y	�� 	{	��!�	��&�	��,	:	��-	:	
��1�	&��3	:	
��7	:	��:	:	!��;	:	��G�	��G�	��O�	��T�	��Y�	&��_�	
��g	:	��h	:	
��l�	��n	:	
��r	:	��u	:	!��v	:	����	����	��C	�	gnamegpp-expr�C$9h�/]%"�$|�$4�(�"
4L�4L55"���(4L5$�CCL4L4L4L4L555�56C"��p'gl
	�gcol1	�gcol2		�gextra		�gpp-item		�gl		�gcol		�grest			Ggextra		&	G	gfilenamefice-9/pretty-print.scm�
�	��	�	��	�	��	�	��	�	
��	�	 ��	�	��	�	#��	!�	4��	&�	��	+�	��	0�	"��	1�	*��	?�	��	G�	��	M�	
��	N	:	
��	R�	��	T	:	
��	X	:	��	[	:	!��	\	:	��	c�	��	d�	��	i�	��	n�	*��	r�	/��	s�	3��	}�	*��	�	����	����	����	����	��#	�	gnamegpp-down�C!#h�P]?"m"	

	"Y$K�$@��(�"

4L4L
	5
5

	""���"���"c"L	6$G�$<��(�"

4L4L
	5
5	""���"���"L	6��4L$4L5$�""5	"	�		�
	"���$U�$J�
�4L
	$4L5$	�""5	��
	"��u"���"���Hgexpr
	�gcol	�gextra		�gnamed?		�gpp-1		�gpp-2		�gpp-3		�grest			sgcol1			sgcol2				sgcol3	
		sgval1		.	kgrest		3	kgextra	
	C	kgrest		w�gcol1		w�gcol2			w�gcol3	
	w�gval1	��grest	��gextra	
��grest	��gcol1	��gcol2		��ghead	��grest	��gcol*		�gname	
J�grest	O�gcol**	w�gfilenamefice-9/pretty-print.scm�
�	��	�	��	�	
��	�	��	'�	��	+�	��	.�	��	.�	
��	3�	��	3�	
��	;�	��	>�	)��	C�	
��	J�	��	O�	&��	]�	��	k�	��	w�	����	����	����	����	����	����	
����	����	
����	����	)����	
����	����	&����	����	����	����	����	����	����	����	����	��	:	��	:	
���	!��	:	
��	:	��	:	!��	:	���	���	��)�	��.�	2��:�	
��:�	��C�	��G�	��J�	��J�	
��O�	��O�	
��R�	��\	:	��]	:	
��a�	&��c	:	
��g	:	��j	:	!��k	:	��w�	��w�	
����	����	5����	��I	�	gnameg
pp-general�C!h8�]$4L5$�""LL6�gl
		1gcol		1gextra			1gcol		!	1gfilenamefice-9/pretty-print.scm�
�	��		:	��			:	
��	
�	��		:	
��		:	��		:	!��		:	��	!�	��	1�	��		1	gnamegpp-expr-list�Ch�]LLL6�gexpr
		gcol		gextra			gfilenamefice-9/pretty-print.scm�
�	��	�	��			gnameg	pp-LAMBDA�C!hH(]4L�$4L5$�""5$L��L6C gexpr
		Cgcol		Cgextra			Cgcol*		)	Cgfilenamefice-9/pretty-print.scm�
�	��	�	��	�	��		:	��		:	
��	�	&��		:	
��		:	��		:	!��		:	��	)�	��	)�	��	1�	��	6�	��	;�	&��	A�	
��		C	gnamegpp-COND�Ch�]LLLL6�gexpr
		gcol		gextra			gfilenamefice-9/pretty-print.scm�
�	��	�	��			gnamegpp-DO�C:;<=>?@ABCDEFh�]LLL6�gexpr
		gcol		gextra			gfilenamefice-9/pretty-print.scm�
�	��	�	��			gnamegpp-IF�CGHh�]LLL6�gexpr
		gcol		gextra			gfilenamefice-9/pretty-print.scm�
�	��	�	��			gnamegpp-CASE�CIJ!hH']4L�$4L5$�""5$L��L6Cgexpr
		Cgcol		Cgextra			Cgcol*		)	Cgfilenamefice-9/pretty-print.scm�
�	��	�	��	�	��		:	��		:	
��	�	&��		:	
��		:	��		:	!��		:	��	)�	��	)�	��	1�	��	6�	��	;�	&��	A�	
��		C	gnamegpp-AND�CKh0]��$��"LLL6�gexpr
		*gcol		*gextra			*grest			*gnamed?			*gfilenamefice-9/pretty-print.scm�
�	��	�	��	�	��	
�	��	�	��	�	0��	�	'��	�	��	*�	��
		*	gnamegpp-LET�CLh�]LL6�gexpr
		gcol		gextra			gfilenamefice-9/pretty-print.scm�
�	��	�	��			gnamegpp-BEGIN�CMNOh�]LLL6�gexpr
		gcol		gextra			gfilenamefice-9/pretty-print.scm�
�	��	�	��			gnamegpp-SYNTAX-CASE�ChXz]�$"��$"u�$"g�$"Y�$"K�$"=�$"/�$"!	�$"
�$"�$LC�$"
�$
LLOC�$LC�$LLLOC�$"�$LLLLOC�$LLLOC�$
LLOC�$LC�$LC�$LLLOCCrghead
	Xgfilenamefice-9/pretty-print.scm�
�	��	�	��	Xgnamegstyle�Ch�]ZOOOOOOOO		O

OO	LQLLQLLLLLQLLQLLQLLQLQQ	LLQ
QLL
	Q
6|gobj
	gcol	gspaces	�gindent	�gpr	�gpp-expr	�gpp-down	�g
pp-general	�gpp-expr-list	�g	pp-LAMBDA		�gpp-COND	
�gpp-DO	�gstyle	�
gfilenamefice-9/pretty-print.scm�
	M	���	��		gnamegpp�C h�r]OOOQQQ45$
45�"$44
5>"G"4
>"GCjgobj
	�gdisplay?	�gwidth		�gmax-expr-width		�gper-line-prefix		�goutput		�gout		"�gwr		"�gpp		"�	gfilenamefice-9/pretty-print.scm�
	$
��	B	:	
��	L	:	��	N	:	!��	U	:	��	`�	��	a�	��	f�	��	r�	��	�	��	�	gnameg
generic-write�C3R PQh��]*�$n�454L��5"7�$+445>"G��"���C
45��"���6�gl
		}gi		}gstr			wglen			wgresult		$	wgj		*	agk		*	agfilenamefice-9/pretty-print.scm�
	��		��			��		��		��		��		��		��		(��	"	0��	$	��	$	��	*	��	/	��	3	
��	4		��	;		$��	H		��	S
	��	V
	��	^
	��	a	��	c	"��	l	��	o	��	w	��	}	��		}	gnamegrev-string-append�Ch�]	OQ
6�gl
		grev-string-append	
	gfilenamefice-9/pretty-print.scm�
�
��		��		gnamegreverse-string-append�C5R\]43 &hc]4L>"GC[gs
		gfilenamefice-9/pretty-print.scm�
$	��	$	��		Ch��-/03##$"45#	O#	2##45�O6�gobj
		ygport*		ygport			ygwidth			ygmax-expr-width			ygdisplay?			ygper-line-prefix			ygfilenamefice-9/pretty-print.scm�

��	(	��	/	'��	Z	(��	e!	��	l!	��	y 	��		ygportS	�gwidthS	�gmax-expr-widthS	�gdisplay?S	�gper-line-prefixS	�gnamegpretty-print�g
documentationfPretty-print OBJ on PORT, which is a keyword argument defaulting to
the current output port.  Formatting can be controlled by a number of
keyword arguments: Each line in the output is preceded by the string
PER-LINE-PREFIX, which is empty by default.  The output lines will be
at most WIDTH characters wide; the default is 79.  If DISPLAY? is
true, display rather than write representation will be used.

Instead of with a keyword argument, you can also specify the output
port directly after OBJ, like (pretty-print OBJ PORT).�CRa]bcdefgh&ih\]6Tgfilenamefice-9/pretty-print.scm�
E	��	@	��	F	��		
Ch\]Y4>ZCZFTgfilenamefice-9/pretty-print.scm�
B	
��	C	=��		D	��		
Cjhx-13Cpgkey
			gargs			gfilenamefice-9/pretty-print.scm�
G	
��	H	��			
C &bchklh8�]L4LLL5L$44LLL��5�5"LL��6�gfilenamefice-9/pretty-print.scm�
\	��	]	$��	^	$��	_	(��	`	1��	!`	A��	"`	8��	$`	1��	%`	-��	'_	(��	0a	1��	1a	(��	3]	��		3
C ho]%"�
�$4 >"G"�$C"iL��$M64L5Y4LLLO5Z4>"G45�45��"��e��$>
�$"�$L45
�$"�6"��O"��K
"��
ggx
	�gwidth	�glen		�gref		�gnext		�gx		�gwidth		�gi		�gt		)�gstr		n�gt	��gfilenamefice-9/pretty-print.scm�
L	��	M	��	
P	��	P	
��	Q	��	)S	��	)R	
��	=V	��	>V	��	BR	
��	HW	��	KZ	9��	T[	��	nY	��	qb	���c	���c	���c	&���c	���c	;���c	���R	
���T	���T	���R	
���T	$���T	 ���T	.���T	���U	���U	!���U	���U	1���U	���M	��$	�	gnamegprint-sequence�Cgm&!nhr]�Cjgx
		gi		gfilenamefice-9/pretty-print.scm�
�	��	�	*��			Co$7pqrstuvwxyzhlh(�]LL�L$4L	�	�5"L	�6�gfilenamefice-9/pretty-print.scm�
p	��	q	"��	
r	"��	s	&��	s	0��	s	-��	s	&��	#t	&��	%q	��
		%
C# &'he]L$L6L6]gfilenamefice-9/pretty-print.scm�
�	��	�	#��	�	0��	�	<��		
C{|}1�h�K]"
�$6�$L	L��$:4>"G4L	�45>"G6	6�$L	L��$:4
>"G4L	�45
>"G6	645$Q		�$B445>"G4L	�45
>"G6	6�$�	L��$�4>"G	�"��$		�"$-4>"G4L	�>"dG"]4LLO54>"G4>"G��45�"��p"��a6	64LO54>"G45�$"�"�(	"�"	�"���4��5${4��5$h45�$V4��54��5�L��$54��44��54��5�L�5M��5""��u"��q"��m"��i"��Q6Cgx
	�gwidth	�gwidth	>�gx	D�gwidth	D�gstr	��gstr	�gfixes	.�gfilenamefice-9/pretty-print.scm�
�	��	�	
��	
�	��	�	��	�	
��	�	
��	�	��	 �	��	!�	��	%�	
��	&�	��	*�	��	/�	��	8�	��	A�	��	B�	*��	Q�	��	]�	��	_�	��	c�	��	e�	��	h�	
��	l�	��	s�	��	t�	��	x�	
��	y�	��	}�	����	����	����	����	*����	����	����	����	����	����	
����	����	����	
����	����	����	����	����	����	����	*���	���	���	���	���	���	
���	��"�	��#�	��'�	
��(�	��,�	��1�	��>�	��>�	��Dg	��Gj	��Kj	��Pj	 ��Uj	��Yi	
��Zk	��^k	��ck	��ll	��ul	��zl	���o	���o	���u	���v	���v	���v	���w	���w	���w	%���w	���w	���g	����	����	����	����	����	���	
���	���	�� �	��$�	��.{	��4	
��6�	��A�	��G�	��G	
��H�	��M�	!��R�	��V	
��W�	��\�	!��a�	��e�	��f�	��o�	��s�	��v�	��{�	'��~�	���	����	'����	����	����	����	����	����	����	����	#����	2����	#����	(����	7����	(����	����	����	����	���{	���{	���{	����	���	�	gnamegprint�C�hS]LLL6Kgfilenamefice-9/pretty-print.scm�
�	��	
�	
��		

Ch�:-/03
##$"45#	O##45YH45K4	J5
OO		Q	Q	4
	O>ZCZF2gx
	�gport*	�gport		�gwidth		�gdisplay?		�gbreadth-first?		�gellipsis		]�gellipsis-width		s�gprint-sequence	��gprint		��
gfilenamefice-9/pretty-print.scm�
)
��	(+	 ��	/+	*��	T;	(��	`A	��	dA	��	jA	��	mJ	��	sJ	����	��	�gportS	�gwidthS	�gdisplay?S	�gbreadth-first?S	�gnamegtruncated-print�g
documentationfAPrint @var{x}, truncating the output, if necessary, to make it fit
into @var{width} characters. By default, @var{x} will be printed using
@code{write}, though that behavior can be overriden via the
@var{display?} keyword argument.

The default behaviour is to print depth-first, meaning that the entire
remaining width will be available to each sub-expression of @var{x} --
e.g., if @var{x} is a vector, each member of @var{x}. One can attempt to
"ration" the available width, trying to allocate it equally to each
sub-expression, via the @var{breadth-first?} keyword argument.�CRC�gm
		,gfilenamefice-9/pretty-print.scm�		
��	-	"	��	9	"
��3�	$
��7
�
��;�
��R�)
��	R�
C6ice-9/r4rs.go000064400000026604150536206120006703 0ustar00GOOF----LE-8-2.0l-]'4ho]gapply:nconc2last�	gapply�	gcall-with-current-continuation�	gcall-with-values�	gdynamic-wind�	fr�	g	OPEN_READ�	fw�		g
OPEN_WRITE�	
fr+�	g	OPEN_BOTH�	f	/dev/null�	
g
*null-device*�	g	open-file�	gopen-input-file�	gopen-output-file�	gopen-io-file�	gclose-input-port�	gcall-with-input-file�	gclose-output-port�	gcall-with-output-file�	gset-current-input-port�	gwith-input-from-port�	gset-current-output-port�	gwith-output-to-port�	gset-current-error-port�	gwith-error-to-port�	gwith-input-from-file�	gwith-output-to-file�	gwith-error-to-file�	gcall-with-input-string�	 gwith-input-from-string�	!gcall-with-output-string�	"gwith-output-to-string�	#gwith-error-to-string�	$f�	%g	read-char�	&gthe-eof-object�C5hh(B]h�-1345@gfun
			gargs			gfilenamefice-9/r4rs.scm�
	!
��		"	��		"	��			
gnamegapply�CRh�]B~gproc
		gfilenamefice-9/r4rs.scm�
	#
��		$	��		gnamegcall-with-current-continuation�CRh�]4>6<�gproducer
		gconsumer		gfilenamefice-9/r4rs.scm�
	%
��		&	��			gnamegcall-with-values�CRhH}]4>"GV4>X4>"GCX4>"GFugin
		Cgthunk		Cgout			Cgfilenamefice-9/r4rs.scm�
	'
��		Y	��		Y	��	!	Y	��		C	gnamegdynamic-wind�g
documentationf�All three arguments must be 0-argument procedures.
Guard @var{in} is called, then @var{thunk}, then
guard @var{out}.

If, any time during the execution of @var{thunk}, the
continuation of the @code{dynamic_wind} expression is escaped
non-locally, @var{out} is called.  If the continuation of
the dynamic-wind is re-entered, @var{in} is called.  Thus
@var{in} and @var{out} may be called any number of
times.
@lisp
 (define x 'normal-binding)
@result{} x
 (define a-cont
   (call-with-current-continuation
     (lambda (escape)
       (let ((old-x x))
         (dynamic-wind
           ;; in-guard:
           ;;
           (lambda () (set! x 'special-binding))

           ;; thunk
           ;;
           (lambda () (display x) (newline)
                   (call-with-current-continuation escape)
                   (display x) (newline)
                   x)

           ;; out-guard:
           ;;
           (lambda () (set! x old-x)))))))

;; Prints:
special-binding
;; Evaluates to:
@result{} a-cont
x
@result{} normal-binding
 (a-cont #f)
;; Prints:
special-binding
;; Evaluates to:
@result{} a-cont  ;; the value of the (define a-cont...)
x
@result{} normal-binding
a-cont
@result{} special-binding
@end lisp�CRR	R
R
Rh2]6*gstr
		
gfilenamefice-9/r4rs.scm�
	t
��	
	x	��		
gnamegopen-input-file�g
documentationf�Takes a string naming an existing file and returns an input port
capable of delivering characters from the file.  If the file
cannot be opened, an error is signalled.�CR	h�]6�gstr
		
gfilenamefice-9/r4rs.scm�
	z
��	
		��		
gnamegopen-output-file�g
documentationfTakes a string naming an output file to be created and returns an
output port capable of writing characters to a new file by that
name.  If the file cannot be opened, an error is signalled.  If a
file with the given name already exists, the effect is unspecified.�CRh�]6�gstr
		
gfilenamefice-9/r4rs.scm�
�
��	
�	��		
gnamegopen-io-file�g
documentationf2Open file with name STR for both input and output.�CRh88]454>G4>"GE0gstr
		1gproc		1gp				1gvals			1gfilenamefice-9/r4rs.scm�
�
��	�	��		�	��	�	��	�	��	�	��	1�	��		1	gnamegcall-with-input-file�g
documentationfEPROC should be a procedure of one argument, and STR should be a
string naming a file.  The file must
already exist. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output.  If the file cannot be opened, an error is
signalled.  If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation.�CRh8V]454>G4>"GENgstr
		1gproc		1gp				1gvals			1gfilenamefice-9/r4rs.scm�
�
��	�	��		�	��	�	��	�	��	�	��	1�	��		1	gnamegcall-with-output-file�g
documentationfbPROC should be a procedure of one argument, and STR should be a
string naming a file.  The behaviour is unspecified if the file 
already exists. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output.  If the file cannot be opened, an error is
signalled.  If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation.�CRhi]4M5NCagfilenamefice-9/r4rs.scm�
�	��	�	)��	�	��		
gnamegswaports�ChX�]
HOQ4>"GV4>X4>"GCX4>"GF�gport
		Tgthunk		Tgswaports			Tgfilenamefice-9/r4rs.scm�
�
��	�	��	�	��		T	gnamegwith-input-from-port�CRhi]4M5NCagfilenamefice-9/r4rs.scm�
�	��	�	)��	�	��		
gnamegswaports�ChX�]
HOQ4>"GV4>X4>"GCX4>"GF�gport
		Tgthunk		Tgswaports			Tgfilenamefice-9/r4rs.scm�
�
��	�	��	�	��		T	gnamegwith-output-to-port�CRhi]4M5NCagfilenamefice-9/r4rs.scm�
�	��	�	)��	�	��		
gnamegswaports�ChX�]
HOQ4>"GV4>X4>"GCX4>"GF�gport
		Tgthunk		Tgswaports			Tgfilenamefice-9/r4rs.scm�
�
��	�	��	�	��		T	gnamegwith-error-to-port�CRh[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch�]O6�gfile
		gthunk		gfilenamefice-9/r4rs.scm�
�
��	�	��			gnamegwith-input-from-file�g
documentationf
THUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The file must already exist. The file is opened for
input, an input port connected to it is made
the default value returned by `current-input-port', 
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CRh[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch�]O6�gfile
		gthunk		gfilenamefice-9/r4rs.scm�
�
��	�	��			gnamegwith-output-to-file�g
documentationf*THUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The effect is unspecified if the file already exists. 
The file is opened for output, an output port connected to it is made
the default value returned by `current-output-port', 
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CRh[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch�]O6�gfile
		gthunk		gfilenamefice-9/r4rs.scm�
�
��	�	��			gnamegwith-error-to-file�g
documentationf)THUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The effect is unspecified if the file already exists. 
The file is opened for output, an output port connected to it is made
the default value returned by `current-error-port', 
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CRh[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch#]O6gstring
		gthunk		gfilenamefice-9/r4rs.scm�
�
��	�	��			gnamegwith-input-from-string�g
documentationfxTHUNK must be a procedure of no arguments.
The test of STRING  is opened for
input, an input port connected to it is made, 
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed.
Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�C R!h[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch�]O6�gthunk
		
gfilenamefice-9/r4rs.scm�
�
��	
�	��		
gnamegwith-output-to-string�g
documentationf/Calls THUNK and returns its output as a string.�C"R!h[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch�]O6�gthunk
		
gfilenamefice-9/r4rs.scm�
�
��	
�	��		
gnamegwith-error-to-string�g
documentationf5Calls THUNK and returns its error output as a string.�C#R4i$%h[]6Sgp
		gfilenamefice-9/r4rs.scm�
�	2��	�	>��		C5&RC:gfilenamefice-9/r4rs.scm��	!
��Y	#
��
	%
���	'
���	n	���	n
���	o	���	o
���	p	���	p
���	r	���	r
��	M	t
��	z
����
��s�
���
����
��j�
���
��g�
����
��"I�
��%�
��&p�
��'��
��'��	��'��	/��(]�	��(`�
��	(b
C6ice-9/networking.go000064400000021403150536206120010170 0ustar00GOOF----LE-8-2.0�"]94hh]ggethost�	g
gethostbyaddr�	g
gethostbyname�	ggetnet�	ggetnetbyaddr�	ggetnetbyname�	ggetproto�	ggetprotobyname�		ggetprotobynumber�	
ggetserv�	g
getservbyname�	g
getservbyport�	
gsethost�	g
sethostent�	gsetnet�	g	setnetent�	gsetproto�	gsetprotoent�	gsetserv�	g
setservent�	g
gethostent�	g	getnetent�	ggetprotoent�	g
getservent�	g
endhostent�	g	endnetent�	gendprotoent�	g
endservent�	ghostent:name�	ghostent:aliases�	ghostent:addrtype�	 ghostent:length�	!ghostent:addr-list�	"gnetent:name�	#gnetent:aliases�	$gnetent:addrtype�	%g
netent:net�	&g
protoent:name�	'gprotoent:aliases�	(gprotoent:proto�	)gservent:name�	*gservent:aliases�	+gservent:port�	,g
servent:proto�	-gsockaddr:fam�	.g
sockaddr:path�	/g
sockaddr:addr�	0g
sockaddr:port�	1gsockaddr:flowinfo�	2gsockaddr:scopeid�	3gaddrinfo:flags�	4gaddrinfo:fam�	5gaddrinfo:socktype�	6gaddrinfo:protocol�	7g
addrinfo:addr�	8gaddrinfo:canonname�C5h`�]h{]6sgaddr
		gfilenamefice-9/networking.scm�
	
��			��		gnameg
gethostbyaddr�CRh{]6sgname
		gfilenamefice-9/networking.scm�
	
��			��		gnameg
gethostbyname�CRhz]6rgaddr
		gfilenamefice-9/networking.scm�
	
��			��		gnameggetnetbyaddr�CRhz]6rgname
		gfilenamefice-9/networking.scm�
	
��			��		gnameggetnetbyname�CRh|]6tgname
		gfilenamefice-9/networking.scm�
	
��			��		gnameggetprotobyname�CRh~]6vgaddr
		gfilenamefice-9/networking.scm�
	
��			 ��		gnameggetprotobynumber�C	R
h�]6�gname
		
gproto		
gfilenamefice-9/networking.scm�
	
��	
		#��		
	gnameg
getservbyname�CR
h�]6�gport
		
gproto		
gfilenamefice-9/networking.scm�
	 
��	
	 	#��		
	gnameg
getservbyport�CR
h �-13�$�66�gstayopen
			gfilenamefice-9/networking.scm�
	"
��		#	��		#	��		$	��		$	��		%	��			


gnameg
sethostent�CRh �-13�$�66�gstayopen
			gfilenamefice-9/networking.scm�
	&
��		'	��		'	��		(	��		(	��		)	��			


gnameg	setnetent�CRh �-13�$�66�gstayopen
			gfilenamefice-9/networking.scm�
	*
��		+	��		+	��		,	��		,	��		-	��			


gnamegsetprotoent�CRh �-13�$�66�gstayopen
			gfilenamefice-9/networking.scm�
	.
��		/	��		/	��		0	��		0	��		1	��			


gnameg
setservent�CRhe]6]gfilenamefice-9/networking.scm�
	3
��		3	��		
gnameg
gethostent�CRhd]6\gfilenamefice-9/networking.scm�
	4
��		4	��		
gnameg	getnetent�CRhf]6^gfilenamefice-9/networking.scm�
	5
��		5	��		
gnameggetprotoent�CR
he]6]gfilenamefice-9/networking.scm�
	6
��		6	��		
gnameg
getservent�CR
he]6]gfilenamefice-9/networking.scm�
	8
��		8	��		
gnameg
endhostent�CRhd]6\gfilenamefice-9/networking.scm�
	9
��		9	��		
gnameg	endnetent�CRhf]6^gfilenamefice-9/networking.scm�
	:
��		:	��		
gnamegendprotoent�CRhe]6]gfilenamefice-9/networking.scm�
	;
��		;	��		
gnameg
endservent�CRhy]
�Cqgobj
		gfilenamefice-9/networking.scm�
	=
��		=	��		gnameghostent:name�CRh|]�Ctgobj
		gfilenamefice-9/networking.scm�
	>
��		>	��		gnameghostent:aliases�CRh}]	�Cugobj
		gfilenamefice-9/networking.scm�
	?
��		?	��		gnameghostent:addrtype�CRh{]	�Csgobj
		gfilenamefice-9/networking.scm�
	@
��		@	��		gnameghostent:length�C Rh~]	�Cvgobj
		gfilenamefice-9/networking.scm�
	A
��		A	 ��		gnameghostent:addr-list�C!Rhx]
�Cpgobj
		gfilenamefice-9/networking.scm�
	C
��		C	��		gnamegnetent:name�C"Rh{]�Csgobj
		gfilenamefice-9/networking.scm�
	D
��		D	��		gnamegnetent:aliases�C#Rh|]	�Ctgobj
		gfilenamefice-9/networking.scm�
	E
��		E	��		gnamegnetent:addrtype�C$Rhw]	�Cogobj
		gfilenamefice-9/networking.scm�
	F
��		F	��		gnameg
netent:net�C%Rhz]
�Crgobj
		gfilenamefice-9/networking.scm�
	H
��		H	��		gnameg
protoent:name�C&Rh}]�Cugobj
		gfilenamefice-9/networking.scm�
	I
��		I	��		gnamegprotoent:aliases�C'Rh{]	�Csgobj
		gfilenamefice-9/networking.scm�
	J
��		J	��		gnamegprotoent:proto�C(Rhy]
�Cqgobj
		gfilenamefice-9/networking.scm�
	L
��		L	��		gnamegservent:name�C)Rh|]�Ctgobj
		gfilenamefice-9/networking.scm�
	M
��		M	��		gnamegservent:aliases�C*Rhy]	�Cqgobj
		gfilenamefice-9/networking.scm�
	N
��		N	��		gnamegservent:port�C+Rhz]	�Crgobj
		gfilenamefice-9/networking.scm�
	O
��		O	��		gnameg
servent:proto�C,Rhy]
�Cqgobj
		gfilenamefice-9/networking.scm�
	Q
��		Q	��		gnamegsockaddr:fam�C-Rhz]�Crgobj
		gfilenamefice-9/networking.scm�
	R
��		R	��		gnameg
sockaddr:path�C.Rhz]�Crgobj
		gfilenamefice-9/networking.scm�
	S
��		S	��		gnameg
sockaddr:addr�C/Rhz]	�Crgobj
		gfilenamefice-9/networking.scm�
	T
��		T	��		gnameg
sockaddr:port�C0Rh~]	�Cvgobj
		gfilenamefice-9/networking.scm�
	U
��		U	 ��		gnamegsockaddr:flowinfo�C1Rh}]	�Cugobj
		gfilenamefice-9/networking.scm�
	V
��		V	��		gnamegsockaddr:scopeid�C2Rh{]
�Csgobj
		gfilenamefice-9/networking.scm�
	X
��		X	��		gnamegaddrinfo:flags�C3Rhy]�Cqgobj
		gfilenamefice-9/networking.scm�
	Y
��		Y	��		gnamegaddrinfo:fam�C4Rh~]	�Cvgobj
		gfilenamefice-9/networking.scm�
	Z
��		Z	 ��		gnamegaddrinfo:socktype�C5Rh~]	�Cvgobj
		gfilenamefice-9/networking.scm�
	[
��		[	 ��		gnamegaddrinfo:protocol�C6Rhz]	�Crgobj
		gfilenamefice-9/networking.scm�
	\
��		\	��		gnameg
addrinfo:addr�C7Rh]	�Cwgobj
		gfilenamefice-9/networking.scm�
	]
��		]	!��		gnamegaddrinfo:canonname�C8RC�gfilenamefice-9/networking.scm��	
��6	
���	
��e	
���	
���	
��I	
���	 
���	"
���	&
��j	*
��A	.
���	3
��	?	4
��	�	5
��
@	6
��
�	8
��?	9
���	:
��@	;
���	=
��
g	>
��	?
���	@
��)	A
���	C
��N	D
���	E
��r	F
��	H
���	I
��.	J
���	L
��O	M
���	N
��u	O
��	Q
���	R
��%	S
���	T
��I	U
���	V
��v	X
��	Y
���	Z
��1	[
���	\
��Z	]
��1	\
C6ice-9/control.go000064400000020267150536206120007470 0ustar00GOOF----LE-8-2.0� ]�4h�
]gguile�	�	gdefine-module*�	�	�	gice-9�	gcontrol�	�		gfilenameS�	
fice-9/control.scm�	gexportsS�	g%�	
gabort�	gshift�	greset�	gshift*�	greset*�	gcall-with-escape-continuation�	gcall/ec�	glet-escape-continuation�	glet/ec�	

�	g
re-exportsS�	gcall-with-prompt�	gabort-to-prompt�	gdefault-prompt-tag�	gmake-prompt-tag�	�	gset-current-module�	�	�	 gmake-syntax-transformer�	! �	" �	#gmacro�	$g$sc-dispatch�	%$�	&$�	'gany�	(''�	)g
syntax-object�	*gtop�	+*�	,gribcage�	-gdummy�	.gexpr�	/-.�	0gm-3d0776c508-76�	10*�	21+�	3fl-3d0776c508-7b�	4fl-3d0776c508-7c�	534�	6,/25�	7,�	8gx�	98�	:1�	;fl-3d0776c508-78�	<;�	=,9:<�	>+67=�	?ghygiene�	@?�	A)>@�	B)>@�	CB�	Dglambda�	E)D>@�	Fgdefault-prompt-handler�	G)F>@�	HG�	I'''�	Jghandler�	K-.J�	L1++�	Mfl-3d0776c508-80�	Nfl-3d0776c508-81�	Ofl-3d0776c508-82�	PMNO�	Q,KLP�	R+Q7=�	S)R@�	T)R@�	UT�	V)DR@�	W''''�	Xgtag�	Y-X.J�	Z1+++�	[fl-3d0776c508-87�	\fl-3d0776c508-88�	]fl-3d0776c508-89�	^fl-3d0776c508-8a�	_[\]^�	`,YZ_�	a+`7=�	b)a@�	c)Da@�	dgsyntax-violation�	ed�	fd�	gf-source expression failed to match any pattern�	h''��	igbody�	j-i�	kgm-3d0776c508-95�	lk*�	ml+�	nfl-3d0776c508-9a�	ofl-3d0776c508-9b�	pno�	q,jmp�	rl�	sfl-3d0776c508-97�	ts�	u,9rt�	v+q7u�	w)v@�	x)v@�	yx�	z)Dv@�	{gcont�	|){v@�	}gf�	~)}v@�	|~��~|��z������'h���gvar��-�i��gm-3d0776c508-9f���*���++��fl-3d0776c508-a4��fl-3d0776c508-a5��fl-3d0776c508-a6�������,��������fl-3d0776c508-a1�����,9����+�7���)�@��)�@�����)D�@��){�@�����)�@��gvals��)��@��gapply��)��@�������������������geach-any��'����'����glet��gk��-�i��gm-3d0776c508-cf���*���++��fl-3d0776c508-d4��fl-3d0776c508-d5��fl-3d0776c508-d6�������,��������fl-3d0776c508-d1�����,9����+�7���)��@��)X�@��glist��)��@��gquote��)��@��)�@�����������������)�@��)D�@��gargs��)��@��)��@��)�@����������������g_��)��@��gresults��)��@���̌��gvalues��)��@���������������gm-3d0776c508-dc���*���++��fl-3d0776c508-e1��fl-3d0776c508-e2��fl-3d0776c508-e3�������,��������fl-3d0776c508-de�����,9����+�7���)�@�C5h`�]4	
54>"Ghz-1345@rgargs
			gfilenamefice-9/control.scm�
	
��			��			��			


gnamegabort�C
R4"#&(ACEHh?]���C7gdummy
		gexpr					CISUVhT]CLgdummy
		gexpr		ghandler						CWbche]C]gdummy
		gtag		gexpr			ghandler						Cfg
hP�]45$@45$@45$@	6�gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/control.scm�
		��		Pg
macro-typegsyntax-rules�gpatternsgexprgexprghandlergtaggexprghandlerC5RFhE]LL6=gfilenamefice-9/control.scm�		8	��		
Ch0�]45U4O>XCXFG@�gk
		.gproc		.ghandler			.gargs		#	.gfilenamefice-9/control.scm�
	6
��		7	��		7	��		7	��		.	gnamegdefault-prompt-handler�CFR4"#&hwyz�h?]�����C7gdummy
		gbody					Cfgh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/control.scm�
	@
��		"g
macro-typegsyntax-rules�gpatternsgbodyC5R4"#&�������h(P]��CHgdummy
		#gvar		#gbody			#		#	Cfgh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/control.scm�
	E
��		"g
macro-typegsyntax-rules�gpatternsgvargbody�C5RhE]L6=gfilenamefice-9/control.scm�		L		��		
Ch0�]45U4O>XCXFG6�gthunk
		*gcont		*gf			*gfilenamefice-9/control.scm�
	K
��		L	��		*gnamegreset*�CRhE]LL@=gfilenamefice-9/control.scm�		O	��		
Ch8y-1345U4LO>XCXFG6qgvals
			3gcont	&	3gf		&	3gfilenamefice-9/control.scm�
	O	��			3


ChE]LLO6=gfilenamefice-9/control.scm�	
	O	��		
Ch0w]45U4LO>XCXFG6ogcont
		,gcont		,gf			,gfilenamefice-9/control.scm�
	O	��		,Cho]45OWFggfc
		gfilenamefice-9/control.scm�
	N
��		O	��		gnamegshift*�CRha-13L@Ygargs
			gfilenamefice-9/control.scm�
	V	��		W	 ��			


Ch0%]U4O>XCXFGEgproc
		.gtag		.g_		#	.gargs		#	.gfilenamefice-9/control.scm�
	Q
��		S	��		S	
��		S	��		T	��		V	��	&	T	��	.	Y	��			.gnamegcall-with-escape-continuation�g
documentationf&Call PROC with an escape continuation.�CRiR4"#&��������h(N]������CFgdummy
		'gk		'gbody			'		'	Cfgh(]	45$@6�gx
		"gtmp		"gfilenamefice-9/control.scm�
	]
��		"g
documentationfCBind K to an escape continuation within the lexical extent of BODY.�g
macro-typegsyntax-rules�gpatternsgkgbodyg...C5R4"#&��hN]��CFgdummy
		gk		gbody						Cfgh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/control.scm�
	h
��		"g
macro-typegsyntax-rules�gpatternsgkgbodyg...C5RC}gm
		,gfilenamefice-9/control.scm�		
���	
��*	6
��	5	K
��	N
��	Q
��	[
��	_
C6ice-9/streams.go000064400000017673150536206120007475 0ustar00GOOF----LE-8-2.0�].4h[]gguile�	�	gdefine-module*�	�	�	gice-9�	gstreams�	�		gfilenameS�	
fice-9/streams.scm�	gexportsS�	gmake-stream�	
g
stream-car�	g
stream-cdr�	gstream-null?�	glist->stream�	gvector->stream�	gport->stream�	gstream->list�	gstream->reversed-list�	gstream->list&length�	gstream->reversed-list&length�	gstream->vector�	gstream-fold�	gstream-for-each�	g
stream-map�	
�	gset-current-module�	�	�	gmake-promise�	 �	!�	"gforce�	#g
vector-length�	$greverse!�	%gmake-vector�	&gstream-fold-one�	'gstream-fold-many�	(gor-map�	)gmap�	*gstream-for-each-one�	+gstream-for-each-many�	,gapply�	-geof-object?�C5h��]4	
54>"G!h(�]4LL5�$�4L�5�CC�go
			#gfilenamefice-9/streams.scm�
	V	��		W	
��			W	��		X	
��		X	��		Y	��		Z	��		Z	��		Z	��	 	Y	
��	"	[	
��		#
Ch�]O6~gm
		gstate		gfilenamefice-9/streams.scm�
	U
��		V	��			gnamegmake-stream�CR"h�]45�C�gstream
		gfilenamefice-9/streams.scm�
	]
��		_	��	
	_	��		gnameg
stream-car�g
documentationfBReturns the first element in STREAM.  This is equivalent to `car'.�C
R"h�]45�C�gstream
		gfilenamefice-9/streams.scm�
	a
��		c	��	
	c	��		gnameg
stream-cdr�g
documentationfGReturns the first tail of STREAM. Equivalent to `(force (cdr STREAM))'.�CR"h?]45�C7gstream
		gfilenamefice-9/streams.scm�
	e
��		i		��	
	i	��		gnamegstream-null?�g
documentationf�Returns `#t' if STREAM is the end-of-stream marker; otherwise
returns `#f'.  This is equivalent to `null?', but should be used
whenever testing for the end of a stream.�CRhT]CLgl
		gfilenamefice-9/streams.scm�
	o	��		Ch�]6�gl
		
gfilenamefice-9/streams.scm�
	k
��	
	n	��		
gnameglist->stream�g
documentationfoReturns a newly allocated stream whose elements are the elements of
LIST.  Equivalent to `(apply stream LIST)'.�CR#h �]	L�$CL���C�gi
		gt		gfilenamefice-9/streams.scm�
	u	��		v	��		v	��		w	��		w	"��		w	��		Ch �]	45O
6�gv
		glen		gfilenamefice-9/streams.scm�
	r
��		t	��		t	��		s	��		gnamegvector->stream�CR
hH]"/45$D4545��"���
"���	gstream
		Cgs		5gacc			5glen			5gfilenamefice-9/streams.scm�
	z
��		{	��		|	��		|	��		}	��		~	��		~	#��	(	~	��	+	~	7��	5	~	��	5	{	��	8	{	��	C	{	��		Cgnamegstream->reversed-list&length�CRh�]4>GC�gstream
		gl	
	glen		
	gfilenamefice-9/streams.scm�
�
��	�	��	�	��		gnamegstream->reversed-list�CR$h �]4>G45D�gstream
		gl	
	glen		
	gfilenamefice-9/streams.scm�
�
��	�	��	�	��	�	��	�	��		gnamegstream->list&length�CR$h$]456gstream
		
gfilenamefice-9/streams.scm�
�
��	�	��	
�	��		
gnamegstream->list�g
documentationf�Returns a newly allocated list whose elements are the elements of STREAM.
If STREAM has infinite length this procedure will not terminate.�CR%hX5])4>G45"%("&������"���
"���C-gstream
		Tgl	
	Tglen		
	Tgv			Tgi		!	Fgl		!	Fgfilenamefice-9/streams.scm�
�
��	�	��	�	��	�	��	�	��	!�	��	'�		��	2�	��	7�	*��	8�	��	;�	��	>�	��	F�	��	F�	��		Tgnamegstream->vector�CR&'h(�-13(
6�6�gf
			&ginit			&gstream				&grest				&gfilenamefice-9/streams.scm�
�
��	�	��	�	��	$�	��	&�	��			&	
	gnamegstream-fold�CR&
h0�]45$C4455456�gf
		+gr		+gstream			+gfilenamefice-9/streams.scm�
�
��	�	��	
�	��	�	��	�	��	"�	��	#�	3��	+�	��			+	gnamegstream-fold-one�C&R('h �](LC�4L�5�C�gcars
		gfilenamefice-9/streams.scm�
�	!��	�	#��	
�	'��	�	-��	�	-��	�	4��	�	-��	�	'��			gnamegrecur�C)
hH�]45$C4OQ4455?456�gf
		Ggr		Ggstreams			Ggrecur		"	:gfilenamefice-9/streams.scm�
�
��	�	��	�	��	�	��	"�	!��	-�	.��	7�	!��	<�	��	=�	��	G�	��		G	gnamegstream-fold-many�C'R*+h(�-13(6�6�gf
			"gstream			"grest				"gfilenamefice-9/streams.scm�
�
��	�	��	�	��	 �	��	"�	��			"	
	gnamegstream-for-each�CR
*h8�]45$C445>"G456�gf
		3gstream		3gfilenamefice-9/streams.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	+�	��	3�	��			3	gnamegstream-for-each-one�C*R(,)
+h@�]45$C445>"G456�gf
		;gstreams		;gfilenamefice-9/streams.scm�
�
��	�	��	�	��	�	��	�	��	$�	��	1�	 ��	;�	��			;	gnamegstream-for-each-many�C+R
h0�]	45$C4L45545�C�gs
		)gt			)gfilenamefice-9/streams.scm�
�	��	�	��		�	��	�	��	�	"��	 �	��	!�	2��	(�	��			)C()
h0�]	45$C4L45?45�C�gstreams
		/gt		/gfilenamefice-9/streams.scm�
�	��	�	��	�	��	�	��	�	(��	$�	��	%�	��	.�	��			/Ch0\-13(
O6O�6Tgf
			,gstream			,grest				,gfilenamefice-9/streams.scm�
�
��	�	��	�	��	*�	��	,�	��			,	
	gnameg
stream-map�g
documentationf�Returns a newly allocated stream, each element being the result of
invoking F with the corresponding elements of the STREAMs
as its arguments.�CR-h(�]4L545$C�C�gp
		#go			#gt			#gfilenamefice-9/streams.scm�
�	��	�	��		�	��	�	��	�	��	"�	��		#Ch�]O6�gport
		gread		gfilenamefice-9/streams.scm�
�
��	�	��			gnamegport->stream�CRC�gm
		(gfilenamefice-9/streams.scm�		
���	U
���	]
���	a
��	e
���	k
��	r
��	�	z
��
g�
��W�
����
��@�
��N�
��m�
����
����
����
����
��g�
����
��	�
C6ice-9/hash-table.go000064400000007662150536206120010024 0ustar00GOOF----LE-8-2.0�]c4h ]gguile�	�	gdefine-module*�	�	�	gice-9�	g
hash-table�	�		gfilenameS�	
fice-9/hash-table.scm�	gexportsS�	galist->hash-table�	
galist->hashq-table�	galist->hashv-table�	galist->hashx-table�	
�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gdefine-alist-converter�	gmacro�	g$sc-dispatch�	�	�	gany�	�	g
syntax-object�	gdefine�	 gtop�	! �	"gribcage�	#gdummy�	$gname�	%g
hash-set-proc�	&#$%�	'gm-3144cc814ae864-1�	(' �	)(!!�	*fl-3144cc814ae864-6�	+fl-3144cc814ae864-7�	,fl-3144cc814ae864-8�	-*+,�	."&)-�	/"�	0gx�	10�	2(�	3fl-3144cc814ae864-3�	43�	5"124�	6!./5�	7ghygiene�	87�	968�	:galist�	;:68�	<;�	=f Convert ALIST into a hash table.�	>=68�	?glet�	@?68�	Agtable�	BA68�	Cgmake-hash-table�	DC68�	ED�	FBE�	GF�	Hgfor-each�	IH68�	Jglambda�	KJ68�	Lgpair�	ML68�	NM�	Ogcar�	PO68�	QPM�	Rgcdr�	SR68�	TSM�	UBQT�	Vgreverse�	WV68�	XW;�	YX�	ZB�	[gsyntax-violation�	\[�	][�	^f-source expression failed to match any pattern�	_g	hash-set!�	`g
hashq-set!�	ag
hashv-set!�	bg
hashx-set!�C5hxx]4	
54>"G49<>@GIKNUYZh0Z]�	�
�����CRgdummy
		*gname		*g
hash-set-proc			*		*	C]^h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/hash-table.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgnameg
hash-set-procC5RCH_hY]L��6Qgpair
		gfilenamefice-9/hash-table.scm�
	!
��		CVh0�]	454O45>"GC�galist
		*gtable		*gfilenamefice-9/hash-table.scm�
	!
��		*gnamegalist->hash-table�g
documentationf Convert ALIST into a hash table.�CRCH`hY]L��6Qgpair
		gfilenamefice-9/hash-table.scm�
	"
��		CVh0�]	454O45>"GC�galist
		*gtable		*gfilenamefice-9/hash-table.scm�
	"
��		*gnamegalist->hashq-table�g
documentationf Convert ALIST into a hash table.�C
RCHahY]L��6Qgpair
		gfilenamefice-9/hash-table.scm�
	#
��		CVh0�]	454O45>"GC�galist
		*gtable		*gfilenamefice-9/hash-table.scm�
	#
��		*gnamegalist->hashv-table�g
documentationf Convert ALIST into a hash table.�CRCHbhr]LLL��6jgpair
		gfilenamefice-9/hash-table.scm�
	)	��	
	*	-��		*	8��		*	��		CVh05]454O45>"GC-ghash
		.gassoc		.galist			.gtable			.gfilenamefice-9/hash-table.scm�
	%
��		(	��		(	��	
	)	��		+	��	#	)	��		.	gnamegalist->hashx-table�g
documentationfFConvert ALIST into a hash table with custom HASH and ASSOC
procedures.�CRCpgm
		(gfilenamefice-9/hash-table.scm�		
��[	!
���	"
��\	#
��p	%
��	r
C6ice-9/getopt-long.go000064400000135440150536206120010247 0ustar00GOOF----LE-8-2.0�]�4h�Y]gguile�	�	gdefine-module*�	�	�	gice-9�	ggetopt-long�	�		gfilenameS�	
fice-9/getopt-long.scm�	gimportsS�	gcommon-list�	
�	gselectS�	g
remove-if-not�	�	
�	gsrfi�	gsrfi-9�	�	�	gmatch�	�	�	gregex�	�	�	goptargs�	�	�	�	 gexportsS�	!g
option-ref�	"!�	#gset-current-module�	$#�	%#�	&g
make-fluid�	'fguile�	(g
%program-name�	)gprogram-name�	*gformat�	+gcurrent-error-port�	,f~a: �	-gapply�	.gnewline�	/gexit�	0gfatal-error�	1goption-spec�	2g%%make-option-spec-procedure�	3gmake-syntax-transformer�	43�	53�	6g%make-option-spec�	7gmacro�	8g$sc-dispatch�	98�	:8�	;g_�	<gany�	=;<<<<<�	>g
syntax-object�	?glambda�	@gm-70fb8ec09b0a817-48c�	Agtop�	B@A�	Cgribcage�	Dgt-70fb8ec09b0a817-487�	Egt-70fb8ec09b0a817-488�	Fgt-70fb8ec09b0a817-489�	Ggt-70fb8ec09b0a817-48a�	Hgt-70fb8ec09b0a817-48b�	IDEFGH�	JBBBBB�	Kfl-70fb8ec09b0a817-491�	Lfl-70fb8ec09b0a817-492�	Mfl-70fb8ec09b0a817-493�	Nfl-70fb8ec09b0a817-494�	Ofl-70fb8ec09b0a817-495�	PKLMNO�	QCIJP�	RC�	Sgx�	TS�	UB�	Vfl-70fb8ec09b0a817-48e�	WV�	XCTUW�	Ygshift�	Zg	proc-name�	[gargs�	\Z[�	]A�	^]]�	_fl-1e8ba8b5a-60�	`fl-1e8ba8b5a-61�	a_`�	bC\^a�	cgkey�	dgvalue�	egname�	fgformals�	ggbody�	hcdefg�	i]]]]]�	jfl-1e8ba8b5a-53�	kfl-1e8ba8b5a-54�	lfl-1e8ba8b5a-55�	mfl-1e8ba8b5a-56�	nfl-1e8ba8b5a-57�	ojklmn�	pChio�	qgmake-procedure-name�	rq�	s]�	tfl-1e8ba8b5a-43�	ut�	vCrsu�	w]�	xfl-1e8ba8b5a-42�	yx�	zCTwy�	{BQRXYRRRRbpvz
�	|ghygiene�	}|�	~>?{}�	]QRX��|��>e���g	required?��>����goption-spec->single-char��>����g	predicate��>����gvalue-policy��>�����������gmake-struct��gm-70fb8ec09b0a817-485���A��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���A�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������C�����g	ctor-args�����fl-1e8ba8b5a-120�����C�w���gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������C�^���gform��g	type-name��gconstructor-spec��gfield-names��������]]]]��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������C�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������]]]]]]]]��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������C�����fl-1e8ba8b5a-da�����CTw����QRXYR�RRR��R�����>��}��>1���>
�}������������~����geach-any��;ό��gsyntax-violation��������fWrong number of arguments��gidentifier?��������]RX��>2����������f-source expression failed to match any pattern��grecord-type-vtable��������g
pwpwpwpwpw��gdefault-record-printer��������e������gset-struct-vtable-name!��������gvtable-offset-user��������g%option-spec?-procedure��goption-spec?��;<��gm-70fb8ec09b0a817-4a1���A��gt-70fb8ec09b0a817-4a0��������fl-70fb8ec09b0a817-4a6�����C�����fl-70fb8ec09b0a817-4a3�����CT������R�YRRRRbpvz
��>?�}��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220�gt-1e8ba8b5a-223�gt-1e8ba8b5a-222�gt-1e8ba8b5a-221������gm-1e8ba8b5a-225�A��fl-1e8ba8b5a-229�fl-1e8ba8b5a-22a�	fl-1e8ba8b5a-22b�
fl-1e8ba8b5a-22c�fl-1e8ba8b5a-22d�fl-1e8ba8b5a-22e�
fl-1e8ba8b5a-22f�	

�C�g	copier-id��fl-1e8ba8b5a-21c��Cw�g	ctor-name��fl-1e8ba8b5a-214��Cw���fl-1e8ba8b5a-212��Cw�glayout�� fl-1e8ba8b5a-210�! �"Cw!�#g
immutable?�$#�%fl-1e8ba8b5a-20e�&%�'C$w&�(gfield-count�)(�*fl-1e8ba8b5a-20c�+*�,C)w+�-g
getter-ids�.-�/fl-1e8ba8b5a-209�0/�1C.w0�2g	field-ids�32�4fl-1e8ba8b5a-206�54�6C3w5�7gpredicate-name�8g
field-spec�9#���78�:]]]]]]�;fl-1e8ba8b5a-1f9�<fl-1e8ba8b5a-1fa�=fl-1e8ba8b5a-1fb�>fl-1e8ba8b5a-1fc�?fl-1e8ba8b5a-1fd�@fl-1e8ba8b5a-1fe�A;<=>?@�BC9:A�C��R�YRRRRRRRR"R'R,R1R6B���D>�C}�ED�Fgand�G>FC}�Hgstruct?�I>HC}�JID�Kgeq?�L>KC}�Mg
struct-vtable�N>MC}�OND�P]�R��Q>1P��RLOQ�SGJR�T�ES�U]R��V>�U��Wgthrow-bad-struct�XW�YW�Zgoption-spec->name�[g%option-spec->name-procedure�\gfree-id�]g
%%on-error�^gm-70fb8ec09b0a817-4ad�_^A�`_�afl-70fb8ec09b0a817-4af�ba�cCT`b�d_RcYRRRRbpvz�e>]d}�f\e�gf<�hg%%type�igt-1e8ba8b5a-14b�jgt-1e8ba8b5a-14c�kgt-1e8ba8b5a-14d�lgt-1e8ba8b5a-14e�mgt-1e8ba8b5a-14f�ngt-1e8ba8b5a-150�ogt-1e8ba8b5a-151�pijklmno�qgm-1e8ba8b5a-152�rqA�srrrrrrr�tfl-1e8ba8b5a-156�ufl-1e8ba8b5a-157�vfl-1e8ba8b5a-158�wfl-1e8ba8b5a-159�xfl-1e8ba8b5a-15a�yfl-1e8ba8b5a-15b�zfl-1e8ba8b5a-15c�{tuvwxyz�|Cps{�}ggetter�~gindex�}~��fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a������C^����-��]]]��fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������C������RcYR|RRR�R�����>h�}��\���;g�<��gck��gerr��gs������__��fl-70fb8ec09b0a817-4b2��fl-70fb8ec09b0a817-4b3������C�����_�RcYRRRRbpvz
��>��}��gquote��>��}��]�Rc��>1�����������g%%index��>��}��\���;g�<��fl-70fb8ec09b0a817-4b7��fl-70fb8ec09b0a817-4b8������C�����_�RcYRRRRbpvz
��>��}��>��}���Rc��>
�����������g%%copier��>��}��\���;g�<��fl-70fb8ec09b0a817-4bc��fl-70fb8ec09b0a817-4bd������C�����_�RcYRRRRbpvz
��>��}��>��}��g%%option-spec-set-fields��]�Rc��>������������gt-70fb8ec09b0a817-4ac�����fl-70fb8ec09b0a817-4c1�����C�`���_�RcYRRRRbpvz
��>?�}����RcYR|RRR�R�����>��}�����gif��>��}��>K�}��>M�}������]�Rc��>1���������g
struct-ref��>��}���Rc��>
���������>W�}��>��}��>Z������������������������]Rc��>[����goption-spec->required?��g!%option-spec->required?-procedure��gm-70fb8ec09b0a817-4c8���A�����fl-70fb8ec09b0a817-4ca�����CT�����R�YRRRRbpvz��>]�}��\����<���R�YR|RRR�R�����>h�}��\���;��<������fl-70fb8ec09b0a817-4cd��fl-70fb8ec09b0a817-4ce������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>1�����������>��}��\���;��<��fl-70fb8ec09b0a817-4d2��fl-70fb8ec09b0a817-4d3����C����R�YRRRRbpvz
�>�}�>�}�R��>����	>��}�
\	�;�
<�fl-70fb8ec09b0a817-4d7�
fl-70fb8ec09b0a817-4d8�
�C����R�YRRRRbpvz
�>�}�>�}�]R��>�����gt-70fb8ec09b0a817-4c7��fl-70fb8ec09b0a817-4dc��C���R�YRRRRbpvz
�>?}��R�YR|RRR�R����>�}� �!>�}�">K}�#>M}�$#�%]R��&>1%��'"$&�(>�}�)R��*>)��+(*�,>W}�->�}�.>�%��/-.�0,/�1!'+0�2 1�3]R��4>�3��5g#%option-spec->single-char-procedure�6gm-70fb8ec09b0a817-4e3�76A�87�9fl-70fb8ec09b0a817-4e5�:9�;CT8:�<7R;YRRRRbpvz�=>]<}�>\=�?><�@�R;YR|RRR�R����A>h@}�B\A�C;?B<�D77�Efl-70fb8ec09b0a817-4e8�Ffl-70fb8ec09b0a817-4e9�GEF�HC�DG�I7HR;YRRRRbpvz
�J>�I}�K>�I}�L]HR;�M>1L��NKM�ON�P>�@}�Q\P�R;?Q<�Sfl-70fb8ec09b0a817-4ed�Tfl-70fb8ec09b0a817-4ee�UST�VC�DU�W7VR;YRRRRbpvz
�X>�W}�Y>�W}�ZVR;�[>	Z��\Y[�]\�^>�@}�_\^�`;?_<�afl-70fb8ec09b0a817-4f2�bfl-70fb8ec09b0a817-4f3�cab�dC�Dc�e7dR;YRRRRbpvz
�f>�e}�g>�e}�h]dR;�i>�h��jgi�kj�lgt-70fb8ec09b0a817-4e2�ml�nfl-70fb8ec09b0a817-4f7�on�pCm8o�q7pR;YRRRRbpvz
�r>?q}�s�pR;YR|RRR�R����t>�s}�ut�v>�s}�w>Ks}�x>Ms}�yxt�z]pR;�{>1z��|wy{�}>�s}�~pR;�>	~���}t��>Ws}��>�s}��>�z��������t���v|����ru���]R;��>5����goption-spec->predicate��g!%option-spec->predicate-procedure��gm-70fb8ec09b0a817-4fe���A�����fl-70fb8ec09b0a817-500�����CT�����R�YRRRRbpvz��>]�}��\����<���R�YR|RRR�R�����>h�}��\���;��<������fl-70fb8ec09b0a817-503��fl-70fb8ec09b0a817-504������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>1�����������>��}��\���;��<��fl-70fb8ec09b0a817-508��fl-70fb8ec09b0a817-509������C�������R�YRRRRbpvz
��>��}��>��}���R���>	�����������>��}��\���;��<��fl-70fb8ec09b0a817-50d��fl-70fb8ec09b0a817-50e������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>������������gt-70fb8ec09b0a817-4fd�����fl-70fb8ec09b0a817-512�����C�������R�YRRRRbpvz
��>?�}����R�YR|RRR�R�����>��}�����>��}��>K�}��>M�}������]�R���>1���������>��}���R���>	���������>W�}��>��}��>�������������������������]R���>�����goption-spec->value-policy��g$%option-spec->value-policy-procedure��gm-70fb8ec09b0a817-519���A�����fl-70fb8ec09b0a817-51b�����CT�����R�YRRRRbpvz��>]�}��\����<���R�YR|RRR�R�����>h�}��\���;��<������fl-70fb8ec09b0a817-51e��fl-70fb8ec09b0a817-51f������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>1�����������>��}��\���;��<��fl-70fb8ec09b0a817-523�fl-70fb8ec09b0a817-524���C����R�YRRRRbpvz
�>�}�>�}�R��>	���	�
>��}�\
�;�<�
fl-70fb8ec09b0a817-528�fl-70fb8ec09b0a817-529�
�C����R�YRRRRbpvz
�>�}�>�}�]R��>�����gt-70fb8ec09b0a817-518��fl-70fb8ec09b0a817-52d��C���R�YRRRRbpvz
�>?}��R�YR|RRR�R���� >�}�! �">�}�#>K}�$>M}�%$ �&]R��'>1&��(#%'�)>�}�*R��+>	*��,) +�->W}�.>�}�/>�&��0./�1- 0�2"(,1�3!2�4]R��5>�4��6geach�7<<�867�9<8��:<9��;<:��<g%%set-fields�=gdummy�>gcheck?�?gexpr�@=>�}?�Agm-70fb8ec09b0a817-534�BAA�CB�����Dfl-70fb8ec09b0a817-539�Efl-70fb8ec09b0a817-53a�Ffl-70fb8ec09b0a817-53b�Gfl-70fb8ec09b0a817-53c�Hfl-70fb8ec09b0a817-53d�IDEFGH�JC@CI�KB�Lfl-70fb8ec09b0a817-536�ML�NCTKM�Ogt-1e8ba8b5a-16a�Pgt-1e8ba8b5a-16c�Qgt-1e8ba8b5a-16b�ROPQ�Sgm-1e8ba8b5a-16d�TSA�UTTT�Vfl-1e8ba8b5a-171�Wfl-1e8ba8b5a-172�Xfl-1e8ba8b5a-173�YVWX�ZCRUY�[fl-1e8ba8b5a-167�\fl-1e8ba8b5a-168�]fl-1e8ba8b5a-169�^[\]�_C��^�`�JRNYRZRRR_��
�a><`}�b]JRN�c>1b��d>Zb��e>�b��f>�b��g>�b��h>�b��idefgh�jgmap�kj�lj�mglist�ngset-option-spec-name!�og %set-option-spec-name!-procedure�p;<<�qgm-70fb8ec09b0a817-548�rqA�sgt-70fb8ec09b0a817-546�tgt-70fb8ec09b0a817-547�ust�vrr�wfl-70fb8ec09b0a817-54d�xfl-70fb8ec09b0a817-54e�ywx�zCuvy�{r�|fl-70fb8ec09b0a817-54a�}|�~CT{}�rzR~YRRRRbpvz
��>?}��gt-1e8ba8b5a-18c��gt-1e8ba8b5a-18d������gm-1e8ba8b5a-18e���A������fl-1e8ba8b5a-192��fl-1e8ba8b5a-193������C�����gsetter��e}���fl-1e8ba8b5a-186��fl-1e8ba8b5a-187��fl-1e8ba8b5a-188�������C�����8~��fl-1e8ba8b5a-17d��fl-1e8ba8b5a-17e������C�^���gfield-specs������fl-1e8ba8b5a-179��fl-1e8ba8b5a-17a������C�^����zR~YR��R�R�����>��}��gval��>��}������>��}��>K�}��>M�}������]zR~��>1���������gstruct-set!��>��}��zR~��>
����������>W�}��>��}��>n������������������������]R~��>o����gset-option-spec-required?!��g%%set-option-spec-required?!-procedure��gm-70fb8ec09b0a817-558���A��gt-70fb8ec09b0a817-556��gt-70fb8ec09b0a817-557����������fl-70fb8ec09b0a817-55d��fl-70fb8ec09b0a817-55e������C��������fl-70fb8ec09b0a817-55a�����CT������R�YRRRRbpvz
��>?�}����R�YR��R�R�����>��}��>��}������>��}��>K�}��>M�}������]�R���>1���������>��}���R���>����������>W�}��>��}��>�������������������������]R���>�����gset-option-spec-single-char!��g'%set-option-spec-single-char!-procedure��gm-70fb8ec09b0a817-568���A��gt-70fb8ec09b0a817-566��gt-70fb8ec09b0a817-567����������fl-70fb8ec09b0a817-56d��fl-70fb8ec09b0a817-56e������C��������fl-70fb8ec09b0a817-56a�����CT������R�YRRRRbpvz
��>?�}����R�YR��R�R�����>��}��>��}������>��}��>K�}��>M�}������]�R���>1���������>��}���R��>	�������>W�}�>��}�>�������������	]R��
>�	��gset-option-spec-predicate!�g%%set-option-spec-predicate!-procedure�
gm-70fb8ec09b0a817-578�
A�gt-70fb8ec09b0a817-576�gt-70fb8ec09b0a817-577���fl-70fb8ec09b0a817-57d�fl-70fb8ec09b0a817-57e��C��fl-70fb8ec09b0a817-57a��CT�RYRRRRbpvz
�>?}��RYR��R�R����>�}�>�}� �!>�}�">K}�#>M}�$#�%]R�&>1%��'"$&�(>�}�)R�*>	)��+(*�,>W}�->�}�.>%��/-.�0,/�1!'+0�2 1�3]R�4>3��5gset-option-spec-value-policy!�6g(%set-option-spec-value-policy!-procedure�7gm-70fb8ec09b0a817-588�87A�9gt-70fb8ec09b0a817-586�:gt-70fb8ec09b0a817-587�;9:�<88�=fl-70fb8ec09b0a817-58d�>fl-70fb8ec09b0a817-58e�?=>�@C;<?�A8�Bfl-70fb8ec09b0a817-58a�CB�DCTAC�E8@RDYRRRRbpvz
�F>?E}�G�@RDYR��R�R����H>�G}�I>�G}�JHI�K>�G}�L>KG}�M>MG}�NMH�O]@RD�P>1O��QLNP�R>�G}�S@RD�T>	S��URHTI�V>WG}�W>�G}�X>5O��YWX�ZVHY�[KQUZ�\FJ[�]]RD�^>6]��_gmake-option-spec�`gsymbol->string�agfor-each�bgerror�cf$invalid getopt-long option property:�db�eb�ffno matching pattern�gfoption predicate failed: --~a�hgsingle-char�igchar?�jf#`single-char' value must be a char!�kgparse-option-spec�lgreverse�mgstring=?�nf--�ogsplit-arg-list�pgmake-regexp�qf^-([a-zA-Z]+)(.*)�rgshort-opt-rx�sf^--([^=]+)$�tglong-opt-no-value-rx�uf^--([^=]+)=(.*)�vglong-opt-with-value-rx�wgregexp-exec�xglooks-like-an-option�ygmake-string�zgoptional�{f,option must be specified with argument: --~a�|gmatch:substring�}g	assoc-ref�~fno such option: -~a�gappend��g
string-append��f-��gstring->list��f��glength��fno such option: --~a��f&option does not support argument: --~a��gprocess-options��gstop-at-first-non-optionS���	������gassq-ref��foption must be specified: --~a��gstring->symbol�C5hP[^]4	
 "54%>"G4&i'5(R(ha][CYgfilenamefice-9/getopt-long.scm�
�
��		
gnamegprogram-name�C)R*+,)-./h`�-1344545>"G445>"G445>"G6�gfmt
			Zgargs			Zgfilenamefice-9/getopt-long.scm�
�
��	
�	��	
�	
��	�	��	�	&��	�	��	&�	��	+�	��	8�	��	A�	��	D�	��	M�	��	Z�	��			Z
gnamegfatal-error�C0R1h�]�C�gname
		g	required?		goption-spec->single-char			g	predicate			gvalue-policy			gfilenamefice-9/getopt-long.scm�
�
��			gnameg%%make-option-spec-procedure�C2R4567:=�h�]C�gt-70fb8ec09b0a817-487
		gt-70fb8ec09b0a817-488		gt-70fb8ec09b0a817-489			gt-70fb8ec09b0a817-48a			gt-70fb8ec09b0a817-48b						C��6�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC56R���1�4�1>"G	�2i�1R1h~]�$��CCvgobj
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg%option-spec?-procedure�C�R45�7:�Th=]C5gt-70fb8ec09b0a817-4a0
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
CVh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5�R1YZh�]�&
�C6ygs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg%option-spec->name-procedure�C[R45Z7:���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h=]C5gt-70fb8ec09b0a817-4ac
		
		
C��Z�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5ZR1Y�h�]�&�C6~gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg!%option-spec->required?-procedure�C�R45�7:���h:]��C2gerr
		gs					C�h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C�2h=]C5gt-70fb8ec09b0a817-4c7
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C4h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R1Y�h �]�&	�C6�gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg#%option-spec->single-char-procedure�C5R45�7:CJOh:]��C2gerr
		gs					CRX]h:]��C2gerr
		gs					C`fkh:]��C2gerr
		gs					C��h=]C5gt-70fb8ec09b0a817-4e2
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R1Y�h �]�&	�C6~gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg!%option-spec->predicate-procedure�C�R45�7:���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h=]C5gt-70fb8ec09b0a817-4fd
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R1Y�h �]�&	�C6�gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg$%option-spec->value-policy-procedure�C�R45�7:���h:]��C2gerr
		gs					C�	h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C�3h=]C5gt-70fb8ec09b0a817-518
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C5h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R45�7:;acilmh v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/getopt-long.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R1Ynh �]�&
�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg %set-option-spec-name!-procedure�CoR45n7:p�h`]CXgt-70fb8ec09b0a817-546
		gt-70fb8ec09b0a817-547					C��n�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5nR1Y�h �]�&�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg%%set-option-spec-required?!-procedure�C�R45�7:p�h`]CXgt-70fb8ec09b0a817-556
		gt-70fb8ec09b0a817-557					C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5�R1Y�h �]�&	�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg'%set-option-spec-single-char!-procedure�C�R45�7:ph`]CXgt-70fb8ec09b0a817-566
		gt-70fb8ec09b0a817-567					C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C
h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5�R1Yh �]�&	�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg%%set-option-spec-predicate!-procedure�CR457:p2h`]CXgt-70fb8ec09b0a817-576
		gt-70fb8ec09b0a817-577					C���hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C4h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5R1Y5h �]�&	�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg(%set-option-spec-value-policy!-procedure�C6R4557:p\h`]CXgt-70fb8ec09b0a817-586
		gt-70fb8ec09b0a817-587					C��5�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C^h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC55R1h�]�Cygname
		gfilenamefice-9/getopt-long.scm�
�
��	
�	��		gnamegmake-option-spec�C_R_`abcef�10gh(�]
$4L5$C6C�gname
		$gval		$gt			"gfilenamefice-9/getopt-long.scm�
�	��	�	��		�	��	�	��	�	)��	"�	��	#�	��		$	CYhij�d5��h��]"�"*"�"R�$>���$ �(�6456456456�$O��&9�$.�(#�L�&
L	O�C	L
6"��`"��\"��X"��T�$k��&U�$J�(?�45$"4
>"GL�&L	�C	L6"���"���"���"����$J��&4�$)�(�L�&L	�C	L6"���"���"���"����$I��&3�$(�(�L�&L�C	L6"��5"��1"��-"��)�gexpr
	�gw		Wgx			Wgw	q�gx		q�gw	��gw�0gx	�0gw	�$gwA�gx	A�gw	^ygw��gx	��gw	��gfilenamefice-9/getopt-long.scm�
�	��	9�	��	=�	��	>�	����	����	����	����	����	����	���	���	��(�	��c�	��}�	����	����	��	�Ch0�]	44�554O�>"GC�gdesc
		.gspec		.gfilenamefice-9/getopt-long.scm�
�
��	�	��	�	 ��	�	0��	
�	 ��	�	��	�	��	�	��	�	��	#�	��		.gnamegparse-option-spec�CkRlmnhPJ]"<(45�C4�5$45��C���"���"���Bg
argument-list
		Mgyes		Bgno			Bgfilenamefice-9/getopt-long.scm�
�
��	�	��	�	��	
�	*��	�	$��	�	��	�	��	�	��	!�	��	%�	��	&�	*��	/�	8��	0�	$��	4�	��	7�	��	:�	*��	B�	��	B�	��	C�	��	M�	��		Mgnamegsplit-arg-list�CoR4piq5rR4pis5tR4piu5vRwrvth8�]	45$C45$C6�gstring
		2gt		2gt		2gfilenamefice-9/getopt-long.scm�
�
��	�	��	�	��	�	��	�	��	2�	��		2gnameglooks-like-an-option�CxRj1YZh n]�&
�"	45�Cfgspec
		 gfilenamefice-9/getopt-long.scm�
�	��	�	��	�	��		 Cy1Y�h(�]4�&		�"	455�Cxgspec
		'gfilenamefice-9/getopt-long.scm�
�	��	�	��		�	,��	#�	��	&�	��		'C5z1Y�x0{Zlwr|}~��yht]456lgc
		gfilenamefice-9/getopt-long.scm�
	)��		:��		>��		+��		C�m��t�v�ef!h(<]k454455"�"	�&			�"	4		5&P
("4

�5$�
	��"���	�
�	
���"���	�&			�"	4		5&V
("4

�5$ 	�&	
�"	4	
56	�
�	
���"���
	��"���(45�C�$���
	4	5$�
�$;4545

$
"	45




	"���4	5444455545$"5
4
54

5"��(4	5$;45
4
5$"	4
5

	"���4	5

$l4
545$"	45�&		�"	4	5$4
	5
�
	"��k6"�
	�"��C$
�$4455�C"���"���4 56
"���4gspecs
	&gargument-ls	&gstop-at-first-non-option		&gidx		&gsc-idx		&g	unclumped		#gargument-ls		#gfound		#getc		#gspec			'(gls	
	'(gw		Fgx	
Fgt	Sgc	k�gt	
v�gspec	
��gextra	��gunclumped-opts	
��gt	gopt	
Ggt	9gspec	9Ggt	
Pgopt	`�gt	k�gspec	��gfilenamefice-9/getopt-long.scm�
�
��	�	
��	�	��	�	��	�	��	�	��	#�	��	'�	��	)�	��	,�	��	H�	��	N�	��	O�	��	T�	��	Y�	(��	[�	��	_�	
��	b�	��	h�	'��	y�	��	~�	����	$����	9����	-����	����	����	����	����	����	����	(����	����	
���	���	���	���	���	$���	9���	-��	��	��	#��(	
��.	��1	��8		��<	��K	��S
		��_
	��c
	��d	��k	��n	%��v	!���	%���	2���	%���	���	���	"���	���	���	$���	)���	*���	)���	$���	(���	2���	(���	$���	<���	@���	���	���	���	���	���	��
		��
!	��!	��"	!��"	��.#	!��2#	.��6#	!��9!	��G$	��H%	��P
		��Y'	��`'	��c(	!��k(	��z)	!��~)	.���)	!���'	���*	���*	���+	'���+	!���+	���,	#���,	���2	���2	,���2	���
		���/	���.	���0	���0	���0	���0	��		���	���	>���	H��&�	��|	&	gnamegprocess-options�C�R�(jko�a1YZ��0��	h�]�&
�"	454L5�&�"	45$"$"4>"G"�&		�"	45$6Cgspec
	�gname	%�gval		%�gpred	��gfilenamefice-9/getopt-long.scm�
]	��	^	��	_	��	%^	��	,`	��	G`	��	Ma	��	Rb	��	Vb	*��	]b	��	ld	 ���d	���e	���e	 ��	�C�1YZh0�]	4��&
�"	455�C�gspec+val
		.gs	
	)gfilenamefice-9/getopt-long.scm�
g	��	i	��	
i	?��	
i	,��	+i	��	,h	��		.Ch��-/03
#�Y454�5��45�4�5	4	O>"G4
>"G	��ZCZF�gprogram-arguments
	�goption-desc-list	�gstop-at-first-non-option		�gspecifications		,�gpair		6�gsplit-ls		;�gnon-split-ls		@�g	found/etc		M�gfound		R�grest-ls			^�
gfilenamefice-9/getopt-long.scm�
4
��	!T	��	$U	��	,U	��	/V	��	4V	!��	6V	��	6U	��	;W	��	;U	��	@X	��	@U	��	CY	��	MU	��	R[	��	RU	��	U\	��	Z\	��	^\	��	^U	��	a]	��	zg	���k	���k	���k	��	�	
gstop-at-first-non-optionS	�gnameggetopt-long�g
documentationf/Process options, handling both long and short options, similar to
the glibc function 'getopt_long'.  PROGRAM-ARGUMENTS should be a value
similar to what (program-arguments) returns.  OPTION-DESC-LIST is a
list of option descriptions.  Each option description must satisfy the
following grammar:

    <option-spec>           :: (<name> . <attribute-ls>)
    <attribute-ls>          :: (<attribute> . <attribute-ls>)
                               | ()
    <attribute>             :: <required-attribute>
                               | <arg-required-attribute>
                               | <single-char-attribute>
                               | <predicate-attribute>
                               | <value-attribute>
    <required-attribute>    :: (required? <boolean>)
    <single-char-attribute> :: (single-char <char>)
    <value-attribute>       :: (value #t)
                               (value #f)
                               (value optional)
    <predicate-attribute>   :: (predicate <1-ary-function>)

    The procedure returns an alist of option names and values.  Each
option name is a symbol.  The option value will be '#t' if no value
was specified.  There is a special item in the returned alist with a
key of the empty list, (): the list of arguments that are not options
or option values.
    By default, options are not required, and option values are not
required.  By default, single character equivalents are not supported;
if you want to allow the user to use single character options, you need
to add a `single-char' clause to the option description.�CR�h C]45$CC;goptions
		gkey		gdefault			gt			gfilenamefice-9/getopt-long.scm�
m
��	p	��	p	��			gnameg
option-ref�g
documentationfqReturn value in alist OPTIONS using KEY, a symbol; or DEFAULT if not found.
The value is either a string or `#t'.�C!RCVgm
		,grtd
|�gfilenamefice-9/getopt-long.scm�	�
��	-�	��	3�	"��	5�	��	8�
����
��$�
��E�
��7��
��=��
��?��
��?��	��?��	,��?��	��?��
��?��	��?��	,��?��	��?��
��?��	��?��	,��?��	��?��
��@��
��M��
��Y�4
��[Nm
��	[P
C6ice-9/ftw.go000064400000051370150536206120006607 0ustar00GOOF----LE-8-2.0�R]�4h
]gguile�	�	gdefine-module*�	�	�	gice-9�	gftw�	�		gfilenameS�	
f
ice-9/ftw.scm�	gimportsS�	gmatch�	
�	
�	gvlist�	�	�	gsrfi�	gsrfi-1�	�	�	�	gexportsS�	gnftw�	gfile-system-fold�	gfile-system-tree�	gscandir�	�	g	autoloadsS�	gi18n�	�	 gstring-locale<?�	! �	"!�	#gset-current-module�	$#�	%#�	&gopendir�	'geof-object?�	(gclosedir�	)greaddir�	*gstring=?�	+f.�	,f..�	-gdirectory-files�	.f�	/g	substring�	0g
string-length�	1g
string-append�	2f/�	3gpathify�	4gchar=?�	5g
string-ref�	6gabs?�	7gmake-hash-table�	8g	hashv-ref�	9gstat:dev�	:gstat:ino�	;g
hashv-set!�	<g
visited?-proc�	=ggetuid�	>ggetgid�	?g
stat:perms�	@gstat:uid�	Agstat:gid�	Bgstat-dir-readable?-proc�	Cgmemq�	Dgdepth�	Egdirectory-processed�	Fg	directory�	Gg
nftw-style�	Hg
stale-symlink�	Igsymlink�	Jgphysical�	Kgcatch�	LK�	MK�	Nglstat�	Og	stat:type�	Pgstat�	Qgdirectory-not-readable�	Rgregular�	Sginvalid-stat�	Tgstat&flag-proc�	Ugclean�	Vg	hash-size�	Wgthrow�	Xgftw-early-exit�	Ygfor-each�	Zggetcwd�	[gmount�	\gchdir�	]gnftw-early-exit�	^gmake-syntax-transformer�	_^�	`^�	agerrno-if-exception�	bgmacro�	cg$sc-dispatch�	dc�	ec�	fgany�	gff�	hg
syntax-object�	igtop�	ji�	kgribcage�	lgdummy�	mgexpr�	nlm�	og
m-c0b95d8-107�	poi�	qpj�	rf
l-c0b95d8-10c�	sf
l-c0b95d8-10d�	trs�	uknqt�	vk�	wgx�	xw�	yp�	zf
l-c0b95d8-109�	{z�	|kxy{�	}juv|�	~ghygiene�	~��hK}��gquote��h�}��gsystem-error��h�}������glambda��h�}��gargs��h�}��gsystem-error-errno��h�}��������������gsyntax-violation��������f-source expression failed to match any pattern��ginteger?��gvhash-assoc��g
vhash-cons��gdirectory-stream?��gfold��gcons��g
alist-cons��g
vlist-null��gbasename��gerror��
���
���fno matching pattern����gconst��gand=>��gsort�C5hPG�]4	
"5	4%>"G&'()*+,h�s]!45"`45$4>"GC4545$"	45$"�"���45"���kgdir
		g
dir-stream			gnew			ogacc			ogt		?	Xgfilenamef
ice-9/ftw.scm�
�
��	�	��		�	��	�	��	�	
��	�	��	�	��	0�	��	7�	��	;�	"��	?�	��	?�	��	M�	��	Q�	"��	U�	��	\�	��	g�	��	o�	
��	o�	��	p�	��	w�	��	�	��		gnamegdirectory-files�C-R*./012hhJ-13"J(-45$"$C456�4�5"���"���Bgnodes
			cgnodes	
	Wgresult		
	Wgt		'	@gfilenamef
ice-9/ftw.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	 �	��	"�	&��	'�	��	8�	 ��	@�	��	C�	��	D�	��	J�	0��	M�	4��	O�	��	W�	��	W�	��	[�	��	c�	��			c


gnamegpathify�C3R45hz]/4
56rgfilename
		gfilenamef
ice-9/ftw.scm�
�
��	�	��	�	��		gnamegabs?�C6R789:7;h�!]$y4L45545HJ$"$4L5K4L45J>"G4J5$C4J>"GCCgs
	�gino-hash	�gino		�gt		#	Vgt		_�gfilenamef
ice-9/ftw.scm�
�	��	�	��		�	��	�	/��	�	��	�	��	�	��	#�	
��	0�	"��	8�	��	9�	��	>�	(��	K�	��	W�	��	_�	
��	k�	��	�Ch�]	4	5OC�gsize
		gdev-hash			gfilenamef
ice-9/ftw.scm�
�
��	�	��		�	��		gnameg
visited?-proc�C<R=>?@AhpM]45L
�$CL45�$
���"$CL45�$
	 ���"$C
	���CEgs
		pgperms			pgt			pgt		6	pgt		\	pgfilenamef
ice-9/ftw.scm�
	��		��			��		��		��		��	$	��	(	��	/	)��	0	$��	1	��	6	��	D	��	K	��	O	��	U	)��	V	$��	W	��	\	��	m	)��	n	$��	o	��		pCh �]4545OC�guid
		ggid		guid			ggid			gfilenamef
ice-9/ftw.scm�
�
��	�	
��		
��	�	��			gnamegstat-dir-readable?-proc�CBRCDEFGHIJMNhJ]L6Bgfilenamef
ice-9/ftw.scm�
	��		#��		
ChV-13CNgargs
			gfilenamef
ice-9/ftw.scm�
	��			


CIOPhJ]L6Bgfilenamef
ice-9/ftw.scm�
 	��	 	3��		
ChV-13CNgargs
			gfilenamef
ice-9/ftw.scm�
 	��			


CFQRSh��]4O5$�45&Z4O5$=L$D45&4L5$L"	"
DLD45&4L5$L"	"
DD�gname
	�gs	�gs-follow		5�gtype		R	xgtype	��gfilenamef
ice-9/ftw.scm�
	��		��		��		��		��		��	&	��	' 	��	5 	��	=!	��	C#	��	G$	"��	I$	��	L	"��	R	��	V	!��	\	��	]	 ��	g	��	o	 ��	u	��	z&	���"	���	"���	���	!���	���	 ���	���	 ���	���'	���	���	��#	�C
hP�-1345$"45$"45	OC�g
dir-readable?
			Pg
control-flags			Pgdirectory-flag			Pgstale-symlink-flag		5	Pg	physical?		@	Pgfilenamef
ice-9/ftw.scm�

��	

	��	
	#��	
	��	
	��		��		��	
	��	!	!��	%	'��	)	!��	-	��	/	!��	5	!��	5
	��	8	��	<	��	@	��	@
	��			P
gnamegstat&flag-proc�CTR045/h0�]	45�4/455$	
6C�gname
		,glast-char-index	
	,gfilenamef
ice-9/ftw.scm�
)
��	*	��	
*	��	
*	��	
+	��	+	��	+	��	 +	��	),	��
		,gnamegclean�CUR<CVTB=>WXFY3hg]L4L56_gchild
		gfilenamef
ice-9/ftw.scm�
=	#��	>	)��	>	%��		C-h�4]4L>G4L5$C4L5&"4>"G&$4LO45>"G"C,gfullname
	�gs	
�gflag		
�gt		�gret		1�gfilenamef
ice-9/ftw.scm�
4	��	5	0��	5	��	7	��	7	��	'8	&��	18	��	:9	��	?:	!��	C:	(��	J:	!��	T;	'��	Z;	��	[<	"��	g?	#��	r<	"��	�gnameggo�CKXUhS]L4L56Kgfilenamef
ice-9/ftw.scm�
B	
��	B	��	
B	��		
Chd]C\gkey
		gval		gfilenamef
ice-9/ftw.scm�
C	
��			C
hpv-13445$��"�544454555OQ	
O6ngfilename
			lgproc			lgoptions				lgt			+gvisited?		-	lg	stat&flag		C	lggo		P	lgfilenamef
ice-9/ftw.scm�
/
��	
0	��	
0	)��	0	/��	0	)��	0	"��	-0	��	-0	��	02	��	33	��	63	.��	;3	7��	A3	��	C2	��	C0	��	P4	��	_A	
��	lA	��			l	
	gnamegftw�CRZMNhJ]L6Bgfilenamef
ice-9/ftw.scm�
G	��	G	,��		
ChV-13CNgargs
			gfilenamef
ice-9/ftw.scm�
G	��			


C9C[9hc]45L�C[gs
		
gfilenamef
ice-9/ftw.scm�
J	��	J	'��	J	$��		
ChQ]CIgs
		gfilenamef
ice-9/ftw.scm�
K	��		C\6\/h �]

�$C4
56�gfullname
		gbase		gt			gfilenamef
ice-9/ftw.scm�
O	��	P	!��	P	��	L	'��	Q	!��			C\3/h�]4L4
556�gfullname
		gbase		gfilenamef
ice-9/ftw.scm�
R	��	T	��	
L	'��	T	��	S	��			Chj]Cbgfullname
		gbase		gfilenamef
ice-9/ftw.scm�
U	��			C\hJ]L6Bgfilenamef
ice-9/ftw.scm�
W	��	W	'��		
ChA]C9gfilenamef
ice-9/ftw.scm�
X	��		
CD<VEhf]�C^gflag
		gfilenamef
ice-9/ftw.scm�
^	��	^	1��	^	'��		CFhf]�C^gflag
		gfilenamef
ice-9/ftw.scm�
_	��	_	1��	_	'��		CTB=>GY30h �]L4L54L5�L�6zgchild
		gfilenamef
ice-9/ftw.scm�
q	.��	r	4��	s	8��	s	4��	u	4��	r	0��		C-W]30h �]L4L54L5�L�6zgchild
		gfilenamef
ice-9/ftw.scm�
q	.��	r	4��	s	8��	s	4��	u	4��	r	0��		Chh?]+4L>G4L5$"14L5�$"L$�4L5$&4LO45>"G"4L>"G4L54L>"G&"4>"G"�4L>"G4L54L>"G&"4>"G4L5$&4LO45>"G"C7gfullname
	cgbase	cglevel		cgs		
agflag		
agt		[gt		/Xgret	��gret	�$	gfilenamef
ice-9/ftw.scm�
c	��	d	0��	d	��	w	��	w	��	(x	"��	/x	��	/w	��	Ay	��	Bo	-��	Lo	(��	Mp	-��	[v	.��	fp	-��	sg	(���i	3���i	(���k	*���l	*���m	.���m	5���m	.���g	(���i	3���i	(���k	*��	l	*��m	.��m	5��m	.��%o	-��/o	(��0p	-��>v	.��Ip	-��$	c	gnameggo�CK]UhS]L4L5

6Kgfilenamef
ice-9/ftw.scm�
~	��	~	'��	~	#��		
Chd]C\gkey
		gval		gfilenamef
ice-9/ftw.scm�
	��			C\!hH�-13454O5$45"	�45$O"	4
5$45$"
O"4
5$O"45445		$	��"�	5	$"
4445455?O	
	Q4O5
4 >"G
C�gfilename
		Ggproc		Gg
control-flags			Ggod		Ggs			7godev		7Gg	same-dev?		SGgmaybe-cd	�Gg
maybe-cd-back	�Ggdepth-first?	�Ggt		��gvisited?		�Gg	has-kids?	
�Gg	stat&flag	�Gggo		Ggret	
0Ggfilenamef
ice-9/ftw.scm�
E
��	
F	
��	F	��	G	��	G	��	'H	��	(H	��	7F	��	:I	��	>I	��	BI	��	FI	��	SF	��	VM	��	ZM	��	^M	��	bM	��	cN	��	mN	���F	���V	���V	"���V	���V	���F	���Y	���Y	���Y	���F	���Z	���[	���[	!���[	���[	���Z	���F	���]	���F	���`	���a	���a	4���a	=���a	���b	!���`	���F	��	c	��}	��#}	��0}	��0}	��3�	��5		G	
	gnamegnftw�CR4`abeg����h?]���C7gdummy
		gexpr					C��h(�]	45$@6�gx
		"gtmp		"gfilenamef
ice-9/ftw.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgexprC5aRN*.12��9:FOK�&hJ]M6Bgfilenamef
ice-9/ftw.scm�
�	��	�	-��		
C�hV-136Ngargs
			gfilenamef
ice-9/ftw.scm�
�	��			


C��'(��hn]LL�ML�L�L�6fgfilenamef
ice-9/ftw.scm�
�	,��	�	4��	�	4��	�	4��	�	4��	�	.��		
Ch {]4LLO>6<sgsubdir
		gresult+visited		gfilenamef
ice-9/ftw.scm�
�	&��	�	(��			C+,)hJ]LL6Bgfilenamef
ice-9/ftw.scm�
�	%��	�	9��		
C�hV-136Ngargs
			gfilenamef
ice-9/ftw.scm�
�	%��			


C�h(�]EH45$"45K45$LJ644545�5$D	4
5&�4LJ5$|4
O544545�545$5"45$:4>"G4LO	�
54LJ�5�D45$"	45$45	

	"���4J54LO545$454L	5

	"��54
5	&45	4
5
	"��
454L	5

	"���454LJ5
	"���4LJ5D4LJ544545�5DLJ6�gname
	!gpath	!gdir-stat		!gresult		!gvisited		!g	full-name		!gdir	��gvisited	��gentry	��gresult		��gsubdirs	
��gr+v	��gt	�gchild	<�gst	P�gfilenamef
ice-9/ftw.scm�
�	��	�	
��	�	��	�	
��	�	��	�	
��	�	��	#�	
��	&�	��	0�	��	;�	��	<�	��	?�	��	F�	$��	M�	��	Q�	��	U�	��	[�	��	]�	��	^�	��	h�	��	i�	
��	w�	��	x�	����	����	����	#����	����	����	
����	����	����	����	����	����	����	 ����	&����	 ����	����	#����	:����	#����	#����	����	����	+����	����	��
�	���	+���	���	���	��1�	��2�	%��8�	>��<�	%��<�	��?�	%��P�	��S�	��]�	��^�	#��e�	#��|�	��}�	&����	5����	����	'����	'����	!����	'����	'����	!����	����	"����	"����	"����	����	����	����	����	���	��	�	#���	���	���	
��!�	��[	!	gnamegloop�C.K�hJ]LL6Bgfilenamef
ice-9/ftw.scm�
�	��	�	+��		
C�hV-136Ngargs
			gfilenamef
ice-9/ftw.scm�
�	��			


C�	hXJ-.	,	3
#O		Q		4O56Bgenter?
		Vgleaf		Vgdown			Vgup			Vgskip			Vgerror			Vginit			Vg	file-name			Vgstat			Vgloop			%	V
gfilenamef
ice-9/ftw.scm�
�
��	%�	��	>�	��	?�	��	V�	��		V	gnamegfile-system-fold�g
documentationf�Traverse the directory at FILE-NAME, recursively.  Enter
sub-directories only when (ENTER? PATH STAT RESULT) returns true.  When
a sub-directory is entered, call (DOWN PATH STAT RESULT), where PATH is
the path of the sub-directory and STAT the result of (stat PATH); when
it is left, call (UP PATH STAT RESULT).  For each file in a directory,
call (LEAF PATH STAT RESULT).  When ENTER? returns false, call (SKIP
PATH STAT RESULT).  When an `opendir' or STAT call raises an exception,
call (ERROR PATH STAT ERRNO RESULT), with ERRNO being the operating
system error number that was raised.

Return the result of these successive applications.
When FILE-NAME names a flat file, (LEAF PATH STAT INIT) is returned.
The optional STAT parameter defaults to `lstat'.�CRh`]CXgn
		gs		gfilenamef
ice-9/ftw.scm�
�	.��			CN����h`�]�$I���$+�$4455�C456456456�gname
		_gstat		_gresult			_gw			Rgx			Rgfilenamef
ice-9/ftw.scm�
�	��	�	��	"�	
��	%�	��	0�	4��	4�	
��	7�	��	9�	��			_	gnamegleaf�C����h�
]#�${���$]�$I���$+�$445�5�C456456456456456gname
	�gstat	�gresult		�gw		�gx		�gw		'	jgx		'	jgfilenamef
ice-9/ftw.scm�
	��		��	:	
��	=	��	H	)��	L	
��	O	��	Q	��		�	gnamegup�Ch�]L6�gname
		
gstat		
gresult			
gfilenamef
ice-9/ftw.scm�
�	��	
�	��		
	gnamegenter?*�Ch�]�C�gname
		gstat		gresult			gfilenamef
ice-9/ftw.scm�
	��		
��		��			gnamegdown�C*h �]4L5$CL6�gname
		gstat		gerrno			gresult			gfilenamef
ice-9/ftw.scm�

	��		��		��	
	��			gnamegerror�C���
h�w-.,3##4OO	5	�$e�(Q�".�(�(C4
564
56�$�(�C"���"���4
564
56og	file-name
	�genter?	�gstat		�gleaf		(�gup		(�gv		K�gw		^�gw		n�gfilenamef
ice-9/ftw.scm�
�
��	)	��	E	;��	K	��	�	gnamegfile-system-tree�g
documentationfRReturn a tree of the form (FILE-NAME STAT CHILDREN ...) where STAT is
the result of (STAT FILE-NAME) and CHILDREN are similar structures for
each file contained in FILE-NAME when it designates a directory.  The
optional ENTER? predicate is invoked as (ENTER? NAME STAT) and should
return true to allow recursion into directory NAME; the default value is
a procedure that always returns #t.  When a directory does not match
ENTER?, it nonetheless appears in the resulting tree, only with zero
children.  The optional STAT parameter defaults to `lstat'.  Return #f
when FILE-NAME is not readable.�CR� �K�&hJ]L6Bgfilenamef
ice-9/ftw.scm�
"	��	#	��		
C'(�)h`�]"J45$4>"GL6454L5$	�""���45"����gstream
		`gentry		Pgfiles			Pgfilenamef
ice-9/ftw.scm�
'		��	(	��	*	��	*	
��	,	��	+-	��	,.	��	3/	��	=/	��	B0	��	P.	��	P(	��	Q(	��	X)	��	`(	��		`ChH�-.,3#45#4O455O6�gname
		Egselect?		Egentry<?			Egfilenamef
ice-9/ftw.scm�

��		+��	'!	��	+!	��	3$	��	:!	��	E&	��		E	gnamegscandir�g
documentationfReturn the list of the names of files contained in directory NAME
that match predicate SELECT? (by default, all files.)  The returned list
of file names is sorted according to ENTRY<?, which defaults to
`string-locale<?'.  Return #f when NAME is unreadable or is not a
directory.�CRC�gm
		0gfilenamef
ice-9/ftw.scm�	�
��F�
���
����
��7�
��
�
��k
��|)
���/
��'�E
��8��
��C�
��GH
��	GJ
C6ice-9/regex.go000064400000016612150536206120007121 0ustar00GOOF----LE-8-2.0r]34h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gregex�	�		gfilenameS�	
fice-9/regex.scm�	gexportsS�	gmatch:count�	
gmatch:string�	gmatch:prefix�	gmatch:suffix�	g
regexp-match?�	gregexp-quote�	gmatch:start�	g	match:end�	gmatch:substring�	gstring-match�	gregexp-substitute�	gfold-matches�	glist-matches�	gregexp-substitute/global�	
�	gset-current-module�	�	�	g
vector-length�	g	substring�	 gstring?�	!ginteger?�	"gcall-with-output-string�	#gstring-for-each�	$g
write-char�	%gmake-regexp�	&gregexp-exec�	'gfor-each�	(gdisplay�	)gpre�	*gpost�	+gerror�	,gwrong-type-arg�	-gregexp?�	.g
regexp/notbol�	/g
string-length�	0greverse!�	1gcons�	2g
procedure?�C5h��]4	
54>"Gh}]45�Cugmatch
		gfilenamefice-9/regex.scm�
	;
��		<	��	
	<	��		gnamegmatch:count�CRhv]
�Cngmatch
		gfilenamefice-9/regex.scm�
	>
��		?	��		gnamegmatch:string�C
R
h�]45
4
56~gmatch
		gfilenamefice-9/regex.scm�
	A
��		B	
��	
	B	$��		B	��		gnamegmatch:prefix�CR
h�]454
56~gmatch
		gfilenamefice-9/regex.scm�
	D
��		E	
��		E	"��		E	��		gnamegmatch:suffix�CR !hpM]	�$a4
�5$R"G45�$C��$+4��5$4��5$	�"���CCC"���CCEgmatch
		lgi		agfilenamefice-9/regex.scm�
	J
��		K	��			K	��	
	L	��		L	��		L	��		K	��		M	��		N	��	$	N	��	(	N		��	/	O	��	0	O	��	4	N		��	5	P	��	<	P	$��	=	P	��	?	P	��	C	O	��	D	Q	��	K	Q	$��	L	Q	��	N	Q	��	R	O	��	U	R	��	[	R	��	a	M	��		lgnameg
regexp-match?�CR"#$h�]*�$"=.�$"/\�$"!^�$"$�$"[�$4\L>"GL6(�$"K)�$"=+�$"/?�$"!{�$"}�$"|�$04[L>"G4L>"G]L6L6�gc
	gfilenamefice-9/regex.scm�
	g	��		h	��	R	j	��	m	k	��	v	h	���	m	���	n	���	o	��	q	��
	ChZ]OL6Rgp
		gfilenamefice-9/regex.scm�
	f	��		g	��		Chw]O6ogstring
		
gfilenamefice-9/regex.scm�
	d
��	
	e	��		
gnamegregexp-quote�CRh0�-.,3#
���	��$CC�gmatch
		,gn		,gstart			,gfilenamefice-9/regex.scm�
	t
��		u	&��		u	��		u	��		u	��	#	v	��	'	v	��		,gnamegmatch:start�CRh0�-.,3#
���	��$CC�gmatch
		,gn		,gend			,gfilenamefice-9/regex.scm�
	x
��		y	%��		y	��		y	��		y	��	#	z	��	'	z	��		,gnameg	match:end�CR
hP�-.,3#
4545$$456CC�gmatch
		Jgn		Jgstart			Jgend		)	Jgfilenamefice-9/regex.scm�
	|
��		}	��		}	��	!	~	��	)	}	��	1		��	:		��	F		��			Jgnamegmatch:substring�CR%&h0�-1345�$�"
6�gpattern
			-gstr			-gargs				-grx			-gstart			-gfilenamefice-9/regex.scm�
�
��	
�	��	�	��	�	��	�	 ��	�	��	-�	��			-	
	gnamegstring-match�CR' (!)*+,hh�]45$L645$4L5L6&
4L5L6&
4L5L6	
6�gobj
		agfilenamefice-9/regex.scm�
�	��	�	��	
�	��	�	)��	�	��	 �	��	#�	2��	/�	)��	1�	��	7�	��	:�	2��	D�	)��	F�	��	L�	��	O�	2��	Y�	)��	]�	%��	a�	��		aC"h\]LL@Tgp
		gfilenamefice-9/regex.scm�
�	��	�		��		Ch0�-13$O6O6�gport
			+gmatch			+gitems				+gfilenamefice-9/regex.scm�
�
��	�	��	�	��	+�	��			+	
	gnamegregexp-substitute�CR-%./&h�2-.,3#
45$"45"�H	
�$
"K	45�$"4J	�5

$P"4
54
5"���4
54
5�$$�"��y"���"���C
"��`*gregexp
	�gstring	�ginit		�gproc		�gflags		�gregexp		-�gstart		3�gvalue		3�gabuts		3�gbol			4�gm	
	j�gfilenamefice-9/regex.scm�
�
��	�	��	 �	��	'�	,��	-�	��	3�	��	9�	��	>�	��	J�	��	Q�	��	U�	��	[�	��	h�	4��	j�	��	j�	��	r�	��	w�	��	~�	����	
����	����	����	"����	����	����	
����	����	
����	��	�	gnamegfold-matches�CR01h(�-.,3#
456�gregexp
		'gstring		'gflags			'gfilenamefice-9/regex.scm�
�
��	�	��	�	(��	%�	��	'�	��		'	gnameglist-matches�CR( (!2)*+,
h�E]45$L645$4L5L645$
4L5L6&4LL4L55L6	&LL�4
L566=gitem
	�gfilenamefice-9/regex.scm�
�	��	�	��	
�	��	�	&��	�	��	 �	��	#�	/��	/�	&��	0�	��	:�	��	=�	/��	G�	&��	K�	��	O�	��	R�	��	Y�	-��	a�	��	e�	��	i�	��	m�	��	r�	 ��	s�	.��	{�	��	�	 ����	��	�gnamegdo-item�Chx\](4L5L6�"OOLLLQ�$*�(�64�>"G�"���CL"���Tgmatches
		wgstart		wgm			wgitems		 	ogdo-item		-	ogfilenamefice-9/regex.scm�
�	��	�	��	�	��	�	��	�	��	�	��	 �	��	?�	��	C�	��	F�	��	J�	��	O�	!��	Q�	��	R�	��	W�	#��	\�	��	g�	%��	m�	��	o�	��		w	gnameg
next-match�C"h\]LLL@Tgp
		gfilenamefice-9/regex.scm�
�	��	�		��		ChH�-13$$OQ45
6O6�gport
			Bgregexp			Bgstring				Bgitems				Bg
next-match			3gfilenamefice-9/regex.scm�
�
��	�	��	�	��	(�	 ��	3�	��	B�	��			B	
	gnamegregexp-substitute/global�CRC�gm
		(gfilenamefice-9/regex.scm�		'
���	;
��Y	>
��	A
���	D
���	J
��j	d
��j	t
��	f	x
��
�	|
����
����
����
����
����
��	�
C6ice-9/match.go000064400000244343150536206120007107 0ustar00GOOF----LE-8-2.0�H]�4hR�]gguile�	�	gdefine-module*�	�	�	gice-9�	gmatch�	�		gfilenameS�	
fice-9/match.scm�	gexportsS�	gmatch-lambda�	
g
match-lambda*�	g	match-let�	g
match-let*�	gmatch-letrec�	
�	gset-current-module�	�	�	gthrow�	gmatch-error�	fmatch�	gerror�	gmake-syntax-transformer�	�	�	gslot-ref�	gmacro�	g$sc-dispatch�	�	 �	!gany�	"!!!!�	#g
syntax-object�	$g
struct-ref�	%gtop�	&%�	'gribcage�	(gdummy�	)grtd�	*grec�	+gn�	,()*+�	-gm-1883f58c-6d8�	.-%�	/.&&&�	0fl-1883f58c-6dd�	1fl-1883f58c-6de�	2fl-1883f58c-6df�	3fl-1883f58c-6e0�	40123�	5',/4�	6'�	7gx�	87�	9.�	:fl-1883f58c-6da�	;:�	<'89;�	=&56<�	>ghygiene�	?>�	@#$=?�	Agsyntax-violation�	BA�	CA�	Df-source expression failed to match any pattern�	Eg	slot-set!�	F!!!!!�	Ggstruct-set!�	Hgvalue�	I()*+H�	Jgm-1883f58c-6e5�	KJ%�	LK&&&&�	Mfl-1883f58c-6ea�	Nfl-1883f58c-6eb�	Ofl-1883f58c-6ec�	Pfl-1883f58c-6ed�	Qfl-1883f58c-6ee�	RMNOPQ�	S'ILR�	TK�	Ufl-1883f58c-6e7�	VU�	W'8TV�	X&S6W�	Y#GX?�	Zgis-a?�	[!!!�	\gand�	](*)�	^gm-1883f58c-6f4�	_^%�	`_&&�	afl-1883f58c-6f9�	bfl-1883f58c-6fa�	cfl-1883f58c-6fb�	dabc�	e']`d�	f_�	gfl-1883f58c-6f6�	hg�	i'8fh�	j&e6i�	k#\j?�	lgstruct?�	m#lj?�	ngeq?�	o#nj?�	pg
struct-vtable�	q#pj?�	rgmatch-syntax-error�	s!�	t(�	ugm-1883f58c-701�	vu%�	wv�	xfl-1883f58c-706�	yx�	z'twy�	{fl-1883f58c-703�	|{�	}'8w|�	~&z6}�	#r~?��f invalid match-syntax-error usage��#�~?�����gm-1883f58c-708���%�����fl-1883f58c-70d�����'t����fl-1883f58c-70a�����'8����&�6���#r�?��fmissing match expression��#��?������!!��gatom��(����&��fl-1883f58c-710��fl-1883f58c-711������'�����&�6���#r�?��fno match clauses��#��?������geach-any��geach��!!������������!����glet��gapp��gpat��gbody��(������&&&��fl-1883f58c-715��fl-1883f58c-716��fl-1883f58c-717��fl-1883f58c-718��������'�����&�6���#��?��gv��#��?��g
match-next��#��?��gset!��#��?��gmap��������gcons��gvector�����������!����gvec��(�����fl-1883f58c-723��fl-1883f58c-724��fl-1883f58c-725��fl-1883f58c-726��������'�����&�6���#��?��#��?��glist->vector��������#��?��#��?����������!����!Ҍ��(�����fl-1883f58c-72f��fl-1883f58c-730��fl-1883f58c-731��fl-1883f58c-732��������'�����&�6���#��?��#��?��#��?��#��?��gg+s��(����gm-1883f58c-739���%���&&��fl-1883f58c-73e��fl-1883f58c-73f��fl-1883f58c-740�������'��������fl-1883f58c-73b�����'8����&�6���#�?��gquote��#��?��#�?������fno matching pattern��#��?��gfree-id��g=>��&6���#��?�������!���!���!�����!���!���!���!��gfailure�grest�(������&&&&&&�fl-1883f58c-745�fl-1883f58c-746�fl-1883f58c-747�	fl-1883f58c-748�
fl-1883f58c-749�fl-1883f58c-74a�fl-1883f58c-74b�
	
�'
�&6��#�?�glambda�#?�#�?�g	match-one�#?�gmatch-drop-ids�#?�gbegin�#?���!��!��!��!��(����� �&&&&&�!fl-1883f58c-754�"fl-1883f58c-755�#fl-1883f58c-756�$fl-1883f58c-757�%fl-1883f58c-758�&fl-1883f58c-759�'!"#$%&�(' '�)&(6��*#�)?�+#�)?�,#)?�-+,�.!���/!!.!!!!�0gmatch-check-ellipse�1gp�2gq�3gr�4gsk�5gfk�6gi�7(�123�456	�8gm-1883f58c-760�98%�:9&&&&&&&&	�;fl-1883f58c-765�<fl-1883f58c-766�=fl-1883f58c-767�>fl-1883f58c-768�?fl-1883f58c-769�@fl-1883f58c-76a�Afl-1883f58c-76b�Bfl-1883f58c-76c�Cfl-1883f58c-76d�D;<=>?@ABC	�E'7:D�F9�Gfl-1883f58c-762�HG�I'8FH�J&E6I�K#0J?�Lgmatch-extract-vars�M#LJ?�Ngmatch-gen-ellipses�O#NJ?�Pg	match-two�Q#PJ?�R(7�S9&�Tfl-1883f58c-778�Ufl-1883f58c-779�VTU�W'RSV�X&W6I�Y#PX?�Z!!!�!!�[gif�\(��456�]gm-1883f58c-77c�^]%�_^&&&&&�`fl-1883f58c-781�afl-1883f58c-782�bfl-1883f58c-783�cfl-1883f58c-784�dfl-1883f58c-785�efl-1883f58c-786�f`abcde�g'\_f�h^�ifl-1883f58c-77e�ji�k'8hj�l&g6k�m#[l?�ngnull?�o#nl?�pgappend�qp�rp�s&6k�t#�s?�u�t�vu!�w!!v!�!!�x(�1�456�y^&&&&&&�zfl-1883f58c-78f�{fl-1883f58c-790�|fl-1883f58c-791�}fl-1883f58c-792�~fl-1883f58c-793�fl-1883f58c-794��fl-1883f58c-795��z{|}~���'xy���&�6k��#[�?��gequal?��#��?��#��?��g
quasiquote��#�s?�������!���!���!����!����gmatch-quasiquote��(�17��^&&&��fl-1883f58c-79f��fl-1883f58c-7a0��fl-1883f58c-7a1��fl-1883f58c-7a2��������'�����&�6k��#��?��#\s?���������!!�!�!!��!���������!!�!!!!��(�12�456��^&&&&&&&��fl-1883f58c-7b6��fl-1883f58c-7b7��fl-1883f58c-7b8��fl-1883f58c-7b9��fl-1883f58c-7ba��fl-1883f58c-7bb��fl-1883f58c-7bc��fl-1883f58c-7bd������������'�����&�6k��#�?��#\�?��gor��#�s?���������!!�!!!!���!���!���!����!����fl-1883f58c-7d5��fl-1883f58c-7d6��fl-1883f58c-7d7��fl-1883f58c-7d8��������'�����&�6k��#�?�������!!�!!!!��fl-1883f58c-7de��fl-1883f58c-7df��fl-1883f58c-7e0��fl-1883f58c-7e1��fl-1883f58c-7e2��fl-1883f58c-7e3��fl-1883f58c-7e4�����������'xy���&�6k��#L�?��#��?��gmatch-gen-or��#��?��gnot��#�s?�������!��!!�!�!!��fl-1883f58c-7ef��fl-1883f58c-7f0��fl-1883f58c-7f1��fl-1883f58c-7f2��fl-1883f58c-7f3��fl-1883f58c-7f4��fl-1883f58c-7f5�����������'xy���&�6k��#�?��#�?��gget!��#�s?�������!��!!���!!��ggetter��gg��gs��(����456��fl-1883f58c-7ff��fl-1883f58c-800��fl-1883f58c-801��fl-1883f58c-802��fl-1883f58c-803��fl-1883f58c-804��fl-1883f58c-805��fl-1883f58c-806������������'�����&�6k��#��?��#�?��#�s?�������!��!���!!���!!��gsetter��(����456��fl-1883f58c-811�fl-1883f58c-812�fl-1883f58c-813�fl-1883f58c-814�fl-1883f58c-815�fl-1883f58c-816�fl-1883f58c-817�fl-1883f58c-818���'���	&6k�
#�	?�#	?�#7	?�
�g?�#s?������!!!!!!�gpred�(�1�456�fl-1883f58c-824�fl-1883f58c-825�fl-1883f58c-826�fl-1883f58c-827�fl-1883f58c-828�fl-1883f58c-829�fl-1883f58c-82a�fl-1883f58c-82b��'��&6k� #[?�!#?�"#\?�#g=�$##s?�%�$�&%!!�'&!��(!'��)!(��*gproc�+(�*17�,^&&&&�-fl-1883f58c-835�.fl-1883f58c-836�/fl-1883f58c-837�0fl-1883f58c-838�1fl-1883f58c-839�2-./01�3'+,2�4&36k�5#�4?�6gw�7#64?�8#4?�9g___�:#9s?�;�:�<;!��=!<��>!!=!!!!�?(�13�456�@fl-1883f58c-840�Afl-1883f58c-841�Bfl-1883f58c-842�Cfl-1883f58c-843�Dfl-1883f58c-844�Efl-1883f58c-845�Ffl-1883f58c-846�Gfl-1883f58c-847�H@ABCDEFG�I'?�H�J&I6k�K#LJ?�L#NJ?�M!!s!!!!�Nfl-1883f58c-851�Ofl-1883f58c-852�Pfl-1883f58c-853�Qfl-1883f58c-854�Rfl-1883f58c-855�Sfl-1883f58c-856�Tfl-1883f58c-857�UNOPQRST�V'xyU�W&V6k�X#[W?�Y#\W?�Zgpair?�[#ZW?�\#nW?�]gcdr�^#]W?�_#�W?�`#6W?�agcar�b#aW?�c#W?�dgset-car!�e#dW?�fg***�g#fs?�h�g�i!h!�j!!i!!!!�kfl-1883f58c-860�lfl-1883f58c-861�mfl-1883f58c-862�nfl-1883f58c-863�ofl-1883f58c-864�pfl-1883f58c-865�qfl-1883f58c-866�rfl-1883f58c-867�sklmnopqr�t'��s�u&t6k�v#Lu?�wgmatch-gen-search�x#wu?�yh!��z!y��{!!z!!!!�|fl-1883f58c-871�}fl-1883f58c-872�~fl-1883f58c-873�fl-1883f58c-874��fl-1883f58c-875��fl-1883f58c-876��fl-1883f58c-877��fl-1883f58c-878��|}~������'�����&�6k��#r�?��finvalid use of ***��#��?��#f�?��g..1��#�s?������!���!!�!!!!��fl-1883f58c-882��fl-1883f58c-883��fl-1883f58c-884��fl-1883f58c-885��fl-1883f58c-886��fl-1883f58c-887��fl-1883f58c-888�����������'xy���&�6k��#[�?��#Z�?��#�?��#9�?�����g$��#�s?�����������!!�!!!!��(�*1�456��fl-1883f58c-891��fl-1883f58c-892��fl-1883f58c-893��fl-1883f58c-894��fl-1883f58c-895��fl-1883f58c-896��fl-1883f58c-897��fl-1883f58c-898������������'�����&�6k��#[�?��#Z�?��gmatch-record-refs��#��?��#
�?��!!�!!!!��fl-1883f58c-8a3��fl-1883f58c-8a4��fl-1883f58c-8a5��fl-1883f58c-8a6��fl-1883f58c-8a7��fl-1883f58c-8a8��fl-1883f58c-8a9��fl-1883f58c-8aa������������'�����&�6k��#[�?��#Z�?��#��?��#6�?��#a�?��#7�?��#]�?��#�?��#d�?��gset-cdr!��#��?�������!̌��!͌��gmatch-vector��(�1�7��fl-1883f58c-8b4��fl-1883f58c-8b5��fl-1883f58c-8b6��fl-1883f58c-8b7��fl-1883f58c-8b8���������'�,���&�6k��#��?��#
�?��g_��#�s?������!!�!�!!��!!!!�!���g
let-syntax��gid��(�7�45���fl-1883f58c-8ce��fl-1883f58c-8cf��fl-1883f58c-8d0��fl-1883f58c-8d1��fl-1883f58c-8d2��fl-1883f58c-8d3��fl-1883f58c-8d4�����������'�y���&�6k��#��?��gnew-sym?��#��?��gsyntax-rules��#��?��gsk2��#��?��gfk2��#��?���������gy��#��?���������������grandom-sym-to-match��#��?��#��?�#[�?�#��?�gunquote�gm-1883f58c-8e1�%��fl-1883f58c-8e3��'8�	&6�
#	?��
�!�
!!!!!!�&&&&&&�fl-1883f58c-8e6�fl-1883f58c-8e7�fl-1883f58c-8e8�fl-1883f58c-8e9�fl-1883f58c-8ea�fl-1883f58c-8eb�fl-1883f58c-8ec��'x�&6�#?�gunquote-splicing�#	?���!�!��!!!!!!� (�1�456�!&&&&&&&�"fl-1883f58c-8f5�#fl-1883f58c-8f6�$fl-1883f58c-8f7�%fl-1883f58c-8f8�&fl-1883f58c-8f9�'fl-1883f58c-8fa�(fl-1883f58c-8fb�)fl-1883f58c-8fc�*"#$%&'()�+' !*�,&+6�-#[,?�.#Z,?�/#,?�0gtmp�1#0,?�2#�,?�3#�	?�4�3�54!�6!.��7!6��857��9!8��:!9��;gdepth�<(�1�456;�=fl-1883f58c-906�>fl-1883f58c-907�?fl-1883f58c-908�@fl-1883f58c-909�Afl-1883f58c-90a�Bfl-1883f58c-90b�Cfl-1883f58c-90c�Dfl-1883f58c-90d�E=>?@ABCD�F'<!E�G&F6�H#�G?�I#G?�J!7��KJ��L!K��M!L��N(�1�4567;	�O&&&&&&&&	�Pfl-1883f58c-917�Qfl-1883f58c-918�Rfl-1883f58c-919�Sfl-1883f58c-91a�Tfl-1883f58c-91b�Ufl-1883f58c-91c�Vfl-1883f58c-91d�Wfl-1883f58c-91e�Xfl-1883f58c-91f�YPQRSTUVWX	�Z'NOY�[&Z6�\#�[?�]J��^!]��_!^��`fl-1883f58c-92a�afl-1883f58c-92b�bfl-1883f58c-92c�cfl-1883f58c-92d�dfl-1883f58c-92e�efl-1883f58c-92f�ffl-1883f58c-930�gfl-1883f58c-931�hfl-1883f58c-932�i`abcdefgh	�j'NOi�k&j6�l#�k?�m�7��n!m��o!n��p(�12�456;	�qfl-1883f58c-93d�rfl-1883f58c-93e�sfl-1883f58c-93f�tfl-1883f58c-940�ufl-1883f58c-941�vfl-1883f58c-942�wfl-1883f58c-943�xfl-1883f58c-944�yfl-1883f58c-945�zqrstuvwxy	�{'pOz�|&{6�}#[|?�~#Z|?�#�|?��#6|?��#a|?��#7|?��#]|?��#�|?��gmatch-quasiquote-step��#�|?���7���!����!����gelt��(���456;��fl-1883f58c-950��fl-1883f58c-951��fl-1883f58c-952��fl-1883f58c-953��fl-1883f58c-954��fl-1883f58c-955��fl-1883f58c-956��fl-1883f58c-957������������'�!���&�6��#[�?��gvector?��#��?��#��?��gls��#��?��gvector->list��#��?��#��?��!J���!����(�7�456;��fl-1883f58c-962��fl-1883f58c-963��fl-1883f58c-964��fl-1883f58c-965��fl-1883f58c-966��fl-1883f58c-967��fl-1883f58c-968��fl-1883f58c-969������������'�!���&�6��#�?��#��?��!!!!!!!!��(72�45;6��gm-1883f58c-972���%���&&&&&&&��fl-1883f58c-977��fl-1883f58c-978��fl-1883f58c-979��fl-1883f58c-97a��fl-1883f58c-97b��fl-1883f58c-97c��fl-1883f58c-97d��fl-1883f58c-97e������������'��������fl-1883f58c-974�����'8����&�6���#��?��!����gmatch-tuck-ids��!!��������!Ȍ��gmatch-drop-first-arg������!!!!�!����gid-ls��(�1�456��	��gm-1883f58c-9ae���%���&&&&&&&&	��fl-1883f58c-9b3��fl-1883f58c-9b4��fl-1883f58c-9b5��fl-1883f58c-9b6��fl-1883f58c-9b7��fl-1883f58c-9b8��fl-1883f58c-9b9��fl-1883f58c-9ba��fl-1883f58c-9bb�����������	��'��������fl-1883f58c-9b0�����'8����&�6���#��?��#��?��#�?��gmatch-gen-or-step��#��?��#�?��6���!茤�!錤�s!���!댤�!쌤�gm-1883f58c-9cb���%���&&&��fl-1883f58c-9dd��fl-1883f58c-9de��fl-1883f58c-9df��fl-1883f58c-9e0��������'��������fl-1883f58c-9cd�����'8����&�6���#�?���&&&&&&&��fl-1883f58c-9e6��fl-1883f58c-9e7�fl-1883f58c-9e8�fl-1883f58c-9e9�fl-1883f58c-9ea�fl-1883f58c-9eb�fl-1883f58c-9ec�fl-1883f58c-9ed����'���&6��	#�?�
#�?�#?�#�?�
#?�
�!!!!�!!�	�gmatch-check-identifier�gm-1883f58c-9f6�%�&&&&&&&&	�fl-1883f58c-9fb�fl-1883f58c-9fc�fl-1883f58c-9fd�fl-1883f58c-9fe�fl-1883f58c-9ff�fl-1883f58c-a00�fl-1883f58c-a01�fl-1883f58c-a02�fl-1883f58c-a03�	�'��� fl-1883f58c-9f8�! �"'8!�#&6"�$##?�%#�#?�&#[#?�'glist?�(#'#?�)gloop�*#)#?�+#�#?�,#�#?�-,�.-�/gcond�0#/#?�1#n#?�21+�3greverse�4#3#?�5#Z#?�65+�7#6#?�8#a#?�98+�:79�;:�<##?�=#d#?�>=+�?9>�@##?�A#]#?�BA+�C#�#?�Dgelse�E#D#?�F!!!!!�!!�	�Ggmatch-verify-no-ellipses�H(�13�456��
�I&&&&&&&&&
�Jfl-1883f58c-a15�Kfl-1883f58c-a16�Lfl-1883f58c-a17�Mfl-1883f58c-a18�Nfl-1883f58c-a19�Ofl-1883f58c-a1a�Pfl-1883f58c-a1b�Qfl-1883f58c-a1c�Rfl-1883f58c-a1d�Sfl-1883f58c-a1e�TJKLMNOPQRS
�U'HIT�V&U6"�W#GV?�Xglet*�Y#XV?�Zgtail-len�[#ZV?�\glength�]#\V?�^#�V?�_#�V?�`glen�a#`V?�b#\V?�c#'V?�dc_�e]_�fbde�gaf�hg�i#[V?�j#�V?�k#�V?�lka�mg<�n#mV?�ona[�pjlo�q#�V?�r#)V?�s__�t#+V?�uta�v^�wv�x#/V?�y##V?�zyt[�{#3V?�|#V?�}#V?�~}}�#ZV?��_��#6V?��#aV?���_���������#dV?���_������#V?��#]V?���_��g-��#�V?��#V?���t���#�V?��#DV?��!�!��(7�4��gm-1883f58c-a2f���%���&&&��fl-1883f58c-a34��fl-1883f58c-a35��fl-1883f58c-a36��fl-1883f58c-a37��������'��������fl-1883f58c-a31�����'8����&�6���#0�?��#r�?��f3multiple ellipse patterns not allowed at same level��#��?������#G�?��!!��(74���&&��fl-1883f58c-a42��fl-1883f58c-a43��fl-1883f58c-a44�������'�����&�6���#r�?��f%dotted tail not allowed after ellipse��#��?��!!!!!!!!�	��gletrec��(�12�456��
��gm-1883f58c-a48���%���&&&&&&&&&
��fl-1883f58c-a4d��fl-1883f58c-a4e��fl-1883f58c-a4f��fl-1883f58c-a50��fl-1883f58c-a51��fl-1883f58c-a52��fl-1883f58c-a53��fl-1883f58c-a54��fl-1883f58c-a55��fl-1883f58c-a56������������
��'��������fl-1883f58c-a4a�����'8����&�6���#��?��gtry��#��?��#�?��#6�?��gfail��#��?��#�?��#��?��#��?��#3�?��gnext��#��?��#[�?��#��?��#Z�?�������������gu��#��?��#a�?�������������#d�?����������#�?��#��?��glp��#��?��#��?��#]�?������������������������������������#��?���������!���!����!����!����!����gpats��(�+�127�gm-1883f58c-a6b�%�&&&&&&�fl-1883f58c-a70�fl-1883f58c-a71�fl-1883f58c-a72�fl-1883f58c-a73�fl-1883f58c-a74�fl-1883f58c-a75�	fl-1883f58c-a76�
	�'�
��
fl-1883f58c-a6d�
�'8�&6�#0?�gmatch-gen-vector-ellipses�#?�gmatch-vector-two�#?�&6�#9?���!�!!!!!!!�(�+�1456�&&&&&&&�fl-1883f58c-a7f�fl-1883f58c-a80�fl-1883f58c-a81� fl-1883f58c-a82�!fl-1883f58c-a83�"fl-1883f58c-a84�#fl-1883f58c-a85�$fl-1883f58c-a86�% !"#$�&'%�'&&6�(#'?�)&�*fl-1883f58c-a90�+fl-1883f58c-a91�,*+�-'R),�.&-6�/#.?�0!!!�!!!�1gindex�2(�+�1456�3gm-1883f58c-a94�43%�54&&&&&&&�6fl-1883f58c-a99�7fl-1883f58c-a9a�8fl-1883f58c-a9b�9fl-1883f58c-a9c�:fl-1883f58c-a9d�;fl-1883f58c-a9e�<fl-1883f58c-a9f�=fl-1883f58c-aa0�>6789:;<=�?'25>�@4�Afl-1883f58c-a96�BA�C'8@B�D&?6C�E#[D?�F#�D?�G#�D?�H#`D?�Ig
vector-length�J#ID?�K##D?�Lgmatch-vector-step�M#LD?�Nglist�O���P!O��Q!P��R!Q��S4&&&&&&�Tfl-1883f58c-aac�Ufl-1883f58c-aad�Vfl-1883f58c-aae�Wfl-1883f58c-aaf�Xfl-1883f58c-ab0�Yfl-1883f58c-ab1�Zfl-1883f58c-ab2�[TUVWXYZ�\'�S[�]&\6C�^#�]?�_g+�`#_]?�a#]?�ba�c!!�!!�d!!�!!!�e(��1456�fgm-1883f58c-abb�gf%�hg&&&&&&&�ifl-1883f58c-acc�jfl-1883f58c-acd�kfl-1883f58c-ace�lfl-1883f58c-acf�mfl-1883f58c-ad0�nfl-1883f58c-ad1�ofl-1883f58c-ad2�pfl-1883f58c-ad3�qijklmnop�r'ehq�sg�tfl-1883f58c-abd�ut�v'8su�w&r6v�x#�w?�y#6w?�zg
vector-ref�{#zw?�|#w?�}gvector-set!�~#}w?�#Lw?��!!!�!!!!��(�+�11456	��gm-1883f58c-adc���%���&&&&&&&&	��fl-1883f58c-ae1��fl-1883f58c-ae2��fl-1883f58c-ae3��fl-1883f58c-ae4��fl-1883f58c-ae5��fl-1883f58c-ae6��fl-1883f58c-ae7��fl-1883f58c-ae8��fl-1883f58c-ae9�����������	��'��������fl-1883f58c-ade�����'8����&�6���#[�?��#��?��#��?��#`�?��#I�?��g>=��#��?��#L�?��gmatch-vector-tail��#��?��(�1+`456��gm-1883f58c-af5���%���&&&&&&&��fl-1883f58c-afa��fl-1883f58c-afb��fl-1883f58c-afc��fl-1883f58c-afd��fl-1883f58c-afe��fl-1883f58c-aff��fl-1883f58c-b00��fl-1883f58c-b01������������'��������fl-1883f58c-af7�����'8����&�6���#L�?��gmatch-vector-tail-two��#��?��(�1+`456��
��gm-1883f58c-b0a���%���&&&&&&&&&
��fl-1883f58c-b0f��fl-1883f58c-b10��fl-1883f58c-b11��fl-1883f58c-b12��fl-1883f58c-b13��fl-1883f58c-b14��fl-1883f58c-b15��fl-1883f58c-b16��fl-1883f58c-b17��fl-1883f58c-b18������������
��'��������fl-1883f58c-b0c�����'8����&�6���#��?��#)�?��gj��#��?��#��?��������#[�?��#��?��#3�?��#6�?��#z�?�����#�?��g
vetor-set!��#��?��#�?��#_�?��#�?�������#��?��!!!!�!!!!	��(�*+12�456
��gm-1883f58c-b29���%���&&&&&&&&&
��fl-1883f58c-b2e��fl-1883f58c-b2f��fl-1883f58c-b30��fl-1883f58c-b31��fl-1883f58c-b32��fl-1883f58c-b33��fl-1883f58c-b34��fl-1883f58c-b35��fl-1883f58c-b36��fl-1883f58c-b37������������
��'��������fl-1883f58c-b2b�����'8����&�6���#��?��#6�?��#�?��#�?��#E�?��#��?��#_�?��#�?�����!!!!!�!!	��gm-1883f58c-b54��%��fl-1883f58c-b56��'8�&6�#?������	!��
!	��(17�&&&�
fl-1883f58c-b59�fl-1883f58c-b5a�fl-1883f58c-b5b�fl-1883f58c-b5c�
�'�&6�#L?�#�?������!��!��(*17�fl-1883f58c-b62�fl-1883f58c-b63�fl-1883f58c-b64�fl-1883f58c-b65�� '�!& 6�"#L!?�###?�$�#�%$!!�&%!��'!&��((*17�)fl-1883f58c-b6b�*fl-1883f58c-b6c�+fl-1883f58c-b6d�,fl-1883f58c-b6e�-)*+,�.'(-�/&.6�0#L/?�1#�?�2�1�32!�4!3�!!�5#�?�6�5�76!�8!7!!!�9gmatch-extract-quasiquote-vars�:gk�;(7:6��<&&&&�=fl-1883f58c-b80�>fl-1883f58c-b81�?fl-1883f58c-b82�@fl-1883f58c-b83�Afl-1883f58c-b84�B=>?@A�C';<B�D&C6�E#9D?�F#D?�GF�HG�I#\?�J�I�KJ!��LK!��M!L��N(17�O&&�Pfl-1883f58c-b8b�Qfl-1883f58c-b8c�Rfl-1883f58c-b8d�SPQR�T'NOS�U&T6�V#LU?�W#�?�X�W�YX!��ZY!��[!Z��\fl-1883f58c-b92�]fl-1883f58c-b93�^fl-1883f58c-b94�_\]^�`'NO_�a&`6�b#La?�c#�?�d�c�ed!��fe!��g!f��hfl-1883f58c-b99�ifl-1883f58c-b9a�jfl-1883f58c-b9b�khij�l'NOk�m&l6�n#Lm?�o!.!!!�p(123:6��q&&&&&&�rfl-1883f58c-ba0�sfl-1883f58c-ba1�tfl-1883f58c-ba2�ufl-1883f58c-ba3�vfl-1883f58c-ba4�wfl-1883f58c-ba5�xfl-1883f58c-ba6�yrstuvwx�z'pqy�{&z6�|#0{?�}#L{?�~gmatch-extract-vars-step�#~{?��!�!!!��(12:6���&&&&&��fl-1883f58c-baf��fl-1883f58c-bb0��fl-1883f58c-bb1��fl-1883f58c-bb2��fl-1883f58c-bb3��fl-1883f58c-bb4����������'�����&�6��#L�?��#~�?���!���!����fl-1883f58c-bbc��fl-1883f58c-bbd��fl-1883f58c-bbe�������'NO���&�6��#L�?��#�?������!��!!��#9?������!��!!��#f?������!��!!��#�?������!��!!��!!��!��(1:6���fl-1883f58c-bec��fl-1883f58c-bed��fl-1883f58c-bee��fl-1883f58c-bef��fl-1883f58c-bf0���������'�<���&�6��#��?��#��?��#��?��#4�?��#5�?���������#!�?���������������#��?��gp-ls��#��?�����!!!!!���gv2��gv2-ls��(1:6�����gm-1883f58c-bf9���%���&&&&&&��fl-1883f58c-bfe��fl-1883f58c-bff��fl-1883f58c-c00��fl-1883f58c-c01��fl-1883f58c-c02��fl-1883f58c-c03��fl-1883f58c-c04�����������'��������fl-1883f58c-bfb�����'8����&�6���#L�?��gm-1883f58c-c0f���%�����fl-1883f58c-c11�����'8����&6���#��?�������!��!�!!!!��gd��(7:6�����&&&&&��fl-1883f58c-c14��fl-1883f58c-c15��fl-1883f58c-c16��fl-1883f58c-c17��fl-1883f58c-c18��fl-1883f58c-c19����������'�����&�6���#9�?��#�?��#�?�������!��!�!!!!��fl-1883f58c-c21��fl-1883f58c-c22��fl-1883f58c-c23��fl-1883f58c-c24��fl-1883f58c-c25��fl-1883f58c-c26����������'�����&�6���#9�?��#�?��#�?�������!��������!�!!!���&&&&�fl-1883f58c-c2e�fl-1883f58c-c2f�fl-1883f58c-c30�fl-1883f58c-c31�fl-1883f58c-c32��';�&6��	#L?�
�!��!�!!!
�fl-1883f58c-c39�
fl-1883f58c-c3a�fl-1883f58c-c3b�fl-1883f58c-c3c�fl-1883f58c-c3d�fl-1883f58c-c3e�
�'���&6��#9?�!�!!!
�(7�:6����&&&&&&�fl-1883f58c-c46�fl-1883f58c-c47�fl-1883f58c-c48�fl-1883f58c-c49�fl-1883f58c-c4a�fl-1883f58c-c4b�fl-1883f58c-c4c� �!' �"&!6��##9"?�$g"match-extract-quasiquote-vars-step�%#$"?�&!�!!!
�'fl-1883f58c-c55�(fl-1883f58c-c56�)fl-1883f58c-c57�*fl-1883f58c-c58�+fl-1883f58c-c59�,fl-1883f58c-c5a�-'()*+,�.'��-�/&.6��0#9/?�1!!�!!
�2!!!!!!��3(7:6�����4gm-1883f58c-c70�54%�65&&&&&&&�7fl-1883f58c-c75�8fl-1883f58c-c76�9fl-1883f58c-c77�:fl-1883f58c-c78�;fl-1883f58c-c79�<fl-1883f58c-c7a�=fl-1883f58c-c7b�>fl-1883f58c-c7c�?789:;<=>�@'36?�A5�Bfl-1883f58c-c72�CB�D'8AC�E&@6D�F#9E?�Ggpattern�H(G��Igm-1883f58c-c88�JI%�KJ&&�Lfl-1883f58c-c8d�Mfl-1883f58c-c8e�Nfl-1883f58c-c8f�OLMN�P'HKO�QJ�Rfl-1883f58c-c8a�SR�T'8QS�U&P6T�V#U?�Wgexpr�X#WU?�YX�Z#U?�[gm-1883f58c-c95�\[%�]\&&�^fl-1883f58c-c9a�_fl-1883f58c-c9b�`fl-1883f58c-c9c�a^_`�b'H]a�c\�dfl-1883f58c-c97�ed�f'8ce�g&b6f�h#g?�i#Wg?�j#g?�k�!��l!k��mgmatch-let/helper�ngvar�o(nH��pgm-1883f58c-ca2�qp%�rq&&&�sfl-1883f58c-ca7�tfl-1883f58c-ca8�ufl-1883f58c-ca9�vfl-1883f58c-caa�wstuv�x'orw�yq�zfl-1883f58c-ca4�{z�|'8y{�}&x6|�~#m}?�#�}?��!l���gmatch-named-let��ginit��()n����q&&&&��fl-1883f58c-cb2��fl-1883f58c-cb3��fl-1883f58c-cb4��fl-1883f58c-cb5��fl-1883f58c-cb6���������'�����&�6|��#��?��gm-1883f58c-cbe���%���&&&��fl-1883f58c-cc3��fl-1883f58c-cc4��fl-1883f58c-cc5��fl-1883f58c-cc6��������'o�������fl-1883f58c-cc0�����'8����&�6���#m�?��#��?��!������������!����!��������������!����!����(�nW�0���gm-1883f58c-ccd���%���&&&&&&��fl-1883f58c-cdf��fl-1883f58c-ce0��fl-1883f58c-ce1��fl-1883f58c-ce2��fl-1883f58c-ce3��fl-1883f58c-ce4��fl-1883f58c-ce5�����������'��������fl-1883f58c-ccf�����'8����&�6���#�?���!���!����!�������������!����!����ga��gb��(��1��W�	���&&&&&&&&	��fl-1883f58c-cf2��fl-1883f58c-cf3��fl-1883f58c-cf4��fl-1883f58c-cf5��fl-1883f58c-cf6��fl-1883f58c-cf7��fl-1883f58c-cf8��fl-1883f58c-cf9��fl-1883f58c-cfa�����������	��'�����&�6���#m�?��#0�?������!���!����!����֌���׌��!،��!ٌ��(��1�W����&&&&&&&��fl-1883f58c-d07��fl-1883f58c-d08��fl-1883f58c-d09��fl-1883f58c-d0a��fl-1883f58c-d0b��fl-1883f58c-d0c��fl-1883f58c-d0d��fl-1883f58c-d0e������������'�����&�6���#m�?��#0�?������!����댤��쌤�!팤�!�fl-1883f58c-d1b��fl-1883f58c-d1c��fl-1883f58c-d1d��fl-1883f58c-d1e��fl-1883f58c-d1f��fl-1883f58c-d20��fl-1883f58c-d21��fl-1883f58c-d22������������'�����&�6���#m�?���[�������!����!���()�Wn��gm-1883f58c-d2d�%�&&&&&�fl-1883f58c-d32�fl-1883f58c-d33�fl-1883f58c-d34�fl-1883f58c-d35�fl-1883f58c-d36�	fl-1883f58c-d37�
	�'
��
fl-1883f58c-d2f�
�'8�&6�#�?�#?�!쌤!��()��W��&&&&&&�fl-1883f58c-d43�fl-1883f58c-d44�fl-1883f58c-d45�fl-1883f58c-d46�fl-1883f58c-d47�fl-1883f58c-d48�fl-1883f58c-d49��'� &6�!#� ?�"#0 ?�#"�$!���%(��&gm-1883f58c-d52�'&%�('&�)fl-1883f58c-d57�*fl-1883f58c-d58�+)*�,'%(+�-'�.fl-1883f58c-d54�/.�0'8-/�1&,60�2#1?�3!댤4(�W��5'&&&&�6fl-1883f58c-d5c�7fl-1883f58c-d5d�8fl-1883f58c-d5e�9fl-1883f58c-d5f�:fl-1883f58c-d60�;6789:�<'45;�=&<60�>#=?�?#=?�@!�!!�A!�!!�Bg	success-k�Cg	failure-k�D(�BC�Egm-1883f58c-d66�FE%�GF&&&�Hfl-1883f58c-d7f�Ifl-1883f58c-d80�Jfl-1883f58c-d81�Kfl-1883f58c-d82�LHIJK�M'DGL�NF�Ofl-1883f58c-d68�PO�Q'8NP�R&M6Q�S#�R?�Tgellipse?�U#TR?�V#�R?�Wgfoo�X#WR?�Y#4R?�Z#5R?�[YZ�\Y�]gother�^#]R?�_U^YZ�`_Z�a`�b#�R?�c#�R?�dgc�e#dR?�fbce�g(7BC�hgm-1883f58c-d87�ih%�ji&&&�kfl-1883f58c-da0�lfl-1883f58c-da1�mfl-1883f58c-da2�nfl-1883f58c-da3�oklmn�p'gjo�qi�rfl-1883f58c-d89�sr�t'8qs�u&p6t�v#�u?�wgsym?�x#wu?�y#�u?�z#4u?�{#5u?�|z{�}z�~#�u?�x~z{��{�����gabracadabra��#�u?�C5hp�a]4	
54>"Gh�-13@�g_
			gargs			gfilenamefice-9/match.scm�
	
��	
		��			��			��			
gnamegerror�CR4 "@h^]CVgdummy
		grtd		grec			gn						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.scm�
	!	��		"g
macro-typegsyntax-rules�gpatternsgrtdgrecgnC5R4E FYhq]Cigdummy
		grtd		grec			gn			gvalue						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.scm�
	&	��		"g
macro-typegsyntax-rules�gpatternsgrtdgrecgngvalueC5ER4Z [kmoqh O]CGgdummy
		grec		grtd						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.scm�
	+	��		"g
macro-typegsyntax-rules�gpatternsgrecgrtdC5ZR4r s�h-]C%gdummy
				CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsC5rR4 s�h-]C%gdummy
				C��h?]C7gdummy
		gatom					C�������h0a]45���CYgdummy
		0gapp		0gpat			0gbody			0		0	C��������h0a]4545���CYgdummy
		+gvec		+gpat			+gbody			+		+	C�������h0b]45���CZgdummy
		0gatom		0gpat			0gbody			0		0	CCDh�b])45$@45$@45$@45$	@4
5$@
6Zgx
		~gtmp		~gtmp		"	~gtmp		9	~gtmp		P	~gtmp		g	~gfilenamefice-9/match.upstream.scm�
	��		~g
macro-typegsyntax-rules�gpatternsgatomgappg...gpatgbody�g...gvecg...gpatgbody�g...gatomgpatgbody�g...C5R4� [���hM]CEgdummy
		gv		gg+s						Ch@�]����������C�gdummy
		@gv		@gg+s			@gpat			@gfailure			@gbody			@grest			@		@	C*-h�]������Czgdummy
		gv		gg+s			gpat			gbody			grest						CCD
hP.]45$@45$@45$@	6&gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/match.upstream.scm�
	��		Pg
macro-typegsyntax-rules�gpatternsgvgg+sgvgg+sgpatg=>gfailuregbody��grest���gvgg+sgpatgbody�grest���C5�R4 /KMOQhH�,	3	������C�gdummy
		Dgv		Dgp			Dgq			Dgr			Dgg+s			Dgsk			Dgfk			Dgi			D			D		C�Yh<]�C4gdummy
		gx					CCDh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
/	��		9g
macro-typegsyntax-rules�gpatternsgvgpgqgr��gg+sgskgfkgigxC5R4P Zmorh |]45Ctgdummy
		gv		gg+s			gsk			gfk			gi						Cw���rh(�]45C�gdummy
		$gv		$gp			$gg+s			$gsk			$gfk			$gi			$		$	C��hZ]���CRgdummy
		gv		gp			gx						C�rh|]6tgdummy
		
gv		
gg+s			
gsk			
gfk			
gi			
		
	C���h(�,3�C�gdummy
		(gv		(gp			(gq			(gg+s			(gsk			(gfk			(gi			(		(	C�h|]Ctgdummy
		gv		gg+s			gsk			gfk			gi						C��hZ]���CRgdummy
		gv		gp			gx						C����h(�]�����C�gdummy
		#gv		#gp			#gg+s			#gsk			#gfk			#gi			#		#	C���rh(�]45C�gdummy
		#gv		#gp			#gg+s			#gsk			#gfk			#gi			#		#	C���rh(�,345C�gdummy
		(gv		(ggetter			(gg			(gs			(gsk			(gfk			(gi			(		(	C�

rh0�,34545C�gdummy
		0gv		0gsetter			0gg			0gs			0gsk			0gfk			0gi			0		0	C !"h0�,3�C�gdummy
		)gv		)gpred			)gp			)gg+s			)gsk			)gfk			)gi			)		)	C)578h(l]���Cdgdummy
		"gv		"gproc			"gp			"gx			"		"	C>KLh(�,3����C�gdummy
		&gv		&gp			&gr			&gg+s			&gsk			&gfk			&gi			&		&	CMXY[\^_`bcehX�]	
C�gdummy
		Vgv		Vgp			Vgg+s			Vgsk			Vgfk			Vgi			V		V	Cjvxh(�,3����C�gdummy
		&gv		&gp			&gq			&gg+s			&gsk			&gfk			&gi			&		&	C{���h�,3��C�gdummy
		gv		gp			gq			gg+s			gsk			gfk			gi						C�����h(�]�C�gdummy
		%gv		%gp			%gg+s			%gsk			%gfk			%gi			%		%	C�����h0�,3	C�gdummy
		,gv		,grec			,gp			,gg+s			,gsk			,gfk			,gi			,		,	C�����������hx�,3	
C�gdummy
		qgv		qgp			qgq			qgg+s			qgsk			qgfk			qgi			q		q	C���hk]�����Ccgdummy
		gv		gp			gg+s			gx						C�rh|]6tgdummy
		
gv		
gg+s			
gsk			
gfk			
gi			
		
	C���������rhp�]������4	4	55
4	5C�gdummy
		lgv		lgx			lgg+s			lgsk			lgfk			lgid			l		l	CCD2h �]�45$@45$@45$@45$	@4
5$@45$
@45$@45$@45		$	@45

$
@45$@45$@45

$
@45$@45$@4 5$!@4"5$#@4$5$%@4&5$'@4(5$)@4*5$+@4,5$-@4.5$/@016�gx
	gtmp	gtmp		"gtmp		9gtmp		Pgtmp		ggtmp		~gtmp	�gtmp	�gtmp		�gtmp	
�gtmp	�gtmp	gtmp	
gtmp	6gtmp	Mgtmp	dgtmp	{gtmp	�gtmp	�gtmp	�gtmp	�gtmp	�gtmp	gfilenamefice-9/match.upstream.scm�
N	��	g
macro-typegsyntax-rules�gpatternsgvgg+sgskg...gfkgigvgquotegpgg+sgskg...gfkgigvg
quasiquotegpgx��gvgandgg+sgskg...gfkgigvgandgpgqg...gg+sgskgfkgigvgorgg+sgskgfkgigvgorgpgx��gvgorgpg...gg+sgskgfkgigvgnotgpgg+sgskg...gfkgigvgget!ggettergggsgskg...gfkgigvgset!gsettergggsg...gskg...gfkgigvg?gpredgp��gg+sgskgfkgigvg=gprocgpgx��gvgpg___gr��gg+sgskgfkgigvgpgg+sgskgfkgigvgpg***gqgg+sgskgfkgigvgpg***gq��gg+sgskgfkgigvgpg..1gg+sgskgfkgigvg$grecgpg...gg+sgskgfkgigvgpgq�gg+sgskgfkgigvgpg...gg+sgx���gvg_gg+sgskg...gfkgigvgxgg+sgskg...gfkgidg...C5PR4� 
h�]C�gdummy
		gv		gp			gg+s			gsk			gfk			gi						C-./12h8�,3�C�gdummy
		4gv		4gp			4grest			4gg+s			4gsk			4gfk			4gi			4		4	C:HIh(�,3��������C�gdummy
		!gv		!gp			!gg+s			!gsk			!gfk			!gi			!gdepth			!		!	CM\h �,	3	�������C�gdummy
		gv		gp			gg+s			gsk			gfk			gi			gx			gdepth								C_lh �,	3	�������C�gdummy
		gv		gp			gg+s			gsk			gfk			gi			gx			gdepth								Co}~������
h`�,	3		�������C�gdummy
		[gv		[gp			[gq			[gg+s			[gsk			[gfk			[gi			[gdepth			[			[		C�������h@�,3�������C�gdummy
		@gv		@gelt			@gg+s			@gsk			@gfk			@gi			@gdepth			@		@	C���h �,3C�gdummy
		gv		gx			gg+s			gsk			gfk			gi			gdepth						CCDh�]A45$@45$@45$@45$	@4
5$@45$
@45$@45$@6gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp		~�gtmp	��gtmp	��	gfilenamefice-9/match.upstream.scm�
�	��	�g
macro-typegsyntax-rules�gpatternsgvgunquotegpgg+sgskgfkgigvgunquote-splicinggpgrest�gg+sgskgfkgigvg
quasiquotegpgg+sgskgfkgigdepth������gvgunquotegpgg+sgskgfkgigxgdepth�������gvgunquote-splicinggpgg+sgskgfkgigxgdepth�������gvgpgq�gg+sgskgfkgigdepth������gvgeltg...gg+sgskgfkgigdepth������gvgxgg+sgskgfkgigdepth������	C5�R4� ��h �,3�������C�gdummy
		gx		gq			gg+s			gsk			gfk			gdepth			gi						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgxgqgg+sgskgfkgdepthgiC5�R4 �hP]CHgdummy
		gexpr		gids						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgexprgidsg...C5R4� �rhv]45Cngdummy
		gletish		gargs			gexpr			gids						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgletishgargsgexprg...gidsg...C5�R4� [hP]CHgdummy
		garg		gexpr						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgarggexprC5�R4� ����r��hH�,	3	4455�C�gdummy
		Ggv		Ggp			Ggg+s			Ggsk			Ggfk			Ggi			Ggid			Ggid-ls			G			G		CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgvgpgg+sgskg...gfkgig...gidgid-lsg...C5�R4� �h|]Ctgdummy
		gv		gg+s			gsk			gfk			gx						C��hZ]���CRgdummy
		gv		gp			gx						C�	

h@�,3C�gdummy
		<gv		<gp			<gq			<gg+s			<gsk			<gfk			<gi			<		<	CCD
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/match.upstream.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgvgg+sgskgfkgx�����gvgpgx��gvgpgq�gg+sgskgfkgiC5�R4N $%&(r*+�.h8]�C0gtmp-1883f58c-a0e
				C024hV]CNgtmp-1883f58c-a10
		gtmp-1883f58c-a0f					C6;<7?@BChV]CNgtmp-1883f58c-a13
		gtmp-1883f58c-a12					CEh��,	3	454	5�
4545
45��C�gdummy
	�gv	�gp		�gg+s		�gsk		�gfk		�gi		�gid		�gid-ls		�		�		CFWY[]^_hipqrsu�wh8]�C0gtmp-1883f58c-a29
				Cxz{hV]CNgtmp-1883f58c-a2b
		gtmp-1883f58c-a2a					C|~��������hV]CNgtmp-1883f58c-a2e
		gtmp-1883f58c-a2d					C�h��,
3
��	

4	5��
4	5
4	5���C�gdummy
	�gv	�gp		�gr		�gg+s		�gsk		�gfk		�gi		�gid		�gid-ls			�
	�	
CCDh@G]45$@45$@6?gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgvgpgg+sgskg...gfkgigidgid-lsg...gvgpgrgg+sgskg...gfkgigidgid-lsg...C5NR4G ����h[]CSgdummy
		gx		gy			gsk						C�h=]C5gdummy
		gsk					C[��hL]CDgdummy
		gx		gsk						CCD
hP�]45$@45$@45$@	6�gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/match.upstream.scm�
,	��		Pg
macro-typegsyntax-rules�gpatternsgxgy�gskgskgxgskC5GR4w �����������hV]CNgtmp-1883f58c-a63
		gtmp-1883f58c-a62					C���������hV]CNgtmp-1883f58c-a67
		gtmp-1883f58c-a66					C�������h8]�C0gtmp-1883f58c-a69
				Ch��,
3
	��4	
	5	���	��
4		5	������4		5	���C�gdummy
	�gv	�gp		�gq		�gg+s		�gsk		�gfk		�gi		�gid		�gid-ls			�
	�	
CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
E	��		"g
macro-typegsyntax-rules�gpatternsgvgpgqgg+sgskgfkgigidgid-lsg...C5wR4� �h8�]����������C�gdummy
		1gv		1gn			1gpats			1gp			1gq			1gx			1		1	C(h �,3C�gdummy
		gv		gn			gpats			gp			gsk			gfk			gi						C�/h<]�C4gdummy
		gx					CCD
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/match.upstream.scm�
h	��		Pg
macro-typegsyntax-rules�gpatternsgvgngpatsgpgqgx����gvgngpatsgpg___gskgfkgigxC5�R4 0EFGHJKM�N
hX�,34	5C�gdummy
		Qgv		Qgn			Qgpat			Qgindex			Qgsk			Qgfk			Qgi			Q		Q	CR^`brh0�]��45�����C�gdummy
		)gv		)gn			)gpats			)gp			)gq			)gx			)		)	CCDh@]45$@45$@6gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
u	��		9g
macro-typegsyntax-rules�gpatternsgvgngpatgindexg...gskgfkgigvgngpatsg...gpgq�gx����C5R4L crhk]6cgdummy
		
gv		
gsk			
gfk			
gi			
		
	Cdxy{|~hP�,3C�gdummy
		Lgv		Lgpat			Lgindex			Lgrest			Lgsk			Lgfk			Lgi			L		L	CCDh@]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgvgskg...gfkgigvgpatgindexgrest�gskgfkgiC5LR4 ���������N�h`�,	3	4	5
C�gdummy
		`gv		`gn			`gpat			`gindex			`gp			`gsk			`gfk			`gi			`			`		CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgvgngpatgindexg...gpgskgfkgiC5R4� ���h(�,3����C�gdummy
		&gv		&gp			&gn			&glen			&gsk			&gfk			&gi			&		&	CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgvgpgnglengskgfkgiC5�R4� F�����h8]�C0gtmp-1883f58c-b23
				C���hV]CNgtmp-1883f58c-b25
		gtmp-1883f58c-b24					Cr��������hV]CNgtmp-1883f58c-b28
		gtmp-1883f58c-b27					Ch��,
3
4	5�4	54	5
��

����4	5��C�gdummy
	�gv	�gp		�gn		�glen		�gsk		�gfk		�gi		�gid		�gid-ls			�
	�	
CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgvgpgnglengskg...gfkgigidgid-lsg...C5�R4� ���������	h`�,
3
��	C�gdummy
		^gv		^grec			^gn			^gp			^gq			^gg+s			^gsk			^gfk			^gi				^
		^	
C�rh�,36�gdummy
		gv		grec			gn			gg+s			gsk			gfk			gi						CCDh@]45$@45$@6gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgvgrecgngpgq�gg+sgskgfkgigvgrecgngg+sgskg...gfkgiC5�R4L 
h]]��CUgdummy
		gpred		gp			gx						C"h\]��CTgdummy
		grec		gp			gx						C'0h]]��CUgdummy
		gproc		gp			gx						C4rhi]6agdummy
		
gx		
gk			
gi			
gv			
		
	C8EHhi]�����Cagdummy
		gx		gk			gi			gv						CMVhK]��CCgdummy
		gp		gx						C[bhK]��CCgdummy
		gp		gx						CgnhK]��CCgdummy
		gp		gx						Co|}h8�]������Cgdummy
		6gp		6gq			6gr			6gk			6gi			6gv			6		6	C���h x]����Cpgdummy
		gp		gq			gk			gi			gv						C��hK]��CCgdummy
		gp		gx						C�rhZ]6Rgdummy
		
gk		
gi			
gv			
		
	C�rhZ]6Rgdummy
		
gk		
gi			
gv			
		
	C�rhZ]6Rgdummy
		
gk		
gi			
gv			
		
	C�rhZ]6Rgdummy
		
gk		
gi			
gv			
		
	C��������r�
hPi]������4	��545Cagdummy
		Igp		Igk			Igi			Igv			I		I	CCD$h��]�45$@45$@45$@45$	@4
5$@45$
@45$@45$@45		$	@45

$
@45$@45$@45

$
@45$@45$@4 5$!@"#6�gx
	{gtmp	{gtmp		"{gtmp		9{gtmp		P{gtmp		g{gtmp		~{gtmp	�{gtmp	�{gtmp		�{gtmp	
�{gtmp	�{gtmp	{gtmp	
{gtmp	6{gtmp	M{gtmp	d{gfilenamefice-9/match.upstream.scm�
�	��	{g
macro-typegsyntax-rules�gpatternsg?gpredgp��gx�g$grecgp��gx�g=gprocgpgx�gquotegxgkg...gigvg
quasiquotegxgkgigvgandgp�gx�gorgp�gx�gnotgp�gx�gpgqgr��gkgigvgpgq�gkgigvgpg...gx�g_gkg...gigvg___gkg...gigvg***gkg...gigvg..1gkg...gigvgpgkg...gig...gvC5LR4~ ��r�Nh(�]454455C�gdummy
		'gp		'gk			'gi			'gv			'gv2			'gv2-ls			'		'	CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgpgkgigvgv2gv2-lsg...C5~R49 ���hx]�Cpgdummy
		gx		gk			gi			gv			gd						C���hx]Cpgdummy
		gx		gk			gi			gv			gd						C�	hi]Cagdummy
		gx		gk			gi			gv						Chx]Cpgdummy
		gx		gk			gi			gv			gd						C#%h �]����Cgdummy
		gx		gy			gk			gi			gv			gd						C&0hx]Cpgdummy
		gx		gk			gi			gv			gd						C1rhx]6pgdummy
		
gx		
gk			
gi			
gv			
gd			
		
	CCDh�3]945$@45$@45$@45$	@4
5$@45$
@45$@6+gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp		~�gtmp	��gfilenamefice-9/match.upstream.scm�
�	��	�g
macro-typegsyntax-rules�gpatternsg
quasiquotegxgkgigvgdgunquote-splicinggxgkgigvgdgunquotegxgkgigvgunquotegxgkgigvgd�gxgy�gkgigvgd�gxg...gkgigvgd�gxgkg...gigvgd�C59R4$ 2Fr�Nh0�,3454455C�gdummy
		-gx		-gk			-gi			-gv			-gd			-gv2			-gv2-ls			-		-	CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
		��		"g
macro-typegsyntax-rules�gpatternsgxgkgigvgdgv2gv2-lsg...C5$R4 �VYZX��h T]45��CLgdummy
		gpattern		gbody						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
	��		"g
macro-typegsyntax-rules�gpatternsgpatterngbody�g...C5R4
 �hij��h T]45��CLgdummy
		gpattern		gbody						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
	��		"g
macro-typegsyntax-rules�gpatternsgpatterngbody�g...C5
R4 l~�Nh c]45�����C[gdummy
		gvar		gvalue			gbody						C���Nht]45���Clgdummy
		gloop		gvar			ginit			gbody						CCDh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
)	��		9g
macro-typegsyntax-rules�gpatternsgvargvalueg...gbody�gloopgvarginitg...gbody��C5R4 l���Nh c]45�����C[gdummy
		gvar		gvalue			gbody						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
3	��		"g
macro-typegsyntax-rules�gpatternsgvargvalueg...gbody�C5R4m ��Nhs]45��Ckgdummy
		glet		gvar			gexpr			gbody						C��N�h(�]4545��C�gdummy
		$glet		$gvar			$gexpr			$gpat			$gtmp			$gbody			$		$	C��r��h8�,	3	454��5�����C�gdummy
		7glet		7gv			7gp			7ga			7gb			7gexpr			7grest			7gbody			7			7		C��r���h@�,345445�5�����C�gdummy
		9glet		9gv			9gp			9ga			9gexpr			9grest			9gbody			9		9	C��rh(�,345�����C�gdummy
		'glet		'gv			'gp			'ga			'gexpr			'grest			'gbody			'		'	CCDh�H])45$@45$@45$@45$	@4
5$@
6@gx
		~gtmp		~gtmp		"	~gtmp		9	~gtmp		P	~gtmp		g	~gfilenamefice-9/match.upstream.scm�
8	��		~g
macro-typegsyntax-rules�gpatternsgletgvargexprg...gbody����gletgvargexprg...gpatgtmpg...gbody����gletgvg...gpg...gagb�gexprgrest�gbody����gletgvg...gpg...gag...gexprgrest�gbody����gletgvg...gpg...gagexprgrest�gbody����C5mR4� ��Nh(�]4545��C}gdummy
		&gloop		&gpat			&gexpr			&gvar			&gbody			&		&	C!r#h(�]4��5����C�gdummy
		!gloop		!gv			!gpat			!gexpr			!grest			!gbody			!		!	CCDh@]45$@45$@6gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
I	��		9g
macro-typegsyntax-rules�gpatternsgloopgpatgexprgvarg...gbody���gloopgvg...gpatgexprgrest�gbody���C5�R4 $2h?]�C7gdummy
		gbody					C3>?ht]��Clgdummy
		gpat		gexpr			grest			gbody						CCDh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
X	��		9g
macro-typegsyntax-rules�gpatternsgbody�gpatgexprgrest�gbody�C5R40 @hy]Cqgdummy
		ga		gb			g	success-k			g	failure-k						CAhj]Cbgdummy
		ga		g	success-k			g	failure-k						C"SUVX[\af	h8k]������Ccgdummy
		3gid		3g	success-k			3g	failure-k			3		3	CCD
hP3]45$@45$@45$@	6+gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/match.upstream.scm�
l	��		Pg
macro-typegsyntax-rules�gpatternsgagb�g	success-kg	failure-kgag...g	success-kg	failure-kgidg	success-kg	failure-kC50R4 @hy]Cqgdummy
		gx		gy			g	success-k			g	failure-k						CAhj]Cbgdummy
		gx		g	success-k			g	failure-k						C"vxy|}��h0j]������Cbgdummy
		.gx		.g	success-k			.g	failure-k			.		.	CCD
hP2]45$@45$@45$@	6*gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/match.upstream.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgxgy�g	success-kg	failure-kgxg...g	success-kg	failure-kgxg	success-kg	failure-kC5RCYgm
		(gfilenamefice-9/match.scm�		
���	
��	�j
C6ice-9/local-eval.go000064400000117401150536206120010024 0ustar00GOOF----LE-8-2.0�]x4hLW]gguile�	�	gdefine-module*�	�	�	gice-9�	g
local-eval�	�		gfilenameS�	
fice-9/local-eval.scm�	gimportsS�	gformat�	
�	
�	gsrfi�	gsrfi-9�	�	�	ggnu�	�	�	gsystem�	gbase�	gcompile�	�	�	gsyntax�	�	�	�	gexportsS�	 gthe-environment�	!g
local-compile�	" !�	#gset-current-module�	$#�	%#�	&glexical-environment-type�	'g#%make-lexical-environment-procedure�	(gmake-syntax-transformer�	)(�	*(�	+gmake-lexical-environment�	,gmacro�	-g$sc-dispatch�	.-�	/-�	0g_�	1gany�	201111�	3g
syntax-object�	4glambda�	5gm-3348ed57c594e3-7�	6gtop�	756�	8gribcage�	9gt-3348ed57c594e3-3�	:gt-3348ed57c594e3-4�	;gt-3348ed57c594e3-5�	<gt-3348ed57c594e3-6�	=9:;<�	>7777�	?fl-3348ed57c594e3-c�	@fl-3348ed57c594e3-d�	Afl-3348ed57c594e3-e�	Bfl-3348ed57c594e3-f�	C?@AB�	D8=>C�	E8�	Fgx�	GF�	H7�	Ifl-3348ed57c594e3-9�	JI�	K8GHJ�	Lgshift�	Mg	proc-name�	Ngargs�	OMN�	P6�	QPP�	Rfl-1e8ba8b5a-60�	Sfl-1e8ba8b5a-61�	TRS�	U8OQT�	Vgkey�	Wgvalue�	Xgname�	Ygformals�	Zgbody�	[VWXYZ�	\PPPPP�	]fl-1e8ba8b5a-53�	^fl-1e8ba8b5a-54�	_fl-1e8ba8b5a-55�	`fl-1e8ba8b5a-56�	afl-1e8ba8b5a-57�	b]^_`a�	c8[\b�	dgmake-procedure-name�	ed�	fP�	gfl-1e8ba8b5a-43�	hg�	i8efh�	jP�	kfl-1e8ba8b5a-42�	lk�	m8Gjl�	n7DEKLEEEEUcim
�	oghygiene�	po�	q34np�	rgscope�	sPDEK�	to�	u3rst�	vgwrapper�	w3vst�	xgboxes�	y3xst�	zgpatterns�	{3zst�	|uwy{�	}gmake-struct�	~gm-3348ed57c594e3-1�	~6��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���6�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������8�����g	ctor-args�����fl-1e8ba8b5a-120�����8�j���gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������8�Q���gform��g	type-name��gconstructor-spec��gfield-names��������PPPP��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������8�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������PPPPPPPP��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������8�����fl-1e8ba8b5a-da�����8Gj���DEKLE�EEE��E�����3}�p��3&st��3
�p�����uwy{��q|���geach-any��0����gsyntax-violation��������fWrong number of arguments��gidentifier?��������PEK��3'�t��������f-source expression failed to match any pattern��grecord-type-vtable��������gpwpwpwpw��gdefault-record-printer��������rvxz��gset-struct-vtable-name!��������gvtable-offset-user��������g%lexical-environment?-procedure��glexical-environment?��01��gm-3348ed57c594e3-1a���6��gt-3348ed57c594e3-19��������fl-3348ed57c594e3-1f�����8�����fl-3348ed57c594e3-1c�����8G������E�LEEEEUcim
��34�p��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220��gt-1e8ba8b5a-223��gt-1e8ba8b5a-222��gt-1e8ba8b5a-221�����������gm-1e8ba8b5a-225���6�����������fl-1e8ba8b5a-229��fl-1e8ba8b5a-22a��fl-1e8ba8b5a-22b��fl-1e8ba8b5a-22c��fl-1e8ba8b5a-22d��fl-1e8ba8b5a-22e��fl-1e8ba8b5a-22f���������8���g	copier-id��fl-1e8ba8b5a-21c��8j�g	ctor-name��	fl-1e8ba8b5a-214�
	�8j
���
fl-1e8ba8b5a-212�
�8j�glayout��fl-1e8ba8b5a-210��8j�g
immutable?��fl-1e8ba8b5a-20e��8j�gfield-count��fl-1e8ba8b5a-20c��8j�g
getter-ids� �!fl-1e8ba8b5a-209�"!�#8 j"�$g	field-ids�%$�&fl-1e8ba8b5a-206�'&�(8%j'�)gpredicate-name�*g
field-spec�+���)*�,PPPPPP�-fl-1e8ba8b5a-1f9�.fl-1e8ba8b5a-1fa�/fl-1e8ba8b5a-1fb�0fl-1e8ba8b5a-1fc�1fl-1e8ba8b5a-1fd�2fl-1e8ba8b5a-1fe�3-./012�48+,3�5�E�LEEEEEEEEEEE#E(4���63�5p�76�8gand�9385p�:gstruct?�;3:5p�<;6�=geq?�>3=5p�?g
struct-vtable�@3?5p�A@6�BP�E��C3&Bt�D>AC�E9<D�F�7E�GPE��H3�Gt�Igthrow-bad-struct�JI�KI�Lglexenv-scope�Mg%lexenv-scope-procedure�Ngfree-id�Og
%%on-error�Pgm-3348ed57c594e3-26�QP6�RQ�Sfl-3348ed57c594e3-28�TS�U8GRT�VQEULEEEEUcim�W3OVp�XNW�YX1�Zg%%type�[gt-1e8ba8b5a-14b�\gt-1e8ba8b5a-14c�]gt-1e8ba8b5a-14d�^gt-1e8ba8b5a-14e�_gt-1e8ba8b5a-14f�`gt-1e8ba8b5a-150�agt-1e8ba8b5a-151�b[\]^_`a�cgm-1e8ba8b5a-152�dc6�eddddddd�ffl-1e8ba8b5a-156�gfl-1e8ba8b5a-157�hfl-1e8ba8b5a-158�ifl-1e8ba8b5a-159�jfl-1e8ba8b5a-15a�kfl-1e8ba8b5a-15b�lfl-1e8ba8b5a-15c�mfghijkl�n8bem�oggetter�pgindex�qop�rfl-1e8ba8b5a-149�sfl-1e8ba8b5a-14a�trs�u8qQt�v��wPPP�xfl-1e8ba8b5a-144�yfl-1e8ba8b5a-145�zfl-1e8ba8b5a-146�{xyz�|8vw{�}EULEnEEEuE|���~3Z}p�N~��0Y1��gck��gerr��gs������QQ��fl-3348ed57c594e3-2b��fl-3348ed57c594e3-2c������8�����Q�EULEEEEUcim
��3��p��gquote��3��p��P�EU��3&�t���������g%%index��3�}p��N���0Y�1��fl-3348ed57c594e3-30��fl-3348ed57c594e3-31������8�����Q�EULEEEEUcim
��3��p��3��p���EU��3
�t���������g%%copier��3�}p��N���0Y�1��fl-3348ed57c594e3-35��fl-3348ed57c594e3-36������8�����Q�EULEEEEUcim
��3��p��3��p��g%%%lexical-environment-type-set-fields��P�EU��3��t���������gt-3348ed57c594e3-25�����fl-3348ed57c594e3-3a�����8�R���Q�EULEEEEUcim
��34�p���EULEnEEEuE|����3��p�����gif��3��p��3=�p��3?�p������P�EU��3&�t�������g
struct-ref��3��p���EU��3
�t�������3I�p��3��p��3L�t����������������������PEU��3M�t��glexenv-wrapper��g%lexenv-wrapper-procedure��gm-3348ed57c594e3-41���6�����fl-3348ed57c594e3-43�����8G�����E�LEEEEUcim��3O�p��N����1��E�LEnEEEuE|����3Z�p��N���0��1������fl-3348ed57c594e3-46��fl-3348ed57c594e3-47������8�������E�LEEEEUcim
��3��p��3��p��P�E���3&�t���������3��p��N���0��1��fl-3348ed57c594e3-4b��fl-3348ed57c594e3-4c������8�������E�LEEEEUcim
��3��p��3��p���E���3�t���������3��p��N���0��1��fl-3348ed57c594e3-50��fl-3348ed57c594e3-51����8����E�LEEEEUcim
�3�p�3�p�PE��3�t���	gt-3348ed57c594e3-40�
	�fl-3348ed57c594e3-55��
8
���
E�LEEEEUcim
�34p�
E�LEnEEEuE|���3�p��3�p�3=p�3?p��P
E��3&t��3�p�
E��3t��3Ip�3�p� 3�t�! �"!�#"�$#�%PE��&3�%t�'glexenv-boxes�(g%lexenv-boxes-procedure�)gm-3348ed57c594e3-5c�*)6�+*�,fl-3348ed57c594e3-5e�-,�.8G+-�/*E.LEEEEUcim�03O/p�1N0�211�3E.LEnEEEuE|���43Z3p�5N4�60251�7**�8fl-3348ed57c594e3-61�9fl-3348ed57c594e3-62�:89�;8�7:�<*;E.LEEEEUcim
�=3�<p�>3�<p�?P;E.�@3&?t�A>@�BA�C3�3p�DNC�E02D1�Ffl-3348ed57c594e3-66�Gfl-3348ed57c594e3-67�HFG�I8�7H�J*IE.LEEEEUcim
�K3�Jp�L3�Jp�MIE.�N3	Mt�OLN�PO�Q3�3p�RNQ�S02R1�Tfl-3348ed57c594e3-6b�Ufl-3348ed57c594e3-6c�VTU�W8�7V�X*WE.LEEEEUcim
�Y3�Xp�Z3�Xp�[PWE.�\3�[t�]Z\�^]�_gt-3348ed57c594e3-5b�`_�afl-3348ed57c594e3-70�ba�c8`+b�d*cE.LEEEEUcim
�e34dp�fcE.LEnEEEuE|���g3�fp�hg�i3�fp�j3=fp�k3?fp�lkg�mPcE.�n3&mt�ojln�p3�fp�qcE.�r3	qt�spgr�t3Ifp�u3�fp�v3'mt�wuv�xtgw�yiosx�zehy�{PE.�|3({t�}glexenv-patterns�~g%lexenv-patterns-procedure�gm-3348ed57c594e3-77��6�����fl-3348ed57c594e3-79�����8G�����E�LEEEEUcim��3O�p��N����1��E�LEnEEEuE|����3Z�p��N���0��1������fl-3348ed57c594e3-7c��fl-3348ed57c594e3-7d������8�������E�LEEEEUcim
��3��p��3��p��P�E���3&�t���������3��p��N���0��1��fl-3348ed57c594e3-81��fl-3348ed57c594e3-82������8�������E�LEEEEUcim
��3��p��3��p���E���3	�t���������3��p��N���0��1��fl-3348ed57c594e3-86��fl-3348ed57c594e3-87������8�������E�LEEEEUcim
��3��p��3��p��P�E���3��t���������gt-3348ed57c594e3-76�����fl-3348ed57c594e3-8b�����8�������E�LEEEEUcim
��34�p���E�LEnEEEuE|����3��p�����3��p��3=�p��3?�p������P�E���3&�t�������3��p���E���3	�t�������3I�p��3��p��3}�t����������������������PE���3~�t��geach��11������1Ռ��1֌��1׌��g%%set-fields��gdummy��gcheck?��gexpr�����o���gm-3348ed57c594e3-92���6�����fl-3348ed57c594e3-97��fl-3348ed57c594e3-98��fl-3348ed57c594e3-99��fl-3348ed57c594e3-9a��fl-3348ed57c594e3-9b���������8��������fl-3348ed57c594e3-94�����8G����gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d���6�������fl-1e8ba8b5a-171��fl-1e8ba8b5a-172��fl-1e8ba8b5a-173�������8�����fl-1e8ba8b5a-167��fl-1e8ba8b5a-168��fl-1e8ba8b5a-169�������8vw����E�LE�EEE���
��3��p��P�E��3&�t�3L�t�3��t�3'�t�3}�t��gmap���	glist�
gset-record-type-printer!�f'#<lexical-environment ~S (~S bindings)>�g
syntax-module�
glength�gsyntax-object-of�g
datum->syntax�gt-3348ed57c594e3-cd��gm-3348ed57c594e3-ce�6��fl-3348ed57c594e3-d1��8�fl-3348ed57c594e3-cb��8Gj���fl-3348ed57c594e3-c8��8j�PEE� 3�t�!gmake-box�"gcase-lambda�#gv�$�#�%gm-3348ed57c594e3-d4�&%6�'&P�(fl-3348ed57c594e3-d9�)fl-3348ed57c594e3-da�*()�+8$'*�,&�-fl-3348ed57c594e3-d6�.-�/8G,.�0P+E/�13"0t�23F0t�32�4gset!�5340t�6gset-procedure-property!�7gidentifier-syntax-box�8gmake-transformer-from-box�9gidentifier-syntax-from-box�:gbox�;�:�<gm-3348ed57c594e3-e2�=<6�>=P�?fl-3348ed57c594e3-e7�@fl-3348ed57c594e3-e8�A?@�B8;>A�C=�Dfl-3348ed57c594e3-e4�ED�F8GCE�GPBEF�H38Gt�I3Gt�Jgidentifier-syntax�K3JGt�Lgid�M3LGt�N34Gt�O3FGt�PNMO�QO�Rgmake-variable-transformer�Sf1unsupported binding captured by (the-environment)�Tgunsupported-binding�Ug...�Vgt-3348ed57c594e3-f9�WV�Xgm-3348ed57c594e3-fa�YX6�ZY�[fl-3348ed57c594e3-fd�\[�]8WZ\�^gloop�_gn�`^�_�afl-3348ed57c594e3-f3�bfl-3348ed57c594e3-f4�cfl-3348ed57c594e3-f5�dabc�e8`wd�fglvl�gLf�hfl-3348ed57c594e3-f1�ifl-3348ed57c594e3-f2�jhi�k8gQj�lPE]EeEk�m3Ult�nm�ogwithin-nested-ellipses�pgsyntax-local-binding�qglexical�rgor-map�sgbound-identifier=?�tghere�ugmktmp�vu�wfl-3348ed57c594e3-101�xw�y8vfx�zgids�{z�|fl-3348ed57c594e3-100�}|�~8{j}�PEy~��3tt��ggensym��ft ��gt-3348ed57c594e3-11f�����gm-3348ed57c594e3-120���6�����fl-3348ed57c594e3-123�����8�����gt�����fl-3348ed57c594e3-11d�����8�j���V��gm-3348ed57c594e3-118���6�����fl-3348ed57c594e3-119�����8�����gtype��gval������fl-3348ed57c594e3-116��fl-3348ed57c594e3-117������8�Q���Lz��fl-3348ed57c594e3-110��fl-3348ed57c594e3-111������8�Q���glp��gcapture��gwrappers���z�Y�z��fl-3348ed57c594e3-103��fl-3348ed57c594e3-104��fl-3348ed57c594e3-105��fl-3348ed57c594e3-106��fl-3348ed57c594e3-107��fl-3348ed57c594e3-108����������8�,���PE�E�E�EE�E�EE�y~��3!�t��111��g
let-syntax��gt-3348ed57c594e3-128��gt-3348ed57c594e3-127��gt-3348ed57c594e3-129�������gm-3348ed57c594e3-12a���6�������fl-3348ed57c594e3-12e��fl-3348ed57c594e3-12f��fl-3348ed57c594e3-130�������8�����fl-3348ed57c594e3-126�����8Gj���PE�EEE�E�E�EE�E�EE�y~��3��t��39�t��gdisplaced-lexical��gprocedure-property��gt-3348ed57c594e3-139��gt-3348ed57c594e3-138��gt-3348ed57c594e3-13a�������gm-3348ed57c594e3-13b���6�������fl-3348ed57c594e3-13f��fl-3348ed57c594e3-140��fl-3348ed57c594e3-141�������8�����fl-3348ed57c594e3-137�����8Gj���gb�����fl-3348ed57c594e3-134�����8�j���PE�EEE�E�E�EE�E�EE�y~��3��t��39�t��gt-3348ed57c594e3-148��gt-3348ed57c594e3-147��gt-3348ed57c594e3-149�������gm-3348ed57c594e3-14a���6�������fl-3348ed57c594e3-14e��fl-3348ed57c594e3-14f��fl-3348ed57c594e3-150�������8�����fl-3348ed57c594e3-146�����8Gj���PE�EEE�E�E�EE�E�EE�y~��3��t��3T�t��3��t��gpattern-variable��fp ��gwith-syntax��gt-3348ed57c594e3-15b��gt-3348ed57c594e3-15a��gt-3348ed57c594e3-15c�������gm-3348ed57c594e3-15d���6�������fl-3348ed57c594e3-161��fl-3348ed57c594e3-162��fl-3348ed57c594e3-163�������8����fl-3348ed57c594e3-159��8Gj�gnested���fl-3348ed57c594e3-154�fl-3348ed57c594e3-155��8Q�	PE�EEEEE�EE�E�EE�y~�
3�	t�3�	t�PEE�EE�E�EE�y~�
3tt�g
syntax->datum�gellipsis�g
with-ellipsis�gt-3348ed57c594e3-16a�gt-3348ed57c594e3-169��gm-3348ed57c594e3-16b�6��fl-3348ed57c594e3-16f�fl-3348ed57c594e3-170��8�fl-3348ed57c594e3-168��8Gj�PEEEEE�EE�E�EE�y~�3t� gerror�!fwhat�"ganalyze-identifiers�#1�$g syntax-locally-bound-identifiers�%gbegin�&gwrap-expression�'&�(fl-3348ed57c594e3-186�)(�*8'f)�+�Y�z�,fl-3348ed57c594e3-182�-fl-3348ed57c594e3-183�.fl-3348ed57c594e3-184�/fl-3348ed57c594e3-185�0,-./�18+�0�2 r�3fl-3348ed57c594e3-17a�4fl-3348ed57c594e3-17b�534�682Q5�7fl-3348ed57c594e3-174�87�98Gj8�:P**16E9�;3%:t�<3:t�=gexp�>3=:t�?;<>�@���A��@1�Bgf�Cgc�Dgpname�Egplvl�Fgpformal�Ggwrapped�HBCDEFG�Ifl-3348ed57c594e3-193�Jfl-3348ed57c594e3-194�Kfl-3348ed57c594e3-195�Lfl-3348ed57c594e3-196�Mfl-3348ed57c594e3-197�Nfl-3348ed57c594e3-198�OIJKLMN�P8H,O�QPEP**16E9	�R3+Qt�S3Qt�T34Qt�U3=Qt�V3�Qt�WUU�X3	Qt�Y3�Qt�Zgmodule?�[finvalid lexical environment�\gresolve-module�]g
env-module�^g	env-boxes�_gt-3348ed57c594e3-1d7�`_�agm-3348ed57c594e3-1d8�ba6�cb�dfl-3348ed57c594e3-1db�ed�f8`ce�gge�hFg�ifl-3348ed57c594e3-1be�jfl-3348ed57c594e3-1bf�kij�l8hQk�mPEfEEl�n34mt�o3mt�pg
local-wrap�qgeval�rgoptsS�sr	��ts�ugenvS�vgfromS�wgscheme�C5h0B�]4	
"54%>"G&h�]�C�gscope
		gwrapper		gboxes			gpatterns			gfilenamefice-9/local-eval.scm�
	
��			gnameg#%make-lexical-environment-procedure�C'R4*+,/2�h�]C�gt-3348ed57c594e3-3
		gt-3348ed57c594e3-4		gt-3348ed57c594e3-5			gt-3348ed57c594e3-6						C��+�hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/local-eval.scm�
	
��		nC5+R���&֨4�&>"G	ܖ'i�&R&h�]�$��CC|gobj
		gfilenamefice-9/local-eval.scm�
	
��		gnameg%lexical-environment?-procedure�C�R4*�,/�Fh;]C3gt-3348ed57c594e3-19
		
		
C����hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
CHh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/local-eval.scm�
	
��		nC5�R&KLhz]�&
�C6rgs
		gfilenamefice-9/local-eval.scm�
	
��		gnameg%lexenv-scope-procedure�CMR4*L,/���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h;]C3gt-3348ed57c594e3-25
		
		
C��L�hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/local-eval.scm�
	
��	�C5LR&K�h|]�&�C6tgs
		gfilenamefice-9/local-eval.scm�
	
��		gnameg%lexenv-wrapper-procedure�C�R4*�,/���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h:]��C2gerr
		gs					C�$h;]C3gt-3348ed57c594e3-40
		
		
C����hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
C&h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/local-eval.scm�
	
��	�C5�R&K'h z]�&	�C6rgs
		gfilenamefice-9/local-eval.scm�
	
��		gnameg%lexenv-boxes-procedure�C(R4*',/6=Bh:]��C2gerr
		gs					CEKPh:]��C2gerr
		gs					CSY^h:]��C2gerr
		gs					C�zh;]C3gt-3348ed57c594e3-5b
		
		
C��'�hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
C|h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/local-eval.scm�
	
��	�C5'R&K}h }]�&	�C6ugs
		gfilenamefice-9/local-eval.scm�
	
��		gnameg%lexenv-patterns-procedure�C~R4*},/���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h;]C3gt-3348ed57c594e3-76
		
		
C��}�hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/local-eval.scm�
	
��	�C5}R4*�,/��	h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/local-eval.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R4
i&i&KL
'}
hp�]4�&
�"	4554�&		�"	4554�&		�"	4	55�6�ge
		jgport		jgfilenamefice-9/local-eval.scm�
	$��		%	��			&	��		&	��	'	&	��	(	'	��	-	'	��	G	'	��	H	'	(��	M	'	0��	g	'	(��	h	'	��	j	%	��		j	C>"G4*,/� hp]	45Chgx
		gtmp		gfilenamefice-9/local-eval.scm�		,	��		,	��		C��h(j]	45$@6bgform
		"gtmp		"gfilenamefice-9/local-eval.scm�
	*	��		"C5R4*!,/�135h <]��C4gdummy
		gv					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/local-eval.scm�
	.
��		"g
macro-typegsyntax-rules�gpatternsgvC5!R67h �]4>"GC�gid
		gtrans		gfilenamefice-9/local-eval.scm�
	3
��		4	��			4	!��		4	��			gnamegmake-transformer-from-box�C8R4*9,/�HIKMPQh(>]�C6gdummy
		(gbox		(		(	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/local-eval.scm�
	7
��		"g
macro-typegsyntax-rules�gpatternsgboxC59RR�Sho]6ggx
		gfilenamefice-9/local-eval.scm�
	?	��		A	��		B	��		@	��		Ch�]6ygname
		gfilenamefice-9/local-eval.scm�
	=
��		>	��		gnamegunsupported-binding�CTRnh0�]"
�$C��"���"����gid
		-glvl		-gs			!gn			!gfilenamefice-9/local-eval.scm�
	E
��		F	��			G	��		G	��		I	 ��	!	I	��	!	F	��		-	gnamegwithin-nested-ellipses�CoRpqrsha]L6Ygx
		
gfilenamefice-9/local-eval.scm�
�	��	
�	'��		
C����/���h �]Cxgt-3348ed57c594e3-128
		gt-3348ed57c594e3-127		gt-3348ed57c594e3-129						C��h0�]LL45$@6zgx
		-gtmp		-gtmp			-gfilenamefice-9/local-eval.scm�
�	��	�	"��		-C�,�7/���h �]Cxgt-3348ed57c594e3-139
		gt-3348ed57c594e3-138		gt-3348ed57c594e3-13a						C��h0�]LL45$@6zgx
		-gtmp		-gtmp			-gfilenamefice-9/local-eval.scm�
�	��	�	"��		-C/����h �]Cxgt-3348ed57c594e3-148
		gt-3348ed57c594e3-147		gt-3348ed57c594e3-149						C��h0�]LL45$@6zgx
		-gtmp		-gtmp			-gfilenamefice-9/local-eval.scm�
�	��	�	"��		-C��o/�
h �]Cxgt-3348ed57c594e3-15b
		gt-3348ed57c594e3-15a		gt-3348ed57c594e3-15c						C��h0�]LL45$@6zgx
		-gtmp		-gtmp			-gfilenamefice-9/local-eval.scm�
�	��	�	��		-C
/�h^]CVgt-3348ed57c594e3-16a
		gt-3348ed57c594e3-169					C��h0�]L45$@6zgx
		+gtmp			+gtmp			+gfilenamefice-9/local-eval.scm�
�	��		�	��		+C !h��]5(
D��4>G�$g4O5$"���4455		�	�
	O�"��d�$"��C�$Y4
5		$(	�	�	O�"��O�"����$U44554�5
		
O�4455�	�"����$ O�"��Z6gids
	�gcapture	�gformals		�gwrappers		�gpatterns		�gid		�gids		�gtype		'�gval		'�gt			o�gb		�!gt		Bgnested	
B
gfilenamefice-9/local-eval.scm�
�	��	�	��	�	��	�	��	�	 ��	�	��	�	%��	*�	��	7�	��	8�	��	I�	��	a�	��	b�	��	g�	��	k�	"��	m�	��	o�	��	o�	��	}�	����	����	����	����	����	����	����	����	0����	����	����	����	����	.����	���	���	��!�	��*�	��+�	��0�	*��4�	2��6�	*��8�	��9�	��@�	8��B�	��B�	��X�	��Y�	!��^�	7��f�	!��i�	!��n�	��q�	���	����	����	����	����	����	��<	�	gnameglp�Ch �]	OQ6�gids
		glp	
	gfilenamefice-9/local-eval.scm�
	~
��	
�	��	�	��	�	,��	�	;��	�	J��	�	��		gnameganalyze-identifiers�C"R4* ,/#h7]C/gthe-environment
		
		
C�"$h0�]"(C4�5�"���L"����gx
		.gx		"gwrappers			"gfilenamefice-9/local-eval.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	�	*��	"�	��	"�	
��
		.gnamegwrap-expression�C?/ARSTUVW	XXYSh�]C~gtmp-3348ed57c594e3-1a5
		gtmp-3348ed57c594e3-1a4		gtmp-3348ed57c594e3-1a3						ChP�]L�45�	�	4
5�Cgf
		Ogc		Ogpname			Ogplvl			Ogpformal			Ogwrapped			O		O	C��
hh<]:445>GOQ4545$O@	64gthe-environment
		agscope		agcapture			agformals			agwrappers			agpatterns			agwrap-expression		%	agtmp		:	agtmp		E	a	gfilenamefice-9/local-eval.scm�	�	��	�	��	�	��	�	��	1�	"��	:�	��		a	C��h@y]45$@45$@6qgx
		9gtmp		9gtmp		"	9gfilenamefice-9/local-eval.scm�
�	��		9C5 RZ [&\hH�]"45$C6�$�&
4
�56"���"����ge
		Agfilenamefice-9/local-eval.scm�
�
��	�	��	�	��	�	��	�		��	�	��	�	��	#�	��	&�	��	/�	-��	5�	<��	7�	-��	9�	��		Agnameg
env-module�C]RZ [&h@�]"45$C6�$�&	�C"���"����ge
		9gfilenamefice-9/local-eval.scm�
�
��	�	��	�	��	�	��	�	��	�		��	�	��	�	��	"�	��	%�	��	0�	��		9gnameg	env-boxes�C^RZno [&oh(�]������456�gl
		#gname		#glvl			#gscope			#gfilenamefice-9/local-eval.scm�
�	��	�	��	�	��	�	��	�	��	�	,��	#�	��		#C
h`
]"45$C6�$*�&�4
�54		�5@"���"���gx
		Yge		Ygfilenamefice-9/local-eval.scm�
�
��	�	��	�	��	 �	��	$�		��	$�	��	'�	��	+�	��	.�	��	8�	��	9�	��	?�	��	C�	��	D�	��	M�	��	O�	��	Q�	��		Y	gnameg
local-wrap�CpRqp]^h ]44545545@gx
		 ge		 gfilenamefice-9/local-eval.scm�
�
��	�		��	�	��	�	 ��	�		��	�		��	 �	��		 	gnameg
local-eval�g
documentationfGEvaluate the expression @var{x} within the lexical environment @var{e}.�CRtpu]vwr^
hHU-/03#4454554	5@Mgx
		Dge		Dgopts			Dgfilenamefice-9/local-eval.scm�
�
��	�	(��	�		��	 �	��	+�	)��	5�	��	;�		��	<		��	D�	��
		D	
goptsS	�gnameg
local-compile�g
documentationfSCompile and evaluate the expression @var{x} within the lexical
environment @var{e}.�C!RC�gm
		,grtd
:gfilenamefice-9/local-eval.scm�		
��	
��		"
��"	3
��$�	=
��%�	E
��41	~
��;N�
��<s�
��?	�
��@[�
��B(�
��
	B*
C6ice-9/optargs.go000064400000046515150536206120007473 0ustar00GOOF----LE-8-2.05M]�4h7]gguile�	�	gdefine-module*�	�	�	gice-9�	goptargs�	�		gfilenameS�	
fice-9/optargs.scm�	gimportsS�	gsystem�	
gbase�	gpmatch�	
�	�	�	gexportsS�	glet-optional�	g
let-optional*�	glet-keywords�	g
let-keywords*�	gdefine*-public�	g	defmacro*�	gdefmacro*-public�	�	g
re-exportsS�	glambda*�	gdefine*�	�	gset-current-module�	 �	!�	"g$sc-dispatch�	#"�	$"�	%greverse�	&gany�	'&&�	('&��	)&&��	*gsyntax-violation�	+*�	,*�	-f-source expression failed to match any pattern�	.gidentifier?�	/g
syntax-object�	0gtop�	10�	2gribcage�	3gv�	4grest�	534�	611�	7fl-44375c4e67-1f0�	8fl-44375c4e67-1f1�	978�	:2569�	;2�	<glp�	=gbindings�	>gvars�	?ginits�	@<=>?�	A1111�	Bfl-44375c4e67-1d4�	Cfl-44375c4e67-1d5�	Dfl-44375c4e67-1d6�	Efl-44375c4e67-1d7�	FBCDE�	G2@AF�	H=�	I1�	Jfl-44375c4e67-1d3�	KJ�	L2HIK�	M1:;G;L�	Nghygiene�	ON�	P/MO�	Qg
vars&inits�	Rgmake-syntax-transformer�	SR�	TR�	Ugmacro�	Vg_�	Wgeach-any�	X&W��	YWX��	Z&Y��	[VZ��	\glength�	]gappend�	^ggenerate-temporaries�	_&&&WW�	`glet�	agn�	bgn+1�	cgt�	dgi�	eab>cd�	f11111�	gfl-44375c4e67-210�	hfl-44375c4e67-211�	ifl-44375c4e67-212�	jfl-44375c4e67-213�	kfl-44375c4e67-214�	lghijk�	m2efl�	n>?�	ofl-44375c4e67-20b�	pfl-44375c4e67-20c�	qop�	r2n6q�	sgrest-arg�	tgbinding�	ugb0�	vgb1�	wstuv�	xfl-44375c4e67-200�	yfl-44375c4e67-201�	zfl-44375c4e67-202�	{fl-44375c4e67-203�	|xyz{�	}2wA|�	~gx�	~��fl-44375c4e67-1f5�����2I���1;m;;r};�	��/`�O��gmap��������glambda��/��O��gapply��/��O��gor��/��O��gparse-lambda-case��/��O��gquote��/��O��/
�O��/�O���������glist��/��O��gerror��/��O��fsth��/��O��&&&W��ab>d��fl-44375c4e67-23a��fl-44375c4e67-23b��fl-44375c4e67-23c��fl-44375c4e67-23d��������2�A���fl-44375c4e67-235��fl-44375c4e67-236������2n6���fl-44375c4e67-22a��fl-44375c4e67-22b��fl-44375c4e67-22c��fl-44375c4e67-22d��������2wA���fl-44375c4e67-21f�����2I���1;�;;��;�	��/��O��/��O��/��O��/��O��/��O��/
�O��/�O���������/��O��/��O��/��O��&Z���V����gaok��s�tuv��fl-44375c4e67-279��fl-44375c4e67-27a��fl-44375c4e67-27b��fl-44375c4e67-27c��fl-44375c4e67-27d���������2�f���fl-44375c4e67-245�����2I���1�;���/`�O��gr��/��O��/�O��gsymbol->keyword��g
syntax->datum��giota��&&&WWWW��givars��gkw��gidx��a>���cd��1111111��fl-44375c4e67-264��fl-44375c4e67-265��fl-44375c4e67-266��fl-44375c4e67-267��fl-44375c4e67-268��fl-44375c4e67-269��fl-44375c4e67-26a�����������2�����fl-44375c4e67-25f��fl-44375c4e67-260������2n6���fl-44375c4e67-252��fl-44375c4e67-253��fl-44375c4e67-254��fl-44375c4e67-255��fl-44375c4e67-256���������2�f���1;�;;��;�	��/`�O��/��O��/��O��/��O��/��O��/��O��/
�O��/�O��gcons��/��O��/��O��/��O��fl-44375c4e67-2b4��fl-44375c4e67-2b5��fl-44375c4e67-2b6��fl-44375c4e67-2b7��fl-44375c4e67-2b8�������2�f�fl-44375c4e67-286��2I�1;�/`O�/�O�/O�	&&WWW�
a>��d�fl-44375c4e67-2a5�fl-44375c4e67-2a6�
fl-44375c4e67-2a7�fl-44375c4e67-2a8�fl-44375c4e67-2a9�
�2
f�fl-44375c4e67-2a0�fl-44375c4e67-2a1��2n6�fl-44375c4e67-293�fl-44375c4e67-294�fl-44375c4e67-295�fl-44375c4e67-296�fl-44375c4e67-297��2�f�1;;;;	�/�O�/�O� /�O�!/�O�"/�O�#/
O�$/O�%/�O�&/�O�'/�O�()X��)V(��*g
define-public�+gid�,gargs�-+,uv�.fl-44375c4e67-2c4�/fl-44375c4e67-2c5�0fl-44375c4e67-2c6�1fl-44375c4e67-2c7�2./01�32-A2�4fl-44375c4e67-2c1�54�62I5�713;6�8/*7O�9/7O�:V&&�;gval�<+;�=fl-44375c4e67-2d2�>fl-44375c4e67-2d3�?=>�@2<6?�A1@;6�B/*AO�C&X��D&C��E&D��FVE��GVD��Hgdefine-macro�Ifl-44375c4e67-2f0�Jfl-44375c4e67-2f1�Kfl-44375c4e67-2f2�Lfl-44375c4e67-2f3�MIJKL�N2-AM�Ofl-44375c4e67-2d7�PO�Q2IP�R1N;Q�S/HRO�T/RO�U/RO�Vgstring?�Wgdoc�X+,Wuv�Yfl-44375c4e67-2e4�Zfl-44375c4e67-2e5�[fl-44375c4e67-2e6�\fl-44375c4e67-2e7�]fl-44375c4e67-2e8�^YZ[\]�_2Xf^�`1_;Q�a/H`O�b/`O�cgbegin�dgdummy�ed+,uv�fgm-44375c4e67-2fa�gf0�hg1111�ifl-44375c4e67-2ff�jfl-44375c4e67-300�kfl-44375c4e67-301�lfl-44375c4e67-302�mfl-44375c4e67-303�nijklm�o2ehn�pg�qfl-44375c4e67-2fc�rq�s2pr�t1o;s�u/ctO�v/tO�wg
export-syntax�x/wtO�yg
uninitialized�zg*uninitialized*�{g	make-list�|gappend!�}gkeyword?�~gassq-ref�g	list-set!��g	scm-error��gkeyword-argument-error��fUnrecognized keyword��fInvalid keyword��g	list-copy��funexpected spec�C5h�/�]4	
5	4!>"G$%hU]4L54L5DMgfilenamefice-9/optargs.scm�		Z	��	
	Z	��		Z	��		
C(),-.hg]6_gv
		grest		gfilenamefice-9/optargs.scm�		]	��			CPhw]LL�L�6ogv
		grest		gfilenamefice-9/optargs.scm�		^	��		^	"��		^	��			C.hy]6qgv
		ginit		grest			gfilenamefice-9/optargs.scm�		[	��			Ch�]LL�L�6�gv
		ginit		grest			gfilenamefice-9/optargs.scm�		\	��		\	"��		\	��			Ch��]45$
O@45"@45"	6$4?$LO@"���"���$4	?$
LO@"���"����gbindings
	�gvars	�ginits		�gtmp		
�gtmp		(�gtmp		7	ngfilenamefice-9/optargs.scm�
	W	��	�	gnameglp�Ch�]	OQ6�gbindings
		glp	
	gfilenamefice-9/optargs.scm�
	V
��	
	W	��		W	%��		W	1��		W	��		gnameg
vars&inits�CQR4TU$[,-.h�]6�grest-arg
		gbinding		gb0			gb1			gfilenamefice-9/optargs.scm�		c	,��			CQ\]^$_���hZ]LCRgtmp-44375c4e67-21b
		gtmp-44375c4e67-21a					C����������hXj]4O5LL���	
�����L
LCbgn
		Ugn+1		Ugvars			Ugt			Ugi			U		U	C,-
hh ]$4>G4545�454545$O@	6grest-arg
		fgbinding		fgb0			fgb1			fgvars		
	fginits		
	fgtmp		;	fgtmp		F	fgfilenamefice-9/optargs.scm�		d	$��		d	��		f	��		g	"��	#	g	��	$	h	��	-	h	,��	/	h	��	0	i	"��	;	f	��		f	Ch@d]	45"	6$4?$@"���"���\gx
		9gtmp		9gfilenamefice-9/optargs.scm�
	a	��		9C5R4TU$[,-.h�]6�grest-arg
		gbinding		gb0			gb1			gfilenamefice-9/optargs.scm�		v	,��			CQ\]$�����������h:]LC2gtmp-44375c4e67-243
				C��
hP[]LL�������4	
O5�LLCSgn
		Lgn+1		Lgvars			Lgi			L		L	C,-	h`]$4>G4545�4545$O@6grest-arg
		_gbinding		_gb0			_gb1			_gvars		
	_ginits		
	_gtmp		4	_gtmp		?	_gfilenamefice-9/optargs.scm�		w	$��		w	��		y	��		z	"��	#	z	��	$	{	��	-	{	,��	/	{	��	4	y	��
		_	Ch@d]	45"	6$4?$@"���"���\gx
		9gtmp		9gfilenamefice-9/optargs.scm�
	t	��		9C5R4TU$����h(v]�����Cngrest-arg
		#gaok		#gbinding			#gb0			#gb1			#		#	C,-.h�]6�grest-arg
		gaok		gbinding			gb0			gb1			gfilenamefice-9/optargs.scm�	�	0��			CQ\^����$����hZ]LCRgtmp-44375c4e67-273
		gtmp-44375c4e67-272					C�����������h`�]4O5LL���		
L45�L
LC�gn
		_gvars		_givars			_gkw			_gidx			_gt			_gi			_		_	C,-
h�M]%4>G454544554455454	5$
O@6Egrest-arg
		ygaok		ygbinding			ygb0			ygb1			ygvars		
	yginits		
	ygtmp		L	ygtmp		W	y	gfilenamefice-9/optargs.scm�	�	$��	�	��	�	��	�	 ��	%�	#��	*�	(��	4�	#��	5�	$��	8�	*��	@�	$��	A�	"��	L�	��
		y	ChPv]45" 45$@6$4?$@"���"���ngx
		Pgtmp		Pgtmp			1gfilenamefice-9/optargs.scm�
�	��		PC5R4TU$�h(v]�����Cngrest-arg
		#gaok		#gbinding			#gb0			#gb1			#		#	C,-.h�]6�grest-arg
		gaok		gbinding			gb0			gb1			gfilenamefice-9/optargs.scm�	�	0��			CQ\����$	 !"#$��%h:]LC2gtmp-44375c4e67-2b2
				C&'hXk]LL���L4	5
4O5�L
LCcgn
		Vgvars		Vgkw			Vgidx			Vgi			V		V	C,-hp;]%4>G454455445545$	O@
63grest-arg
		kgaok		kgbinding			kgb0			kgb1			kgvars		
	kginits		
	kgtmp		>	kgtmp		I	k	gfilenamefice-9/optargs.scm�	�	$��	�	��	�	��	�	#��	#�	(��	-�	#��	.�	$��	1�	*��	9�	$��	>�	��		k	ChPv]45" 45$@6$4?$@"���"���ngx
		Pgtmp		Pgtmp			1gfilenamefice-9/optargs.scm�
�	��		PC5R4TU$)89h\]���CTgid
		gargs		gb0			gb1						C:,-.hh]6`gid
		gval		gfilenamefice-9/optargs.scm�		��			CBh;]C3gid
		gval					C	hPv]45$@45"	6$4?$@"���"���ngx
		Pgtmp		Pgtmp		"	Pgfilenamefice-9/optargs.scm�
�	��		PC5R4TU$FGSTUh\]���CTgid
		gargs		gb0			gb1						C,-V�h�]456�gid
		
gargs		
gdoc			
gb0			
gb1			
gfilenamefice-9/optargs.scm�		*��	
	!��		
	Cabhm]���Cegid
		gargs		gdoc			gb0			gb1						C	hPv]45" 45$@6$4?$@"���"���ngx
		Pgtmp		Pgtmp			1gfilenamefice-9/optargs.scm�
	��		PC5R4TU$Euvxh o]����Cggdummy
		gid		gargs			gb0			gb1						C,-h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/optargs.scm�

��		"g
macro-typegsyntax-rules�gpatternsgidgargsgb0gb1g...C5RyzR{z|}~�������hP�
]��$;���$"���$	���$���
	
�$�
�
��$���
(�"m
�$G$�"4	�5$
45"""(C��"���"m
�$"Q(%4�?����"���������"���"~$8�
�$�"[�"���
�$-("4�5$"C�$CC"(6(C�&4�?�"��"���4�5$�4�5$��$4
�5""$.4��>"G��"��Z"	64�5$,��$ $��"��"���"���"����"���"(6(C�&4�?�"��"���4�5$�4�5$��$4
�5""$.4��>"G��"��Z"	64�5$,��$ $��"��"���"���"���$"���
645"��^
6
6
6
6
6
6
6�
gspec
	Lginits	Lgargs		Lgvx		Dgvy		Dgvx		 <gvy		 <gvx		14gvy		14gvx			B,gvy	
	B,gvx		S$gvy		S$gvx	
	dgvy		dgargs		r�gprev		r�gtail		r�gn		r�g
slots-tail	��gslots	�Pg
slots-tail	�Pg	args-tail	�Pgn	�Pginits	�Pgslots	T�g
slots-tail	T�g	args-tail	T�ginits	T�grest-idx	T�gslots	��g
slots-tail	��g	args-tail	��ginits	��gt	F�gslots	��g
slots-tail	��g	args-tail	��ginits	��gt	Q�gargs	�)gfilenamefice-9/optargs.scm�

��	 	��	r"	��	u$		��	z#	���%		���%	!���%	���&	���&	&���&	���&		���'	���'	���'	���#	���,	���,	#���,		���-	���/		���.	��0		��	.	��2	��2	%��2	��2		��3	��3	%��3	)�� 3	0��.3		��35	��45		��96	��<6	%��?6	5��B6	<��P6		��T7	��Z8	��_;		��b<	
��f<		��k=	$��{=	
���>	 ���>	1���>	
���?		���8	���B	���B	���B	-���B	7���B	-���B		���C	���D		���8	���H	���I	���K		���N	���N	���O	(���O	/���O	(���O	��P	&��P	7��P	;��P	��Q	��Q	��Q	��I	��S	��$S	��&S	��*S		��-T	��.T	��2S		��3U	��:U	#��<U	��FI	��OW	��XW	!��^W	��mX	0��|X	���]	���]	4���^	���]	���I	���Y	���Y	���Y	���I	���Z	���Z	���Y		���\	+���\		���R	+���R		���_	���`	���b		���e	���e	���f	(���f	/��f	(��f	��
g	��g	+��g	/��g	��h	��#h	��%h	��)`	��*n	��/n	��1n	��5n		��8o	��9o	��=n		��>p	��Ep	#��Gp	��Q`	��Zr	��cr	!��ir	��xs	$���s	���x	���x	4���y	���x	���`	���t	���t	���t	���`	���u	���u	���t		���w	���w		���i		���k	#���k	
���l	���l	3���m	���l	
���z	���z	��{	��|	��|	
�� |	��$|	
��(|	��,|	
��0|	��4|	
��8|	��<|	
��@|	��D|	
��H|	��L|	
���	L	gnamegparse-lambda-case�C�RC{gm
		0gfilenamefice-9/optargs.scm�		;
��[	V
�� �	�� �	�� �
��/�
��	/�
C6ice-9/stack-catch.go000064400000003323150536206120010167 0ustar00GOOF----LE-8-2.0�]4hE]gguile�	�	gdefine-module*�	�	�	gice-9�	gstack-catch�	�		gfilenameS�	
fice-9/stack-catch.scm�	gimportsS�	g
save-stack�	
�	
�	�	gexportsS�	�	gset-current-module�	�	�	gcatch�	gthrow�C5h�a]4	
54>"Gh(}-134	>"G@ugkey
			#gargs			#gfilenamefice-9/stack-catch.scm�
	+		��	
	-	��	#	.	��			#
Ch�]6�gkey
		gthunk		ghandler			gfilenamefice-9/stack-catch.scm�
	
��		(	��			gnamegstack-catch�g
documentationfLike @code{catch}, invoke @var{thunk} in the dynamic context of
@var{handler} for exceptions matching @var{key}, but also save the
current stack state in the @var{the-last-stack} fluid, for the purpose
of debugging or re-throwing of an error.  If thunk throws to the
symbol @var{key}, then @var{handler} is invoked this way:

@example
 (handler key args ...)
@end example

@var{key} is a symbol or #t.

@var{thunk} takes no arguments.  If @var{thunk} returns normally, that
is the return value of @code{catch}.

Handler is invoked outside the scope of its own @code{catch}.  If
@var{handler} again throws to the same key, a new handler from further
up the call chain is invoked.

If the key is @code{#t}, then a throw to @emph{any} symbol will match
this call to @code{catch}.�CRCYgm
		,gfilenamefice-9/stack-catch.scm�		
���	
��	�
C6ice-9/hcons.go000064400000006355150536206120007124 0ustar00GOOF----LE-8-2.0�]!4hm]gguile�	�	gdefine-module*�	�	�	gice-9�	ghcons�	�		gfilenameS�	
fice-9/hcons.scm�	gexportsS�	ghashq-cons-hash�	
ghashq-cons-assoc�	ghashq-cons-get-handle�	ghashq-cons-create-handle!�	ghashq-cons-ref�	ghashq-cons-set!�	g
hashq-cons�	ghashq-conser�	gmake-gc-buffer�	
	�	gset-current-module�	�	�	ghashq�	ghashx-get-handle�	ghashx-create-handle!�	g	hashx-ref�	g
hashx-set!�	gmake-doubly-weak-hash-table�	g	make-list�	 gappend!�C5h�	�]4	
54>"Gh0�]4�?��54�?��5��C�gpair
		)gn		)gfilenamefice-9/hcons.scm�
	"
��		#	��		#	��		#	��		$	��		$	��	$	$	��	%	#	
��	(	#	��
		)	gnameghashq-cons-hash�CR
hp&]
(C�$D��$7���$)����&����&�"""""$C�6gkey
		jgl		jgt		V	jgfilenamefice-9/hcons.scm�
	'
��		(	��	
	)	��		)	��		*	��		*	��		)	��		+	��		+	��	"	)	��	%	,	��	(	,	��	.	)	��	1	-	��	4	-	��	:	)	��	=	.	��	V	)	��	h	/	!��	j	/	��		j	gnameghashq-cons-assoc�C
R
h�]6�gtable
		gkey		gfilenamefice-9/hcons.scm�
	1
��		2	��			gnameghashq-cons-get-handle�CR
h�]6�gtable
		gkey		ginit			gfilenamefice-9/hcons.scm�
	4
��		5	��			gnameghashq-cons-create-handle!�CR
h�]6�gtable
		gkey		gfilenamefice-9/hcons.scm�
	7
��		8	��			gnameghashq-cons-ref�CR
h�]6�gtable
		gkey		gval			gfilenamefice-9/hcons.scm�
	:
��		;	��			gnameghashq-cons-set!�CRh�]4�5�C�gtable
		ga		gd			gfilenamefice-9/hcons.scm�
	=
��		>	��		>	(��		>	��		>	��			gnameg
hashq-cons�CRhi]L6aga
		gd		gfilenamefice-9/hcons.scm�
	D	��		D	��			Ch �]	�$"45OC�ghash-tab-or-size
		 gtable		 gfilenamefice-9/hcons.scm�
	@
��		A	��			A	��		C	��		A	��		 gnameghashq-conser�CR hm]M�M�NCegnext
		gfilenamefice-9/hcons.scm�
	L	��		M	��	
	N	��		N	��		Ch(�]	45H4JJ>"GOC�gn
		(gring	
	(gfilenamefice-9/hcons.scm�
	I
��		J	��	
	J	��	
	K	��		(gnamegmake-gc-buffer�CRC�gm
		(gfilenamefice-9/hcons.scm�		
��*	"
���	'
���	1
��a	4
��	7
���	:
���	=
��	@
��	x	I
��		z
C6ice-9/null.go000064400000001342150536206120006753 0ustar00GOOF----LE-8-2.0�]#4h]gguile�	�	gdefine-module*�	�	�	gice-9�	gnull�	�		gfilenameS�	
fice-9/null.scm�	g
re-exportsS�	gdefine�	
gquote�	glambda�	gif�	gset!�	gcond�	gcase�	gand�	gor�	glet�	glet*�	gletrec�	gbegin�	gdo�	gdelay�	g
quasiquote�	g
define-syntax�	g
let-syntax�	g
letrec-syntax�	
�	 gset-current-module�	! �	" �C5h(P]4	
54">"GCHgm
		(gfilenamefice-9/null.scm�
	
��		(
C6ice-9/safe.go000064400000002153150536206120006720 0ustar00GOOF----LE-8-2.0S]4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gsafe�	�		gfilenameS�	
fice-9/safe.scm�	gexportsS�	gsafe-environment�	
gmake-safe-module�	
�	gset-current-module�	�	�	gresolve-interface�	g	safe-r5rs�	�	gsafe-r5rs-interface�	g	scm-error�	g
misc-error�	f~A is not a valid version�	gmake-module�C5h��]4	
54>"G4i5Rh0�]	�$"4>"GC�gn
		.gfilenamefice-9/safe.scm�
	
��			��			��			��			��			��			��			��			��	#		��		.gnamegsafe-environment�CRhm]�6egfilenamefice-9/safe.scm�
	 
��		!	��		!	��		
gnamegmake-safe-module�C
RCygm
		(gfilenamefice-9/safe.scm�		
��	)		��	/		/��	1		��	4	
��8	
���	 
��	�
C6ice-9/threads.go000064400000026737150536206120007452 0ustar00GOOF----LE-8-2.0�-]�4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gthreads�	�		gfilenameS�	
fice-9/threads.scm�	gimportsS�	gfutures�	
�	
�	gmatch�	�	�	�	gexportsS�	gbegin-thread�	gparallel�	gletpar�	gmake-thread�	g
with-mutex�	gmonitor�	gpar-map�	gpar-for-each�	g	n-par-map�	gn-par-for-each�	gn-for-each-par-map�	g%thread-handler�	 �	!gset-current-module�	"!�	#!�	$gmake-syntax-transformer�	%$�	&$�	'gmacro�	(g$sc-dispatch�	)(�	*(�	+gany�	,geach-any�	-+,��	.+-��	/g
syntax-object�	0gcall-with-new-thread�	1gtop�	21�	3gribcage�	4gdummy�	5ge0�	6ge1�	7456�	8gm-4712ba65e6-1�	981�	:922�	;fl-4712ba65e6-6�	<fl-4712ba65e6-7�	=fl-4712ba65e6-8�	>;<=�	?37:>�	@3�	Agx�	BA�	C9�	Dfl-4712ba65e6-3�	ED�	F3BCE�	G2?@F�	Hghygiene�	IH�	J/0GI�	Kglambda�	L/KGI�	M/GI�	NM�	Ogsyntax-violation�	PO�	QO�	Rf-source expression failed to match any pattern�	Sg_�	TS,��	Uggenerate-temporaries�	Vglet�	Wgtmp0�	XW�	Y2�	Zfl-4712ba65e6-16�	[Z�	\3XY[�	]5�	^fl-4712ba65e6-11�	_^�	`3]Y_�	afl-4712ba65e6-e�	ba�	c3BYb�	d2@\`@c�	e/VdI�	fgmap�	gf�	hf�	igfuture�	j/idI�	kgvalues�	l/kdI�	mgtouch�	n/mdI�	ogeach�	p++�	qop�	rq-��	s+r��	tgcall-with-values�	ugv�	vge�	wgb0�	xgb1�	y4uvwx�	zgm-4712ba65e6-1d�	{z1�	|{2222�	}fl-4712ba65e6-22�	~fl-4712ba65e6-23�	fl-4712ba65e6-24��fl-4712ba65e6-25��fl-4712ba65e6-26��}~����3y|���{��fl-4712ba65e6-1f�����3B����2�@���/t�I��/K�I��/�I��gproc��garg��4����gm-4712ba65e6-30���1���22��fl-4712ba65e6-35��fl-4712ba65e6-36��fl-4712ba65e6-37�������3��������fl-4712ba65e6-32�����3B����2�@���/0�I��/K�I��/�I�����+.���gm��4�56��gm-4712ba65e6-3d���1���222��fl-4712ba65e6-42��fl-4712ba65e6-43��fl-4712ba65e6-44��fl-4712ba65e6-45��������3��������fl-4712ba65e6-3f�����3B����2�@���/V�I��/A�I��gdynamic-wind��/��I��/K�I��g
lock-mutex��/��I����������gbegin��/��I��gunlock-mutex��/��I�������������gfirst��grest��4����gm-4712ba65e6-4c���1���22��fl-4712ba65e6-51��fl-4712ba65e6-52��fl-4712ba65e6-53�������3��������fl-4712ba65e6-4e�����3B����2�@���/�I��g
make-mutex��/��I�����greverse��������gmake-future��
���
���g
par-mapper��gcons��gfor-each��gconst��g	make-list��glength��gjoin-thread��gcar��gcdr��gapply��gno-value�����gcurrent-error-port��gdisplay��f
In thread:��gnewline��g
display-error��funcaught throw to ��f: ��gthread-handler�C5h8�]4	
 54#>"G4&'*.JLNhM]�����CEgdummy
		ge0		ge1						CQRh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/threads.scm�
	7
��		"g
macro-typegsyntax-rules�gpatternsge0ge1g...C5R4&'*TU*,ehjhX]CPgtmp-4712ba65e6-19
		gtmp-4712ba65e6-18					Clnh9]C1gtmp-4712ba65e6-1a
		
		
Ch ,]4L545�C$gtmp0
				CQRh0]4545$O@6wge0
		0gtmp			0gtmp			0gfilenamefice-9/threads.scm�		@	!��			@	��		0CQRh(d]	45$@6\gx
		"gtmp		"gfilenamefice-9/threads.scm�
	=	��		"C5R4&'*s���h k]����Ccgdummy
		gv		ge			gb0			gb1						CQRh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/threads.scm�
	E
��		"g
macro-typegsyntax-rules�gpatternsgvgeg...gb0gb1g...C5R4&'*.���hP]���CHgdummy
		gproc		garg						CQRh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/threads.scm�
	K
��		"g
macro-typegsyntax-rules�gpatternsgprocgargg...C5R4&'*��������h0\]�����CTgdummy
		)gm		)ge0			)ge1			)		)	CQRh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/threads.scm�
	P
��		"g
macro-typegsyntax-rules�gpatternsgmge0ge1g...C5R4&'*.��hR]���CJgdummy
		gfirst		grest						CQRh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/threads.scm�
	W
��		"g
macro-typegsyntax-rules�gpatternsgfirstgrestg...C5R��hL]LL6Dgfilenamefice-9/threads.scm�
	`	��		`	��		
Cmh�e]9"(845454LO54L?L456�$8��$*���$���"���CCC"��s]glists
	�gls	�gp-ls		�gp-ls		�gtails			Dgheads			Dgtail		3	Dghead		3	Dgw		N�gw		]�gx		]�gfilenamefice-9/threads.scm�
	]	��		^	��		`	��	-	a	��	3	`		��	<	b	��	D	b	��	G	^	���	d		���	^	��	�gnamegloop�Ch(�-13OLQ6}gproc
			"glists			"gloop			"gfilenamefice-9/threads.scm�
	\	��		]	��			"
Ch�]OCygmapper
		
gcons		
gfilenamefice-9/threads.scm�
	[
��		
	gnameg
par-mapper�C�R4�ifi�i5R4�i�i4�i55R�����0��f��hh�]"]4L>"GM(L64M5M4M5NM�N4L>"G4L?�"���"����gargs
	/	cg	my-result	/	cgfilenamefice-9/threads.scm�
	s	��		t	��		u	��		v	��	$	w	��	%	x	%��	/	x	��	4	z	*��	>	z	��	A	{	(��	C	{	��	D	|	��	X	}	/��	_	}	��	c	~	��	c	t	��		g
C	hx�-13H45H44J�55H"B�$4J>"GC4O5J�K�"���
"����gn
	
	wgproc	
	wgarglists		
	wgm			wgthreads			wgresults		$	wgresult		(	wgi		.	pgfilenamefice-9/threads.scm�
	i
��		j	��		j	��		k	��		j	��		l	��		l	��	 	l	%��	"	l	��	$	l	��	$	j	��	.	n	��	3	o		��	7	n	��	8	p		��	O	s	��	e	s	��	g	r	��	j	n	��	p	n	��			w	
	gnameg	n-par-map�CR���0��f���hp�]"_4L>"GM�(L64M54M5N4L>"G4L>"G"���"����gargs
	.	egfilenamefice-9/threads.scm�
�	��	�	��	�	��	�	 ��	�	��	%�	��	&�	%��	.�	��	1�	*��	;�	��	<�	��	N�	��	e�	��	e�	��		i
ChX9-13H45H"1�$J64O5J�K�"���
"���1gn
	
	Sgproc	
	Sgarglists		
	Sgm			Sgthreads			Sgi			Lgfilenamefice-9/threads.scm�
�
��	�	��	�	��	�	��	�	��	 �		��	$�	��	,�		��	-�	��	A�	��	C�	��	F�	��	L�	��			S	
	gnamegn-par-for-each�CR������0���f��h��]"�4L>"GM(L6M�&KM(L64M5M4M5NM�N4L>"G4L?�"���M�M�4L>"G4L>"G4L>"GM�N4L>"G"��3"��/�gargs
	D	xg	my-result	D	xgarg
	{�gfilenamefice-9/threads.scm�
�	��	�	��	�	��	�	��	$�	��	'�	&��	)�	��	-�	��	9�	��	:�	(��	D�	��	I�	-��	S�	��	V�	+��	X�	��	Y�	��	m�	2��	t�	��	x�	��	{�	'��	{�	����	����	����	����	����	����	,����	����	����	����	�� 	�
C
hpA-13	H45H44J�55HJH"7�$J64O	5J�K�"���
"���9gn
	
	ngs-proc	
	ngp-proc		
	ngarglists		
	ngm			ngthreads			ngresults		&	ngresult		*	ngi		0	g	gfilenamefice-9/threads.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	 �	%��	"�	��	$�	��	&�	��	&�	��	0�	��	5�		��	9�	��	A�		��	B�	��	\�	��	^�	��	a�	��	g�	��			n	
	gnamegn-for-each-par-map�g
documentationfgUsing N parallel processes, apply S-PROC in serial order on the results
of applying P-PROC on ARGLISTS.�CR��������	h��-1345454>"G4>"G	�$74������	�$
����">"G"b4>"G4>"G4>"G4>"G4>"GC�gtag
		�gargs		�gn		�gp		�gfilenamefice-9/threads.scm�
�
��	
�	��	�	��	�	��	�	��	�	
��	%�	��	.�	��	D�	��	H�	��	I�	��	Q�	��	T�	��	X�	��	_�	��	c�	��	f�	��	n�	��	s�	����	
����	����	
����	
����	
����	����	
����	
����	
��		�
gnamegthread-handler�C�R�iRC�gm
		,gfilenamefice-9/threads.scm�		"
��d	[
��e	f	��v	f
��w	g	���	g	*���	g	���	g
��	i
���
��|�
��.�
��5�
��	7
C6ice-9/documentation.go000064400000013442150536206120010656 0ustar00GOOF----LE-8-2.0
]H4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	g
documentation�	�		gfilenameS�	
fice-9/documentation.scm�	gimportsS�	grdelim�	
�	
�	�	gexportsS�	gfile-commentary�	gdocumentation-files�	gsearch-documentation-files�	gobject-documentation�	�	g	autoloadsS�	gregex�	�	gmatch:suffix�	�	�	gset-current-module�	�	�	gmake-regexp�	 f^;;; Commentary:�	!f
^;;; Code:�	"f^;+�	#gregexp-exec�	$glength�	%gregexp?�	&gstring?�	'g
procedure?�	(gcall-with-input-file�	)geof-object?�	*gafter�	+gin�	,gread-delimited�	-f
�	.g
string-append�	/f�	0gbefore�	1gmap�	2gin-vicinity�	3fguile-procedures.txt�	4g%library-dir�	5g%package-data-dir�	6g	%site-dir�	7f.�	8f�	9gentry-delimiter�	:gfile-exists?�	;gsymbol->string�	<g
string-length�	=gstring=?�	>g	substring�	?g
string-ref�	@gfind-documentation-in-file�	Agor-map�	Bgprocedure-documentation�	Cgobject-property�	Dgmacro?�	Egmacro-transformer�	Fgprocedure-name�	Ggset-procedure-property!�C5h��]4	
5	4>"G !"#h �]	4L5$6C�gline
		gm		gfilenamefice-9/documentation.scm�
	g	��		h	%��		h	��		i	��		i	$��		C$%&'()*#+,-./0
h��]!"�45$"�$C4L5$"4L5$"&C45&"&44L55"""��g45	"��P�gport
	�gline	�gdoc		�gparse-state		�gt		
	"g	new-state		Q�gfilenamefice-9/documentation.scm�
	~	��			��	�	��	
�	��	�	*��	�	%��	&�	
��	*�	��	6�	��	8�	:��	=�	��	I�	��	K�	=��	Q�	��	U�	��	[�	��	_�	��	c�	*��	g�	��	i�	(��	o�	��	q�	<��	w�	��	x�	��	}�	1����	>����	����	���		���		���		)���		����	����	 ���		��$	�Ch�-13HHH45K45K45OK45�$J"1�45$"45$45"J	45�$J"2��45$"45$45"J	45�$J"���4	5$"J
O6�gfilename
		gcust		gdefault-in-line-re		gdefault-after-line-re		g
default-scrub		gdirt		+	7gv		O	}gv	��gv	��g
in-line-re	�g
after-line-re	�gscrub	�gfilenamefice-9/documentation.scm�
	]
��		d	��		d	*��		d	��		e	 ��	 	e	-��	"	e	 ��	%	f	$��	)	f	1��	+	f	$��	+	f	��	;	l	��	B	l	��	F	l	��	O	n	!��	O	n	��	R	o	!��	\	o	��	c	p	!��	m	o	��	n	p	-���	r	 ���	r	���	r	���	t	$���	t	���	u	$���	u	���	v	$���	u	���	v	0���	x	���	x	���	x	���	z	���	z	���	{	���	{	���	l	��	}	��)		
gnamegfile-commentary�CR41i23h}]456ugvicinity
		
gfilenamefice-9/documentation.scm�
�	��	�	��	�	!��	
�		��		
C4i5i6i7hT]CLgfilenamefice-9/documentation.scm�
�	
��	�	��		
C5R89R:(;<,9)=>?	h��]!4L5454>"G"{45$C"45"���45�$I44
55$045
�$	�45	�6"���"���"���45"��v�gport
	�gname		�glen		�gentry		,�gt		x�gfilenamefice-9/documentation.scm�
�		��	�	��		�	��	�	��	�	
��	�	��	,�	��	-�	��	7�	��	>�	#��	L�	��	L�	��	M�	��	V�	��	Z�	��	[�	��	^�	#��	k�	��	o�	��	p�	��	x�	����	����	)����	6����	3����	����	����	!����	��	�Ch �]45$
O6C�gname
		gfile		gfilenamefice-9/documentation.scm�
�
��	�	��	
�	��	�	��			gnamegfind-documentation-in-file�C@RA@hg]L6_gfile
		
gfilenamefice-9/documentation.scm�
�	
��	
�	��		
Ch(�-13O("6�gname
			"gfiles			"gfilenamefice-9/documentation.scm�
�
��	�	
��	"�	��			"
gnamegsearch-documentation-files�CR'BCDEFGh�G]	45$45"$C45$C45$4455"$C45$>45$14	455$4
>"G"CCC?gobject
	�gt	�gt	-�gt	T�g	docstring��gfilenamefice-9/documentation.scm�
�
��	�	��	
�	��	�	��	�	��	%�	��	+�	��	-�	��	-�	��	9�	��	C�	��	D�	��	G�	!��	O�	��	T�	��	`�	��	j�	��	k�	��	u�	��	v�	��	y�	����	����	����	
����	����	1����	��	�gnamegobject-documentation�g
documentationfzReturn the docstring for OBJECT.
OBJECT can be a procedure, macro or any object that has its
`documentation' property set.�CRC�gm
		0gfilenamefice-9/documentation.scm�		P
���	]
����	����	����	����
����	����
��\�
��
��
����
��	�
C6ice-9/time.go000064400000005364150536206120006747 0ustar00GOOF----LE-8-2.0�
]:4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gtime�	�		gfilenameS�	
fice-9/time.scm�	gimportsS�	gformat�	
�	
�	�	gexportsS�	�	gset-current-module�	�	�	ggc-run-time�	gtimes�	gdisplay�	f'clock utime stime cutime cstime gctime
�	f$~5,2F ~5,2F ~5,2F ~6,2F ~6,2F ~6,2F
�	g	tms:clock�	gexact->inexact�	ginternal-time-units-per-second�	g	tms:utime�	g	tms:stime�	g
tms:cutime�	 g
tms:cstime�	!gidentity�	"g	time-proc�	#gmake-syntax-transformer�	$#�	%#�	&gmacro�	'g$sc-dispatch�	('�	)'�	*g_�	+gany�	,*+��	-g
syntax->datum�	.-�	/-�	0g
datum->syntax�	10�	20�	3g@@�	43"�	5glambda�	6gsyntax-violation�	76�	86�	9f-source expression failed to match any pattern�C5hXZ]4	
54>"G !h7]145454545454>"G444545�	�5
44545�	�544545�	�544545�	�5
44545�	�544545�	�5>"GC/gproc
	ggc-start	g	tms-start		gresult		gtms-end		ggc-end		#gproc		?	[gproc		]	ygproc		{�gproc	��gproc	��gproc	��gfilenamefice-9/time.scm�
	"
��		#	��		#	��	
	$	��		#	��		%	��		#	��		&	��		#	��		'	��	#	#	��	&	,	��	*	,	
��	/	,	��	8	-	��	=	-	��	?	.	��	B	+	��	E	+	��	L	+	'��	S	+	��	V	+	��	X	+	��	]	/	��	`	+	��	c	+	��	j	+	'��	q	+	��	t	+	��	v	+	��	{	0	��	~	+	���	+	���	+	'���	+	���	+	���	+	���	1	���	+	���	+	���	+	'���	+	���	+	���	+	���	2	���	+	���	+	���	+	'���	+	���	+	���	+	���	3	���	+	���	+	���	+	'���	+	���	+	���	+	���	-	��<	gnameg	time-proc�C"R4%&),/245hZ]CRgexp
		gfilenamefice-9/time.scm�
	6
��		7	��		Chb]	45L4?6Zgargs
		gv			gfilenamefice-9/time.scm�		6
��		C89h(`]	45$O@6Xgy
		'gtmp		'gfilenamefice-9/time.scm�
	6
��		'C5RCRgm
		,gfilenamefice-9/time.scm�		
���	"
��	W
C6ice-9/poe.go000064400000005413150536206120006567 0ustar00GOOF----LE-8-2.0�
]#4h(]gguile�	�	gdefine-module*�	�	�	gice-9�	gpoe�	�		gfilenameS�	
f
ice-9/poe.scm�	gimportsS�	ghcons�	
�	
�	�	gexportsS�	g
pure-funcq�	g
perfect-funcq�	�	gset-current-module�	�	�	gmake-weak-key-hash-table�	g
funcq-memo�	gmake-gc-buffer�	gfuncq-buffer�	ghashq�	g
funcq-hash�	geq?-list�	gfuncq-assoc�	g	not-found�	 g	hashx-ref�	!g
hashx-set!�	"gmake-hash-table�C5h��]4	
54>"G4i5R4i5Rh@�]"+(�C4�?��5��"���
"����garg-list
		<gn		<gx			1garg-list			1gfilenamef
ice-9/poe.scm�
	3
��		4	��		6	��		7	��		8	"��		8	)��	%	8	"��	&	8	��	)	9	��	1	8	��	1	4	��		<	gnameg
funcq-hash�CRh0�](�C(C��&
��6C�gx
		*gy		*gfilenamef
ice-9/poe.scm�
	=
��		>	��		?	��		@	��		A	��		A	��		@	��	#	B	��	&	B	��	(	B	��		*	gnamegeq?-list�CRh(�](C4��5$�C�6�garg-list
		&galist		&gfilenamef
ice-9/poe.scm�
	D
��		E	��		G	
��		G	��		G	
��		G	��		H	
��	$	I	 ��	&	I	
��
		&	gnamegfuncq-assoc�CRR !hx�-13L�45&84L?4>"G4>"GC4>"GC�gargs
			vgkey		vgcached			vgval		0	agfilenamef
ice-9/poe.scm�
	P	��		Q	��		Q	��		R	��		Q	��	)	S	��	*	X	��	0	X	
��	3	Y	��	E	Z	��	b	U	��			v


Chn]OCfg	base-func
		
gfilenamef
ice-9/poe.scm�
	O
��		
gnameg
pure-funcq�CR" !hx�-13L�4M5&84L?4>"G4M>"GC4>"GC�gargs
			vgkey		vgcached			vgval		0	agfilenamef
ice-9/poe.scm�
	h	��		i	��		i	��		j	��		i	��	)	k	��	*	p	��	0	p	
��	3	q	��	E	r	��	b	m	��			v


Ch�]
H45KOC�gsize
		g	base-func		g
funcq-memo			gfilenamef
ice-9/poe.scm�
	e
��		f	��			gnameg
perfect-funcq�CRC�gm
		,gfilenamef
ice-9/poe.scm�		
��	-	0	��	9	0
��	:	1	��	F	1
���	3
���	=
���	D
���	L	���	L	���	L
���	O
���	e
��	�
C6ice-9/format.go000064400000232050150536206120007273 0ustar00GOOF----LE-8-2.04]%4hx]gguile�	�	gdefine-module*�	�	�	gice-9�	gformat�	�		gfilenameS�	
fice-9/format.scm�	greplacementsS�	�	
g	autoloadsS�	gpretty-print�	�	gtruncated-print�	�	gi18n�	�	g%global-locale�	gnumber->locale-string�	�	�	gset-current-module�	�	�	f3.0�	gformat:version�	gstring?�	gerror�	f+format: expected a string for format string�	 gboolean?�	!gcurrent-output-port�	"goutput-port?�	#gnumber?�	$gissue-deprecation-warning�	%f5Passing a number to format as the port is deprecated.�	&f"Pass (current-error-port) instead.�	'gcurrent-error-port�	(fformat: bad destination `~a'�	)g%default-port-encoding�	*fUTF-8�	+gopen-output-string�	,gport-column�	-g
write-char�	.g
string-ref�	/g
string-length�	0gchar=?�	1gdisplay�	2gstring�	3f~�	4gmemv�	5gappend�	6[];:@^�	70123456789-+v#'�	8fillegal format string�	9{}:@^�	:gchar-upcase�	;gmemq�	<gcolon�	=gcolon-at�	><=�	?gat�	@?=�	Afmissing argument(s)�	Bglist-ref�	Cglength�	Df'~s parameter must be a positive integer�	Efwidth�	Ffdecimals�	Gg
integer->char�	Hfpadchar�	Ig
string-pad�	Jgcomplex?�	Kfargument not a complex number�	Lg	real-part�	Mg	imag-part�	Nf'one positive integer parameter expected�	Oginteger?�	Pgchar?�	Qf~~c expects a character�	Rgobject->string�	Sg
char->integer�	Tf#\�	Ugnumber->string�	Vfmissing backward argument(s)�	Wf~~p expects a number argument�	Xfies�	Ygcall-with-output-string�	ZgwidthS�	[gmax�	\fillegal modifier in ~~?�	]gchar-whitespace?�	^f&illegal modifier `:@' in ~~* directive�	_gstring-copy�	`gchar-alphabetic?�	agstring-set!�	bg
char-downcase�	cgstring-capitalize�	dg
string-upcase�	egstring-downcase�	ffmissing ~~(�	ggif-then�	hgif-else-then�	ifillegal modifier in ~~[�	jgnum-case�	kf~~; not in ~~[~~] conditional�	lfno parameter allowed in ~~;�	mg	substring�	nfillegal modifier in ~~;�	ofmissing ~~[�	pfno modifier allowed in ~~]�	qfno parameter allowed in ~~]�	rfargument not a positive integer�	sg	rest-args�	tgsublists�	ug
rest-sublists�	vglist�	wfmissing ~~{�	xfillegal modifier�	yfno parameters allowed in ~~}�	zgstring=?�	{f�	|fexpected a list argument�	}g	list-tail�	~f!expected a list of lists argument�	fexpected list arguments��finternal error in ~~}��ftoo much parameters��fdouble `@' modifier��fdouble `:' modifier��fmisplaced modifier��g
char-numeric?��gstring->number��f
misplaced '#'����g
string-append��f SLIB Common LISP format version ��f,  (C) copyright 1992-1994 by Dirk Lutzebaeck��f5  please send bug reports to `lutzeb@cs.tu-berlin.de'��funknown control character `~c'��gstring-prefix?��f#<��fmincol��fcolinc��fminpad��fargument not an integer��f
commawidth��fcolnum��funsupported modifier for ~~t��f'only positive integers can be romanized��glist->string��greverse���M���D��	dC��	2L��	
X��	V��I�����������gassv��	d	d	
	
��fzero��fminus ��f	 thousand��f million��f billion��f	 trillion��f quadrillion��f quintillion��f sextillion��f septillion��f
 octillion��f
 nonillion��f
 decillion��f undecillion��f
 duodecillion��f
 tredecillion��f quattuordecillion��f quindecillion��f
 sexdecillion��f septendecillion��f octodecillion��f novemdecillion��f
 vigintillion��{�����������������������gstring->list��f, ��fone��ftwo��fthree��ffour��ffive��fsix��fseven��feight��fnine��ften��feleven��ftwelve��fthirteen��ffourteen��ffifteen��fsixteen��f	seventeen��feighteen��fnineteen�����������������������f hundred�� ��ftwenty��fthirty��fforty��ffifty��fsixty��fseventy��feighty��fninety����������
��f times ten to the ��f power��f3only integers can be converted to English cardinals��fzeroth��fth��f ��ffirst��fsecond��fthird��ffourth��ffifth��fsixth��fseventh��feighth��fninth��ftenth��feleventh��ftwelfth��f
thirteenth��f
fourteenth��f	fifteenth��f	sixteenth��fseventeenth��f
eighteenth��f
nineteenth�����������������������f	twentieth��f	thirtieth��ffortieth��ffiftieth��fsixtieth��f
seventieth��f	eightieth��f	ninetieth����������
�f-�f2only integers can be converted to English ordinals�gstring-index�f+argument is not a number or a number string�fdigits�ginf?�gnan?�fargument is not a number�fexponent digits�	gmin�
fmindig�gexact->inexact�f(illegal character `~c' in number->string�
f4number is too long to format (enlarge format:fn-max)�f-internal error in format:fn-shiftleft (~d,~d)�f'FORMAT: INTERNAL ERROR IN FORMAT:ERROR!�gnewline�f        destination: �gwrite�f        format string: �f        format args: �f        error args:  �ferror in format�fr~%FORMAT: error with call: (format ~a "~a<===~a" ~
                                  ~{~a ~}===>~{~a ~})~%        �g	list-head�gapply�gmake-string�f~a missing argument~:p�gforce-output�gget-output-string�g
close-port�f;Omitting the destination on a call to format is deprecated.� f5Pass #f as the destination, before the format string.�!f@Omitting the destination port on a call to format is deprecated.�"f:Pass #f as the destination port, before the format string.�#gmodule-set!�$gthe-root-module�C5hx�]4	

54>"GR !"#$%&'()*+,-.hP�]"1�$",445L>"G�"���"���M��NC�gstr
		Kgi		Kgn			Kgk			7gfilenamefice-9/format.scm�
	Z	��		[	��		\	��		[	��		]	��		]	��	&	]	��	1	[	��	7	[	��	F	^	%��	G	^	��	I	^	��
		K	gnamegformat:out-substr�C-h@�]
"*�$"$4L>"G�"���
"���M�NC�gn
		@gch		@gi			0gfilenamefice-9/format.scm�
	c	��		d	��		e	��		d	��		f	��	*	d	��	0	d	��	<	g	��	>	g	��
		@	gnamegformat:out-fill�C/.012-h��]M
L�$MC4L
M
5M
�N
4~5$
NNNL6M	
�$cM
�$WM$"44M455L>"G"4L>"G4
5$
"M�N"""��T�gch
		#gchar
	#�gfilenamefice-9/format.scm�
�	��	�	��	�	��	�	��	�	��	�	!��	�	��	#�	��	&�	��	2�	��	5�	��	6�	#��	8�	��	;�	��	?�	��	B�	��	G�	��	J�	��	O�	��	U	M	��	V	N	
��	Y	N	��	\	N	+��	d	N	��	k	N	
��	x	P	
���	R	���	R	���	T	���	Q	����	�� 	�
gnameganychar-dispatch�C134.56789:;>@AB<CDEFGH/I?=JKLM2-0NOPQRSTUV#WXYABZhH�]MM�$M�N4M>"G"M�NMN4LM�5L6�gp
		Dgfilenamefice-9/format.scm�
�	��		�	��	
�	��	�	)��	�	��	�	��	�	"��	�	��	,�	��	.�	��	2�	��	3�	��	:�	 ��	<�	��	D�	��		DCABZ[hP�]MM�$M�N4M>"G"M�NMN4LM�54LM�56�gp
		Mgfilenamefice-9/format.scm�
�	��		�	��	
�	��	�	)��	�	��	�	��	�	"��	�	��	,�	��	.�	��	2�	��	3�	��	:�	 ��	<�	��	A�	.��	H�	3��	K�	.��	M�	��		MC\Z]^_/.`ab:h��])4545H"u�$C4545$GJ$445>"G"K445>"G"�"���
"����gstr
	�gcap-str	�gnon-first-alpha		�gstr-len		�gi		�gc		0�gfilenamefice-9/format.scm�
%	��	&	��	(	��	&	��	)	��	 *	
��	$)	��	(+	��	0+	
��	3,	��	=,	��	C-	��	D.	��	K.	+��	V.	��	e0	��	f1	��	m1	-��	x1	���)	���)	��	�gnamegstring-capitalize-first�Ccdefghijklmnopqrstuvwxyz{|}~�_�������������fh0)QI]HM*L)�$@M%$44M%5L&>"G"4L&>"GM'�N'M(CM
�$"44LM*5455$(�M#
�$"+4M*L)�$4M$5"	4LM*54	55$(h4
M*L)�$4M$5"	4LM*5M*�N*5A�$c4M	5N4L4M	
5M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6S�$c4M	5N4L4M	
5M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6D�$R4L
M	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M	
>"GL6H�$M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M	�$<M(M�$M�N4M$>"G"M(�N(M(N4LM(�5"4M5M
�$34
5$
�$
4M$5"""M�$345$
�$
4M$5"""4M	�$54	5$
�$
4M$5""	 "	 545$#45�$45""M%$44M%5L&>"G"4L&>"GM'45�N'L6X�$R4L
M	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M	>"GL6O�$R4L
M	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M	>"GL6B�$R4L
M	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M	>"GL6R�$�M(�4L4M	�$L" �$L""�$L "L!M(M�$M�N4M$>"G"M(�N(M(N4LM(�55M>"G"P4L
M	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M�M�>"GL6F�$P4LM	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6E�$P4LM	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6G�$P4LM	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6$�$P4LM	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6I�$�M(M�$M�N4M$>"G"M(�N(M(N4LM(�545$"4M$>"G4LM	45M>"G4L4 5M>"GM%$"44M%4!i55L&>"G"4"iL&>"G4#i
5$
"M'�N'L6C�$bM("J"4M$$5";4%�5$+�
�$45�$""���""���""���$4M�5"8M(M�$M�N4M$>"G"M(�N(M(N4LM(�54&5$"4M$'>"GM	�$S4(5M%$44M%5L&>"G"4L&>"GM'45�N'"1�$�4)5HJ
�$J�K"J	 �$�M%$"44M%4!^55L&>"G"4"^L&>"G4#^
5$
"M'�N'4J	@�5M%$"44M%4!55L&>"G"4"L&>"G4#
5$
"M'�N'"�J	�$�M%$44M%*5L&>"G"4*L&>"GM'	�N'4+J	5M%$44M%5L&>"G"4L&>"GM'45�N'"SM%$"44M%4!55L&>"G"4"L&>"G4#
5$
"M'�N'"SM%$"44M%4!55L&>"G"4"L&>"G4#
5$
"M'�N'L6P�$�M	&"�$A	�M(�N(M(NM(
�$4M$,>"G"4LM(>"G"M(M�$M�N4M$>"G"M(�N(M(N4LM(�54-5$"4M$.>"G�$xM	&"�$WM%$"44M%4!y55L&>"G"4"yL&>"G4#y
5$
"M'�N'""�M	&"�$BM%$44M%/5L&>"G"4/L&>"GM'	�N'"SM%$"44M%4!s55L&>"G"4"sL&>"G4#s
5$
"M'�N'L6~�$�M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$4LM�~>"G"SM%$"44M%4!~55L&>"G"4"~L&>"G4#~
5$
"M'�N'L6%�$�M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$4LM�
>"G"SM%$"44M%4!
55L&>"G"4"
L&>"G4#

5$
"M'�N'
N'L6&�$�M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$8M�
�$(4LM�M'
�$
"�
>"G"
N'"_M'
�$WM%$"44M%4!
55L&>"G"4"
L&>"G4#

5$
"M'�N'"L6_�$�M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$4LM� >"G"SM%$"44M%4! 55L&>"G"4" L&>"G4# 
5$
"M'�N'L6/�$�M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$4LM�	>"G"SM%$"44M%4!	55L&>"G"4"	L&>"G4#	
5$
"M'�N'L6|�$�M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$4LM�>"G"SM%$"44M%4!55L&>"G"4"L&>"G4#
5$
"M'�N'
N'L6T�$4LM	M>"GL6Y�$�M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$M�"	OM	�$b401LLL$LL(O5M%$44M%5L&>"G"4L&>"GM'45�N'"��$d402L'LLL$LL(O5M%$44M%5L&>"G"4L&>"GM'45�N'"p�$4M$3>"G"Q44M(M�$M�N4M$>"G"M(�N(M(N4LM(�5L&5>"G
N'L6?�$"K�$1M	&"�$4M$3>"G"�M	&dM(M�$M�N4M$>"G"M(�N(M(N4LM(�54L54L4L5>"G"�M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M(M�$M�N4M$>"G"M(�N(M(N4LM(�54L>"GL6!�$N
L6
�$�M	&WM%$"44M%4!
55L&>"G"4"
L&>"G4#

5$
"M'�N'"M*L)�$9"465�$"M*L)��$"M	&�M*L)�$4M$5"	4LM*5M*�N*M%$"44M%4!55L&>"G"4"L&>"G4#
5$
"M'�N'"8M*L)�$4M$>"G"4LM*>"GM*�N*M*L)�$4M$5"	4LM*5"���M*L)�$4M$5"	4LM*5"���"L6*�$�M	�$M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$c"TM��$"M	�M(�N(M(NM(
�$4M$,>"G"4LM(>"G�"���
"���"=	�M(�N(M(NM(
�$4M$,>"G"4LM(>"G"��$nM("J"4M$$5";4%�5$+�
�$45�$""���""���""���$M�"
N("+�$4M$7>"G"M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$i"ZM��$"SM(M�$M�N4M$>"G"M(�N(M(N4LM(�>"G�"���
"���"CM(M�$M�N4M$>"G"M(�N(M(N4LM(�>"GL6(�$<M	�$8" �$9"�$:";N%L6)�$#M%$"4M$<>"GN%L6[�$�M�NM�$�M*NNNM	�$="%�$>"�$4M$?5"@NM("J"4M$$5";4%�5$+�
�$45�$""���""���""���$M�"8M(M�$M�N4M$>"G"M(�N(M(N4LM(�5N"L6;�$�M
�$4M$A>"G"M("4M$B>"GM�$nM	&N4CLMM*	�5"6M	&"�$4M$D5"4CLMM*	�54M5NM*N"L6]�$�M
�$4M$E>"G"M�NM	$4M$F>"G"M("4M$G>"GM
�$G4CLMM*	�5M$N"4M5NM=�$&M$4LM�M>"G""�>�$/4L4LM$M��"M�4L55>"G"�@�$�4%M5�$"M
�$4M$H>"G"";4L4LM4M5�$M"	4MM54L55>"+G"$M4M5�$M$"���"""���""L6{�$�M#�N#M#�$�M*NM	�$I" �$J"�$K"LNM("J"4M$$5";4%�5$+�
�$45�$""���""���""���$M�"N"L6}�$6M#
�$4M$M>"G"M#�N#M	�$M$"N"-�$"�$4M$N>"G"M("4M$O>"GM#
�$�4CLMM*M	$	"	�5H4PJQ5$>M(M�$M�N4M$>"G"M(�N(M(N4LM(�5K"ML�$�M(M�$M�N4M$>"G"M(�N(M(N4LM(�5
H�$"4M$R>"G45K"KJ�$"M$	M�"$"(4LJ4S55��"���

"���"YJ�$�M(M�$M�N4M$>"G"M(�N(M(N4LM(�5
H�$"4M$R>"G45K"uJ�$"M$	M�"$"O45�$"4M$T>"G4LJ>"G�"���
"���"cI�$�4L545"M�$"M$	M�"$"(4LJ4S55��"���

"���4L>"G"�K�$�4L545"w�$"M$	M�"$"O45�$"4M$U>"G4LJ>"G�"���
"���4L>"G"4M$V>"G"L6^�$�M(@M%$	WN%"-M#�$" M�$"M(M�$	L)N*""}4M5�$	M�
�"_	�$4M
54M5�"A	�$14M54M
5�$4M	5�""4M$X5�$L6C@�$IM	&"�$4M$Y>"G"M	&"N	"��:�$IM	&"�$4M$Z>"G"M	&"N	"�ڳ'�$]M	$4M$[>"G"4M4)M*L)�$4M$5"	4LM*5M*�N*55NN"��M0�$"�1�$"�2�$"u3�$"g4�$"Y5�$"K6�$"=7�$"/8�$"!9�$"-�$"+�$�M	$4M$[>"G"M*�M*H"o4\5$`M*L)�$4M$>"G"4LM*>"GM*�N*J�KM*L)�$4M$5"	4LM*5"���"#M*L)�$4M$5"	4LM*5"��n4M4]4CLJ555NN"���V�$gM	$4M$[>"G"4MM(M�$M�N4M$>"G"M(�N(M(N4LM(�55NN"��V#�$UM$4M$^>"G"M	$4M$[>"G"4M44L555NN"��,�$8M	$4M$[>"G"M$"4M_5NN"�׷Q�$�M	&N`M%$44M%5L&>"G"4L&>"GM'45�N'"g4!
54ab`cd5M%$44M%5L&>"G"4L&>"GM'45�N'L6M$e4LM*�56L6L6IIgt
	O	vgt
	~�gch
��gkey
�)%gnuma)gkey	e�glocale	�&gargc	�#gpars	��gpar	��gwidth	� gpars	Dgpar	<gdecimals	Dgpars	K�gpar	_�gpadchar	�gstr	�gstr	�gkeyT�gz�~gparams��gch	/�gkey		T�gstr		f	�gc		��gch	
>
�gstr	
�2gt�garg�
�gt	��gt	
1
Hgparams
�Mgparams�&gparams�gparams�gparams��gparams^�gparams[�gwidth�gkey	�gstr	�/gstr	T�gt3Jgfrmt��gargs	��gfrmt^gargs	B[gch��gt	�gch	2>gch	>�gkey+�gparams	8�gi	��gparams	E�gparams	�,gi	4�gkey�"gkeyv�gparams�
gt��g
clause-str�g
clause-str��gkey��gt	.Bgkey�gparams"|gkey� g
iteration-str J#�gkey	 �#�gargs	 �!fgargs-len	 �!fgarg-pos	!!Vgi	!!Vgt	!!0gargs	!�"\gargs-len	!�"\garg-pos	!�"Ogt	!�!�gsublist	""Fgargs	"n"�gargs-len	"w"�garg-pos	"}"�gi	"}"�gt	"�"�gusedup-args	"�"�gargs	##�gargs-len	##�garg-pos	##�gt	##7gsublist	#J#�gusedup-args	#�#�gkey$'$�gb	$i$�gcontinue$�$�gt$�$�gt%%gch%�%�gnum-str-beg&y'5gnum-str-end	&y'5gch	&�&�gstr(^(�gnl(�)gstr	(�)igfilenamefice-9/format.scm�
�	��	�	��	�	��		F	��		G	
��		G	��	�	 ��		G	��	"	G	
��	/	H	
��	3�	 ��	:	H	
��	E	J	��	F	J	��	H	I	��	N�	��	O�	��	]�	��	`�	��	i�	��	m�	'��	o�	��	q�	��	s�	��	z�	��	}�	��	~�	����	����	����	����	����	 ����	����	����	����	'����	����	����	����	���	����	����	����	����	 ����	����	����	����	!����	���	���	���	��	��	��	*���	���	���	)���	���	�� �	"��%�	��5�	��7�	��;�	��<�	��C�	 ��E�	��M	��Y		��b	��c	��m	��n
	��q
	*��~�	����	����	)����	����	����	"����	����	����	����	����	����	 ����	���
	���	���	���	����	����	����	)����	����	����	"����	����	����	���	���	��	�	 ���	��	�� 	��)	��.�	��2�	��5�	)��7�	��8�	��<�	"��A�	��Q�	��S�	��W�	��X�	��_�	 ��a�	��a	��e	$��u�	��y�	��|�	)��~�	���	����	"����	����	����	����	����	����	 ����	���	���	$���	���	$���	
���	���	���	
���	���	���	���	���	���	A���	���	��	$��		
��
	��	��	
��	��!	��%	��&	��*	��,	A��.	��D	��G	$��K	%��R	
��V	��W	��_	
��g	��k	��o	��p	��t	��v	1��x	���	���	$���	���	$���	��� 	%���!	1���!	.��� 	)���"	)��� 	���	F	���	G	
���	G	���	G	
���	H	
��	J	��	J	��	I	��-$	��6	��7&	��@�	��D�	��G�	)��I�	��J�	��N�	"��S�	��c�	��e�	��i�	��j�	��q�	 ��s�	��|&	���'	���	���)	����	����	����	)����	����	����	"����	����	����	����	����	����	 ����	���)	���*	���	���,	����	����	����	)����	���	���	"��	�	���	���	���	�� �	��'�	 ��)�	��2,	��>-	��G	��M/	��N0	��R3	����	����	����	)����	����	����	"����	����	����	����	����	����	 ����	���3	���0	���:	����	����	����	)����	����	����	"����	���	���	��	�	��
�	���	 ���	��;	,��;	9��:	��*<	��3	��4>	��=�	��A�	��D�	)��F�	��G�	��K�	"��P�	��`�	��b�	��f�	��g�	��n�	 ��p�	��w>	���?	���	���A	����	����	����	)����	����	����	"����	����	����	����	����	����	 ����	���A	���B	���	���D	����	����	����	)����	����	����	"���	���	���	���	���	�� �	 ��"�	��)D	��5E	��>	��?G	��H�	��L�	��O�	)��Q�	��R�	��V�	"��[�	��k�	��m�	��q�	��r�	��y�	 ��{�	���G	���H	���	����	����	����	)����	����	����	"����	����	����	����	����	����	 ����	���J	���K	���K	���L	���L	'���L	���M	���M	0��M	��N	��N	'��N	+�� N	��.	M	��/	N	
��2	N	��5	N	+��=	N	��D	N	
��Q	P	
��e	R	��q	R	��y	T	��{	Q	���P	���	���R	!����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���R	���S	!���S	0���S	!����	��	�	��	�	)��	�	��	�	��	
�	"��	�	��	�	��	!�	��	%�	��	&�	��	-�	 ��	/�	��	/R	��	2U	��	<U	��	AV	��	EV	'��	JV	��	TW	��	`Y	(��	fY	��	n	F	��	o	G	
��	r	G	��		G	
��	�	H	
��	�	J	��	�	J	��	�	I	��	�W	��	�[	!��	�[	��	�\	��	�\	��	�]	&��	�]	��	�a	��	�`	��	�	M	��	�	N	
��	�	N	��	�	N	+��	�	N	��	�	N	
��

	P	
��
	R	��
*	R	��
2	T	��
4	Q	��
5e	��
<e	,��
>e	��
>d	��
F	M	��
G	N	
��
J	N	��
M	N	+��
U	N	��
\	N	
��
i	P	
��
}	R	��
�	R	��
�	T	��
�	Q	��
�f	��
�`	��
�	F	��
�	G	
��
�	G	��
�g	,��
�	G	��
�	G	
��
�	H	
��
�g	,��
�	H	
��
�	J	��
�	J	��
�	I	��
�i	��
�h	��
�	F	��
�	G	
��
�	G	��	G	
��	H	
��&	J	��-	J	��/	I	��<	M	��=	N	
��@	N	��C	N	+��K	N	��R	N	
��_	P	
��s	R	��	R	���	T	���	Q	���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
���	R	���	R	���	T	���	Q	���m	���	���o	��o	���	���	���	��!�	��&�	��'�	��+�	 ��0�	��=�	��Y�	��]�	��`�	)��b�	��c�	��g�	"��l�	��|�	��~�	����	����	����	 ����	���q	���r	���r	���s	���s	'���s	���t	���t	���u	���u	���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
��
	R	��
	R	��
%	T	��
'	Q	��
1w	��
Lw	��
R	F	��
S	G	
��
V	G	��
Zx	-��
\	G	��
c	G	
��
p	H	
��
tx	-��
{	H	
��
�	J	��
�	J	��
�	I	��
�	M	��
�	N	
��
�	N	��
�	N	+��
�	N	��
�	N	
��
�	P	
��
�	R	��
�	R	��
�	T	��
�	Q	��
�z	��
�	��
�|	��
��	���	��	�	���	���	���	���	���	���	���	�� �	��$�	��%�	��-�	��1�	��Q|	��R}	��W}	(��^}	��p	M	��q	N	
��t	N	��w	N	+��	N	���	N	
���	P	
���	R	���	R	���	T	���	Q	���	���	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	��
�	��*�	��+�	��0�	(��7�	��I	M	��J	N	
��M	N	��P	N	+��X	N	��_	N	
��l	P	
���	R	���	R	���	T	���	Q	����	����	���	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	��	�	 ���	���	���	���	1���	5���	1��$�	.��+�	��:�	��B�	��F�	��L	M	��M	N	
��P	N	��S	N	+��[	N	��b	N	
��o	P	
���	R	���	R	���	T	���	Q	����	���	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	��
�	���	���	(���	��)	M	��*	N	
��-	N	��0	N	+��8	N	��?	N	
��L	P	
��`	R	��l	R	��t	T	��v	Q	��z�	���	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	(����	��	M	��	N	
��	N	��		N	+��	N	��	N	
��%	P	
��9	R	��E	R	��M	T	��O	Q	��S�	��\	��^�	��f�	��p�	��t�	��v�	��z�	��{�	����	����	����	����	����	����	����	����	����	����	����	����	(����	���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
��	R	��	R	��&	T	��(	Q	��+�	��/�	��8	��9�	��P�	��Y	��[�	$��c�	��m�	��q�	��s�	��w�	��x�	��}�	���	����	����	����	����	����	����	����	����	 ����	$����	����	����	����	���	F	���	G	
���	G	��	G	
��
	H	
��#	J	��*	J	��,	I	��<�	��=�	��T�	��\	F	��]	G	
��`	G	��m	G	
��z	H	
���	J	���	J	���	I	����	����	����	&����	����	����	����	����	)����	����	����	"����	����	����	����	����	����	 ����	���	���	���	��#	��3�	��N�	��O�	��S�	#��X�	��h�	#��l�	��q�	��u�	��x�	)��z�	��{�	���	"����	����	����	����	����	����	 ����	����	����	"����	����	����	$����	����	����	����	)����	����	����	"����	����	����	����	����	���	 ���	���	���	���	���	)���	���	���	"��"�	��2�	��4�	��8�	��9�	��@�	 ��B�	��B�	��E�	��b�	��k	��n�	��r�	��{	���	%����	���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
���	R	���	R	���	T	���	Q	����	����	����	����	%����	 ����	���	.���	 ��	�	���	+���	���	���	���	��#�	 ��%�	��*�	��2�	��7�	!��9�	��>�	��F	M	��G	N	
��J	N	��M	N	+��U	N	��\	N	
��i	P	
��}	R	���	R	���	T	���	Q	����	����	����	����	 ����	����	����	!����	����	����	����	����	 ����	����	����	����	����	����	���	 ���	��
�	���	�� �	��)	��+�	��8�	��@�	��J�	��N�	��P�	��T�	��U�	��Z�	��\�	��`�	��c�	��e�	��i�	��j�	��r�	��v�	����	����	����	$����	����	����	����	����	����	����	����	����	 ����	����	����	$����	����	���	���	���	���	��
�	���	 ���	��#�	��C�	��E�	(��M�	��W�	��[�	��]�	��a�	��b�	��g�	��i�	��m�	��p�	��r�	��v�	��w�	���	����	����	$����	(����	����	����	����	$����	����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	���	��0�	��4�	��9�	$��:�	��>�	��G�	��K�	��N�	)��P�	��Q�	��U�	"��Z�	��j�	��l�	��p�	��q�	��x�	 ��}�	����	$����	����	����	����	)����	����	����	"����	����	����	����	����	����	 ����	����	���	����	��$�	��(�	��1	��7�	��<�	��@�	%��E�	��P�	��T�	��]	��`�	*��b�	��f	��j�	��n	��q	��r	#��t	��v	���	#���	���	&���	���	)���	7���	)���		#���	���	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	��	��	���	��!�	��$�	)��&�	��'�	��+�	"��0�	��@�	��B�	��F�	��G�	��N�	 ��P�	��R
	��Z	��c	��f	��k	��l	��p	%��u	���	���	���	%���	���	���	���	.���	���	 ���	 ���	+���	 ���	 ���	���	 ���	.���	 ���	 ���	+���	 ���	��� 	'�� 	7�� 	'�� 	��!	��"	�� 	��#$	��($	��)$	0��-$	>��2$	0��A%	*��C%	��I&	��J'	��N'	%��S'	��e(	��j)	��n)	%��s)	��~+	���*	���,	'���-	2���,	'���,	���.	���/	���0	)���0	9���0	)���0	���1	���3	���4	���4	0���5	0���4	���1	���7	���8	���8	-���9	1��:	1��;	-��8	��7	��&1	��'=	%��.=	 ��.=	��?>	 ��F=	��G?	��K?	*��P?	��aB	��dC	��iD	6��pD	"��tD	��{F	"���G	���C	���B	���@	���@	:���@	&���@	���@	!���H	���	���J	(���J	���L	���K	���M	���O	���P	#��O	��Q	&��O	��R	)��S	#�� N	��"T	.��*�	��4�	��8�	��:�	��>�	��?�	��D�	��F�	��J�	��M�	��O�	��S�	��T�	��\�	��`�	���T	*���U	.���T	���V	���	���X	���X	���X	.���X	<���X	.���Y	(���Y	���Z	���\	���\	/���Z	���]	$���]	2���]	$�� ^	�� _	�� _	%��  _	�� +`	�� 0`	�� 1b	�� ?c	7�� Hc	)�� Jb	�� Ja	�� Md	�� Sd	5�� Ud	�� Yd	�� ^�	�� b�	�� e�	)�� g�	�� h�	�� l�	"�� q�	�� ��	�� ��	�� ��	�� ��	�� ��	 �� ��	�� �e	�� �f	�� ��	�� ��	�� ��	)�� ��	�� ��	�� ��	"�� ��	�� ��	�� ��	�� ��	�� ��	�� ��	 �� ��	�� �h	�� �j	'�� �j	�� �k	"�� �k	0�� �k	"�� �l	-��!l	��!m	��!r	'��!r	#��!#s	'��!(t	,��!4m	��!;n	1��!@p	2��!Jn	1��!Km	.��!Nq	(��!Vm	��!sf	��!x�	��!|�	��!�	)��!��	��!��	��!��	"��!��	��!��	��!��	��!��	��!��	��!��	 ��!��	��!�v	��!�x	'��!�x	��!�y	"��!�y	0��!�y	"��!�z	-��!�z	��!�{	��!�|	'��!�|	#��!�}	'��!�~	,��"{	��"	/��"	 ��"�	+��"�	"��"�	&��""�	'��"'�	&��"0�	"��"I{	.��"O{	��"if	��"j�	)��"n�	��"q�	-��"w�	��"}�	$��"��	-��"��	)��"��	-��"��	2��"��	$��"��	7��"��	8��"��	7��"��	4��"��	.��"��	$��"��	��"��	��"�f	��"��	)��#�	��#�	-��#�	��#�	$��#�	-��#�	)��#*�	-��#/�	2��#;�	$��#B�	5��#J�	&��#O�	1��#S�	(��#X�	,��#\�	:��#a�	,��#j�	(��#��	4��#��	$��#��	��#��	��#��	!��#��	/��#��	!��#��	��#�	��#��	��#��	��#��	��#��	��$�	��$�	��$�	��$�	��$�	��$!�	$��$'�	��$4�	,��$5�	%��$C�	��$D�	(��$L�	<��$T�	%��$a�	��$b�	)��$i�	%��$l�	)��$v�	%��$}�	)��$��	%��$��	&��$��	4��$��	&��$��	��$��	��$��	��$��	��$�	��$��	��$��	��$��	��$��	%��$��	��$��	4��$��	"��$��	<��$��	F��$��	��$��	��%	��%�	��%#�	��%$�	��%(�	%��%-�	��%=�	4��%A�	"��%C�	9��%I�	C��%K�	��%O�	��%X	��%^�	��%_�	 ��%c�	.��%h�	 ��%u�	 ��%z�	5��%��	��%��	��%��	��%��	 ��%��	��%��	��%��	��%��	!��%��	��%��	5��%��	/��%��	 ��%��	��%��	��%��	��%�	��&^�	��&_�	 ��&c�	.��&h�	 ��&w�	&��&y�	��&��	��&��	��&��	��&��	��&��	��&��	��&��	 ��&��	��&��	��&��	!��&��	��&��	)��&��	��&��	��&��	��&��	��&��	 ��&��	��&��	��&��	��&��	��&��	��&��	��&��	 ��'�	��'�	��'�	��'�	��'�	)��'�	*��'(�	)��'+�	#��'-�	��'/�	��'8�	��'<�	��'E	��'K�	��'L�	 ��'P�	.��'U�	 ��'b�	 ��'k�	��'o�	��'r�	)��'t�	��'u�	��'y�	"��'~�	��'��	��'��	��'��	��'��	��'��	 ��'��	��'��	/��'��	 ��'��	��'��	��'��	��'�	��'��	��'��	)��'��	7��'��	)��'��	��'��	 ��'��	.��'��	 ��'��	 ��'��	5��'��	=��'��	5��'��	/��(�	 ��(�	��(�	��(
�	��(	��(�	��(�	 ��(�	.��(#�	 ��(5�	��(:�	$��(@�	3��(B�	$��(D�	��(G�	��(K�	��(T	��(X�	%��(\�	��(^�	��(f	F	��(g	G	
��(j	G	��(w	G	
��(�	H	
��(�	J	��(�	J	��(�	I	��(��	!��(��	��(��	��(��	��(��	��(��	��(��	��(��	��(�	F	��(�	G	
��(�	G	��(�	G	
��(�	H	
��)	J	��)		J	��)	I	��)�	��)�	!��)�	!��)!�	;��)#�	!��)%�	��))�	���	)-
gnamegtilde-dispatch�Ch0�]"
�$C��"���LM"����gl
		gk		gfilenamefice-9/format.scm�
�	��	�	��	
�	��	�	��	�	$��	�	,��	�	��	�	��			+
gnameg	rest-args�Ch�]M�NMNCgn
		gfilenamefice-9/format.scm�
�	��	�	��		�	��	
�	��		gnamegadd-arg-pos�CCh��,3&M45HHHHHH
HHH
H	HHHHHOO+OOLLL	LQ	LLLL
LLL


L	LLLLLLLLLLLLLQQLQ
45



%$#"! KKKKKK	K
KK K
!K"K#K$K%K !"#$%
N
N4>"GNJC�g
format-string
	�garglist	�grecursive-pos-save		�gformat-string-len		�garg-pos		�garg-len		�gmodifier		�gparams		�gparam-value-found		�gconditional-nest			�g
clause-pos	
	�gclause-default		�gclauses		�gconditional-type	
	�gconditional-arg		�giteration-nest		�g
iteration-pos		�giteration-type		�gmax-iterations		�ganychar-dispatch	��gtilde-dispatch	��g	rest-args	��gadd-arg-pos	��garg-pos	4�garg-len	4�gmodifier	4�gparams	4�gparam-value-found	4�gconditional-nest	4�g
clause-pos	4�gclause-default	4�gclauses	4�gconditional-type	 4�gconditional-arg	!4�giteration-nest	"4�g
iteration-pos	#4�giteration-type	$4�gmax-iterations	%4�&gfilenamefice-9/format.scm�
�	��		�	��	�	��!�	��)�	��.�	����	����	����	����	��	�	gnamegformat:format-work�CRY1h]]L6Ugp
		
gfilenamefice-9/format.scm�

	.��	

	:��		
C��1/CBD���G1h]]L6Ugp
		
gfilenamefice-9/format.scm�

	.��	

	:��		
Ch��]D(�$45"4O5M$45$45""M$44M5L>"G"4L>"GM45�NC45
�$34	
5$
�$
4M
5""
"
�$34	5$
�$
4M
5"""	�$44		5$
�$
4M

5""
"
4	�$ 4		5$"	 "	 5$45"4O5M$45$45""	$"CM$44M	5L>"G"4	L>"GM4	5�N"3
��$4L>"'G" 
�
"���4	5
"���$EM$44M	5L>"G"4	L>"GM4	5�NCC�gpad-left
	�gobj	�gslashify		�gpars		�gres		%	Pgstr		P�gl	��gpar	��gpar	�gpar	*Qgpar	k~gres	��gmincol	��gcolinc	��gminpad	��gpadchar	��gobjstr		��g
objstr-len	
)\gi	)\gfilenamefice-9/format.scm�
"	��	#	��		��		��	
	��	%	��	-	��	.	#��	2	3��	6	#��	:	��	;	��	P$	
��	X	F	��	Y	G	
��	\	G	��	i	G	
��	v	H	
���	J	���	J	���	I	���%	���%	
���	
���	���	���	
���	���	���	���	���	���&	1���	���	
���	���	���	
���	���	���	���	��	��'	1��	��	
��!	��"	��*	
��2	��6	��:	��;	��?	��A(	1��C	��W)	��^	
��b	��c	��k	
��s	��{	���)	���	���	���
	���	���	���	#���	3���	#���	���	���&	���,	���	F	���	G	
���	G	���	G	
��	H	
��	J	��#	J	��%	I	��).	��.0	��10	��5.	��61	��T/	��\.	��].	��m.	��s2	��y	F	��z	G	
��}	G	���	G	
���	H	
���	J	���	J	���	I	��g	�	gnamegformat:out-obj-padded�CO�UC/BD�G�?=<12-0h��]T45$"4M>"G45"#4545
�$34
5$
�$
4M5"""4	�$45$"	 "	 54		�$ 4	5$"	,"	,5	�$54	5$
�$
4M
5""	"	
	$�H&"�$
�$	J�K""
&"�$
�$	"�
�J�K"J�$4LJ�>"G""&"�$c
�$WM$"44M4+55L>"G"4+L>"G4+
5$
"M�N""
&"�$�
�
�$"
4L
>"G"�
�$C
�$WM$"44M4	55L>"G"4	L>"G4	
5$
"M�N"4L


�>"G

�
"��q
"��iM$44M5L>"G"4L>"GM45�NC(O$"���M$44M5L>"G"4L>"GM45�NC"����gmodifier
	�gnumber	�gpars		�gradix		�gnumstr		,�gl		@Ug
numstr-len		@Ugpar		T	{gpar	��gpar	��gpar	�gmincol	Ugpadchar	Ug	commachar		Ug
commawidth	
Ugnumlen	.�gstart	\gns	\gi	
ygfilenamefice-9/format.scm�
5	��	6	��	
6	��	6	"��	6	0��	6	"��	$7	��	,7	��	3:	��	:;	��	@:	��	H	
��	L	��	M	��	T	
��	\	��	`	��	d	��	e	��	i	��	k<	4��	m	���=	���	
���	���	���	
���	���	���=	���?	���	
���	���	���	
���	���@	5���?	���	
���	���	���	
���	���	��	��	��	��A	7��		��<	��,B	��.C	��8D	��FD	��JD	>��ND	��QE	'��SE	��cF	��qF	��wH	;��{H	7���G	4���G	*���G	'���G	���K	���K	���L	���L	+���L	���M	���M	���N	���M	���	M	���	N	
���	N	���	N	+���	N	���	N	
��	P	
��	R	��!	R	��)	T	��+	Q	��;P	��IP	��NQ	!��RR	"��VR	��\Q	��aS	��yT	��~U	���T	���V	���V	���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
���	R	���	R	���	T	���	Q	���X	���X	4���X	��T	$��T	��	F	��	G	
��	G	��'	G	
��4	H	
��J	J	��Q	J	��S	I	��U8	��a8	��k	F	��l	G	
��o	G	��|	G	
���	H	
���	J	���	J	���	I	���	�	gnamegformat:out-num-padded�CCBD��G<=�?hx�]245
�$34
5$
�$
4M5"""�$345$
�$
4M5"""4	�$ 4	5$"	 "	 5�$"�$M	6
�$GL
�$"3"!�$	M�"�"���
M�"���6LM�$	M�"6
�$
")"M�$	M�"�"���"���6gmodifier
	tgpars	tgl			tgpar			Bgpar		W	~gpar	��gcolnum	�tgcolinc	�tgpadch	�tgc	�gcol	�gc	Khgfilenamefice-9/format.scm�
[	��	\	��		\	��		
��		��		��		
��	#	��	'	��	+	��	,	��	0	��	2]	-��	4	��	K	
��	O	��	P	��	W	
��	_	��	c	��	g	��	h	��	l	��	n^	-��	p	���_	���	
���	���	���	
���	���	���_	���]	���`	
���b	���b	
���`	
���e	���e	���g	���i	���g	��j	��
g	��g	��h	��"g	��&d	
��-o	��1n	��6p	��>q	��Bn	��Kt	��Pu	��Tt	��Yv	��bt	��ht	��tm	
��>	t	gnamegformat:tabulate�C�O���h�]9"M645$|�$p"](456�����",
�$��"�����"����"���"���"��s"��o�gn
	�gn	#�gromans		#�gs		#�g	roman-val		=�g	roman-dgt		=�gq		E	qgs		E	qgfilenamefice-9/format.scm�
�	��	
�	��	�	
��	�	��	
�	��	�	��	�	��	�	
��	#�	
��	)�	��	,�	-��	4�	��	7�	!��	;�	!��	=�	��	E�	��	I�	��	M�	��	R�	��	U�	��	a�	��	d�	1��	i�	��	q�	��	v�	����	����	
���}	����	����	
��	�gnamegformat:num->old-roman�C�O��5���	h��]Q"M645$�
�$�"�(456������"{
�$_"	��
"���$;	��$+	���445�
5�"��z"���"����	
�
	"�����
	"��o"��5"��"���gn
	�gn	#�gromans		#�g
boundaries		#�gs		#�g	roman-val		@�g	roman-dgt		@�gbdry		@�gq		J�gr			J�gs	
	J�gfilenamefice-9/format.scm�
�	��	
�	��	�	
��	�	��	
�	��	�	��	�	��	�	
��	#�	
��	)�	��	,�	��	4�	��	7�	!��	;�	!��	@�	��	@�	��	J�	��	N�	��	R�	��	[�	$��	^�	1��	l�	��	l�	��	y�	,��	z�	&��	~�	����	"����	5����	"����	(����	.����	)����	(����	"����	����	����	)����	����	����	!����	!����	����	
���}	����	����	����	
��0	�gnamegformat:num->roman�CO���C��5��B�������h��]Q45$�
�$C
�$4L
�5645"O
�$6���
�$4
�$4	
5"	d�	d�	
�		
�
4
�$-44	4554	
5
�$"5"	�$
�$4	455""144	4	55

�$-4	4
55�"55
	�$4	455""44	54	4L	�554	555""���
"���M6�gn
	�gpower3-word-limit	6�gn		<�gpower3		<�gs		<�gn-before-block		V�g
n-after-block		V�ghundreds	�:g	tens+ones	�7gtens		�4gones	
�1gfilenamefice-9/format.scm�
�	��	�	��	
�	��	�	
��	�	��	�	��	�	
��	 �	��	$�	$��	%�	-��	(�	C��	-�	-��	/�	��	0�	��	4�	��	6�	��	6�	
��	<�	��	@�	��	D�	��	J�	��	P�	+��	V�	*��	V�	��	_�	��	c�	!��	g�	��	h�	!��	n�	&��	r�	"��	s�	&��	w�	4��	y�	&��	~�	:����	����	����	����	����	����	����	����	����	����	
����		����	
����	����	����	����	����	����	����	����	����	����	����	"����	-����	
����	
����	
����		����	����	
����	����	����	����	����	����	����	
����	���	���	��
�	���	���	���	���	���	���	��"�	��$�	��%�	��*�	��,�	
��.�	��?�	&��C�	"��D�	&��G�	'��K�	��O�	'��Q�	&��V�	&��Y�	'��]�	5��_�	'��`�	'��c�	(��j�	)��l�	(��n�	'��o�	'��s�	5��u�	'��w�	&��{�	!����	����	����	����	����	����	
��s	�gnamegformat:num->cardinal�CO�����{B���h��]!45$�
�$C
�$4L
�56	d�	d�
�$#44L	d�5
�$"5"
�$"X	�$
4	5"B	
�	
�
�$
4
5"4454	556M
6�gn
	�ghundreds	9�g	tens+ones		9�gtens	��gones	��gfilenamefice-9/format.scm�

	��		��	
	��		
��		��		��		
��	 	��	$	$��	%	-��	(	B��	-	-��	/	��	4	��	9	��	9	
��	C	��	G	��	H	��	K	��	R	+��	T	��	X	��	\	��	^	)��	d	.��	f	��	l	��	p	��	t	��	v	$��		���	���	���	���	���	$��� 	$���	���!	���!	���"	���
	���"	���#	���$	����	���$	���%	���&	���	���&	���#	���	���	���	
��9	�gnamegformat:num->ordinal�CU/[G1h(]>45454.5$"
$		�"
�	"�$44�	�5�
5"

$4
��
5"
4$"	 54L
>"GM$44M5L>"G"4L>"GM45�NL6$$$�$
L456"��("��$"�� 	gnumber
	#gwidth	#gdigits		#gedigits		#goverch		#gpadch		#gstr			#glen		#gdot		#gdigits			=#gleftpad	
	d�grightpad		�gpadch	��
gfilenamefice-9/format.scm�
+	��	/	��		/	��	0	��	/	��	1	��	/	��	%2	��	23	��	73	$��	=2	��	=/	��	I6	��	J7	 ��	O7	.��	V7	7��	[7	.��	\7	%��	_7	 ��	d6	��	l9	��	m:	!��	t:	&��	z:	!��	6	���<	���<	)���	���<	���6	���=	���	F	���	G	
���	G	���	G	
���	H	
���	J	���	J	���	I	���?	���4	��4	��4	��
4	��5	#��5	��/	#	gnamegformat:out-inf-nan�C#CBDE?G
h�@]C45$"45$"4M
>"G45
�$34
5$
�$
4M
5"""�$345$
�$
4M
5"""	�$4	5$"
"
	�$4	5$""	�$ 4	5$"	 "	 "�$4L>"GMM��$4LMM��>"G"4L>"G$�M�H	M�

$"	�
$	J	�K	"M
�$��$	J	�K	""J	�$ 4LJ	�4
5>"G""L	��6$J	�$
L4
56"���"���L	64L>"G4L>"G$�M�H	M�

$"	�
$	J	�K	"M
�$	J	�K	"J	�$ 4LJ	�4
5>"G"J	�$IJ	MM��

�$$
L4
56L	64L
�>"GL	6L	6L	645$545		$"45	$L6"���"���8gmodifier
	{gnumber	{gpars		{gl		:{gpar		L	sgpar	��gpar	��gpar	�gpar	+gwidth	1{gdigits	1{gscale	1{goverch	1{gpadch	1{gnumlen		�Agt	
��gnumlen		v0gt	
{�g	dot-index	
�)gt		I`gfilenamefice-9/format.scm�
C	��	D	��	
D	��	D	��	D	$��	D	��	"E	
��	&E	��	+E	
��	4G	��	:G	��	@	
��	D	��	E	��	L	
��	T	��	X	��	\	��	]	��	a	��	cH	-��	e	��	|	
���	���	���	
���	���	���	���	���	���I	.���	���	
���	���	���	
���	���	
���	���	���	
���	��	
��	��	��	
�� 	��(	��1H	��EN	
��FT	��_U	��bU	��fU	��gV	��qV	.��rV	$��wV	���W	���X	���Y	���Y	���Z	���Z	���Z	=���Z	/���Z	���[	#���[	���\	���\	���\	8���\	/���\	���]	#���]	���^	���^	���_	���_	'���_	8��_	��b	7��b	.��b	��`	��(`	"��,`	��1a	-��9a	��Hc	��If	��^g	��sh	��vi	��vi	��{j	��{j	���j	=���j	/���j	���k	#���k	���l	���l	���m	#���m	���n	���n	���o	���o	'���o	8���o	���p	���p	���r	*���q	'���q	���s	���s	���t	���u	7��u	 ��
v	 ��x	��x	/��x	��)y	��0z	��7{	��7N	
��8O	��BN	
��CP	��IP	��WP	#��dO	��sQ	���	{	gnamegformat:out-fixed�C#CBDE?Gh8�	][45$"45$"4M>"G45
�$34
5$
�$
4M5"""�$345$
�$
4M5"""	�$44	5$
�$
4M	5"""	�$4	5$""	�$4	5$""	�$ 4	5$"	 "	 	�$4	5$""
	"F$�
�$	��$
��"
"4L>"GMM��$4LMM��>"G"4L>"G$"�M	�HM�

$"
�
$	J�K"M
�$��$	J�K""J$M�$"M"M�KJ�$ 4LJ�4	5>"G"" 4L
J��>"GL	
6$J�$
L456"���"���$$$M�$
L456"���"���"���4L
>"GL	
64L>"G4L>"G$R" M	�HM�$"
�$	J�K"M
�$	J�K"J$M�$"M"M�KJ�$ 4LJ�4	5>"G"J�$tMM�J��$.$
L4564L
>"GL	
64LJ��>"G4L
>"GL	
64L
>"GL	
6$$$M�$
L456"���"���"���4L
>"GL	
645$645$"4
5$L	6"��y"��u�	gmodifier
	5gnumber	5gpars		5gl		:5gpar		L	sgpar	��gpar	��gpar	gpar	-?gpar	Vigpar	��gwidth	�5gdigits	�5gedigits	�5gscale	�5goverch	�5gpadch		�5gexpch	
�5gdigits	�Xgnumlen	6gt	
;Pgnumlen	��gt	��gf	�gt	gfilenamefice-9/format.scm�
	��	�	��	
�	��	�	��	�	$��	�	��	"�	
��	&�	��	+�	
��	4�	��	:�	��	@	
��	D	��	E	��	L	
��	T	��	X	��	\	��	]	��	a	��	c�	-��	e	��	|	
���	���	���	
���	���	���	���	���	����	.���	���	
���	���	���	
���	���	���	���	���	����	/���	���	
���	���	��	
��	�� 	
��$	��%	��-	
��5	��I	
��M	��N	��V	
��^	��f	��t	
��x	��y	���	
���	����	����	
����	����	����	+����	"����	����	%����	"����	����	����	����	����	����	���	0���	&��	�	���	��-�	��6�	$��6�	��;�	 ��;�	��L�	C��M�	5��T�	��W�	)��Y�	��a�	!��e�	��j�	>��k�	5��o�	��r�	)��t�	����	!����	2����	%����	����	����	����	����	����	-����	-����	����	����	?����	6����	����	����	����	(����	����	3���	���	���	�� �	*��$�	��)�	-��1�	��>�	��X�	��Y�	��n�	����	����	"����	����	����	����	A����	3����	����	'����	����	����	����	'����	����	����	0����	#����	����	����	����	����	����	+����	+���	���	���	���	#���	��$�	#��'�	 ��+�	��1�	 ��6�	5��>�	$��?�	&��Y�	&��Z�	"��a�	6��d�	3��i�	"��r�	"����	"����	����	����	����	����	(����	����	+����	����	����	����	
����	����	
����	���	���	#���	��-�	���	5	gnamegformat:out-expon�C#CB[	
h��][45$"45$"4M	>"G45
�$4
5"�$45"	�$
4	5"	�$
4	5"	�$
4	5""�4L
>"G4L>"G$		�"		$		�"
M
�$
4L5�"M$"4M4	55�
"
L6

�$5
�$(4L

>"GL	 6"���"���45$645		$"4	5	$L6"���"����gmodifier
	�gnumber	�gpars		�gl		:�gwidth	��gdigits	��gedigits	��goverch	��gpadch	��gee		��gww	
�gn	�gd	5�gdd	
<�gt		��gfilenamefice-9/format.scm�
�	��	�	��	
�	��	�	��	�	$��	�	��	"�	
��	&�	��	+�	
��	4�	��	:�	��	@�	��	D�	��	E�	!��	U�	��	Y�	��	Z�	"��	k�	��	o�	��	p�	#����	����	����	"����	����	����	!����	����	����	����	����	#����	����	����	!���	���	��
�	���	���	���	���	���	��&�	��+�	-��5�	��5�	��<�	��<�	��L�	��L�	��P�	��T�	��Y�	��^�	��p�	6��u�	����	����	
����	����	
����	����	����	#����	����	��B	�	gnamegformat:out-general�C#CBD
E?=<12-0Gh0�	];45$"45$"4M
>"G45
�$44
5$
�$
4M
5""	"	�$345$
�$
4M
5"""	�$44	5$
�$
4M
	5""
"
	�$ 4	5$"	 "	 "�4L
>"GMM	��$4L
MM	��>"G"4L>"GM�HM�		$"
&"�	$	J�K"$M	�$JM	��K""M	
�$$"J�K"J�$!�$}M$"SM$"4
4M4-55L>"G"4-L>"G4-
5$
"M�N4LJ�45>"G"�
�$�4LJ�45>"GM$+"-	M$"4
4M4	55L>"G"4	L>"G4	
5$
"M�N	"�$�M$+"-	M$"4
4M4	55L>"G"4	L>"G4	
5$
"M�N	4LJ�45>"G"y4LJ�45>"GM$"SM$"4
4M4-55L>"G"4-L>"G4-
5$
"M�N"�M$q
&"�$WM$"4
4M4+55L>"G"4+L>"G4+
5$
"M�N""SM$"4
4M4-55L>"G"4-L>"G4-
5$
"M�N$(M	�$4LM	�0>"G""M	
�$a$"SM$"4
4M4055L>"G"40L>"G40
5$
"M�N"4LM
M	>"GM$"4
4M4.55L>"G"4.L>"G4.
5$
"M�NLMM	M645$445$"45$L6"���"����	gmodifier
	0gnumber	0gpars		0gl		:0gpar		L	tgpar	��gpar	��gpar	gdigits	0gmindig	0gwidth	0gpadch	0gnumlen	}�gt		��gch		�gch		"zgt	�gfilenamefice-9/format.scm�
	��		��	
	��		��		$��		��	"	
��	&	��	+	
��	4	��	:	��	@	
��	D	��	E	��	L	
��	T	��	X	��	\	��	]	��	a	��	c	-��	e	��	~	
���	���	���	
���	���	���	���	���	���	-���	���	
���	���	���	
���	���	���	���	���	���	,���	���	
���	���	��	
��	��	��	��,	��D	��G	��K	��L	��V	.��W	$��\	��i	��}	��}	���	���	���	+���	���	���	���	���	���	���	)���	���	���	���	���	���	���	���	���	���	��	��	M	��	N	
��	N	��	N	+��	N	��%	N	
��2	P	
��F	R	��R	R	��Z	T	��\	Q	��]!	��d!	&��e!	7��p!	���	���#	���#	&���#	7���#	���$	&���$	���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
���	R	���	R	��	T	��	Q	��	��&	&��"&	��*	M	��+	N	
��.	N	��1	N	+��9	N	��@	N	
��M	P	
��a	R	��m	R	��u	T	��w	Q	��{'	���'	&���'	7���'	���)	���)	&���)	7���)	���*	���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
���	R	��		R	��	T	��	Q	��,	��%-	��3-	��9	M	��:	N	
��=	N	��@	N	+��H	N	��O	N	
��\	P	
��p	R	��|	R	���	T	���	Q	���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
���	R	���	R	���	T	���	Q	���/	���/	���/	���0	���0	!��0	��1	��1	�� 1	��*	M	��+	N	
��.	N	��1	N	+��9	N	��@	N	
��M	P	
��a	R	��m	R	��u	T	��w	Q	��|3	���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
���	R	���	R	���	T	���	Q	���5	���	
���	���	
���
	���
	��

	#��	��(	���	0	gnamegformat:out-dollar�CU.�0a]/ha]C45$"4455N
N
N	N
N"��$FM	$"M
N	J$
K
N	N
"$;J
�$UM	
�$IM	J�$ 4LJ>"GM	J�N	
K"4LM	>"GJM	�K
N	""
��

$"M
�
$�4L5�
J$"�M	
�M
�$!4L
M
M	��>"GM
N	"uM	
�
�$4L

�M	�>"G
N	"KJ
�$<J
�$4L
>"G"4LJ>"G
J�N	"M	
�N	
""�J
�$JM	�	��"M	
�$"

J
�$4LJ>"GN	"M	
�$N	"4LM	�4L5�
�>"GJ$4L
>"GN	"O
�$4L
�>"G
N	"+M	�$4LM	�>"GN	"N	
C45K	4J	5$gJ$B4J	05$J$	J�K""K4MM
J	>"GM
�N
"4MMJ	>"GM�N"�4J	-5

$"	4J	+5
$$J$4J	+5N"4J	+5N"�4J	.5$M
N	"m4J	e5$K"Y4J	E5$K"E4J	5$"64J	d5$"%4J	#5$"4M	J	>"G�JJJJ	H	HHH"��K

4
5H	HHH"��/Ygnum
	gfixed?	gscale		gnum-str		gi		4�g
left-zeros		4�g	mantissa?		4�g
all-zeros?		4�gnum-len		4�gc			4�gt	
��gshift	
��gnegexp	
��gt	
	"gfilenamefice-9/format.scm�
C	��	D	��	
D	��	F	��	F	)��	F	��	D	��	$G	��	'H	��	*I	��	-J	��	0K	��	4L	��	9R	
��	=L	��	CS	
��	KT	��	QV	
��	TX	��	WY	��	ZZ	��	d^	
��	ha	��	la	��	pa	-��	ta	��	yb	��	}b	��	~d	���e	1���e	���f	���h	���i	.���i	���j	���k	 ���k	���k	���k	-���k	���l	-���l	$���l	���m	���o	���o	���m	���p	��	q	(��
q	��p	��r	��$s	��&s	��*m	��+t	��/t	2��5t	/��:t	��Eu	��Mw	��Qw	��Vx	#��Zx	��[y	#��q{	%���|	9���|	%���}	3���}	����	����	����	����	 ����	���	����	����	����	����	����	����	����	����	����	(����	@���	%���	"��	�	���	���	��+�	��3�	��7�	��8�	��<�	)��D�	��O�	��X�	��\�	��]�	��e�	)��j�	��v�	��~�	����	����	
����	����	
����	����	����	����	����	+����	����	����	����	&����	����	����	&����	���	��	�	���	��&�	
��,�	��-�	%��7�	��<�	%��F�	��K�	��W�	
��[�	��`�	��l�	
��o�	��t�	����	
����	����	����	
����	����	
����	����	
����	����	����	���L	���L	���P	��L	���		gnamegformat:parse-float�CS.hX]M
�$
C"=M�$M$JC
J�CJ	
�44M55	0��K�JH"���

H"���
gi
		Mgn		Mgfilenamefice-9/format.scm�
�	��	�	
��	
�	��	�	
��	�	��	�	
��	�	��	#�	��	,�	��	-�	#��	0�	2��	:�	#��	<	��	=�	 ��	>�	��	@�	��	C�	��	M�	
��		W
gnameg
format:en-int�CU.�a/h�_]!
N
�N45"Q�$C45K4J5$4MMJ>"GM�N"�JH"���
45H"���Wgen
		|gen-str		|gi			igen-len			igc			igfilenamefice-9/format.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	
��	!�	��	$�	��	.�	
��	/�	��	9�	
��	:�	��	R�	$��	T�	��	[�	��	i�	��	k�	��	|�	��		|gnameg
format:en-set�C
a.h��]
M���$4M>"G"M�N$N"B
�$C4M�$0"4M�5>"G�"���M"���"*M�$C4M0>"G�"���M�"����gleft?
	�gn	�gi		6	xgi	��gfilenamefice-9/format.scm�
�	��	�	
��	�	
��	�	��	�	
��	�	��	�	
��	*�	��	,�	��	2�	��	6�	
��	:�	��	>�	
��	A�	��	L�	��	P�	��	W�	��	`�	7��	b�	��	g�	��	r�	 ��	x�	
����	
����	����	
����	����	&����	
����	����	
��	�	gnamegformat:fn-zfill�Ca.hp]	M�$4MM>"G"";M�$	M�NC4M�4M5>"G�"���"���
gn
		lgi	)	dgfilenamefice-9/format.scm�
�	��	�	
��	�	��	�	
��	�	��	�	
��	)�	��	.�	��	2�	��	7�	��	9�	��	<�	��	E�	#��	F�	+��	S�	��	^�	��	d�	��		lgnamegformat:fn-shiftleft�CaS.Gh�
]HJM�K"�J
�$"
�$@J�$2JN4L>"G4M
1>"GM�NCJNC44M55	0�J�K4M4J	
�$	J	0�"J	
�	0�5>"GJ	
�$
"K�JH"��=J	H"��1gdigits
	�gi	�gc		�gt			)gfilenamefice-9/format.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	&�	��	-�	��	1�	��	5�	��	9�	��	:�	��	L�	��	c�	%��	e�	��	k�	��	n�	��	q�	%��	{�	��	}	��	~�	����	����	����	����	%����	*����	&���	����	*����	-���	����	*����	%����	����	����	����	����	����	��(	�gnamegformat:fn-round�C?12-0h�a]M$c&WM$"44M4+55L>"G"4+L>"G4+
5$
"M�N""SM$"44M4-55L>"G"4-L>"G4-
5$
"M�NM
�$a$WM$"44M4055L>"G"40L>"G40
5$
"M�N""4LM
M>"GM$"44M4.55L>"G"4.L>"G4.
5$
"M�NLMMM6Ygmodifier
	�gadd-leading-zero?	�gfilenamefice-9/format.scm�
�	��		��		��		
��		M	��		N	
��		N	��		N	+��	%	N	��	,	N	
��	9	P	
��	M	R	��	Y	R	��	a	T	��	c	Q	��	q	M	��	r	N	
��	u	N	��	x	N	+���	N	���	N	
���	P	
���	R	���	R	���	T	���	Q	���	
���	���	
���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
��		R	��	R	��	T	��	Q	��(	
��B	M	��C	N	
��F	N	��I	N	+��Q	N	��X	N	
��e	P	
��y	R	���	R	���	T	���	Q	���		��6	�	gnameg
format:fn-out�CG12-0h�]
$45"EM$"44M455L>"G"4L>"G4
5$
"M�NM$+"-M$"44M455L>"G"4L>"G4
5$
"M�N$(M�$4LM�0>"G""LM
M6�gedigits
	
gexpch	
gch			mgch		{�gfilenamefice-9/format.scm�
	��		��			!��		��		M	��		N	
��	!	N	��	$	N	+��	,	N	��	3	N	
��	@	P	
��	T	R	��	`	R	��	h	T	��	j	Q	��	s
	��	{
	���	M	���	N	
���	N	���	N	+���	N	���	N	
���	P	
���	R	���	R	���	T	���	Q	���	���	���	
���	���	���	��
	��$	
	gnameg
format:en-out�Ca0.h`�]4MM0>"G":44M505�$"M�$�NC�"���M"����gi
		Vgt	-	Bgfilenamefice-9/format.scm�
	��		��		��		��	 	��	,	��	-	��	-	��	?	��	F	��	I	��	K	��	P	��	V	��		^
gnamegformat:fn-strip�C0.hP�]"AM�$"44M505�$M�$
CC�"���
"����gi
		Ggt		,gfilenamefice-9/format.scm�
	��		��		��		��		��		��	(	��	)	��	0	��	5	��	9	��	A	��	G	��		N
gnamegformat:fn-zlead�C'1h{-134>"G4>"G4>"G4L>"G4>"G4>"G4L>"G4>"G4>"G4L>"G4>"G4>"G4>"G4>"GMN	
6sgargs
		gfilenamefice-9/format.scm�
	~	��	
�	��	�	��	�	��	�	:��	,�	��	0�	��	5�	��	>�	(��	P�	<��	`�	��	d�	��	i�	��	r�	*����	@����	����	����	����	(����	<����	����	����	����	(����	5����	��6	"��6	��		


gnamegformat:intern-error�Cm/}
h�3-1345LLLLLONM
�$"M�N4L4L
M54LM4L554LM54LM5>"G4	>"G4
>"GMN6+gargs
		�gport	�gfilenamefice-9/format.scm�
	k	��	
	l	��		l	��	!	m	��	$	n	��	)	n	��	0	o	!��	2	o	��	3	p	��	9	q	��	<	t	��	F	u	��	M	v	��	U	u	��	V	w	��	_	x	��	l	p	��	u	y	���	z	���	{	���6	"���6	��		�


gnamegformat:error�CC12h`�-13/45$"4>"G$Z45$	45"B45$"145$4	
>"G45"	45"
Y45Z45$"
HHHHHHHH
HHH
H	HHHOOOOOOOOOOOOO
O
 O! O"!O#"O$#O%$O&%O'&O('O)(O*)O+QQ	! Q	Q	Q	Q	Q	Q	Q	QQ*"'%
(	Q*"'%
)(	Q
+*"	Q 
%'"	Q!	$&%#
Q"Q#Q$	
Q%	
Q&%
Q'
Q(Q)
Q*
Q+K
K
K*
	OK	J	K
K4+�5K
K
KK4+	
5K
KK454,5-,,-�$"-�K4-J>"GJ	.,-�6J$4/>"G"$C405.41>"G.C�gdestination
		`g
format-string		`gformat-args			`gport	�`gt	��g
output-col	�`g
flush-output?	�`gformat:case-conversion	�`g
format:pos	�`gformat:arg-pos	�`gformat:error		�`gformat:error-save	
�`gformat:read-proof	�`g
format:fn-str	�`g
format:fn-len	
�`g
format:fn-dot	�`gformat:fn-pos?	�`g
format:en-str	�`g
format:en-len	�`gformat:en-pos?	�`gformat:out-substr	#`gformat:out-fill	#`gformat:format-work	#`gformat:out-obj-padded	#`gformat:out-num-padded	#`gformat:tabulate	#`gformat:num->old-roman	#`gformat:num->roman	#`gformat:num->cardinal	#`gformat:num->ordinal	#`gformat:out-inf-nan	#`gformat:out-fixed	#`gformat:out-expon	#`gformat:out-general	 #`gformat:out-dollar	!#`gformat:parse-float	"#`g
format:en-int	##`g
format:en-set	$#`gformat:fn-zfill	%#`gformat:fn-shiftleft	&#`gformat:fn-round	'#`g
format:fn-out	(#`g
format:en-out	)#`gformat:fn-strip	*#`gformat:fn-zlead	+#`garg-pos	,�`garg-len	-�`gstr	.I`0gfilenamefice-9/format.scm�
	&
��	
	'	��		'	��		(	��		(	
��	$	(	��	2	+	
��	3	0	��	=	+	
��	>	0	#��	G	1	��	Q	+	
��	X	2	��	b	+	
��	c	3	��	g	4	
��	i	5	
��	n	3	��	w	6	���	8	���	8	���	8	���	.	2���	/	���	*	���	:	���	:	���	*	���:	���?	���8	���9	���8	���;	���:	���<	��<	��=	��>	��>	/��>	��$@	��%A	��@B	��CD	��ID	��LE	��0		`	
	gnamegformat�CRi$ !"h`>*:1345$4>"GL@L@]4>"GL66gdestination
		@g
format-string		@gargs			@gdeprecated-format-string-only
	B	]gfilenamefice-9/format.scm�
K		��	
M	��	M	��	O	��	P	��	Q	��	#O	��	6R	��	@S	��	BK		��	CU	��	GV	
��	IW	
��	NU	��	]X	��		@	
		B	]COi#i$ii6�gm
		,gformat
�^gfilenamefice-9/format.scm�		
��	.	$	��	1	$
���	&
���J	��bI��n\	��t\
��		t
C6ice-9/readline.go000064400000036637150536206120007603 0ustar00GOOF----LE-8-2.0�=]�4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	greadline�	�		gfilenameS�	
fice-9/readline.scm�	gimportsS�	gsession�	
�	
�	gregex�	�	�	gbuffered-input�	�	�	�	gexportsS�	gfilename-completion-function�	gadd-history�	gread-history�	g
write-history�	g
clear-history�	�	gset-current-module�	�	�	 g	provided?�	!gload-extension�	"flibguilereadline-v-18�	#fscm_init_readline�	$g	scm-error�	%g
misc-error�	&f3readline is not provided in this Guile installation�	'gcall-with-deferred-observers�	('�	)'�	*gmodule-export!�	+*�	,*�	-gcurrent-module�	.-�	/-�	0greadline-options�	1greadline-enable�	2greadline-disable�	3012�	4g
readline-set!�	54�	6greadline-options-interface�	7gfor-each�	87�	97�	:gdisplay�	;:�	<:�	=g
string-length�	>gsymbol->string�	?>�	@>�	Agnewline�	BA�	CA�	Dgappend�	ED�	FD�	Ggdelq!�	HG�	IG�	Jgmake-syntax-transformer�	KJ�	LJ�	Mgmacro�	Ng$sc-dispatch�	ON�	PN�	Qgany�	RQQQ�	Sg
syntax-object�	Tg	eval-when�	Ugm-a15bdba661f-3�	Vgtop�	WUV�	Xgribcage�	Ygdummy�	Zgopt�	[gval�	\YZ[�	]gm-a15bdba661f-5�	^]V�	_^WW�	`fl-a15bdba661f-a�	afl-a15bdba661f-b�	bfl-a15bdba661f-c�	c`ab�	dX\_c�	eX�	fgx�	gf�	h^�	ifl-a15bdba661f-7�	ji�	kXghj�	lgshift�	mg	interface�	ngoptions�	ogenable�	pgdisable�	qgoption-set!�	rYmnopq�	sgm-bde397a-1729�	tsV�	uV�	vtuuuuu�	wfl-bde397a-172e�	xfl-bde397a-172f�	yfl-bde397a-1730�	zfl-bde397a-1731�	{fl-bde397a-1732�	|fl-bde397a-1733�	}wxyz{|�	~Xrv}�	t��fl-bde397a-172b�����Xg���Wdekl~e���ghygiene�����ST����gexpand��S�����gload��S�����geval��S����������udek�����S0����SD�������glist��S�����gquote��S�����gsyntax-violation��������f-source expression failed to match any pattern��gmodule-locally-bound?��������gnew-input-prompt��f��gcontinuation-prompt��g
input-port��gcurrent-input-port��goutput-port��gcurrent-output-port��g	read-hook��gmake-line-buffered-input-port��g	%readline��gstring?��geof-object?��gstring=?��g
string-append��f
��gmake-readline-port��gthe-readline-port��ghistory-variable��f
GUILE_HISTORY��ghistory-file��ggetenv��fHOME��f.��f/.guile_history��gmemq��g	add-hook!��g	exit-hook��g
readline-port�������gset-readline-prompt!�����g
file-port?��ginput-port?��gwrong-type-arg��fset-readline-input-port!��fNot a file input port: ~S��gport-closed?��fPort not open: ~S��gset-readline-input-port!�����goutput-port?��fNot a file output port: ~S��fset-readline-output-port!��gset-readline-output-port!�����gset-readline-read-hook!�����gmap��gapropos-internal��f^��gregexp-quote��gapropos-completion-function�����g*readline-completion-function*��g!with-readline-completion-function�����greadline-repl-reader��grepl-reader��g	fluid-ref��gcurrent-reader��g!set-buffered-input-continuation?!��f... ��grun-hook��gbefore-read-hook��gread��gisatty?��gset-current-input-port��gsetter��������gusing-readline?��gactivate-readline�����gstring-match��gmake-completion-function����C5h�(�]4	
54>"G4 i5$"4!i"#>"G4 i5$"4$i%&>"G4),/3hD]456<gfilenamefice-9/readline.scm�
	7
��		
C>"G4),/5hD]456<gfilenamefice-9/readline.scm�
	;
��		
C>"G69<=@Ch��]4>"G4455	�$54	>"G	�$4	>"G""4	>"G4>"G4	>"G4>"G6�gname
	�gvalue	�g
documentation		�glen		 	cgfilenamefice-9/readline.scm�
	>
��	�	ChY]@Qgoption
		gfilenamefice-9/readline.scm�
	>
��		Ch8{)36]�$4>"G6456sgarg
		8gfilenamefice-9/readline.scm�
	>
��			
		8gnamegreadline-options�C0R6Fh0v-1344455>"G6ngflags
			)gfilenamefice-9/readline.scm�
	>
��			)


gnamegreadline-enable�C1R69IhW]4M5NCOgflag
		gfilenamefice-9/readline.scm�
	>
��		Ch@�-1345H4O>"G4J>"G6�gflags
			?greadline-options		?gfilenamefice-9/readline.scm�
	>
��			?


gnamegreadline-disable�C2R4L4MPR�������h(O]CGgdummy
		$gopt		$gval			$		$	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/readline.scm�
	>
��		"g
macro-typegsyntax-rules�gpatternsgoptgvalC54R4�4/5�5$�i"��R4�4/5�5$�i"��R4�4/5�5$�i"4�i5�R4�4/5�5$�i"4�i5�R4�4/5�5$�i"�R�������������h�f]!$"M$4M>"GN"$"445$"4554	5$"14
5$"M$4M
5"NC^g
continuation?
	�gprompt	:�gstr		]�gt		f�gt		{�gfilenamefice-9/readline.scm�
	S	#��		W	)��		W	%��		Z	+��	(	[	+��	2	]	4��	:	]	%��	=	`	1��	@	`	@��	J	`	<��	Q	b	@��	]	`	1��	]	]	%��	`	f	+��	f	f	'��	s	g	+��	y	g	9��	{	g	+��	{	f	'���	i	1���	j	5���	k	D���	j	5���	h	+��	�Ch�]HO6�ghistory-buffer
		gfilenamefice-9/readline.scm�
	Q
��		R	��		S	��		
gnamegmake-readline-port�C�R4�4/5�5$�i"�R4�4/5�5$�i"��R4�4/5�5$�i"%4�i4�i�5$"��5�R���6��������6���	hP�]4455$.445$">"G"6�gr/w
		Ggt	 	3gfilenamefice-9/readline.scm�
�	!��	�	#��		}	��		}	��		}	&��		}	��		}	��		~	��		~	��	 	~	��	8	~	��	K�	#��
		K
C
hp�]$"`4455$.445$">"G"4	5 4
>"GC�gr/w
		Qgt	*	=gfilenamefice-9/readline.scm�
�	��	�	��	�	��		}	��		}	��		}	&��		}	��	 	}	��	!	~	��	$	~	��	*	~	��	B	~	��	R�	$��	X�	��	Y�	��		o
C�R4),/�hD]456<gfilenamefice-9/readline.scm�
	{
��		
C>"G����hX-13HHHJ("J�KJ�KJ("
J�KJ�KJJ&"JJ@gargs
	
	Ugprompt		Uginp			Ugfilenamefice-9/readline.scm�
�
��	�	��	�	��	"�	��	$�	��	'�	��	)�	��	/�	��	6�	��	8�	��	;�	��	=�	��	I�	��	U�	��			U


gnamegreadline�CR4),/�hE]456=gfilenamefice-9/readline.scm�
�
��		
C>"G��h �-13 (C� C�gp
			grest			gfilenamefice-9/readline.scm�
�
��	
�	��	�	��	�	 ��	�	��			
gnamegset-readline-prompt!�C�R4),/�hE]456=gfilenamefice-9/readline.scm�
�
��		
C>"G��$����%��hX3]	45�$"45�$645$	6 
C+gp
		Wgt	
	"gfilenamefice-9/readline.scm�
�
��	�	��	
�	
��	
�		��	�	'��	�	"��	&�	��	*�	��	,�	$��	.�	��	3�	0��	6�		��	7�		��	A�	��	E�	��	G�	 ��	I�	��	N�	(��	Q�		��	U�		��		Wgnamegset-readline-input-port!�C�R4),/�hE]456=gfilenamefice-9/readline.scm�
�
��		
C>"G��$����%���hX4]	45�$"45�$645$	
6 C,gp
		Wgt	
	"gfilenamefice-9/readline.scm�
�
��	�	��	
�	
��	
�		��	�	'��	�	"��	&�	��	*�	��	,�	$��	.�	��	3�	1��	6�		��	7�		��	A�	��	E�	��	G�	 ��	I�	��	N�	(��	Q�		��	U�		��		Wgnamegset-readline-output-port!�C�R4),/�hE]456=gfilenamefice-9/readline.scm�
�
��		
C>"G�h�] Czgh
		gfilenamefice-9/readline.scm�
�
��	�	��		gnamegset-readline-read-hook!�C�R4),/�hE]456=gfilenamefice-9/readline.scm�
�
��		
C>"GH�>����h@]
$"44445555NM(CM�M�NC�gtext
		=gcont?		=gretval		3	=gfilenamefice-9/readline.scm�
�	��	�	��	
�	��	�	��	�	��	�	%��	�	)��	"�	��	$�	��	&�	��	(�	
��	.�	��	3�	��	3�	
��	8�	%��	:�	��		=	CO�R4),/�hE]456=gfilenamefice-9/readline.scm�
�
��		
C>"G4 i5$�i�i"��hO]L CGgfilenamefice-9/readline.scm�
�	��	�	
��		
C�hO]L CGgfilenamefice-9/readline.scm�
�	��	�	
��		
Ch`(]
OO4O>"GV4>X4O>"GCX4O>"GF g	completer
		`gthunk		`g
old-completer			`gfilenamefice-9/readline.scm�
�
��	�	��	�	��		`	gnameg!with-readline-completion-function�g
documentationfGWith @var{completer} as readline completion function, call @var{thunk}.�C�R4),/�hE]456=gfilenamefice-9/readline.scm�
�
��		
C>"G4�4/5�5$�i">�i�������������hO]6Ggfilenamefice-9/readline.scm�
�	+��	�	-��		
Ch0s]4L>"G4L>"G6kgfilenamefice-9/readline.scm�
�	��	�	��	�	��	�	4��	!�	��	/�	��		/
C��h X]4LL>"GL6Pgfilenamefice-9/readline.scm�
�	��	�	��	�	��		
C������hO]6Ggfilenamefice-9/readline.scm�
�	+��	�	-��		
Ch0s]4L>"G4L>"G6kgfilenamefice-9/readline.scm�
�	��	�	��	�	��	�	4��	!�	��	/�	��		/
C���h X]4LL>"GL6Pgfilenamefice-9/readline.scm�
�	��	�	��	�	��		
C��h X]4LL>"GL6Pgfilenamefice-9/readline.scm�
�	��	�	��	�	��		
Ch�P-.,3#	454545&�O	O4
O>"GV4$">X4O>"GCX4
O>"GFL6Hgrepl-prompt
	�greader	�gport		 �gouter-new-input-prompt		3�gouter-continuation-prompt		3�gouter-read-hook		3�gfilenamefice-9/readline.scm�
�	��	�	-��	�	��	 �	��	%�	��	-�	��	3�	��	N�	��	f�	��	}�	����	��	�CO�R��������	h8�]4455$#445>"G 456C�gfilenamefice-9/readline.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	 ��	�	��	)�	��	3�	��		5
gnamegactivate-readline�C�R4),/�hE]456=gfilenamefice-9/readline.scm�
�
��		
C>"G����hX']
$-M(CM�M�N4M5$C"���LN4455N"���gtext
		Tg	continue?		Tgstr			5gfilenamefice-9/readline.scm�
�	��	�	��		��		+��		 ��		-��		"��		&��	'	"��	5	&��	9	��	:
	$��	>
	3��	?
	7��	G
	$��	I		��	T	��		T	gnameg	completer�Ch8])HHOQKKCgstrings
		5gstrs		5gregexp			5g	completer			5gstrs		 	2gregexp		 	2gfilenamefice-9/readline.scm�
�
��	�	��	�	��		5gnamegmake-completion-function�g
documentationf
Construct and return a completion function for a list of strings.
The returned function is suitable for passing to
@code{with-readline-completion-function.  The argument @var{strings}
should be a list of strings, where each string is one of the possible
completions.�C�R),/�hE]456=gfilenamefice-9/readline.scm�
�
��		
C6�gm
		,gt
��gcompletions
�gboot-9-repl-reader
�"�gfilenamefice-9/readline.scm�		
��	-	)		��	3	)	��	5	)		��	9	)
��	>	*	��	D	*	��	F	*	,��	K	*	��	T	,		��	Z	,	��	\	,		��	`	,
��	e	-	��	k	-	��	n	/	��	o	0	��	p	1	��	u	-	��	~	7
���	;
��	>
���	K
���	K	���	K
���	L
���	L	!���	L
���	M
��	M	��	M
��
	N
��%	N	��.	N
��/	O
��C	Q
��D	u
��`	w
��y	w	��|	w
��}	x
���	y	���	y	���	y	���	y	���	y	���	y	%���	y	*���	y	���	x
��^	{
��S�
����
����
���
��5�
����	����	��"�
����	����	����	����
����	��#�
����
����	��"��
��$�
��(w�
��G	(�
C6ice-9/gap-buffer.go000064400000024670150536206120010030 0ustar00GOOF----LE-8-2.0�)]V4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	g
gap-buffer�	�		gfilenameS�	
fice-9/gap-buffer.scm�	gexportsS�	ggb?�	
gmake-gap-buffer�	ggb-point�	ggb-point-min�	ggb-point-max�	ggb-insert-string!�	ggb-insert-char!�	ggb-delete-char!�	g	gb-erase!�	ggb-goto-char�	g
gb->string�	g
gb-filter!�	g	gb->lines�	ggb-filter-lines!�	gmake-gap-buffer-port�	
�	g	autoloadsS�	gsrfi�	gsrfi-13�	�	 gstring-join�	! �	"!�	#gset-current-module�	$#�	%#�	&gmake-record-type�	'gs�	(gall-sz�	)ggap-ofs�	*gaft-ofs�	+'()*�	,grecord-predicate�	-grecord-accessor�	.gs:�	/gall-sz:�	0ggap-ofs:�	1gaft-ofs:�	2grecord-modifier�	3gs!�	4gall-sz!�	5ggap-ofs!�	6gaft-ofs!�	7gdefault-initial-allocation�	8gdefault-chunk-size�	9gdefault-realloc-threshold�	:ground-up�	;grecord-constructor�	<gnew�	=gmake-string�	>gsubstring-move!�	?grealloc�	@gport?�	Ageof-object?�	Bglist->string�	Cgreverse�	Dg	read-char�	Egstring?�	Fg
string-length�	Ggerror�	Hf
bad init type�	Iginsert-prep�	Jgstring-set!�	Kgmax�	Lgmin�	Mg	point++n!�	Ng	point+-n!�	Og
string-append�	Pg	substring�	Qgstring-index�	Rfnot a gap-buffer:�	Sgmake-soft-port�	Tg
string-ref�	Ufrw�C5h� �]4	
"54%>"G4&i+5R4,ii5R4-ii'5.R4-ii(5/R4-ii)50R4-ii*51R42ii'53R42ii(54R42ii)55R42ii*56R�7R�8R	 9R8h�]���Cgn
		gfilenamefice-9/gap-buffer.scm�
�
��		�	��	
�	��	�	��		gnameground-up�C:R4;ii5<R./01=>346
h��]:4545�454545�4

>"G4>"G4>"G4>"G	6�ggb
	�ginc	�gold-s			�gall-sz		�gnew-sz		�ggap-ofs		"�gaft-ofs		+�gnew-s		4�gnew-aft-ofs		;�	gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	"�	��	%�	��	+�	��	.�	��	4�	��	;�	��	;�	��	>�	��	V�	��	p�	����	����	��	�	gnamegrealloc�C?R<3=7456@ABC:>.DEFGHhQ-1345(X445>"G4>"G4
>"G4>"G"��45$�"�4	5$�4
45545445>"G4>"G4

45
>"G4>"G4>"9G"245��"��I45
"��6"�45$�4545445>"G4>"G4

45
>"G4>"G4>"G"4>"GCIginit
		ggb	gv		q�gc	�9gacc	�9glen	�9gstring	� galloc	�glen	b�galloc	k�
gfilenamefice-9/gap-buffer.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	'�	��	0�	��	D�	��	W�	��	q�	��	q�	��	t�	��	~�	����	����	!����	����	'����	5����	'����	!����	+����	����	 ����	'����	 ����	 ����	 ����	>����	 ����	 ���	 ��!�	0��,�	.��/�	;��9�	!��9�	��:�	0��A�	6��L�	��Q�	��[�	��\�	!��b�	��e�	+��k�	��n�	 ��s�	'��~�	 ����	 ����	 ����	>����	 ����	 ����	 ����	����	%����	��;		


gnamegmake-gap-buffer�C
R0h]45�Cwggb
		gfilenamefice-9/gap-buffer.scm�
�
��	�	��	
�	��		gnameggb-point�CRhq]Ciggb
		gfilenamefice-9/gap-buffer.scm�
�
��		gnameggb-point-min�CR/10h �]454545���C�ggb
		gfilenamefice-9/gap-buffer.scm�
�
��	�		��	
�	��	�	'��	�	��	�	��	�	��		gnameggb-point-max�CR019?:hP<]4545���$44
�5>"G"C4ggb
		Iglen		Iggap-ofs				Igaft-ofs			Igslack			Igfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	#�		��	'�	��	(�		��	-�	��	0�	��	5�	��	:�		��		I	gnameginsert-prep�CIRFI>.5h@]45454
45>"G�6�ggb
		?gstring		?glen				?ggap-ofs			?gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	"��	,�	��	=�	��	?�	��		?	gnameggb-insert-string!�CRIJ.5h0�]
45445>"G�6�ggb
		0gchar		0ggap-ofs		
	0gfilenamefice-9/gap-buffer.scm�
�
��	�	��	
�	��	
�	��	�	��	�	��	.�	��	0�	��			0	gnameggb-insert-char!�CR5K06L/1hP ]
�$4
45�56
�$44545�56
�$CCggb
		Pgcount		Pgfilenamefice-9/gap-buffer.scm�
�
��	�		��	
�	��	�	��	�	 ��	�	��	�	��	 �		��	$�		��	(�	��	-�	��	0�	��	7�	+��	@�	(��	B�	��	D�		��	H�		��	L�	��		P	gnameggb-delete-char!�CR56/h(�]4
>"G456�ggb
		"gfilenamefice-9/gap-buffer.scm�
�
��	�	��	�	��	"�	��		"gnameg	gb-erase!�CR>56hH�]4�>"G4�>"G�6�ggb
		Agn		Ags			Aggap-ofs			Agaft-ofs			Agfilenamefice-9/gap-buffer.scm�
�
��	�	��	�	��	�	��	 �	��	)�	��	.�	��	?�	��	A�	��
		A	gnameg	point++n!�CMR>56hH]4��>"G4�>"G�6�ggb
		Dgn		Dgs			Dggap-ofs			Dgaft-ofs			Dgfilenamefice-9/gap-buffer.scm�
�
��	�	��	�	��	�	-��	�	��	#�	��	,�	��	1�	��	B�	��	D�	��		D	gnameg	point+-n!�CNRNM.01	h��]*45�$45"$"�$
45"$"Y45�
�$"74
�$"454545>"GC�ggb
	�g	new-point	�gpmax			�gt		 �gt		C�gdelta		Y�gt		_�gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	
��	�	��	�	 ��	 �	��	1�	
��	5�	��	6�	 ��	C�	��	R�	"��	Y�	��	Y�	��	_�	��	_�	
��	l�	��	p�	��	t�	����	����	 ����	.����	��	�	gnameggb-goto-char�CR.OP01h0�]	454
45544556�ggb
		,gs			,gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	"��	�	��	�	��	"�	 ��	*�	��	,�	��		,gnameg
gb->string�CRh0�]
44554>"G6�ggb
		*gstring-proc		*gnew			*gfilenamefice-9/gap-buffer.scm�
�
��	�	
��	�	��	�	
��	�	��	�	��	*�	��		*	gnameg
gb-filter!�CRQPChX8]!45"<4
5$�45�"���45�6
"���0ggb
		Ugstr			Ugstart			Kgacc			Kgt			Kgfilenamefice-9/gap-buffer.scm�
�
��	�	
��		�	��	�	��	�	
��	�	��	%�	��	&�	%��	3�	��	;�	��	>�	!��	I�	��	K�	��	K�	��	M�	��	U�	��		Ugnameg	gb->lines�CR h8�]
44554>"G4
56�ggb
		1g
lines-proc		1g	new-lines			1gfilenamefice-9/gap-buffer.scm�

��		��		��		��		��		��	'	��	1	��			1	gnameggb-filter-lines!�CRGRSha]L6Ygc
		
gfilenamefice-9/gap-buffer.scm�

	��	

	��		
Cha]L6Ygs
		
gfilenamefice-9/gap-buffer.scm�
	��	
	��		
C01/.TJ56	h�)] 4L54L54L5�$C4L5454>"G4L�>"G4L�>"GC!ggap-ofs
		{gaft-ofs		{gs		+	{gc		6	{gfilenamefice-9/gap-buffer.scm�

	��	
	��	
	��	
	��		 ��		��	"	��	%	��	+	��	.	��	6	��	9	��	O	��	V	$��	[	��	d	��	k	$��	p	��		{
CU	hP�]	45$"4>"GOOO6�ggb
		Lgt			,gfilenamefice-9/gap-buffer.scm�

��		��			��		��		
��	!	��	H		��	J	��	L	��
		Lgnamegmake-gap-buffer-port�CRC~gm
		,gfilenamefice-9/gap-buffer.scm�		Y
��	-	l	��	3	l	��	5	m	��	7	l	��	:	k
��	;	s	��	H	s
��	I	u	��	S	u	-��	U	u	��	X	u
��	Y	v	��	c	v	-��	e	v	��	h	v
��	i	w	��	s	w	-��	u	w	��	x	w
��	y	x	���	x	-���	x	���	x
���	z	���	z	-���	z	���	z
���	{	���	{	-���	{	���	{
���	|	���	|	-���	|	���	|
���	}	���	}	-���	}	���	}
����
����
����
����
����	����	+����	����
���
��	��
��
R�
��
��
����
��
g�
����
����
��{�
��D�
����
��
�
����
����
����
��k�
���
�� �
��C	 �
C6ice-9/occam-channel.go000064400000071021150536206120010472 0ustar00GOOF----LE-8-2.0�q]�4h�-]gguile�	�	gdefine-module*�	�	�	gice-9�	g
occam-channel�	�		gfilenameS�	
fice-9/occam-channel.scm�	gimportsS�	goop�	
ggoops�	
�	�	gthreads�	�	�	�	gexportsS�	galt�	goc:lock�	g	oc:unlock�	goc:consequence�	goc:immediate-dispatch�	goc:late-dispatch�	goc:first-channel�	goc:set-handshake-channel�	goc:unset-handshake-channel�	gmake-channel�	g?�	 g!�	!g
make-timer�	"ghandshake-channel�	#gmutex�	$gsender-waiting?�	%gimmediate-receive�	&glate-receive�	' !"#$%&�	(gset-current-module�	)(�	*(�	+gno-data�	,+�	-greceiver-waiting�	.-�	/gtoplevel-define!�	0/�	1/�	2g	<channel>�	3g
make-class�	4gnameS�	5gdefined?�	65�	75�	8gis-a?�	98�	:8�	;g<class>�	<;�	=;�	>gmemq�	?g<object>�	@?�	A?�	Bgclass-precedence-list�	CB�	DB�	Egclass-redefinition�	FE�	GE�	Hg
<accessor>�	IH�	JH�	Kgensure-accessor�	LK�	MK�	Ngdata�	Ogcv�	Pg<data-channel>�	QgaccessorS�	Rg
init-valueS�	Sg	init-formS�	Tgmake-condition-variable�	UT�	Vg
init-thunkS�	Wg
make-mutex�	XW�	Yg
initialize�	Zgmake�	[Z�	\Z�	]g	<generic>�	^]�	_]�	`gadd-method!�	a`�	b`�	cg<method>�	dc�	ec�	fgspecializersS�	gg<top>�	hg�	ig�	jgformalsS�	kgch�	lginitargs�	mkl�	ngbodyS�	ognext-method�	po�	qgset!�	r"k�	sqrk�	tps�	ugmake-procedureS�	vgsetter�	wv�	xv�	yg	procedureS�	zZP�	{z�	|k�	}gnot�	~geq?�	Nk��~+��}������greceiver-waiting?��~-�����gsignal-condition-variable��Ok������glet��gres��������q+���������������g
lock-mutex��#k������gcond���k��gunlock-mutex������g	scm-error��gquote��g
misc-error���������f*another process is already receiving on ~A��glist���k��������������$k��%k������gelse��q-��gwait-condition-variable�������&k�������������������������������g
*unspecified*�� k������gx��k���#r������q���Or���������������� ��f(another process is already sending on ~A������������������������������gport��g<port-channel>��ginit-keywordS��gportS��g<port>�����Z��������gread���k���������gwrite���������g<timer-channel>��g	the-timer��gtimer-cv��gtimer-mutex��g
timeofday->us��g
us->timeofday��ggettimeofday������������g	<integer>��gt��k��������������������������gmake-syntax-transformer��������gmacro��g$sc-dispatch��������gany��gfree-id��g
syntax-object��gtop�����gribcage��������gm-17d5859fdf6989b4-ca���������fl-17d5859fdf6989b4-cc����������������ghygiene������������������geach-any�������gdummy�gform�k�����fl-17d5859fdf6989b4-cf�fl-17d5859fdf6989b4-d0�fl-17d5859fdf6989b4-d1�	�
�	��
�������
�#�������gexp�k������fl-17d5859fdf6989b4-d6�fl-17d5859fdf6989b4-d7�fl-17d5859fdf6989b4-d8�fl-17d5859fdf6989b4-d9�������������#���������fl-17d5859fdf6989b4-df� fl-17d5859fdf6989b4-e0�!fl-17d5859fdf6989b4-e1�" !�#�"�$�#���%�$��&gsyntax-violation�'&�(&�)f-source expression failed to match any pattern�*gm-17d5859fdf6989b4-e5�+*��,+�-fl-17d5859fdf6989b4-e7�.-�/��,.�0��/�1�0��2�1�32��43���5�4�6+���7fl-17d5859fdf6989b4-ea�8fl-17d5859fdf6989b4-eb�9fl-17d5859fdf6989b4-ec�:789�;�6:�<�;�/�=��<��>�#<��?�4��@�?�A+����Bfl-17d5859fdf6989b4-f1�Cfl-17d5859fdf6989b4-f2�Dfl-17d5859fdf6989b4-f3�Efl-17d5859fdf6989b4-f4�FBCDE�G�AF�H�G�/�I��H��J�#H��Kfl-17d5859fdf6989b4-fa�Lfl-17d5859fdf6989b4-fb�Mfl-17d5859fdf6989b4-fc�NKLM�O�6N�P�O�/�Q�P��R���Sg=>�Tgm-17d5859fdf6989b4-100�UT��VU�Wfl-17d5859fdf6989b4-102�XW�Y��VX�Z��Y�[�SZ��\�[�]��^]��_�^��`��\_�aglambda�bge1�cge2�dNa�bc�eU������ffl-17d5859fdf6989b4-10a�gfl-17d5859fdf6989b4-10b�hfl-17d5859fdf6989b4-10c�ifl-17d5859fdf6989b4-10d�jfl-17d5859fdf6989b4-10e�kfl-17d5859fdf6989b4-10f�lfghijk�m�del�n�m�Y�o��n��p���q�p��rgbegin�sNbc�tU����ufl-17d5859fdf6989b4-118�vfl-17d5859fdf6989b4-119�wfl-17d5859fdf6989b4-11a�xfl-17d5859fdf6989b4-11b�yuvwx�z�sty�{�z�Y�|�r{��}gm-17d5859fdf6989b4-121�~}��~��fl-17d5859fdf6989b4-123�������������������������������������kb��~����fl-17d5859fdf6989b4-126��fl-17d5859fdf6989b4-127��fl-17d5859fdf6989b4-128��������������������$����������%�������������gand��kb��~�����fl-17d5859fdf6989b4-12e��fl-17d5859fdf6989b4-12f��fl-17d5859fdf6989b4-130��fl-17d5859fdf6989b4-131���������������������������$����������%����gm-17d5859fdf6989b4-13f���������fl-17d5859fdf6989b4-141�������������������������������������������fl-17d5859fdf6989b4-144��fl-17d5859fdf6989b4-145��fl-17d5859fdf6989b4-146��������������������$����������&�������������������fl-17d5859fdf6989b4-14c��fl-17d5859fdf6989b4-14d��fl-17d5859fdf6989b4-14e��fl-17d5859fdf6989b4-14f���������������������������$����������&����b��fl-17d5859fdf6989b4-156��fl-17d5859fdf6989b4-157��fl-17d5859fdf6989b4-158���������������������������gm-17d5859fdf6989b4-15c���������fl-17d5859fdf6989b4-15e����������������������������������������܌���ی��������ߌ��g
first-channel��gc1��gc2�����������fl-17d5859fdf6989b4-175��fl-17d5859fdf6989b4-176��fl-17d5859fdf6989b4-177�������������������������gm-17d5859fdf6989b4-17c���������fl-17d5859fdf6989b4-17e���������������������������������������g	handshake��kb���������fl-17d5859fdf6989b4-181��fl-17d5859fdf6989b4-182��fl-17d5859fdf6989b4-183��fl-17d5859fdf6989b4-184���������������q���"���������kb��������	fl-17d5859fdf6989b4-18a�
fl-17d5859fdf6989b4-18b�fl-17d5859fdf6989b4-18c�fl-17d5859fdf6989b4-18d�
fl-17d5859fdf6989b4-18e�	

������������q���"�����b��fl-17d5859fdf6989b4-195�fl-17d5859fdf6989b4-196�fl-17d5859fdf6989b4-197�fl-17d5859fdf6989b4-198������������gm-17d5859fdf6989b4-19d��� �!fl-17d5859fdf6989b4-19f�"!�#�� "�$��#�%�$��&�%�'&��('���)�(�*���+fl-17d5859fdf6989b4-1a2�,fl-17d5859fdf6989b4-1a3�-fl-17d5859fdf6989b4-1a4�.+,-�/��*.�0�/�#�1�q0��2�"0��3�(��4�3�5����6fl-17d5859fdf6989b4-1a9�7fl-17d5859fdf6989b4-1aa�8fl-17d5859fdf6989b4-1ab�9fl-17d5859fdf6989b4-1ac�:6789�;��5:�<�;�#�=��<��>�q<��?�"<��@fl-17d5859fdf6989b4-1b2�Afl-17d5859fdf6989b4-1b3�Bfl-17d5859fdf6989b4-1b4�C@AB�D��*C�E�D�#�F�E��Gg_�HG�I��Jfl-17d5859fdf6989b4-1bd�KJ�L��IK�Mgelse-clause?�NM�O��Pfl-17d5859fdf6989b4-1ba�QP�R�NOQ�Sfl-17d5859fdf6989b4-1b9�TS�U��IT�V��LRU�W��V��X�W�YX��ZGY�[G��\���]���^fl-17d5859fdf6989b4-1c6�_fl-17d5859fdf6989b4-1c7�`^_�a�\]`�b�a�LRU�c�Gb��dfl-17d5859fdf6989b4-1d9�efl-17d5859fdf6989b4-1da�fde�g�\]f�h�gRU�i�rh��j�h��kgappend�lk�mk�ngmap�on�pn�q��h��r��h��s��h��t�h��u��h��v�kh��w�h��x�h��yv�z��h��{�Oh��|{v�}�#h��~}v�z|~���h����h����h���r��fl-17d5859fdf6989b4-1d1��fl-17d5859fdf6989b4-1d2�������\]�����RU���r���������������������������������������C5h?�]4	
'54*>"G,+R.-R"'41243i425>"tG"m4725$^4:2i=5$G4>iA4D2i55$)4G2i43i425>"G""��|""��t""��l47"5�$"4:"iJ5�$141"4M47"5$"i""5>"G"47N5�$"4:NiJ5�$141N4M47N5$Ni"N5>"G"47O5�$"4:OiJ5�$141O4M47O5$Oi"O5>"G"47#5�$"4:#iJ5�$141#4M47#5$#i"#5>"G""241P43i2i"Q"iNQNiR+iOQOiSUVThK]6Cgfilenamefice-9/occam-channel.scm�		-	 ��		
C#Q#iSXVWhK]6Cgfilenamefice-9/occam-channel.scm�		.	&��		
C4P5>"�G"|47P5$m4:Pi=5$V4>iA4DPi55$84GPi43i2i"Q"iNQNiR+iOQOiSUVThK]6Cgfilenamefice-9/occam-channel.scm�		-	 ��		
C#Q#iSXVWhK]6Cgfilenamefice-9/occam-channel.scm�		.	&��		
C4P5>"G""��b""��Z""��R47Y5�$"Yi�$!41Y4\_4Y5>"G"4bYi4\efPiijmntux"h(x]4L>"G456pgch
		#ginitargs		#gfilenamefice-9/occam-channel.scm�
	0
��	#	2	��		#	Chh]OC`greal-next-method
		
gfilenamefice-9/occam-channel.scm�
	0
��		
Cy5>"G475�$"i�$!414\_45>"G"4bi4\efjn{uyZPhQ]6Igfilenamefice-9/occam-channel.scm�
	4
��		5	��		
C5>"G47$5�$"$i�$!41$4\_4$5>"G"4b$i4\efPij|n�uyN+hr]45��Cjgch
		gfilenamefice-9/occam-channel.scm�
	7
��		8	��		8	��	
	8	��		C5>"G47�5�$"�i�$!41�4\_4�5>"G"4b�i4\efPij|n�uyN-hj]45�Cbgch
		
gfilenamefice-9/occam-channel.scm�
	:
��		;	��		;	��		
C5>"G47%5�$"%i�$!41%4\_4%5>"G"4b%i4\efPij|n�uy�ONx+h@�]	445>"G45445>"GC�gch
		>gres	 	>gfilenamefice-9/occam-channel.scm�
	=
��		>	��		>	��		>	��		?	
��	 	?	��	#	@	��		>C5>"G47&5�$"&i�$!41&4\_4&5>"G"4b&i4\efPij|n�uyNx+h(�]	45445>"GCzgch
		'gres			'gfilenamefice-9/occam-channel.scm�
	C
��		D	
��			D	��		E	��		'C5>"G475�$"i�$!414\_45>"G"4bi4\efPij|n�uy�#�����$%xN-�O&h�O]	445>"G45$,445>"G45"T4	5$4
5">445
>"G44545>"G45445>"GCGgch
	�gres��gfilenamefice-9/occam-channel.scm�
	H
��		I	��		I	��		I	��		J	��	$	J	
��	%	K	��	(	K	"��	3	K	��	<	L	��	@	L	��	B	L	+��	D	M	��	I	N	��	L	L	��	Q	O	��	[	J	
��	\	P	��	g	R	���	S	���	S	-���	S	5���	S	���	T	���	J	���	U	���	U	���	U	��	�C5>"G47 5�$" i�$!41 4\_4 5>"G"4b i4\efPij|n�uy hb]6Zgch
			gfilenamefice-9/occam-channel.scm�
	X
��			Y	��			C5>"G47 5�$" i�$!41 4\_4 5>"G"4b i4\efPigij�n�uy�#"�xN�O$��� ��h��]44455>"G45$9445>"G44455>"G"~4	5$<4
4455>"G4
>"G"7445>"G44545>"G
44556�gch
	�gx	�gfilenamefice-9/occam-channel.scm�
	[
��		\	��		\	��			\	��		\	��		\	��		]		��	)	]	��	*	^		��	C	_		��	F	_	$��	I	_	(��	Q	_	$��	V	_		��	c	`		��	m	]	��	n	a		��	q	a	��	t	a	��	|	a	���	a		���	b		���	b	���	b	 ���	b	#���	c	���	b		���	e		���	f		���	f	"���	f	*���	f		���	g	���	g	���	g	���	g	��%	�	C5>"G47�5�$"4:�iJ5�$141�4M47�5$�i"�5>"G"47�5$�4:�i=5$�4>iA4D�i55$<4G�i43i2i�Q�i��4�5>"G"641�43i2i�Q�i��4�5>"G"641�43i2i�Q�i��4�5>"G"641�43i2i�Q�i��4�5>"G475�$"i�$!414\_45>"G"4bi4\ef�ij�n�uyZ��hd]6\gport
		gfilenamefice-9/occam-channel.scm�
	n
��		o	��		C5>"G475�$"i�$!414\_45>"G"4bi4\ef�ij|n�uy��hj]456bgch
		
gfilenamefice-9/occam-channel.scm�
	q
��		r	��	
	r	��		
C5>"G47 5�$" i�$!41 4\_4 5>"G"4b i4\ef�ij|n�uy��hj]456bgch
		
gfilenamefice-9/occam-channel.scm�
	t
��		u		��	
	u	��		
C5>"G"+41�43i2i4�5>"xG"q47�5$b4:�i=5$K4>iA4D�i55$-4G�i43i2i4�5>"G""��t""��l""��d4Zi�i5�R4Ti5�R4Wi5�R�h`]CXgfilenamefice-9/occam-channel.scm�
	~
��		
gnameg
make-timer�C!Rh�]B@����C�gt
		gfilenamefice-9/occam-channel.scm�
�
��	�	��	�	��	�	��	�	��		gnameg
timeofday->us�C�Rh �]B@�B@��C�gn
		gfilenamefice-9/occam-channel.scm�
�
��	�	��	�	��	�	��		gnameg
us->timeofday�C�R475�$"i�$!414\_45>"G"4bi4\ef�ij|n�uy��hm]456egch
		gfilenamefice-9/occam-channel.scm�
�
��	�	��	�	��		C5>"G475�$"i�$!414\_45>"G"4bi4\ef�i�ij�n�uy������h8�]4>"G445>"G6�gch
		5gt		5gfilenamefice-9/occam-channel.scm�
�
��	�	��	�	��	�	0��	'�	��	5�	��		5	C5>"G4���
hO]CGgdummy
		gch		gform						Ch`]CXgdummy
		gexp		gch			gform						C%hP]CHgdummy
		gexp		gform						C()
hP$]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchgformg...gexpg?gchgformg...gexpgformg...C5R4���5=>hO]CGgdummy
		gch		gform						C@IJh`]CXgdummy
		gexp		gch			gform						CQhP]CHgdummy
		gexp		gform						C()
hP$]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchgformg...gexpg?gchgformg...gexpgformg...C5R4���Rh?]C7gdummy
		gdata					C`oh�]���Czgdummy
		gdata		glambda			gx			ge1			ge2						Cq|h_]���CWgdummy
		gdata		ge1			ge2						C()
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgdatagdatag=>glambdagxge1ge2g...gdatage1ge2g...C5R4�������h M]��CEgdummy
		gch		ge1						C�����h(^]��CVgdummy
		!gexp		!gch			!ge1			!		!	ChN]�CFgdummy
		gexp		ge1						C()
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4�������h M]��CEgdummy
		gch		ge1						C�����h(^]��CVgdummy
		!gexp		!gch			!ge1			!		!	C�hN]CFgdummy
		gexp		ge1						C()
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4����h]]CUgdummy
		gch		ge1			gc2						C�hn]Cfgdummy
		gexp		gch			ge1			gc2						Cp�hM]�CEgdummy
		gc1		gc2						C()
hP4]45$@45$@45$@	6,gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchge1g...gc2g...gexpg?gchge1g...gc2g...gc1gc2g...C5R4����hd]C\gdummy
		gch		ge1			g	handshake						Chu]Cmgdummy
		gexp		gch			ge1			g	handshake						Che]C]gdummy
		gexp		ge1			g	handshake						C()
hPE]45$@45$@45$@	6=gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchge1g...g	handshakegexpg?gchge1g...g	handshakegexpge1g...g	handshakeC5R4���)12hM]CEgdummy
		gch		ge1						C4=>?h^]CVgdummy
		gexp		gch			ge1						CFhN]CFgdummy
		gexp		ge1						C()
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4���Hh]C		
CZh:]C2ge1
		ge2					C[chm]L�6egc1
		gc2		gfilenamefice-9/occam-channel.scm�	�	��			C()
hX�]45$@45$@45$LO@	6�gx
		Ugtmp		Ugtmp		"	Ugtmp		9	Ugfilenamefice-9/occam-channel.scm�
�	��		Ugnamegelse-clause?�C�[ijmpjh@]C8gtmp-17d5859fdf6989b4-1e3
		
		
Cqrstth@]C8gtmp-17d5859fdf6989b4-1e1
		
		
Cuvwxyxyh@]��C8gtmp-17d5859fdf6989b4-1e0
				C��h@]C8gtmp-17d5859fdf6989b4-1df
		
		
C��h@]C8gtmp-17d5859fdf6989b4-1de
		
		
C��h@]C8gtmp-17d5859fdf6989b4-1e2
		
		
C�h�=]445	44
5
����44544545��5��5���5��4455���5��C5gc1
	�gc2	�	�	C()hm]LL6egc1
		gc2		gfilenamefice-9/occam-channel.scm�	�	��			C��mp�h@]C8gtmp-17d5859fdf6989b4-1d7
		
		
C�����h@]C8gtmp-17d5859fdf6989b4-1d5
		
		
C��h@]C8gtmp-17d5859fdf6989b4-1d6
		
		
C�hX:]445	4
5��445
5���5��C2gc1
		Wgc2		W		W	C	hh�]OQ45" 45$@6$4O?$@"���"����gx
		dgelse-clause?	
	dgtmp			dgtmp		'	>gfilenamefice-9/occam-channel.scm�
�	��		dC5RCgm
		,gt
��gt
/Kgt
��gt
��gt
�gt
��gt
x�gt
��gt
	�	�gt

�
�gt
.gt
��gt
��gt
�gt
bwgt
cxgt
avgt
"7gt
$9gfilenamefice-9/occam-channel.scm�		
��	.	%	��	1	%
��	3	&	��	6	&
��	;	(
���	*
���	0
���	4
��q	7
��z	:
��	z	=
��
�	C
��	H
���	X
���	[
���	k
��[	n
��\	q
��Z	t
��^	w
���	y	��	y
��	{	��	{
��	|	��	|
���	~
��[�
���
���
���
��!	?
C6ice-9/common-list.go000064400000030504150536206120010244 0ustar00GOOF----LE-8-2.0,1]24h5]gguile�	�	gdefine-module*�	�	�	gice-9�	gcommon-list�	�		gfilenameS�	
fice-9/common-list.scm�	gexportsS�	gadjoin�	
gunion�	gintersection�	gset-difference�	greduce-init�	greduce�	gsome�	gevery�	gnotany�	gnotevery�	gcount-if�	gfind-if�	g	member-if�	g	remove-if�	g
remove-if-not�	g
delete-if!�	gdelete-if-not!�	gbutlast�	gand?�	gor?�	 ghas-duplicates?�	!gpick�	"g
pick-mappings�	#guniq�	$
 !"#�	%gset-current-module�	&%�	'%�	(gmemq�	)greverse!�	*gmemv�	+gmap�	,gcar�	-gcdr�	.glength�	/gerror�	0fnegative argument to butlast�	1gmember�C5hp,*]4	
$54'>"G(h�]45$C�C�ge
		gl		gfilenamefice-9/common-list.scm�
	M
��		O	��		O	��		O	��			gnamegadjoin�g
documentationfGReturn list L, possibly with element E added if it is not already in L.�CR
h(7](C(C�4�56/gl1
		%gl2		%gfilenamefice-9/common-list.scm�
	Q
��		U	��		W	��		W	��		W	&��	#	W	��	%	W	��		%	gnamegunion�g
documentationfwReturn a new list that is the union of L1 and L2.
Elements that occur in both lists occur only once in
the result list.�C
R)*hX�](C"8(64�5$���"����"���"����gl1
		Rgl2		Rgl1			Ggresult			Ggfilenamefice-9/common-list.scm�
	Y
��		\	��		]	��		^	��		^	��		_	��	!	_	��	%	_	��	)	^	��	,	_	(��	/	_	7��	2	_	1��	:	_	"��	=	`	��	G	`	��	G	]	��	J	]	!��	R	]	��		R	gnamegintersection�g
documentationfyReturn a new list that is the intersection of L1 and L2.
Only elements that occur in both lists occur in the result list.�CR)*hPr]"8(64�5$
�"������"���"���jgl1
		Igl2		Igl1			>gresult			>gfilenamefice-9/common-list.scm�
	b
��		d	��		e	��		e	��		f	��		f	��		f	��	 	e	��	#	f	$��	-	f	��	0	g	��	3	g	%��	6	g	��	>	g	��	>	d	��	A	d	��	I	d	��		I	gnamegset-difference�g
documentationf5Return elements from list L1 that are not in list L2.�CRh ](C4�5�6gp
		ginit		gl			gfilenamefice-9/common-list.scm�
	i
��		k	��		m	��		m	��		m	��		m	&��		m	��			gnamegreduce-init�g
documentationfESame as `reduce' except it implicitly inserts INIT at the start of L.�CRh(](C�(�C��6�gp
		"gl		"gfilenamefice-9/common-list.scm�
	o
��		u	��		v	��		u	��		v	��		w	��	 	w	%��	"	w	��			"	gnamegreduce�g
documentationf9Combine all the elements of sequence L using a binary operation P.
The combination is left-associative.  For example, using +, one can
add up all the elements.  `reduce' allows you to apply a function which
accepts only two arguments to more than 2 objects.  Functional
programmers usually refer to this as foldl.�CR+,-h�$-13(0"$(C4�5$C�"���"���"8(C4�45?$C�45"���"���gpred
		�gl		�grest			�gl			7gt		#	7gl		C	{grest		C	{gt		\	{gfilenamefice-9/common-list.scm�
	y
��	�	��	�		��	�	��	�	��	!�	��	#�	��	#�	��	1�	)��	7�	#��	7�		��	C�	��	I�	��	L�	��	Q�	%��	R�	-��	\�	��	\�	��	j�	��	k�	'��	{�	��	{�	��		�	
	gnamegsome�g
documentationfpPRED is a boolean function of as many arguments as there are list
arguments to `some', i.e., L plus any optional arguments.  PRED is
applied to successive elements of the list arguments in order.  As soon
as one of these applications returns a true value, return that value.
If no application returns a true value, return #f.
All the lists should have the same length.�CR+,-h�C-13(+"(C4�5$	�"���C"���"3(C4�45?$�45"���C"���;gpred
			}gl			}grest				}gl			2gl		>	qgrest		>	qgfilenamefice-9/common-list.scm�
�
��	�	��	�		��	�	��	�	��	�	��	!�	��	#�	��	'�	��	*�	)��	0�	#��	2�		��	>�	��	D�	��	E�	��	G�	��	L�	%��	M�	-��	W�	��	[�	��	^�	��	_�	'��	o�	��	q�	��			}	
	gnamegevery�g
documentationf�Return #t iff every application of PRED to L, etc., returns #t.
Analogous to `some' except it returns #t if every application of
PRED is #t and #f otherwise.�CRhU-134?�CMgpred
			gls			gfilenamefice-9/common-list.scm�
�
��	
�	��	�	��			
gnamegnotany�g
documentationf�Return #t iff every application of PRED to L, etc., returns #f.
Analogous to some but returns #t if no application of PRED returns a
true value or #f as soon as any one does.�CRhS-134?�CKgpred
			gls			gfilenamefice-9/common-list.scm�
�
��	
�	��	�	��			
gnamegnotevery�g
documentationf�Return #t iff there is an application of PRED to L, etc., that returns #f.
Analogous to some but returns #t as soon as an application of PRED returns #f,
or #f otherwise.�CRhHh]"0(C4�5$��"����"���
"���`gpred
		Agl		Agn			6gl			6gfilenamefice-9/common-list.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	 ��	!�	(��	)�	��	.�	��	6�	��	6�	��		A	gnamegcount-if�g
documentationfIReturn the number of elements in L for which (PRED element) returns true.�CRh(X](C4�5$�C�6Pgpred
		#gl		#gfilenamefice-9/common-list.scm�
�
��	�	��	�		��	�	��	�		��	�	��	�	��	!�	��	#�	��
		#	gnamegfind-if�g
documentationf|Search for the first element in L for which (PRED element) returns true.
If found, return that element, otherwise return #f.�CRh(](C4�5$C�6gpred
		"gl		"gfilenamefice-9/common-list.scm�
�
��	�	��	�		��	�	��	�		��	�	��	 �	��	"�	��			"	gnameg	member-if�g
documentationf9Return the first sublist of L for whose car PRED is true.�CR)hH�]"6(64�5$
�"������"���"����gpred
		Ggl		Ggl			<gresult			<gfilenamefice-9/common-list.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	!�	 ��	+�	��	.�	��	1�	$��	4�	��	<�	��	<�	��	?�	��	G�	��		G	gnameg	remove-if�g
documentationfWRemove all elements from L where (PRED element) is true.
Return everything that's left.�CR)hH�]"6(64�5$���"����"���"����gpred
		Ggl		Ggl			<gresult			<gfilenamefice-9/common-list.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	!�	��	$�	$��	'�	��	/�	��	2�	&��	<�	 ��	<�	��	?�	��	G�	��		G	gnameg
remove-if-not�g
documentationfURemove all elements from L where (PRED element) is #f.
Return everything that's left.�CRh0�](C4L�5$	�"���4L�5�C�gl
		-gfilenamefice-9/common-list.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	%��	�	��	"�	��	'�	"��	)�	��	*�	��		-gnameg	delete-if�Ch�]
OQ6�gpred
		gl		g	delete-if			gfilenamefice-9/common-list.scm�
�
��	�	��			gnameg
delete-if!�g
documentationf#Destructive version of `remove-if'.�CRh0�](C4L�5$4L�5�C�"����gl
		-gfilenamefice-9/common-list.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	&��	 �	��	!�	��	'�	/��	-�	 ��		-gnameg
delete-if-not�Ch�]
OQ6�gpred
		gl		g
delete-if-not			gfilenamefice-9/common-list.scm�
�
��	�	��			gnamegdelete-if-not!�g
documentationf'Destructive version of `remove-if-not'.�CRh(�](C
�$�4L��5�CC�glst
		%gn		%gfilenamefice-9/common-list.scm�
�	��	�	��	�	��	�	��	�	��	�	(��	�	,��	�	6��	!�	(��	"�	��	$�	��		%	gnamegbl�C./0hH<]HOQ45�K
�$
45"J64glst
		Bgn		Bgl			Bgbl		
	Bgl			%gfilenamefice-9/common-list.scm�
�
��	�	��	�	��	�	��	,�	��	1�	��	2�	��	6�	��	:�	��	B�	��		B	gnamegbutlast�g
documentationf*Return all but the last N elements of LST.�CRh(�-13(C�$�@C�gargs
			!gfilenamefice-9/common-list.scm�
�
��	�	��	�		��	�	��	�	 ��	�	��			!


gnamegand?�g
documentationf#Return #t iff all of ARGS are true.�CRh(�-13(C�$C�@�gargs
			!gfilenamefice-9/common-list.scm�
�
��	�	��	�		��	�	��	�	��	!�	��			!


gnamegor?�g
documentationf"Return #t iff any of ARGS is true.�CR1 h(](C4��5$C�6�glst
		"gfilenamefice-9/common-list.scm�
�
��	�	��	�		��	�	��	�	��	�		��	�	��	 �	��	"�	��
		"gnameghas-duplicates?�g
documentationf3Return #t iff 2 members of LST are equal?, else #f.�C RhH�]"3(C4�5$���"����"���"����gp
		Dgl		Dgs			9gl			9gfilenamefice-9/common-list.scm�
�
��	�	��	�	��	�	��	�		��	�	��	�	��	�	$��	!�	��	$�	/��	,�	��	1�	 ��	9�	��	9�	��	:�	��	D�	��		D	gnamegpick�g
documentationfZApply P to each element of L, returning a list of elts
for which P returns a non-#f value.�C!RhH�]"6(C4�5$��"����"���"����gp
		Ggl		Ggs			<gl			<gt			<gfilenamefice-9/common-list.scm�

��		��		��		��			��		��		��	$	0��	'	A��	/	*��	4	 ��	<	��	<	��	=	��	G	��		G	gnameg
pick-mappings�g
documentationfPApply P to each element of L, returning a list of the
non-#f return values of P.�C"R)(hH\]"1(64�5$"���"���"���Tgl
		Bgacc		7gl			7gfilenamefice-9/common-list.scm�


��		��		��		��		��		��		��	 	��	)	��	,	��	/	��	7	��	7	��	8	��	B	��		Bgnameguniq�g
documentationf@Return a list containing elements of L, with duplicates removed.�C#RC"gm
		(gfilenamefice-9/common-list.scm�		4
��A	M
���	Q
���	Y
���	b
��	i
��
K	o
��	y
����
��p�
����
����
��C�
����
����
����
����
�� ��
��#w�
��$��
��%��
��&��
��(��
��*�
��,g

��	,i
C6ice-9/session.go000064400000060640150536206120007472 0ustar00GOOF----LE-8-2.0�a]�4h;]gguile�	�	gdefine-module*�	�	�	gice-9�	gsession�	�		gfilenameS�	
fice-9/session.scm�	gimportsS�	g
documentation�	
�	
�	gregex�	�	�	grdelim�	�	�	gmatch�	�	�	�	gexportsS�	ghelp�	gadd-value-help-handler!�	gremove-value-help-handler!�	gadd-name-help-handler!�	gremove-name-help-handler!�	gapropos-hook�	 gapropos�	!gapropos-internal�	"gapropos-fold�	#gapropos-fold-accessible�	$gapropos-fold-exported�	%gapropos-fold-all�	&gsource�	'garity�	(gprocedure-arguments�	)gmodule-commentary�	* !"#$%&'()�	+gset-current-module�	,+�	-+�	.gobject-documentation�	/g*value-help-handlers*�	0gdelete!�	1gor-map�	2gtry-value-help�	3g*name-help-handlers*�	4g
try-name-help�	5gmake-syntax-transformer�	65�	75�	8gmacro�	9g$sc-dispatch�	:9�	;9�	<g_�	=gany�	><=��	?g
syntax->datum�	@?�	A?�	Bg
datum->syntax�	CB�	DB�	Eglength�	Fg	provided?�	Ggdisplay�	Hghelp-doc�	Ig
simple-format�	Jf^~A$�	Kgregexp-quote�	Lgsymbol->string�	Mgstring?�	Ngand-map�	Ogsymbol?�	Pgquote�	Qg
write-line�	Rf commentary:�	SfNo ~A found for ~A
�	Tg
commentary�	Ug
help-usage�	Vgunquote�	Wg
module-ref�	Xgcurrent-module�	Ygsearch-documentation-files�	Zgbegin�	[Z�	\f]`help' depends on the `regex' feature.
You don't seem to have regular expressions installed.
�	]gsyntax-violation�	^]�	_]�	`f-source expression failed to match any pattern�	agmap�	bgreverse�	cg
string-append�	df/�	eg%search-load-path�	fgin-vicinity�	ggmodule-filename�	hgfile-commentary�	ig
procedure?�	jfa procedure�	kf	an object�	lfDocumentation from file:�	mfDid not find any object �	nfnamed `~A'
�	ofmatching regexp "~A"
�	pgfor-each�	qf~S: ~S
�	rgmodule-name�	sgcadr�	tgcaddr�	uf!`~S' is ~A in the ~S module.

~A
�	vgcadddr�	wfDocumentation found for:
�	xgnewline�	yfNo documentation found for:
�	zfvUsage: (help NAME) gives documentation about objects named NAME (a symbol)
       (help REGEXP) ditto for objects with names matching REGEXP (a string)
       (help 'NAME) gives documentation for NAME, even if it is not an object
       (help ,EXPR) gives documentation for object returned by EXPR
       (help (my module)) gives module commentary for `(my module)'
       (help) gives this text

`help' searches among bindings exported from loaded modules, while
`apropos' searches among bindings visible from the "current" module.

Examples: (help help)
          (help cons)
          (help "output-string")

Other useful sources of helpful information:

(apropos STRING)
(arity PROCEDURE)
(name PROCEDURE-OR-MACRO)
(source PROCEDURE-OR-MACRO)

Tools:

(backtrace)				;show backtrace from last error
(debug)					;enter the debugger
(trace [PROCEDURE])			;trace procedure (no arg => show)
(untrace [PROCEDURE])			;untrace (no arg => untrace all)

(OPTIONSET-options 'full)		;display option information
(OPTIONSET-enable 'OPTION)
(OPTIONSET-disable 'OPTION)
(OPTIONSET-set! OPTION VALUE)

where OPTIONSET is one of debug, read, eval, print

�	{g	make-hook�	|grun-hook�	}g
string-length�	~fEmpty string not allowed�	gmake-regexp��gmodule-uses��g
duplicates��gmember��gshadow��gvalue��gfull��gmodule-obarray��g
hash-for-each��gregexp-exec��f: ��f	(unbound)��f	 shadowed��gmake-hash-table��g	hash-fold��ghashq-get-handle��g
hashq-set!��ghash-create-handle!��gmake-fold-modules��gidentity��g
submodules��gresolve-module��groot-modules��ghash-map->list��gmodule-submodules��gmodule-public-interface��gprocedure-source��gmacro?��gmacro-transformer��gprocedure-property��garglist��f ��frequired��f arguments: ��f argument: ��f', `��f' and `��f', the rest in `��f, ��foptional��fkeyword��fother keywords allowed��f
the rest in `��f'��gprocedure-minimum-arity��f or more��f required and ��f	 optional��f	 argument��f
 arguments��f.
��grequired��gnumber?��g	make-list��goptional��gkeyword��gallow-other-keys?��grest��gerror��������fno matching pattern��gsystem��gvm��gprogram�������gprogram?����������gprogram-arguments-alist���������C5hL^]4	
*54->"G.hr]6jgname
		gvalue		gfilenamefice-9/session.scm�
	$	��		%	��			C/R/h�]� C�gproc
		gfilenamefice-9/session.scm�
	'
��		.	��			.	��		gnamegadd-value-help-handler!�g
documentationf1Adds a handler for performing `help' on a value.

`proc' will be called as (PROC NAME VALUE). `proc' should return #t to
indicate that it has performed help, a string to override the default
object documentation, or #f to try the other handlers, potentially
falling back on the normal behavior for `help'.�CR0/h�]45 C�gproc
		gfilenamefice-9/session.scm�
	0
��		2	��	
	2	��		gnamegremove-value-help-handler!�g
documentationf3Removes a handler for performing `help' on a value.�CR1h_]LL6Wgproc
		
gfilenamefice-9/session.scm�
	5	
��	
	5	��		
C/h�]O6�gname
		gvalue		gfilenamefice-9/session.scm�
	4
��		5	��			gnamegtry-value-help�C2R3R3hF]� C>gproc
		gfilenamefice-9/session.scm�
	:
��		D	��			D	��		gnamegadd-name-help-handler!�g
documentationf�Adds a handler for performing `help' on a name.

`proc' will be called with the unevaluated name as its argument. That is
to say, when the user calls `(help FOO)', the name is FOO, exactly as
the user types it.

`proc' should return #t to indicate that it has performed help, a string
to override the default object documentation, or #f to try the other
handlers, potentially falling back on the normal behavior for `help'.�CR03h�]45 C�gproc
		gfilenamefice-9/session.scm�
	F
��		H	��	
	H	��		gnamegremove-name-help-handler!�g
documentationf2Removes a handler for performing `help' on a name.�CR1h_]L6Wgproc
		gfilenamefice-9/session.scm�
	K	
��		K	��		C3hx]O6pgname
		gfilenamefice-9/session.scm�
	J
��		K	��		gnameg
try-name-help�C4R478;>ADEF4GHIJKLMNOP)QRSTUV2WXY[\h�"-1345�$r45$R�45$!&"4>"G"�$*444	4
555>"G"�45$4>"G"��$�"�4
5$�("���$g45$:4>"G4>"G4>"?G"84>"$G"4>"
G"4>"�G"�45	�$��&g4��445��55$!&"4>"G" ��4>"G"l�&_���$N4��5$4>"G" ��4>"G""��l""��d""��\"4>"GC4>"GC4>"GCgexp
		�gname	$sgt		-pgt	�?gdoc	��gx	��gt	Agx	">gfilenamefice-9/session.scm�
	P
��	
	S	��		S	��		S	��		V	��		V	��		V	��	!	S	��	$	[	��	$	[		��	'	b	
��	-	_	��	<	c	��	A	c	1��	Y	f	
��	]	_	��	^	g	
��	c	h	��	h	i	��	i	j	��	l	j	&��	t	j	��	v	h	��	{	g	
���	m	
���	_	���	n	
���	q	���	_	����	����	
����	����	'����	����	����	
����	����	
����	����	(����	4���	(���	��"	]	��'	]	.��)�	$��0	]	��@�	
��g	_	��h	r	��q	r	��u	q	
��x	s	��z	s	"��~	q	
��	t	���	t	(���	u	(���	u	4���	v	4���	u	(���	t	���	t	
���	w	���	y	���	w	:���	w	 ���	]	���	]	.���	w	+���	]	���	~	���	~	"���	|	
���		���		���	|	
����	����	0���	���	
��!�	3��"�	��%	]	��*	]	.��,�	$��3	]	��^�	
��r�	��t	W		��x	W	��}	W		���	Y		���	T		���	U		��`		�


Che]	45L4?6]gargs
		gv			gfilenamefice-9/session.scm�		P
��		C_`h(�]	45$O@6�gy
		'gtmp		'gfilenamefice-9/session.scm�
	P
��		'g
documentationf7(help [NAME])
Prints useful information.  Try `(help)'.�g
macro-typegdefmacro�g
defmacro-argsgargsC5RaLbccdhi]6agelt
		
gfilenamefice-9/session.scm�
�	��	�	4��	
�	!��		
CefhHx])4545�4�5445?456pgname
		Bgname		Bgreverse-name			Bgleaf			Bgdir-hint-module-name		#	Bgdir-hint		3	Bgfilenamefice-9/session.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	!�	(��	#�	��	#�	��	&�	��	)�	��	3�	��	3�	��	8�	��	B�	��		Bgnamegmodule-filename�CgRghh �]	45$6C�gname
		gt			gfilenamefice-9/session.scm�
�
��	�		��		�	��		gnamegmodule-commentary�C)R"2ijkh0�]4545$"�C�gmodule
		)gname		)gobject			)gdata			)gfilenamefice-9/session.scm�
�	��	�	-��	�	4��	�	-��	�	4��	"�	4��	%�	'��	(�	!��			)	C$YQlGmInopIqrstuvhhT]	44�545545$3M�N445454�5455M�NCM�NCLgentry
		bg
entry-summary		bgfilenamefice-9/session.scm�
�	��	�	.��	�	2��		�	/��	�	<��	�	/��	�	/��	�	.��	�	��	�	��	&�	��	+�	'��	-�	!��	.�	-��	3�	1��	4�	.��	;�	.��	B�	.��	G�	;��	I�	.��	J�	.��	R�	-��	U�	'��	W�	!��	^�	%��	`�	��		bCEwGhb]6Zgentry
		gfilenamefice-9/session.scm�
�	��	�	-��		CxGh(}]M$N"4>"G6ugentry
		%gfilenamefice-9/session.scm�
�	��	�	��	�	��	�	��	%�	��		%CxyGhb]6Zgentry
		gfilenamefice-9/session.scm�
�	��	�	-��		Ch@�]245(O45$4>"G64>"G	�$
"6HHHH4
O>"GJ("4J5�$"J��$-4>"G4J>"GK"4OJ>"GJ(CJ$K"4>"G4>"GJ6�gterm
	?gregexp	?gentries		?gt			egfirst?		i?gundocumented-entries		i?gdocumented-entries		i?gdocumentations		i?gt	��	gfilenamefice-9/session.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	&�	��	*�	��	/�	��	=�	��	>�	��	B�	��	G�	��	U�	��	Y�	��	[�	��	a�	��	e�	��	g�	'��	h�	%��	i�	!��	i�	��	r�	
����	����	����	����	����	����	����	
����	����	����	����	����	����	
���	
���	���	���	��&�	��*�	��/�	��?�	��/	?	gnameghelp-doc�CHRGzhm]6egfilenamefice-9/session.scm�
�
��	�	��	�	��		
gnameg
help-usage�CUR4{i	5R|X}~�r�����pr���LG�i�WX�xh�]4L455$�4L>"G4>"G4>"G$Q45$"M$(4	>"G4>"G""$4	>"G4>"GM$34L54455&"4	>"G"
6C�gsymbol
	gvariable	gval		T�gt		]	ogfilenamefice-9/session.scm�
>	��	?	��	?	*��	?	��	?	��	@	��	'A	��	+A	 ��	0A	��	9B	��	MC	��	QC	��	TD	)��	TD	��	WE	+��	]E	'��	sE	 ��	tF	'���G	'���I	���J	���J	'���J	���K	���L	*���M	*���M	6���M	*���K	���N	���N	$���N	��O	��"		Ch0�]4545LLLO6�gmodule
		)gname			)gobarray			)gfilenamefice-9/session.scm�
9		��	:	��		:	��	;	��	:	��	)=	
��		)Ch��-13445>"G45
�$C45445545("4�5	�$�"�4
5H4
5H4

5$
KK"O6�grgx
		�goptions		�gmatch		9�guses		E�gmodules		p�gshadow		{�gvalue	��gfilenamefice-9/session.scm�
%
��	
'	��	'	��	'	��	#(	
��	*(	��	/(	��	1)	��	3*	��	9*	��	<+	��	?+	 ��	E+	��	E*	��	H,	��	R-	 ��	X.	*��	].	7��	_.	*��	a/	*��	b.	%��	f-	��	i0	 ��	p,	��	p*	��	s3	��	w3	��	{3	��	{*	��	~4	���4	���4	���*	���5	���5	���5	���5	���6	���7	���8	��)		�
gnamegapropos�g
documentationfCSearch for bindings: apropos regexp {options= 'full 'shadow 'value}�C R"h�]�C�gmodule
		gname		gvar			gdata			gfilenamefice-9/session.scm�
U	��	V	��			C#Xh�]44556�grgx
		gfilenamefice-9/session.scm�
S
��	W	��	
Y	��	
Y	)��	Y	��	U	��		gnamegapropos-internal�g
documentationf+Return a list of accessible variable names.�C!R|X���L��hX]$K4L455$14L5$C4L>"GLL6CC
gname
		Wgvar		Wgdata			Wgval			Tgfilenamefice-9/session.scm�
z	��	{	��		{	��	|	0��	|	��	s	 ��	s	3��	s	 ��	 s	��	!t	%��	-s	��	1v	��	Qw	��		W	gnameg
module-filter�C�h(�]$LLLO456C�gmodule
		%gdata		%gfilenamefice-9/session.scm�
p	��	~	��	�	(��	"~	��		%	gnamegfold-module�Ch@�]445>"G4545O6�gproc
		<ginit		<grgx			<gfolder			<gmatch		'	<grecorded		'	<gfilenamefice-9/session.scm�
[
��	l	��	l	��	l	��	m	��	#n	��	'm	��	<�	��			<	gnamegapropos-fold�g
documentationf�Folds PROCEDURE over bindings matching third arg REGEXP.

Result is

  (PROCEDURE MODULE1 NAME1 VALUE1
    (PROCEDURE MODULE2 NAME2 VALUE2
      ...
      (PROCEDURE MODULEn NAMEn VALUEn INIT)))

where INIT is the second arg to `apropos-fold'.

Fourth arg FOLDER is one of

  (apropos-fold-accessible MODULE) ;fold over bindings accessible in MODULE
  apropos-fold-exported		   ;fold over all exported bindings
  apropos-fold-all		   ;fold over all bindings�C"R��hx�]*"_(C��4L5��$ 4L4L4L�554L�55""���"����gdata
		qgmodules		qgmodules			egdata			egobj			7ghandle		!	4gfirst?		&	1gfilenamefice-9/session.scm�
�	��	�	��	�	��	�	$��	�	��	�	$��	!�	��	&�	$��	&�	��	,�	��	;�	��	<�	��	?�	!��	B�	.��	G�	7��	I�	.��	M�	!��	N�	!��	S�	+��	U�	!��	W�	��	e�	��		q	gnamegrec�Ch0�]4	5OLLQ4L56�gfold-module
		/ginit		/gtable				/grec			/gfilenamefice-9/session.scm�
�	��	�	��		�	��	�	��	)�	��	/�	��		/	Ch�]OC�g
init-thunk
		gtraverse		gextract			gfilenamefice-9/session.scm�
�
��			gnamegmake-fold-modules�g
documentationf�Return procedure capable of traversing a forest of modules.
The forest traversed is the image of the forest generated by root
modules returned by INIT-THUNK and the generator TRAVERSE.
It is an image under the mapping EXTRACT.�C�R�hN]LCFgfilenamefice-9/session.scm�
�	��	�	 ��		
C��h�]O6~gmodule
		gfilenamefice-9/session.scm�
�
��	�	��		gnamegapropos-fold-accessible�C#R��h�]456ygfilenamefice-9/session.scm�
�
��	�	��	�	��	�	��	
�	��		
gnamegroot-modules�C�R�hd]C\gk
		gv		gfilenamefice-9/session.scm�
�	��			C�h]456wgmod
		gfilenamefice-9/session.scm�
�
��	�	#��	�	��		gnameg
submodules�C�R4�i�i�i�i5$R4�i�i�i�i5%Ri���h0�]45$645$456C�gobj
		+gfilenamefice-9/session.scm�
�
��	�		��	
�	��	�	��	�		��	�	��	!�	(��	)�	��			+gnamegsource�C&R��EG��������������������hx
]I45$���������������H("P454>"G4>"G4>"G�$4>"G"4>"G4`>"G4�>"G"�	(4'>"�G"�	�$L	��$4	>"G"4
>"G4	�>"G	�	"���4>"G4	>"G4'>"G"	�	"��NK("lJ$4>"G"454>"G4>"G4
>"G�$4>"G"4>"G4`>"G4�>"G"�	(4'>"�G"�	�$L	��$4	>"G"4
>"G4	�>"G	�	"���4>"G4	>"G4'>"G"	�	"��NK("lJ$4>"G"454>"G4>"G4>"G�$4>"G"4>"G4`>"G4�>"G"�	(4'>"�G"�	�$L	��$4	>"G"4
>"G4	�>"G	�	"���4>"G4	>"G4'>"G"	�	"��NK$5J$4>"G"4>"GK"$VJ$4>"G"4>"G4>"G4>"G""�454�>"G���$4>"G"F��
�$"84>"G4��>"G4>"G���$"��$
���"$4>"G"4>"G6p
gobj
	gt	g
required-args		-(g
optional-args		-(gkeyword-args		-(gallow-other-keys?		-(grest-arg		-(gneed-punctuation		-(glen		J�gls		��glen	�gls		Q�glen	6|gls		�pgarity	3�gfilenamefice-9/session.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	"�	"��	(�	��	,�	��	-�		��	?�	��	D�	��	J�	��	M�	��	_�	��	c�	��	h�	��	q�	��	u�	:��	z�	����	
����	����	
����	����	
����	
����	����	
����	����	����	
����	����	����	����	
����	����	���	���	���	
���	���	���	���	��!�	��&�	��/�	
��4�	��9�	
��D�	��J�	
��K�	
��O�	��T�	
��]�	
��o�	
����	����	����	����	����	����	����	'����	0����	'����	����	����	����	����	����	����	����	:����	����	
���	���	
���	��
�	
���	
���	�� �	
��)�	��;�	��@�	
��E�	��Q�	��W�	��X�	
��p�	��t�	��w�	��x�	��|�	
��}�	����	����	����	����	����	����	
����	����	
����	����	
����	
����	����	
����	
����	
����	����	���	��	�	���	���	���	'���	0��#�	'��0�	��6�	��9�	��K�	��O�	��T�	��]�	��a�	9��f�	��r�	
��v�	��w�	
��{�	����	
����	
����	����	
����	����	����	
����	����	����	����	
����	����	����	����	����	
����	����	����	��	�	��
�	���	���	
�� �	��%�	
��0�	��6�	
��7�	
��;�	��@�	
��I�	
��[�	
��p�	��s�	��y�	���	����	����	����	'����	0����	'����	����	����	����	����	����	����	'����	0����	'����	����	����	����	���	���	��
�	��-�	��3�	��6�	��;�	��@�	��K�	
��Q�	��R�	
��V�	��[�	
��j�	��l�	��q�	��v�	
��z�	���	
����	
����	����	
����	
����	����	
����	����	
����	����	����	
����	����	����	����	
����	����	
����	
����	����	
���	���	���	gnamegarity�C'R�����<���������h0"]Q45$��$����$����$����$���		�$f	�(R	�
45$
45"�45$
45"��	�

�C4
564
564
564
564
564
5645$��C45$6Cgproc
	,gt	,gw		 �gx		 �gw		1�gx		1�gw		B�gx		B�gw		S�gx			S�gw	
	h�gt	,gfilenamefice-9/session.scm�
�
��	�	��		�	��	�	��	�	��	�	��	l		��	m	��	w	��	x	��	~	+���	���		���	���	���	���	+���	���		����	��
	���	��	��	�� 	��$�	��&
	��*
	��	,gnamegprocedure-arguments�g
documentationf�Return an alist describing the arguments that `proc' accepts, or `#f'
if the information cannot be obtained.

The alist keys that are currently defined are `required', `optional',
`keyword', `allow-other-keys?', and `rest'.�C(RCVgm
		,gfilenamefice-9/session.scm�		
���	$	���	#
���	'
���	0
���	4
���	8	���	8
��Y	:
��W	F
��	k	J
����
��x�
��\�
����
���#	���#
��&g%
��($S
��-�[
��2��
��3��
��4t�
��5��
��5��	��5��
��5��	��5��
��6��
��G{�
��K��
�� 	K�
C6ice-9/and-let-star.go000064400000016126150536206120010302 0ustar00GOOF----LE-8-2.0>]�4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gand-let-star�	�		gfilenameS�	
fice-9/and-let-star.scm�	gexportsS�	gand-let*�	
�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	g	%and-let*�	gmacro�	g$sc-dispatch�	�	�	g_�	gany�	��	��	��	g
syntax-object�	gbegin�	 gtop�	! �	"gribcage�	#g	orig-form�	$gbody�	%#$�	&!!�	'fl-1706b9545eb5b006-4�	(fl-1706b9545eb5b006-5�	)'(�	*"%&)�	+"�	,gform�	-,�	.!�	/fl-1706b9545eb5b006-1�	0/�	1"-.0�	2!*+1�	3ghygiene�	43�	524�	624�	7�	8��	978��	:9��	;:��	<;��	=�	>=8��	?>��	@?��	A@��	Bgand�	Cgexpr�	Dgrest�	Egrest*�	F#CDE$�	G!!!!!�	Hfl-1706b9545eb5b006-22�	Ifl-1706b9545eb5b006-23�	Jfl-1706b9545eb5b006-24�	Kfl-1706b9545eb5b006-25�	Lfl-1706b9545eb5b006-26�	MHIJKL�	N"FGM�	O!N+1�	PBO4�	QO4�	R8��	SR��	TS��	UT��	V7�	WV�	X=�	YX�	Z=�	[V��	\[��	]\��	^X��	_^��	`_��	a#C$�	b!!!�	cfl-1706b9545eb5b006-6e�	dfl-1706b9545eb5b006-6f�	efl-1706b9545eb5b006-70�	fcde�	g"abf�	h!g+1�	iBh4�	jh4�	k=��	lk��	ml��	n8��	on��	po��	qgsyntax-violation�	rf
Bad clause�	sq�	tq�	uf-source expression failed to match any pattern�	vgidentifier?�	wgvar�	x#w$�	yfl-1706b9545eb5b006-7b�	zfl-1706b9545eb5b006-7c�	{fl-1706b9545eb5b006-7d�	|yz{�	}"xb|�	~!}+1�	B~4��~4��glet��#wC$��!!!!��fl-1706b9545eb5b006-65��fl-1706b9545eb5b006-66��fl-1706b9545eb5b006-67��fl-1706b9545eb5b006-68��������"�����!�+1����4��B�4���4��#wDE$��fl-1706b9545eb5b006-37��fl-1706b9545eb5b006-38��fl-1706b9545eb5b006-39��fl-1706b9545eb5b006-3a��fl-1706b9545eb5b006-3b���������"�G���!�+1��B�4���4��#wCDE$��!!!!!!��fl-1706b9545eb5b006-15��fl-1706b9545eb5b006-16��fl-1706b9545eb5b006-17��fl-1706b9545eb5b006-18��fl-1706b9545eb5b006-19��fl-1706b9545eb5b006-1a����������"�����!�+1����4��B�4���4��geach-any�����������gt-1706b9545eb5b006-92�����gm-1706b9545eb5b006-93��� �����fl-1706b9545eb5b006-96�����"�����gc���$��fl-1706b9545eb5b006-8e��fl-1706b9545eb5b006-8f������"�&���fl-1706b9545eb5b006-8b�����"-.���!+��+����4��gcond-expand-provide��gcurrent-module��gsrfi-2����C5hXt]4	

54>"G456hC]��C;g	orig-form
		gbody					C<APQhz]����Crg	orig-form
		gexpr		grest			grest*			gbody						CUWYhC]C;g	orig-form
		gexpr					CZ]`ijhU]�CMg	orig-form
		gexpr		gbody						Cmpqrh�]6�g	orig-form
		g
bad-clause		grest			gbody			gfilenamefice-9/and-let-star.scm�		@	��		@	#��		@	��			Ctuvh�]6}g	orig-form
		gvar		gbody			gfilenamefice-9/and-let-star.scm�		;	��			C�hT]�CLg	orig-form
		gvar		gbody						Cvh�]6�g	orig-form
		gvar		gexpr			gbody			gfilenamefice-9/and-let-star.scm�		5	��			C���h f]�C^g	orig-form
		gvar		gexpr			gbody						Cvhs]6kg	orig-form
		gvar		gfilenamefice-9/and-let-star.scm�		0	��			ChB]C:g	orig-form
		gvar					Cvh�]6}g	orig-form
		gvar		gexpr			gfilenamefice-9/and-let-star.scm�		+	��			ChT]CLg	orig-form
		gvar		gexpr						Cvh�]6�g	orig-form
		gvar		grest			grest*			gbody			gfilenamefice-9/and-let-star.scm�		&	��			C��hy]����Cqg	orig-form
		gvar		grest			grest*			gbody						Cvh�]6�g	orig-form
		gvar		gexpr			grest			grest*			gbody			gfilenamefice-9/and-let-star.scm�		 	��			C���h(�]����C�g	orig-form
		'gvar		'gexpr			'grest			'grest*			'gbody			'		'	C h�']Y45$@45"K45$@45"45"�4	5$
@45"�45"e4
5		$	@45
" 45$@6
$4
?$
@"���"���$4?$@"���"��|$4?$@"��R"��N$4?$@"��
"��	$4?$@"���"���$4?$@"���"���gform
	�gtmp	�gtmp		"�gtmp		1sgtmp		Hsgtmp		WTgtmp		f5gtmp		}5gtmp	�gtmp		��gtmp	
��gtmp	��gfilenamefice-9/and-let-star.scm�
		��	�C5R4��h;]L���C3gc
		gbody					Ctuh(l]	45$O@6dgform
		'gtmp		'gfilenamefice-9/and-let-star.scm�
	C	��		'C5R�i4�i5�6lgm
		(gfilenamefice-9/and-let-star.scm�		
��N	H	��V	H	&��X	H
��	X
C6ice-9/posix.go000064400000016366150536206120007157 0ustar00GOOF----LE-8-2.0�]14ha]gstat:dev�	gstat:ino�	g	stat:mode�	g
stat:nlink�	gstat:uid�	gstat:gid�	g	stat:rdev�	g	stat:size�		g
stat:atime�	
g
stat:mtime�	g
stat:ctime�	gstat:blksize�	
gstat:blocks�	gstat:atimensec�	gstat:mtimensec�	gstat:ctimensec�	g	stat:type�	g
stat:perms�	gpasswd:name�	g
passwd:passwd�	g
passwd:uid�	g
passwd:gid�	gpasswd:gecos�	g
passwd:dir�	gpasswd:shell�	g
group:name�	ggroup:passwd�	g	group:gid�	g	group:mem�	gutsname:sysname�	gutsname:nodename�	 gutsname:release�	!gutsname:version�	"gutsname:machine�	#ggetpw�	$ggetpwent�	%gsetpw�	&gsetpwent�	'gendpwent�	(ggetpwnam�	)ggetpwuid�	*ggetgr�	+ggetgrent�	,gsetgr�	-gsetgrent�	.gendgrent�	/ggetgrnam�	0ggetgrgid�C5h��]hn]
�Cfgf
		gfilenamefice-9/posix.scm�
	
��			��		gnamegstat:dev�CRhn]�Cfgf
		gfilenamefice-9/posix.scm�
	
��			��		gnamegstat:ino�CRho]	�Cggf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg	stat:mode�CRhp]	�Chgf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg
stat:nlink�CRhn]	�Cfgf
		gfilenamefice-9/posix.scm�
	
��			��		gnamegstat:uid�CRhn]	�Cfgf
		gfilenamefice-9/posix.scm�
	
��			��		gnamegstat:gid�CRho]	�Cggf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg	stat:rdev�CRho]	�Cggf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg	stat:size�CRhp]	�Chgf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg
stat:atime�C	Rhp]		�Chgf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg
stat:mtime�C
Rhp]	
�Chgf
		gfilenamefice-9/posix.scm�
	 
��		 	��		gnameg
stat:ctime�CRhr]	�Cjgf
		gfilenamefice-9/posix.scm�
	!
��		!	��		gnamegstat:blksize�CRhq]	�Cigf
		gfilenamefice-9/posix.scm�
	"
��		"	��		gnamegstat:blocks�C
Rht]	�Clgf
		gfilenamefice-9/posix.scm�
	#
��		#	��		gnamegstat:atimensec�CRht]	�Clgf
		gfilenamefice-9/posix.scm�
	$
��		$	��		gnamegstat:mtimensec�CRht]	�Clgf
		gfilenamefice-9/posix.scm�
	%
��		%	��		gnamegstat:ctimensec�CRho]	
�Cggf
		gfilenamefice-9/posix.scm�
	(
��		(	��		gnameg	stat:type�CRhp]	�Chgf
		gfilenamefice-9/posix.scm�
	)
��		)	��		gnameg
stat:perms�CRhs]
�Ckgobj
		gfilenamefice-9/posix.scm�
	+
��		+	��		gnamegpasswd:name�CRhu]�Cmgobj
		gfilenamefice-9/posix.scm�
	,
��		,	��		gnameg
passwd:passwd�CRhr]	�Cjgobj
		gfilenamefice-9/posix.scm�
	-
��		-	��		gnameg
passwd:uid�CRhr]	�Cjgobj
		gfilenamefice-9/posix.scm�
	.
��		.	��		gnameg
passwd:gid�CRht]	�Clgobj
		gfilenamefice-9/posix.scm�
	/
��		/	��		gnamegpasswd:gecos�CRhr]	�Cjgobj
		gfilenamefice-9/posix.scm�
	0
��		0	��		gnameg
passwd:dir�CRht]	�Clgobj
		gfilenamefice-9/posix.scm�
	1
��		1	��		gnamegpasswd:shell�CRhr]
�Cjgobj
		gfilenamefice-9/posix.scm�
	3
��		3	��		gnameg
group:name�CRht]�Clgobj
		gfilenamefice-9/posix.scm�
	4
��		4	��		gnameggroup:passwd�CRhq]	�Cigobj
		gfilenamefice-9/posix.scm�
	5
��		5	��		gnameg	group:gid�CRhq]	�Cigobj
		gfilenamefice-9/posix.scm�
	6
��		6	��		gnameg	group:mem�CRhw]
�Cogobj
		gfilenamefice-9/posix.scm�
	8
��		8	��		gnamegutsname:sysname�CRhx]�Cpgobj
		gfilenamefice-9/posix.scm�
	9
��		9	��		gnamegutsname:nodename�CRhw]	�Cogobj
		gfilenamefice-9/posix.scm�
	:
��		:	��		gnamegutsname:release�C Rhw]	�Cogobj
		gfilenamefice-9/posix.scm�
	;
��		;	��		gnamegutsname:version�C!Rhw]	�Cogobj
		gfilenamefice-9/posix.scm�
	<
��		<	��		gnamegutsname:machine�C"R#h^]6Vgfilenamefice-9/posix.scm�
	>
��		>	��		
gnameggetpwent�C$R%h^]6Vgfilenamefice-9/posix.scm�
	?
��		?	��		
gnamegsetpwent�C&R%h^]6Vgfilenamefice-9/posix.scm�
	@
��		@	��		
gnamegendpwent�C'R#hq]6igname
		gfilenamefice-9/posix.scm�
	B
��		B	��		gnameggetpwnam�C(R#hp]6hguid
		gfilenamefice-9/posix.scm�
	C
��		C	��		gnameggetpwuid�C)R*h^]6Vgfilenamefice-9/posix.scm�
	E
��		E	��		
gnameggetgrent�C+R,h^]6Vgfilenamefice-9/posix.scm�
	F
��		F	��		
gnamegsetgrent�C-R,h^]6Vgfilenamefice-9/posix.scm�
	G
��		G	��		
gnamegendgrent�C.R*hq]6igname
		gfilenamefice-9/posix.scm�
	I
��		I	��		gnameggetgrnam�C/R*ho]6ggid
		gfilenamefice-9/posix.scm�
	J
��		J	��		gnameggetgrgid�C0RC�gfilenamefice-9/posix.scm��	
��	
���	
��#	
���	
��1	
���	
��B	
���	
��S	
���	 
��e	!
���	"
��w	#
��	$
���	%
��	"	(
��	�	)
��
6	+
��
�	,
��M	-
���	.
��_	/
���	0
��
w	1
��	3
���	4
��	5
���	6
��2	8
���	9
��R	:
���	;
��r	<
���	>
��i	?
���	@
��l	B
���	C
��y	E
���	F
��i	G
���	I
���	J
��-	�
C6ice-9/save-stack.go000064400000001570150536206120010045 0ustar00GOOF----LE-8-2.0`]4hP]gguile�	�	gdefine-module*�	�	�	gice-9�	g
save-stack�	�		gfilenameS�	
fice-9/save-stack.scm�	greplacementsS�	gstack-saved?�	
gthe-last-stack�	
�	gset-current-module�	�	�	g
make-fluid�	g%stacks�	g
make-stack�C5h`v]4	
54>"GR4i5
R
h@�-13$C[4	�$��"
?\ C�g	narrowing
			;gstacks		6gfilenamefice-9/save-stack.scm�
	*
��		+	��		-	��		5	��	!	7	!��	%	7	��	(	7	0��	2	5	��	9	9	��
			;


gnameg
save-stack�CRCngm
		(gfilenamefice-9/save-stack.scm�		
��	,	&
��	-	(	��	6	(
��]	*
��	_
C6ice-9/binary-ports.go000064400000002172150536206120010434 0ustar00GOOF----LE-8-2.0b]*4hA]gguile�	�	gdefine-module*�	�	�	gice-9�	gbinary-ports�	�		gfilenameS�	
fice-9/binary-ports.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	�	gexportsS�	g
eof-object�	gopen-bytevector-input-port�	gmake-custom-binary-input-port�	gget-u8�	glookahead-u8�	gget-bytevector-n�	gget-bytevector-n!�	gget-bytevector-some�	gget-bytevector-all�	g
get-string-n!�	gput-u8�	gput-bytevector�	gunget-bytevector�	gopen-bytevector-output-port�	 gmake-custom-binary-output-port�	! �	"gset-current-module�	#"�	$"�	%gload-extension�	&g
string-append�	'f	libguile-�	(geffective-version�	)fscm_init_r6rs_ports�C5hH�]4	
!54$>"G%i4&i'4(i55)6�gm
		,gfilenamefice-9/binary-ports.scm�		
��	1	1	��	7	1	��	8	1	+��	@	1	��	B	2	��	D	1
��		D
C6ice-9/poll.go000064400000101713150536206120006752 0ustar00GOOF----LE-8-2.0��]�4h{A]gguile�	�	gdefine-module*�	�	�	gice-9�	gpoll�	�		gfilenameS�	
fice-9/poll.scm�	gimportsS�	gsrfi�	
gsrfi-9�	
�	�	ggnu�	
�	�	grnrs�	gbytevectors�	�	�	�	gexportsS�	gmake-empty-poll-set�	g	poll-set?�	g
poll-set-nfds�	gpoll-set-find-port�	g
poll-set-port�	gpoll-set-events�	gset-poll-set-events!�	 gpoll-set-revents�	!gset-poll-set-revents!�	"g
poll-set-add!�	#gpoll-set-remove!�	$ !"#�	%gset-current-module�	&%�	'%�	(gload-extension�	)g
string-append�	*f	libguile-�	+geffective-version�	,f
scm_init_poll�	-g%sizeof-struct-pollfd�	.gerror�	/fUnexpected struct pollfd size�	0gdefined?�	1gPOLLIN�	2gcall-with-deferred-observers�	32�	42�	5gmodule-export!�	65�	75�	8gcurrent-module�	98�	:8�	;1�	<gPOLLPRI�	=<�	>gPOLLOUT�	?>�	@g	POLLRDHUP�	A@�	BgPOLLERR�	CB�	DgPOLLHUP�	ED�	FgPOLLNVAL�	GF�	Hg
<poll-set>�	Ig%make-poll-set-procedure�	Jgmake-syntax-transformer�	KJ�	LJ�	Mg
make-poll-set�	Ngmacro�	Og$sc-dispatch�	PO�	QO�	Rg_�	Sgany�	TRSSS�	Ug
syntax-object�	Vglambda�	Wgm-c625576-d�	Xgtop�	YWX�	Zgribcage�	[gt-c625576-a�	\gt-c625576-b�	]gt-c625576-c�	^[\]�	_YYY�	`fl-c625576-12�	afl-c625576-13�	bfl-c625576-14�	c`ab�	dZ^_c�	eZ�	fgx�	gf�	hY�	ifl-c625576-f�	ji�	kZghj�	lgshift�	mg	proc-name�	ngargs�	omn�	pX�	qpp�	rfl-1e8ba8b5a-60�	sfl-1e8ba8b5a-61�	trs�	uZoqt�	vgkey�	wgvalue�	xgname�	ygformals�	zgbody�	{vwxyz�	|ppppp�	}fl-1e8ba8b5a-53�	~fl-1e8ba8b5a-54�	fl-1e8ba8b5a-55��fl-1e8ba8b5a-56��fl-1e8ba8b5a-57��}~����Z{|���gmake-procedure-name�����p��fl-1e8ba8b5a-43�����Z�����p��fl-1e8ba8b5a-42�����Zg����Ydekleeeeu���
��ghygiene���
��UV����gpollfds��pdek�����U�����gnfds��U�����gports��U����������gmake-struct��gm-c625576-8���X��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���X�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������Z�����g	ctor-args�����fl-1e8ba8b5a-120�����Z�����gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������Z�q���gform��g	type-name��gconstructor-spec��gfield-names��������pppp��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������Z�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������pppppppp��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������Z�����fl-1e8ba8b5a-da�����Zg�����dekle�eee��e�����U�����UH����U
�����������������geach-any��Rߌ��gsyntax-violation��������fWrong number of arguments��gidentifier?��������pek��UI����������f-source expression failed to match any pattern��grecord-type-vtable��������gpwpwpw��gdefault-record-printer�������������gset-struct-vtable-name!��������gvtable-offset-user��������g%poll-set?-procedure��RS��gm-c625576-1e���X��gt-c625576-1d�����fl-c625576-23��Z�fl-c625576-20��Zg��eleeeeu���
�	UV��
gobj�gt-1e8ba8b5a-224�gt-1e8ba8b5a-21e�
gt-1e8ba8b5a-21f�gt-1e8ba8b5a-220�gt-1e8ba8b5a-223�gt-1e8ba8b5a-222�gt-1e8ba8b5a-221�
�gm-1e8ba8b5a-225�X��fl-1e8ba8b5a-229�fl-1e8ba8b5a-22a�fl-1e8ba8b5a-22b�fl-1e8ba8b5a-22c�fl-1e8ba8b5a-22d�fl-1e8ba8b5a-22e�fl-1e8ba8b5a-22f��Z�g	copier-id� �!fl-1e8ba8b5a-21c�"!�#Z �"�$g	ctor-name�%$�&fl-1e8ba8b5a-214�'&�(Z%�'�)��*fl-1e8ba8b5a-212�+*�,Z)�+�-glayout�.-�/fl-1e8ba8b5a-210�0/�1Z.�0�2g
immutable?�32�4fl-1e8ba8b5a-20e�54�6Z3�5�7gfield-count�87�9fl-1e8ba8b5a-20c�:9�;Z8�:�<g
getter-ids�=<�>fl-1e8ba8b5a-209�?>�@Z=�?�Ag	field-ids�BA�Cfl-1e8ba8b5a-206�DC�EZB�D�Fgpredicate-name�Gg
field-spec�H2���FG�Ipppppp�Jfl-1e8ba8b5a-1f9�Kfl-1e8ba8b5a-1fa�Lfl-1e8ba8b5a-1fb�Mfl-1e8ba8b5a-1fc�Nfl-1e8ba8b5a-1fd�Ofl-1e8ba8b5a-1fe�PJKLMNO�QZHIP�R�eleeeee#e(e,e1e6e;e@eEQ���SU
R��TS�Ugand�VUUR��Wgstruct?�XUWR��YXS�Zgeq?�[UZR��\g
struct-vtable�]U\R��^]S�_pe�`UH_��a[^`�bVYa�c	Tb�dpe�eU�d��fgthrow-bad-struct�gf�hf�igpset-pollfds�jg%pset-pollfds-procedure�kgfree-id�lg
%%on-error�mgm-c625576-2a�nmX�on�pfl-c625576-2c�qp�rZgoq�snerleeeeu����tUls��ukt�vuS�wg%%type�xgt-1e8ba8b5a-14b�ygt-1e8ba8b5a-14c�zgt-1e8ba8b5a-14d�{gt-1e8ba8b5a-14e�|gt-1e8ba8b5a-14f�}gt-1e8ba8b5a-150�~gt-1e8ba8b5a-151�xyz{|}~��gm-1e8ba8b5a-152���X�����������fl-1e8ba8b5a-156��fl-1e8ba8b5a-157��fl-1e8ba8b5a-158��fl-1e8ba8b5a-159��fl-1e8ba8b5a-15a��fl-1e8ba8b5a-15b��fl-1e8ba8b5a-15c�����������Z����ggetter��gindex������fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a������Z�q����<��ppp��fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������Z������erle�eee�e�����Uw����k���Rv�S��gck��gerr��gs������nn��fl-c625576-2f��fl-c625576-30������Z�����n�erleeeeu���
��U�����gquote��U�����p�er��UH�����������g%%index��U�����k���Rv�S��fl-c625576-34��fl-c625576-35������Z�����n�erleeeeu���
��U�����U������er��U
�����������g%%copier��U�����k���Rv�S��fl-c625576-39��fl-c625576-3a������Z�����n�erleeeeu���
��U�����U�����g%%<poll-set>-set-fields��p�er��U������������gt-c625576-29�����fl-c625576-3e�����Z�o���n�erleeeeu���
��UV������erle�eee�e�����U��������gif��U�����UZ����U\��������p�er��UH���������g
struct-ref��U������er��U
���������Uf����U�����Ui������������������������per��Uj����g%poll-set-nfds-procedure��gm-c625576-45���X�����fl-c625576-47�����Zg�����e�leeeeu�����Ul����k����S���e�le�eee�e�����Uw����k���R��S������fl-c625576-4a��fl-c625576-4b����Z����e�leeeeu���
�U���U���pe��UH����	U����
k	�R�
S�fl-c625576-4f�
fl-c625576-50�
�Z����e�leeeeu���
�U���U���e��U����U����k�R�S�fl-c625576-54�fl-c625576-55��Z����e�leeeeu���
�U��� U���!pe��"U�!��# "�$#�%gt-c625576-44�&%�'fl-c625576-59�('�)Z&�(�*�)e�leeeeu���
�+UV*��,�)e�le�eee�e����-U�,��.-�/U�,��0UZ,��1U\,��21-�3p)e��4UH3��5024�6U�,��7)e��8U7��96-8�:Uf,��;U�,��<U3��=;<�>:-=�?/59>�@+.?�Ape��BU�A��Cg
pset-ports�Dg%pset-ports-procedure�Egm-c625576-60�FEX�GF�Hfl-c625576-62�IH�JZgGI�KFeJleeeeu����LUlK��MkL�NMS�O�eJle�eee�e����PUwO��QkP�RRNQS�SFF�Tfl-c625576-65�Ufl-c625576-66�VTU�WZ�SV�XFWeJleeeeu���
�YU�X��ZU�X��[pWeJ�\UH[��]Z\�^]�_U�O��`k_�aRN`S�bfl-c625576-6a�cfl-c625576-6b�dbc�eZ�Sd�fFeeJleeeeu���
�gU�f��hU�f��ieeJ�jU	i��khj�lk�mU�O��nkm�oRNnS�pfl-c625576-6f�qfl-c625576-70�rpq�sZ�Sr�tFseJleeeeu���
�uU�t��vU�t��wpseJ�xU�w��yvx�zy�{gt-c625576-5f�|{�}fl-c625576-74�~}�Z|G~��FeJleeeeu���
��UV�����eJle�eee�e�����U��������U�����UZ����U\��������peJ��UH���������U�����eJ��U	���������Uf����U�����UC������������������������peJ��UD����geach��SS������S����S����S����g%%set-fields��gdummy��gcheck?��gexpr���������gm-c625576-7b���X���������fl-c625576-80��fl-c625576-81��fl-c625576-82��fl-c625576-83��fl-c625576-84���������Z��������fl-c625576-7d�����Zg����gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d���X�������fl-1e8ba8b5a-171��fl-1e8ba8b5a-172��fl-1e8ba8b5a-173�������Z�����fl-1e8ba8b5a-167��fl-1e8ba8b5a-168��fl-1e8ba8b5a-169�������Z�������e�le�eee���
��U�����p�e���UH����Ui����U����UC���������gmap��������glist��gset-pset-pollfds!��g%set-pset-pollfds!-procedure��RSS��gm-c625576-8f���X��gt-c625576-8d��gt-c625576-8e����������fl-c625576-94��fl-c625576-95������Z��������fl-c625576-91�����Zg������e�leeeeu���
��UV����gt-1e8ba8b5a-18c��gt-1e8ba8b5a-18d������gm-1e8ba8b5a-18e���X������fl-1e8ba8b5a-192��fl-1e8ba8b5a-193������Z�����gsetter��x����fl-1e8ba8b5a-186��fl-1e8ba8b5a-187��fl-1e8ba8b5a-188�������Z�����G���fl-1e8ba8b5a-17d��fl-1e8ba8b5a-17e������Z�q���gfield-specs������fl-1e8ba8b5a-179��fl-1e8ba8b5a-17a������Z�q�����e�le��e�e�����U����gval�U�����U����UZ���U\�����p�e��UH��	�
gstruct-set!�U
����e��
U
���
�Uf���U����U������	���pe��U���gset-pset-nfds!�g%set-pset-nfds!-procedure�gm-c625576-9f�X�gt-c625576-9d�gt-c625576-9e��� fl-c625576-a4�!fl-c625576-a5�" !�#Z"�$�%fl-c625576-a1�&%�'Zg$&�(#e'leeeeu���
�)UV(��*�#e'le��e�e����+U�*��,U*��-+,�.U�*��/UZ*��0U\*��10+�2p#e'�3UH2��4/13�5U
*��6#e'�7U6��85+7,�9Uf*��:U�*��;U2��<:;�=9+<�>.48=�?)->�@pe'�AU@��Bgset-pset-ports!�Cg%set-pset-ports!-procedure�Dgm-c625576-af�EDX�Fgt-c625576-ad�Ggt-c625576-ae�HFG�IEE�Jfl-c625576-b4�Kfl-c625576-b5�LJK�MZHIL�NE�Ofl-c625576-b1�PO�QZgNP�REMeQleeeeu���
�SUVR��T�MeQle��e�e����UU�T��VUT��WUV�XU�T��YUZT��ZU\T��[ZU�\pMeQ�]UH\��^Y[]�_U
T��`MeQ�aU	`��b_UaV�cUfT��dU�T��eUB\��fde�gcUf�hX^bg�iSWh�jpeQ�kUCj��lg
pollfd-offset�mg*�ngn�o�n�pgm-c625576-dc�qpX�rqp�sfl-c625576-e1�tfl-c625576-e2�ust�vZoru�wq�xfl-c625576-de�yx�zZgwy�{pvez�|Um{��}U	{��~}�gmake-bytevector��gmake-vector��g
vector-length��g	pset-size��gbytevector-copy!��gvector-move-left!��gensure-pset-size!��fpoll set index out of bounds��ginteger?��g
port->fdes��gport?��grelease-port-handle��gprimitive-poll�C5h(<a]4	
$54'>"G4(i4)i*4+i55,>"G-i	�$"4.i/-i>"G40i15$~447:;hA]4569gfilenamefice-9/poll.scm�
	,	��		
C>"G"40i<5${447:=hA]4569gfilenamefice-9/poll.scm�
	/	��		
C>"G"40i>5${447:?hA]4569gfilenamefice-9/poll.scm�
	2	��		
C>"G"40i@5${447:AhA]4569gfilenamefice-9/poll.scm�
	5	��		
C>"G"40iB5${447:ChA]4569gfilenamefice-9/poll.scm�
	8	��		
C>"G"40iD5${447:EhA]4569gfilenamefice-9/poll.scm�
	;	��		
C>"G"40iF5${447:GhA]4569gfilenamefice-9/poll.scm�
	>	��		
C>"G"Hh�]�C�gpollfds
		gnfds		gports			gfilenamefice-9/poll.scm�
	A
��			gnameg%make-poll-set-procedure�CIR4LMNQT�he]C]gt-c625576-a
		gt-c625576-b		gt-c625576-c						C��M�hQ]L6Iga
		gfilenamefice-9/poll.scm�		A
��		CR�hA]L69gfilenamefice-9/poll.scm�		A
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6zgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/poll.scm�
	A
��		nC5MR���H�4�H>"G	��Ii�HRHhs]�$��CCkgobj
		gfilenamefice-9/poll.scm�
	A
��		gnameg%poll-set?-procedure�C�R4LNQ�ch4]C,gt-c625576-1d
		
		
C���hQ]L6Iga
		gfilenamefice-9/poll.scm�		A
��		CR�hA]L69gfilenamefice-9/poll.scm�		A
��		
Ceh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6zgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/poll.scm�
	A
��		nC5RHhiht]�&
�C6lgs
		gfilenamefice-9/poll.scm�
	A
��		gnameg%pset-pollfds-procedure�CjR4LiNQ���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h4]C,gt-c625576-29
		
		
C��i�hQ]L6Iga
		gfilenamefice-9/poll.scm�		A
��		CR�hA]L69gfilenamefice-9/poll.scm�		A
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/poll.scm�
	A
��	�C5iRHhhu]�&�C6mgs
		gfilenamefice-9/poll.scm�
	A
��		gnameg%poll-set-nfds-procedure�C�R4LNQ�h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C$h:]��C2gerr
		gs					C�@h4]C,gt-c625576-44
		
		
C���hQ]L6Iga
		gfilenamefice-9/poll.scm�		A
��		CR�hA]L69gfilenamefice-9/poll.scm�		A
��		
CBh]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/poll.scm�
	A
��	�C5RHhCh r]�&	�C6jgs
		gfilenamefice-9/poll.scm�
	A
��		gnameg%pset-ports-procedure�CDR4LCNQRY^h:]��C2gerr
		gs					Caglh:]��C2gerr
		gs					Couzh:]��C2gerr
		gs					C��h4]C,gt-c625576-5f
		
		
C��C�hQ]L6Iga
		gfilenamefice-9/poll.scm�		A
��		CR�hA]L69gfilenamefice-9/poll.scm�		A
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/poll.scm�
	A
��	�C5CR4L�NQ������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/poll.scm�
	A
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�RHh�h �]�&
�C6�gs
		gval		gfilenamefice-9/poll.scm�
	A
��			gnameg%set-pset-pollfds!-procedure�C�R4L�NQ�hN]CFgt-c625576-8d
		gt-c625576-8e					C����hQ]L6Iga
		gfilenamefice-9/poll.scm�		A
��		CR�hA]L69gfilenamefice-9/poll.scm�		A
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6zgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/poll.scm�
	A
��		nC5�RHhh �]�&�C6gs
		gval		gfilenamefice-9/poll.scm�
	A
��			gnameg%set-pset-nfds!-procedure�CR4LNQ�?hN]CFgt-c625576-9d
		gt-c625576-9e					C���hQ]L6Iga
		gfilenamefice-9/poll.scm�		A
��		CR�hA]L69gfilenamefice-9/poll.scm�		A
��		
CAh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6zgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/poll.scm�
	A
��		nC5RHhBh �]�&	�C6�gs
		gval		gfilenamefice-9/poll.scm�
	A
��			gnameg%set-pset-ports!-procedure�CCR4LBNQ�ihN]CFgt-c625576-ad
		gt-c625576-ae					C��B�hQ]L6Iga
		gfilenamefice-9/poll.scm�		A
��		CR�hA]L69gfilenamefice-9/poll.scm�		A
��		
Ckh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6zgx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/poll.scm�
	A
��		nC5BR4LlNQ�|~h<]��C4gdummy
		gn					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/poll.scm�
	I
��		"g
macro-typegsyntax-rules�gpatternsgnC5lR�Hh8�-.,3#	4	�
545
�C�g
pre-allocated
		8gpollfds	)	8gports		)	8gfilenamefice-9/poll.scm�
	L
��		M	��		M	"��	!	M	��	"	O	��	)	M	��		8
gnamegmake-empty-poll-set�CR�HhCh(x]�&		�"	456pgset
		!gfilenamefice-9/poll.scm�
	Q
��		R	��	!	R	��		!gnameg	pset-size�C�R�HhiC����B
h�]:45�$"��$	�"����&
�"	45�&�"	45�&		�"	454	�
5454	

	�>"G4


>"G�&
�"4>"G�&	�C6"��C�gset
	gsize	gprev			gnew		gold-pollfds	�gnfds	�g	old-ports	�gnew-pollfds	�g	new-ports	�	gfilenamefice-9/poll.scm�
	T
��		U	��			U	��		V	��		V	��		W	��		X	��	!	X	
��	&	Y	��	,	Y	��	/	Z	!��	I	[	��	c	\	��	|	]	!���	]	2���	]	!���	^	���	Z	���	_	���	`	"���	_	���	a	���	b	���	c	��	W	��		gnamegensure-pset-size!�C�RHhChh�]
"T�&�"	45�$1�&		�"	45��$C�"���C
"����gset
		agport		agi			Zgfilenamefice-9/poll.scm�
	e
��		f	��		g	
��	#	g	��	'	g	��	*	h	 ��	E	h	��	H	h	��	L	h	��	R	j	��	X	j	��	Z	f	��
		a	gnamegpoll-set-find-port�CRHhC.�hP�]�&�"	45�$�&		�"	45�C6�gset
		Lgidx		Lgfilenamefice-9/poll.scm�
	m
��		n	
��		n	��	#	n	��	&	o	��	A	o	��	F	p	
��	L	p	��			L	gnameg
poll-set-port�CRHhi.�hX�]�&�"	45�$$�&
�"	45	�	��C6�gset
		Qgidx		Qgfilenamefice-9/poll.scm�
	r
��		s	
��		s	��	#	s	��	&	t	!��	B	t	7��	E	t	4��	F	t	��	K	u	
��	Q	u	��		Q	gnamegpoll-set-events�CRHhi.�hX�]�&�"	45�$'�&
�"	45	�	��C6�gset
		Tgidx		Tgevents			Tgfilenamefice-9/poll.scm�
	w
��		x	
��		x	��	#	x	��	&	y	"��	B	y	8��	E	y	5��	H	y	��	N	{	
��	T	{	��		T	gnamegset-poll-set-events!�CRHhi.�hX�]�&�"	45�$$�&
�"	45	�	��C6�gset
		Qgidx		Qgfilenamefice-9/poll.scm�
	}
��		~	
��		~	��	#	~	��	&		!��	B		7��	E		4��	F		��	K�	
��	Q�	��		Q	gnamegpoll-set-revents�C RHhi.�hX�]�&�"	45�$'�&
�"	45	�	��C6�gset
		Tgidx		Tgrevents			Tgfilenamefice-9/poll.scm�
�
��	�	
��	�	��	#�	��	&�	"��	B�	8��	E�	5��	H�	��	N�	
��	T�	��		T	gnamegset-poll-set-revents!�C!RHh�����iCh�]#�&�"	45	�45$"4545$4>"G"4�>"G�&
�"	4	5��&
�"	4	5	���&
�"	4	5	�
��&		�"	4
5���&�C6�gset
	g
fd-or-port	gevents		gidx		goff		#gfd		=gval	�gfilenamefice-9/poll.scm�
�
��	�	��	�	��	#�	��	#�	��	&�	��	0�	
��	7�	��	=�	��	@�	��	J�	��	K�	��	a�	��	h�	��	m�	��	x�	 ����	����	 ����	3����	����	 ����	3����	����	����	����	����	��		gnameg
poll-set-add!�C"RHh.�C��ih�"]"�&�"	45�$"4>"G�&�"	45	��&		�"	45�4�&		�"	45��&		�"	45>"G�&		�"	45��4�&
�"	4	5�	��&
�"	4	5	��	��>"G�&
�"	4	5�	�
���&�"4
>"GCgset
	�gidx	�gnfds		z�goff		z�gport		z�gval	j�gfilenamefice-9/poll.scm�
�
��	�	��	�	��	#�	��	(�	��	,�	
��	5�	��	@�	��	\�	
��	_�	��	z�	��	z�	����	����	����	(����	����	����	����	"����	����	����	��
�	8���	)���	��1�	��4�	=��7�	.��8�	��=�	��H�	 ��b�	B��e�	3��g�	��j�	��j�	��%	�	gnamegpoll-set-remove!�C#R�HhiChp�-.,3#	��&
�"	45�&�"	45�&		�"	456�gpoll-set
		kgtimeout		kgfilenamefice-9/poll.scm�
�
��	�	��	5�	��	O�	��	k�	��		kgnamegpoll�CRCYgm
		,grtd
��gfilenamefice-9/poll.scm�		
��	-	%	��	2	%	��	8	%	!��	9	%	-��	A	%	��	C	&	��	H	%	��	W	(		��	[	(
��	`	)	��	f	)	��	o	)	��	x	+	��	~	+	���	+	���	+
���	,	��	.	��		.	��	.	��	.
��	/	���	1	���	1	���	1	���	1
���	2	��	4	��	4	��	4	��	4
�� 	5	���	7	���	7	���	7	���	7
���	8	��#	:	��)	:	��+	:	��/	:
��0	;	���	=	���	=	���	=	���	=
���	>	���	A
��'�	L
��(�	Q
��+�	T
��-e	e
��.�	m
��/�	r
��1+	w
��2m	}
��3��
��6��
��:��
��<%�
��>	<'
C6ice-9/curried-definitions.go000064400000013403150536206120011750 0ustar00GOOF----LE-8-2.0�]�4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gcurried-definitions�	�		gfilenameS�	
fice-9/curried-definitions.scm�	greplacementsS�	gcdefine�	
gdefine�	
��	gcdefine*�	gdefine*�	��	g
define-public�	gdefine*-public�	�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	gany�	 ��	!geach-any�	"!��	# "��	$#��	%g
syntax-object�	&gtop�	'&�	(gribcage�	)gdummy�	*ghead�	+grest�	,gbody�	-gbody*�	.)*+,-�	/gm-17381246c69178d0-0�	0/&�	10''''�	2fl-17381246c69178d0-5�	3fl-17381246c69178d0-6�	4fl-17381246c69178d0-7�	5fl-17381246c69178d0-8�	6fl-17381246c69178d0-9�	723456�	8(.17�	9(�	:gx�	;:�	<0�	=fl-17381246c69178d0-2�	>=�	?(;<>�	@'89?�	Aghygiene�	BA�	C%@B�	Dglambda�	E%D@B�	F�	Ggname�	Hgval�	I)GH�	J0''�	Kfl-17381246c69178d0-11�	Lfl-17381246c69178d0-12�	Mfl-17381246c69178d0-13�	NKLM�	O(IJN�	P'O9?�	Q%
PB�	Rgsyntax-violation�	SR�	TR�	Uf-source expression failed to match any pattern�	Vgm-17381246c69178d0-17�	WV&�	XW''''�	Yfl-17381246c69178d0-1c�	Zfl-17381246c69178d0-1d�	[fl-17381246c69178d0-1e�	\fl-17381246c69178d0-1f�	]fl-17381246c69178d0-20�	^YZ[\]�	_(.X^�	`W�	afl-17381246c69178d0-19�	ba�	c(;`b�	d'_9c�	e%dB�	fglambda*�	g%fdB�	hW''�	ifl-17381246c69178d0-28�	jfl-17381246c69178d0-29�	kfl-17381246c69178d0-2a�	lijk�	m(Ihl�	n'm9c�	o%nB�	pgm-17381246c69178d0-2e�	qp&�	rq''''�	sfl-17381246c69178d0-33�	tfl-17381246c69178d0-34�	ufl-17381246c69178d0-35�	vfl-17381246c69178d0-36�	wfl-17381246c69178d0-37�	xstuvw�	y(.rx�	zq�	{fl-17381246c69178d0-30�	|{�	}(;z|�	~'y9}�	%~B��%D~B��gbegin��q''��fl-17381246c69178d0-3f��fl-17381246c69178d0-40��fl-17381246c69178d0-41�������(I����'�9}��%��B��%
�B��gexport��%��B��gm-17381246c69178d0-45���&���''''��fl-17381246c69178d0-4a��fl-17381246c69178d0-4b��fl-17381246c69178d0-4c��fl-17381246c69178d0-4d��fl-17381246c69178d0-4e���������(.�������fl-17381246c69178d0-47�����(;����'�9���%�B��%f�B���''��fl-17381246c69178d0-56��fl-17381246c69178d0-57��fl-17381246c69178d0-58�������(I����'�9���%��B��%�B��%��B�C5h�	a]4	
54>"G4$CEhv]���Cngdummy
		ghead		grest			gbody			gbody*						CFQhP]CHgdummy
		gname		gval						CTUh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/curried-definitions.scm�
		��		9g
macro-typegsyntax-rules�gpatternsgheadgrest�gbodygbody*g...gnamegvalC5R4$eghv]���Cngdummy
		ghead		grest			gbody			gbody*						CFohP]CHgdummy
		gname		gval						CTUh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/curried-definitions.scm�
		��		9g
macro-typegsyntax-rules�gpatternsgheadgrest�gbodygbody*g...gnamegvalC5R4$�hv]���Cngdummy
		ghead		grest			gbody			gbody*						CF���hP]CHgdummy
		gname		gval						CTUh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/curried-definitions.scm�
	'	��		9g
macro-typegsyntax-rules�gpatternsgheadgrest�gbodygbody*g...gnamegvalC5R4$��hv]���Cngdummy
		ghead		grest			gbody			gbody*						CF���hP]CHgdummy
		gname		gval						CTUh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/curried-definitions.scm�
	1	��		9g
macro-typegsyntax-rules�gpatternsgheadgrest�gbodygbody*g...gnamegvalC5RCYgm
		(gfilenamefice-9/curried-definitions.scm�		
��		�
C6ice-9/buffered-input.go000064400000010645150536206120010726 0ustar00GOOF----LE-8-2.0�]!4ha]gguile�	�	gdefine-module*�	�	�	gice-9�	gbuffered-input�	�		gfilenameS�	
fice-9/buffered-input.scm�	gexportsS�	gmake-buffered-input-port�	
gmake-line-buffered-input-port�	g!set-buffered-input-continuation?!�	
�	gset-current-module�	�	�	gmake-object-property�	gbuffered-input-continuation?�	gsetter�	�	�	f�	g
string-length�	g
string-ref�	gchar-whitespace?�	geof-object?�	gmake-soft-port�	fr�	g
string-append�	 f
�C5h`�]4	
54>"G4i5Rh@]4568gport
		gval		gfilenamefice-9/buffered-input.scm�
	
��		!	��			gnameg!set-buffered-input-continuation?!�g
documentationf�Set the read continuation flag for @var{port} to @var{val}.

See @code{make-buffered-input-port} for the meaning and use of this
flag.�CRhx]M4M5�$:4MM5M�N45$"445M>"GC4L4M5545$CN
N"���gres
		Jgx
	V	qgfilenamefice-9/buffered-input.scm�
	?	��		@	$��		@	��		@	��		B	��		B	��		C	)��	 	C	��	!	D	��	+	D	��	0	E	��	K	H	��	N	H	%��	V	H	��	V	H	��	Y	J	��	c	I	��	j	N	��	m	O	��	q	P	��		q
gnameg
get-character�Chu]4M5M�Cmgfilenamefice-9/buffered-input.scm�
	R	��		S	��		S	��		
gnameg
input-waiting�Chh5])
HHHOQK4O5K445J>"GJC-greader
		egread-string		egstring-index			egport		
	eg
get-character			egport		&	/gfilenamefice-9/buffered-input.scm�
	#
��		<	��		<	��	
	>	��	0	U	��	D	U	!��	F	U	R��	H	U	��	J	U	��	K	V	��		egnamegmake-buffered-input-port�g
documentationf�Construct a line-buffered input port from the specified @var{reader}.
@var{reader} should be a procedure of one argument that somehow reads
a chunk of input and returns it as a string.

The port created by @code{make-buffered-input-port} does @emph{not}
interpolate any additional characters between the strings returned by
@var{reader}.

@var{reader} should take a boolean @var{continuation?} argument.
@var{continuation?} indicates whether @var{reader} is being called to
start a logically new read operation (in which case
@var{continuation?} is @code{#f}) or to continue a read operation for
which some input has already been read (in which case
@var{continuation?} is @code{#t}).  Some @var{reader} implementations
use the @var{continuation?} argument to determine what prompt to
display to the user.

The new/continuation distinction is largely an application-level
concept: @code{set-buffered-input-continuation?!} allows an
application to specify when a read operation is considered to be new.
But note that if there is non-whitespace data already buffered in the
port when a new read operation starts, this data will be read before
the first call to @var{reader}, and so @var{reader} will be called
with @var{continuation?} set to @code{#t}.�CR h(�]	4L545$C6�g
continuation?
		!gstr			!gfilenamefice-9/buffered-input.scm�
	f	��		g	)��			g	��		h	$��		h	 ��		j	7��	!	j	$��		!Ch�]O6�greader
		
gfilenamefice-9/buffered-input.scm�
	Y
��	
	f	��		
gnamegmake-line-buffered-input-port�g
documentationfConstruct a line-buffered input port from the specified @var{reader}.
@var{reader} should be a procedure of one argument that somehow reads
a line of input and returns it as a string @emph{without} the
terminating newline character.

The port created by @code{make-line-buffered-input-port} automatically
interpolates a newline character after each string returned by
@var{reader}.

@var{reader} should take a boolean @var{continuation?} argument.  For
the meaning and use of this argument, see
@code{make-buffered-input-port}.�C
RC{gm
		(gfilenamefice-9/buffered-input.scm�		
��	)		%��	2	
���	
��
�	#
��Y	Y
��	[
C6ice-9/receive.go000064400000003301150536206120007420 0ustar00GOOF----LE-8-2.0�]C4h]gguile�	�	gdefine-module*�	�	�	gice-9�	greceive�	�		gfilenameS�	
fice-9/receive.scm�	gexportsS�	�	
gset-current-module�	
�	
�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	gany�	��	��	��	g
syntax-object�	gcall-with-values�	gtop�	�	gribcage�	 gdummy�	!gvars�	"gvals�	#gbody�	$ !"#�	%gm-45d2cb8b0a-f�	&%�	'&�	(fl-45d2cb8b0a-14�	)fl-45d2cb8b0a-15�	*fl-45d2cb8b0a-16�	+fl-45d2cb8b0a-17�	,()*+�	-$',�	.�	/gx�	0/�	1&�	2fl-45d2cb8b0a-11�	32�	4013�	5-.4�	6ghygiene�	76�	857�	9glambda�	:957�	;gsyntax-violation�	<;�	=;�	>f-source expression failed to match any pattern�	?gcond-expand-provide�	@gcurrent-module�	Agsrfi-8�	BA�C5h�o]4	
54>"G48:hc]��C[gdummy
		gvars		gvals			gbody						C=>h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/receive.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgvarsgvalsgbody��C5R?i4@i5B6ggm
		(gfilenamefice-9/receive.scm�		
���		���		&���	
��	�
C6ice-9/q.go000064400000006304150536206120006244 0ustar00GOOF----LE-8-2.0�]"4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gq�	�		gfilenameS�	
fice-9/q.scm�	gexportsS�	gsync-q!�	
gmake-q�	gq?�	gq-empty?�	g
q-empty-check�	gq-front�	gq-rear�	g	q-remove!�	gq-push!�	genq!�	gq-pop!�	gdeq!�	gq-length�	

�	gset-current-module�	�	�	g	last-pair�	gthrow�	gq-empty�	 gdelq!�	!glength�C5h�	�]4	
54>"Gh �]��$4�5"�C�gq
		gfilenamefice-9/q.scm�
	E
��		F	��		F	��		F	��	
	F	"��		F	-��		F	"��		F	��			gnamegsync-q!�CRh`]�CXgfilenamefice-9/q.scm�
	M
��		M	��		M	��		
gnamegmake-q�C
Rh0�]�$#��$
�4�5�C�(��CCC�gobj
		.gfilenamefice-9/q.scm�
	U
��		V	��			V	��		W	��	
	W	��		W	��		X	��		X	��		X	%��		X	��		X	��	!	Y	��	%	Y	��	(	Z	��	)	Z	��		.gnamegq?�CRht]��Clgobj
		gfilenamefice-9/q.scm�
	^
��		^	��		^	��		gnamegq-empty?�CRh�]45$6Cgq
		gfilenamefice-9/q.scm�
	b
��		b	��	
	b	��		b	2��		b	+��		gnameg
q-empty-check�CRh q]4>"G��Cigq
		gfilenamefice-9/q.scm�
	f
��		f	��		f	&��		gnamegq-front�CRh p]4>"G��Chgq
		gfilenamefice-9/q.scm�
	j
��		j	��		j	%��		gnamegq-rear�CR h�]4�5�6�gq
		gobj		gfilenamefice-9/q.scm�
	n
��		o	��		o	��		o	��		o	��		p	��			gnameg	q-remove!�CRh0�]����$"�C�gq
		,gobj		,gh			)gt			&gfilenamefice-9/q.scm�
	t
��		u	��		u	��		u	��		v	��		w	��		w	��	#	w	��			,	gnamegq-push!�CRh0�]
�(	�"���C�gq
		*gobj		*gh			'gfilenamefice-9/q.scm�
	|
��		}	��		}	��		~	��		~	��			��	�	��	�	��	$�	��
		*	gnamegenq!�CRh8�]4>"G����(�"�C�gq
		6git		6gnext			6gfilenamefice-9/q.scm�
�
��	�	��	�	��	�	��	�	��	&�	��	*�	��	3�	��			6gnamegq-pop!�CRiR!hu]�6mgq
			gfilenamefice-9/q.scm�
�
��	�	��		�	��			gnamegq-length�CRC�gm
		(gfilenamefice-9/q.scm�		:
���	E
��k	M
���	U
��	^
���	b
��t	f
��	j
���	n
���	t
���	|
��	�
��	�
��	��
��		�
C6ice-9/serialize.go000064400000011676150536206120010003 0ustar00GOOF----LE-8-2.0�]44h^]gguile�	�	gdefine-module*�	�	�	gice-9�	g	serialize�	�		gfilenameS�	
fice-9/serialize.scm�	gimportsS�	gthreads�	
�	
�	�	gexportsS�	gcall-with-serialization�	gcall-with-parallelization�	gparallelize�	�	gset-current-module�	�	�	g
make-mutex�	gserialization-mutex�	gadmin-mutex�	gowner�	g
lock-mutex�	gdynamic-root�	gunlock-mutex�	gmake-syntax-transformer�	 �	!�	"gmacro�	#g$sc-dispatch�	$#�	%#�	&g_�	'gany�	(&'��	)g
syntax->datum�	*)�	+)�	,g
datum->syntax�	-,�	.,�	/glambda�	0gsyntax-violation�	10�	20�	3f-source expression failed to match any pattern�C5h`�]4	
54>"G4i5R4i5RRhX�]4>"GNM45�$64>"G4>"G45 C�gfilenamefice-9/serialize.scm�
	F	��		G	
��		H	
��		I	%��	 	I	��	$	I	
��	*	N	��	+	K	��	=	L	��	O	M	��	U	M	��		W
Ch@~]4>"GM45�$" 4>"G6vgfilenamefice-9/serialize.scm�
	P	��		Q	
��		R	%��		R	��	 	R	
��	'	T	��	(	U	��	?	V	
��			?
ChX�]4>"GNM45�$64>"G4>"G45 C�gfilenamefice-9/serialize.scm�
	F	��		G	
��		H	
��		I	%��	 	I	��	$	I	
��	*	N	��	+	K	��	=	L	��	O	M	��	U	M	��		W
Ch@~]4>"GM45�$" 4>"G6vgfilenamefice-9/serialize.scm�
	P	��		Q	
��		R	%��		R	��	 	R	
��	'	T	��	(	U	��	?	V	
��			?
Ch@~]4>"GM45�$" 4>"G6vgfilenamefice-9/serialize.scm�
	P	��		Q	
��		R	%��		R	��	 	R	
��	'	T	��	(	U	��	?	V	
��			?
Ch`�]	HOO4O>"GV4>X4O>"GCX4O>"GF�gthunk
		_gouter-owner		_gfilenamefice-9/serialize.scm�
	C
��		D	��		E	��		_gnamegcall-with-serialization�CR4!"%(+./hc-13��C[gforms
			gfilenamefice-9/serialize.scm�
	X
��		Y	��			


Chg]	45L4?6_gargs
		gv			gfilenamefice-9/serialize.scm�		X
��		C23h(e]	45$O@6]gy
		'gtmp		'gfilenamefice-9/serialize.scm�
	X
��		'C5RhH�]4>"GNM45�$ 4>"G"6~gfilenamefice-9/serialize.scm�
	^	��		_	
��		`	
��		a	 ��	 	a	��	$	a	
��	'	c	��	(	d	��	C	e	
��
		C
ChP�]4>"GM45�$*4>"G4>"GM C6~gfilenamefice-9/serialize.scm�
	g	��		h	
��		i	 ��		i	��	 	i	
��	!	k	��	3	l	��	H	m	��	P	n	��
		P
ChH�]4>"GNM45�$ 4>"G"6~gfilenamefice-9/serialize.scm�
	^	��		_	
��		`	
��		a	 ��	 	a	��	$	a	
��	'	c	��	(	d	��	C	e	
��
		C
ChP�]4>"GM45�$*4>"G4>"GM C6~gfilenamefice-9/serialize.scm�
	g	��		h	
��		i	 ��		i	��	 	i	
��	!	k	��	3	l	��	H	m	��	P	n	��
		P
ChP�]4>"GM45�$*4>"G4>"GM C6~gfilenamefice-9/serialize.scm�
	g	��		h	
��		i	 ��		i	��	 	i	
��	!	k	��	3	l	��	H	m	��	P	n	��
		P
Ch`�]	HOO4O>"GV4>X4O>"GCX4O>"GF�gthunk
		_gouter-owner		_gfilenamefice-9/serialize.scm�
	[
��		\	��		]	��		_gnamegcall-with-parallelization�CR4!"%(+./hc-13��C[gforms
			gfilenamefice-9/serialize.scm�
	p
��		q	��			


Chg]	45L4?6_gargs
		gv			gfilenamefice-9/serialize.scm�		p
��		C23h(e]	45$O@6]gy
		'gtmp		'gfilenamefice-9/serialize.scm�
	p
��		'C5RC�gm
		,gfilenamefice-9/serialize.scm�		7
��	-	?	��	6	?
��	7	@	��	@	@
��	D	A
���	C
��
�	[
��		\
C6ice-9/vlist.go000064400000237116150536206120007154 0ustar00GOOF----LE-8-2.06>]�4h�z]gguile�	�	gdefine-module*�	�	�	gice-9�	gvlist�	�		gfilenameS�	
fice-9/vlist.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	gsrfi-9�	�	�	ggnu�	�	�	gsrfi-26�	�	�	gformat�	�	�	�	gexportsS�	gvlist?�	g
vlist-cons�	 g
vlist-head�	!g
vlist-tail�	"gvlist-null?�	#g
vlist-null�	$glist->vlist�	%g	vlist-ref�	&g
vlist-drop�	'g
vlist-take�	(gvlist-length�	)g
vlist-fold�	*gvlist-fold-right�	+g	vlist-map�	,gvlist-unfold�	-gvlist-unfold-right�	.gvlist-append�	/g
vlist-reverse�	0gvlist-filter�	1gvlist-delete�	2gvlist->list�	3gvlist-for-each�	4gblock-growth-factor�	5gvhash?�	6g
vhash-cons�	7gvhash-consq�	8gvhash-consv�	9gvhash-assoc�	:g
vhash-assq�	;g
vhash-assv�	<gvhash-delete�	=g
vhash-delq�	>g
vhash-delv�	?g
vhash-fold�	@gvhash-fold-right�	Agvhash-fold*�	Bgvhash-foldq*�	Cgvhash-foldv*�	Dgalist->vhash�	E !"#$%&'()*+,-./0123456789:;<=>?@ABCD'�	Fgset-current-module�	GF�	HF�	Ig
make-fluid�	Jgmake-vector�	Kg% make-block-procedure�	Lgmake-syntax-transformer�	ML�	NL�	Og
make-block�	Pgmacro�	Qg$sc-dispatch�	RQ�	SQ�	Tg_�	Ugany�	VTUUUU�	Wg
syntax-object�	Xgsyntax-parameterize�	Ygm-198d9e0d-123b�	Zgtop�	[YZ�	\gribcage�	]gt-198d9e0d-1237�	^gt-198d9e0d-1238�	_gt-198d9e0d-1239�	`gt-198d9e0d-123a�	a]^_`�	b[[[[�	cfl-198d9e0d-1240�	dfl-198d9e0d-1241�	efl-198d9e0d-1242�	ffl-198d9e0d-1243�	gcdef�	h\abg�	i\�	jgx�	kj�	l[�	mfl-198d9e0d-123d�	nm�	o\kln�	pgshift�	qg	proc-name�	rgargs�	sqr�	tZ�	utt�	vf
l-bde397a-8e8�	wf
l-bde397a-8e9�	xvw�	y\sux�	zgname�	{gformals�	|gbody�	}z{|�	~ttt�	f
l-bde397a-8df��f
l-bde397a-8e0��f
l-bde397a-8e1������\}~���gmake-procedure-name��gprefix������tt��f
l-bde397a-8d3��f
l-bde397a-8d1������\�����t��f
l-bde397a-8d0�����\k����[hiopiiiiy���
��ghygiene�����WX����thio�����WO����gidentifier-syntax��W�����WK���������������glambda��W�����gbase��W�����goffset��W�����gsize��W�����g	hash-tab?��W�����������gif��W�����gvector��W�����WJ����g*��W�����W	���������W���������W
����������������������������������������geach-any��T����gsyntax-violation��������fWrong number of arguments��gidentifier?��������tio��WK����f-source expression failed to match any pattern��gdefine-block-accessor��UUU��gdefine-inlinable��gdummy��gindex���z���gm-198d9e0d-1262���Z���tt��fl-198d9e0d-1267��fl-198d9e0d-1268��fl-198d9e0d-1269�������\��������fl-198d9e0d-1264�����\k����t�i���W�����gblock��W��������g
vector-ref��W�����g% block-content-procedure��g
block-content��TU��gm-198d9e0d-126f���Z��gt-198d9e0d-126e��������fl-198d9e0d-1274�����\�����fl-198d9e0d-1271�����\k������i�piiiiy���
��WX����t�i���W�����W�����W����������������W�����gm-198d9e0d-126d���Z����i�p�i���W��������W�����W
�����������������ti��W���g% block-base-procedure�g
block-base�gm-198d9e0d-128b�Z�gt-198d9e0d-128a��	�
fl-198d9e0d-1290�
�\	�
fl-198d9e0d-128d�
�\k	�ipiiiiy���
�WX��ti�W��W���W�����W���gm-198d9e0d-1289�Z�ip�i��W����W��� W��! �"!�#"�$ti�%W$��&g% block-offset-procedure�'gblock-offset�(gm-198d9e0d-12a7�)(Z�*gt-198d9e0d-12a6�+*�,)�-fl-198d9e0d-12ac�.-�/\+,.�0fl-198d9e0d-12a9�10�2\k,1�3)/i2piiiiy���
�4WX3��5t/i2�6W'5��7W�3��8W&5��978�:69�;:�<W�3��=gm-198d9e0d-12a5�>=Z�?>/i2p�i��@W�?��A@�BW�?��CW	5��DB@C�E<AD�F4;E�Gti2�HW&G��Ig% block-size-procedure�Jg
block-size�Kgm-198d9e0d-12c3�LKZ�Mgt-198d9e0d-12c2�NM�OL�Pfl-198d9e0d-12c8�QP�R\NOQ�Sfl-198d9e0d-12c5�TS�U\kOT�VLRiUpiiiiy���
�WWXV��XtRiU�YWJX��ZW�V��[WIX��\Z[�]Y\�^]�_W�V��`gm-198d9e0d-12c1�a`Z�baRiUp�i��cW�b��dc�eW�b��fW	X��gecf�h_dg�iW^h�jtiU�kWIj��lg% block-next-free-procedure�mgblock-next-free�ngm-198d9e0d-12df�onZ�pgt-198d9e0d-12de�qp�ro�sfl-198d9e0d-12e4�ts�u\qrt�vfl-198d9e0d-12e1�wv�x\krw�youixpiiiiy���
�zWXy��{tuix�|Wm{��}W�y��~Wl{��}~��|�����W�y���gm-198d9e0d-12dd���Z���uixp�i���W��������W�����W	{�������������z����tix��Wl����g
vector-length��g% block-hash-table?-procedure��gblock-hash-table?��gm-198d9e0d-12fa���Z��gt-198d9e0d-12f9��������fl-198d9e0d-12ff�����\�����fl-198d9e0d-12fc�����\k������i�piiiiy���
��WX����t�i���W�����W�����W����������������W�����W��������g<��W�����WJ��������W�����W����������������������������ti���W�����g % set-block-next-free!-procedure��gset-block-next-free!��TUU��gm-198d9e0d-1336���Z��gt-198d9e0d-1334��gt-198d9e0d-1335����������fl-198d9e0d-133b��fl-198d9e0d-133c������\��������fl-198d9e0d-1338�����\k������i�piiiiy���
��WX����t�i���W�����W�����W����������������W�����W�����g	next-free��W���������gvector-set!��W�����W	��������������������ti���W�����g% block-append!-procedure��g
block-append!��TUUU��gm-198d9e0d-1357���Z��gt-198d9e0d-1354��gt-198d9e0d-1355��gt-198d9e0d-1356������������fl-198d9e0d-135c��fl-198d9e0d-135d��fl-198d9e0d-135e�������\��������fl-198d9e0d-1359�����\k������i�piiiiy���
��WX����t�i���W�����W�����W����������������W�����W�����gvalue��W�����W����������gand�W����W����WJ�������g=�W���Wm�����	��
gbegin�W
���W����
g1+�W
�������W����W���������W����	�������ti��W���g% block-ref-procedure�g	block-ref�gm-198d9e0d-13c0�Z� gt-198d9e0d-13be�!gt-198d9e0d-13bf�" !�#�$fl-198d9e0d-13c5�%fl-198d9e0d-13c6�&$%�'\"#&�(�)fl-198d9e0d-13c2�*)�+\k(*�,'i+piiiiy���
�-WX,��.t'i+�/W.��0W�,��1W.��201�3/2�43�5W�,��6gcontent�7W6.��8W�.��978�:W�.��;:78�<59;�=-4<�>ti+�?W>��@g(% block-hash-table-next-offset-procedure�Agblock-hash-table-next-offset�Bgm-198d9e0d-13e1�CBZ�Dgt-198d9e0d-13de�Egt-198d9e0d-13df�Fgt-198d9e0d-13e0�GDEF�HCCC�Ifl-198d9e0d-13e6�Jfl-198d9e0d-13e7�Kfl-198d9e0d-13e8�LIJK�M\GHL�NC�Ofl-198d9e0d-13e3�PO�Q\kNP�RCMiQpiiiiy���
�SWXR��TtMiQ�UWAT��VW�R��WW@T��XVW�YUX�ZY�[W�R��\W6T��]W�T��^W�T��_\]^�`W�T��ag+�bWaT��cb]]^�d`\c�e[_d�fSZe�gtiQ�hW@g��ig-% block-hash-table-set-next-offset!-procedure�jg!block-hash-table-set-next-offset!�kgm-198d9e0d-1407�lkZ�mgt-198d9e0d-1403�ngt-198d9e0d-1404�ogt-198d9e0d-1405�pgt-198d9e0d-1406�qmnop�rllll�sfl-198d9e0d-140c�tfl-198d9e0d-140d�ufl-198d9e0d-140e�vfl-198d9e0d-140f�wstuv�x\qrw�yl�zfl-198d9e0d-1409�{z�|\ky{�}lxi|piiiiy���
�~WX}��txi|��Wj���W�}���Wi��������������W�}���W6���W����W����gnext-offset��W����������W����Wa��������������������~����ti|��Wi����g % block-hash-table-ref-procedure��gblock-hash-table-ref��gm-198d9e0d-1430���Z��gt-198d9e0d-142d��gt-198d9e0d-142e��gt-198d9e0d-142f������������fl-198d9e0d-1435��fl-198d9e0d-1436��fl-198d9e0d-1437�������\��������fl-198d9e0d-1432�����\k������i�piiiiy���
��WX����t�i���W�����W�����W����������������W�����W6����W�����gkhash��W����������W�����Wa������������������������ti���W�����g!% block-hash-table-set!-procedure��gblock-hash-table-set!��gm-198d9e0d-1456���Z��gt-198d9e0d-1452��gt-198d9e0d-1453��gt-198d9e0d-1454��gt-198d9e0d-1455��������������fl-198d9e0d-145b��fl-198d9e0d-145c��fl-198d9e0d-145d��fl-198d9e0d-145e��������\��������fl-198d9e0d-1458�����\k������i�piiiiy���
��WX����t�i���W�����W�����W����������������W�����W6����W�����W�����W�����������W�����Wa�������������������������ti���W�����g!% block-hash-table-add!-procedure��gblock-hash-table-add!��gm-198d9e0d-1480���Z��gt-198d9e0d-147c��gt-198d9e0d-147d��gt-198d9e0d-147e��gt-198d9e0d-147f��������������fl-198d9e0d-1485��fl-198d9e0d-1486��fl-198d9e0d-1487��fl-198d9e0d-1488��������\��������fl-198d9e0d-1482�����\k������i�piiiiy���
��WX����t�i��W����W����W�������W����W6���W����	W����
W����	
�Wj���
W����
	�
�W����	
����ti��W���g
block-null�g<vlist>�g%make-vlist-procedure�g
make-vlist�gm-198d9e0d-1501�Z�gt-198d9e0d-14ff�gt-198d9e0d-1500��� fl-198d9e0d-1506�!fl-198d9e0d-1507�" !�#\"�$�%fl-198d9e0d-1503�&%�'\k$&�(fl-1e8ba8b5a-60�)fl-1e8ba8b5a-61�*()�+\su*�,gkey�-,�z{|�.ttttt�/fl-1e8ba8b5a-53�0fl-1e8ba8b5a-54�1fl-1e8ba8b5a-55�2fl-1e8ba8b5a-56�3fl-1e8ba8b5a-57�4/0123�5\-.4�6��7t�8fl-1e8ba8b5a-43�98�:\679�;fl-1e8ba8b5a-42�<;�=\k�<�>#i'piiii+5:=
�?��@W�>?�At#i'�BW�A��CW�A��DBC�Egmake-struct�Fgm-198d9e0d-14fd�GFZ�Hgt-1e8ba8b5a-133�Igt-1e8ba8b5a-132�Jgt-1e8ba8b5a-131�KHIJ�Lgm-1e8ba8b5a-134�MLZ�NMMM�Ofl-1e8ba8b5a-138�Pfl-1e8ba8b5a-139�Qfl-1e8ba8b5a-13a�ROPQ�S\KNR�Tg	ctor-args�UT�Vfl-1e8ba8b5a-120�WV�X\U�W�Ygctor�Zgfield�[YZ�\fl-1e8ba8b5a-11c�]fl-1e8ba8b5a-11d�^\]�_\[u^�`gform�ag	type-name�bgconstructor-spec�cgfield-names�d`abc�etttt�ffl-1e8ba8b5a-111�gfl-1e8ba8b5a-112�hfl-1e8ba8b5a-113�ifl-1e8ba8b5a-114�jfghi�k\dej�lg
record-layout�mgfunctional-setters�ngsetters�ogcopier�pggetters�qgconstructor�rggetter-identifiers�sgfield-identifiers�tlmnopqrs�utttttttt�vfl-1e8ba8b5a-e9�wfl-1e8ba8b5a-e7�xfl-1e8ba8b5a-e5�yfl-1e8ba8b5a-e3�zfl-1e8ba8b5a-e1�{fl-1e8ba8b5a-df�|fl-1e8ba8b5a-dd�}fl-1e8ba8b5a-db�~vwxyz{|}�\tu~��fl-1e8ba8b5a-da�����\k����G#i'piSiiiX_ik���WE�?��WA���W
�?�����BC��@D���������������ti'��W����grecord-type-vtable��������gpwpw��gdefault-record-printer������������gset-struct-vtable-name!��������gvtable-offset-user��������g%vlist?-procedure��gm-198d9e0d-1510���Z��gt-198d9e0d-150f��������fl-198d9e0d-1515�����\�����fl-198d9e0d-1512�����\k������i�piiii+5:=
��W��?��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220��gt-1e8ba8b5a-223��gt-1e8ba8b5a-222��gt-1e8ba8b5a-221�����������gm-1e8ba8b5a-225���Z�����������fl-1e8ba8b5a-229��fl-1e8ba8b5a-22a��fl-1e8ba8b5a-22b��fl-1e8ba8b5a-22c��fl-1e8ba8b5a-22d��fl-1e8ba8b5a-22e��fl-1e8ba8b5a-22f�����������\�����g	copier-id�����fl-1e8ba8b5a-21c�����\�����g	ctor-name�����fl-1e8ba8b5a-214�����\�����c��fl-1e8ba8b5a-212�����\�����glayout�����fl-1e8ba8b5a-210�����\�����g
immutable?�����fl-1e8ba8b5a-20e�����\�����gfield-count�����fl-1e8ba8b5a-20c�����\�����g
getter-ids�����fl-1e8ba8b5a-209�����\�����g	field-ids�����fl-1e8ba8b5a-206�����\�����gpredicate-name��g
field-spec���`ab����tttttt��fl-1e8ba8b5a-1f9��fl-1e8ba8b5a-1fa��fl-1e8ba8b5a-1fb��fl-1e8ba8b5a-1fc��fl-1e8ba8b5a-1fd��fl-1e8ba8b5a-1fe����������\�����G�i�pi�iiii�i�i�i�i�i�i�i�����W��?�����W��?��gstruct?��W��?������geq?��W��?��g
struct-vtable��W��?������t�i��W������������ti��W���gthrow-bad-struct���	g
vlist-base�
g%vlist-base-procedure�gfree-id�g
%%on-error�
gm-198d9e0d-151c�
Z��fl-198d9e0d-151e��\k�ipiiii+5:=�W?��U�g%%type�gt-1e8ba8b5a-14b�gt-1e8ba8b5a-14c�gt-1e8ba8b5a-14d�gt-1e8ba8b5a-14e�gt-1e8ba8b5a-14f�gt-1e8ba8b5a-150�gt-1e8ba8b5a-151�� gm-1e8ba8b5a-152�! Z�"!!!!!!!�#fl-1e8ba8b5a-156�$fl-1e8ba8b5a-157�%fl-1e8ba8b5a-158�&fl-1e8ba8b5a-159�'fl-1e8ba8b5a-15a�(fl-1e8ba8b5a-15b�)fl-1e8ba8b5a-15c�*#$%&'()�+\"*�,ggetter�-,��.fl-1e8ba8b5a-149�/fl-1e8ba8b5a-14a�0./�1\-u0�2a���3fl-1e8ba8b5a-144�4fl-1e8ba8b5a-145�5fl-1e8ba8b5a-146�6345�7\2~6�8Gipi+iii1i7��9W8?�:9�;T:U�<gck�=gerr�>gs�?=>�@�Afl-198d9e0d-1521�Bfl-198d9e0d-1522�CAB�D\?@C�EDipiiii+5:=
�FW<E?�Ggquote�HWGE?�ItDi�JWI��KHJ�LK�Mg%%index�NWM8?�ON�PTOU�Qfl-198d9e0d-1526�Rfl-198d9e0d-1527�SQR�T\?@S�UTipiiii+5:=
�VW<U?�WWGU?�XTi�YW
X��ZWY�[Z�\g%%copier�]W\8?�^]�_T^U�`fl-198d9e0d-152b�afl-198d9e0d-152c�b`a�c\?@b�dcipiiii+5:=
�eW<d?�fWGd?�gg%%<vlist>-set-fields�htci�iWgh��jfi�kj�lgt-198d9e0d-151b�ml�nfl-198d9e0d-1530�on�p\mo�qpipiiii+5:=
�rW�q?�sGpipi+iii1i7��tW>s?�ut�vW�s?�wW�s?�xW�s?�yxt�ztpi�{Wz��|wy{�}g
struct-ref�~W}s?�pi��W
���~t���Ws?��WGs?��W	z��������t���v|����ru���ti��W
����gvlist-offset��g%vlist-offset-procedure��gm-198d9e0d-1537���Z�����fl-198d9e0d-1539�����\k�����i�piiii+5:=��W�?������U��Gi�pi+iii1i7���W�?�����T��U������fl-198d9e0d-153c��fl-198d9e0d-153d������\?������i�piiii+5:=
��W<�?��WG�?��t�i���W�����������WM�?�����T��U��fl-198d9e0d-1541��fl-198d9e0d-1542������\?������i�piiii+5:=
��W<�?��WG�?���i���W�����������W\�?�����T��U��fl-198d9e0d-1546��fl-198d9e0d-1547������\?������i�piiii+5:=
��W<�?��WG�?��t�i���Wg�����������gt-198d9e0d-1536�����fl-198d9e0d-154b�����\�������i�piiii+5:=
��W��?��G�i�pi+iii1i7���W>�?�����W��?��W��?��W��?������t�i���W���������W}�?���i���W���������W�?��WG�?��W�������������������������ti���W�����geach��UU������U㌤�U䌤�U匤�g%%set-fields��gcheck?��gexpr����>,���gm-198d9e0d-1552���Z���GGGG��fl-198d9e0d-1557��fl-198d9e0d-1558��fl-198d9e0d-1559��fl-198d9e0d-155a��fl-198d9e0d-155b���������\��������fl-198d9e0d-1554�����\k����gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d���Z������fl-1e8ba8b5a-171�fl-1e8ba8b5a-172�fl-1e8ba8b5a-173��\���fl-1e8ba8b5a-167�fl-1e8ba8b5a-168�fl-1e8ba8b5a-169��	\2~�
G�i�piiii	�
�W�
?�t�i��
W��W	��W����gmap���glist�gset-record-type-printer!�f#<vlist ()>�f#<vhash ~x ~a pairs>�gobject-address�f#<vlist ~a>�gthrow�gwrong-type-arg�fNot a vlist: ~S�g% assert-vlist-procedure�gassert-vlist�gm-198d9e0d-157d� Z�!gt-198d9e0d-157c�"!�# �$fl-198d9e0d-1582�%$�&\"#%�'fl-198d9e0d-157f�('�)\k#(�* &i)piiiiy���
�+WX*��,t&i)�-W,��.W�*��/W,��0./�1-0�21�3W�*��4gval�5W4,��65�7gunless�8W7,��9W,��:95�;W,��<WG,��=W,��><=�?W,��@W,��AW,��BA5�C;>?@BB�D8:C�E36D�F+2E�Gti)�HWG��Ig% block-cons-procedure�Jg
block-cons�Kgm-198d9e0d-15a0�LKZ�Mgt-198d9e0d-159d�Ngt-198d9e0d-159e�Ogt-198d9e0d-159f�PMNO�QLLL�Rfl-198d9e0d-15a5�Sfl-198d9e0d-15a6�Tfl-198d9e0d-15a7�URST�V\PQU�WL�Xfl-198d9e0d-15a2�YX�Z\kWY�[LViZpiiiiy���
�\WX[��]tViZ�^WJ]��_W�[��`WI]��a_`�b^a�cb�dW�[��egitem�fWe]��gW]��hW�]��ifgh�jglet�kWj]��lW�]��mW	]��nmg�oln�pW�]��qW
]��rW�]��srg�tqs�upt�vou�wgcond�xWw]��yW�]��zylfp�{W]��|{lp�}z|�~gelse�W~]���glet*��W�]���W�]���WJ]����l������WO]���g1-��W�]����p��gzero?��W�]�������W]�������W�]����p�������W�]���g	fluid-ref��W�]���W4]���������������x������l��h��l�������W�]����l���W�]���W�]����l��W
]������f��{l�������������x}���kv���di���\c���tiZ��WI����gfold��gcons��gequal?��g
fold-right��ghash��ghashq��ghashv��g% %vhash-fold*-procedure��g%vhash-fold*��TUUUUUU��gm-198d9e0d-1bf6���Z��gt-198d9e0d-1bf0��gt-198d9e0d-1bf1��gt-198d9e0d-1bf2��gt-198d9e0d-1bf3��gt-198d9e0d-1bf4��gt-198d9e0d-1bf5������������������fl-198d9e0d-1bfb��fl-198d9e0d-1bfc��fl-198d9e0d-1bfd��fl-198d9e0d-1bfe��fl-198d9e0d-1bff��fl-198d9e0d-1c00����������\��������fl-198d9e0d-1bf8�����\k������i�piiiiy���
��WX����t�i���W�����W�����W����������������W�����gproc��W�����ginit��W�����W,����gvhash��W�����W�����W�������������gdefine��W�����gvisit-block��W�����W�����g
max-offset��W�����gresult��W�����������W�����W�����WJ������������W6����W�������������W�������������������Wj����gloop��W�����W�����W���������������������W����WA�������W����g<=�W������gcar�	W���
W���
���	�
���
�gcdr�W�����������g
next-block�W���W�������g>�W�����W
���� W'���! ��"�!��#"��$�#�%�$�&��%�'��&�(��'�)W���*)��+W	���,+��-�,�.-�/W����0/��1�,0��2.1��3��(*2�4��3�5ti��6W�5��7g% %vhash-assoc-procedure�8g%vhash-assoc�9gm-198d9e0d-2023�:9Z�;gt-198d9e0d-201f�<gt-198d9e0d-2020�=gt-198d9e0d-2021�>gt-198d9e0d-2022�?;<=>�@::::�Afl-198d9e0d-2028�Bfl-198d9e0d-2029�Cfl-198d9e0d-202a�Dfl-198d9e0d-202b�EABCD�F\?@E�G:�Hfl-198d9e0d-2025�IH�J\kGI�K:FiJpiiiiy���
�LWXK��MtFiJ�NW8M��OW�K��PW7M��QOP�RNQ�SR�TW�K��UW,M��VW�M��WW�M��XW�M��YUVWX�ZW�M��[W�M��\W�M��]W�M��^[\]�_W�M��`W�M��aWJM��ba\�c`b�dW6M��eW�M��fe\�gdf�hW�M��iXU`�jhi�kcgj�lWjM��mW�M��nW�M��oW�M��pod`h�qnp�rq�sW�M��tW�M��uWM��vun]�wWM��xWM��yxdn�zwy�{WUz�|tv{�}WAM��~}d`n�m~��s|y��WM���WM����\���������WM���a���W
M��������W'M����\��[����t����l����sn����lmr���_k���Z^���WM����V��W	M����V��a��������W�M����V��[����t����TY�����LS���tiJ��W7����geqv?�C5h��]4	
E54H>"G4Ii	54RJh0�]$4	�5
C45
C�gbase
		0goffset		0gsize			0g	hash-tab?			0gfilenamefice-9/vlist.scm�
	G
��		L	��			M	��		M	��		M	��		M	��		O	��	/	O	��			0	gnameg% make-block-procedure�CKR4NOPSV�h�]C�gt-198d9e0d-1237
		gt-198d9e0d-1238		gt-198d9e0d-1239			gt-198d9e0d-123a						C��O�hR]L6Jga
		gfilenamefice-9/vlist.scm�		G
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		G
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	G
��		nC5OR4N�PS�����hR]�CJgdummy
		gname		gindex						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/vlist.scm�
	R
��		"g
macro-typegsyntax-rules�gpatternsgnamegindexC5�Rh{]
�Csgblock
		gfilenamefice-9/vlist.scm�
	V
��		gnameg% block-content-procedure�C�R4N�PS�h7]C/gt-198d9e0d-126e
		
		
C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		V
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		V
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	V
��		nC5�Rhx]�Cpgblock
		gfilenamefice-9/vlist.scm�
	W
��		gnameg% block-base-procedure�CR4NPS�#h7]C/gt-198d9e0d-128a
		
		
C���hR]L6Jga
		gfilenamefice-9/vlist.scm�		W
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		W
��		
C%h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	W
��		nC5Rhz]	�Crgblock
		gfilenamefice-9/vlist.scm�
	X
��		gnameg% block-offset-procedure�C&R4N'PS�Fh7]C/gt-198d9e0d-12a6
		
		
C��'�hR]L6Jga
		gfilenamefice-9/vlist.scm�		X
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		X
��		
CHh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	X
��		nC5'Rhx]	�Cpgblock
		gfilenamefice-9/vlist.scm�
	Y
��		gnameg% block-size-procedure�CIR4NJPS�ih7]C/gt-198d9e0d-12c2
		
		
C��J�hR]L6Jga
		gfilenamefice-9/vlist.scm�		Y
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		Y
��		
Ckh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	Y
��		nC5JRh}]	�Cugblock
		gfilenamefice-9/vlist.scm�
	Z
��		gnameg% block-next-free-procedure�ClR4NmPS��h7]C/gt-198d9e0d-12de
		
		
C��m�hR]L6Jga
		gfilenamefice-9/vlist.scm�		Z
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		Z
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	Z
��		nC5mR�h�]	�4
�5�C�gblock
		gfilenamefice-9/vlist.scm�
	\
��		]	��		]	��		]	'��		]	��		]	��		gnameg% block-hash-table?-procedure�C�R4N�PS��h7]C/gt-198d9e0d-12f9
		
		
C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		\
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		\
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	\
��		nC5�Rh�]	�C�gblock
		g	next-free		gfilenamefice-9/vlist.scm�
	_
��			`	��			gnameg % set-block-next-free!-procedure�C�R4N�PS��hT]CLgt-198d9e0d-1334
		gt-198d9e0d-1335					C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		_
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		_
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	_
��		nC5�Rh8	]	��$(	��$�	�
��CCCgblock
		8gvalue		8goffset			8g	next-free			)gfilenamefice-9/vlist.scm�
	b
��			d	��	
	d	��		d	��		e	��		e	��		d	��		g	%��		g		��	-	h	��	2	h		��		8	gnameg% block-append!-procedure�C�R4N�PS�hq]Cigt-198d9e0d-1354
		gt-198d9e0d-1355		gt-198d9e0d-1356						C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		b
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		b
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	b
��		nC5�Rh�]�C�gcontent
		goffset		gfilenamefice-9/vlist.scm�
	l
��		m	��			gnameg% block-ref-procedure�CR4NPS�=hT]CLgt-198d9e0d-13be
		gt-198d9e0d-13bf					C���hR]L6Jga
		gfilenamefice-9/vlist.scm�		l
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		l
��		
C?h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	l
��		nC5Rh�]���C�gcontent
		gsize		goffset			gfilenamefice-9/vlist.scm�
	q
��			r	��	
	r	��			gnameg(% block-hash-table-next-offset-procedure�C@R4NAPS�fhq]Cigt-198d9e0d-13de
		gt-198d9e0d-13df		gt-198d9e0d-13e0						C��A�hR]L6Jga
		gfilenamefice-9/vlist.scm�		q
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		q
��		
Chh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	q
��		nC5ARh�]���C�gcontent
		gsize		goffset			gnext-offset			gfilenamefice-9/vlist.scm�
	v
��			x	��		x	��			gnameg-% block-hash-table-set-next-offset!-procedure�CiR4NjPSV�h�]C�gt-198d9e0d-1403
		gt-198d9e0d-1404		gt-198d9e0d-1405			gt-198d9e0d-1406						C��j�hR]L6Jga
		gfilenamefice-9/vlist.scm�		v
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		v
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	v
��		nC5jRh�]��C�gcontent
		gsize		gkhash			gfilenamefice-9/vlist.scm�
	|
��			}	��	
	}	��			gnameg % block-hash-table-ref-procedure�C�R4N�PS��hq]Cigt-198d9e0d-142d
		gt-198d9e0d-142e		gt-198d9e0d-142f						C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		|
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		|
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	|
��		nC5�Rh�]��C�gcontent
		gsize		gkhash			goffset			gfilenamefice-9/vlist.scm�
	
��		�	��	�	��			gnameg!% block-hash-table-set!-procedure�C�R4N�PSV�h�]C�gt-198d9e0d-1452
		gt-198d9e0d-1453		gt-198d9e0d-1454			gt-198d9e0d-1455						C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	
��		nC5�Rh(�]�������C�gcontent
		(gsize		(gkhash			(goffset			(gnext-offset		
	gfilenamefice-9/vlist.scm�
�
��		�	%��	
�	��	#�	��		(	gnameg!% block-hash-table-add!-procedure�C�R4N�PSVh�]C�gt-198d9e0d-147c
		gt-198d9e0d-147d		gt-198d9e0d-147e			gt-198d9e0d-147f						C����hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5�R4Ji
5


Rh�]�C�gbase
		goffset		gfilenamefice-9/vlist.scm�
�
��			gnameg%make-vlist-procedure�CR4NPS��hT]CLgt-198d9e0d-14ff
		gt-198d9e0d-1500					C���hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5R�����4�>"G	��i�Rhr]�$��CCjgobj
		gfilenamefice-9/vlist.scm�
�
��		gnameg%vlist?-procedure�C�R4NPS�h7]C/gt-198d9e0d-150f
		
		
C���hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5R	ht]�&
�C6lgs
		gfilenamefice-9/vlist.scm�
�
��		gnameg%vlist-base-procedure�C
R4N	PS;FLh:]��C2gerr
		gs					CPV[h:]��C2gerr
		gs					C_ekh:]��C2gerr
		gs					C��h7]C/gt-198d9e0d-151b
		
		
C��	�hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/vlist.scm�
�
��	�C5	R�hv]�&�C6ngs
		gfilenamefice-9/vlist.scm�
�
��		gnameg%vlist-offset-procedure�C�R4N�PS���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h7]C/gt-198d9e0d-1536
		
		
C����hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/vlist.scm�
�
��	�C5�R4NgPS�
h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/vlist.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5gR4ii"5(2
hH�]45$645$454564	56�gvl
		Egport		Egfilenamefice-9/vlist.scm�
�	��	�	#��	
�	��	�	0��	�	#��	�	#��	 �	��	&�	0��	'�	+��	.�	+��	6�	#��	<�	0��	=�	+��	E�	#��		E	C>"Gii
�#Rh@�]�$�&C66�gval
		:gfilenamefice-9/vlist.scm�
�
��	�	
��		�	��	�	
��	�	��	�	��	 �	��	%�	��	'�	��	+�	��	.�	��	3�	��	8�	��	:�	��		:gnameg% assert-vlist-procedure�CR4NPS�Fh7]C/gt-198d9e0d-157c
		
		
C���hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
CHh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5R	�4Jh]+�&
�"	45�&�"	45�"~	��
�$"�$"[�$4	�5
"45
	�
�
�
�C	��$;	��$+�	�
��$
�C"��?"��;"��7gitem
	gvlist	g	hash-tab?		gbase		7goffset		7gsize		D�goffset		j�gsize		j�gbase	��g	next-free	��
gfilenamefice-9/vlist.scm�
�
��	�	��	�	��	7�	��	7�	��	D�	��	D�	��	I�	��	L�	��	Q�	��	[�	��	_�	��	j�	��	j�	����	����	����	����	����	����	����	����	����	����	��		gnameg% block-cons-procedure�CIR4NJPS��hq]Cigt-198d9e0d-159d
		gt-198d9e0d-159e		gt-198d9e0d-159f						C��J�hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5JR4Jh{]*"#4>"'G" �$�&""���""���
���"_	��
�$"�$"[�45
	�
�
�
�C	��$;	��$+�	�
��$
�C"��^"��Z"��Vsgitem
	gvlist	gbase		Rgoffset		Rgsize		_�goffset	��gsize	��gbase	��g	next-free	��	gfilenamefice-9/vlist.scm�
�
��	�	��	M�	��		gnameg
vlist-cons�g
documentationf?Return a new vlist with ITEM as its head and VLIST as its
tail.�CRhh]"#4>"'G" �$�&""���""���
��
��Cgvlist
		agbase	Q	agoffset		Q	agcontent		Y	agfilenamefice-9/vlist.scm�
�
��	�	��	M�	��	Q�	��	Q�	��	Y�	��	Y�	��		agnameg
vlist-head�g
documentationfReturn the head of VLIST.�C Rh�d]!"#4>"'G" �$�&""���""���
��
�$��C�	��C\gvlist
	�gbase	Q�goffset		Q�goffset		`	lgbase		u�goffset		u�gfilenamefice-9/vlist.scm�
�
��	�	��	M�	��	Q�	��	Q�	��	Y�	��	]�	��	`�	��	`�	��	p�	��	u�	��	u�	��
	�gnameg
vlist-tail�g
documentationfReturn the tail of VLIST.�C!Rhh�]	"#4>"'G" �$�&""���""���
��$C
	��C�gvlist
		agbase	M	agfilenamefice-9/vlist.scm�
�
��	�	��	M�	��	M�	��	S�	��	W�	��	_�	��	`�		��			agnamegvlist-null?�g
documentationfReturn true if VLIST is empty.�C"R/�#h�]456�glst
		gfilenamefice-9/vlist.scm�
�
��	�	��	�	��		gnameglist->vlist�g
documentationf4Return a new vlist whose contents correspond to LST.�C$Rh�]3"#4>"'G" �$�&""���""���"V&C�
�$�"$		�"4
��5"���
��"���
gproc
	�ginit	�gvlist		�gbase		M�goffset		M�gresult		M�gnext		[�gdone?		a�gcontent	��	gfilenamefice-9/vlist.scm�
�
��		��	M	��	U	��	[	��	[	��	a	��	a	��	i	��	m	��	y		��	~		���
	���
	!���
	���
	���	
���	���	���	���	��	�	gnameg
vlist-fold�g
documentationf/Fold over VLIST, calling PROC for each element.�C)R%(h��]"#4>"'G" �$�&""���""���"&
�$C�4455"���45�"����gproc
	�ginit	�gvlist		�gindex		M	sgresult		M	sgfilenamefice-9/vlist.scm�

��		��	M	��	Q	��	U	��	[	��	\	
��	_	��	k	
��	s	��	s	��	t	��	{	���	��	�	gnamegvlist-fold-right�g
documentationfOFold over VLIST, calling PROC for each element, starting from
the last element.�C*R)#h�]6�gvlist
		gfilenamefice-9/vlist.scm�

��		��		gnameg
vlist-reverse�g
documentationfEReturn a new VLIST whose content are those of VLIST in reverse
order.�C/R)h|]4L56tgitem
		gresult		gfilenamefice-9/vlist.scm�
	��		��		��			C#/h�]O456�gproc
		gvlist		gfilenamefice-9/vlist.scm�

��	!	��		��			gnameg	vlist-map�g
documentationf;Map PROC over the elements of VLIST and return a new vlist.�C+R*�h�]6�gvlist
		gfilenamefice-9/vlist.scm�
#
��	%	��	%	��		gnamegvlist->list�g
documentationf6Return a new list whose contents match those of VLIST.�C2Rh��]*"#4>"'G" �$�&""���""���"6�$
���C���	�"���
��"����gvlist
	�gindex	�gindex		M�gbase		M�goffset		M�gcontent		_	igoffset		_	igfilenamefice-9/vlist.scm�
'
��	)	��	M*	��	R-	��	V-	��	Z.	��	_.	(��	_.	��	n/	��	t0	��	y1	���/	���*	���+	���,	���*	��	�	gnameg	vlist-ref�g
documentationf+Return the element at index INDEX in VLIST.�C%Rh��]""#4>"'G" �$�&""���""���"4�$��C���	�"���
��"����gvlist
	�gcount	�gcount		M�gbase		M�goffset		M�goffset		[	ggfilenamefice-9/vlist.scm�
3
��	6	��	M7	��	R:	��	V:	��	[;	��	[;	��	l<	��	r=	��	w>	���<	���7	���8	���9	���7	��	�	gnameg
vlist-drop�g
documentationfKReturn a new vlist that does not contain the COUNT first elements of
VLIST.�C&R/! #hH{]"0
�$6�454455"���"���sgvlist
		Fgcount		Fgcount			6gvlist			6gresult			6gfilenamefice-9/vlist.scm�
@
��	C	��	
F	��	F	��	G	��	H	��	I	��	J	��	"J	��	,J	��	6H	��	6C	��
		F	gnameg
vlist-take�g
documentationfHReturn a new vlist that contains only the COUNT first elements of
VLIST.�C'R*h}]4L5$6Cuge
		gv		gfilenamefice-9/vlist.scm�
O	��	P	��	
P	��	Q	��			C#h�]O6�gpred
		gvlist		gfilenamefice-9/vlist.scm�
L
��	O	��			gnamegvlist-filter�g
documentationfLReturn a new vlist containing all the elements from VLIST that
satisfy PRED.�C0R�0he]4LL5�C]ge
		
gfilenamefice-9/vlist.scm�
Y	��	Z	��	Z	��		
Ch(�-.,3#O6�gx
		%gvlist		%gequal?			%gfilenamefice-9/vlist.scm�
V
��	%Y	��		%	gnamegvlist-delete�g
documentationfKReturn a new vlist corresponding to VLIST without the elements
EQUAL? to X.�C1Rh�.]"#4>"'G" �$�&""���""���" &C��	��"���
��"���&gvlist
		}gbase	M	mglen		M	mgfilenamefice-9/vlist.scm�
]
��	_	��	M`	��	Ub	��	\d	��	_e	��	de	��	ee	��	md	��	m`	��	q`	��	ua	��	}`	��		}gnamegvlist-length�g
documentationfReturn the length of VLIST.�C(R#hS]CKgx
		gfilenamefice-9/vlist.scm�
h	,��		Ch0�]4L5$L64L54L4L556�gseed
		*gfilenamefice-9/vlist.scm�
j	��	k	��	
k	��	l	��	m	��	n	��	 n	��	(n	��	*m	��
		*gnameguf�Ch8)-.,3#OQ6!gp
		5gf		5gg			5gseed			5gtail-gen			5guf		"	5gfilenamefice-9/vlist.scm�
g
��	"j	��		5	gnamegvlist-unfold�g
documentationfHReturn a new vlist.  See the description of SRFI-1 `unfold' for details.�C,R#hX�-.,3#"+45$C454455"���"����gp
		Qgf		Qgg			Qgseed			Qgtail			Qgseed			Eglis			Egfilenamefice-9/vlist.scm�
p
��	s	��	t	��	%t	��	)v	��	0v	��	3v	!��	=v	��	Ev	��	Es	��		Q	gnamegvlist-unfold-right�g
documentationfNReturn a new vlist.  See the description of SRFI-1 `unfold-right' for
details.�C-R#�*hk]6cge
		
gv		
gfilenamefice-9/vlist.scm�
}	&��	
~	(��		
	Cht]6lgvlist
		gresult		gfilenamefice-9/vlist.scm�
|	��	}	��			Ch �-13(C6�gvlists
			gfilenamefice-9/vlist.scm�
x
��	z	��	|	��			


gnamegvlist-append�g
documentationfAppend the given lists.�C.R)hn]L6fgitem
		gx		gfilenamefice-9/vlist.scm�
�	��	�	��			Ch�]O6�gproc
		gvlist		gfilenamefice-9/vlist.scm�
�
��	�	��			gnamegvlist-for-each�g
documentationf?Call PROC on each element of VLIST.  The result is unspecified.�C3R�h0�]	�$!�&
�	�4
�5�CCC�gobj
		,gblock		(gfilenamefice-9/vlist.scm�
�
��	�	��		�	��	�	��	�	��	�	��		,gnamegvhash?�g
documentationf"Return true if OBJ is a hash list.�C5R�4J	�h��-.,3#"#4>"'G" �$�&""���""����
���"l	��
�$"�$"[�	4		�5	
		�
�
�
�"\	��$F	��$2�	�
��$
�""��N""��F""��>�&
�"	4	5�&�"	4
5	�45
�		��
	��
�
	��C�gkey
	�gvalue	�gvhash		�ghash		�gitem		b@gbase		m=goffset		m=gsize		z�goffset	��gsize		��gbase	��g	next-free	�gvhash	@�gbase	\�goffset	x�gsize	�gkhash	��gcontent		��gnext-offset	
��gfilenamefice-9/vlist.scm�
�
��	�	��	b�	 ��	b�	��@�	��E�	��\�	��a�	��x�	���	���	����	����	����	����	����	��	�	gnameg
vhash-cons�g
documentationfjReturn a new hash list based on VHASH where KEY is associated
with VALUE.  Use HASH to compute KEY's hash.�C6R6�h�]6�gt-198d9e0d-1bd9
		gt-198d9e0d-1bda		gt-198d9e0d-1bdb			gfilenamefice-9/vlist.scm�
�	��			gnamegvhash-consq�C7R6�h�]6�gt-198d9e0d-1be5
		gt-198d9e0d-1be6		gt-198d9e0d-1be7			gfilenamefice-9/vlist.scm�
�	��			gnamegvhash-consv�C8Rh((]N"�	�	
�
4	5"s$F
		����$(4
��5$4
��
5"
"

"����	�
�$	�
"��t
C
	��
"��{�$0�&"4>"G"4>"G
�	�
�$
��"���C gproc
	(ginit	(gkey		(gvhash		(gequal?		(ghash		(gbase		�g
max-offset		�gresult		�gsize			�gcontent	
	�gkhash		�goffset		"�gresult	
	"�g
next-block		r�gblock	gfilenamefice-9/vlist.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	"�	��	(�	��	/�	��	8�	��	<�	��	=�	��	F�	,��	G�	'��	I�	��	M�	��	N�	��	U�	!��	V�	��	Z�	��	n�	��	r�	��	r�	��	y�	��	{�	��	�	����	*����	����	����	����	����	���	���		��
�	���	���	���	��%�	��*	(	gnameg% %vhash-fold*-procedure�C�R4N�PS�4h�]C�gt-198d9e0d-1bf0
		gt-198d9e0d-1bf1		gt-198d9e0d-1bf2			gt-198d9e0d-1bf3			gt-198d9e0d-1bf4			gt-198d9e0d-1bf5						C����hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C6h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5�R��h8]-.,3##"�	�	
�
4	5"s$F
		����$(4
��5$4
��
5"
"

"����	�
�$	�
"��t
C
	��
"��{"#4>"'G" �$�&""���""���
�	�
�$
��"���CUgproc
	7ginit	7gkey		7gvhash		7gequal?		7ghash		7gbase		$�g
max-offset		$�gresult		$�gsize			)�gcontent	
	/�gkhash		:�goffset		@�gresult	
	@�g
next-block	��gblock	gfilenamefice-9/vlist.scm�
�
��	$�	��	7		gnamegvhash-fold*�g
documentationk�Fold over all the values associated with KEY in VHASH, with each
call to PROC having the form  (proc value result) , where
RESULT is the result of the previous call to PROC and INIT the
value of RESULT for the first call to PROC.�CAR�h}]T"�	�
�	45
"n$A	����$#	��&4	��5"""����

	�
�$
	�"��yC	
��"���"#4>"'G" �$�&""���""���
�	�
�$
��"���Cugproc
	ginit	gkey		gvhash		ghash		gbase		
�g
max-offset		
�gresult		
�gsize		�gcontent			�gkhash	
	 �goffset		&�gresult		&�g
next-block	
	q�gblock	��gfilenamefice-9/vlist.scm�
�
��	�	��		gnamegvhash-foldq*�g
documentationk�Same as  vhash-fold* , but using  hashq  and  eq? .�CBR�h �]T"�	�
�	45
"o$B	����$$	���$4	��5"""����

	�
�$
	�"��xC	
��"��"#4>"'G" �$�&""���""���
�	�
�$
��"���Cygproc
	ginit	gkey		gvhash		ghash		gbase		
�g
max-offset		
�gresult		
�gsize		�gcontent			�gkhash	
	 �goffset		&�gresult		&�g
next-block	
	r�gblock	��gfilenamefice-9/vlist.scm�
�
��	�	��		gnamegvhash-foldv*�g
documentationk�Same as  vhash-fold* , but using  hashv  and  eqv? .�CCRh�]<"�	�
�45"j	$B	�$(4	��5$	�C�	��	"����	��	"����

	�
�$
	�"��|C��	"����$0�&"4>"G"4>"G
�	�
�$
��"���C�gkey
	gvhash	gequal?		ghash		gbase		�g
max-offset		�gsize		�gcontent		�gkhash		�goffset			"�g
next-block	
	n�gblock	��gfilenamefice-9/vlist.scm�
�
��		��		��		��		��		��		��		��	"	��	(	��	-	��	1	��	2		��	;		&��	<		!��	>		��	B	��	G
	��	O	��	Y	��	`	��	j	��	n	��	n	��	u
	��	w
	��	{
	���	+���	���	���	���	���	���	���	
��	��	��	��	��	��)		gnameg% %vhash-assoc-procedure�C7R4N8PSV�h�]C�gt-198d9e0d-201f
		gt-198d9e0d-2020		gt-198d9e0d-2021			gt-198d9e0d-2022						C��8�hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC58R��h �-.,3##"�	�
�45"e	$="�	��	"���	�$4	��5$	�C"���"����

	�
�$
	�"���C��	"���"#4>"'G" �$�&""���""���
�	�
�$
��"��C�gkey
	 gvhash	 gequal?		 ghash		 gbase		$�g
max-offset		$�gsize		)�gcontent		/�gkhash		:�goffset			@�g
next-block	
��gblock	�gfilenamefice-9/vlist.scm�

��	$	��	 		gnamegvhash-assoc�g
documentationfpReturn the first key/value pair from VHASH whose key is equal to
KEY according to the EQUAL? equality predicate.�C9R�hu]B"�	�
�45"`$8"���"����$��&�C"���"����			�
�$		�"���C��"���"#4>"'G" �$�&""���""���
�	�
�$
��"��Cmgkey
	gvhash	ghash		gbase		
�g
max-offset		
�gsize		�gcontent		�gkhash		 �goffset		&�g
next-block			h�gblock	��gfilenamefice-9/vlist.scm�

��		��		gnameg
vhash-assq�g
documentationkReturn the first key/value pair from VHASH whose key is  eq?  to
KEY.�C:R�hy]B"�	�
�45"a$9"���"����$���$�C"���"����			�
�$		�"���C��"���"#4>"'G" �$�&""���""���
�	�
�$
��"��
Cqgkey
	gvhash	ghash		gbase		
�g
max-offset		
�gsize		�gcontent		�gkhash		 �goffset		&�g
next-block			i�gblock	��gfilenamefice-9/vlist.scm�

��	"	��		gnameg
vhash-assv�g
documentationkReturn the first key/value pair from VHASH whose key is  eqv?  to
KEY.�C;R��9)6h(�]��4LL5$CL6�gk+v
		(gresult		(gk			(gv			(gfilenamefice-9/vlist.scm�
(	��	)	��	*	��	)	��	
+	��	+	��	(-	��		(	C#hH!-.,3##45$O6Cgkey
		Ggvhash		Ggequal?			Gghash			Ggfilenamefice-9/vlist.scm�
$
��	!'	��	1'	��	D(	��		G		gnamegvhash-delete�g
documentationfHRemove all associations from VHASH with KEY, comparing keys
with EQUAL?.�C<R<��h�]6�gt-198d9e0d-243e
		gt-198d9e0d-243f		gfilenamefice-9/vlist.scm�
2	��			gnameg
vhash-delq�C=R<��h�]6�gt-198d9e0d-2448
		gt-198d9e0d-2449		gfilenamefice-9/vlist.scm�
3	��			gnameg
vhash-delv�C>R)h�]L��6�g	key+value
		gresult		gfilenamefice-9/vlist.scm�
:	��	;	��	
;	&��	;	��			Chm]O6egproc
		ginit		gvhash			gfilenamefice-9/vlist.scm�
5
��	:	��			gnameg
vhash-fold�g
documentationk�Fold over the key/pair elements of VHASH from left to right, with
each call to PROC having the form  (PROC key value result) ,
where RESULT is the result of the previous call to PROC and
INIT the value of RESULT for the first call to PROC.�C?R*h�]L��6�g	key+value
		gresult		gfilenamefice-9/vlist.scm�
E	��	F	��	
F	,��	F	��			Chu]O6mgproc
		ginit		gvhash			gfilenamefice-9/vlist.scm�
@
��	E	��			gnamegvhash-fold-right�g
documentationk�Fold over the key/pair elements of VHASH from right to left, with
each call to PROC having the form  (PROC key value result) ,
where RESULT is the result of the previous call to PROC and
INIT the value of RESULT for the first call to PROC.�C@R��6h�]��L6}gpair
		gresult		gfilenamefice-9/vlist.scm�
M	��	N	��	
N	'��	N	��			C#h(�-.,3#O6�galist
		%ghash		%gfilenamefice-9/vlist.scm�
K
��	%M	��		%gnamegalist->vhash�g
documentationf=Return the vhash corresponding to ALIST, an association list.�CDRCgm
		,grtd
:D:pgbase
J�J�gfilenamefice-9/vlist.scm�		
��	-	E	��	8	D
��g	G
��V	V
��	t	W
���	X
���	Y
���	Z
��;	\
���	_
���	b
�� �	l
��$�	q
��(T	v
��,	|
��/�	
��3��
��6��	��6��
��7��
��I�
��J��	��J��
��K��
��Q��
��W�
��X��
��Z��
��\%�
��]#�
��`
�
��bX
��cW
��e
��e�#
��hg'
��j�3
��l�@
��nwL
��p8V
��r	]
��t�g
��v�p
��x�x
��zt�
��{��
�����
���^�
���6�
�����
�����
���@�
����
����
���
����
���\
����$
����2
���`3
����5
����@
����K
��A	��
C6ice-9/mapping.go000064400000017603150536206120007443 0ustar00GOOF----LE-8-2.0k]V4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gmapping�	�		gfilenameS�	
fice-9/mapping.scm�	gimportsS�	gpoe�	
�	
�	�	gexportsS�	gmapping-hooks-type�	gmake-mapping-hooks�	gmapping-hooks?�	gmapping-hooks-get-handle�	gmapping-hooks-create-handle�	gmapping-hooks-remove�	gmapping-type�	gmake-mapping�	gmapping?�	g
mapping-hooks�	gmapping-data�	gset-mapping-hooks!�	gset-mapping-data!�	gmapping-get-handle�	gmapping-create-handle!�	 gmapping-remove!�	!gmapping-ref�	"gmapping-set!�	#ghash-table-mapping-hooks�	$gmake-hash-table-mapping�	%ghash-table-mapping�	& !"#$%�	'gset-current-module�	('�	)'�	*gissue-deprecation-warning�	+fH(ice-9 mapping) is deprecated.  Use srfi-69 or rnrs hash tables instead.�	,gmake-record-type�	-g
get-handle�	.g
create-handle�	/gremove�	0-./�	1g
perfect-funcq�	2grecord-constructor�	3grecord-predicate�	4grecord-accessor�	5ghooks�	6gdata�	756�	8grecord-modifier�	9ghashq�	:gassq�	;ghashq-get-handle�	<ghashq-create-handle!�	=g
hashq-remove!�	>ghashv�	?gassv�	@ghashv-get-handle�	Aghashv-create-handle!�	Bg
hashv-remove!�	Cghash�	Dgassoc�	Eghash-get-handle�	Fghash-create-handle!�	Gghash-remove!�	Hghashx-get-handle�	Ighashx-create-handle!�	Jg
hashx-remove!�	Kg	hash-procS�	LK��	Mg
assoc-procS�	NM	��	Ogtable-constructorS�	PO	��	QLNP�	Rgassq-ref�	Sgerror�	Tf6Hash-procedure specified with no known assoc function.�	Ugmake-vector�C5h�I]4	
&54)>"G4*i+>"G4,i05R41i	42ii55R43ii5R44ii-5R44ii.5R44ii/5R4,i75R42ii5R43ii5R44ii55R44ii65R48ii55R48ii65Rh�]44556�gmap
		gkey		gfilenamefice-9/mapping.scm�
	5
��		6	��		6	��		6	��		6	��			gnamegmapping-get-handle�CRh�]44556�gmap
		gkey		ginit			gfilenamefice-9/mapping.scm�
	7
��		8	��		8	 ��		8	��		8	��			gnamegmapping-create-handle!�CRh�]44556�gmap
		gkey		gfilenamefice-9/mapping.scm�
	9
��		:	��		:	��		:	��		:	��			gnamegmapping-remove!�C Rh0�-.,3#45$�CC�gmap
		-gkey		-gdflt			-gt			-gfilenamefice-9/mapping.scm�
	<
��		>	��		=	��		-	gnamegmapping-ref�C!Rh�]45�C�gmap
		gkey		gval			gfilenamefice-9/mapping.scm�
	A
��		B	��		B	��			gnamegmapping-set!�C"R41i	9:;hy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
C<hy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
C=hy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
C>?@hy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CAhy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CBhy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CCDEhy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CFhy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CGhy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CHhq]LL6igtable
		gkey		gfilenamefice-9/mapping.scm�
	[	.��		\	0��			Ch y-13LLO45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CIh�]LL6{gtable
		gkey		ginit			gfilenamefice-9/mapping.scm�
	^	.��		_	0��			Ch y-13LLO45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CJhq]LL6igtable
		gkey		gfilenamefice-9/mapping.scm�
	a	.��		b	0��			Ch y-13LLO45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
Ch��]�$.OO	O6
�$.
OOO6�$.OOO6OOO6�g	hash-proc
	�g
assoc-proc	�gprocs			�gproc			)gproc		+	7gproc		9	Egproc		Y	egproc		g	sgproc		u�gproc	��gproc	��gproc	��gfilenamefice-9/mapping.scm�
	J	��			K	"��			K	��		M	'��		M	��		L	��		N	-��	+	O	-��	9	P	-��	G	N	��	P	Q	'��	Q	Q	��	U	L	��	Y	R	-��	g	S	-��	u	T	-���	R	���	U	'���	U	���	L	���	V	-���	W	-���	X	-���	V	���	Z	��	�	C5#R#h�]456�gtable
		g	hash-proc		g
assoc-proc			gfilenamefice-9/mapping.scm�
	d
��		e	��		e	��			gnamegmake-hash-table-mapping�C$RQCR9:>?DS%TUhf]6^glen
			gfilenamefice-9/mapping.scm�
	r	��		r	=��			r	,��			C$h�b-/03#	G##74���5$"4	
5#
456Zgsize
		}g	hash-proc		}g
assoc-proc			}gtable-constructor			}gt		F	bgfilenamefice-9/mapping.scm�
	g
��	.	j	"��	5	j	,��	F	j	"��	F	j	��	U	n	"��	Y	n	)��	[	o	)��	_	n	"��	q	s	��	}	s	��		}
g	hash-procS�g
assoc-procS	�gtable-constructorS	�gnameghash-table-mapping�C%RCAgm
		,gfilenamefice-9/mapping.scm�		
��	-	
��	3	 ��	8	
��	A	"	��	G	"	-��	I	"	<��	K	"	��	N	"
��	O	'	��	V	'	-��	b	'	��	e	'
��	f	(	��	s	(
��	t	)	!��	~	)	E���	)	!���	)
���	*	$���	*	H���	*	$���	*
���	+	���	+	A���	+	���	+
���	-	���	-	'���	-	0���	-	���	-
���	.	���	.
���	/	���	/
���	0	���	0	4���	0	���	0
���	1	���	1	3���	1	���	1
���	2	���	2	9���	2	���	2
���	3	��	3	8��
	3	��
	3
���	5
���	7
���	9
���	<
��c	A
��d	I	��"	F
��
	d
���	g
��>	�
C6ice-9/eval.go000064400000032642150536206130006740 0ustar00GOOF----LE-8-2.0�5]'4h]gunbound-arg�	gset-procedure-property!�	garglist�	g_�	gset-procedure-minimum-arity!�	g	scm-error�	gwrong-number-of-args�	feval�		fWrong number of arguments�	
gkeyword?�	gmax�	gkeyword-argument-error�	
fInvalid keyword�	gassq�	g	list-set!�	fUnrecognized keyword�	g	list-tail�	gmemoized-expression-typecode�	gmemoized-expression-data�	glist-ref�	greverse�	g	variable?�	gmemoize-variable-access!�	g	last-pair�	gcurrent-module�	gthe-root-module�	g
documentation�	g
procedure?�	gprocedure-property�	gname�	gdefine!�	 gmap�	!gerror�	"fwhat�	#gmemoize-expression�	$gmacroexpanded?�	%gmodule-transformer�	&gprimitive-eval�C5hx1�]	


hP�-13",
�$4(L$M@6����"���L$Q"9
�$S("4�5$!4L�5���"��������"���"�L�L�	LL	�L$"
�
""("#4��5�"���
�	"���"�$�L
�
"���
"
L$	�"
"���"
�$�" L$	
�
"���
�6
��$w4
�5$g4	
�	5
��$4
��>"G"'$"4
�>"G
��
"��Z"��a"��]"C�$445�L&4L��5�"��"���LL6
�"���
"���L$-�$"4�5$"L�$M@"��."��*"��&LL"���"�
�$7L$LL�6(LL6L$M@6(!4L�5���"��������"��LL"��kL
L	"����g%args
		Igenv	
9gnreq*		
9gargs		
9genv		S�gnopt*		S�gargs		S�ginits		S�gaok	�Ugkw		�Ugkw-base	
�Ugimax	��gkw	��gimax	Ugi		(genv	
	(genv	CUgargs	
IMgkw-pair	��gv	��gi	�>ginits	�>gtail	6genv	�%gnopt	�%gargs	�%ginits	�%gfilenamefice-9/eval.scm�
	��	
		��		��		��	
	��	!	��	'	��	+	"��	-	"��	/	)��	0	"��	3	��	6	��	9	��	<	��	?	��	I	��	O	��	S,	��	W3	��	[0	��	a4	��	b4	��	g4	,��	l4	6��	n4	,��	r4	��	s5	%��	x5	+��	|5	%��	5	���6	���6	/���5	���7	%���7	���8	���8	*���8	5���7	���@	#���@	���A	"���@	���B	'���B	4���B	'���@	���C	$���D	&���F	.���F	3���F	.���G	.���F	*���C	$���C	3��C	$��@	��	I	#��O	)��O	%��P	-��P	4��"P	)��(I	#��0L	1��5M	5��CI	#��C@	��IS	��LT	$��PT	��Zd	#��]f	+��cf	'��gg	2��ih	2��kh	9��li	2��oi	<��ri	6��tg	'��tT	��wT	8��xT	1��|T	��}U	$���U	.���U	$���T	���V	.���V	4���V	.���W	(���V	���X	!���Z	%���[	8���[	0���Z	%���]	%���^	)���_	*���`	*���`	1���a	*���a	4���a	.���^	)���b	%���b	!���n	#���p	)��p	%��q	5��q	)��r	4��r	+��t	9��t	?��!u	?��#t	9��$s	/��+v	/��.v	6��6v	+��>x	)��>n	#��Cn	/��Mn	#��MS	��U0	��^:	 ��b:	��c:	2��h:	<��j:	2��n:	��v;	��z:	���>	���,	���	���	���	���	���	(���	��� 	���!	!���"	!���#	%���$	0���%	0���%	7���&	0���$	%���'	���(	'���(	-���(	'���(	!���)	!���)	0��
(	��
*	'��*	!��+	!��+	+��+	6��%*	��%	��9		���		I


Chh�,3H"m"R
$�
����("����$���$��""$�"
$
����"�$"8�$.
$$	�""$"�"$

"��4


"�� 4	$�"$�"
$">"G4	
>"G"

"���	C$��	��

�
�("
��
��$
���$
��""

$
�"

$
��"
$	
���"
$

����"4L	5

	"KLLO	"����genv
	agbody	agnreq		agrest?		agnopt		agkw		aginits		agalt		agalt-proc		agproc			
zgalt	
	cgnreq		cgnopt		cgrest?	
	cgspec		gnreq*		 grest?*		2�gtail		S�gnopt*		c�galt*		v�gt		}�gbody		�9gspec	
�6gnreq	�3grest	�0gtail	
�-gnopt	�*gkw	�'ginits	�$galt	!gfilenamefice-9/eval.scm�
�	��	
�	��	�	��	�	
��	�	��	�	��	 �	��	 �	��	%�	(��	)�	��	1�	7��	2�	��	7�	'��	8�	 ��	<�	��	?�	:��	A�	3��	E�	��	H�	G��	S�	��	[�	��	^�	%��	c�	��	k�	��	n�	%��	v�	��	}�	��	}�	����	����	���	���	!���	-���	!���	,����	���	���	���	��
�	.���	/���	6���	?��"�	/��%�	7��0�	/��2�	:��:�	)��?�	��H�	��c�	����	����	����	
����	����	
����	����	
����	%����	����	4����	
����	&����	����	����	9����	2����	����	F����	
����	����	#����	
����	����	"����	
����	����	$����	1����	
����	����	#���	
��
�	��a	��V	a	gnamegmake-general-closure�COhB]LLL6:gfilenamefice-9/eval.scm�
�	��		

ChR]LLL�6Jga
		
gfilenamefice-9/eval.scm�
�	��		
Cha]LLL��6Yga
		gb		gfilenamefice-9/eval.scm�
�	��			Chp]LLL���6hga
		gb		gc			gfilenamefice-9/eval.scm�
�	��			Ch]LLL����6wga
		gb		gc			gd			gfilenamefice-9/eval.scm�
�	��			Ch �]LLL�����6�ga
		gb		gc			gd			ge			gfilenamefice-9/eval.scm�
�	��			Ch �]LLL������6�ga
		gb		gc			gd			ge			gf			gfilenamefice-9/eval.scm�
�	��			Ch �]LLL�������6�ga
		gb		gc			gd			ge			gf			gg			gfilenamefice-9/eval.scm�
�	��			C	h�-13"O

�$LL(	"
456(6�	�
��
	"���L��������L	�
	"���ga
		�gb		�gc			�gd			�ge			�gf			�gg			�gh			�gmore			�gnew-env			
	\gnreq	
	
	\gargs		
	\gfilenamefice-9/eval.scm�
�	��		�	
	C h[]LL6Sgx
		
gfilenamefice-9/eval.scm�
�	��	
�	)��		
Ch[]LL6Sgx
		
gfilenamefice-9/eval.scm�
�	��	
�	'��		
Ch0�](LLL6��Y4L��>ZCZF�gfluids
		*gvals		*gfilenamefice-9/eval.scm�
�	��	�	
��	�	��	�	 ��	�	-��	�	��	�	��	!�	$��	&�	��
		*	gnameglp�ChC]LLL6;gfilenamefice-9/eval.scm�	
�	��		

C!"!hx�
]J4545	&6	&�����4L5
�$6�$4L�56	�$4L�54L��56	�$%4L�54L��54L���564L�54L��54L���54L����5")	(4
5"'	�4L	�5
�
	"�������
	"���@	&_45$"L4�$45�"(	45"$"45$	"5C&9����4L5$"��<"��0	&C	&m��"*("����4L�5�"���(	45"$"45$	""���	&�������		(�(	45"$"45$	"

�$

LO"��$
LO"�	�$
LO"�	�$

LO"m	�$
LO"U	�$
LO"=	�$
LO"%	�$
LO"
L
O
"|	�(?4L(	45"$"45$	"	�
5"64L(	45"$"45$	"	?
$4
>"G"
C
&N��"4("���4L>"G��"���"���	
&��4L56	
&%��4L544L5>6<	&'����4L54L5@	&45$"45C	&a��4L545$+45$"4>"G"4>"GC	&s��4L545$"L4�$45�"(	45"$"45$	"5C	&o����4L54L5		4>"GV4L>X4	>"GCX4	>"GF	&V����4LO54LO5	O

LQ

	6	&I����4L5U4LO>XCXFG4L5@		&
4L5B	&/��4L545$"45C 6�
gexp
	tgenv	tgtag		tgdata		tgf		2+gxb		2+gnargs		<+gargs		<+gproc		I+gexps		�gargs	
�genv	^�gtest	��gxb	��g
consequent	��g	alternate	��ginits	�Rgbody	�Rginits	�gnew-env	�gbody	`gxb	`g	docstring	jgxb	jgnreq	tgtail		tge	
�ygproc	
�gfirst	+sgrest	+sgfirst	3ggrest	3ggn	��gx	��gval	��gproducer	��gconsumer	��gf	��gxb	��gargs	��gname	'�gx	'�gx	4�g
var-or-sym	��gx	��genv	��gin	tgxb	tgexp	tgout	tgpre	+tgpost		+tgfluids	��gxb	��gvals	��gexp	��gfluids	��gvals		��glp	
��gtag	�#gxb	�#gexp	�#ghandler	�#gargs	#gx	Clgvar-or-spec	ClBgfilenamefice-9/eval.scm�
{	��	|	��	$~		��	,|	��	A�	��	I�		��	S�	��3|	��4�	��>�	
��E�	��L�	9��P�	(��Q�	>��X�	9��^�	(����	����		���|	����	
����		����	
����	
���|	����		����	���	���	��	�	���	���	���	���	���		��%�	)��R�		��Z|	��~�	����	7����	����	����	����	����	.����	3����	3����	����	����	4����	����		���	���	
���	+���	
��%|	��3�		��9�	��E�	��F�	��\�	��_�	 ��g�	��g�		��{|	����	����		����	���|	����	����		����	����		���|	����	����	����		���|	����	��	�	
���	���		��!|	��,�	��4�		��7�	��A�	��B�	(��H�	>��J�	(��N�	��S�	��Y�	*��`�	��m�	���|	����	
����	����	
����	����	9����	(����	>����	9����	(����	����		��|	���	��#�	��+�		��E�	"��R�		��||	����	����		����	����		����	���|	����	����		���	��+|	��,�	��5�		��=|	��H�	
��Q�	��[�	
��b�	��j�		��p|	���	t	gnamegeval�COQQ#$%h0�]L445$"44455556�gexp
		,gfilenamefice-9/eval.scm�
�	��	�	��	�	��	�	��	�	��	�	
��	�	!��	#�	
��	'�	��	)�	��	*�	��	,�	��
		,g
documentationf)Evaluate @var{exp} in the current module.�CO&RC�gunbound-arg
	1lgmake-general-closure01igeval	01igfilenamefice-9/eval.scm�	�	��	�	��1o�
��	1q
C6ice-9/command-line.go000064400000044270150536206130010354 0ustar00GOOF----LE-8-2.0�H]�4hg]gguile�	�	gdefine-module*�	�	�	gice-9�	gcommand-line�	�		gfilenameS�	
fice-9/command-line.scm�	gexportsS�	gcompile-shell-switches�	
gversion-etc�	g*GPLv3+*�	g	*LGPLv3+*�	gemit-bug-reporting-address�	
�	g	autoloadsS�	gsystem�	gvm�	�	gset-default-vm-engine!�	gset-vm-engine!�	gthe-vm�	�	�	gset-current-module�	�	�	ggettext�	g_�	 f�License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.�	!f�License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.�	"gportS�	#"	��	$gcopyright-yearS�	%$	��	&gcopyright-holderS�	'&	��	(g	copyrightS�	)(	��	*glicenseS�	+*	��	,gcommand-nameS�	-,	��	.gpackagerS�	/.	��	0gpackager-versionS�	10		��	2#%')+-/1�	3gcurrent-output-port�	4fFree Software Foundation, Inc.�	5gformat�	6fCopyright (C) ~a ~a�	7f~a (~a) ~a
�	8f~a ~a
�	9fPackaged by ~a (~a)
�	:fPackaged by ~a
�	;gdisplay�	<gnewline�	=gurlS�	>=	��	?.	��	@gpackager-bug-addressS�	A@	��	B#>?A�	Cg
string-append�	Dfhttp://www.gnu.org/software/�	Ef/�	Ff
Report bugs to: ~a
�	GfReport ~a bugs to: ~a
�	Hf~a home page: <~a>
�	If?General help using GNU software: <http://www.gnu.org/gethelp/>
�	Jf�Evaluate code with Guile, interactively or from a script.

  [-s] FILE      load source code from FILE, and exit
  -c EXPR        evalute expression EXPR, and exit
  --             stop scanning arguments; run interactively

The above switches stop argument processing, and pass all
remaining arguments as the value of (command-line).
If FILE begins with `-' the -s switch is mandatory.

  -L DIRECTORY   add DIRECTORY to the front of the module load path
  -C DIRECTORY   like -L, but for compiled files
  -x EXTENSION   add EXTENSION to the front of the load extensions
  -l FILE        load source code from FILE
  -e FUNCTION    after reading script, apply FUNCTION to
                 command line arguments
  --language=LANG  change language; default: scheme
  -ds            do -s script at this point
  --debug        start with the "debugging" VM engine
  --no-debug     start with the normal VM engine (backtraces but
                 no breakpoints); default is --debug for interactive
                 use, but not for `-s' and `-c'.
  --auto-compile compile source files automatically
  --fresh-auto-compile  invalidate auto-compilation cache
  --no-auto-compile  disable automatic source file compilation;
                 default is to enable auto-compilation of source
                 files.
  --listen[=P]   listen on a local port or a path for REPL clients;
                 if P is not given, the default is local port 37146
  -q             inhibit loading of user init file
  --use-srfi=LS  load SRFI modules for the SRFIs in LS,
                 which is a list of numbers like "2,13,14"
  -h, --help     display this help and exit
  -v, --version  display version information and exit
  \              read arguments from following script lines�	Kg*usage*�	Lgcurrent-error-port�	Mgapply�	Nf Usage: ~a [OPTION]... [FILE]...
�	Of	GNU Guile�	Pfbug-guile@gnu.org�	Qf"http://www.gnu.org/software/guile/�	Rgassq-ref�	Sg%guile-build-info�	Tgpackager�	Ugpackager-bug-address�	Vgexit�	Wgshell-usage�	Xgcurrent-language�	Ygscheme�	Zgcall-with-input-string�	[gread�	\geof-object?�	]geval�	^gcurrent-module�	_g
module-ref�	`gresolve-module�	ageval-string�	ba�	cgeval-string/lang�	dgload-in-vicinity�	eggetcwd�	fgbase�	ggcompile�	hfg�	igcompile-file�	jgtoS�	kgvalue�	lg	load/lang�	mfguile�	ngstring-prefix?�	of-�	pgstring=?�	qf-s�	rferror: �	sfmissing argument to `-s' switch�	tf~%�	ug@@�	vul�	wf-c�	xfmissing argument to `-c' switch�	yuc�	zf--�	{f-l�	|fmissing argument to `-l' switch�	}f-L�	~fmissing argument to `-L' switch�	f-C��fmissing argument to `-C' switch��f-x��fmissing argument to `-x' switch��f-e��fmissing argument to `-e' switch��gopen-input-string��gmemq��g@���u��gand-map��gsymbol?��gmain�����f--language=��gquote��gstring->symbol��g	substring��f
--language��f'missing argument to `--language' option��f-ds��f)the -ds switch may only be specified once��f--debug��f
--no-debug��f--auto-compile��g%load-should-auto-compile��f--fresh-auto-compile��g%fresh-auto-compile��f--no-auto-compile��f-q��f--use-srfi=��gmap��gstring->number��finvalid SRFI specification��gexact?��ginteger?��gstring-split��g	use-srfis��f--listen��grepl��gserver������gspawn-server��u�������f	--listen=��finvalid port for --listen��gmake-tcp-server-socket��u����gmake-unix-domain-server-socket��u����gpathS��funknown argument to --listen��f-h��f--help��f-v��f	--version��gversion��gpackager-version��funrecognized switch ~a��f1the `-ds' switch requires the use of `-s' as well��gset-program-arguments��gdebug��gcontrol�����g%�������gbegin��gappend��������gload-user-init��������gset!��g%load-extensions��gcons�����g
%load-path�����g%load-compiled-path�����greverse!�������gtop-repl�������������gquit�����g
string-rindex�C5h@.�]4	
54>"GiR4i 5R4i!5R23456789:;<hH�-/
0
3
#45#�##45###	#	$4>"G"4>"G$F	$!44	
5	>"G"44	5>"G"4>"G4
>"G4
>"G4>"G
6�gpackage
	Hgversion	Hgport		Hgcopyright-year		Hgcopyright-holder		Hg	copyright		Hglicense		Hgcommand-name		Hgpackager		Hgpackager-version			H
gfilenamefice-9/command-line.scm�
	A
��		B	��	3	E	(��	<	F	!��	A	F	,��	G	F	!��	t	K	��	u	L	��	{	L	���	L	���	M	���	M	���	M	���	O	���	P	���	Q	
���	Q	���	Q	���	Q	���	Q	
���	R	
���	R	���	R	���	R	���	R	
���	T	��	U	��	V	��/	W	��H	X	��	H	
gportS	�gcopyright-yearS	�gcopyright-holderS	�g	copyrightS	�glicenseS	�gcommand-nameS	�gpackagerS	�gpackager-versionS		�	gnamegversion-etc�C
RB3CDE5FGHIh�#-/03#45#
45##445>"G$+$!44	5>"G""44
5>"G456gpackage
	�gbug-address	�gport		�gurl		�gpackager		�gpackager-bug-address		�gfilenamefice-9/command-line.scm�
	]
��		^	+��	'	_	*��	+	`	+��	/	b	+��	1	_	*��	F	d	��	K	d	��	O	d	��	Q	d	��	X	d	��	f	e	��	l	e	��	m	f	��	r	f	��	v	f	��	x	f	���	f	���	g	���	g	���	g	���	g	���	g	���	i	
���	i	
���	i	
���	h	��	�	
gportS	�gurlS	�gpackagerS	�gpackager-bug-addressS	�gnamegemit-bug-reporting-address�CR4iJ5KRL3M5<N;KOP"=Q.RST@UVh��-.13#$	45"45$.4>"G4>"G"445>"G4	>"G4>"G4

4545>
"G$6C�gname
	�gfatal?	�gfmt		�gargs		�gport		)�gfilenamefice-9/command-line.scm�
�
��	�	��	�	��	%�	��	)�	��	1�	��	2�	��	J�	��	`�	��	e�	��	i�	��	k�	��	r�	��	{�	����	����	����	����	����	����	����	,����	����	����	!����	����	����	����	��	�		gnamegshell-usage�CWRXYZ[\]^h@�]	"14545$C445>"G"���"����gport
		;gexp	
	7gfilenamefice-9/command-line.scm�
�	��	�	��	�	��	
�	
��	�	��	�	��	�	��	"�	��	+�	��	7�	��	7�	��		;C_`ba	h0�]	45�$644556�gstr
		,gkey		,gfilenamefice-9/command-line.scm�
�
��	�	��	�	��	�	��	�	��	�	��	"�	"��	$�	��	&�	8��	(�	��	,�	��		,gnamegeval-string/lang�CcRXYde_`hijkh8�]	45�$4564455	
6�gf
		3gkey		3gfilenamefice-9/command-line.scm�
�
��	�	��	�	��	�	��	�	��	�	��	!�	��	%�	"��	'�	��	)�	:��	+�	��	1�	
��	3�	��		3gnameg	load/lang�ClRmnopqWCrstvwxyz{|}~������[\�������X������������������WCr�t��	hX�]	45"M456$-45$45$
�$C"���"���"���"����gx
		Xgn			Xgfilenamefice-9/command-line.scm�
i	��	j	)��		j	 ��	�	
��	�	��	m	-��	�	*��	�	
��	!�	��	!k	"��	(k	-��	2k	&��	3k	8��	=k	&��	Ak	E��	Ek	&��		XC������������"E�����V��
O�*,.RST0�������������he]��C]gext
		gfilenamefice-9/command-line.scm�
�	��	�	��		C����hf]��C^gpath
		gfilenamefice-9/command-line.scm�
�	��	�	��		C����hf]��C^gpath
		gfilenamefice-9/command-line.scm�
�	��	�	��		C�����lhH�-.,3H#KHH
H	HHHHHHH"�(

"���45$D45$]("4J4	
5>"G"�KKJ$JJ��

"%�J
�
"45$A("4J4

5>"G"K��
�
"�45$

"�45$>("4J4
5>"G"��
�
"���45$=("4J4
5>"G"�J�K�

"��q45$=("4J4
5>"G"�J�K�

"��'45$=("4J4
5>"G"�J�K�

"���45$�("4J4
5>"G"4�5454545$?�$24�5$"	4 5$!"��"""	!K�

"��!4#5$%$%4&4'	55
�
"���4(5$H("4J4)
5>"G"�$%4&�5
�
"���4*5$@J$"4J4+
5>"G"KJ�
�
"��M4,5$K
K

"��.4-5$KK


"��4.5$ /

"���405$ / 1

"���425$ /

"���435$K	

"���445$_456O474'	5,55("4J48
5>"G"9%
�
"��04:5$;
�
"��4<5$�4'		54=5$c"4J4>
55"D4?5$54@5$"
�$ABC""���""���""���"24D5$AEF"4J4G
55
�
"��E4H5$"	4I5$4J>"GJ
64K5$"	4L5$:4MN4O5PQRS4TUV5W4TUX5>
"GJ
6J4Y
56KKJ$JJ�

"J
�
""J$-J�$"4J4Z
5>"G"4�>"GJ
$"J$J�"$-4\]>"G4^4_5]>"G"`a4bJ$J	$"c"4b45dJ54b45eJ54b45fJ54b4g
54bJ$Jh�"J$i"j555555�C�$7�K4kJ/5$4'J�5"JK�
"��
"����gargs
	Hg
usage-name	Hgarg0		&Hgscript-cell		&Hgentry-point		&Hguser-load-path		&Hguser-load-compiled-path		&Hguser-extensions		&Hginteractive?		&Hginhibit-user-init?			&Hgturn-on-debugging?	
	&Hgturn-off-debugging?		&Hgargs		>�gout	
	>�garg		V�gargs		V�gport	�garg1	�
garg2	�
gsrfis	�gwhere	B�gt	K�gt	gt	@Ygargs	��gout	
��gt	+Igslash	1gfilenamefice-9/command-line.scm�
�
��	�	=��	�	��	 �	��	!�	!��	"�	��	&�	��	>�	��	D�	��	P�	��	S�	��	V�	��	V�	��	[�	��	_�	!��	c�	��	g�	
��	h�	��	n�	��	p�	��	t�	
��	z�	��	{�	����	
����	����	����	*����	
����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	
����	����	����	
����	����	����	*����	
����	��	�	���	���	���	���	���	���	�� �	��&�	��(�	��,�	
��8�	��9	��?	��A	��E�	
��K	��L�	��R�	
��V�	��X	��Z�	*��\�	
��a�	��p	��r	��u	@��x	��{	���	���	���	���	����	
���	����	����	
����	���		����	*����	
����	���
	'���
	!���
	���	���	���	���	���	����	
���	����	����	
����	���	����	*����	
����	��	��	��
	��
	��	��	��	�� 	��$�	
��*	��+�	��1�	
��5�	��7	��9�	*��;�	
��@�	��O	(��R	"��T	��W	��a	��b	��h	��j	��n�	
��t	��u�	��{�	
���	���	����	*����	
����	��� 	��� 	,��� 	��� 	���!	��� 	���"	��� 	���'	���&	���)	���&	���*	 ���*	&���*	 ���)	���+	���)	���,	���(	��%	��/	��/	��2	��"2	��&2	��*�	
��.4	��15	��46	��:6	-��<6	��>5	��A4	��G4	��O3	��P9	��T9	��X9	��\�	
��b:	��c�	��i�	
��m�	��o;	��q�	*��s�	
��x�	���<	���=	���=	.���=	>���=	.���=	���=	���<	���@	���@	���@	����	
���C	����	����	
����	���D	����	*����	
����	���E	���E	���G	���G	���F	���K	���K	���K	����	
��L	��M	��N	��P	��P	��P	���	
�� Q	��#R	��/S	��0W	��6W	��8W	��<�	
��?X	��KY	��L[	��R[	��T[	��X�	
��[\	��^]	��j^	��k`	��q`	��s`	��w�	
��za	���b	���d	���d	���d	����	
���e	���f	���h	���h	���h	����	
���i	���n	���n	,���n	���i	���i	���o	����	����	
����	���p	����	*����	
����	���r	��r	��q	��t	��t	��t	���	
��v	��"v	��*u	��+x	��/x	��3x	��7�	
��:|	��B|	��E~	��K}	��X�	��^�	
��b�	��d�	"��f�	*��h�	
��j�	��n�	��o�	 ��y�	��z�	0����	����	>����	����	����	����	"����	���}	����	����	����	
����	����	����	*����	
����	���{	
���y	����	���	���	���	���	$���	2���	$���	
�� �	��7�	��8�	��>�	��@�	��@�	��N�	$��T�	2��V�	$��]�	
��^�	��b�	��c�	%��o�	(��r�	$��x�	@��z�	$��}�	����	5����	����	����	����	
����	����	����	*����	
����	����	����	����	����	����	����	����	����	����	����	����	"����	����	����	
����	����	���	*���	
���	���	���	��!�	��+�	
��>�	��A�	 ��M�	��N�	��R�	$��W�	��`�	��c�	��i�	%��n�	��|�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	
���	��	�	���	���	���	���	���	��$�	.��&�	��.�	��4�	��5�	��=�	��@�	��H�	
���	Hgnamegcompile-shell-switches�CRC�gm
		,gfilenamefice-9/command-line.scm�		!
��	3	*
��	4	-	��	:	-	��	<	-	��	?	,
��	@	2	��	F	2	��	H	2	��	K	1
���	A
���	]
���	l	���	l	���	l	���	k
��
��
��

�
��V�
��.>�
��	.@
C6ice-9/deprecated.go000064400000141470150536206130010111 0ustar00GOOF----LE-8-2.0 �][4h;]gguile�	�	gdefine-module*�	�	�	gice-9�	g
deprecated�	�		gfilenameS�	
fice-9/deprecated.scm�	gexportsS�	gsubstring-move-left!�	
gsubstring-move-right!�	gdynamic-maybe-call�	gdynamic-maybe-link�	gtry-module-linked�	gtry-module-dynamic-link�	glist*�	gfeature?�	g	eval-case�	gunmemoize-expr�	g$asinh�	g$acosh�	g$atanh�	g$sqrt�	g$abs�	g$exp�	g$expt�	g$log�	g$sin�	g$cos�	 g$tan�	!g$asin�	"g$acos�	#g$atan�	$g$sinh�	%g$cosh�	&g$tanh�	'gclosure?�	(g%nil�	)g@bind�	*g	bad-throw�	+gerror-catching-loop�	,gerror-catching-repl�	-gscm-style-repl�	.g
apply-to-args�	/ghas-suffix?�	0gscheme-file-suffix�	1g
get-option�	2gfor-next-option�	3gdisplay-usage-report�	4gtransform-usage-lambda�	5gcollect�	6gassert-repl-silence�	7gassert-repl-print-unspecified�	8gassert-repl-verbosity�	9gset-repl-prompt!�	:gset-batch-mode?!�	;grepl�	<gpre-unwind-handler-dispatch�	=gdefault-pre-unwind-handler�	>ghandle-system-error�	?gstack-saved?�	@gthe-last-stack�	Ag
save-stack�	Bgnamed-module-use!�	Cgtop-repl�	Dgturn-on-debugging�	Egread-hash-procedures�	Fgprocess-define-module�	Ggfluid-let-syntax�	Hgset-system-module!�	Igchar-code-limit�	Jggeneralized-vector?�	Kggeneralized-vector-length�	Lggeneralized-vector-ref�	Mggeneralized-vector-set!�	Nggeneralized-vector->list�	O
 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNC�	Pgset-current-module�	QP�	RP�	Sgissue-deprecation-warning�	TfE`substring-move-left!' is deprecated.  Use `substring-move!' instead.�	Ugsubstring-move!�	VfF`substring-move-right!' is deprecated.  Use `substring-move!' instead.�	Wgreverse�	Xgstring->symbol�	Yg	substring�	Zg
string-ref�	[g
string-length�	\gsplit-c-module-name�	]gmap�	^gc-registered-modules�	_gc-clear-registered-modules�	`gconvert-c-registered-modules�	agregistered-modules�	bgappend!�	cgregister-modules�	df3Autoloading of compiled code modules is deprecated.�	ef7Write a Scheme file instead that uses `load-extension'.�	fg
simple-format�	gf (You just autoloaded module ~S.)�	hgwarn-autoload-deprecation�	igor-map�	jgdelq!�	kgresolve-module�	lgsave-module-excursion�	mgset-module-public-interface!�	ngdynamic-call�	oginit-dynamic-module�	pf%`dynamic-maybe-call' is deprecated.  �	qf7Wrap `dynamic-call' in a `false-if-exception' yourself.�	rgcatch�	sr�	tr�	uf%`dynamic-maybe-link' is deprecated.  �	vf7Wrap `dynamic-link' in a `false-if-exception' yourself.�	wgdynamic-link�	xg
string-append�	yflib�	zgsymbol->string�	{f/�	|f�	}f_�	~fscm_init�	glist->string��gchar-alphabetic?��g
char-numeric?��gstring->list��f_module��gin-vicinity��gtry-using-libtool-name��gtry-using-sharlib-name��gfile-exists?��glink-dynamic-module��g
%load-path��gfind-and-link-dynamic-module��f.la��f.so��f"`try-module-linked' is deprecated.��f,See the manual for how more on C extensions.��f(`try-module-dynamic-link' is deprecated.��f,'list*' is deprecated.  Use 'cons*' instead.��gcons*��f3`feature?' is deprecated.  Use `provided?' instead.��g	provided?��gmake-syntax-transformer��������gmacro��g$sc-dispatch��������g_��gany�������g
syntax->datum��������g
datum->syntax��������f4`eval-case' is deprecated.  Use `eval-when' instead.��g	assoc-ref��g
load-toplevel�����gbegin��g
*unspecified*��gelse�����gsyntax-violation��������f-source expression failed to match any pattern��gread-hash-extend��f=The `#y' bytevector syntax is deprecated.  Use `#s8' instead.��gread��glist->s8vector��gerror��f!#y needs to be followed by a list��fC`unmemoize-expr' is deprecated. Use `unmemoize-expression' instead.��gunmemoize-expression��f-`$asinh' is deprecated.  Use `asinh' instead.��gasinh��f-`$acosh' is deprecated.  Use `acosh' instead.��gacosh��f-`$atanh' is deprecated.  Use `atanh' instead.��gatanh��f+`$sqrt' is deprecated.  Use `sqrt' instead.��gsqrt��f)`$abs' is deprecated.  Use `abs' instead.��gabs��f)`$exp' is deprecated.  Use `exp' instead.��gexp��f+`$expt' is deprecated.  Use `expt' instead.��gexpt��f)`$log' is deprecated.  Use `log' instead.��glog��f)`$sin' is deprecated.  Use `sin' instead.��gsin��f)`$cos' is deprecated.  Use `cos' instead.��gcos��f)`$tan' is deprecated.  Use `tan' instead.��gtan��f+`$asin' is deprecated.  Use `asin' instead.��gasin��f+`$acos' is deprecated.  Use `acos' instead.��gacos��f+`$atan' is deprecated.  Use `atan' instead.��gatan��f+`$sinh' is deprecated.  Use `sinh' instead.��gsinh��f+`$cosh' is deprecated.  Use `cosh' instead.��gcosh��f+`$tanh' is deprecated.  Use `tanh' instead.��gtanh��f3`closure?' is deprecated. Use `procedure?' instead.��g
procedure?��gbound-identifier=?��f1`@bind' is deprecated. Use `with-fluids' instead.��geach-any���ތ��ߌ�����g
syntax-object��glet��gtop�����gribcage��gb0��gb1����������fl-2f788c0406b05c-348��fl-2f788c0406b05c-349������������gbound-member��������fl-2f788c0406b05c-33d�����������gx��������fl-2f788c0406b05c-33c�����������������ghygiene�����������geach������ߌ����gand-map�gidentifier?�fduplicate bound identifier�ggenerate-temporaries����	��
gold-v�gv�
�
fl-2f788c0406b05c-368�fl-2f788c0406b05c-369�
����gid�gval���������fl-2f788c0406b05c-357�fl-2f788c0406b05c-358�fl-2f788c0406b05c-359�fl-2f788c0406b05c-35a�����	�������gappend��� ]�!]�"glist�#gdynamic-wind�$�#��%glambda�&�%��'gset!�(�'��)gmake-module�*gset-module-name!�+g%app�,+�-gmodule-define-submodule!�.gthe-root-module�/gapp�0gmodules�1gmodule-public-interface�2gand=>�3gmodule-local-variable�4g%module-public-interface�5gvariable-ref�6f�Setting a module's public interface via munging %module-public-interface is
deprecated. Use set-module-public-interface! instead.�7gmodule-define!�8fm`bad-throw' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead.�9-�:9*�;9*�<fw`error-catching-loop' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead.�=9+�>9+�?fw`error-catching-repl' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead.�@9,�A9,�Bf�`scm-style-repl' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead, or
better yet, use the repl from `(system repl repl)'.�C9-�D9-�EfD`apply-to-args' is deprecated. Include a local copy in your program.�FfJ`has-suffix?' is deprecated. Use `string-suffix?' instead (args reversed).�Ggstring-suffix?�HfC`scheme-file-suffix' is deprecated. Use `%load-extensions' instead.�If.scm�Jf>`get-option' is deprecated. Use `(ice-9 getopt-long)' instead.�Kg
normal-arg�Lgstring-index�Mgsymbol->keyword�Ngmember�Ogusage-error�Pf-�QfC`for-next-option' is deprecated. Use `(ice-9 getopt-long)' instead.�RfH`display-usage-report' is deprecated. Use `(ice-9 getopt-long)' instead.�Sgfor-each�Tgstring?�Uf<�Vf>�Wgwith-output-to-string�Xgdisplay�Ygkeyword->symbol�Zf �[gmake-string�\f
	�]gnewline�^gcar�_gboolean?�`g%display-usage�agquote�bg%argv�cb�dg	%next-arg�ebb�fe�gg%opt�hg%arg�ig	%new-argv�jghi�kgcase�lf,`collect' is deprecated. Define it yourself.�m��nfl-2f788c0406b05c-442�on�p���o�q�	p�r�aq��sr�t�ߌ�ugx*�v�u�wfl-2f788c0406b05c-446�xfl-2f788c0406b05c-447�ywx�z�v�y�{�z	p�|��{��}�{��~gcons��~{����5{���f<`assert-repl-silence' has moved to `(ice-9 scm-style-repl)'.��96��96��fF`assert-repl-print-unspecified' has moved to `(ice-9 scm-style-repl)'.��97��97��f>`assert-repl-verbosity' has moved to `(ice-9 scm-style-repl)'.��98��98��fh`set-repl-prompt!' is deprecated. Use `repl-default-prompt-set!' from
the `(system repl common)' module.��g
module-ref��gresolve-interface��gsystem��gcommon���;���grepl-default-prompt-set!��fC`set-batch-mode?!' is deprecated. Use `ensure-batch-mode!' instead.��gensure-batch-mode!��f``set-batch-mode?!' with an argument of `#f' is deprecated. Use the
`*repl-stack*' fluid instead.��f)`repl' is deprecated. Define it yourself.��gcurrent-input-port��fu`pre-unwind-handler-dispatch' is deprecated. Use
`default-pre-unwind-handler' from `(ice-9 scm-style-repl)' directly.��9=��9=��fa`default-pre-unwind-handler' is deprecated. Use it from 
`(ice-9 scm-style-repl)' if you need it.��fZ`handle-system-error' is deprecated. Use it from 
`(ice-9 scm-style-repl)' if you need it.��9>��9>��gmake-variable-transformer��fN`stack-saved?' is deprecated. Use it from
`(ice-9 save-stack)' if you need it.��gfree-id��fl-2f788c0406b05c-46d������������	����'�������������g@����fl-2f788c0406b05c-47b�������������	���������������A���������?�����������fl-2f788c0406b05c-474��fl-2f788c0406b05c-475��������������	����'����������������A���������?���������fP`the-last-stack' is deprecated. Use it from `(ice-9 save-stack)'
if you need it.��fl-2f788c0406b05c-483�����������fl-2f788c0406b05c-47e�������������	���������������A���������@���������fL`save-stack' is deprecated. Use it from `(ice-9 save-stack)' if you need
it.��A���A���A��fE`named-module-use!' is deprecated. Define it yourself if you need it.��gmodule-use!��f6`top-repl' has moved to the `(ice-9 top-repl)' module.��C��gdebug-enable��gmemq��gdebug��f6`(debug-enable 'debug)' is obsolete and has no effect.��fRemove it from your code.��gdelq��f<`(turn-on-debugging)' is obsolete and usually has no effect.��f.Debugging capabilities are present by default.��g	backtrace��gread-enable��g	positions��f%`read-hash-procedures' is deprecated.��f.Use the fluid `%read-hash-procedures' instead.��gread-hash-procedures-warning��������gm-2f788c0406b05c-48f���������fl-2f788c0406b05c-491�����������gshift��gexp1��gvar��gexp2��������������fl-bde397a-1bec��fl-bde397a-1bed��fl-bde397a-1bee��fl-bde397a-1bef��fl-bde397a-1bf0���������������gxx�����fl-bde397a-1bda������������	���	������'��������gexpr��fl-2f788c0406b05c-494������	��	����
����
�g
fluid-set!�
���g%read-hash-procedures�����ތ�fl-2f788c0406b05c-497�������	�����������g	fluid-ref������������	�� ����!����"����#"�$���%���&$%�'!#&�(fE`process-define-module' is deprecated.  Use `define-module*' instead.�)gpureS�*gversionS�+g
duplicatesS�,gtransformerS�-gimportsS�.greverse!�/g
re-exportsS�0greplacementsS�1g	autoloadsS�2g
use-moduleS�3g
use-syntaxS�4f)missing argument to define-module keyword�5gsyncase�65�7fL(ice-9 syncase) is deprecated. Support for syntax-case is now in Guile core.�8gautoloadS�9gno-backtraceS�:gexportS�;g
export-syntaxS�<g	re-exportS�=gre-export-syntaxS�>greplaceS�?greplace-syntaxS�@f#unrecognized define-module argument�AfA`fluid-let-syntax' is deprecated.  Use syntax parameters instead.�Bgsyntax-parameterize�Cgk�Dgbody0�Egbody�FCDE�Gfl-2f788c0406b05c-4ed�Hfl-2f788c0406b05c-4ee�Ifl-2f788c0406b05c-4ef�Jfl-2f788c0406b05c-4f0�KGHIJ�L�FK�Mfl-2f788c0406b05c-4ea�NM�O���N�P�L	O�Q�BP��Rf9`close-io-port' is deprecated.  Use `close-port' instead.�Sg
close-port�Tg
close-io-port�Uf@`set-system-module!' is deprecated.  There is no need to use it.�Vgset-procedure-property!�Wgmodule-eval-closure�Xg
system-module�YfT`module-eval-closure' is deprecated.  Use module-variable or module-define! instead.�Zgstandard-eval-closure�C5hp�.]4	
O54R>"GSTUh(�-134>"G@�gargs
			!gfilenamefice-9/deprecated.scm�
	T	��	
	U	��		V	��		U	��	!	W	��			!


gnamegsubstring-move-left!�CRSVUh(�-134>"G@�gargs
			!gfilenamefice-9/deprecated.scm�
	Y	��	
	Z	��		[	��		Z	��	!	\	��			!


gnamegsubstring-move-right!�C
RWXYZ[h�x]!"k�$4455�645 &'4455���"����"���

45"��pgstr
	�grev		qgstart			qgpos			qgend			qgfilenamefice-9/deprecated.scm�
	c
��		d	��		i	��		h	��		j	��		j	%��	!	j	��	$	j	��	&	j	��	'	k	��	5	h	��	6	l	��	9	l	"��	E	l	��	H	l	��	K	m	��	N	n	��	\	l	��	c	q	��	q	q	��	q	d	��	r	d	��	u	g	���	d	��	�gnamegsplit-c-module-name�C\R]\h]4�5�LCwgc
		gfilenamefice-9/deprecated.scm�
	t	��		u	��		u	/��	
	u	��	
	u	8��		u	��		C^_h(�]	4O4554>"GC�gdynobj
		(gres		(gfilenamefice-9/deprecated.scm�
	s
��		t	
��	
	v	��		t	
��		t	��		w	��		(gnamegconvert-c-registered-modules�C`RaRb`ah�]4455 C�gdynobj
		gfilenamefice-9/deprecated.scm�
	|
��		~	��		~	��		~	��		}	��		gnamegregister-modules�CcRSdefgh(�]4>"G456�gmodname
		$gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	�	��	�	��	"�	��	$�	��
		$gnamegwarn-autoload-deprecation�ChRcihjaklPmnh8u]4L>"G4LL>"GL��L���6mgfilenamefice-9/deprecated.scm�
�	��	�	��	�	��	-�	%��	1�	4��	5�	��		5
ChP�]	�L�$B4L>"G45 4L54O>"GCC�gmodinfo
		Pgmod	1	Ngfilenamefice-9/deprecated.scm�
�	
��	�	��	�	��	�	��	
�	��	�	+��	)�	��	*�	��	1�	��	4�	��		PCah �]4>"GO6�gmodname
		 gfilenamefice-9/deprecated.scm�
�
��	�	��	 �	��		 gnameginit-dynamic-module�CoRSpqtnhQ]LL6Igfilenamefice-9/deprecated.scm�
�	��	
�	��		

Ch]-13CUgargs
			gfilenamefice-9/deprecated.scm�
�	��			


Ch(�]4>"GO6�gname
		&gdynobj		&gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	&�	��		&	gnamegdynamic-maybe-call�CRSuvtwhQ]L6Igfilenamefice-9/deprecated.scm�
�	��	�	��		
Ch]-13CUgargs
			gfilenamefice-9/deprecated.scm�
�	��			


Ch(�]4>"GO6�gfilename
		$gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	$�	��		$gnamegdynamic-maybe-link�CRxyz{|]x}zhs]456kgs
		gfilenamefice-9/deprecated.scm�
�	*��	�	;��	�	;��	�	,��		C~��h0�]	45$"45$C_C�gc
		*gt			 gfilenamefice-9/deprecated.scm�
�	&��	�	0��		�	,��	�	0��	$�	(��		*C��������h]9"9�(44�55�"(44�55�"���"���445?44	4
45555��"g(C4
�545$"	45"	�"���$45$6"���"���"���wgmodule-name
	�gdirs		?gsyms			?gmod-name	Y	zgsubdir-and-libname	z�ginit		z�gsubdir	��glibname	��gdir-list	��gdir	��gt	��gsharlib-full	��gfilenamefice-9/deprecated.scm�
�
��	�		��		�	��	
�	��	�	��	�	)��	�	/��	�	?��	�	/��	�	��	�	��	$�	��	)�	)��	.�	9��	0�	)��	2�	E��	4�	��	7�	��	?�	��	?�		��	A�	��	K�		��	L�	��	O�	%��	Y�	��	Y�	��	\�	��	`�	��	a�	��	d�	!��	i�	&��	q�	!��	s�	��	u�	��	w�	��	z�	����	����	����	����	����	����	����	%����	����	����	����	����	����	����	����	����	����	$����	����	����	��9	�gnamegfind-and-link-dynamic-module�C�R�x��h(�]
445545$CC�glibdir
		$glibname		$glibtool-filename			$gfilenamefice-9/deprecated.scm�
�
��	�	��	�	'��	�	>��	�	'��	�	��	�	��	�		��	�	��
		$	gnamegtry-using-libtool-name�C�R�x�h�]456�glibdir
		glibname		gfilenamefice-9/deprecated.scm�
�
��	�	��	
�	-��	�	��	�	��			gnamegtry-using-sharlib-name�C�Rcwnh8�]
4>"G454>"G6�gfilename
		6ginitname		6gdynobj			6gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	6�	��		6	gnameglink-dynamic-module�C�RS��oh �]4>"G6�gmodule-name
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	�	��		gnamegtry-module-linked�CRS���oh0�]4>"G45$6C�gmodule-name
		)gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	�	��	!�	��	'�	��			)gnamegtry-module-dynamic-link�CRS��h(�-134>"G@�gargs
			!gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	!�	��			!


gnameglist*�CRS��h �]4>"G6�gsym
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��		gnamegfeature?�CR4������S�������	hX�-134>"G45$	��C45$	��CC�gclauses
			Rgt	$	Rgt		>	Rgfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��		��	"	��	$	��	$	��	.		��	6	��	<	��	>	��	>	��	H
		��	Q	��			R


Chi]	45L4?6agargs
		gv			gfilenamefice-9/deprecated.scm�	�
��		C��h(g]	45$O@6_gy
		'gtmp		'gfilenamefice-9/deprecated.scm�
�
��		'C5R4�iyS�����h8�]
4>"G45�$66�gc
		2gport		2gx			2gfilenamefice-9/deprecated.scm�
��		��		��		��		��		��	 	��	$	��	*	��	.	��	2	��		2	C>"GS��h(�-134>"G@�gargs
			!gfilenamefice-9/deprecated.scm�

��	
	��		��		��	!	��			!


gnamegunmemoize-expr�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�

��	 	��	!	��	 	��	"	��		gnameg$asinh�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
#
��	$	��	%	��	$	��	&	��		gnameg$acosh�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
'
��	(	��	)	��	(	��	*	��		gnameg$atanh�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
+
��	,	��	-	��	,	��	.	��		gnameg$sqrt�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
/
��	0	��	1	��	0	��	2	��		gnameg$abs�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
3
��	4	��	5	��	4	��	6	��		gnameg$exp�CRS��h �]4>"G6�gz1
		gz2		gfilenamefice-9/deprecated.scm�
7
��	8	��	9	��	8	��	:	��			gnameg$expt�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
;
��	<	��	=	��	<	��	>	��		gnameg$log�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
?
��	@	��	A	��	@	��	B	��		gnameg$sin�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
C
��	D	��	E	��	D	��	F	��		gnameg$cos�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
G
��	H	��	I	��	H	��	J	��		gnameg$tan�C RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
K
��	L	��	M	��	L	��	N	��		gnameg$asin�C!RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
O
��	P	��	Q	��	P	��	R	��		gnameg$acos�C"RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
S
��	T	��	U	��	T	��	V	��		gnameg$atan�C#RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
W
��	X	��	Y	��	X	��	Z	��		gnameg$sinh�C$RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
[
��	\	��	]	��	\	��	^	��		gnameg$cosh�C%RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
_
��	`	��	a	��	`	��	b	��		gnameg$tanh�C&RS��h �]4>"G6�gx
		gfilenamefice-9/deprecated.scm�
d
��	e	��	f	��	e	��	g	��		gnamegclosure?�C'R(R4�)��h8�]
(C4�5$C4L��5$CC�gid
		2gids		2gt		%	2gfilenamefice-9/deprecated.scm�
p	��	q	��	r	
��	r	$��	r	
��	q	��	s	
��	 s	��	#s	%��	%s	
��	%q	��		2	gnamegbound-member�CS����h:]���C2gb0
		
gb1		
		
	C��h�]6�gid
		
gval		
gb0			
gb1			
gfilenamefice-9/deprecated.scm�	
|	��		
	C�)�!"$&(hb]CZgtmp-2f788c0406b05c-371
		gtmp-2f788c0406b05c-370					C(hb]CZgtmp-2f788c0406b05c-374
		gtmp-2f788c0406b05c-373					C	hX<]44L54L554L5��LL���4L5��C4gold-v
		Rgv		R		R	C��
h�U]"(("%4L��5$"�"���"���$
L6454545$O@	6Mgid
	�gval	�gb0		�gb1		�gids			.gtmp		U�gtmp		`�gfilenamefice-9/deprecated.scm�	}	��	~	
��		��		"��		,��		��	 ~	
��	(�	��	.�	��	.}	��	:}	��	>�	��	@�	$��	D�	��	E�	&��	L�	"��	U�	��	�	Chx�]OQ4>"G45$@45"		6$4
?$
O@"���"����gx
		vgbound-member	
	vgtmp		*	vgtmp		A	vgfilenamefice-9/deprecated.scm�
o	��	u	��	v	��	u	��		vC5)R4)i	54*i,>"G4-i.i+>"G4-i.i/>"G4-i04ki5>"G1i2345S6mhX�]	4L5$C4455$)4>"G4>"GCC�gmod
		Wgt			Wgt	$	Wgfilenamefice-9/deprecated.scm�
�	��	�	��		�	
��	�	��	�	��	�	2��	 �	��	$�	��	$�	��	-�	��	1�
��	6�	��	?�	��		WCO1imi74h �]4L>"G6�gmod
		 giface		 gfilenamefice-9/deprecated.scm�
�	��	�	
��	�	��	 �	
��		 	COmiS8;h(�-134>"G@�gkey
			#gargs			#gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	#�	��			#
gnameg	bad-throw�C*RS<>h �]4>"G6�gthunk
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnamegerror-catching-loop�C+RS?Ah �]4>"G6�gr
		ge		gp			gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��			gnamegerror-catching-repl�C,RSBDh�]4>"G6�gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��		
gnamegscm-style-repl�C-RSEh �]4>"G@�gargs
		gfn		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��			gnameg
apply-to-args�C.RSFGh �]4>"G6�gstr
		gsuffix		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��			gnameghas-suffix?�C/RSHIh�]4>"GC�gfilenamefice-9/deprecated.scm�
�	��	�	��	�	��	�	��	�	��		
gnamegscheme-file-suffix�C0RSJZ[KLMYNOxP
h�L],H4>"GJ(J6-4J�
5��$"
4J�5�$J�J�6-4J�5&�4J�=5$"4J�544J�	554	54	54J�5&"4J��4J�55$"$J�KJ�"$"$J�6
J�64J�	5454	5$@4J�	4J�55
45�$J�"
45J��64	5$Q4J�	4J�55
45�$J��"
45�$J��"J�6
J6Dgargv
	�gkw-opts	�gkw-args		�greturn		�gt		3	Mgt		v�g
kw-arg-pos	�-gkw	�-gkw-opt?	�-gkw-arg?	�-gt	�garg	-gchar	8�gkw	A�grest-car	b�gnew-argv	��grest-car	��garg	��gnew-argv	��gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	&�	��	)�	��	.�	"��	1�	��	2�	
��	3�	��	3�	��	A�	
��	F�	��	H�	
��	J�	��	Q�	��	U�	��	X�	��	[�	#��	]�	��	`�	
��	e�	��	h�	
��	l�	��	m�	��	r�	)��	v�	��	v�	����	����	*����	����	����	����	 ����	+����	 ����	����	����	����	���	����	���	.���	=���	.���	���	���	$���	$���	$���	3���	$���	���	���	���	+���	 ���	7���	��	
��	�� 	��"	
��&		��+		"��-		
��.	��3	��8	��8	��;
	��A	��D	��P	��Q	��V	$��Y	1��^	@��`	1��b	��b	��f	"��m	��q	��t	��y	#��}	2���	#���	@���	���	���	
���	���	���	���	$���	1���	@���	1���	���	���	���	���	���	���	���	"���	���	���	���	���	���	
���!	���!	
��u	�	gnameg
get-option�C1RSQ1h�]$LL6C�gopt
		gopt-arg		gargv			gfilenamefice-9/deprecated.scm�
(	��	)	��	)	��			Chu]LLLLO6mgargv
		gfilenamefice-9/deprecated.scm�
&	��	'	��		gnamegloop�C1h�]$LL6C�gopt
		gopt-arg		gargv			gfilenamefice-9/deprecated.scm�
(	��	)	��	)	��			Ch@�]4>"GOQO6�gproc
		=gargv		=gkw-opts			=gkw-args			=gloop			=gfilenamefice-9/deprecated.scm�
#
��	$	��	%	��	$	��	&	��	='	��		=	gnamegfor-next-option�C2RSRS�TxUV|W]XYZh �]445>"G6}gx
		gfilenamefice-9/deprecated.scm�
<	%��	<	1��	<	:��	<	1��	<	X��	<	O��		ChQ]L6Igfilenamefice-9/deprecated.scm�
;	��	
<	 ��		

C[[\X]h��]1��$C��$C���4�5$�"4�5$4�5"44O554	5	�$)4	5	(�$4
	4	5� 5""4>"G4>"G4>"G
6�gkw
	�gt	�gt	�ghelp	'�gopts		,�gopts-proper		C�garg-name		c�g	left-part		x�gmiddle-part	��	gfilenamefice-9/deprecated.scm�
/	��	0	��	0		��	0	��	1	��	1	��	1		��	0	��	&3	��	'2		��	,4	��	,2		��	/5	!��	45	*��	65	!��	:5	��	=5	6��	C2		��	F6	��	K6	'��	M6	��	Q6	��	R7	��	V7	-��	Y7	1��	[7	<��	]7	��	c8	��	c2		��	f9	��	i:	��	x9	��	x2		��	{?	)���?	&���?	���@	)���@	&���?	!���A	!���A	4���A	.���A	!���B	!���2		���C	���D	���E	���F	��2	�Ch �]4>"G6�gkw-desc
		gfilenamefice-9/deprecated.scm�
+
��	,	��	-	��	,	��	.	��		gnamegdisplay-usage-report�C3RSRj�]^_hX�]	�$"$�$"C��$C4�5$"$CC�gx
		Rgt	'	Rgt	D	Rgfilenamefice-9/deprecated.scm�
M	#��	N	2��		N	(��	N	$��	N	2��	N	(��	&O	6��	'O	-��	'N	$��	3P	-��	8P	7��	:P	-��	>P	(��	DN	$��		RCTh|]4�5$CCtgx
		gfilenamefice-9/deprecated.scm�
U	%��	U	;��	U	D��	
U	;��	U	1��		CTh�]4�5$�CC}gx
		gfilenamefice-9/deprecated.scm�
V	%��	V	6��	V	?��	
V	6��	V	1��	V	H��		C_�ThpA]�45$"�$"8��$"*4�5$"4��5$��"���C9gcase
		mgopts		hgt			#gfilenamefice-9/deprecated.scm�
W	$��	X	8��	X	,��	Y	6��	Y	2��	Y	K��	 Y	F��	'Y	.��	0\	=��	1\	4��	5[	2��	<]	4��	A]	>��	C]	4��	G[	2��	N^	4��	S^	=��	V^	4��	Z[	2��	]^	J��	e_	9��	k`	,��	lX	&��		mC�`%3acdf1bjkgh�]94>"G445545454544	5?44
5?45
��Cgcases
	�g	raw-usage	$�gusage-sans-specials		/�g
usage-desc		9�gkw-desc		D�gkw-opts		T�gkw-args		d�gtransmogrified-cases		o�gfilenamefice-9/deprecated.scm�
I
��	J	��	K	��	J	��	L	��	L	��	L	!��	$L	��	$L	��	'M	��	/L	��	2S	��	9L	��	<T	��	DL	��	GU	��	JU	 ��	TU	��	TL	��	WV	��	ZV	 ��	dV	��	dL	��	gW	��	oL	��	sb	��	�gnamegtransform-usage-lambda�C4R4�5�Sl�msh]C		
Ct|}�h 9]�C1gx
		gx*					C��
hP�]4>"G45$@45$@	6�gx
		Kgtmp		Kgtmp		4	Kgfilenamefice-9/deprecated.scm�
u	��	v	��	w	��	v	��		KC55RS��h �]4>"G6�gv
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnamegassert-repl-silence�C6RS��h �]4>"G6�gv
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnamegassert-repl-print-unspecified�C7RS��h �]4>"G6�gv
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnamegassert-repl-verbosity�C8RS�����h(�]4>"G44556�gv
		&gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	"��	�	��	 �	��	"�	��	&�	��		&gnamegset-repl-prompt!�C9RS���h8�]$4>"G64>"GC�garg
		2gfilenamefice-9/deprecated.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	�	��	#�	��	(�	��
		2gnamegset-batch-mode?!�C:RS��hP6]4>"G"'445>"G4455"���4455"���.gread
		Ogevaler		Ogprint			Ogsource			?gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	'�	��	0�	
��	3�	��	9�	
��	?�	��	?�	��	@�	��	C�	��	I�	��	O�	��		O	gnamegrepl�C;RS��h(�-134>"G@�gkey
			#gargs			#gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	#�	��			#
gnamegpre-unwind-handler-dispatch�C<RS��h(�-134>"G@�gkey
			#gargs			#gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	#�	��			#
gnamegdefault-pre-unwind-handler�C=RS��h(�-134>"G@�gkey
			#gargs			#gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	#�	��			#
gnameghandle-system-error�C>R4�?�4�iS���hZ]6Rgid
		gfilenamefice-9/deprecated.scm�	�	��		C�h*]C"gid
				C��hk]6cgid
		gval		gfilenamefice-9/deprecated.scm�	�	��			C��h;]C3gid
		gval					Chh�]4>"G45"!4?$@6$4	?$
@"���"����gx
		cgtmp		cgtmp		(	Dgfilenamefice-9/deprecated.scm�
�	��	�	��	�	��	�	��		cC55?R4�@�S�hZ]6Rgid
		gfilenamefice-9/deprecated.scm�	�	��		C�h*]C"gid
				C��h8�]	4>"G4?$@6{gx
		5gtmp		5gfilenamefice-9/deprecated.scm�
�	��	�	��	�	��	�	��		5C5@RS��h(�-134>"G@�gargs
			!gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	!�	��			!


gnameg
save-stack�CARS��k�h(�]4>"G45456�guser
		&gusee		&gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	%��	&�	��		&	gnamegnamed-module-use!�CBRS��k�Ch(�]4>"G44556�gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	2��	"�	��	$�	��		$
gnamegtop-repl�CCR�i��S���h@�-1345$!4>"GL45@L@�gopts
			=gfilenamefice-9/deprecated.scm�
�	��	
�	��	�	��	�	��	�	
��	�	��	�	��	�	��	"�	��	-�	$��	1�	*��	5�	$��	7�	��	=�	��			=


CO�iS������h0�]4>"G4>"G6�gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	�	��	�	��	 �	��	,�	��	.�	��		.
gnamegturn-on-debugging�CDRS��h�]6�gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	
�	��		

gnamegread-hash-procedures-warning�C�R4�E�4��	
h,]C$gexpr
				Ch)]�C!gx
				C��� hI]6Agfilenamefice-9/deprecated.scm�		��		
C'h]C		
Chh�]45$@45$@45"	6$4	?$
@"���"����gx
		ggtmp		ggtmp		"	ggtmp		9	ggfilenamefice-9/deprecated.scm�
	��		gg
macro-typegvariable-transformer�C55ERS(	)*+,-./0123�46789:;<=>?@hX�]y4>"G�HHHHH"(3JJJJJ	4
5	

6�

�$"
�$���$"
4>"G���$04>"G��	

	"��B��
&K"���	

	"��
�$n��$	���"$"
4>"G��������	
��
	"���
�$�	

	"��n
�$ K�	

	"��E
�$R��$"
4>"G��K��	

	"���
�$K��$"
4>"G��K��	

	"���
�$"
�$U��$"
4>"G��4	��5

	"��*
�$"
�$U��$"
4>"G��	4
��5
	"���
�$"
�$U��$"
4>"G��	
4��5
	"��R
�$R��$"
4>"G��K��	

	"���6�
	"����gargs
	Ugname	Ugfilename		Ugpure?		Ugversion		Ug
duplicates		Ugtransformer		Ugkws		,=gimports		,=gexports			,=g
re-exports	
	,=greplacements		,=g	autoloads		,=gkey	
	h=gt	��gkw	��g
iface-spec	�!gt	<fgkw	Jcgname	o�gbindings	o�gt	�gkw	gkw	Yrgt	��gkw	��gt	Ggkw	+Dgt	��gkw	��gt	�gkw	� gfilenamefice-9/deprecated.scm�

��		��		��		��		��		��		��	,	��	2	��	M"	��	e	
��	h'	��	h'	
���)	���)	���)	
���*	���*	���
	���
	���
	���,	���,	"���,	���+	
���-	���.	���-	���/	���/	���2	!���2	���3	���3	���4	��5	��	6	��!5	��*'	
��-9	��.9	��29	��59	/��79	(��<9	
��J:	��J:	��M
	��Q
	��X
	��i;	��m<	��o;	
��v=	���?	"���=	���'	
���C	���C	
���'	
���F	
���G	���G	
���'	
���J	���J	���J	
��K	��K	��
	��	
	��
	��!L	��$L	
��'M	��BM	
��K'	
��NP	��OP	��SP	
��YQ	��YQ	��\
	��`
	��g
	��uR	��xR	
��{S	���S	
���'	
���V	���V	���V	
���W	���W	���
	���
	���
	���X	���Y	���Y	+���Y	��X	
��'	
��\	��\	��\	
��+]	��+]	��.
	��2
	��9
	��J^	��P_	#��W_	6��Z_	#��n^	
��w'	
���b	���b	���b	
���c	���c	���
	���
	���
	���d	���f	���f	(���f	���d	
���'	
���h	���h	���h	
���i	���i	���
	���
	��
	��j	��j	
��k	��5k	
��9	��=	��=	��@	��A	��B	��C	��D	��E	��U	���	Ugnamegprocess-define-module�CFR4�G�SA�Q!"h]]45���CUgk
		gv		gbody0			gbody						C��h8�]	4>"G45$@6{gx
		4gtmp		4gfilenamefice-9/deprecated.scm�
q	��	r	��	s	��	r	��		4C5GRSRSh �]4>"G6�gport
		gfilenamefice-9/deprecated.scm�
y
��	z	��	{	��	z	��	|	��		gnameg
close-io-port�CTRSUVWXh(�]4>"G456�gm
		#gs		#gfilenamefice-9/deprecated.scm�
~
��		��	�	��		��	�	��	�	3��	#�	��		#	gnamegset-system-module!�CHRSYZh �]4>"G6�gm
		gfilenamefice-9/deprecated.scm�
�	��	�	��	�		��	�	��	�	��		gnamegmodule-eval-closure�CWiIRC&gm
		(g%app
5e5�ggetter
5�7Igsetter
7R8gdebug-enable
jkJgfilenamefice-9/deprecated.scm�		
��	S
���	X
��	c
���	s
���	z	���	z
��s	|
����
��
B�
��5�
��
�
��"�
��]�
��C�
��h�
��O�
��_�
��5�
����
���
���
�� �
��!i#
��"1'
��"�+
��#�/
��$�3
��%a7
��&';
��&�?
��'�C
��(G
��)HK
��*O
��*�S
��+�W
��,h[
��-0_
��-�d
��-�i
��5\�	��5e�
��5h�	��5r�	��5w�	��5��	��5��	,��5��	��5��	��5��	,��5��	��5��	��5��	!��5��	*��5��	:��5��	*��5��	��5��	��7N�
��7R�	��8�
��9	�
��9��
��:��
��;��
��<��
��=l�
��>.�
��F��
��J#
��O�+
��W�I
��Z?�
��[)�
��\	�
��]!�
��^9�
��_��
��`��
��a��
��b��
��b��	��h�
��i�
��j	�
��j�	��kO�
��lY�
��m�
��m	��}>
���y
����~
���a�
���g�
��a	�i
C6ice-9/ls.go000064400000005462150536206130006427 0ustar00GOOF----LE-8-2.0]%4hU]gguile�	�	gdefine-module*�	�	�	gice-9�	gls�	�		gfilenameS�	
fice-9/ls.scm�	gimportsS�	gcommon-list�	
�	
�	�	gexportsS�	glocal-definitions-in�	gdefinitions-in�	glls�	grecursive-local-define�	�	gset-current-module�	�	�	gnested-ref-module�	g
module-map�	g
nested-ref�	greduce�	gunion�	gmap�	gmodule-uses�	 gcurrent-module�	!greverse!�	"greverse�	#gmodule-define!�	$gmake-modules-in�C5hx]4	
54>"Gh^]CVgk
		gv		gfilenamefice-9/ls.scm�
	:	��			Ch(�]
45$66�groot
		#gnames		#gm			#gfilenamefice-9/ls.scm�
	7
��		8	��		8	��		9	��		:	��	#	;	��		#	gnameglocal-definitions-in�CRh`]6Xgm2
			gfilenamefice-9/ls.scm�
	B	��		B	;��			B	(��			C	h8�]
45$454455�66�groot
		8gnames		8gm			8gfilenamefice-9/ls.scm�
	=
��		>	��		>	��		?	��		A	��		A	.��		A	��	 	B	��	%	C	��	-	B	��	.	A	��	0	@	��	8	D	��		8	gnamegdefinitions-in�CR hq]4455�Cigref
		gfilenamefice-9/ls.scm�
	I	��		J	��		J	,��		J	��		J	��		C h8�-13�$�$645�6456�gvarious-refs
			5gfilenamefice-9/ls.scm�
	F
��		G	��		G	��		H	��		H	��		I	��	"	L	��	)	L	+��	+	L	
��	.	M	��	3	M	'��	5	M	��
			5


gnamegls�CR hq]4455�Cigref
		gfilenamefice-9/ls.scm�
	R	��		S	��		S	2��		S	��		S	��		C h8�-13�$�$645�6456�gvarious-refs
			5gfilenamefice-9/ls.scm�
	O
��		P	��		P	��		Q	��		Q	��		R	��	"	U	 ��	)	U	1��	+	U	
��	.	V	��	3	V	-��	5	V	��
			5


gnameglls�CR!"#$ h(�]
445�544556�gname
		%gvalue		%gparent			%gfilenamefice-9/ls.scm�
	X
��		Y	��		Y	��	
	Y	��		Y	��		Y	��		Z	��		Z	%��		Z	��	%	Z	��		%	gnamegrecursive-local-define�CRCpgm
		,gfilenamefice-9/ls.scm�		
���	7
��i	=
��	F
���	O
���	X
��	
C6ice-9/expect.go000064400000012623150536206130007276 0ustar00GOOF----LE-8-2.0{]t4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gexpect�	�		gfilenameS�	
fice-9/expect.scm�	gimportsS�	gregex�	
�	
�	�	gexportsS�	gexpect-strings�	gexpect-port�	gexpect-timeout�	gexpect-timeout-proc�	gexpect-eof-proc�	gexpect-char-proc�	gexpect-strings-compile-flags�	gexpect-strings-exec-flags�	g
expect-select�	gexpect-regexec�	�	gset-current-module�	�	�	gmake-syntax-transformer�	 �	!�	"gmacro�	#g$sc-dispatch�	$#�	%#�	&g_�	'gany�	(&'��	)g
syntax->datum�	*)�	+)�	,g
datum->syntax�	-,�	.,�	/ggensym�	0glet�	1f�	21�	3gor�	4gcurrent-input-port�	54�	635�	76�	8gif�	9glet*�	:g
secs-usecs�	;ggettimeofday�	<;�	=:<�	>=�	?g+�	@gcar�	A@:�	Bg/�	Cgcdr�	DC:�	EBDB@�	F?AE�	G9>F�	H8G�	IH�	Jg	next-char�	Kgand�	Lgnot�	M�	Ng	read-char�	Ogeof-object?�	Pgset!�	Qg
string-append�	Rgstring�	Sgcond�	Tgappend�	UT�	VT�	Wgreverse�	Xg=>�	Yglength�	Zgapply�	[g	scm-error�	\g
misc-error�	]fexpect�	^fbad recipient: ~S�	_gmap�	`gelse�	aJ�	b`a�	cb�	dgsyntax-violation�	ed�	fd�	gf-source expression failed to match any pattern�	hgregexp/newline�	ig
regexp/noteol�	jgmake-regexp�	k�	lglambda�	mgs�	ngeof?�	omn�	pgselect�	qgregexp-exec�	rgmatch:substring�	sgmatch:count�C5h`
�]4	
54>"GRRRRR4!"%(+./027IJ8KLMNOPQRSVWXYZ[\]^_@C`c$h�q-1345454545���	

���
4"�(45"�����("M��&@4�5	�$����"4�5"���"��s454 5"��V!""
���#��5�Cigclauses
		�gs	�gc		�gport		�gtimeout		�gtests	�@gexprs	�@gbody	�@gfilenamefice-9/expect.scm�
	1
��	
	2	��		3	��		4	��		5	��		2	��	'	6	���	O	���	R	���	T	���	W	���	X	���	Z	���	Z	���	[	*���	[	���	\	#���	]	(���	]	5���	[	���	^	/���	^	7���	^	/���	^	,���	^	#��	e	'��	e	1��	f	2��	e	'��	`	'��	`	2�� 	a	2��"	b	2��%	c	8��(	c	2��+	`	'��2	h	#��3	Z	��6	Y	��@	V	��@	O	��A	O	)��J	P	)��S	Q	(��]	O	��_	6	��/		�


Chd]	45L4?6\gargs
		gv			gfilenamefice-9/expect.scm�		1
��		Cfgh(b]	45$O@6Zgy
		'gtmp		'gfilenamefice-9/expect.scm�
	1
��		'C5RhiRiiR4!"%(+.0W/jklo_@C
h��-13"a(4545�"c45������	�����"���4
54
5"���C�gclauses
		�gtests		pgexprs			pgdefs			pgbody			pgrxname		2	pgfilenamefice-9/expect.scm�
	x
��		y	��		y	
��		}	��		~	��		~	(��		~	3��	&	~	(��	)	~	��	.�	!��	2�	��	7�	 ��	:�	 ��	>�	&��	A�	2��	C�	&��	K�	 ��	M�	&��	]�	*��	^�	&��	a�	 ��	m�	��	p	y	
��	q	y	!��	z	z	!���	{	 ���	|	 ���	y	
���	y	��		�


Chd]	45L4?6\gargs
		gv			gfilenamefice-9/expect.scm�		x
��		Cfgh(b]	45$O@6Zgy
		'gtmp		'gfilenamefice-9/expect.scm�
	x
��		'C5R;ph@L]45���B@��
�$45��CCDgport
		:gtimeout		:g
secs-usecs			:grelative			:gfilenamefice-9/expect.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�		��	'�	��	(�	��	/�	��	0�	)��	1�	-��	5�	��	6�	��	7�		��		:	gnameg
expect-select�CRiqrsh��]#""$$�$	�""���""���4
5$7""
�$C�45�"���45�"���C|grx
		gs		geof?			gflags		0	gmatch		>	gi		J	lgresult		J	lgfilenamefice-9/expect.scm�
�
��	�	��	�	��	�	��	 �	��	0�	��	3�	��	>�	��	F�	��	J�	��	N�	
��	R�	��	X�	*��	Y�	��	d�	��	l�	��	m�	��	t�	��	u�	��	}�	��			gnamegexpect-regexec�CRC�gm
		,gfilenamefice-9/expect.scm�		
��	0	)
��	4	*
��	8	+
��	<	,
��	@	-
���	s
���	t
��7�
��
W�
��	
Y
C6ice-9/futures.go000064400000127425150536206130007512 0ustar00GOOF----LE-8-2.0��]w4h�S]gguile�	�	gdefine-module*�	�	�	gice-9�	gfutures�	�		gfilenameS�	
fice-9/futures.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	gsrfi-9�	�	�	ggnu�	�	�	gsrfi-11�	�	�	gq�	�	�	gmatch�	�	�	gcontrol�	 �	! �	"!�	#gexportsS�	$gfuture�	%gmake-future�	&gfuture?�	'gtouch�	($%&'�	)gset-current-module�	*)�	+)�	,g<future>�	-g%%make-future-procedure�	.gmake-syntax-transformer�	/.�	0.�	1g%make-future�	2gmacro�	3g$sc-dispatch�	43�	53�	6g_�	7gany�	867777�	9g
syntax-object�	:glambda�	;gm-3eebb96279-7�	<gtop�	=;<�	>gribcage�	?gt-3eebb96279-3�	@gt-3eebb96279-4�	Agt-3eebb96279-5�	Bgt-3eebb96279-6�	C?@AB�	D====�	Efl-3eebb96279-c�	Ffl-3eebb96279-d�	Gfl-3eebb96279-e�	Hfl-3eebb96279-f�	IEFGH�	J>CDI�	K>�	Lgx�	ML�	N=�	Ofl-3eebb96279-9�	PO�	Q>MNP�	Rgshift�	Sg	proc-name�	Tgargs�	UST�	V<�	WVV�	Xfl-1e8ba8b5a-60�	Yfl-1e8ba8b5a-61�	ZXY�	[>UWZ�	\gkey�	]gvalue�	^gname�	_gformals�	`gbody�	a\]^_`�	bVVVVV�	cfl-1e8ba8b5a-53�	dfl-1e8ba8b5a-54�	efl-1e8ba8b5a-55�	ffl-1e8ba8b5a-56�	gfl-1e8ba8b5a-57�	hcdefg�	i>abh�	jgmake-procedure-name�	kj�	lV�	mfl-1e8ba8b5a-43�	nm�	o>kln�	pV�	qfl-1e8ba8b5a-42�	rq�	s>Mpr�	t=JKQRKKKK[ios
�	ughygiene�	vu�	w9:tv�	xgthunk�	yVJKQ�	zu�	{9xyz�	|gstate�	}9|yz�	~gmutex�	9~yz��g
completion��9�yz��{}���gmake-struct��gm-3eebb96279-1���<��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���<�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������>�����g	ctor-args�����fl-1e8ba8b5a-120�����>�p���gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������>�W���gform��g	type-name��gconstructor-spec��gfield-names��������VVVV��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������>�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������VVVVVVVV��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������>�����fl-1e8ba8b5a-da�����>Mp����JKQRK�KKK��K�����9��v��9,yz��9
�v��JKQ��9�z�����{}����w����geach-any��6Ɍ��gsyntax-violation��������fWrong number of arguments��gidentifier?��������VKQ��9-�z��������f-source expression failed to match any pattern��grecord-type-vtable��������g
pwpwpwpwpw��gdefault-record-printer��������gresult��x|�~���gset-struct-vtable-name!��������gvtable-offset-user��������g%future?-procedure��67��gm-3eebb96279-1a���<��gt-3eebb96279-19��������fl-3eebb96279-1f�����>�����fl-3eebb96279-1c�����>M������K�RKKKK[ios
��9:�v��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220��gt-1e8ba8b5a-223��gt-1e8ba8b5a-222��gt-1e8ba8b5a-221�����������gm-1e8ba8b5a-225���<���������fl-1e8ba8b5a-229�fl-1e8ba8b5a-22a�fl-1e8ba8b5a-22b�fl-1e8ba8b5a-22c�fl-1e8ba8b5a-22d�fl-1e8ba8b5a-22e�fl-1e8ba8b5a-22f��	>��
g	copier-id�
�fl-1e8ba8b5a-21c�
�>p
�g	ctor-name��fl-1e8ba8b5a-214��>p���fl-1e8ba8b5a-212��>p�glayout��fl-1e8ba8b5a-210��>p�g
immutable?��fl-1e8ba8b5a-20e� �!>p �"gfield-count�#"�$fl-1e8ba8b5a-20c�%$�&>#p%�'g
getter-ids�('�)fl-1e8ba8b5a-209�*)�+>(p*�,g	field-ids�-,�.fl-1e8ba8b5a-206�/.�0>-p/�1gpredicate-name�2g
field-spec�3���12�4VVVVVV�5fl-1e8ba8b5a-1f9�6fl-1e8ba8b5a-1fa�7fl-1e8ba8b5a-1fb�8fl-1e8ba8b5a-1fc�9fl-1e8ba8b5a-1fd�:fl-1e8ba8b5a-1fe�;56789:�<>34;�=��K�RK	KKKKKKKK!K&K+K0<���>9�=v�?>�@gand�A9@=v�Bgstruct?�C9B=v�DC>�Egeq?�F9E=v�Gg
struct-vtable�H9G=v�IH>�JV�K��K9,Jz�LFIK�MADL�N�?M�OVK��P9�Oz�Qgthrow-bad-struct�RQ�SQ�Tgfuture-thunk�Ug%future-thunk-procedure�Vgfree-id�Wg
%%on-error�Xgm-3eebb96279-26�YX<�ZY�[fl-3eebb96279-28�\[�]>MZ\�^YK]RKKKK[ios�_9W^v�`V_�a`7�bg%%type�cgt-1e8ba8b5a-14b�dgt-1e8ba8b5a-14c�egt-1e8ba8b5a-14d�fgt-1e8ba8b5a-14e�ggt-1e8ba8b5a-14f�hgt-1e8ba8b5a-150�igt-1e8ba8b5a-151�jcdefghi�kgm-1e8ba8b5a-152�lk<�mlllllll�nfl-1e8ba8b5a-156�ofl-1e8ba8b5a-157�pfl-1e8ba8b5a-158�qfl-1e8ba8b5a-159�rfl-1e8ba8b5a-15a�sfl-1e8ba8b5a-15b�tfl-1e8ba8b5a-15c�unopqrst�v>jmu�wggetter�xgindex�ywx�zfl-1e8ba8b5a-149�{fl-1e8ba8b5a-14a�|z{�}>yW|�~�'
�VVV��fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������>~����K]RKvKKK}K�����9b�v��V���6a�7��gck��gerr��gs������YY��fl-3eebb96279-2b��fl-3eebb96279-2c������>�����Y�K]RKKKK[ios
��9��v��gquote��9��v��V�K]��9,�z���������g%%index��9��v��V���6a�7��fl-3eebb96279-30��fl-3eebb96279-31������>�����Y�K]RKKKK[ios
��9��v��9��v���K]��9
�z���������g%%copier��9��v��V���6a�7��fl-3eebb96279-35��fl-3eebb96279-36������>�����Y�K]RKKKK[ios
��9��v��9��v��g%%<future>-set-fields��V�K]��9��z���������gt-3eebb96279-25�����fl-3eebb96279-3a�����>�Z���Y�K]RKKKK[ios
��9:�v����K]RKvKKK}K�����9��v�����gif��9��v��9E�v��9G�v������V�K]��9,�z�������g
struct-ref��9��v���K]��9
�z�������9Q�v��9��v��9T�z����������������������VK]��9U�z��gfuture-state��g%future-state-procedure��gm-3eebb96279-41���<�����fl-3eebb96279-43�����>M�����K�RKKKK[ios��9W�v��V����7���K�RKvKKK}K�����9b�v��V���6��7������fl-3eebb96279-46��fl-3eebb96279-47������>�������K�RKKKK[ios
��9��v��9��v��V�K���9,�z���������9��v��V���6��7��fl-3eebb96279-4b��fl-3eebb96279-4c������>�������K�RKKKK[ios
��9��v��9��v���K��9�z����9��v�V�6�7�fl-3eebb96279-50�fl-3eebb96279-51��	>���
�	K�RKKKK[ios
�9�
v�9�
v�
V	K��9�
z���gt-3eebb96279-40��fl-3eebb96279-55��>���K�RKKKK[ios
�9:v��K�RKvKKK}K����9�v��9�v�9Ev�9Gv��VK�� 9,z�! �"9�v�#K��$9#z�%"$�&9Qv�'9�v�(9�z�)'(�*&)�+!%*�,+�-VK��.9�-z�/g
future-result�0g%future-result-procedure�1gm-3eebb96279-5c�21<�32�4fl-3eebb96279-5e�54�6>M35�72K6RKKKK[ios�89W7v�9V8�:97�;�K6RKvKKK}K����<9b;v�=V<�>6:=7�?22�@fl-3eebb96279-61�Afl-3eebb96279-62�B@A�C>�?B�D2CK6RKKKK[ios
�E9�Dv�F9�Dv�GVCK6�H9,Gz�IFH�JI�K9�;v�LVK�M6:L7�Nfl-3eebb96279-66�Ofl-3eebb96279-67�PNO�Q>�?P�R2QK6RKKKK[ios
�S9�Rv�T9�Rv�UQK6�V9	Uz�WTV�XW�Y9�;v�ZVY�[6:Z7�\fl-3eebb96279-6b�]fl-3eebb96279-6c�^\]�_>�?^�`2_K6RKKKK[ios
�a9�`v�b9�`v�cV_K6�d9�cz�ebd�fe�ggt-3eebb96279-5b�hg�ifl-3eebb96279-70�ji�k>h3j�l2kK6RKKKK[ios
�m9:lv�n�kK6RKvKKK}K����o9�nv�po�q9�nv�r9Env�s9Gnv�tso�uVkK6�v9,uz�wrtv�x9�nv�ykK6�z9	yz�{xoz�|9Qnv�}9�nv�~9/uz�}~��|o��qw{���mp���VK6��90�z��gfuture-mutex��g%future-mutex-procedure��gm-3eebb96279-77���<�����fl-3eebb96279-79�����>M�����K�RKKKK[ios��9W�v��V����7���K�RKvKKK}K�����9b�v��V���6��7������fl-3eebb96279-7c��fl-3eebb96279-7d������>�������K�RKKKK[ios
��9��v��9��v��V�K���9,�z���������9��v��V���6��7��fl-3eebb96279-81��fl-3eebb96279-82������>�������K�RKKKK[ios
��9��v��9��v���K���9	�z���������9��v��V���6��7��fl-3eebb96279-86��fl-3eebb96279-87������>�������K�RKKKK[ios
��9��v��9��v��V�K���9��z���������gt-3eebb96279-76�����fl-3eebb96279-8b�����>�������K�RKKKK[ios
��9:�v����K�RKvKKK}K�����9��v�����9��v��9E�v��9G�v������V�K���9,�z�������9��v���K���9	�z�������9Q�v��9��v��9��z����������������������VK���9��z��gfuture-completion��g%future-completion-procedure��gm-3eebb96279-92���<�����fl-3eebb96279-94�����>M�����K�RKKKK[ios��9W�v��V����7���K�RKvKKK}K�����9b�v��V���6��7������fl-3eebb96279-97��fl-3eebb96279-98������>�������K�RKKKK[ios
��9��v��9��v��V�K���9,�z���������9��v��V���6��7��fl-3eebb96279-9c��fl-3eebb96279-9d������>�������K�RKKKK[ios
��9��v�9��v��K��9	z���9��v�V�6�7�fl-3eebb96279-a1�	fl-3eebb96279-a2�
	�>��
��K�RKKKK[ios
�
9�v�9�v�VK��9�z���gt-3eebb96279-91��fl-3eebb96279-a6��>���K�RKKKK[ios
�9:v��K�RKvKKK}K����9�v��9�v�9Ev�9Gv� �!VK��"9,!z�# "�$9�v�%K��&9	%z�'$&�(9Qv�)9�v�*9�!z�+)*�,(+�-#',�.-�/VK��09�/z�1geach�277�312�473��574��675��7g%%set-fields�8gdummy�9gcheck?�:gexpr�;89�w:�<gm-3eebb96279-ad�=<<�>=�����?fl-3eebb96279-b2�@fl-3eebb96279-b3�Afl-3eebb96279-b4�Bfl-3eebb96279-b5�Cfl-3eebb96279-b6�D?@ABC�E>;>D�F=�Gfl-3eebb96279-af�HG�I>MFH�Jgt-1e8ba8b5a-16a�Kgt-1e8ba8b5a-16c�Lgt-1e8ba8b5a-16b�MJKL�Ngm-1e8ba8b5a-16d�ON<�POOO�Qfl-1e8ba8b5a-171�Rfl-1e8ba8b5a-172�Sfl-1e8ba8b5a-173�TQRS�U>MPT�Vfl-1e8ba8b5a-167�Wfl-1e8ba8b5a-168�Xfl-1e8ba8b5a-169�YVWX�Z>~Y�[�EKIRKUKKKZ��
�\97[v�]VEKI�^9,]z�_9T]z�`9�]z�a9/]z�b9�]z�c9�]z�d_`abc�egmap�fe�ge�hglist�igset-future-thunk!�jg%set-future-thunk!-procedure�k677�lgm-3eebb96279-c1�ml<�ngt-3eebb96279-bf�ogt-3eebb96279-c0�pno�qmm�rfl-3eebb96279-c6�sfl-3eebb96279-c7�trs�u>pqt�vm�wfl-3eebb96279-c3�xw�y>Mvx�zmuKyRKKKK[ios
�{9:zv�|gt-1e8ba8b5a-18c�}gt-1e8ba8b5a-18d�~|}�gm-1e8ba8b5a-18e��<������fl-1e8ba8b5a-192��fl-1e8ba8b5a-193������>~����gsetter��^w���fl-1e8ba8b5a-186��fl-1e8ba8b5a-187��fl-1e8ba8b5a-188�������>����2x��fl-1e8ba8b5a-17d��fl-1e8ba8b5a-17e������>�W���gfield-specs������fl-1e8ba8b5a-179��fl-1e8ba8b5a-17a������>�W����uKyRK��K�K�����9��v��gval��9��v������9��v��9E�v��9G�v������VuKy��9,�z�������gstruct-set!��9��v��uKy��9
�z��������9Q�v��9��v��9i�z�����������������{����VKy��9j�z��gset-future-state!��g%set-future-state!-procedure��gm-3eebb96279-d1���<��gt-3eebb96279-cf��gt-3eebb96279-d0����������fl-3eebb96279-d6��fl-3eebb96279-d7������>��������fl-3eebb96279-d3�����>M������K�RKKKK[ios
��9:�v����K�RK��K�K�����9��v��9��v������9��v��9E�v��9G�v������V�K���9,�z�������9��v���K���9�z��������9Q�v��9��v��9��z����������������������VK���9��z��gset-future-result!��g%set-future-result!-procedure��gm-3eebb96279-e1���<��gt-3eebb96279-df��gt-3eebb96279-e0����������fl-3eebb96279-e6��fl-3eebb96279-e7������>��������fl-3eebb96279-e3�����>M������K�RKKKK[ios
��9:�v����K�RK��K�K�����9��v��9��v������9��v��9E�v��9G�v������V�K���9,�z�������9��v���K���9	�z��������9Q�v��9��v��9��z��������������VK��9�z�gset-record-type-printer!�g
simple-format�f#<future ~a ~a ~s>�	gnumber->string�
gobject-address�gcreate-workers!�g
make-mutex�
gmake-condition-variable�gqueued�gregister-future!�gmake-q�g%futures�g%futures-mutex�g%futures-available�g%futures-waiting�gmake-parameter�g%nesting-level�g%max-nesting-level�g
with-mutex�7Ɍ�7��7��glet�gm�ge0�ge1� 8�!gm-3eebb96279-12b�"!<�#"VVV�$fl-3eebb96279-130�%fl-3eebb96279-131�&fl-3eebb96279-132�'fl-3eebb96279-133�($%&'�)> #(�*"�+fl-3eebb96279-12d�,+�->M*,�.V)K-�/9.z�09L.z�1gdynamic-wind�291.z�39:.z�4g
lock-mutex�594.z�650�736�8gbegin�998.z�:gunlock-mutex�;9:.z�<;0�=3<�>=�?gmake-prompt-tag�@g%future-prompt�Agenq!�Bgsignal-condition-variable�Cglet/ec�Dgcatch�Eg
parameter?�FE�GE�Hg	scm-error�Igwrong-type-arg�Jfparameterize�KfNot a parameter: ~S�Lgdone�Mg
alist-cons�Ngabort-to-prompt�Ogthrow�Pgprocess-future!�Qgq-empty?�Rgdeq!�Sgstarted�Tgnotify-completion�Ugprocess-one-future�Vgwait-condition-variable�Wgprocess-futures�Xgbroadcast-condition-variable�Yg	partition�Zgerror�[Z�\Z�]fno matching pattern�^gfor-each�_g	provided?�`gthreads�agcurrent-processor-count�bg
%worker-count�cg%workers�dgunfold�egcall-with-new-thread�fg1+�gg%create-workers!�h8`�igm-3eebb96279-259�ji<�kjV�lfl-3eebb96279-25e�mfl-3eebb96279-25f�nlm�o>hkn�pj�qfl-3eebb96279-25b�rq�s>Mpr�tVoKs�u9%tz�v9:tz�C5hHU�]4	
"#(54+>"G,h�]�C�gthunk
		gstate		gmutex			g
completion			gfilenamefice-9/futures.scm�
	0
��			gnameg%%make-future-procedure�C-R401258�h�]C�gt-3eebb96279-3
		gt-3eebb96279-4		gt-3eebb96279-5			gt-3eebb96279-6						C��1�hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/futures.scm�
	0
��		nC51R���,ߨ4�,>"G	�-i�,R,ht]�$��CClgobj
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future?-procedure�C�R40&25�Nh7]C/gt-3eebb96279-19
		
		
C��&�hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
CPh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/futures.scm�
	0
��		nC5&R,SThw]�&
�C6ogs
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future-thunk-procedure�CUR40T25���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h7]C/gt-3eebb96279-25
		
		
C��T�hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/futures.scm�
	0
��	�C5TR,S�hw]�&�C6ogs
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future-state-procedure�C�R40�25���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C�,h7]C/gt-3eebb96279-40
		
		
C����hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C.h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/futures.scm�
	0
��	�C5�R,S/h x]�&	�C6pgs
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future-result-procedure�C0R40/25>EJh:]��C2gerr
		gs					CMSXh:]��C2gerr
		gs					C[afh:]��C2gerr
		gs					C��h7]C/gt-3eebb96279-5b
		
		
C��/�hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/futures.scm�
	0
��	�C5/R,S�h w]�&	�C6ogs
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future-mutex-procedure�C�R40�25���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h7]C/gt-3eebb96279-76
		
		
C����hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/futures.scm�
	0
��	�C5�R,S�h |]�&	�C6tgs
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future-completion-procedure�C�R40�25���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					C
h:]��C2gerr
		gs					C�.h7]C/gt-3eebb96279-91
		
		
C����hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C0h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/futures.scm�
	0
��	�C5�R40�256\^dghh v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/futures.scm�
	0
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R,Sih �]�&
�C6�gs
		gval		gfilenamefice-9/futures.scm�
	0
��			gnameg%set-future-thunk!-procedure�CjR40i25k�hT]CLgt-3eebb96279-bf
		gt-3eebb96279-c0					C��i�hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/futures.scm�
	0
��		nC5iR,S�h �]�&�C6�gs
		gval		gfilenamefice-9/futures.scm�
	0
��			gnameg%set-future-state!-procedure�C�R40�25k�hT]CLgt-3eebb96279-cf
		gt-3eebb96279-d0					C����hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/futures.scm�
	0
��		nC5�R,S�h �]�&	�C6�gs
		gval		gfilenamefice-9/futures.scm�
	0
��			gnameg%set-future-result!-procedure�C�R40�25khT]CLgt-3eebb96279-df
		gt-3eebb96279-e0					C����hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/futures.scm�
	0
��		nC5�R4i,i	
,S�T	hP�]445	5�&�"	45�&
�"	456�gfuture
		Lgport		Lgfilenamefice-9/futures.scm�
	;��		<	��			=	��		=	"��		=	��		>	��	3	?	��	L	<	��			L	C>"G
,hP�]4>"G4545�4>"GC�gthunk
		Kgmutex		4g
completion			4gfuture	4	Kgfilenamefice-9/futures.scm�
	A
��		E	��		G	��		G	+��		F	��	&	F	$��	.	F	��	4	F	��	7	H	��
		Kgnamegmake-future�g
documentationf�Return a new future for THUNK.  Execution may start at any point
concurrently, or it can start at the time when the returned future is
touched.�C%R4i5R4i5R4
i5RR4i
5R�R4025/02739>h0\]�����CTgdummy
		)gm		)ge0			)ge1			)		)	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/futures.scm�
	d
��		"g
macro-typegsyntax-rules�gpatternsgmge0ge1g...C5R4?i5@R4AB:h@�]4>"G4>"G4>"G6�gfuture
		@gfilenamefice-9/futures.scm�
	r
��		t	��		u	��	)	v	��	@	w	��		@gnamegregister-future!�CRCD@GHIJK,ST
hp�]45$"4>"G�4	�45�5Y4L�&L
�"	4L	5>ZCZF�gt-3eebb96279-16a
		igfilenamefice-9/futures.scm�	�	(��	<�	<��	A�	8��	C�	(��	F�	*��		i
C4hE]L6=gfilenamefice-9/futures.scm�
�	��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	��		
C,S�4hE]L6=gfilenamefice-9/futures.scm�
�	��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	��		
Ci�4hE]L6=gfilenamefice-9/futures.scm�
�	��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	��		
CL�ABMNhN]LEFgfilenamefice-9/futures.scm�
�	"��	�	$��		
Ch��] U4LO>X"�GOO4O>"GVL�&	L	�"	4L5	O
O4	O>"GVL�&L
�"4L>"GL�&L�"4L
>"GX4
O>"G�&		�"	45OO4O>"GV�&�"	45&*4L>"G4>"G"
4L5 X4O>"G4L>X4O>"G"GOC�gcont
	�gfuture-to-wait	�gx		%�gx		f�gx	�gresults
��gfilenamefice-9/futures.scm�
�	��		�	��	%�	��	N�	��	f�	����	����	����	,����	����	����	���	��8�	��;�	!��V�	��W�	��k�	����	����	����	���		����	����	��	�
COhN]L@Fgfilenamefice-9/futures.scm�
�	��	�	 ��		
ChZ-13OCRgargs
			gfilenamefice-9/futures.scm�
�	��			


C,S�h`]UD4O5�&	�"4>"GXCXFGEgfuture
		_gtag		_gval		!	Og_		T	_gresults		T	_gfilenamefice-9/futures.scm�
	y
��			��	�	��	!�	��	W		��		_gnamegprocess-future!�g
documentationf*Process FUTURE.  When FUTURE completes, return #t and update its
result; otherwise, when FUTURE touches a nested future that has not
completed yet, then suspend it and return #f.  Suspending a future
consists in capturing its continuation, marking it as `queued', and
adding it to the waiter queue.�CPRQR4,S��LS:�P4hE]L6=gfilenamefice-9/futures.scm�
�	��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	��		
C4hE]L6=gfilenamefice-9/futures.scm�
�	��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	��		
CTh��](45$C454�&		�"	45>"G�&�"	45	�$"
�$�&		�"	4564�&		�"	45>"G4>"G4�&		�"	45>"G�&�"	45
&B�&
�"4>"G4�&		�"	45>"G45$�OO4O>"GV�&		�"	45OO4O>"GV�&	�"4>"G4>"GX4O>"GX4O>"G""+4�&		�"	45>"G6�gt
		�gfuture
	�gkey	b�gdone?	|`gx	�Ygx	�@gfilenamefice-9/futures.scm�
�
��	�	��		�	��	�	��	�	��	�	��	#�	��	@�	��	K�	��	b�	����	����	����	����	����	����	����	����	����	���	���	*��"�	��%�	��0�	+��1�	��K�	��P�	��m�	��v�	��|�	����	����	����	#����	����	����	3����	���	��)�	��B�	��e�	��j�	����	����	��-	�
gnamegprocess-one-future�g
documentationf9Attempt to pick one future from the queue and process it.�CUR4QVUhX�]4>"G"745$4>"G"4>"G"���"����gfilenamefice-9/futures.scm�
�
��	�	��	�	��	�	
��	#�	��	$�	��	<�	��	O�	��	O�	��
		S
gnamegprocess-futures�g
documentationf,Continuously process futures from the queue.�CWRX,S�Y\]h(x]	�$��L�C456pgexpr
		%gw		gfilenamefice-9/futures.scm�
�	��	�	��	�	��		%C^A\]h(x]	�$��6456pgexpr
		'gx		gfilenamefice-9/futures.scm�
�	��	�	��	�	��		'C
hX0]4�&		�"	45>"G4O>G 	6(gfuture
		Rgwaiting	?	Rg	remaining		?	Rgfilenamefice-9/futures.scm�
�
��	�	��	�	 ��	%�	��	.�	��	B�	��	J�	��	R�	��			Rgnamegnotify-completion�g
documentationf9Notify futures and callers waiting that FUTURE completed.�CTR4Q:,S�4hE]L6=gfilenamefice-9/futures.scm�
�	
��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	
��		
CL�V�Uh ]4>"G45$�4>"GL�&	L	�"	4L5	O
O4	O>"GVL�&L�"	4L5&">4
L�&	L	�"	4L5L�&	L	�"	4L5>X4
O>"GCX4
O>"GF4>"G6�gx
	Lgfilenamefice-9/futures.scm�
�	��	�	��	�	��	�	��	 �	
��	4�	��	L�	
��	t�	��	w�	����	����	����	'����	'����	����	
���	
���	
��	
gnamegwork�C4,S��L:S@/hp	]OQ"<4�&		�"	45>"G�&�"	45�$/4�&		�"	45>"�G"�	�$X4�&		�"	45>"G4
5
�$WG"t4>"G"�� 4�&		�"	45>"G4
5�$WG"4>"G"���"����&		�"	4
56gfuture
	pgwork	
pgkey		XOgfilenamefice-9/futures.scm�
�
��	�	��	�	��	�	��	6�	��	A�	
��	X�	��	d�	��	i�	����	����	����	����	����	����	����	����	����	���	
���	
���	���	��	��	��&	��*	��1	��9	��L	��O�	��V		�� 	pgnamegtouch�g
documentationf>Return the result of FUTURE, computing it if not already done.�C'R4_i`5$
4ai5�"
bRcR4hE]L6=gfilenamefice-9/futures.scm�
	��		
C:hE]L6=gfilenamefice-9/futures.scm�
	��		
Ccdbh^]�CVgi
		gfilenamefice-9/futures.scm�
'	��	'	��		CeWh^]6Vgi
		gfilenamefice-9/futures.scm�
(	��	(	��		Cfha]CYgfilenamefice-9/futures.scm�
+	��		
gnamegcreate-workers!�Chx�]OO4O>"GV(4
5 	 
"X4O>"GCX4O>"GF�gx
		vgfilenamefice-9/futures.scm�

��		��	0%	��	1'	��	>&	��	B+	��	J	��		v
gnameg%create-workers!�CgRghj]6bgfilenamefice-9/futures.scm�
.	��	.	
��		
gnamegcreate-workers!�CR40$252uvh?]C7gdummy
		gbody					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/futures.scm�
5
��		"g
documentationfReturn a new future for BODY.�g
macro-typegsyntax-rules�gpatternsgbodyC5$RC�gm
		,grtd
�gfilenamefice-9/futures.scm�		
��	0
��+�	9
��/$	A
��/%	R	��/0	R
��/1	U	��/<	U
��/=	V	��/H	V
��/I	Y	��/M	Y
��/N	]	��/Z	]
��/a	b
��1	o	��1	l
��2	r
��='	y
��DI�
��E��
��H��
��O��
��O�	��O�	��O�	��O�	��O�		��O�	��O�
��O�	��O�
��S;
��S�-
��#	UG
C6ice-9/debug.go000064400000001022150536206130007063 0ustar00GOOF----LE-8-2.0�]4h/]gguile�	�	gdefine-module*�	�	�	gice-9�	gdebug�	�		gfilenameS�	
fice-9/debug.scm�	gset-current-module�	�	
�	gissue-deprecation-warning�	f?(ice-9 debug) is deprecated. Use (system vm trace) for tracing.�C5h0`]4	
54
>"Gi6Xgm
	
	$gfilenamefice-9/debug.scm�		
��	*	��	,	
��		,
C6ice-9/history.go000064400000005362150536206130007511 0ustar00GOOF----LE-8-2.0�
]+4hI]gguile�	�	gdefine-module*�	�	�	gice-9�	ghistory�	�		gfilenameS�	
fice-9/history.scm�	gexportsS�	gvalue-history-enabled?�	
genable-value-history!�	gdisable-value-history!�	gclear-value-history!�	
�	gset-current-module�	�	�	g
value-history�	�	g*value-history-enabled?*�	gmodule-use!�	gcurrent-module�	gresolve-interface�	guse-value-history�	gresolve-module�	gunspecified?�	gstring->symbol�	g
simple-format�	f$~A�	 f~A = �	!gmodule-define!�	"gmodule-export!�	#gsave-value-history�	$g	add-hook!�	%gbefore-eval-hook�	&gbefore-print-hook�	'gremove-hook!�	(ghash-clear!�	)gmodule-obarray�	*gmodule-public-interface�C5hH�]4	
54>"G4i>"GRhf]C^gfilenamefice-9/history.scm�
	
��		
gnamegvalue-history-enabled?�CRh�]45456�gx
		gfilenamefice-9/history.scm�
	
��			��	
		��			"��			��			��		gnameguse-value-history�CR
4i5H !"hp]45$CM�44554>"G4L>"G4L>"GNC�gv
		mgc		mgs		#	mgfilenamefice-9/history.scm�
	$	��		%	��	
	%	��		&	��		&	
��		'	��		'	$��		'	6��	!	'	$��	#	'	��	#	&	
��	&	(	��	+	(	��	2	(	��	;	)	��	Q	*	��	Z	*	$��	_	*	��	k	+	��		mCO#R$%&#h@�]45$C4>"G4>"G C�gfilenamefice-9/history.scm�
	-
��		.	��		.	��		0	��	"	1	��	8	2	��		:
gnamegenable-value-history!�C
R'%&#h@�]45$-4>"G4>"G CC�gfilenamefice-9/history.scm�
	4
��		5	��		5	��		7	��	 	8	��	6	9	��		:
gnamegdisable-value-history!�CR()*h8�]45445>"G44556�ghistory
			2gfilenamefice-9/history.scm�
	;
��		<	��		<	!��			<	��			<	��		=	��		=	��		=	��	%	>	��	(	>	!��	0	>	��	2	>	��
		2
gnamegclear-value-history!�CR
i6�gm
		(gcount
�6ghistory�6gfilenamefice-9/history.scm�		
��	)	
��	/		��	4	
��	@	
���	
���	
���	#	���	#	!���	#	���	"	��9	!
��(	-
��	4
��=	;
��C	@
��	C
C6ice-9/syncase.go000064400000001450150536206130007447 0ustar00GOOF----LE-8-2.0]4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gsyncase�	�		gfilenameS�	
fice-9/syncase.scm�	gexportsS�	gdatum->syntax-object�	
gsyntax-object->datum�	g	sc-expand�	
�	gset-current-module�	�	�	gissue-deprecation-warning�	fbSyntax-case macros are now a part of Guile core; importing (ice-9 syncase) is no longer necessary.�	g
datum->syntax�	g
syntax->datum�	gmacroexpand�C5hX~]4	
54>"G4i>"GiRi
RiRCvgm
		(gfilenamefice-9/syncase.scm�		
��	)	
��	/	��	4	
��	C	
��	J	
��	Q	
��		S
C6ice-9/r5rs.go000064400000002641150536206130006700 0ustar00GOOF----LE-8-2.0�]'4h]gguile�	�	gdefine-module*�	�	�	gice-9�	gr5rs�	�		gfilenameS�	
fice-9/r5rs.scm�	gexportsS�	gscheme-report-environment�	
�	g
re-exportsS�	ginteraction-environment�	gcall-with-input-file�	gcall-with-output-file�	gwith-input-from-file�	gwith-output-to-file�	gopen-input-file�	gopen-output-file�	gclose-input-port�	gclose-output-port�	gload�	
�	gset-current-module�	�	�	gmodule-use!�	gmodule-public-interface�	gcurrent-module�	 gresolve-interface�	!g	safe-r5rs�	"!�	#gscheme-report-interface�	$g	scm-error�	%g
misc-error�	&f~A is not a valid version�C5hx�]4	

54>"G4i4i4i554 i"5>"G4i4i55#R$%&#h0�]	�$"4>"GC�gn
		.gfilenamefice-9/r5rs.scm�
	&
��		'	��		'	��		(	��		(	��		(	��		)	��		*	��		+	��	#	(	��		.gnamegscheme-report-environment�CRC�gm
		,gfilenamefice-9/r5rs.scm�		
��	-	!
��	2	!	
��	7	!	&��	?	!	
��	@	"	
��	F	"	 ��	H	"	
��	M	!
��	V	$	 ��	[	$	9��	c	$	 ��	f	$
��q	&
��	s
C6ice-9/rw.go000064400000001010150536206130006422 0ustar00GOOF----LE-8-2.0�]4h-]gguile�	�	gdefine-module*�	�	�	gice-9�	grw�	�		gfilenameS�	
fice-9/rw.scm�	gexportsS�	gread-string!/partial�	
gwrite-string/partial�	
�	gset-current-module�	�	�	g%init-rw-builtins�C5h0V]4	
54>"Gi6Ngm
		(gfilenamefice-9/rw.scm�		
��	.	
��		.
C6ice-9/scm-style-repl.go000064400000024671150536206130010674 0ustar00GOOF----LE-8-2.0�)]n4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gscm-style-repl�	�		gfilenameS�	
fice-9/scm-style-repl.scm�	gimportsS�	g
save-stack�	
�	
�	�	gexportsS�	gscm-repl-silent�	gscm-repl-print-unspecified�	gscm-repl-verbose�	gscm-repl-prompt�	�	greplacementsS�	gassert-repl-silence�	gassert-repl-print-unspecified�	gassert-repl-verbosity�	gdefault-pre-unwind-handler�	g	bad-throw�	gerror-catching-loop�	gerror-catching-repl�	ghandle-system-error�		�	 gset-current-module�	! �	" �	#fguile> �	$gsymbol-property�	%gthrow-handler-default�	&gerror�	'funhandled-exception:�	(gthrow�	)ghas-shown-debugger-hint?�	*gcatch�	+gcall-with-unblocked-asyncs�	,gquit�	-gswitch-repl�	.gabort�	/grun-hook�	0g
abort-hook�	1gforce-output�	2gcurrent-output-port�	3gdisplay�	4fABORT: �	5gcurrent-error-port�	6gwrite�	7gnewline�	8gmemq�	9g	backtrace�	:gdebug-options-interface�	;gstack?�	<gthe-last-stack�	=fOType "(backtrace)" to get more information or "(debug)" to enter the debugger.
�	>gprimitive-exit�	?gstack-saved?�	@glength�	Agrestore-signals�	Bgensure-batch-mode!�	Cgbatch-mode?�	Dgcall-with-blocked-asyncs�	Egfor-each�	Ff;;; �	Gginexact->exact�	Hgget-internal-run-time�	Iginternal-time-units-per-second�	Jf	  msec  (�	Kggc-run-time�	Lf
 msec in gc)
�	Mgstring?�	Ngthunk?�	Of> �	Pf�	Qgrepl-reader�	Rgeof-object?�	Sgafter-read-hook�	Tf;;; EOF -- quitting�	Ugbefore-print-hook�	Vgunspecified?�	Wgafter-print-hook�	Xf ;;; QUIT executed, repl exitting�	Yg	peek-char�	Zgchar=?�	[g	read-char�	\gbefore-eval-hook�	]g%start-stack�	^]�	_]�	`g
repl-stack�	agprimitive-eval�	bgafter-eval-hook�	cgwrong-type-arg�	dgout-of-range�	eglist-ref�	fgbefore-backtrace-hook�	gfBacktrace:
�	hgdisplay-backtrace�	igafter-backtrace-hook�	jgbefore-error-hook�	kgapply�	lg
display-error�	mgafter-error-hook�C5hP�]4	
5	4">"GRh�] Czgv
		gfilenamefice-9/scm-style-repl.scm�
	'
��		'	 ��		gnamegassert-repl-silence�CRRh�] C�gv
		gfilenamefice-9/scm-style-repl.scm�
	*
��		*	*��		gnamegassert-repl-print-unspecified�CRRh�] C|gv
		gfilenamefice-9/scm-style-repl.scm�
	-
��		-	"��		gnamegassert-repl-verbosity�CR#R$%&'h@�-1345$
4?"$C@�gkey
			=gargs			=gdefault			=gt		(	=gfilenamefice-9/scm-style-repl.scm�
	9
��	
	:	��		:	&��		:	��		:	��		;	��		;	��	(	;	��	7	<	��	=	<	��			=
gnameg	bad-throw�CR(h(�-134	>"G@�gkey
			#gargs			#gfilenamefice-9/scm-style-repl.scm�
	@
��	
	B	��	#	C	��			#
gnamegdefault-pre-unwind-handler�CR)R*+h8�]4M>"GN"4L5"���4L5"���C�gv
		$gfilenamefice-9/scm-style-repl.scm�
	R	��		S	��		Y	��		Z	��		[	!��	$	[	��	$	Z	��	%	Z	'��	/	Z	��
		1
ChS]LLO6Kgfilenamefice-9/scm-style-repl.scm�
	P	��		Q	��		
C,-(./01234567)89:;<=>?h�]4>"G445>"G445>"G4L45>"G4	45>"GM$x
$"44
55$"4[5$34	45>"G445>"G 
"445>"G"4>"G Cygfilenamefice-9/scm-style-repl.scm�
	k	��		l	��		m	��		m	)��	!	m	��	*	n	��	.	n	$��	/	n	/��	8	n	��	A	o	��	F	o	'��	O	o	��	X	p	��	[	p	$��	d	p	��	r	q	��	x	s	%��	~	u	+���	u	1���	v	1���	u	+���	s	%���	w	&���	s	!���	y	'���	y	0���	y	'���	z	'���	{	(���	|	(���	z	'���	}	'���	~	!���	~	/���	~	!����	!����	��&	
C@h y]4L5	�$LL@LL@qgfilenamefice-9/scm-style-repl.scm�
�	��	�	%��	�	"��	�	��	�	"��	 �	"��		 
ChH�-13�$NC�$@�$
LOCOC�gkey
			Fgargs			Fgfilenamefice-9/scm-style-repl.scm�
	^	��		_	��		a	��	!	_	��	%	e	&��	)	e	��	2	_	��			F
Ch8�]	H4LOLLO5$H"���MC�gfirst
		3gnext	 	3gfilenamefice-9/scm-style-repl.scm�
	L	��		N	
��	 	M	��	(�	��	0�	��		3gnamegloop�CAh}]N6ugfilenamefice-9/scm-style-repl.scm�
�	��	�	��		�	��			
gnamegensure-batch-mode!�CBhm]M�Cegfilenamefice-9/scm-style-repl.scm�
�	��	�	!��		
gnamegbatch-mode?�CCDhL]CDgfilenamefice-9/scm-style-repl.scm�
�	��		
ChU]L6Mgfilenamefice-9/scm-style-repl.scm�
�	��	�	��		
Ch@�]HHOQO O O6�gthunk
		;gstatus		;ginteractive			;gloop			;gfilenamefice-9/scm-style-repl.scm�
	I
��		J	��	'�	��	0�	��	;�	��		;gnamegerror-catching-loop�CREh �]4L4L5>GL6�g
the-values
		gfilenamefice-9/scm-style-repl.scm�
�	��	�	"��	�	%��	�	"��	�	��	�	��		
Ch�]O6�gr
		ge		gp			gfilenamefice-9/scm-style-repl.scm�
�
��	�	��			gnamegerror-catching-repl�CR3FGHIJKL	hx<]4>"G44�45M���5>"G4>"G44�45M���5>"G64gfilenamefice-9/scm-style-repl.scm�
�	��	�	��	�	#��	�	��	�	��	�	#��	�	2��	%�	/��	(�	,��	)�	$��	+�	#��	0�	��	9�	��	=�	#��	B�	��	K�	��	N�	$��	T�	3��	[�	0��	^�	-��	_�	%��	a�	$��	f�	��	r�	#��	t�	��		t
gnamegrepl-report�CMNOPQR/SKH73T,h��]45$""45$	45"$"4545$"4L>"G4	>"G45$_4
5N45N$64
>"G4>"G4
>"G"4
>"G"C�gprompt
	5	Agval
	A�gfilenamefice-9/scm-style-repl.scm�
�	��	�	0��	
�	)��	�	0��	�	)��	�	0��	-�	)��	/�	@��	5�	5��	5�	��	8�	��	A�	��	D�	��	N�	��	S�	��	c�	��	u�	��	�	����	9����	'����	6����	'����	����	"����	"����	+����	"����	"����	��	�
gnameg-read�C/UV67W1h��]	$C4>"G$"45�$&4>"G4>"G"4>"G	$4L>"G"
6�gresult
	�gt	 	8gfilenamefice-9/scm-style-repl.scm�
�	��	�	��	�	��	 �	,��	.�	5��	5�	0��	<�	(��	=�	.��	O�	.��	c�	��	|�	��	}�	!����	��	�C3X7YRZ[hh]4545$C4 5$"	4	5$4>"G"���4
5$6Cgch
		hgt		hgt	$	=gfilenamefice-9/scm-style-repl.scm�
�	��	�	��	�	��	
�	��	�	��	�	��	$�	��	2�	*��	A�	��	B�	��	U�	��	V�	��	b�	��	f�	��		h
gnamegconsume-trailing-whitespace�CKH/\_`ahU]L6Mgfilenamefice-9/scm-style-repl.scm�
�	��	�	,��		
Cb	hP�]	45N45N4>"G4O54>"GC�gsourc
		Kgval	2	Kgfilenamefice-9/scm-style-repl.scm�
�	��	�	9��		�	'��	
�	6��	�	'��	�	��	%�	��	)�	,��	2�	��	2�	��	5�	��		Kgnameg-eval�Ch��]@HHOOO"?$64>"G4>"G4>"G"COQQQQKK4	
O5"��o�gstart-gc-rt
	�gstart-rt	�gargs		'	fgrepl-report		n�g-read		n�g-print		n�gconsume-trailing-whitespace		n�gstart-gc-rt	��gstart-rt	��gstatus	��
gfilenamefice-9/scm-style-repl.scm�
�
��	�	��	'�	��	-�	��	.�	��	2�	#��	7�	��	@�	��	P�	��	n�	���	���	���	��	�
gnamegscm-style-repl�CR5;<89:cde/f73ghijklm1(.h0-13454[5�$"�4455$�&"�$
4		5"4
>"G4>"G4
>"G4[>"G4>"G4
>"G"4
>"G4[>"G4
>"G4>"G6�gkey
		/gargs		/gcep		/gt		�g
highlights		Y�gfilenamefice-9/scm-style-repl.scm�

��	
	
��		��		��		��		��	&	��	*	��	+	��	1	��	5	��	9		.��	=		!��	>		%��	F
	.��	G
	%��	K		��	L	!��	Y	!��	Y		��	\
	
��	n	
���	
���	���	
���	
���	
���	
���	���	��	��	��+	��/	��#		/
gnameghandle-system-error�CRC�gm
		0gfilenamefice-9/scm-style-repl.scm�		
��	4	&
���	'
���	)
��	*
���	,
��'	-
��)	/	��,	/
��|	9
��a	@
��e	G
��:	I
����
����
��N
��	P
C6ice-9/rdelim.go000064400000017417150536206130007270 0ustar00GOOF----LE-8-2.0�]h4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	grdelim�	�		gfilenameS�	
fice-9/rdelim.scm�	gexportsS�	g	read-line�	
g
read-line!�	gread-delimited�	gread-delimited!�	gread-string�	gread-string!�	g%read-delimited!�	g
%read-line�	g
write-line�	
	�	gset-current-module�	�	�	g%init-rdelim-builtins�	gcurrent-input-port�	f
�	geof-object?�	gtrim�	g
string-length�	gpeek�	 gsplit�	!gconcat�	"gstring-set!�	#gerror�	$funexpected handle-delim value: �	%gmake-string�	&gstring-concatenate-reverse�	'g	substring�	(g
string-append�	)gstring�	*gmake-syntax-transformer�	+*�	,*�	-g	check-arg�	.gmacro�	/g$sc-dispatch�	0/�	1/�	2gany�	3geach-any�	423��	524��	625��	7g
syntax-object�	8gunless�	9gtop�	:9�	;gribcage�	<gdummy�	=gexp�	>gmessage�	?garg�	@<=>?�	Agm-1eeb5757c-50�	BA9�	CB:::�	Dfl-1eeb5757c-55�	Efl-1eeb5757c-56�	Ffl-1eeb5757c-57�	Gfl-1eeb5757c-58�	HDEFG�	I;@CH�	J;�	Kgx�	LK�	MB�	Nfl-1eeb5757c-52�	ON�	P;LMO�	Q:IJP�	Rghygiene�	SR�	T78QS�	U7#QS�	Vgsyntax-violation�	WV�	XV�	Yf-source expression failed to match any pattern�	Zginteger?�	[gexact?�	\gindex?�	]gstring?�	^fnot a string�	_f	bad index�	`fstart beyond end�	afend beyond string length�	bg	read-char�	cglist->string�	dgreverse!�	egreverse�	fgchar?�	ggunread-char�C5h�]4	
54>"G4i>"Gh`$-.,3#45��"$CC
�$45$C"���"���gstring
		[gport		[grv		"	[g
terminator		'	[gnchars		,	[gfilenamefice-9/rdelim.scm�
	&
��		)	
��		(	 ��	"	)	
��	"	)	��	'	-	��	'	)	��	,	.	��	,	)	��	8	/	��	A	/	��	E	/	��	F	0	��	P	/	��		[gnameg
read-line!�C
R !"#$h�:-.,3	#45##
#	454��5��$45"$*
�$&�CC&�CC�$"�$C�$4	�>"G�C�$�C
62gdelims
	�gbuf	�gport		�ghandle-delim		�gstart		�gend		�grv		P�g
terminator		U�gnchars		Z�	gfilenamefice-9/rdelim.scm�
	5
��		6	 ��	!	6	D��	3	7	)��	<	8	
��	F	:	6��	G	:	$��	H	:	��	P	8	
��	P	8	��	U	>	��	U	8	��	Z	?	��	Z	8	��	b	@	��	c	A	��	n	@	��	r	@	��	u	B	��	z	B	��	~	C	%���	C	���	D	���	F	%���	F	���	G	���	J	���	L	���	L	(���	L	���	M	���	J	���	N	���	O	���	O	��$	�		gnamegread-delimited!�CR%&'!() #$h �-.,3#45#"�454��5��		�
$�"i44
	5�5�$4	5$C
456�$"�$C�$�C
64	5$

�$&�CC"��o"��k4
	5�
	�"��
	d"���gdelims
	gport	ghandle-delim		g
substrings		'gtotal-chars		'gbuf-size		'gbuf		.grv		Ag
terminator		Fgnchars			Kg	new-total	
	Rgjoined		p�gfilenamefice-9/rdelim.scm�
	R
��		R	1��	!	S	'��	'	T	��	(	W	��	.	W	��	1	X	��	;	Z	8��	<	Z	&��	=	Z	!��	A	X	��	A	W	��	F	\	��	F	W	��	K	]	��	K	W	��	R	^	��	R	W	��	Z	_	��	_	k	��	b	l	��	n	l	��	p	k	��	p	j	��	{	m	
��	|	o	���	o	
���	q	'���	q	���	m	
���	s	���	t	���	t	���	_	���	e	
���	_	���	e	&���	e	���	f	���	f	���	g	���	b	��	b	��	d	��	b	��	T	��	T	��	T	��1		gnamegread-delimited�CR4,-.16TUhd]��C\gdummy
		gexp		gmessage			garg						CXYh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/rdelim.scm�
	w
��		"g
macro-typegsyntax-rules�gpatternsgexpgmessagegargg...C5-RZ[h(�]45$45$
�CCC�gn
		!gfilenamefice-9/rdelim.scm�
	{
��		|	��	
	|	��		|	��		|	��		|	��		!gnamegindex?�C\R]#^\_`ab"
h8�-.,3#45#
#	4545$"4>"G45$"4>"G45$"4>"G�$"4>"G45�$"4	>"G"H�$94
545$�C4>"G�"����C"����gbuf
	7gport	7gstart		7gend		7gn	�/gc	�)gfilenamefice-9/rdelim.scm�
	~
��			��	)�	&��	2�	
��	<�	��	E�	��	L�	��	U�	
��	_�	��	h�	��	o�	��	x�	
����	����	����	����	
����	����	����	����	����	
����	����	*����	����	����	����	����	����	����	���	
��	�	���	��#�	��)�	��.�	��/�	��&	7	gnamegread-string!�g
documentationfNRead all of the characters out of PORT and write them to BUF.
Returns the number of characters read.

This function only reads out characters from PORT if it will be able to
write them to BUF.  That is to say, if BUF is smaller than the number of
available characters, then BUF will be filled, and characters will be
left in the port.�CRbcdeh��*N.+E3#45"*4545$456�"���"���]""D4545$"�$456��"���
"����gport
		Tgchars	#	Mgchar		*	Mgport
	V�gcount	V�gchars		Z�gtotal		Z�gchar		a�gt		j		gfilenamefice-9/rdelim.scm�
�	��	�	��	#�	��	$�	��	*�	��	-�	��	7�	��	:�	��	B�	��	G�	��	M�	��	M�	��	N�	��	T�	��	V�	��	Z�	��	[�	��	a�	��	d�	��	j�	��	|�	#����	����	����	����	����	$����	����	����	����	��		T
	V�	gnamegread-string�g
documentationf�Read all of the characters out of PORT and return them as a string.
If the COUNT argument is present, treat it as a limit to the number of
characters to read.  By default, there is no limit.�CR !]f()g#$h��-.,3#45#45���$C�$C�$)45$45$
4	56CC
�$&45$4>"G"C
6�gport
	�ghandle-delim	�g
line/delim		*�gline		/�gdelim		4�gfilenamefice-9/rdelim.scm�
�
��	�	%��	!�	"��	$�	��	*�	��	/�	��	/�	��	4�	��	4�	��	?�	��	X�	��	b�	��	c�	(��	m�	��	r�	(��	z�	����	����	����	����	����	����	��	�
	gnameg	read-line�CRC�gm
		(gfilenamefice-9/rdelim.scm�		
��	)	$
���	&
��5	5
��	|	R
���	{
���	~
����
����
��
	�
C6ice-9/boot-9.go000064400001001345150536206130007117 0ustar00GOOF----LE-8-2.0�]4h
�]gcurrent-module�	gerror�	f're-loading ice-9/boot-9.scm not allowed�	fprompt�	ggensym�	gmake-prompt-tag�	gdefault-prompt-tag�	gcall-with-prompt�		gabort-to-prompt�	
gwith-throw-handler�	gmemq�	gapply�	
g
make-fluid�	gquit�	gprimitive-exit�	ginteger?�	gformat�	gcurrent-error-port�	f guile: uncaught throw to ~a: ~a
�	g	scm-error�	gwrong-type-arg�	fcatch�	f&Wrong type argument in position ~a: ~a�	gcatch�	fwith-throw-handler�	fthrow�	gthrow�	gmap�	gcar�	gcdr�	gfor-each�	 gprimitive-load-path�	!f
ice-9/r4rs�	"gnewline�	#gdisplay�	$f;;; �	%gwrite�	&g	last-pair�	'gpeek�	(gpk�	)gwith-output-to-port�	*gcurrent-warning-port�	+f;;; WARNING �	,gwarn�	-g
*features*�	.gprovide�	/g	provided?�	0gmake-struct�	1gmake-struct/no-tail�	2gabsolute-file-name?�	3gand-map�	4gor-map�	5g
simple-format�	6g
string-length�	7gstring-any-c-code�	8g
procedure?�	9g
string-ref�	:g
string-any�	;gstring-every-c-code�	<gstring-every�	=gstring-fill!�	>gsubstring-fill!�	?gguile�	@?�	Agmodule-name�	Bg
hashq-set!�	Cg%get-pre-modules-obarray�	Dgmodule-add!�	Eg	hashq-ref�	Fg
make-variable�	Ggmodule-define!�	Hgmodule-variable�	Ifbadness!�	Jg
module-ref�	Kgmodule-generate-unique-id!�	Lg
module-gensym�	Mgresolve-module�	Ngsyntax-violation�	Og
datum->syntax�	Pg
syntax->datum�	Qg
syntax-source�	Rgidentifier?�	Sggenerate-temporaries�	Tgbound-identifier=?�	Ugfree-identifier=?�	Vg$sc-dispatch�	Wfice-9/psyntax-pp�	Xgmake-syntax-transformer�	Ygand�	Zgmacro�	[gany�	\[�	]g
syntax-object�	^gtop�	_^�	`gribcage�	agdummy�	ba�	cg
m-bde397a-a11�	dc^�	ed�	ff
l-bde397a-a16�	gf�	h`beg�	i`�	jgx�	kj�	lf
l-bde397a-a13�	ml�	n`kem�	o_hin�	pghygiene�	qp?�	r]oq�	s[[�	t[[��	u[t��	vgif�	wgy�	xajw�	yd__�	zf
l-bde397a-a1e�	{f
l-bde397a-a1f�	|f
l-bde397a-a20�	}z{|�	~`xy}�	_~in��]vq��]Yq��]q�����f-source expression failed to match any pattern��gor��g
m-bde397a-a24���^�����f
l-bde397a-a29�����`b����f
l-bde397a-a26�����`k����_�i���]�q��glet���__��f
l-bde397a-a31��f
l-bde397a-a32��f
l-bde397a-a33�������`x����_�i���]��q��gt��]��q��]v�q��]��q��gquasisyntax��gfree-id��glevel��j���__��f
l-bde397a-a3f��f
l-bde397a-a40������`�����gexpand�����_��f
l-bde397a-a3b�����`�����ge�����_��f
l-bde397a-a3a�����`�����_i�����]��q�������[��g_��[����s��gunsyntax��]��q�������[��geach-any��������[���gunsyntax-splicing��]��q������������[���[�������gappend��gvector������gvector->list��glist->vector���[����gk��gr������f
l-bde397a-a8f��f
l-bde397a-a90������`�����_�i�����]��q�����g
m-bde397a-a96���^�����f
l-bde397a-a97�����`�����_i��i�����]��q������g...��gr*��grep�������___��f
l-bde397a-a7b��f
l-bde397a-a7c��f
l-bde397a-a7d�������`���������f
l-bde397a-a74��f
l-bde397a-a75������`�����_ii��i���	��]��q�����geach������glist������[��gwith-syntax��g	template*��greplacements������f
l-bde397a-acc��f
l-bde397a-acd�����`����gtemplate��f
l-bde397a-ac7��`��_i���]�q�gsyntax�	]q�
fInvalid expression�gwhen�[���
[��[
��gtest�gstmt�gstmt*�a�g
m-bde397a-ad5�^�___�f
l-bde397a-ada�f
l-bde397a-adb�f
l-bde397a-adc�f
l-bde397a-add��`��f
l-bde397a-ad7��`k� _i�!]v q�"gbegin�#]" q�$gunless�%g
m-bde397a-ae4�&%^�'&___�(f
l-bde397a-ae9�)f
l-bde397a-aea�*f
l-bde397a-aeb�+f
l-bde397a-aec�,()*+�-`',�.&�/f
l-bde397a-ae6�0/�1`k.0�2_-i1�3]v2q�4gnot�5]42q�6]"2q�7gcond�8���9gelse�:g
bad-clause�;:�<f
l-bde397a-b21�=<�>`;�=�?gclause�@?�Af
l-bde397a-b1f�BA�C`@�B�Dgclauses�E?D�Ff
l-bde397a-b0e�Gf
l-bde397a-b0f�HFG�I`E�H�Jgreverse-map�Kgfold�LJK�M__�Nf
l-bde397a-af6�Of
l-bde397a-af4�PNO�Q`LMP�Rg
whole-expr�SR�Tf
l-bde397a-af3�UT�V`S�U�W_>CIQV�X]9Wq�Y�X�ZY��[gtail�\[�]f
l-bde397a-b2c�^]�_`\�^�`ge*�a�`�bf
l-bde397a-b27�cf
l-bde397a-b28�dbc�e`a�d�f_i_e>CIQV	�g]"fq�hfelse must be the last clause�iY���jfinvalid clause�kg=>�l]kWq�m�l�n[m[�og
t-bde397a-b36�po�qg
m-bde397a-b37�rq^�sr�tf
l-bde397a-b3b�ut�v`psu�wf
l-bde397a-b35�xw�y`\�x�zgreceiver�{z�|f
l-bde397a-b30�}f
l-bde397a-b31�~|}�`{�~��_iviiiy>CIQV
��]��q��]��q��]v�q�����m����[����f$wrong number of receiver expressions��[[m[��gcall-with-values��g
t-bde397a-b4c�����g
m-bde397a-b4d���^�����f
l-bde397a-b51�����`�����f
l-bde397a-b4b�����`\����g	generator��gguard����z��f
l-bde397a-b44��f
l-bde397a-b45��f
l-bde397a-b46�������`�����_i�iii��>CIQV
��]��q��glambda��]��q��gvals��]��q��]v�q��]�q�����[����g
t-bde397a-b60�����g
m-bde397a-b61���^�����f
l-bde397a-b65�����`�����f
l-bde397a-b5f�����`\������f
l-bde397a-b5c�����`�����_i�iii��>CIQV
��]��q��]��q��]v�q��g
t-bde397a-b71�����g
m-bde397a-b72���^�����f
l-bde397a-b76�����`�����f
l-bde397a-b70�����`\�����`��f
l-bde397a-b69��f
l-bde397a-b6a��f
l-bde397a-b6b�������`�����_i�iii��>CIQV
��]v�q��]"�q��g
t-bde397a-b12�����g
m-bde397a-b13���^�����f
l-bde397a-b17�����`�����_i�IQV��]"�q��gcase���
���grest�����f
l-bde397a-bd6��f
l-bde397a-bd7������`�����f
l-bde397a-bd0�����`;����gseen��?���f
l-bde397a-bcd��f
l-bde397a-bce������`�����gkey�����f
l-bde397a-bbd�����`�����gexpr���?D��f
l-bde397a-bb5��f
l-bde397a-bb6��f
l-bde397a-bb7�������`�����greverse-map-with-seed��gfold2����K��___��f
l-bde397a-b81��f
l-bde397a-b7f��f
l-bde397a-b7d�������`�����f
l-bde397a-b7c����`S���_���iii����]kq���[�_���]�q����f
l-bde397a-c09�	f
l-bde397a-c0a�
	�`a�
�_���iii����
]"q�gmemv�gsystem�gbase�gmessage��gwarning���gduplicate-case-datum�gsource-properties�garray?�gbad-case-datum�g
t-bde397a-bf5��g
m-bde397a-bf6�^��f
l-bde397a-bfa� �!` �"f
l-bde397a-bf4�#"�$`\�#�%��&f
l-bde397a-be2�'&�(`%�'�)gdatums�*)�+f
l-bde397a-be0�,+�-`*�,�.gclause-expr�/.�0f
l-bde397a-bdc�10�2`/�1�3_i!iii$i(-i2���iii����4]v3q�5]3q�6gquote�7]63q�8_i2���iii���
�9]98q�:�9�;g
t-bde397a-bbf�<;�=g
m-bde397a-bc0�>=^�?>�@f
l-bde397a-bc4�A@�B`<?A�C_iBiii���
�D]�Cq�Egdo�F�
�G���HFG��I[H��Jgletrec�Kgvar�Lginit�Mgstep�Ngcommand�OaKLM�N�Pg
m-bde397a-c0f�QP^�RQ______�Sf
l-bde397a-c14�Tf
l-bde397a-c15�Uf
l-bde397a-c16�Vf
l-bde397a-c17�Wf
l-bde397a-c18�Xf
l-bde397a-c19�Yf
l-bde397a-c1a�ZSTUVWXY�[`ORZ�\Q�]f
l-bde397a-c11�^]�_`k\^�`_[i_�a]J`q�bgloop�c]b`q�d]�`q�e]v`q�f]"`q�g]`q�hegg�i]E`q�jfstep�k]j`q�lgatom�mlj�n[m[�o[m[[�pgwrong-number-of-args�qfCdefine-values: wrong number of return values returned by expression�rg%define-values-arity-error�sg
define-values�t�[�ua�vgdefine�wf
l-bde397a-c3e�xw�y`b�x�z��{f
l-bde397a-c39�|{�}`z�|�~g	orig-form�~��f
l-bde397a-c36�����`����_iiiiy}i�	��]v�q��]��q��]��q��gcase-lambda��]��q��]�q�����]��q��]r�q������������������\[��geach+���[\����[���[[���[[����[��f
l-bde397a-c7f�����`b����gvar0��gvarn�������f
l-bde397a-c76��f
l-bde397a-c77��f
l-bde397a-c78�������`�����_iiii��i�	��]"�q��]v�q��]��q��]��q��]��q��]��q��]��q��]r�q������������]��q��gv��]��q��]�q��gset!��]��q��]�q�����]�q�����K���f
l-bde397a-c6a��f
l-bde397a-c6b������`�����_�i���]v�q��]��q��]��q��]��q�����f
l-bde397a-c5e�����`b����f
l-bde397a-c55��f
l-bde397a-c56��f
l-bde397a-c57�������`�����_iiii��i�	��]"�q��]v�q��]��q��]��q��]��q��]��q��]��q��]r�q������������]��q��]��q��]�q��]��q��]�q�����]�q�����f
l-bde397a-c47��f
l-bde397a-c48������`�����_i�i���]v�q��]��q��]��q��]��q��]��q���������]��q��]r�q�����������������gdelay��gmake-promise��gexp��a���g
m-bde397a-c87���^���_��f
l-bde397a-c8c��f
l-bde397a-c8d������`��������f
l-bde397a-c89����`k���_�i�]�q�]�q�gcurrent-source-location���gs��f
l-bde397a-c96�	�
`�	�f
l-bde397a-c91��
`k��_i
i
�]6q�gcurrent-filename�gcanonicalize-path�gassq-ref�gfilename�gdefine-once�[[[�gsym�gval�a�g
m-bde397a-c9e�^�__�f
l-bde397a-ca3�f
l-bde397a-ca4�f
l-bde397a-ca5�� `�!�"f
l-bde397a-ca0�#"�$`k!#�%_ i$�&]v%q�']v%q�(gmodule-locally-bound?�)](%q�*]%q�+*�,]6%q�-fmap�.fCircular list: ~S�/greverse!�0fNot a list: ~S�1fList of wrong length: ~S�2glength�3gmap-in-order�4ffor-each�5fUnexpected tail: ~S�6gbinaryS�76��8gencodingS�98	��:gguess-encodingS�;:	��<79;�=g	open-file�>frb�?fr�@gopen-input-file�A79�Bfwb�Cfw�Dgopen-output-file�E6	��F8	��G:	��HEFG�Igclose-input-port�Jgcall-with-input-file�KEF�Lgclose-output-port�Mgcall-with-output-file�Ngwith-input-from-port�Ogwith-input-from-file�Pgwith-output-to-file�Qgwith-error-to-port�Rgwith-error-to-file�Sgset-exception-printer!�Tgand=>�Ugframe-source�Vf<unnamed port>�Wf
~a:~a:~a: �XfERROR: �Yf!Throw to key `~a' with args `~s'.�Zgframe-procedure�[fIn procedure ~a:
�\gprocedure-name�]fError while printing exception.�^gforce-output�_gprint-exception�`fIn procedure ~a: �aggoops-error�bghost-not-found�cgkeyword-argument-error�df~a: ~s�eg
misc-error�fgno-data�ggno-recovery�hgnull-pointer-error�igout-of-range�jg
program-error�kg
read-error�lgregular-expression-syntax�mgsignal�ngstack-overflow�ogsystem-error�pg	try-again�qgunbound-variable�rgsyntax-error�sfSyntax error:
�tfunknown file�ugline�vg1+�wgcolumn�xfunknown location: �yf~a: �zf~a�{f in subform ~s of ~s�|f in form ~s�}ggetaddrinfo-error�~fIn procedure getaddrinfo: ~a�ggai-strerror��gdefine-macro��t
��������t���������gargs��gbody��Z����f
l-bde397a-e12��f
l-bde397a-e13��f
l-bde397a-e14�������`�����f
l-bde397a-df9�����`k����_�i���]��q��]�q��]��q��gtransformer��Z���f
l-bde397a-e1a��f
l-bde397a-e1b������`�����_�i���]��q��]�q���[[[��gstring?��g
define-syntax��gdoc��Z����f
l-bde397a-e29��f
l-bde397a-e2a��f
l-bde397a-e2b�������`�����_�i���]��q��]��q��]w�q�����g
macro-type��]��q��gdefmacro��]��q�������g
defmacro-args��]��q��]��q����������gsyntax-case��]��q��]��q�������]��q��]��q��]P�q��]�q�����������������]O�q��]�q�����gbody1��Z������_____��f
l-bde397a-e06��f
l-bde397a-e07��f
l-bde397a-e08��f
l-bde397a-e09��f
l-bde397a-e0a���������`�����_�i���]��q��]��q��[����Ҍ��f
l-bde397a-e49��f
l-bde397a-e4a��f
l-bde397a-e4b�������`�����f
l-bde397a-e30�����`k����_�i���]��q��]�q��]��q��f
l-bde397a-e3d��f
l-bde397a-e3e��f
l-bde397a-e3f��f
l-bde397a-e40��f
l-bde397a-e41���������`�����_�i���]��q��]��q��gbegin-deprecated��ginclude-deprecated-features��gform��gform*������f
l-bde397a-e54��f
l-bde397a-e55������`�����f
l-bde397a-e51�����`k����_�i���]"�q�����gidentity��gcompose��gnegate��gconst��gcall-with-current-continuation��gcall/cc��gfalse-if-exception�a��g
m-bde397a-e71�^�_�f
l-bde397a-e76�f
l-bde397a-e77��`��	f
l-bde397a-e73�
	�`k
�_i�
]q�]q�]�q�]�q�]q���gwarningS�l���[��[��garg�a��___�f
l-bde397a-e7b�f
l-bde397a-e7c�f
l-bde397a-e7d�f
l-bde397a-e7e� �!` �"_!i�#]"q�$]"q�%]�"q�&]�"q�']�"q�(&'��)]"q�*]"q�+*�,]v"q�-]4"q�.gstring-null?�/]."q�0/*�1-0�2]"q�3]*"q�43�5f;;; ~a
�6]5"q�7246*�8,17�9%+8�:gstring-split�;]:"q�<gcall-with-output-string�=]<"q�>gport�?]>"q�@?�A]_"q�B]"q�CA?B&'�DC�E]
"q�FE�GB�Hgmake-weak-key-hash-table�Ig
make-mutex�Jgmake-procedure-with-setter�Kg
lock-mutex�Lgunlock-mutex�Mgmake-object-property�Ngassoc�Ogsymbol-pref�Pgsymbol-property�Qgsymbol-pset!�Rgset-symbol-property!�Sgdelq!�Tgsymbol-property-remove!�Ugnumber?�Vgarray-dimensions�Wgarray-shape�Xgmember�Yg
kw-arg-ref�Zgvtable-index-layout�[g
struct-layout�\gget-print-state�]gport-with-print-state�^ginherit-print-state�_gmake-vtable�`g
string-append�agstandard-vtable-fields�bfprprpw�cf#<record-type �dgrecord-type-name�ef>�fgset-struct-vtable-name!�ggrecord-type�hgrecord-type-vtable�igrecord-type?�jf#<�kgrecord-type-descriptor�lf �mf: �ngrecord-type-fields�ogmake-struct-layout�pfpw�qg	copy-tree�rgvtable-offset-user�sfmake-~a�tfWrong number of arguments�ugstring->symbol�vgmake-record-type�wgnot-a-record-type�xgprimitive-eval�ygrecord-constructor�zgrecord-predicate�{f%record-type-check�|f!Wrong type record (want `~S'): ~S�}g%record-type-error�~g
list-index�g
no-such-field��grecord-accessor��grecord-modifier��grecord?��gnot-a-record��grecord��g->bool��gsymbol->string��g
symbol-append��glist->string��glist->symbol��gstring��gsymbol��fice-9/posix��gsocket��fice-9/networking��gposix��gstat��g	OPEN_READ��g
close-port��gfile-exists?��g	stat:type��g	directory��f/.��gfile-is-directory?��glist-ref��gsystem-error-errno��f?��gstring-join��f~A��g	make-list��f~S��gtm:sec��gtm:min��gtm:hour��gtm:mday��gtm:mon��gtm:year��gtm:wday��gtm:yday��gtm:isdst��g	tm:gmtoff��gtm:zone��g
set-tm:sec��g
set-tm:min��gset-tm:hour��gset-tm:mday��g
set-tm:mon��gset-tm:year��gset-tm:wday��gset-tm:yday��gset-tm:isdst��g
set-tm:gmtoff��gset-tm:zone��g	tms:clock��g	tms:utime��g	tms:stime��g
tms:cutime��g
tms:cstime��gftell��g
file-position��gSEEK_SET��gseek��gfile-set-position��g	dup->fdes��gclose��gprimitive-move->fdes��gset-port-revealed!��g
move->fdes��g
port-revealed��grelease-port-handle��gfdopen��g	dup->port��gdup->inport��gdup->outport��g	port-mode��gdup��gduplicate-port��ginput-port?��gfdes->ports��gfdes->inport��goutput-port?��g
fdes->outport��gfileno��g
port->fdes��gputenv��f=��gsetenv��gunsetenv��gchar=?��gfile-name-separator?��f/��gfile-name-separator-string��gstring-prefix?��f��gin-vicinity��gprogram-arguments��gcommand-line��ggetenv��fHOME��g
passwd:dir��ggetpwuid��ggetuid��f.guile��gprimitive-load��gload-user-init��fstart-stack��g%stacks��g%start-stack��gstart-stack��gtag��a����gm-bde397a-11e7���^���__��fl-bde397a-11ec��fl-bde397a-11ed��fl-bde397a-11ee�������`��������fl-bde397a-11e9�����`k����_�i���]��q��]��q��g
load-stack��gload-from-path�gadd-to-load-path�g	eval-when�gelt�a�gm-bde397a-11f6�^�_�fl-bde397a-11fb�fl-bde397a-11fc�	�
`	��fl-bde397a-11f8�
�`k
�_
i�]q�]�q�gload�]q�geval�]q��]�q�g
%load-path�]q�gcons�]q�gdelete�]q��g%load-verbosely� gassert-load-verbosity�!floading �"g%load-announce�#g
%load-hook�$g
read-eval?�%gread-hash-extend�&gread�'ginteraction-environment�(f-#. read expansion found and read-eval? is #f.�)gmodule-kind�*fmodule�+gnumber->string�,gobject-address�-g
%print-module�.g"pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw�/gmodule�0gobarray�1guses�2gbinder�3geval-closure�4gname�5gkind�6gduplicates-handlers�7gimport-obarray�8g	observers�9gweak-observers�:gversion�;g
submodules�<gsubmodule-binder�=gpublic-interface�>gnext-unique-id�?0123�456789:;<=>�@gmodule-type�Agmodule-constructor�Bgmodule?�Cgmodule-obarray�Dgset-module-obarray!�Egmodule-uses�Fgset-module-uses!�Gg
module-binder�Hgset-module-binder!�Igmodule-eval-closure�Jgset-module-eval-closure!�Kgset-module-transformer!�Lgset-module-name!�Mgset-module-kind!�Ngmodule-duplicates-handlers�Ogset-module-duplicates-handlers!�Pgmodule-import-obarray�Qgmodule-observers�Rgset-module-observers!�Sgmodule-weak-observers�Tgmodule-version�Ugset-module-version!�Vgmodule-submodules�Wgset-module-submodules!�Xgmodule-submodule-binder�Ygset-module-submodule-binder!�Zgmodule-public-interface�[gset-module-public-interface!�\gmodule-filename�]gset-module-filename!�^gmodule-next-unique-id�_gset-module-next-unique-id!�`fIllegal size to make-module.�afIncorrect use list.�bf-Lazy-binder expected to be a procedure or #f.�cgmake-hash-table�dgmacroexpand�egmake-module�fgmodule-observe�ggmodule-observe-weak�hghash-remove!�igdelq1!�jgmodule-unobserve�kgmodule-defer-observers�lg	recursive�mgmodule-defer-observers-mutex�ngmodule-defer-observers-table�og	hash-set!�pgmodule-call-observers�qgmodule-modified�rg
hash-for-each�sghash-clear!�tgcall-with-deferred-observers�ug
module-search�vgmodule-local-variable�wg
module-bound?�xghashq-get-handle�yghash-get-handle�zgmodule-obarray-get-handle�{ghash-ref�|gmodule-obarray-ref�}gmodule-obarray-set!�~g
hashq-remove!�gmodule-obarray-remove!��gmodule-symbol-locally-interned?��gmodule-symbol-interned?��fLocally unbound variable.��gmodule-symbol-local-binding��fUnbound variable.��gmodule-symbol-binding��g	variable?��gmake-undefined-variable��gmodule-make-local-var!��gmodule-ensure-local-variable!��fBad variable to module-add!��fBad symbol to module-add!��gmodule-remove!��g
module-clear!��gmodule-for-each��ghash-map->list��g
module-map��gmodule-ref-submodule��gmodule-define-submodule!��fnot in submodules table��fdefining module��f!: not overriding local definition��gset-current-module��gsave-module-excursion��fNo variable named��gin��gmodule-set!��gmodule-defined?��gmodule-use!��greverse��gmodule-use-interfaces!��g
nested-ref��ffailed to resolve module��gnested-set!��gnested-define!��gnested-remove!��gnested-ref-module��fcan't redefine root module��gnested-define-module!��g	local-ref��g
local-set!��glocal-define��glocal-remove��glocal-ref-module��glocal-define-module��gthe-root-module��g	interface��gthe-scm-module��f/unexpected module to resolve during module boot��gdefine-module*��gprocess-use-modules��gmodule-export!��g$default-duplicate-binding-procedures��f mg��f-��ghash��gmost-positive-fixnum��gmake-modules-in��gbeautify-user-module!��g>=��g<=��fInvalid sub-version reference��gversion-matches?��gmake-fresh-user-module��gensureS���	������gtry-load-module��f*incompatible module version already loaded��gtry-module-autoload��funknown file name for module��g
reload-module��gpurify-module!��gselectS������ghideS���	���gprefixS���	���grenamerS���	���gversionS���	����������gsymbol-prefix-proc��fno code for module��gcustom-interface��fno binding `~A' in module ~A��f$no binding `~A' to hide in module ~A��gresolve-interface��gfilenameS������gpureS���	����	���g
duplicatesS���	���gimportsS���	���gexportsS���	���greplacementsS���	���g
re-exportsS���	���g	autoloadsS���		���gtransformerS���	
�������������
��f#unexpected use-module specification��funexpected tail of imports list��f%expected list of integers for version��f8expected exports to be a list of symbols or symbol pairs��gmodule-replace!��f=expected replacements to be a list of symbols or symbol pairs��gmodule-re-export!��f;expected re-exports to be a list of symbols or symbol pairs��gmodule-autoload!��glookup-duplicates-handlers��f(expected transformer to be a module name��gsymbol?��grun-hook��gmodule-defined-hook��g	make-hook��fmissing interface for module��fFailed to autoload ~a in ~a:
��gautoload�gmake-weak-value-hash-table�gmake-autoload-interface�f"invalid name+binding autoload list�gautoloads-in-progress�gautoload-done-or-in-progress?�gautoload-in-progress!�gset-autoloaded!�gcurrent-reader�??��	�
gautoloads-done�gdelete!�gautoload-done!�
gdefine-option-interface�[\�[�goptions�genable�gdisable�goption-set!�a��gm-bde397a-1729�^�_____�fl-bde397a-172e�fl-bde397a-172f�fl-bde397a-1730�fl-bde397a-1731�fl-bde397a-1732�fl-bde397a-1733��`� �!fl-bde397a-172b�"!�#`k "�$_i#�%]"$q�&]v$q�']�$q�(]$q�)(�*]v$q�+glist?�,]+$q�-,(�.]$q�/]�$q�0goption�1]0$q�21�3]$q�4]4$q�5gvalue�6]5$q�7g
documentation�8]7$q�9468�:]#$q�;:4�<]�$q�=glen�>]=$q�?]6$q�@]�$q�A@4�B?A�C>B�DC�E]$q�Fg<�G]F$q�H]	$q�IG>H�J]	$q�K:J�L]	$q�MG>L�NEMK�OEIKN�P<DO�Q:6�R:8�S]"$q�TS�U/9;PKQKRT	�V3U1�W/2V�X]$q�YX�Zgflags�[]Z$q�\]�$q�]gflag�^]]$q�_^�`]�$q�a]S$q�b[�cgdefine-syntax-rule�d]c$q�egopt�f]e$q�g]$q�hfg�i]$q�j]�$q�k]$q�l]$q�mjkl�n]�$q�o]6$q�pof�qnpg�rq�sgdebug-options-interface�tg
debug-options�ugdebug-enable�vg
debug-disable�wg
debug-set!�xgm-bde397a-173a�yx^�zae�{gm-bde397a-173c�|{^�}|yy�~fl-bde397a-1741�fl-bde397a-1742��fl-bde397a-1743��~���`z}���|��fl-bde397a-173e�����`k����gshift��y�i��i#��]�q��]��q��]�q��]�q�������_�i���]t�q��]��q�����]��q��]6�q��gread-options-interface��gread-options��gread-enable��gread-disable��g	read-set!��gm-bde397a-175d���^��gm-bde397a-175f���^�������fl-bde397a-1764��fl-bde397a-1765��fl-bde397a-1766�������`z�������fl-bde397a-1761�����`k������i��i#��]�q��]��q��]�q��]�q�������_�i���]��q��]��q�����]��q��]6�q��gprint-options-interface��g
print-options��gprint-enable��g
print-disable��g
print-set!��gm-bde397a-1780���^��gm-bde397a-1782���^�������fl-bde397a-1787��fl-bde397a-1788��fl-bde397a-1789�������`z�������fl-bde397a-1784�����`k������i��i#��]�q��]��q��]�q��]�q�������_�i���]��q��]��q�����]��q��]6�q��g
*unspecified*��gid�����gm-bde397a-17a3���^�����fl-bde397a-17aa�����`�����fl-bde397a-17a5�����`k����_�i���]v�q��]�q������������fl-bde397a-17ad�����`k����_�i���]v�q��]�q�������gunspecified?��g<applicable-struct-vtable>��gpwprpr��g<parameter>��gmake-parameter��gfluid->parameter��g
parameter?��fparameter-fluid��fNot a parameter: ~S��gparameter-fluid��gparameter-converter��gparameterize���s�����������gp�����fl-bde397a-17e2�����`�����gparam��gbody*��5���____�fl-bde397a-17d7�fl-bde397a-17d8�fl-bde397a-17d9�fl-bde397a-17da��`�fl-bde397a-17d4�	�
`k�	�_i�i
�]�q�
]vq�]4q�]�q�]q�]6q�]q��fparameterize�]q�]�q�]�q�]q��gwith-fluids�]q�g
struct-ref�]q�]q�� ]	q�! �"g%current-input-port-fluid�#fexpected an input port�$gcurrent-input-port�%g%current-output-port-fluid�&fexpected an output port�'gcurrent-output-port�(g%current-error-port-fluid�)g%current-warning-port-fluid�*gscheme�+gcurrent-language�,g*repl-stack*�-gbatch-mode?�.gensure-batch-mode!�/gexit�0gassq�1g
gc-time-taken�2ggc-stats�3ggc-run-time�4g
abort-hook�5gbefore-error-hook�6gafter-error-hook�7gbefore-backtrace-hook�8gafter-backtrace-hook�9gbefore-read-hook�:gafter-read-hook�;gbefore-eval-hook�<gafter-eval-hook�=gbefore-print-hook�>gafter-print-hook�?g	exit-hook�@g	fluid-ref�Agchar-ready?�Bgset-port-column!�Cgrepl-reader�Dgiota�Egwhile�Fgbreak�Ggcontinue�Hgt-bde397a-1825�Igt-bde397a-1826�JHI�Kgm-bde397a-1827�LK^�MLL�Nfl-bde397a-182b�Ofl-bde397a-182c�PNO�Q`JMP�RE7��Sfl-bde397a-181f�Tfl-bde397a-1820�Ufl-bde397a-1821�VSTU�W`R�V�Xfl-bde397a-181c�YX�Z`k�Y�[_iQWiZ�\]�[q�]g	break-tag�^]][q�_][q�`fbreak�a]`[q�b_a�c^b�dgcontinue-tag�e]d[q�ffcontinue�g]f[q�h_g�ieh�jci�k][q�l]�[q�m]�[q�n]j[q�on�p]�[q�q]�[q�r][q�s]�[q�tqrs�u][q�v]	[q�wv^rs�xuw�ytx�z]�[q�{][q�|{v^z�}lz|�~u}�q~��pny��lo������glp��]�[q��q��ve��u�������qz���]N[q��]6[q��]G[q������ftoo many arguments��]�[q�����n������l���u���q���pn�����lo������]E[q��]4[q��][q�����]�[q��������l��������z���]v[q��gnull?��]�[q���z��][q��gvalues��]�[q��{�z��������l�������gsymbol->keyword��g	substring��gkeyword-like-symbol->keyword��g
define-module��gt-bde397a-188a�����gm-bde397a-188b���^�����fl-bde397a-188e�����`�����gimp��grex��gaut����������______��fl-bde397a-1878��fl-bde397a-1879��fl-bde397a-187a��fl-bde397a-187b��fl-bde397a-187c��fl-bde397a-187d����������`�����gparse��gparse-iface��g	->keyword��g
keyword-like?��������____��fl-bde397a-183a��fl-bde397a-1838��fl-bde397a-1836��fl-bde397a-1834��������`�����fl-bde397a-1833�����`k����_i�i�����]��q��g
quasiquote��]��q��gt-bde397a-1890�����gm-bde397a-1891���^�����fl-bde397a-1894�����`�����_i�i�����]��q��]6�q��gt-bde397a-1896�����gm-bde397a-1897���^�����fl-bde397a-189a�����`�����_i�i�����]��q��]6�q��gt-bde397a-189c�����gm-bde397a-189d���^�����fl-bde397a-18a0�����`�����_i�i�����]��q��]6�q��gt-bde397a-18a2�����gm-bde397a-18a3���^�����fl-bde397a-18a6���`���_ii����]�q�]6q�������gno-backtraceS�l�[��	l��
	[��gt-bde397a-18de��
gm-bde397a-18df�
^��fl-bde397a-18e2��`���fl-bde397a-18dc��`��_ii����]�q�]q�fkeyword arg without value�l���[����gt-bde397a-18ec�� gm-bde397a-18ed�! ^�"!�#fl-bde397a-18f0�$#�%`"$�&���'fl-bde397a-18e8�(fl-bde397a-18e9�)'(�*`&�)�+_i%*i����,]�+q�-]6+q�.l��/.��0gt-bde397a-18f8�10�2gm-bde397a-18f9�32^�43�5fl-bde397a-18fc�65�7`146�8gd�98��:fl-bde397a-18f4�;fl-bde397a-18f5�<:;�=`9�<�>_i7=i����?]�>q�@]6>q�Al��BAt��Cgt-bde397a-1904�DC�Egm-bde397a-1905�FE^�GF�Hfl-bde397a-1908�IH�J`DGI�Kgf�LK��Mfl-bde397a-1900�Nfl-bde397a-1901�OMN�P`L�O�Q_iJPi����R]�Qq�S]6Qq�Tg
use-moduleS�UlT�V[��WUV��Xg
use-syntaxS�YlX�ZYV��[G[��\U[��]gexportS�^l]�_^��`g
export-syntaxS�al`�ba��cg	re-exportS�dlc�ed��fgre-export-syntaxS�glf�hg��igreplaceS�jli�kj��lgreplace-syntaxS�mll�nm��ogautoloadS�plo�qpu��rfunknown keyword or bad argument�sl��tst��ugunquote�vgrenamer�wv��xfl-bde397a-1867�yfl-bde397a-1868�zxy�{`w�z�|gout�}b�|�~fl-bde397a-1846�fl-bde397a-1847��fl-bde397a-1848��~���`}����fl-bde397a-1845�����`����_{i�i�����]u�q��gkeyword?��fexpected keyword arg������gt-bde397a-1931�����gm-bde397a-1932���^�����fl-bde397a-1935�����`�����gname*��4����fl-bde397a-192b��fl-bde397a-192c��fl-bde397a-192d�������`�����_i��i�����]��q��]6�q���G���g
quoted-arg�����fl-bde397a-19de��fl-bde397a-19df������`�����4���fl-bde397a-19d5��fl-bde397a-19d6��fl-bde397a-19d7�������`�����_i������]�q��]��q��]�q��]�q�������]��q��gm��]��q��]��q��]6�q��]��q��]��q����������fno such module��guse-modules��gkw������fl-bde397a-1a31��fl-bde397a-1a32��fl-bde397a-1a33�������`�����fl-bde397a-1a0b��fl-bde397a-1a0c��fl-bde397a-1a0d�������`}����fl-bde397a-1a0a�����`����gquotify��g
quotify-iface��������fl-bde397a-19ff��fl-bde397a-19fd��fl-bde397a-19fb��fl-bde397a-19f9��������`�����fl-bde397a-19f8�����`k����_�i�i�����]6�q�����fl-bde397a-1a65�����`�����4����fl-bde397a-1a5a��fl-bde397a-1a5b��fl-bde397a-1a5c��fl-bde397a-1a5d��������`������|��fl-bde397a-1a39��fl-bde397a-1a3a��fl-bde397a-1a3b�������`�����gspecs�����fl-bde397a-1a38�����`�����_ii��i�i�����]��q��]6�q��4����fl-bde397a-1a49��fl-bde397a-1a4a��fl-bde397a-1a4b�������`�����_�i�i�����]6�q��gquoted-args�����fl-bde397a-1a73�����`�����gspec����	fl-bde397a-1a6e�		�	`��	�	_i�	���	]	q�	]�	q�	]	q�	]	q�				�		]�	q�	
]�	q�	]�	q�		�	
g
use-syntax�	a��	gm-bde397a-1a78�		^�		_�	fl-bde397a-1a7d�	fl-bde397a-1a7e�			�	`			�		�	fl-bde397a-1a7a�		�	`k		�	_	i	�	]"	q�	]	q�	]�	q�	]	q�	]	q�	 			�	!gissue-deprecation-warning�	"]	!	q�	#fE`use-syntax' is deprecated. Please contact guile-devel for more info.�	$]	#	q�	%	"	$�	&		 	%�	']�	q�	(glibrary�	)gsym?�	*gmake-custom-interface�	+	)	*�	,fl-bde397a-1b4a�	-fl-bde397a-1b48�	.	,	-�	/`	+M	.�	0gimport-spec�	1	0�	2fl-bde397a-1b47�	3	2�	4`	1�	3�	5_	/	4�	6]	(	5q�	7�	6�	8gsrfi�	9]	8	5q�	:�	9�	;��	<�[	;�	=[	<��	>	:	=��	?	7	>�	@	7	=�	A	7�	Bgonly�	C]	B	5q�	D�	C�	E	D��	Fgexcept�	G]	F	5q�	H�	G�	I	H��	Jgprefix�	K]	J	5q�	L�	K�	M	L[[�	Ngrename�	O]	N	5q�	P�	O�	Q[���	R	P	Q��	Sgresolve-r6rs-interface�	T4��	Ufl-bde397a-1c19�	Vfl-bde397a-1c1a�	W	U	V�	X`	T�	W�	Y_	X	/	4�	Z]	(	Yq�	[4�:�	\fl-bde397a-1c0b�	]fl-bde397a-1c0c�	^fl-bde397a-1c0d�	_	\	]	^�	``	[�	_�	a_	`	/	4�	b]	(	aq�	cf'duplicate binding for `~A' in module ~A�	dfl-bde397a-1b93�	efl-bde397a-1b94�	f	d	e�	g`	T�	f�	h_	g	/	4�	i]	(	hq�	jgcolon-n�	k	j�:�	lfl-bde397a-1b54�	mfl-bde397a-1b55�	nfl-bde397a-1b56�	o	l	m	n�	p`	k�	o�	q_	p	/	4�	r]	8	qq�	sfsrfi-�	tgt-bde397a-1b68�	u	t�	vgm-bde397a-1b69�	w	v^�	x	w�	yfl-bde397a-1b6c�	z	y�	{`	u	x	z�	|gsrfi-n�	}	|�	~fl-bde397a-1b64�		~�	�`	}�	�	�fl-bde397a-1b5e�	�fl-bde397a-1b5f�	�fl-bde397a-1b60�	�	�	�	��	�`	k�	��	�_i	{i	�	�	/	4�	�]	(	�q�	�]	8	�q�	�gt-bde397a-1b74�	�	��	�gm-bde397a-1b75�	�	�^�	�	��	�fl-bde397a-1b78�	�	��	�`	�	�	��	�4��	�fl-bde397a-1b70�	�fl-bde397a-1b71�	�	�	��	�`	��	��	�_i	�	�i	�	�	/	4	�	�]	(	�q�	�]	8	�q�	�gexport�	�gcompute-exports�	�	��	�fl-bde397a-1a86�	�	��	�`	��	��	�gstx�	�	��	�fl-bde397a-1a85�	�	��	�`	��	��	�_	�	��	�]	�	�q�	��	��	�	����	�gimport�	�]	�	�q�	��	��	�	����	�	����	�	�	���	�	���	��	���	�	=	���	��	���	�gfor�	�gim�	�	��	�fl-bde397a-1b0b�	�	��	�`	��	��	�gespec�	�gispec�	�4�:	�	���	�fl-bde397a-1afe�	�fl-bde397a-1aff�	�fl-bde397a-1b00�	�fl-bde397a-1b01�	�fl-bde397a-1b02�	�fl-bde397a-1b03�	�	�	�	�	�	�	��	�`	��	��	�_i	�i	�	�	��	�]	�	�q�	��	��	�	���	�����j�	�fl-bde397a-1a96�	�fl-bde397a-1a97�	�fl-bde397a-1a98�	�fl-bde397a-1a99�	�fl-bde397a-1a9a�	�	�	�	�	�	��	�`	��	��	�greplace?�	�g
re-export?�	�	�	��	�fl-bde397a-1a8e�	�fl-bde397a-1a8c�	�	�	��	�`	�M	��	�gifaces�	�	���	�fl-bde397a-1a8a�	�fl-bde397a-1a8b�	�	�	��	�`	��	��	�_i	�	�	�	�	��	�]	N	�q�	��	��	�	����	�	�[��	�t[��	�����	���j�	�fl-bde397a-1b1f�	�fl-bde397a-1b20�	�fl-bde397a-1b21�	�	�	�	��	�`	��	��	�gexports�	�g
re-exports�	�	�	���	�fl-bde397a-1b19�	�fl-bde397a-1b1a�	�fl-bde397a-1b1b�	�	�	�	��	�`	��	��	�_i	�ii	�	�	�	�	�	�]"	�q�	�]�	�q�	�]�	�q�	�]�	�q�	�]	�	�q�	�]	�	�q�	�g	re-export�	�]	�	�q�	�gexport!�	�]	�	�q�	�g@@�	�]	�	�q�	�4�	�	���	�fl-bde397a-1ae2�
fl-bde397a-1ae3�
fl-bde397a-1ae4�
fl-bde397a-1ae5�
fl-bde397a-1ae6�
	�



�
`	��
�
_
	�	��
]	(
q�
]	�
q�
	]	�
q�

g
import-set�


�
fl-bde397a-1b32�


�
`
�

�
g	strip-for�

�
fl-bde397a-1b2f�

�
`
�
�
fl-bde397a-1b2e�

�
`	��
�
_i


�
]	�
q�
�
�

��
glibrary-reference�

�
fl-bde397a-1b42�

�
`
�
�
 fl-bde397a-1b3d�
!
 �
"`
�
!�
#_i

"

�
$]
#q�
%]�
#q�
&]
#q�
']
#q�
(
%
&
'�
)]�
#q�
*giface�
+]
*
#q�
,]	S
#q�
-]6
#q�
.]t
#q�
/]�
#q�
0]�
#q�
1]
#q�
2
1�
3]�
#q�
4
3
+�
5
0
2
4�
6
/
5�
7
.
6�
8
7�
9]v
#q�
:]
#q�
;
9
:
:�
<
;�
=gdefine-private�
>gfoo�
?gbar�
@a
>
?�
Agm-bde397a-1c1f�
B
A^�
C
B__�
Dfl-bde397a-1c24�
Efl-bde397a-1c25�
Ffl-bde397a-1c26�
G
D
E
F�
H`
@
C
G�
I
B�
Jfl-bde397a-1c21�
K
J�
L`k
I
K�
M_
Hi
L�
N]v
Mq�
Og
define-public�
P[	ጤ
Qa4���
Rgm-bde397a-1c2a�
S
R^�
T
S___�
Ufl-bde397a-1c2f�
Vfl-bde397a-1c30�
Wfl-bde397a-1c31�
Xfl-bde397a-1c32�
Y
U
V
W
X�
Z`
Q
T
Y�
[
S�
\fl-bde397a-1c2c�
]
\�
^`k
[
]�
__
Zi
^�
`]"
_q�
a]v
_q�
b]	�
_q�
ca4�
d
S__�
efl-bde397a-1c38�
ffl-bde397a-1c39�
gfl-bde397a-1c3a�
h
e
f
g�
i`
c
d
h�
j_
ii
^�
k]"
jq�
l]v
jq�
m]	�
jq�
ngdefmacro-public�
ogm-bde397a-1c3f�
p
o^�
q
p___�
rfl-bde397a-1c44�
sfl-bde397a-1c45�
tfl-bde397a-1c46�
ufl-bde397a-1c47�
v
r
s
t
u�
w`
Q
q
v�
x
p�
yfl-bde397a-1c41�
z
y�
{`k
x
z�
|_
wi
{�
}]"
|q�
~]�
|q�
g
export-syntax�
�]

|q�
�k�T�
�gformals�
�a
���
�gm-bde397a-1c4e�
�
�^�
�
�__�
�fl-bde397a-1c53�
�fl-bde397a-1c54�
�fl-bde397a-1c55�
�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1c50�
�
��
�`k
�
��
�_
�i
��
�]�
�q�
�gset-object-property!�
�greplace�
�gmodule-export-all!�
�fre-exporting local variable:�
�fUndefined variable:�
�a4�
�gm-bde397a-1c95�
�
�^�
�
�_�
�fl-bde397a-1c9a�
�fl-bde397a-1c9b�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1c97�
�
��
�`k
�
��
�_
�i
��
�]
�q�
�]�
�q�
�]
�q�
�]
�q�
�
�
�
��
�]t
�q�
�]�
�q�
�]�
�q�
�]
�q�
�
��
�]6
�q�
�gm-bde397a-1ca0�
�
�^�
�
�_�
�fl-bde397a-1ca5�
�fl-bde397a-1ca6�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1ca2�
�
��
�`k
�
��
�_
�i
��
�]
�q�
�]�
�q�
�]
�q�
�]
�q�
�
�
�
��
�]t
�q�
�]�
�q�
�]�
�q�
�]
�q�
�
��
�]6
�q�
�gm-bde397a-1cab�
�
�^�
�
�_�
�fl-bde397a-1cb0�
�fl-bde397a-1cb1�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1cad�
�
��
�`k
�
��
�_
�i
��
�]
�q�
�]�
�q�
�]
�q�
�]
�q�
�
�
�
��
�]t
�q�
�]�
�q�
�]�
�q�
�]
�q�
�
��
�]6
�q�
�gm-bde397a-1cb6�
�
�^�
�
�_�
�fl-bde397a-1cbb�
�fl-bde397a-1cbc�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1cb8�
�
��
�`k
�
��
�_
�i
��
�]	�
�q�
�gre-export-syntax�
�gm-bde397a-1cc1�
�
�^�
�
�_�
�fl-bde397a-1cc6�
�fl-bde397a-1cc7�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1cc3�
�
��
�`k
�
��
�_
�i
��
�]	�
�q�
�gmake-mutable-parameter�
�gduplicate-handlers�
�gcheck�
�f%~A: `~A' imported from both ~A and ~A�
�f/WARNING: ~A: `~A' imported from both ~A and ~A
�
�gobject-property�
�gwarn-override-core�
�f<WARNING: ~A: imported module ~A overrides core binding `~A'
�gfirst�glast�gmerge-generics�gmerge-accessors�finvalid duplicate handler name:�
�
�,�g!default-duplicate-binding-handler�gwarningsS�garity-mismatch�	q�
	�g%auto-compilation-options�fStat of ~a failed:
�
g
stat:mtime�gstat:mtimensec�gvm�gobjcode��gprogram��gmake-program�gload-objcode�f*WARNING: failed to load compiled file ~a:
�g%load-compiled-extensions�g%load-compiled-path�g%compile-fallback-path�gsystem-file-name-convention�gwindows�g%fresh-auto-compile�f:;;; note: source file ~a
;;;       newer than compiled ~a
�g%load-should-auto-compile�g%warn-auto-compilation-enabled� f;;; compiling ~a
�!gcompile�"!�#gcompile-file�$goptsS�%genvS�&f;;; compiled ~a
�'f#WARNING: compilation of ~a failed:
�(f!invalid %load-compiled-extensions�)f.go�*g %file-port-name-canonicalization�+grelative�,gload-in-vicinity�-gmake-variable-transformer�.gdirname�/gt-bde397a-1e18�0/�1gm-bde397a-1e19�21^�32�4fl-bde397a-1e1c�54�6`035�7�8fl-bde397a-1e16�98�:`7�9�;gdir�<;�=fl-bde397a-1e10�>=�?`<�>�@gfile�A@�Bfl-bde397a-1e0c�CB�D`A�C�Egsrc�FE�Gfl-bde397a-1e0a�HG�I`F�H�Jfl-bde397a-1e08�KJ�L`k�K�M_i6:ii?iDiIiiL�N],Mq�Oggetcwd�Pgm-bde397a-1e1f�QP^�RQ�Sfl-bde397a-1e20�TS�U`�RT�V_iU:ii?iDiIiiL�W]OVq�XW�Ygt-bde397a-1e28�ZY�[gm-bde397a-1e29�\[^�]\�^fl-bde397a-1e2c�_^�``Z]_�afl-bde397a-1e26�ba�c`��b�d_i`cii?iDiIiiL�e]�dq�f]�dq�g]dq�h],dq�igm-bde397a-1e2e�ji^�kj�lfl-bde397a-1e2f�ml�n`�km�o_incii?iDiIiiL�p]Ooq�qp�rf�sgguile-2�tgr5rs�ugsrfi-0�vgsrfi-4�wgsrfi-13�xgsrfi-14�ygsrfi-16�zgsrfi-23�{gsrfi-30�|gsrfi-39�}gsrfi-46�~gsrfi-55�gsrfi-61��gsrfi-62��gsrfi-87��gsrfi-105��?stuvwxyz{|}~�����g%cond-expand-features��g%cond-expand-table��gcond-expand-provide��gcond-expand��g	condition�����fl-bde397a-1e49�����`�����gmatch��gcondition-matches?��gmodule-has-feature?�������fl-bde397a-1e40��fl-bde397a-1e3e��fl-bde397a-1e3c�������`�����fl-bde397a-1e3b�����`k����_i�����]Y�q�����������]��q�����������]4�q�������[�������fl-bde397a-1e63��fl-bde397a-1e64��fl-bde397a-1e65�������`�����g	alternate��D���fl-bde397a-1e5f��fl-bde397a-1e60������`�����_�i�����]"�q��_����]9�q���������������[��������?���fl-bde397a-1e6d��fl-bde397a-1e6e������`�����_i�����]"�q��funfulfilled cond-expand��g	use-srfis��grequire-extension��fl-bde397a-1e7c�����`k����_i���]	8�q������������������fNot a recognized extension type��gsrfi-��fl-bde397a-1e87�����`	}����gn�����fl-bde397a-1e82�����`�����_i��i���]��q��]	8�q��gdefine-inlinable��f% ��g
-procedure��g	proc-name������fl-bde397a-1eaf��fl-bde397a-1eb0������`�����4
����fl-bde397a-1ea6��fl-bde397a-1ea7��fl-bde397a-1ea8�������`�����gmake-procedure-name���	J��fl-bde397a-1e9a��fl-bde397a-1e98������`�M���fl-bde397a-1e97�����`k����_iiii����	��]"�q��]v�q��gsyntax-parameterize��]��q��gidentifier-syntax��]��q��gdefine-syntax-parameter��]��q��]��q��]j�q�����]��q��]��q��]�q��ga�]��q�]��q���]N�q�]6�q�]t�q���]R�q���	gusing-readline?�
gice-9�g
deprecated�
�
	8v��fice-9/boot-9.scm�gsyntax-local-binding�g
syntax-module�g syntax-locally-bound-identifiers�gsyntax-session-id��@��@��g
guile-user��!#�"�@��@��C5hP�3%]4i5$4i>"G"h �-.,3#6{gstem
		gfilenamefice-9/boot-9.scm�
	7	��		7	��		8	��		
gnamegmake-prompt-tag�CR4i5hC]LC;gfilenamefice-9/boot-9.scm�
	=	��		
CORhD]L6<gfilenamefice-9/boot-9.scm�		A	��		
Ch(�]U4O>XCXFG@�gtag
		%gthunk		%ghandler			%gargs			%gfilenamefice-9/boot-9.scm�
	@
��			A	��		%	gnamegcall-with-prompt�CRh�-13WF�gtag
			gargs			gfilenamefice-9/boot-9.scm�
	B
��		C	��			
gnamegabort-to-prompt�C	R
RHH	h��-13L&"L�$aM[ML�Y4L5$"4L>"GL$4L>"4L>ZCZFL@�gthrown-k
		�gargs		�grunning		!	gfilenamefice-9/boot-9.scm�
	c	��		d	��		d	��		d	'��		d	��	!	e	��	*	f	9��	-	g	��	9	g	��	>	h	��	Y	j	��	Z	k	��	n	l	���	m	��		�
Ch�]M[LOC�g
prompt-tag
		gcatch-k		gpre			gprev			gfilenamefice-9/boot-9.scm�
	a	��		b	��			gnamegcustom-throw-handler�COQ4
i5K4
ihh-13&0�$$4�5$�"
�$
""
6445>"G6gk
			agargs			agfilenamefice-9/boot-9.scm�
	K	��	
	M	
��		L	��		O	��		N	��		P	��	 	P	"��	"	P	��	&	N	��	)	P	.��	0	Q	��	4	N	��	A	N	��	B	T	��	E	T	��	K	T	#��	T	T	��	a	U	��			a
gnamegdefault-exception-handler�C5K	h0�-13L&"L�$
L@L@�gthrown-k
			0gargs			0gfilenamefice-9/boot-9.scm�
	\	��		]	��		]	��		]	'��		]	��	(	^	��	0	_	��			0
Ch�g-.,3#�$"�$"!4>"G45U>M$4L5"M[OY4>Z"XCXFG@_gk
	�gthunk	�ghandler		�gpre-unwind-handler		�gtag		U�gprev		x�gcont	��gk	��gargs	��	gfilenamefice-9/boot-9.scm�
	p	��	�	��	�	��	�	��	%�	#��	)�	
��	.�	��	2�	��	4�	)��	6�	��	<�	��	A�	$��	F�	��	O�	��	S�	&��	U�	��	U�	
��	^�	��	f�	��	g�	��	x	[	����	����	����	��	�	gnamegcatch�g
documentationfoInvoke @var{thunk} in the dynamic context of @var{handler} for
exceptions matching @var{key}.  If thunk throws to the symbol
@var{key}, then @var{handler} is invoked this way:
@lisp
 (handler key args ...)
@end lisp

@var{key} is a symbol or @code{#t}.

@var{thunk} takes no arguments.  If @var{thunk} returns
normally, that is the return value of @code{catch}.

Handler is invoked outside the scope of its own @code{catch}.
If @var{handler} again throws to the same key, a new handler
from further up the call chain is invoked.

If the key is @code{#t}, then a throw to @emph{any} symbol will
match this call to @code{catch}.

If a @var{pre-unwind-handler} is given and @var{thunk} throws
an exception that matches @var{key}, Guile calls the
@var{pre-unwind-handler} before unwinding the dynamic state and
invoking the main @var{handler}.  @var{pre-unwind-handler} should
be a procedure with the same signature as @var{handler}, that
is @code{(lambda (key . args))}.  It is typically used to save
the stack at the point where the exception occurred, but can also
query other parts of the dynamic state at that point, such as
fluid values.

A @var{pre-unwind-handler} can exit either normally or non-locally.
If it exits normally, Guile unwinds the stack and dynamic context
and then calls the normal (third argument) handler.  If it exits
non-locally, that exit determines the continuation.�COihX�]�$"�$"!4>"GM4L5Y4>ZCZF�gk
		Ugthunk		Ugpre-unwind-handler			Ugfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	
�	��	�	#��	�	
��	�	��	�	��	!�	)��	#�	��	)�	��	.�	$��	3�	��	>�	��	J�	��		U	gnamegwith-throw-handler�g
documentationfeAdd @var{handler} to the dynamic context as a throw handler
for key @var{k}, then invoke @var{thunk}.�CO
ih0�-13�$	M[@M[6�gkey
			/gargs			/gfilenamefice-9/boot-9.scm�
�	��	�	��	�	
��	�	��	�	.��	 �	>��	"�	��	(�	8��	-�	E��	/�	��			/
gnamegthrow�g
documentationf�Invoke the catch form matching @var{key}, passing @var{args} to the
@var{handler}.

@var{key} is a symbol. It will match catches of the same symbol or of @code{#t}.

If there is no handler at all, Guile prints an error and then exits.�COih �](C4L�54L�5�C�gl
		gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	#��	�	��	�	��		gnamegmap1�Ch(�](C4L��54L��5�C�gl1
		"gl2		"gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	 ��	 �	��	!�	��
		"	gnamegmap2�Ch0�](C4L�45?4L�455�C�gl1
		.grest		.gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	�	��	�	��	�	#��	�	��	�	��	!�	��	"�	��	,�	��	-�	��
		.	gnameglp�ChhE)3OQ6)3OQ6-13OQ6=gf
			gl			gmap1			gf
	(	@gl1	(	@gl2		(	@gmap2		1	@gf
	I	agl1	I	agrest		I	aglp		R	agfilenamefice-9/boot-9.scm�
�	��	�	��	(�	��	1�	��	I�	��	R�	��					(	@		I	a	
	gnamegmap�CRh�)43"%�$4�>"G�"���C"���)@3"-�$$4��>"G��"���C"���-13";�$24�45>"G�45"���C"���wgf
			:gl			:gl		
	2gf
	C�gl1	C�gl2		C�gl1		G	tgl2		G	tgf
��gl1��grest	��gl1	��grest	��
gfilenamefice-9/boot-9.scm�
�	��	
�	��	�	��	�	��	�	
��	�	��	�	
��	*�	��	0�	
��	2�	��	C�	��	G�	��	J�	��	N�	��	O�	
��	T�	��	W�	��	\�	
��	g�	��	j�	!��	r�	
��	t�	����	����	����	����	����	
����	����	����	
����	����	����	
����	��#			:		C�	��	
	gnamegfor-each�CR4 i!>"G"#$%&hX�-134>"G4>"G4>"G4>"G45�C�gstuff
			Vgfilenamefice-9/boot-9.scm�
�
��	
	��		��		��	#	��	,	��	>	��	N	��	U	��
			V


gnamegpeek�C'R'i(R)*"#+&hP�]4>"G4>"G4L>"G4>"G4L5�C�gfilenamefice-9/boot-9.scm�

	��		��		��		��		��	%
	��	7	��	G	��	N	��
		O
Ch |-1345O6tgstuff
			gfilenamefice-9/boot-9.scm�

��			��			��			


gnamegwarn�C,R-h �]45$C� C�gsym
		gfilenamefice-9/boot-9.scm�

��		��		��		��		��		gnamegprovide�C.R-h�]45$CCygfeature
		gfilenamefice-9/boot-9.scm�

��		��		��		gnameg	provided?�C/R0h�-13
@�gvtable
			gargs			gfilenamefice-9/boot-9.scm�
&
��	'	��			
gnamegmake-struct/no-tail�C1Rh{]Csg	file-name
		gfilenamefice-9/boot-9.scm�
.
��		gnamegabsolute-file-name?�C2RhP�]":$2("$("C4�5�"���C"����gf
		Kglst		Kgresult			@gl			@gfilenamefice-9/boot-9.scm�
=
��	>	��	@	��	A	
��	A		��	#A	
��	,C	��	1C	��	3C	��	6C	��	>C	
��	@>	��
		K	gnamegand-map�C3Rh8�]"$$C(C4�5�"���"����gf
		5glst		5gresult			*gl			*gfilenamefice-9/boot-9.scm�
J
��	K	��	M	��	N	��	O	��	O	��	O	��	"O	��	*O	
��	*K	��		5	gnamegor-map�C4R5iR6789h�^-.,3#
#	45"645$F�$945�$'4�5$C4�56"���"���"���Vg	char_pred
	�gs	�gstart		�gend		�gt		d	}gfilenamefice-9/boot-9.scm�
Z	��	Z	2��	4`	��	4[	��	5[	
��	?[	��	D\	
��	H[	��	K]	��	R]	
��	V[	��	W^	��	b^	1��	d^	��	d^	��	r_	��	y_	%��	{_	��	}_	��	�		gnameg
string-any�C:R6;89h�Q-.,3#
#	45"645$A�$445�$"4�5$4�56C"���"���"���Ig	char_pred
	�gs	�gstart		�gend		�gfilenamefice-9/boot-9.scm�
e	��	e	2��	4k	��	4f	��	5f	
��	?f	��	Dg	
��	Hf	��	Kh	��	Rh	
��	Vf	��	Wi	
��	bi	4��	di	
��	hi	��	kj	��	rj	&��	tj	��	vj	
��	�		gnamegstring-every�C<R=h�]6�gstr
		gstart		gend			gfill			gfilenamefice-9/boot-9.scm�
o
��	p	��			gnamegsubstring-fill!�C>R@ht]Clgx
		gfilenamefice-9/boot-9.scm�
v
��	w	��		gnamegmodule-name�CARBCh�]456�gmodule
		gsym		gvar			gfilenamefice-9/boot-9.scm�
x
��	y	��	y	��			gnamegmodule-add!�CDRECDFh0�]4455$C45456�gmodule
		/gsym		/gval			/gv			/gfilenamefice-9/boot-9.scm�
z
��	{	��	{	��	{	��	{	��	|	��	}	��	 ~	��	'~	*��	/~	��		/	gnamegmodule-define!�CGRHI(h0�]
45$C45456�gmodule
		+gsym		+gv			+gfilenamefice-9/boot-9.scm�

��	�	��	�	��	�	��	�	
��	�	"��	�	-��	#�	9��	+�	��
		+	gnameg
module-ref�CJR
Hh}]	M�NCugm
		gi		gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	�	��		COKRiLRhs-13Ckgargs
			gfilenamefice-9/boot-9.scm�
�
��			


gnamegresolve-module�CMRNRORPRQRRRSRTRURVR4 iW>"G4XiYZV\rh-]C%gdummy
				Csh<]C4gdummy
		gx					Cu���hK]����CCgdummy
		gx		gy						CN�
hP�]45$@45$@45$@	6�gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/boot-9.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgxgxgy�C5YR4Xi�ZV\�h-]C%gdummy
				Csh<]C4gdummy
		gx					Cu����h K]�CCgdummy
		 gx		 gy			 		 	CN�
hP�]45$@45$@45$@	6�gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/boot-9.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgxgxgy�C5�R4Xi�ZV�V�hK]CCgk
		ge*		greps						CN�h8�]L4LL�545$@6�ge
		3gtmp		3gtmp			3gfilenamefice-9/quasisyntax.scm�		U	"��		U	5��		U	"��		T		��		3C���tV��h^]�45CVgh*
		grep1		gt*			grep2						CN�h@�]4LL54LL545$@6�gh
		9gt		9gtmp			9gtmp		"	9gfilenamefice-9/quasisyntax.scm�		p	(��		q	(��		p		��		9	C���V��h<]45C4ge*
		greps					CN�h8�]4L4455L545$@6�ge
		7gtmp		7gtmp		 	7gfilenamefice-9/quasisyntax.scm�		v	��		v	 ��		v	��		u		��		7C�RU��h8�]
L
�$)45$45$C6CC�gk
		5gr		5gt			1gfilenamefice-9/quasisyntax.scm�		i	��	
	i		��		j	��		i		��		k	��		k	��	1	l	��		5	CVsh<]L�C4gr*
		
greps		
		
	CN�h8�]4LL�545$O@6�gk
		3gr		3gtmp			3gtmp			3gfilenamefice-9/quasisyntax.scm�		m	"��	
	m	5��		m	"��		m		��		3	Chh]L
�C`ge
		gr		gfilenamefice-9/quasisyntax.scm�		b		��			CSV��h7]�C/gtmp-bde397a-a8c
				CV���h()]44?L544L5L5C!gt
		&		&CN�h8�]4545$LO@6�gr*
		6grep		6gt			6gtmp			6gtmp			6gfilenamefice-9/quasisyntax.scm�		e	��		6	CN�h@�]4L
54545$O@6�ge
		;gr		;gtmp			;gtmp			;gfilenamefice-9/quasisyntax.scm�		c	'��		d	'��		c		��		;	Chh]L
�C`ge
		gr		gfilenamefice-9/quasisyntax.scm�		\		��			CSV���h(J]4544L55CBgr*
		!grep		!gt			!		!	CN�h@�]4L
54545$O@6�ge
		;gr		;gtmp			;gtmp			;gfilenamefice-9/quasisyntax.scm�		]	'��		^	'��		]		��		;	ChY]L
�CQge
		gfilenamefice-9/quasisyntax.scm�		X		��		CS�V\h)]LC!gt
				CN�h0�]4545$O@6�ge
		0gtmp			0gtmp			0gfilenamefice-9/quasisyntax.scm�		Y	��		Y	2��			Y	��			Y		��		0ChH]:45$LO@45"�45"�45"|45"B45$
LO@4	5$

LO@�C$!4O?$

LO@"���"���$4O?$LO@"��_"��[$4O?$LO@"��'"��#$4O?$@"���"����gx
	Aglevel	Agtmp		Agtmp		+Agtmp		:gtmp		I�gtmp		X�gtmp		g�gtmp	��	gfilenamefice-9/quasisyntax.scm�
	Q	��	A	gnamegexpand�CV�Vs	hK]CCg	template*
		greplacements					CN�h0�]4L
545$@6�gtemplate
		,gtmp	
	,gtmp			,gfilenamefice-9/quasisyntax.scm�		}	/��	
	}	��		,CN�h8|]OQ45$O@6tge
		4gexpand	
	4gtmp			4gfilenamefice-9/quasisyntax.scm�
	C	��		4C5�R4Xi�ZN�
ht]6lge
		gfilenamefice-9/quasisyntax.scm�
�	��	�	��	�	 ��	�	��		C5�R4Xi�ZN�
ht]6lge
		gfilenamefice-9/quasisyntax.scm�
�	��	�	��	�	 ��	�	��		C5�R4XiZV!#hd]��C\gdummy
		gtest		gstmt			gstmt*						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgtestgstmtgstmt*g...C5R4Xi$ZV356hd]��C\gdummy
		gtest		gstmt			gstmt*						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgtestgstmtgstmt*g...C5$R4Xi7Zh0�]"(C�4�5"���"����gf
		0gseed		0gxs			0gxs			$gseed			$gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	$�	��	$�	��
		0	gnamegfold�Chx]4L5�Cpgx
		
gseed		
gfilenamefice-9/boot-9.scm�
�	��	�	#��	�	��		
	Ch�]LO6�gf
		gxs		gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��			gnamegreverse-map�CV8h|]6tgclause-builder
		gtail		gfilenamefice-9/boot-9.scm�
�	��	�	��			CVZgN7hh {](LL��CLL6sgtail
		 gfilenamefice-9/boot-9.scm�
�	��	�	��	�	+��	�	,��	 �	��		 Ch9]LLOC1ge
		ge*					CiN7jhW]LL6Ogfilenamefice-9/boot-9.scm�	�	+��	�	<��	�	��		
CnV�����h(5]LL����C-g
t-bde397a-b36
		#		#CN�h0g]	45$
LLO@6_gtail
		)gtmp		)gfilenamefice-9/boot-9.scm�
�	��		)ChB]OC:gtest
		greceiver					C�N7�h�]LL6xgtest
		greceiver		gfilenamefice-9/boot-9.scm�	�	+��	�	&��	�	��			C�V�������h85]LL��L�����C-g
t-bde397a-b4c
		1		1CN�h0g]	45$LLLO@6_gtail
		+gtmp		+gfilenamefice-9/boot-9.scm�
�	��		+ChZ]OCRg	generator
		gguard		greceiver						C�N7�h�]LL6�g	generator
		gguard		greceiver			gfilenamefice-9/boot-9.scm�	�	+��	�	&��	�	��			C\V����h 5]L���C-g
t-bde397a-b60
		 		 CN�h(g]	45$LO@6_gtail
		'gtmp		'gfilenamefice-9/boot-9.scm�
�	��		'Ch,]OC$gtest
		
		
C
V���h5]LLL�����C-g
t-bde397a-b71
				CN�h0g]	45$LLLO@6_gtail
		+gtmp		+gfilenamefice-9/boot-9.scm�
�	��		+ChK]OCCgtest
		ge		ge*						CN7jh�]A45$
LO@45$
LO@45$@45$
	LO@4
5$@45$

LO@45$@45$@L6gclause
	�gtmp	�gtmp		)�gtmp		G�gtmp		^�gtmp		|�gtmp	��gtmp	��gtmp	��	gfilenamefice-9/boot-9.scm�
�	����	+����	<����	��	�CV��h5]�C-g
t-bde397a-b12
				CN�h@�]4L4LLO�5545$@6�gclause
		=gclauses		=gtmp			=gtmp		&	=gfilenamefice-9/boot-9.scm�	�	��		�	��	�	��	�	��		=	CN�h@�]OQ45$O@6�g
whole-expr
		<gfold		<greverse-map			<gtmp			<gfilenamefice-9/boot-9.scm�
�	��		<C57R4Xi�Zh0�]"(C�4�5"���"����gf
		0gseed		0gxs			0gxs			$gseed			$gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	$�	��	$�	��
		0	gnamegfold�Ch8�](D4L�>G�"����gxs
		6ga		6gb			6ga			6gb			6gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	��	!�	��	(�	��	6�	��
		6	gnamegloop�Ch �]OQ6�gf
		ga		gb			gxs			gloop			gfilenamefice-9/boot-9.scm�
�	��	�	��			gnamegfold2�Ch �]4L>G�D�gx
		gys		gseed			gy			gseed			gfilenamefice-9/boot-9.scm�
�	
��	�	��	�	��	�	��	�	��			Ch�]LO6�gf
		gseed		gxs			gfilenamefice-9/boot-9.scm�
�	��	�	
��	�	��			gnamegreverse-map-with-seed�CV�h|]6tgclause-builder
		gtail		gfilenamefice-9/boot-9.scm�
	��		��			CVtVh0]C(greceiver
		
		
CN��hn]LL6fgreceiver
		gfilenamefice-9/boot-9.scm�		(��		!��		��		C
h9]��C1ge
		ge*					CN�j��P	h��]45$>444544L5554L54L5>"G"�$"45$>444544L5554L54L5>"G"�C�gdatum
	�gseen	�gfilenamefice-9/boot-9.scm�
	$��	&	,��	&	&��		(��		)��	'	4��	 	)��	 	1��	!	1��	""	2��	*!	1��	, 	)��	/$	)��	6%	)��	A	(��	P(	0��	T(	,��	U(	0��	Z(	>��	d(	&��	e	(��	g	)��	i)	4��	j 	)��	m 	1��	t!	1��	w"	2��	!	1��� 	)���$	)���%	)���	(���*	&��"	�	CPV�457h 5]LL���C-g
t-bde397a-bf5
				CN�h0g]	45$
LLO@6_gtail
		)gtmp		)gfilenamefice-9/boot-9.scm�
-	&��		)Ch0�]	4LLLLOL455LOD�gdatums
		,gseen		,gfilenamefice-9/boot-9.scm�		#��	,	$��		#��		��	,-	��		,C:N�hh {](LCLL6sgtail
		gfilenamefice-9/boot-9.scm�
2	)��	3	+��		(��	6	0��		��		ChE]LLLOLD=gfilenamefice-9/boot-9.scm�	2	!��		
Ch�]45$4?"R45$4LLO?",45$4?"
4	
LL545$LLLLO@4
5$LLLO@	
LL6gtest
	�grest	�gtmp			sgtmp		'	pgtmp		J	mgtmp		s�gtmp		~�gtmp	��gfilenamefice-9/boot-9.scm�	^	��	b	(��	d
	9��	j	��	s	���	(���
	9���	��		�	CN�jh0�]
45$LLO@L6�gclause
		0gseen		0gtmp			0gfilenamefice-9/boot-9.scm�
		��	(	(��	*
	9��	0	��		0	CV�Dh5]L��C-g
t-bde397a-bbf
				CN�hH�]4L4LLLO�5545$O@6�gexpr
		Egclause		Egclauses			Egtmp			Egtmp		)	Egfilenamefice-9/boot-9.scm�		��			��	:	��		��		��		
��		E	CN�	h@�]!OQ45$O@6�g
whole-expr
		@gfold		@gfold2			@greverse-map-with-seed			@gtmp		 	@gfilenamefice-9/boot-9.scm�
�	��		@C5�R4XiEZVIacdefh�ikhT]���CLgtmp-bde397a-c25
		gtmp-bde397a-c24					C
hH�]��44	5�5��C�gdummy
		Fgvar		Fginit			Fgstep			Fgtest			Fgexpr			Fgcommand			F		F	Cnh<]C4gdummy
		gx					CohK]CCgdummy
		gx		gy						CN�
hP3]45$@45$@45$@	6+gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/boot-9.scm�
=	��		Pg
macro-typegsyntax-rules�gpatternsgvarginitgstepg...g...gtestgexprg...gcommandg...fstepgxfstepgxgyC5ERpqh�]6�gfilenamefice-9/boot-9.scm�
U
��	V		��		X		��	
Y		��	
V	��		
gnameg%define-values-arity-error�CrR4XisZVtSuV\����h-]L��C%gdummy
				CN�h0�]4545$O@6�gexpr
		0gtmp			0gtmp			0gfilenamefice-9/boot-9.scm�	a	��	a	4��		a	��		a	��		0C����N�3R�h|]456tgvar0
		gvarn		gexpr			gfilenamefice-9/boot-9.scm�	�	��			CSuV\���������������h07]LLL���C/gtmp-bde397a-c85
		.		.C������hx-]L4LL54LL5���44	
OL5L
�����5��C%gdummy
		w		wCN�h8�]4545$O@6�gvar0
		4gvarn		4gexpr			4gtmp				4gtmp			4gfilenamefice-9/boot-9.scm�	�	��	�	4��		�	��		�	��		4	CRhi]6agvar
		gexpr		gfilenamefice-9/boot-9.scm�	�	��			C����h=]��C5gvar
		gexpr					C3R�h|]456tgvar0
		gvarn		gexpr			gfilenamefice-9/boot-9.scm�	o	��			CSuV\���������������h07]LLL���C/gtmp-bde397a-c64
		.		.C������h�-]L4LL54LL5���44	
OL5L
�����5��C%gdummy
		z		zCN�h8�]4545$O@6�gvar0
		4gvarn		4gexpr			4gtmp				4gtmp			4gfilenamefice-9/boot-9.scm�	q	��	q	4��		q	��		q	��		4	CRhi]6agvar
		gexpr		gfilenamefice-9/boot-9.scm�	h	��			C����h=]��C5gvar
		gexpr					Ch��])45$@45"�45"e45"745"		6$4
?$@"���"���$4?$
@"���"���$4?$@"���"��|$4?$@"��R"��N�g	orig-form
	�gtmp	�gtmp		"�gtmp		1�gtmp		@�gtmp		O	}gfilenamefice-9/boot-9.scm�
]	��	�C5sR4Xi�ZVsh>]C6gdummy
		gexp					CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgexpC5�R4XiZVOQh r]4L4L55Cjgtmp
		gfilenamefice-9/boot-9.scm�	�	��	�	)��	�	��	�	��		
CN�h(d]	45$O@6\gx
		'gtmp		'gfilenamefice-9/boot-9.scm�
�	��		'C5R4XiZQhq]44L556igfilenamefice-9/boot-9.scm�
�	��	�	��	�	"��	�	4��	�	��	�	��		
ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	��			


Ch
]O6gx
		gfilenamefice-9/boot-9.scm�
�	��	�	��		g
documentationf�A macro that expands to the current filename: the filename that
the (current-filename) form appears in.  Expands to #f if this
information is unavailable.�C5R4XiZV&')+,h(O]CGgdummy
		!gsym		!gval			!		!	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgsymgvalC5R-./012hh)�3"|�$Y$6&6��4�5�"����4�5�"���(66"��r)3	"��$��$�$[&6&6����4��5�"�����4��5�"��h�$"6()(6�$"66"���-1345"C("A4�5�$	�"���4�>"G""���"6(6�4	
54�4	5?�"���"����gf
		�gl		�ghare		
�gtortoise		
�gmove?		
�gout		
�gf
��gl1��gl2	��gh1	��gh2	��gt1	��gt2	��gmove?	��gout	��gf
�cgl1�cgrest	�cglen	�grest	�gl1	Tgrest	Tgout	Tgfilenamefice-9/boot-9.scm�
�	��	
�	��	�	��	�	��	�	��	"�	��	&�	��	(�	.��	*�	4��	/�	��	2�	��	5�	��	8�	$��	:�	��	?�	 ��	A�	��	D�	��	P�	��	S�	��	W�	��	\�	��	^�	��	a�	��	m�	��	s�	��	y�	��	}�	��	�	*����	0����	����	����	����	6����	����	����	����		����	����	����		����	����	&����	,����	����	����		����	����	&����	,����	����	����	����	����	#����	,����	����	���	#���	���	���	���	���	��#�	��(�	��+�	#��-�	��0�	��@�	��D�	��F�	&��I�	��M�	��O�	��U�	��Z�	��]�	��c�	��i�		��o�		��s�	��u�	$��x�	��|�	��~�	����	����	����		����	����	$����	����	����		����	����	@����	����	����	����	����	����		����	����	����	����	����	
����	����	����	����	����	,����	2����	"����	���	���	���	��$�	��*�	��-�	��.�	��7�	��<�	 ��=�	)��G�	��J�	��T�	��T�	��Y�	)��c�	���		�	��	�c	
	gnamegmap�CRi3R4.0521
h�])�3"��$j4�>"G��$I& 4>"G"4�>"G��"���C(C6"��k)"3""T(("�"�$�"$C�$66�$��$�$a&6&64��>"G����"��34��>"G��"��"��"��"���-1345"C("A4�5�$	�"���4�>"G""���";�$24	�4
5>"G�4
5"���C"���Ugf
		�gl		�ghare		
�gtortoise		
�ghare		*	~gf
��gl1��gl2	��gh1	��gh2	��gt1	��gt2	��gmove?	��gf
�ygl1�ygrest	�yglen	�.grest	�#gl1	2mgrest	2mgfilenamefice-9/boot-9.scm�
	��	
	��		��		��			
��			��			
��	*
	��	*
	
��	/	��	3	��	;
	��	<	��	@	"��	B	2��	D	=��	I	"��	O	��	\	��	a	��	f	��	q	 ��	t	+��	|	���	���	���	*���	5���	���	���	���	���	���(		���)	
���)	���)	���*	���*	
���*	���	���-		���	���.	���.	$���.	/���/	���.		���1	���1	$���1	/��2	��1		��	��
	��	��	��		��		��'	��)	&��+	1��0 	��3	��;		��?"	��A"	&��C"	1��H#	��K"	��L%	��Q%	��T%	��Y%	��d&	��g&	��j&	(��m&	1��|&	��}	���	���	���	���	���	���	���	���	���5	���5	���6	���7		���8	���8	���8	���8	���8	
���9	��9	��:	��:	��	:	,��:	7��;	"��;	��:	��#6	��2=	��5>	��9>	��:@	
��A@	��B@	��O@	
��ZA	��[A	!��kA	
��m=	��w		�	��	�y	
	gnamegfor-each�CR<=>?8:hP�-/03###$"6�gfile
		Jgbinary		Jgencoding			Jgguess-encoding			Jgfilenamefice-9/boot-9.scm�
J
��	8O	��	:O	��	@O	"��	JO	��		J
gbinaryS�gencodingS	�gguess-encodingS	�gnamegopen-input-file�g
documentationf�Takes a string naming an existing file and returns an input port
capable of delivering characters from the file.  If the file
cannot be opened, an error is signalled.�C@RA=BC8h@-/03##$"6�gfile
		=gbinary		=gencoding			=gfilenamefice-9/boot-9.scm�
S
��	/X	��	1X	��	7X	"��	=X	��		=
gbinaryS�gencodingS	�gnamegopen-output-file�g
documentationfTakes a string naming an output file to be created and returns an
output port capable of writing characters to a new file by that
name.  If the file cannot be opened, an error is signalled.  If a
file with the given name already exists, the effect is unspecified.�CDRH@68:Ihp�-/03###454>G4>"GE�gfile
		igproc		igbinary			igencoding			igguess-encoding			igp		A	igvals		N	igfilenamefice-9/boot-9.scm�
[
��	/g	��	Ag	��	Dl	��	Qk	��	Tn	��	io	��		i	
gbinaryS	�gencodingS	�gguess-encodingS	�gnamegcall-with-input-file�g
documentationfFPROC should be a procedure of one argument, and FILE should be a
string naming a file.  The file must
already exist. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output.  If the file cannot be opened, an error is
signalled.  If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation.�CJRKD68Lh`�-/03##454>G4>"GE�gfile
		\gproc		\gbinary			\gencoding			\gp		4	\gvals		A	\gfilenamefice-9/boot-9.scm�
q
��	&|	��	4|	��	7~	��	D}	��	G�	��	\�	��		\	
gbinaryS	�gencodingS	�gnamegcall-with-output-file�g
documentationfbPROC should be a procedure of one argument, and FILE should be a
string naming a file.  The behaviour is unspecified if the file
already exists. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output.  If the file cannot be opened, an error is
signalled.  If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation.�CMRHJNh]]L6Ugp
		
gfilenamefice-9/boot-9.scm�
�	��	
�	��		
C68:hH5-/03###O6-gfile
		Ggthunk		Ggbinary			Ggencoding			Ggguess-encoding			Ggfilenamefice-9/boot-9.scm�
�
��	G�	��		G	
gbinaryS	�gencodingS	�gguess-encodingS	�gnamegwith-input-from-file�g
documentationfTHUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The file must already exist. The file is opened for
input, an input port connected to it is made
the default value returned by `current-input-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CORKM)h]]L6Ugp
		
gfilenamefice-9/boot-9.scm�
�	��	
�	��		
C68h@-/03##O6gfile
		:gthunk		:gbinary			:gencoding			:gfilenamefice-9/boot-9.scm�
�
��	:�	��		:	
gbinaryS	�gencodingS	�gnamegwith-output-to-file�g
documentationf(THUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The effect is unspecified if the file already exists.
The file is opened for output, an output port connected to it is made
the default value returned by `current-output-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CPRKMQh]]L6Ugp
		
gfilenamefice-9/boot-9.scm�
�	��	
�	��		
C68h@-/03##O6gfile
		:gthunk		:gbinary			:gencoding			:gfilenamefice-9/boot-9.scm�
�
��	:�	��		:	
gbinaryS	�gencodingS	�gnamegwith-error-to-file�g
documentationf'THUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The effect is unspecified if the file already exists.
The file is opened for output, an output port connected to it is made
the default value returned by `current-error-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CRRSRHTUVWXhX_]"45$6��$"�������66Wgframe
		Qgport		Qgsource			Qgt			*gfilename		4	Igline		4	Igcol		4	Igfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	��	'�	,��	-�	��	2�	��	4�	
��	@�	��	E�	/��	I�	��	O�	��	Q�	
��		Q	gnamegprint-location�Ch�]�M�NC�gkey
		gproc		gfilenamefice-9/boot-9.scm�
�	��	�	#��	�	
��			gnamegset-exception-printer!�COSiYhr]LLL6jgfilenamefice-9/boot-9.scm�
�	
��	�	��	�	��		
gnamegdefault-printer�CZ[\hM]L6Egfilenamefice-9/boot-9.scm�
�	��	�	0��		
ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	��			


CYh0�]4ML5$LLLL6LLL6�gprinter
		+gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	%�	��	+�	��		+
C]hy-13L6qgk
			gargs			gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��			
C"^h�e]OQ$Z454L>"G44O5$">"G"4L>"G4LO	O>"G4
>"G6]gport
	�gframe	�gkey		�gargs		�gdefault-printer		�gproc		"	qgt		N	agfilenamefice-9/boot-9.scm�
�	��	�	
��	�	��	"�	��	%�	��	9�	��	?�	��	@�	��	N�	��	f�	��	v�	
����	
����	
����	
��	�	gnamegprint-exception�CO_i`hP�*;13$4L>"G"L$"@-13L6�gsubr
		Agmsg		Agargs			Agrest			Ag_
	J	Ngfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	 �	��	8�	%��	?�	.��	A�	��	J�	��	N�	��		A	
		J	N


Ch�]O@�gport
		gkey		gargs			gdefault-printer			gfilenamefice-9/boot-9.scm�
�	��	�	��			gnamegscm-error-printer�C4Sia>"G4Sib>"G4Sicdh ]�������6gport
		gkey		gargs			gdefault-printer			gmessage		
	gfaulty		
	gfilenamefice-9/boot-9.scm�
	��		��			��	
	��	
	��			��			��			gnamegkeyword-error-printer�C>"G4Sie>"G4Sif>"G4Sig>"G4Sih>"G4Sii>"G4Sij>"G4Sik>"G4Sil>"G4Sim>"G4Sin>"G4Sio>"G4Sip>"G4Siq>"G4Sip>"G4Si>"G4SirstTuvwWxyz{|h�*�13	4L>"G$b45$"44554	54L
>"G"4L>"G$4L>"G"4L
>"G$L6$
L6C-13L6�gwho
	�gwhat	�gwhere		�gform		�gsubform		�gextra		�gt		/	Bgfile		[�gline		[�gcol		[�g_
�gfilenamefice-9/boot-9.scm�
�	��	
�	��	�	��	�	��	&�	��	'�	"��	-�	2��	/�	"��	/�	��	?�	=��	C�	��	F�	%��	L�	5��	N�	%��	R�	��	S�	��	Y�	-��	[�	��	[�	��	b�	��	h�	!��	s�	����	����	����	����	����	����	����	����	����	����	����	���	���	���	���	#���	����	��	��)	�	
	�


Ch�]O@�gport
		gkey		gargs			gdefault-printer			gfilenamefice-9/boot-9.scm�
�	��	�	��			gnamegsyntax-error-printer�C>"G4Si}~h�]4�56�gport
		gkey		gargs			gdefault-printer			gfilenamefice-9/boot-9.scm�
	��		��			0��		>��		0��		��			gnameggetaddrinfo-error-printer�C>"G4Xi�ZV�����hQ]��CIgmacro
		gargs		gbody						C���hF]C>gmacro
		gtransformer					C�N��Ph(�]4455$C45�C�gmacro
		"gdoc		"gtransformer			"gt			"gfilenamefice-9/boot-9.scm�	7	��	7	��	7	��	7	��	8	��	!8	��		"	C������������
h8W]	
��COgmacro
		8gdoc		8gtransformer			8		8	C�Ph�]456�gmacro
		
gargs		
gdoc			
gbody1			
gbody			
gfilenamefice-9/boot-9.scm�	0	��	
0	��		
	C��hu]���Cmgmacro
		gargs		gdoc			gbody1			gbody						Ch��]!45"e45$@45$@45"		6$4
?$@"���"���$4?$
@"���"��|�gx
	�gtmp	�gtmp			vgtmp		1	vgtmp		H	vgfilenamefice-9/boot-9.scm�
,	��	�g
documentationfDefine a defmacro.�C5�R4Xi�ZV�����hQ]��CIgmacro
		gargs		gbody						CN��Ph�]456�gmacro
		
gargs		
gdoc			
gbody1			
gbody			
gfilenamefice-9/boot-9.scm�	H	��	
H	��		
	C��hu]���Cmgmacro
		gargs		gdoc			gbody1			gbody						C	hP�]45" 45$@6$4?$@"���"����gx
		Pgtmp		Pgtmp			1gfilenamefice-9/boot-9.scm�
D	��		Pg
documentationf3Define a defmacro, with the old lispy defun syntax.�C5�R4.i�>"G4Xi�ZV8���ht]45$	��CClgform
		gform*		gfilenamefice-9/boot-9.scm�	X	��	X	��			CN�h(d]	45$@6\gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
U	��		"C5�Rhh]C`gx
		gfilenamefice-9/boot-9.scm�
a
��		gnamegidentity�C�R�hM]LL@Egfilenamefice-9/boot-9.scm�
k	��	k	'��		
Ch b-13L4LO>6<Zgargs
			gfilenamefice-9/boot-9.scm�
j	��	k	
��			


Ch(z-13(C4?OCrgproc
			%grest			%gg			%gfilenamefice-9/boot-9.scm�
c
��	g	��	i	��	i	��			%
gnamegcompose�g
documentationf�Compose PROC with the procedures in REST, such that the last one in
REST is applied first and PROC last, and return the resulting procedure.
The given procedures must have compatible arity.�C�Rhk-134L?�Ccgargs
			gfilenamefice-9/boot-9.scm�
p	��	
q		��	q	��			


Ch�]OC�gproc
		
gfilenamefice-9/boot-9.scm�
m
��		
gnamegnegate�g
documentationfWReturn a procedure with the same arity as PROC that returns the `not'
of PROC's result.�C�RhV-13LCNg_
			gfilenamefice-9/boot-9.scm�
v	��			


Ch�]OC�gvalue
		
gfilenamefice-9/boot-9.scm�
s
��		
gnamegconst�g
documentationfJReturn a procedure that accepts any number of arguments and returns
VALUE.�C�Rh�]$6C�gvalue
		g	procedure		gfilenamefice-9/boot-9.scm�
y
��	{	��	{	
��			gnamegand=>�g
documentationf=When VALUE is #f, return #f.  Otherwise, return (PROC VALUE).�CTR�i�R4Xi�ZVs
h?]���C7gdummy
		gexpr					C#$%()9;=@2?DFGhHf]	
������
�����C^gdummy
		Agexpr		Agtemplate			Agarg			A		A	CN�h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/boot-9.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgexprgexprgwarningSgtemplategargg...C5�RHIJKhD]L6<gfilenamefice-9/boot-9.scm�
�	��		
CLhD]L6<gfilenamefice-9/boot-9.scm�
�	��		
CEh`q]LOLO4LO>"GV4L>X4LO>"GCX4LO>"GFigobj
		`gfilenamefice-9/boot-9.scm�
�	��	�	��	'�	$��	4�	��		`CKhD]L6<gfilenamefice-9/boot-9.scm�
�	��		
CLhD]L6<gfilenamefice-9/boot-9.scm�
�	��		
CBhh�]LOLO4LO>"GV4L>X4LO>"GCX4LO>"GFzgobj
		bgval		bgfilenamefice-9/boot-9.scm�
�	��	�	��	'�	(��	6�	��		b	Ch(�]4545OO6�gprop
		&glock		&gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	&�	��		&
gnamegmake-object-property�CMRNOh �]
4455$�CC�gsym
		gprop		gpair			gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��			gnamegsymbol-property�CPRNOQh8]4455$�C�45�6�gsym
		2gprop		2gval			2gpair			2gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	(�	��	)�	*��	0�	��	2�	��		2	gnamegset-symbol-property!�CRRNOQSh0�]
4455$44556C�gsym
		.gprop		.gpair			.gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	"�	&��	*�	��	,�	��		.	gnamegsymbol-property-remove!�CTRUhz]45$
�CCrgind
		gfilenamefice-9/boot-9.scm�
�	��	�	��	
�	��	�	/��	�	'��		CVh}]456uga
		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��		gnamegarray-shape�CWRXh(�]
45$��$��CCC�gargs
		$gkw		$grem			$gfilenamefice-9/boot-9.scm�
�
��	�	
��	�	��	�	��	�	��	�	
��	�	��	�	��			$	gnameg
kw-arg-ref�CYRZh]��Cwgs
			gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��			gnameg
struct-layout�C[R\]h �]45$
456C�gold-port
		gnew-port		gfilenamefice-9/boot-9.scm�
�
��	�	��	
�	��	�	&��	�	��			gnameginherit-print-state�C^R4_i4`iaib5#cdeh8�]4>"G445>"G6�gs
		7gp		7gfilenamefice-9/boot-9.scm�
�	��	�	��	�	#��	�	��	�	��	�	#��	'�	��	3	#��	7	��
		7	C54fig>"GhRhh�]�$��CC�gobj
		gfilenamefice-9/boot-9.scm�

��		��			��		-��		��		gnamegrecord-type?�CiR#jdklmne	h��]4>"G44455>"G"l("w4>"G4�>"G4>"G4�>"G��"���4455
"��6�gs
	�gp	�gfields		8�goff		8�gfilenamefice-9/boot-9.scm�
,	��	-	��	-	
��	-	��	.	��	.	
��	.	��	%.	
��	,.	��	8/	��	>1	��	C3	��	G3	��	N3	��	W4	��	\4	��	c4	��	l5	��	p5	��	w5	���6	���6	���6	���7	���7	���7	���/	���/	���/	+���/	���/	���8	
���8	��"	�	gnamegdefault-record-printer�Cho`ph]]CUgf
		gfilenamefice-9/boot-9.scm�
=	'��	=	3��		Cqr2hD]L�C<gfilenamefice-9/boot-9.scm�
B	��		
ChT]L�CLga
		
gfilenamefice-9/boot-9.scm�
B	��		
Chc]L�C[ga
		gb		gfilenamefice-9/boot-9.scm�
B	��			Chr]L�Cjga
		gb		gc			gfilenamefice-9/boot-9.scm�
B	��			Ch�]L�Cyga
		gb		gc			gd			gfilenamefice-9/boot-9.scm�
B	��			Ch�]L�C�ga
		gb		gc			gd			ge			gfilenamefice-9/boot-9.scm�
B	��			Ch�]L�C�ga
		gb		gc			gd			ge			gf			gfilenamefice-9/boot-9.scm�
B	��			Ch�]L�C�ga
		gb		gc			gd			ge			gf			gg			gfilenamefice-9/boot-9.scm�
B	��			Ch �,3L�	C�ga
		gb		gc			gd			ge			gf			gg			gh			gfilenamefice-9/boot-9.scm�
B	��			Ch �,	3	L�
C�ga
		gb		gc			gd			ge			gf			gg			gh			gi				gfilenamefice-9/boot-9.scm�
B	��				Ch �,
3
L	�C�ga
		 gb		 gc			 gd			 ge			 gf			 gg			 gh			 gi			 gj				 
gfilenamefice-9/boot-9.scm�
B	��		 	
Ch(�,3L	
�C�ga
		"gb		"gc			"gd			"ge			"gf			"gg			"gh			"gi			"gj				"gk	
		"gfilenamefice-9/boot-9.scm�
B	��		"	Ch(�,3L	
�
C�ga
		$gb		$gc			$gd			$ge			$gf			$gg			$gh			$gi			$gj				$gk	
		$gl			$gfilenamefice-9/boot-9.scm�
B	��		$	Ch(,
3
L	
�Cga
		&gb		&gc			&gd			&ge			&gf			&gg			&gh			&gi			&gj				&gk	
		&gl			&gm			&
gfilenamefice-9/boot-9.scm�
B	��		&	
Ch(,3L	

�Cga
		(gb		(gc			(gd			(ge			(gf			(gg			(gh			(gi			(gj				(gk	
		(gl			(gm			(gn	
		(gfilenamefice-9/boot-9.scm�
B	��		(	Ch0&,3L	

�Cga
		*gb		*gc			*gd			*ge			*gf			*gg			*gh			*gi			*gj				*gk	
		*gl			*gm			*gn	
		*go			*gfilenamefice-9/boot-9.scm�
B	��		*	Ch05,3L	

�C-ga
		,gb		,gc			,gd			,ge			,gf			,gg			,gh			,gi			,gj				,gk	
		,gl			,gm			,gn	
		,go			,gp			,gfilenamefice-9/boot-9.scm�
B	��		,	Ch0D,3L	

�C<ga
		.gb		.gc			.gd			.ge			.gf			.gg			.gh			.gi			.gj				.gk	
		.gl			.gm			.gn	
		.go			.gp			.gq			.gfilenamefice-9/boot-9.scm�
B	��		.	Ch0S,3L	

�CKga
		0gb		0gc			0gd			0ge			0gf			0gg			0gh			0gi			0gj				0gk	
		0gl			0gm			0gn	
		0go			0gp			0gq			0gr			0gfilenamefice-9/boot-9.scm�
B	��		0	Ch8b,3L	

�CZga
		2gb		2gc			2gd			2ge			2gf			2gg			2gh			2gi			2gj				2gk	
		2gl			2gm			2gn	
		2go			2gp			2gq			2gr			2gs			2gfilenamefice-9/boot-9.scm�
B	��		2	C20psth8Y-1345L�$	L
@4L56Qgargs
			4gfilenamefice-9/boot-9.scm�
B	��			4


Cfu!h(�-.,3#4445?5$"45�	�4	5
�$
O"��$O"s	�$O"_	�$
O"K	�$O"7	�$O"#	�$O"	�$O"�	�$O"�		�$O"�	
�$O"�	�$O"�	�$O"�	
�$O"�	�$O"o	�$O"[	�$O"G	�$O"3	�$O"	�$O"O�4�$"4 5>"GC�g	type-name
	!gfields	!gprinter		!gdefault-record-printer		!grtd		H!gn		X�gfilenamefice-9/boot-9.scm�

��	;	��	<	��	"=	"��	,<	��	.;	��	4>	��	?@	��	H:	
��	H:	��	QA	��	RB	'��	XB	���A	���E	��E	%��E	!��G	%��E	��	!	gnamegmake-record-type�CvRirwh �]45$�C6�gobj
		gfilenamefice-9/boot-9.scm�
J
��	K	��	
K	��	L	��	M	
��	M	��		gnamegrecord-type-name�CdRirwh �]45$��C6�gobj
		gfilenamefice-9/boot-9.scm�
O
��	P	��	
P	��	Q	��	Q	��	R	
��	R	��		gnamegrecord-type-fields�CnRx�06hf]4L5$CC^gf
		gfilenamefice-9/boot-9.scm�
Y	&��	Z	,��	Z	(��		Cnr	hP�-.,3#$+
4O455���6	��C�grtd
		Ogfield-names		Ogfilenamefice-9/boot-9.scm�
T
��	U	��	X	��	,Y	!��	6]	&��	>Y	!��	?X	��	FW	��	MV	��	NV	��		Ognamegrecord-constructor�CyRhz]�$L��CCrgobj
		gfilenamefice-9/boot-9.scm�
`	��	`	��		`	��	`	,��	`	#��		Chr]OCjgrtd
		
gfilenamefice-9/boot-9.scm�
_
��		
gnamegrecord-predicate�CzRk{|dh0�]
45�$C456�grtd
		.gobj		.gt			.gfilenamefice-9/boot-9.scm�
b
��	c	��	c	��	c	��	d	��	d	!��	e	��	 f	��	+f	��	.d	��		.	gnameg%record-type-error�C}R~n}h z]�L&L�CL6rgobj
		gfilenamefice-9/boot-9.scm�
m	��	n	��	n	��	o	
��	p	
��		Ch@�]
4455$"4>"GOC�grtd
		:g
field-name		:gpos			:gfilenamefice-9/boot-9.scm�
i
��	j	
��	j	��	j	
��	j	��	k	��	l	��	!l	��	(l	��
		:	gnamegrecord-accessor�C�R~n}h �]�L&L�CL6�gobj
		gval		gfilenamefice-9/boot-9.scm�
v	��	w	��	w	��	x	
��	y	
��			Ch@�]
4455$"4>"GOC�grtd
		:g
field-name		:gpos			:gfilenamefice-9/boot-9.scm�
r
��	s	
��	s	��	s	
��	s	��	t	��	u	��	!u	��	(u	��
		:	gnamegrecord-modifier�C�Rih�]�$�6C�gobj
		gfilenamefice-9/boot-9.scm�
{
��	|	��		|	��	|	#��	|	��		gnamegrecord?�C�R�h�]�$�C6�gobj
		gfilenamefice-9/boot-9.scm�
~
��		��			��	�	��	�	
��	�	��		gnamegrecord-type-descriptor�CkR4.i�>"Ghx]��Cpgx
		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��		gnameg->bool�C�Ru`�h �-13445?6�gargs
			gfilenamefice-9/boot-9.scm�
�
��	�	��	�	'��	�	��	�	��			


gnameg
symbol-append�C�Ru�h�-134?6{gargs
			gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��			


gnameglist->symbol�C�Ru�h}-134?6ugargs
			gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��			


gnamegsymbol�C�Rh8�]""(C�&C��"���
"����gl
		3gk		3gn			(gl			(gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	�		��	�	��	 �	��	(�	
��	(�	��
		3	gnameg
list-index�C~R4 i�>"G4/i�5$4 i�>"G"4/i�5$���hh]456`gstr
		gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��		C"�o=�hM]L6Egfilenamefice-9/boot-9.scm�
�	)��	
�	4��		

ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	��			


C�h0�]	4O5$4>"GCC�gstr
		0gport		0gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	
��	�	��		0C�R4/i�5$����h�]4455�C{gstr
		gfilenamefice-9/boot-9.scm�
�	��	�	
��	�	��	�	
��	�	$��	�	��		C"�o=`��hh]4L56`gfilenamefice-9/boot-9.scm�
�	��	�	1��	�	D��	
�	1��	�	&��		
ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	��			


C�h0�]	4O5$4>"GCC�gstr
		0gport		0gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	
��	�	��		0C�Ro�h�]�&4	5�CC�gargs
		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnamegsystem-error-errno�C�Re����2�	hH()36-1344455�5�6 gmessage
		Dgargs		Dgmsg		3	Dgfilenamefice-9/boot-9.scm�
�	��	
�	��	�	��	�	��	�	��	�	��	"�	#��	#�	(��	&�	3��	.�	A��	0�	(��	1�	��	3�	��	3�	��	9�	��	A�	%��	D�	��			
		D
gnamegerror�CRhq]
�Cigobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:sec�C�Rhq]�Cigobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:min�C�Rhr]	�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:hour�C�Rhr]	�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:mday�C�Rhq]	�Cigobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:mon�C�Rhr]	�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:year�C�Rhr]	�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:wday�C�Rhr]	�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:yday�C�Rhs]	�Ckgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:isdst�C�Rht]		�Clgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg	tm:gmtoff�C�Rhr]	
�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:zone�C�Rh�]
�C~gobj
		
gval		
gfilenamefice-9/boot-9.scm�
�
��	�	��		
	gnameg
set-tm:sec�C�Rh�]�C~gobj
		
gval		
gfilenamefice-9/boot-9.scm�
�
��	�	��		
	gnameg
set-tm:min�C�Rh�]	�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:hour�C�Rh�]	�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:mday�C�Rh�]	�C~gobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnameg
set-tm:mon�C�Rh�]	�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:year�C�Rh�]	�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:wday�C�Rh�]	�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:yday�C�Rh�]	�C�gobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:isdst�C�Rh�]		�C�gobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	 ��			gnameg
set-tm:gmtoff�C�Rh�]	
�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:zone�C�Rht]
�Clgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg	tms:clock�C�Rht]�Clgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg	tms:utime�C�Rht]	�Clgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg	tms:stime�C�Rhu]	�Cmgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg
tms:cutime�C�Rhu]	�Cmgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg
tms:cstime�C�R�i�R��h �-.,3#6�gport
		 goffset		 gwhence			 gfilenamefice-9/boot-9.scm�

��	 	��		 	gnamegfile-set-position�C�R����h`�]45$)4>"G4>"GC4>"G4>"GC�gfd/port
		`gfd		`gfilenamefice-9/boot-9.scm�

��			��	
	��			��	"		��	7		��	K		��		`	gnameg
move->fdes�C�R��h �]	45
�$	�6C�gport
		grevealed			gfilenamefice-9/boot-9.scm�

��		��			��		��		��		!��		��		gnamegrelease-port-handle�C�R���h@)3456]44554>"GCgport/fd
			gmode			gport/fd
		@gmode		@gnew-fd			@gport		(	@gfilenamefice-9/boot-9.scm�
	��		
��		��		��		��		��	(	��	(	��	+	��
						@	gnameg	dup->port�C�R�?h �)36]6�gport/fd
			gport/fd
		gnew-fd		gfilenamefice-9/boot-9.scm�
	��	 	��	 	��		��	"	��	"	��						gnamegdup->inport�C�R�Ch �)36]6�gport/fd
			gport/fd
		gnew-fd		gfilenamefice-9/boot-9.scm�
%	��	'	��	'	��	%	��	)	��	)	��						gnamegdup->outport�C�R���hP�)!345$6456]45$6456�gport/fd
			'gport/fd
	)	Kgnew-fd	)	Kgfilenamefice-9/boot-9.scm�
,	��	
.		��	.	��	/		��	0	��	'0		��	),	��	*2		��	42	��	<3		��	A4	��	K4		��
			'	)	K	gnamegdup�C�R�h�]6�gport
		
gmodes		
gfilenamefice-9/boot-9.scm�
6
��	
7	��		
	gnamegduplicate-port�C�R�?����hpr]"\(!454>"GC4�5$ 4�4�5�>"G�C�"���45"���jgfdes
		og
rest-ports		bgresult			-gfilenamefice-9/boot-9.scm�
9
��	:	��	;	��	
<	��	<	&��	<	��	<	��	=	
��	.?	��	3?	��	5?	��	9;	��	:@	��	?@	��	@A	"��	EA	1��	GA	"��	HA	��	M@	��	XB	��	\D	��	bD	��	b:	��	c:	��	o:	��		ognamegfdes->inport�C�R�C����hps]"\(!454>"GC4�5$ 4�4�5�>"G�C�"���45"���kgfdes
		og
rest-ports		bgresult			-gfilenamefice-9/boot-9.scm�
F
��	G	��	H	��	
I	��	I	&��	I	��	I	��	J	
��	.L	��	3L	��	5L	��	9H	��	:M	��	?M	��	@N	"��	EN	1��	GN	"��	HN	��	MM	��	XO	��	\Q	��	bQ	��	bG	��	cG	��	oG	��		ognameg
fdes->outport�C�R���h(�]445�>"G6�gport
		"gfilenamefice-9/boot-9.scm�
S
��	T	��	T	��	T	��	T	��	"U	��		"gnameg
port->fdes�C�R�`�h �]$4566�gname
		gvalue		gfilenamefice-9/boot-9.scm�
W
��	X	��	Y	��	Y	"��	Y	��	Y	��	Z	��			gnamegsetenv�C�R�h�]6�gname
		gfilenamefice-9/boot-9.scm�
\
��	^	��		gnamegunsetenv�g
documentationf/Remove the entry for NAME from the environment.�C�R�h~]/6vgc
		
gfilenamefice-9/boot-9.scm�
x	��	
y	��		
gnamegfile-name-separator?�C�R��R��h�]6�g	file-name
		
gfilenamefice-9/boot-9.scm�
}	��	~	��	
~	��		
gnamegabsolute-file-name?�C2R69`���hP%]
45
�$"
4�5$45"$"6gvicinity
		Mgfile		Mglen				%gtail		%	Mgfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��	�	��	�	��	 �	)��	"�	��	%�	��	1�	��	2�	&��	=�	��	A�	��	C�	��	M�	��		M	gnamegin-vicinity�C�R�he]6]gfilenamefice-9/boot-9.scm�
�
��	�	��		
gnamegcommand-line�C�R�����hh]44556`gfilenamefice-9/boot-9.scm�
�	��	�	3��	�	=��	�	3��	�	'��		
ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	��			


C�����hX!]45$"45$"454	5$
6Cgt
			7gt
	!	4ghome
	7	Wg	init-file	B	Wgfilenamefice-9/boot-9.scm�
�
��	�	��	�	��		�	��		�	��	�	��	!�	��	7�	��	:�	��	@�	&��	B�	��	B�	��	E�	��	O�	��	U�	��		W
gnamegload-user-init�C�R��h0y]LL�[$"�Y4L>ZCZFqgt
		gfilenamefice-9/boot-9.scm�		�	��	�	%��	�	=��	�	��	"�		��		-
C�hM]LL@Egfilenamefice-9/boot-9.scm�
�	��	�	$��		
Ch@�]45U4O>XCXFGO6�gtag
		=gthunk		=g
prompt-tag				=gk		'	=gargs		'	=gfilenamefice-9/boot-9.scm�
�
��	�	��	�	%��		�	��		�	��	�	��	=�	��		=	gnameg%start-stack�C�R4Xi�ZV��hO]CGgdummy
		gtag		gexp						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgtaggexpC5�R�� hM]L6Egfilenamefice-9/boot-9.scm�
�	��	�	��		
Ch�]O6{gname
		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��		gnamegload-from-path�C�R4XiZVsh >]��C6gdummy
		 gelt		 		 	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
documentationf>Add ELT to Guile's load path, at compile-time and at run-time.�g
macro-typegsyntax-rules�gpatternsgeltC5RRh~] Cvgv
		gfilenamefice-9/boot-9.scm�
�
��	�	"��		gnamegassert-load-verbosity�C R)*#$!"^hP�]4>"G4>"G4L>"G4>"G6�gfilenamefice-9/boot-9.scm�
�	��	�	
��	�	��	�	
��	�	
��	�	��	�	
��	'�	
��	9�	
��	L�	
��		L
Ch �]$45O6C�gfile
		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��		gnameg%load-announce�C"R"i#i4
i5$R4%i.$&'(h �][$454566�gc
		gport		gfilenamefice-9/boot-9.scm�
�	��		�	��	�	��	�	*��	�	��	�	��	�	��			C>"G#j)*lA+,e
h�r]
4>"G445$">"G4>"G445>"G4>"G4445	5>"G	6jgmod
	�gport	�gt		 	3gfilenamefice-9/boot-9.scm�
]
��	^	��	^	��	^	��	_	��	_	��	 _	��	0_	!��	:_	��	C`	��	G`	��	N`	��	Wa	��	Za	��	ga	��	pb	��	tb	��	{b	���c	���c	���c	���c	���c	���d	���d	��	�	gnameg
%print-module�C-Rhi.-hq]6igobj
		
gport		
gfilenamefice-9/boot-9.scm�
�	��	
�	��		
	C/?�@R4fi@i/>"G@ih0�,3L	

�C�gobarray
		.guses		.gbinder			.geval-closure			.gtransformer			.gname			.gkind			.gduplicates-handlers			.gimport-obarray			.g	observers				.gweak-observers	
		.gversion			.g
submodules			.gsubmodule-binder	
		.gpublic-interface			.gfilename			.gnext-unique-id			.gfilenamefice-9/boot-9.scm�
�	��		.	COAR@iri	�Ai�@hj]�$��CCbgobj
		gfilenamefice-9/boot-9.scm�
�	��		gnamegmodule?�CBR@i}hY]�L&
�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COCR@i}h j]�L&
�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			CODR@i}hY]�L&�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COER@i}h j]�L&�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COFR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COGR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COHR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COIR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COJR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COKR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COLR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		CO)R@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COMR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		CONR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COOR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COPR@i}h Y]�L&		�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COQR@i}h j]�L&		�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			CORR@i}h Y]�L&	
�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COSR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COTR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COUR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COVR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COWR@i}h Y]�L&	
�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COXR@i}h j]�L&	
�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COYR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COZR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			CO[R@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		CO\R@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			CO]R@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		CO^R@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			CO_R`a3B8bAcdH
h��-.,3#	##45$"4>"G"4>"+G"$�$45$""���""���$'45$"4>"G"	4
54
X54	54
	5
6�gsize
	�guses	�gbinder		�gfilenamefice-9/boot-9.scm�
�
��	�	1��	)�	��	3�	��	8�	��	<�	
��	C�	��	P	��	T	
��	[	��	g�	��	j�	��	n�	��	o�	��	{�	���	���	���	���	���	���	���	���	���		���
	���	���	��	�
	gnamegmake-module�CeRRQh(�]445�>"G�C�gmodule
		$gproc		$gfilenamefice-9/boot-9.scm�

��		��	
	+��		 ��		��	#	��		$	gnamegmodule-observe�CfRBSh(�-.,3#456�gmodule
		%gobserver-id		%gproc			%gfilenamefice-9/boot-9.scm�

��	!	��	%!	��		%	gnamegmodule-observe-weak�CgRhSRiQh`]��45$445>"G" 44455>"GCgtoken
		\gmodule		Zgid			Zgfilenamefice-9/boot-9.scm�
#
��	$	��	%	��	$	��	
&	��	&	��	'	��	'	��	('	��	5(	��	:(	&��	?(	1��	G(	&��	L(	��		\gnamegmodule-unobserve�CjRkR4Iil5mR4ci5nRkonph�]$	66�gm
		gfilenamefice-9/boot-9.scm�
/
��	0	��	1	��	2	��		gnamegmodule-modified�CqRKmkh V]4>"G CNgfilenamefice-9/boot-9.scm�
9	��	:	��	;	��		
Ckrphp]6hgm
		gdummy		gfilenamefice-9/boot-9.scm�
?	��	@	��			CnsLmh8h] 4>"G4>"G6`gfilenamefice-9/boot-9.scm�
=	��	>	��	?	��	B	��	1C	��		1
CKmkh V]4>"G CNgfilenamefice-9/boot-9.scm�
9	��	:	��	;	��		
Ckrphp]6hgm
		gdummy		gfilenamefice-9/boot-9.scm�
?	��	@	��			CnsLmh8h] 4>"G4>"G6`gfilenamefice-9/boot-9.scm�
=	��	>	��	?	��	B	��	1C	��		1
Ckrphp]6hgm
		gdummy		gfilenamefice-9/boot-9.scm�
?	��	@	��			CnsLmh8h] 4>"G4>"G6`gfilenamefice-9/boot-9.scm�
=	��	>	��	?	��	B	��	1C	��		1
ChH�]4>"GV4>X4>"GCX4>"GF�gthunk
		Cgfilenamefice-9/boot-9.scm�
7
��	8	��		Cgnamegcall-with-deferred-observers�CtRh`]L6Xgproc
		gfilenamefice-9/boot-9.scm�
F	��	F	��		CQrhp]L6hgid
		gproc		gfilenamefice-9/boot-9.scm�
K	��	K	#��			CSh8�]4O45>"GO456�gm
		2gfilenamefice-9/boot-9.scm�
E
��	F	��	
F	%��	F	��	*K	-��	2K	��		2gnamegmodule-call-observers�CpRuEhP0]")�$ 4�5$C�"���C45$C45"���(gfn
		Pgm		Pgv			Pgpos			/gt			-gt		8	Pgfilenamefice-9/boot-9.scm�
f
��	g	��		h		��	
h	��	i	
��	i	��	i	
��	i		��	'j	��	-j	
��	0k	��	8k	��	Dl	��	Pl	��		P	gnameg
module-search�CuRvh �]
45$CC�gm
		gv		gvar			gfilenamefice-9/boot-9.scm�
y
��	z	
��	z	��	{	��	|		��			gnamegmodule-locally-bound?�C(RHh �]
45$CC�gm
		gv		gvar			gfilenamefice-9/boot-9.scm�
�
��	�	
��	�	��	�	��	�		��			gnameg
module-bound?�CwRxyh�]�$"6�gob
		gkey		gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-obarray-get-handle�CzRE{h�]�$"6�gob
		gkey		gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-obarray-ref�C|RBoh �]�$"6�gob
		gkey		gval			gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-obarray-set!�C}R~hh�]�$"6�gob
		gkey		gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-obarray-remove!�CRzCh�]4455��C�gm
		gv		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	'��	�	��	�	��	�	��			gnamegmodule-symbol-locally-interned?�C�Ru�h�]6�gm
		gv		gfilenamefice-9/boot-9.scm�
�
��	�	��			gnamegmodule-symbol-interned?�C�Rv�hH
-1345"(6�C$$C"���"���gm
			Cgv			Cgopt-val				Cgvar			Cgfilenamefice-9/boot-9.scm�
�
��	
�	
��	�	��	�	��	"�	��	&�	��	)�	��	*�	��	3�	��	7�	��	:�	��			C	
	gnamegmodule-symbol-local-binding�C�RH�hH-1345"(6�C$$C"���"����gm
			Cgv			Cgopt-val				Cgvar			Cgfilenamefice-9/boot-9.scm�
�
��	
�	
��	�	��	�	��	"�	��	&�	��	)�	��	*�	��	3�	��	7�	��	:�	��			C	
	gnamegmodule-symbol-binding�C�R|C�q�Dhh]
445545$4>"G"$C454>"GCgm
		dgv		dgb			9gt		9	dg	local-var		I	dgfilenamefice-9/boot-9.scm�
�
��	�	��	�	#��	�	��	�	��			
��			��			��	9�	��	E		��	I		��	L			��
		d	gnamegmodule-make-local-var!�C�Rv�Dh8�]
45$C454>"GC�gmodule
		6gsymbol		6gt			6gvar			6gfilenamefice-9/boot-9.scm�
	
��			��			��			��			��			��		6	gnamegmodule-ensure-local-variable!�C�R���}Cqhh	]45$"4>"G�$"4>"G445>"G6gm
		egv		egvar			egfilenamefice-9/boot-9.scm�
	
��			��	
		��			��			
��			��	(		��	,		��	1	 	��	5	 	
��	<	 	��	E	!	��	H	!	��	W	!	��	e	"	��		e	gnamegmodule-add!�CDRCqh(�]445>"G6�gm
		!gv		!gfilenamefice-9/boot-9.scm�
	(
��		)	��		)	��		)	��	!	*	��		!	gnamegmodule-remove!�C�RsCqh �]445>"G6�gm
		gfilenamefice-9/boot-9.scm�
	,
��		-	��		-	��		-	��		.	��		gnameg
module-clear!�C�RrCh�]456�gproc
		gmodule		gfilenamefice-9/boot-9.scm�
	4
��		5	��		5	��			gnamegmodule-for-each�C�R�Ch�]456�gproc
		gmodule		gfilenamefice-9/boot-9.scm�
	7
��		8	��		8	��			gnameg
module-map�C�REVXh8�]
4455$C45$
456C�gmodule
		5gname		5gt			5gfilenamefice-9/boot-9.scm�
	@
��		A	��		A	��		A	��		A	��		B	��	&	B	��	'	C	��	3	C	��
		5	gnamegmodule-ref-submodule�C�RBVh�]456�gmodule
		gname		g	submodule			gfilenamefice-9/boot-9.scm�
	E
��		F	��		F	��			gnamegmodule-define-submodule!�C�REVXvB,*�	h��]
4455$C45$4455"$C45$1$(45$4>"GCCCC�gmodule
	�gname	�gt		�gt		9�gvar		M�gfilenamefice-9/boot-9.scm�
	P��		Q	��		Q	��		Q	��		Q	��		R	��	&	R	��	'	S	��	(	S	
��	4	S	��	9	Q	��	E	T	��	M	T	��	U	U		��	X	U	��	\	U		��	]	U	(��	b	U	1��	d	U	(��	h	U		��	i	W	��	m	W	��	q	W	&��	v	W	���	X	��	�	gnamegmodule-ref-submodule�C�RvB,��GBV	h�o]45$W�$"	45�$4>"G"4>"G"4>"G456ggmodule
	�gname	�g	submodule		�gvar		�gt			0gfilenamefice-9/boot-9.scm�
	Z��		[	��		[	��		\	��		]	��		]	��		]	��	%	^	��	*	^	 ��	,	^	��	-	^	��	4	\		��	5	_		��	9	_	��	=	_	(��	D	_		��	Q	`		���	a	���	a	��	�	gnamegmodule-define-submodule!�C�R�h h]45N4M>"GNC`gfilenamefice-9/boot-9.scm�
	k	��		l	'��			l	��	
	m	��		n	��		 
C�h h]45N4M>"GNC`gfilenamefice-9/boot-9.scm�
	p	��		q	'��			q	��	
	r	��		s	��		 
C�h h]45N4M>"GNC`gfilenamefice-9/boot-9.scm�
	k	��		l	'��			l	��	
	m	��		n	��		 
C�h h]45N4M>"GNC`gfilenamefice-9/boot-9.scm�
	p	��		q	'��			q	��	
	r	��		s	��		 
C�h h]45N4M>"GNC`gfilenamefice-9/boot-9.scm�
	p	��		q	'��			q	��	
	r	��		s	��		 
Chp�]45HHOO4O>"GV4>X4O>"GCX4O>"GF�gthunk
		pginner-module		pgouter-module			pgfilenamefice-9/boot-9.scm�
	h
��		i	��		i	��		k	��		pgnamegsave-module-excursion�C�RH��hH-1345"(6�C$$C"���"���gmodule
			Ggname			Ggrest				Ggvariable			Ggfilenamefice-9/boot-9.scm�
	~
��	
		��			��		�	��	"	�	��	&	�	,��	*	�	��	-	�	��	.	�	��	7	�	��	;	�	��	>	�	��
			G	
	gnameg
module-ref�CJRH��h(�]45$C6�gmodule
		&gname		&gvalue			&gvariable			&gfilenamefice-9/boot-9.scm�
	�
��		�	��		�	��		�	��		�	��		�	��	"	�	(��	&	�	��			&	gnamegmodule-set!�C�RvqFDh8]45$6456gmodule
		1gname		1gvalue			1gvariable			1gvariable		%	1gfilenamefice-9/boot-9.scm�
	�
��		�	��		�	��		�	��		�	
��		�	
��		�	��	%	�	��	1	�	
��
		1	gnamegmodule-define!�CGRHh �]
45$CC�gmodule
		gname		gvariable			gfilenamefice-9/boot-9.scm�
	�
��		�	��		�	��		�	��		�	��			gnamegmodule-defined?�C�REF�sPqhh]&"4455$C44455>"G445>"G6gmodule
		cg	interface		cgfilenamefice-9/boot-9.scm�
	�
��	
	�	��		�	��		�	��		�	��		�	��	!	�	��	$	�	��	)	�	!��	,	�	)��	7	�	)��	9	�	!��	>	�	��	G	�	��	J	�	��	U	�	��	c	�	��		c	gnamegmodule-use!�C�RE�F�sPq	h��]*45"U(45"O��45$"	45$"�"���"���445>"G445>"G6�gmodule
	�g
interfaces	�gcur			�gin			dgout			dgiface		&	\gt		1	Jgnew		o�gfilenamefice-9/boot-9.scm�
	�
��		�	��			�	��		�	��		�	��		�	��	#	�	��	&	�	%��	&	�	��	)	�	"��	1	�	��	?	�	3��	N	�	��	Y	�	��	d	�	��	d	�	��	g	�	,��	o	�	��	o	�	��	r	�	��	w	�	���	�	���	�	���	�	���	�	���	�	��	�	gnamegmodule-use-interfaces!�C�RJ�hXD]"(C"4(	645$��"���C��"���<groot
		Ugnames		Ugcur			Cghead			Cgtail			Cgcur		'	Cgfilenamefice-9/boot-9.scm�
	�
��		�	��		�	��		�	��		�	��	
	��	'
	��	/
	��	4
	��	7
	(��	A
	��	C	�	��	H	�	��	K	�	��	U	�	��		U	gnameg
nested-ref�C�R���hX_]#";(
645$��"���6��"���Wgroot
		Sgnames		Sgval			Sgcur			Aghead			Agtail			Agcur			Agfilenamefice-9/boot-9.scm�


��	
	��	
	��	
		��	

	��	

	��	'
	
��	,

	��	/

	#��	9

	��	=
	��	A
	��	A
	��	F
	��	I
	��	S
	��		S	gnamegnested-set!�C�RG��hXb]#";(
645$��"���6��"���Zgroot
		Sgnames		Sgval			Sgcur			Aghead			Agtail			Agcur			Agfilenamefice-9/boot-9.scm�


��	
	��	
	��	
	��	
	��	
	��	'
	
��	,
	��	/
	#��	9
	��	=
	��	A
	��	A
	��	F
	��	I
	��	S
	��		S	gnamegnested-define!�C�R���hXQ]""9(645$��"���6��"���Igroot
		Qgnames		Qgcur			?ghead			?gtail			?gcur			?gfilenamefice-9/boot-9.scm�


��	
	��	
	��	
	��	
 	��	
 	��	%
!	
��	*
#	��	-
#	#��	7
#	��	;
"	��	?
"	��	?
	��	D
	��	G
	��	Q
	��		Q	gnamegnested-remove!�C�R�h@]"*(C4�5$
�"���C"���groot
		<gnames		<gcur			0gnames			0gcur			0gfilenamefice-9/boot-9.scm�

&
��	
'	��	
)	��	
+	��	
+	-��	
+	��	
+	��	!
,	
��	&
-	��	.
-	��	0
'	��		<	gnamegnested-ref-module�C�R���eM�L�Ah�]#(
6"�(
645$"[4	54>"G44	4
55>"G4>"G��"��g��"��U
groot
	�gnames	�gmodule		�gcur		�ghead		�gtail		�gt		/�gm		D�gcur	��	gfilenamefice-9/boot-9.scm�

/
��	
0	��	
1	
��	
1	��	
2	��	
5	��	&
6	��	'
7	��	/
7	��	>
8	$��	D
8	��	G
9	��	M
9	1��	R
9	��	[
:	��	`
:	1��	c
:	9��	n
;	9��	p
:	1��	u
:	��	~
<	���
7	���
>	���
>	#���
>	���
2	���
3	���
4	���
2	��	�	gnamegnested-define-module!�C�R�h]456wgnames
		
gfilenamefice-9/boot-9.scm�

A
��	
B	��	

B	��		
gnameg	local-ref�C�R�h�]456�gnames
		gval		gfilenamefice-9/boot-9.scm�

D
��	
E	��	
E	��			gnameg
local-set!�C�R�h�]456�gnames
		gval		gfilenamefice-9/boot-9.scm�

G
��	
H	��	
H	��			gnameglocal-define�C�R�h�]456zgnames
		
gfilenamefice-9/boot-9.scm�

J
��	
K	��	

K	��		
gnameglocal-remove�C�R�h�]456~gnames
		
gfilenamefice-9/boot-9.scm�

M
��	
N	��	

N	��		
gnameglocal-ref-module�C�R�h�]456�gnames
		gmod		gfilenamefice-9/boot-9.scm�

P
��	
Q	��	
Q	��			gnameglocal-define-module�C�R4ei
54Di4Ci5>"G4Li@>"G4_i4Ki5>"G�R4ei
54Di4Ci5>"G4Li@>"G4Mi�>"G4[i>"G�R4[i�i�i>"G@��h �-13�$C6�gname
			gargs			gfilenamefice-9/boot-9.scm�

�
��	

�	��	
�	��	
�	��	
�	
��	
�	��			
gnamegresolve-module�CMR^_h(�]	454�>"GC�gm
		#gi			#gfilenamefice-9/boot-9.scm�

�
��	
�	��		
�	��	
�	��	
�	"��	
�	��		#gnamegmodule-generate-unique-id!�CKR�R�R�R�R4�i�i>"G4�i@i45L�MhX�]	4L5$C454>"G445>"GL6�gmod
		Sgt			Sgname		Sgfilenamefice-9/boot-9.scm�

�	��	
�	
��		
�	��	
�	��	
�	��	
�	
��	
�	��	3
�	��	6
�	#��	9
�	3��	<
�	#��	E
�	��	S
�	��		SCOAR�u`��A�+Khp�-.,3##45$@444554		54
54		5566�gid
		ogm		ognumber		@	Ngnumber		W	egfilenamefice-9/boot-9.scm�

�
��	
�	'��	
�	1��	)
�	��	,
�	��	2
�	��	3
�	 ��	6
�	&��	@
�	 ��	@
�	��	C
�	��	P
�	��	Q
�	 ��	W
�	��	Z
�	��	g
�	��	i
�	��	o
�	��		o
	gnameg
module-gensym�g
documentationf�Return a fresh symbol in the context of module M, based on ID (a
string or symbol).  As long as M is a valid module, this procedure is
deterministic.�CLR�eM�L�A�	hp]
45$C4	54>"G44455>"G4>"GCgmodule
		lgname		lgt			lgm			lgfilenamefice-9/boot-9.scm�

�
��	
�	��	
�	��	
�	��	
�	��	 
�	��	&
�	��	+
�	��	4
�	��	9
�	��	<
�	$��	F
�	��	K
�	��	T
�	��		l	gnamegmake-modules-in�C�RZeLAUTM�[�E��h��]45$	�"$j4	5445>"G445>"G4>"G4	>"G"4
455$"
��$6C�gmodule
	�g	interface		�g	interface		&�gfilenamefice-9/boot-9.scm�

�
��	
�	��		
�	��	
�	��	
�	��	
�	��	
�	��	 
�	��	&
�	��	)
�	
��	.
�	&��	9
�	
��	B
�	
��	G
�	)��	R
�	
��	[
�	
��	a
�	&��	f
�	
��	o
�	
���
�	���
�	%���
�	���
�	���
�	���
�	���
�	���
�	��	�gnamegbeautify-user-module!�C�Rhr]LL6jgv
		
gfilenamefice-9/boot-9.scm�

�	��	

�	"��		
gnamegmatches?�CU��Y3�44�h��]OLQ45$�C�$p��$���C�$���C�$	�6�$	�6	�$��4L5�C
6
6�gv-ref
	�gt	�gmatches?		�gkey		-�gv	��gfilenamefice-9/boot-9.scm�

�	��	
�	��	
�	
��	
�	��	"
�	��	&
�	
��	*
�	��	-
�	��	-
�	
��	=
�	��	?
�	��	I
�	
��	N
�	��	P
�	��	Z
�	
��	a
�	%��	c
�	��	l
�	
��	s
�	$��	u
�	��	~
�	
���
�	"���
�	���
�	"���
�	���
�	���
�	���
�	���
�	��	�	gnamegsub-version-matches?�C�hr]L6jgv
		
gfilenamefice-9/boot-9.scm�

�	��	

�	��		
gnamegmatches?�CY3�44�	h�]"<OQ(C(C4��5$��"���COQ(C��$	�6�$	�6�$��45�C"��]gversion-ref
	�gtarget	�gv-refs			Bgt			Bgsub-version-matches?			Bgmatches?		J�gkey		Z�gv	��gfilenamefice-9/boot-9.scm�

�
��	
�	��	
�	��	
�	��	!
�	��	$
�	
��	)
�	#��	,
�	0��	.
�	
��	2
�	��	5
�	"��	8
�	/��	@
�	
��	J
�	��	U
�	��	V
�	��	Z
�	��	Z
�	��	l
�	#��	n
�	��	w
�	��	~
�	"���
�	���
�	���
�	 ���
�	���
�	���
�	���
�	��	�	gnamegversion-matches?�C�Re�h �]454>"GC�gm
		gfilenamefice-9/boot-9.scm�

�
��	
�	��	
�	��	

�	��		
gnamegmake-fresh-user-module�C�R4ei54Li>"G4�i?�i>"G���M��Z�T�h��-/03###4L5">$4>"G6$C$L6C$Q$45"$7$.44	55$"4
>"G"C"��k"��g�gname
	�gautoload	�gversion		�gensure		�galready		7�gfilenamefice-9/boot-9.scm�

�	��	/
�	��	7
�	��	C
�	��	D	
��	b		
��	h
	
��	q	��	y	��	{
�	���	���	"���	���
�	
���	
���	���	2���	���	���	���	���	��	�	gensureS	�COMR�h�]6�gname
		
gversion		
gfilenamefice-9/boot-9.scm�

��	
	��		
	gnamegtry-load-module�C�R\��� h0h]445>"G4L>"GLC`gfilenamefice-9/boot-9.scm�
		��		��		��		��		��		,
C�h(]	45$
O66�gm
		&gf			&gfilenamefice-9/boot-9.scm�

��		��			��		��		��	" 	��	& 	��		&gnameg
reload-module�g
documentationf<Revisit the source file corresponding to the module @var{m}.�C�RE&�F�h8Q]	45�$#45�&445�56CCIgmodule
		7guse-list			7gfilenamefice-9/boot-9.scm�
"
��	$	��		$	��	%	
��	%	��	&	��	&	��	 %	��	%'	!��	('	/��	/'	*��	1'	!��	3'	��		7gnamegpurify-module!�g
documentationfGRemoves bindings in MODULE which are inherited from the (guile) module.�C�R���M�Z��hg]C_gsym
		gvar		gfilenamefice-9/boot-9.scm�
Y	0��			CeM�Lv5�SDh��]�$"��$"�4L5$"+4L5$"44L554M5$
4M5NCL4L56�gbspec
	�gorig	�gseen		$�gt		/	kgt		F	hgvar		k�gfilenamefice-9/boot-9.scm�
`	��	a	&��		b	#��	b	5��	a	��	a	&��	c	#��	$c	5��	$a	��	'd	&��	/d	"��	>e	&��	Fd	"��	Uf	&��	Xh	'��	]i	+��	ch	'��	ef	&��	ka	��	nk	��	zk	��	{l	'���l	���n	)���m	��	�Cv5�h(�]4L5$C4L56�gbinding
		!gfilenamefice-9/boot-9.scm�
r	��	s	��	s	��	u	��	v	��	u	��	!t	��		!ChHx-/03
H##K##$45"#45$45"$"4>"G$"J(	�"$C$"	4	
54	5	4	
>"G4	>"G4	O>"G4OJ>"G	Cpgname
	Cgselect	Cghide		Cgprefix		Cgrenamer		Cgversion		Cgmodule		dCgpublic-i		xCg	selection	�Cgcustom-i		�C
gfilenamefice-9/boot-9.scm�
K
��	(M	"��	?O	%��	@P	)��	XS	��	dS	��	lT	��	mT	��	xS	���U	���V	���V	
���V	���W	���W	'���W	���Y	���Y	$���[	���Y	���\	
���\	%���\	
���]	
��`	
��&r	
��	C
gselectS�ghideS	�gprefixS	�grenamerS	�gversionS	�gnamegresolve-interface�C�R�hb]L6Zgsymbol
		
gfilenamefice-9/boot-9.scm�
|	��	
}	��		
Chw]OCogprefix
		
gfilenamefice-9/boot-9.scm�
{
��		
gnamegsymbol-prefix-proc�C�R�h0�](C�$4�5$
�"���CC�gpred
		.gl		.gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	
�	
��	�	��	�	��	�	��	�	��	�	��	"�	4��	*�	&��		.	gnameglist-of�Ch(�]�$C�$��$��CCC�gx
		#gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	
�	��	�	��	�	��	�	,��	�	#��	�	��	�	>��	�	5��		#gnameg
valid-export?�C/���h`q]"L(6�$1���$4?"	45�"���6"���igimports
		]gimports		Rgout			Rgimport-spec			?gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	"��	�	��	$�	
��	(�	��	)�	
��	4�	
��	8�	��	<�	
��	B�	��	J�	��	N�	��	R�	
��	R�	��	U�	$��	]�	��		]gnamegresolve-imports�CM�]��UZt���������O
h(�]L�$4LL>"G"4LLL5$#L�$4LL>"G""4>"G4LLL5$#L�$4LL>"G""4>"G4LLL5$#L�$4LL>"G""4>"GL("4	
LL>"GL�$4L5L6C�ghandlers
gfilenamefice-9/boot-9.scm�
�	��	�	
��		�		��	
�	
��	"�	
��	.�		��	1�	��	5�	
��	6�	��	R�	
��	V�	��	[�	
��	d�	
��	p�		��	s�	��	w�	
��	x�	����	
����	����	
����	
����		����	����	
����	����	
����	����	
����		����	
��
�	
���		���	���	
���	��$	!
C���&KJ��hT-/03########	#	
#
O
Q454>"G$4>"G"$4>"G"$T4	5$"4
>"G4>"G44
5>"G"4
54	O	>"G
$x"4

>"_G"X
�$M4
5$84
54
5�445>"G""���""���"4>"GCLgname
	�gfilename	�gpure		�gversion		�g
duplicates		�gimports		�gexports		�greplacements		�g
re-exports		�g	autoloads			�gtransformer	
	�glist-of		}�g
valid-export?		}�gresolve-imports	
	}�gmodule	��gimports	9egiface	��gsym	��gfilenamefice-9/boot-9.scm�
�
��	5�	3��	>�	��	G�	"��	P�	5��	Y�	��	b�	'����	����	����	����	����	����	����	����	����	����	
����	����	����	���	
���	
���	��&�	
��3�	��9�	��<�	��k�	��p�	��t�	��{�	����	����	����	����	%����	����	����	����	����	����	����	.����	����	��-	�
gfilenameS�gpureS	�gversionS	�g
duplicatesS	�gimportsS	�gexportsS	�greplacementsS	�g
re-exportsS	�g	autoloadsS		�gtransformerS	
�gnamegdefine-module*�C�R4�i5�RZM�Evhh]4LL5$W44L55$"4L>"G4L4L55�$	�"L6Cgi
		fgautoload	I	^gfilenamefice-9/boot-9.scm�
�	
��	�	��	�	��	�	��	�	5��	�	��	�	��	#�	��	(�	��	,�	 ��	3�	��	<�	%��	A�	-��	I�	%��	I�	��	N�	��	R�	��	W�	��	f�	��		h
C.*5h T]45$C456Lgs
		gfilenamefice-9/boot-9.scm�
�	
��		C:<�_h(i]4LL>"GLL6agport
		%gfilenamefice-9/boot-9.scm�
�	
��		�	��	�	
��		%Ch8i-13444LLO5
5>"GCagkey
			6gargs			6gfilenamefice-9/boot-9.scm�
�	
��			6
Ch �]LLLOLO6�ga
		gsym		gdefinep			gfilenamefice-9/boot-9.scm�
�	��	�	
��			gnamegb�CAc�hH]OQ4
54
54	54
5
6�gmodule
		Bgname		Bgbindings			Bgb			Bgfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	,��	&�	=��	(�	��	.�	,��	/�	0��	7�	��	B�	��		B	gnamegmake-autoload-interface�CR�h`j-13"I(C�(6���445>"G��"���"���bgmodule
			^gargs			^gargs		
	Vgname		+	Vgbindings		+	Vgfilenamefice-9/boot-9.scm�
�
��	
�	��	�	��	�	��	�	��	 �	��	$�	��	'�	��	*�	��	+�	��	0�	
��	5�	!��	D�	
��	O�	��	V�	
��	V�	��			^
gnamegmodule-autoload!�g
documentationfHave @var{module} automatically load the module named @var{name} when one
of the symbols listed in @var{bindings} is looked up.  @var{args} should be a
list of module-name/binding-list pairs, e.g., as in @code{(module-autoload!
module '(ice-9 q) '(make-q q-length))}.�C�RR��``��hh]456`gelt
		gfilenamefice-9/boot-9.scm�
	��		0��		!��		CMhM]LL6Egfilenamefice-9/boot-9.scm�
	��	
	��		

ChM]LLM6Egfilenamefice-9/boot-9.scm�
3	��	3	��		
C��� �hM]LWFEgfilenamefice-9/boot-9.scm�
#	 ��	#	+��		
ChX�]445>"G45U(44LL5O>"GNXCXFGD�gtag
		Tgk	M	Tgfilenamefice-9/boot-9.scm�
	��	'	��	'	'��	'	��		 ��		��	% 	��	&0	��	)0	+��	=0	��	H2	��	P 	��	T$	$��		T
C
h��-.,3#454�54�5445?4>"G45$CHO	O4O>"GV
Y4O>"GZX4	O>"GJC}gmodule-name
	�gversion	�greverse-name		�gname		&�gdir-hint-module-name		0�gdir-hint		@�gdidit		e�gfilenamefice-9/boot-9.scm�
	
��	
	��	
	��		��	$	��	&	��	&
	��	)	��	.	(��	0	��	0
	��	3	��	6	��	@	��	@
	��	C	��	V	��	b	��	e		��	|	���	���	��	�gnamegtry-module-autoload�g
documentationf�Try to load a module of the given name.  If it is not found, return
#f.  Otherwise return #t.  May raise an exception if a file is found,
but it fails to load.�C�R	
R�X
h0�]�45$"	456�gp
		0gm		0gn			0gt			.gfilenamefice-9/boot-9.scm�
=
��	>	��	>	��	?	��	?	��	#@	��	0?	��		0	gnamegautoload-done-or-in-progress?�CRX
h8�]�45 45$C� C�gp
		1gm		1gn			1gt			1gfilenamefice-9/boot-9.scm�
B
��	C	��	C	��	
E	
��	D	��	F	��	F	��	-G	��	/G	��
		1	gnamegautoload-done!�CR
h �]
�45 � C�gp
		gm		gn			gfilenamefice-9/boot-9.scm�
I
��	J	��	J	��	
L	
��	K	��	M	 ��	M	��			gnamegautoload-in-progress!�CR
h0�]$6�45 45 C�gp
		/gm		/gdone?			/gn			/gfilenamefice-9/boot-9.scm�
O
��	P	��	Q	��	R	��	R	��	S	��	"S	��	#T	$��	-T	��
		/	gnamegset-autoloaded!�CR4Xi
ZV%&')*-.WY[\</_`a^bdhimrh��]�	�
�

�
�����C�gdummy
	�g	interface	�goptions		�genable		�gdisable		�goption-set!		�	�	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
\	��		"g
macro-typegsyntax-rules�gpatternsg	interfacegoptionsgenablegdisablegoption-set!C5
Rs#6�"h��]4>"G4455	�$54	>"G	�$4	>"G""4	>"G4>"G4	>"G4>"G6�gname
	�gvalue	�g
documentation		�glen		 	cgfilenamefice-9/boot-9.scm�
�
��	�	ChX]@Pgoption
		gfilenamefice-9/boot-9.scm�
�
��		Ch8w)36]�$4>"G6456ogarg
		8gfilenamefice-9/boot-9.scm�
�
��			
		8gnameg
debug-options�CtRs�h0r-1344455>"G6jgflags
			)gfilenamefice-9/boot-9.scm�
�
��			)


gnamegdebug-enable�CuRsShV]4M5NCNgflag
		gfilenamefice-9/boot-9.scm�
�
��		Ch@�-1345H4O>"G4J>"G6�gflags
			?g
debug-options		?gfilenamefice-9/boot-9.scm�
�
��			?


gnameg
debug-disable�CvR4XiwZV�������h(O]CGgdummy
		$gopt		$gval			$		$	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgoptgvalC5wR�#6�"h��]4>"G4455	�$54	>"G	�$4	>"G""4	>"G4>"G4	>"G4>"G6�gname
	�gvalue	�g
documentation		�glen		 	cgfilenamefice-9/boot-9.scm�
�
��	�	ChX]@Pgoption
		gfilenamefice-9/boot-9.scm�
�
��		Ch8v)36]�$4>"G6456ngarg
		8gfilenamefice-9/boot-9.scm�
�
��			
		8gnamegread-options�C�R��h0q-1344455>"G6igflags
			)gfilenamefice-9/boot-9.scm�
�
��			)


gnamegread-enable�C�R�ShV]4M5NCNgflag
		gfilenamefice-9/boot-9.scm�
�
��		Ch@�-1345H4O>"G4J>"G6�gflags
			?gread-options		?gfilenamefice-9/boot-9.scm�
�
��			?


gnamegread-disable�C�R4Xi�ZV�������h(O]CGgdummy
		$gopt		$gval			$		$	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgoptgvalC5�R�#6�"h��]4>"G4455	�$54	>"G	�$4	>"G""4	>"G4>"G4	>"G4>"G6�gname
	�gvalue	�g
documentation		�glen		 	cgfilenamefice-9/boot-9.scm�
�
��	�	ChX]@Pgoption
		gfilenamefice-9/boot-9.scm�
�
��		Ch8w)36]�$4>"G6456ogarg
		8gfilenamefice-9/boot-9.scm�
�
��			
		8gnameg
print-options�C�R��h0r-1344455>"G6jgflags
			)gfilenamefice-9/boot-9.scm�
�
��			)


gnamegprint-enable�C�R�ShV]4M5NCNgflag
		gfilenamefice-9/boot-9.scm�
�
��		Ch@�-1345H4O>"G4J>"G6�gflags
			?g
print-options		?gfilenamefice-9/boot-9.scm�
�
��			?


gnameg
print-disable�C�R4Xi�ZV�������h(O]CGgdummy
		$gopt		$gval			$		$	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgoptgvalC5�R4Xi�ZRhV]6Ngid
		gfilenamefice-9/boot-9.scm�	�	��		C�h*]C"gid
				CV��h)]�C!gx
				CN�h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamefice-9/boot-9.scm�
�	��		:g
macro-typegidentifier-syntax�C5�Rhu]�Cmgv
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegunspecified?�C�R�i��R4fi�i�>"GhT]CLgx
		gfilenamefice-9/boot-9.scm�
�	/��		C
�h()3L[C]	L[L4L5\Cwgx
		!gprev		!gfilenamefice-9/boot-9.scm�
�	��	�	��	�	,��			
		!Ch8-.,3#4455O�Cginit
		7gconv		7gfluid		"	7gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	"�	��	"�	��	6�	��		7gnamegmake-parameter�g
documentationfBMake a new parameter.

A parameter is a dynamically bound value, accessed through a procedure.
To access the current value, apply the procedure with no arguments:

  (define p (make-parameter 10))
  (p) => 10

To provide a new value for the parameter in a dynamic extent, use
`parameterize':

  (parameterize ((p 20))
    (p)) => 20
  (p) => 10

The value outside of the dynamic extent of the body is unaffected.  To
update the current value, apply it to one argument:

  (p 20) => 10
  (p) => 20

As you can see, the call that updates a parameter returns its previous
value.

All values for the parameter are first run through the CONV procedure,
including INIT, the initial value.  The default CONV procedure is the
identity procedure.  CONV is commonly used to ensure some set of
invariants on the values that a parameter may have.�C�RhT]CLgx
		gfilenamefice-9/boot-9.scm�
�	2��		C�h()3L[C]	L[L4L5\Cwgx
		!gprev		!gfilenamefice-9/boot-9.scm�
�	��	�	��	�	*��			
		!Ch0-.,3#O�C�gfluid
		)gconv		)gfilenamefice-9/boot-9.scm�
�
��	(�	��		)gnamegfluid->parameter�g
documentationf`Make a parameter that wraps a fluid.

The value of the parameter will be the same as the value of the fluid.
If the parameter is rebound in some dynamic extent, perhaps via
`parameterize', the new value will be run through the optional CONV
procedure, as with any parameter.  Note that unlike `make-parameter',
CONV is not applied to the initial value.�C�R�h�]�$��CC�gx
		gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��	�	��		gnameg
parameter?�C�R���h(�]45$�C6�gp
		"gfilenamefice-9/boot-9.scm�
�
��	�	��	
�	��	�	��	�	��	�	!��	�	��	�	'��	"�	��
		"gnamegparameter-fluid�C�R���h(�]45$	�C6�gp
		#gfilenamefice-9/boot-9.scm�
�
��	�	��	
�	��	�	��	�	��	�	!��	�	��	 �	'��	#�	��
		#gnamegparameter-converter�C�R4Xi�ZV�SV���

h08]	�����C0gtmp-bde397a-17e9
		*		*C!h V]����CNgtmp-bde397a-17e7
		gtmp-bde397a-17e6					Ch8)]4L54454L5LL���5��C!gp
		7		7CN�h8�]4545$O@6�gparam
		6gvalue		6gbody			6gbody*			6gtmp				6gtmp			6gfilenamefice-9/boot-9.scm�	�	��		�	��		6	CN�h(d]	45$@6\gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�	��		"C5�R4�i4Ji4i5"5�#hf]45$C6^gx
		gfilenamefice-9/boot-9.scm�

	��	
	"��	
	��		C5$i4�i4i5">"G4�i4Ji4i5%5�&hf]45$C6^gx
		gfilenamefice-9/boot-9.scm�


	��	
	#��	

	��		C5'i4�i4i5%>"G4�i4Ji4i5(5�&hf]45$C6^gx
		gfilenamefice-9/boot-9.scm�

	��	
	#��	
	��		C5i4�i4i5(>"G4�i4Ji4i5)5�&hf]45$C6^gx
		gfilenamefice-9/boot-9.scm�

	��	
	#��	
	��		C5*i4�i4i5)>"G4�i*5+R4
i5,R,hd][�C\gfilenamefice-9/boot-9.scm�

+
��	
,	��		
gnamegbatch-mode?�C-Rh\]CTgfilenamefice-9/boot-9.scm�

3	��		
gnamegbatch-mode?�C-hk] Ccgfilenamefice-9/boot-9.scm�

2
��	
3	��		
gnamegensure-batch-mode!�C.Rh{-13@sgargs
			gfilenamefice-9/boot-9.scm�

5
��	

6	��	
6	��			


gnamegquit�CRi/R012h�]4455�C�gfilenamefice-9/boot-9.scm�

:
��	
;	��	
;	
��	
;	��	
;	��	
;	��		
gnameggc-run-time�C3R4�i54R4�i55R4�i56R4�i57R4�i58R4�i59R4�i5:R4�i5;R4�i5<R4�i5=R4�i5>R4�i5?R@A#�B'^�9&$
h�-.,3#	4545$"<445$"45>"G445
>"G4>"G4	
>"G$"456gprompt
	�greader	�gfilenamefice-9/boot-9.scm�

Q	��	
Q	&��	
R	
��	$
R	��	)
T	
��	,
T	��	6
T	��	=
T	/��	F
T	
��	O
f	
��	R
f	��	\
f	
��	e
g	��	u
h	���
i	���
i	���
i	��	�gnamegrepl-reader�CCRh0�]"
�$C��"����"����gn
		-gcount		!gresult			!gfilenamefice-9/boot-9.scm�

q
��	
r	��	

s	��	
s	��	
t	��	
t	��	!
t	��	!
r	��	$
r	��	%
r	$��	-
r	��		-gnamegiota�CDR4XiEZV
OFGVs\jk^lm��e������hXR]��	
��L
�L���������CJgt-bde397a-1825
		Rgt-bde397a-1826		R		R	CN�	h@�]454545$
O@6�gwhile
		@gcond		@gbody			@gtmp			@gtmp		"	@gfilenamefice-9/boot-9.scm�	
�	��		
�	6��	
�	��	
�	$��	
�	;��	
�	$��	
�	��		@	CN�h(d]	45$@6\gx
		"gtmp		"gfilenamefice-9/boot-9.scm�

�	��		"C5ER�u��h�]4445556�gsym
		gfilenamefice-9/boot-9.scm�

�
��	
�	��	
�	#��	
�	.��	
�	#��	
�	��	
�	��		gnamegkeyword-like-symbol->keyword�C�R4Xi�ZV��������V�h �]4445556�gt-bde397a-18ac
		gt-bde397a-18ab		gt-bde397a-18aa			gt-bde397a-18a9			gt-bde397a-18a8						CN�h�*]8L("LL("LL("LL("LL("	
L45$
@6"gimp
	u�gexp	u�grex		u�grep		u�gaut		u�gtmp	��gtmp	��gfilenamefice-9/boot-9.scm�	
�	��		
�	$��	
�	��	 
�	$��	6
�	��	7
�	$��	M
�	��	N
�	$��	d
�	��	e
�	$��	u
�		���
�	��
	�
CthX]LLLLLL6Pgargs
		gfilenamefice-9/boot-9.scm�	
�		��		C
h q]	4LLLLLL5��Cigargs
		gtmp		gfilenamefice-9/boot-9.scm�	
�	��	
�	
��		C\N�hh]L6`gkw
		gfilenamefice-9/boot-9.scm�	
�	��	
�	*��	
�		��		C,-h(�]
4LLLLLL5��Cygv
		#gargs		#gtmp			#gfilenamefice-9/boot-9.scm�	
�	#��	
�	
��		#	C/?@h(�]
4LLLLLL5��Cygd
		#gargs		#gtmp			#gfilenamefice-9/boot-9.scm�	
�	&��	
�	
��		#	CBRSh(�]
4LLLLLL5��Cygf
		#gargs		#gtmp			#gfilenamefice-9/boot-9.scm�	
�	��	
�	
��		#	CWZ\_V��h6]L6.gt-bde397a-1967
		
		
CN�h@y]
LL4L5$4O?"
4L5LLL6qgex
		>gargs		>gtmp			6gfilenamefice-9/boot-9.scm�	>
�		��		>	CbV��h6]L6.gt-bde397a-1975
		
		
CN�h@y]
LL4L5$4O?"
4L5LLL6qgex
		>gargs		>gtmp			6gfilenamefice-9/boot-9.scm�	>
�		��		>	CeV��h6]L6.gt-bde397a-1983
		
		
CN�h@y]
LLL4L5$4O?"
4L5LL6qgre
		>gargs		>gtmp			8gfilenamefice-9/boot-9.scm�	>
�		��		>	ChV��h6]L6.gt-bde397a-1991
		
		
CN�h@y]
LLL4L5$4O?"
4L5LL6qgre
		>gargs		>gtmp			8gfilenamefice-9/boot-9.scm�	>		��		>	CkV��h6]L6.gt-bde397a-199f
		
		
CN�h@x]
LLLL4L5$4O?"
4L5L6pgr
		>gargs		>gtmp			:gfilenamefice-9/boot-9.scm�	>		��		>	CnV��h6]L6.gt-bde397a-19ad
		
		
CN�h@x]
LLLL4L5$4O?"
4L5L6pgr
		>gargs		>gtmp			:gfilenamefice-9/boot-9.scm�	>		��		>	CqV��h6]LL6.gt-bde397a-19bd
				CN�h@�]LLLLL4L5$4O?"
4L56�gname
		@gbindings		@gargs			@gtmp			>gfilenamefice-9/boot-9.scm�	@		��		@	CuN�rh�]6�gkw
		gval		gargs			gfilenamefice-9/boot-9.scm�			��			*��				��			CN�3�Ph�]4�56�gname
		gname*		garg			gargs			gfilenamefice-9/boot-9.scm�	
�	��	
�	��			CV/hE]L6=gfilenamefice-9/boot-9.scm�	
�	��		
Ctt��ht]LL��6lgrenamer
		gin		gfilenamefice-9/boot-9.scm�	
�	��	
�	��			Cuh�]LL��6xgkw
		gval		gin			gfilenamefice-9/boot-9.scm�	

�	��	
�	��			CN��Ph�]4455�Cygkw
		gin		gfilenamefice-9/boot-9.scm�	
�	��	
�	$��	
�	��	
�	��			CN��hx]L6pgkw
		gin		gfilenamefice-9/boot-9.scm�	
�	��	
�	,��	
�	��			CP9�h(�]
45�$445
5:�CC�gsym
		%gin		%gdat				%gfilenamefice-9/boot-9.scm�	
�	��		
�	��	
�	
��	
�	��	
�	��	
�	��	
�	��	"
�	
��			%	CP�u��h8�]
L4544445555�L6�gsym
		5gin		5gsym			'gtmp		'	1gfilenamefice-9/boot-9.scm�	
�	!��	
�	��	
�	��	
�	��	
�	'��	
�	2��	 
�	'��	"
�	��	$
�	��	'
�	��	5
�	��		5	Ch��]*45$O@45"x45"E45$
LO@45$
LO@	6$4
?$LO@"���"���$4?$

LO@"��f"��b�gin
	�gout	�gtmp		
�gtmp		&�gtmp		5�gtmp		D�gtmp		b�gfilenamefice-9/boot-9.scm�

�	��	�	gnamegloop�CV��hR]LL��6Jgt-bde397a-1955
		gt-bde397a-1954					CN�hh�]LLOLQ4545$4O?"
45LLLL6�gname
		egname*		egarg			egargs			egloop			#gtmp		&	[gtmp		1	Xgfilenamefice-9/boot-9.scm�	
�	��	
�	 ��	 
�	��	&
�	��	e
�		��		e	C3�Ph�]4�56~gname
		gname*		gargs			gfilenamefice-9/boot-9.scm�	
�	��	
�	��			CV��h6]LL�6.gt-bde397a-1938
				CN���hX�]4L4L5$4O?"
4L5LLLL5���C�gname
		Tgname*		Tgargs			Tgtmp			7gtmp		A	Tgfilenamefice-9/boot-9.scm�	
�	��	A
�	
��		T	C3�Ph�]4�56~gname
		gname*		gargs			gfilenamefice-9/boot-9.scm�	
�	��	
�	��			CV��h6]LL�6.gt-bde397a-1919
				CN�h@�]L4L5$4O?"
4L5LLLL6�gname
		@gname*		@gargs			@gtmp			6gfilenamefice-9/boot-9.scm�	@
�		��		@	C�Ph�]4455�C{gkw
		gargs		gfilenamefice-9/boot-9.scm�	
�	��	
�	$��	
�	��	
�	��			CN��hz]L6rgkw
		gargs		gfilenamefice-9/boot-9.scm�	
�	��	
�	*��	
�		��			CP9�h(�]
45�$445
5:�CC�gsym
		%gargs		%gdat				%gfilenamefice-9/boot-9.scm�	
�	��		
�	��	
�	
��	
�	��	
�	��	
�	��	
�	��	"
�	
��			%	CP�u��h@�]
L4544445555�LLLLL6�gsym
		=gargs		=gsym			'gtmp		'	1gfilenamefice-9/boot-9.scm�	
�	 ��	
�	��	
�	��	
�	��	
�	'��	
�	2��	 
�	'��	"
�	��	$
�	��	'
�	��	=
�		��		=	C/hX<]�45$O@45"�45"�45		$LO	@45

$LO
@45$	LO@4
5$LO@45

$
LO
@45$LO@45"�45"i45"*45$LO@45$LO@45$LO@45$LO@45$LO@45$LO@45$ LO@4!5$"@#$6$&4%?$&LLO@"���"���$$4'?$(LO@"��m"��i$$4)?$*LO@"��0"��,$4+?$,LO@"��#"��$$4-?$.LO@"���"���4gargs
	Rgimp	Rgexp		Rgrex		Rgrep		Rgaut		Rgtmp		
Rgtmp		.Rgtmp		=$gtmp			Lgtmp	
	rgtmp	�gtmp	�gtmp	
�gtmp	gtmp	&gtmp	5�gtmp	D�gtmp	Stgtmp	ytgtmp	�tgtmp	�tgtmp	�tgtmp	tgtmp	7tgtmp	]tgfilenamefice-9/boot-9.scm�

�	��	R	gnamegparse�CV�N�3�Ph�]4�56}gname
		gname*		garg			gfilenamefice-9/boot-9.scm�		��		��			CQ�V���������	h0H]LL�������C@g
quoted-arg
		.gfilename		.		.	CN�
hxL]4L544L5$"545$"45$
O@	6Dgname
		qgname*		qgarg			qgt			*gf		.	Egtmp		H	qgtmp		S	qgfilenamefice-9/boot-9.scm�		��		)��			-��	
	1��		5��		9��		��		(��		6��		2��	'	H��	,	2��	.	(��	.	��	1	&��	;	!��	H	��		q	ChPw]OQ45"	6$4?$
O@"���"���ogx
		Pgparse		Pgtmp			Pgfilenamefice-9/boot-9.scm�

�	��		PC5�R��h �]	4?$C6�gmif-args
		gt			gfilenamefice-9/boot-9.scm�
%	��	&	��		&	��	'	&��	'	��		Ct�hV]45L6Ngfilenamefice-9/boot-9.scm�
*	��	+	��	
+	��		
Ch�]	45O6�gmodule-interface-args
		g
interfaces		gfilenamefice-9/boot-9.scm�
$
��	%	��	%	��	)	��		gnamegprocess-use-modules�C�R4Xi�ZV�hE]L6=gfilenamefice-9/boot-9.scm�	G	��		
CV[N�3�Ph�]4�56�gname
		gname*		garg			gin			gfilenamefice-9/boot-9.scm�	L	��	L	��			CV/hE]L6=gfilenamefice-9/boot-9.scm�	9	��		
Ctt�ht]LL��6lgrenamer
		gin		gfilenamefice-9/boot-9.scm�	
@	��	@	��			Cu�h�]LL��6xgkw
		gval		gin			gfilenamefice-9/boot-9.scm�	B	��	B	��			CN��Ph�]4455�Cygkw
		gin		gfilenamefice-9/boot-9.scm�	=	��	=	$��	=	��	=	��			CN��hx]L6pgkw
		gin		gfilenamefice-9/boot-9.scm�	>	��	>	,��	>	��			CP9�h(�]
45�$445
5:�CC�gsym
		%gin		%gdat				%gfilenamefice-9/boot-9.scm�	0	��		0	��	1	
��	1	��	2	��	2	��	2	��	"2	
��			%	CP�u��h8�]
L4544445555�L6�gsym
		5gin		5gsym			'gtmp		'	1gfilenamefice-9/boot-9.scm�	<	!��	<	��	4	��	4	��	4	'��	4	2��	 4	'��	"4	��	$4	��	'<	��	5<	��		5	Ch��]*45$O@45"x45"E45$
LO@45$
LO@	6$4
?$LO@"���"���$4?$

LO@"��f"��b�gin
	�gout	�gtmp		
�gtmp		&�gtmp		5�gtmp		D�gtmp		b�gfilenamefice-9/boot-9.scm�
7	��	�	gnamegloop�CV���h g]LLLL���L�6_g
quoted-arg
		gfilenamefice-9/boot-9.scm�	N	��	N	
��		CN�hP�]OLQ4545$LLO@6�gname
		Lgname*		Lgarg			Lgin			Lgloop			gtmp			Lgtmp		(	Lgfilenamefice-9/boot-9.scm�	7	��	7	 ��	7	��	M	��		L	C3�Ph�]4�56|gname
		gname*		gin			gfilenamefice-9/boot-9.scm�	I	��	I	��			C�h�]L�L�6|gname
		gname*		gin			gfilenamefice-9/boot-9.scm�	J	��	J	��			Ch��]45$O@45"@45"	6$4?$LLO@"���"���$4	?$

LO@"���"����gin
	�gout	�gtmp		
�gtmp		&�gtmp		5	lgfilenamefice-9/boot-9.scm�
E	��	�	gnameglp�Ch �]	OLQ6�gspecs
		glp		gfilenamefice-9/boot-9.scm�
D	��	E	��	E	��	E	��		gnamegquotify�CV�V�					
	h3]����C+gquoted-args
				CN�h0�]4L545$@6zgspec
		+gtmp			+gtmp			+gfilenamefice-9/boot-9.scm�	S	(��		S	��		+CN�h8y]OQ45$O@6qgx
		4gquotify	
	4gtmp			4gfilenamefice-9/boot-9.scm�
.	��		4C5�R4Xi	
ZV		&	'h?]�C7gdummy
		gspec					CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
X
��		"g
macro-typegsyntax-rules�gpatternsgspecg...C5	
RPh|]45�Ctgx
		gfilenamefice-9/r6rs-libraries.scm�
		��			��	
		��		gnamegsym?�CV	?	@	A	E	I	M	R	=3hr]L�6jgname
		
gname*		
gfilenamefice-9/r6rs-libraries.scm�	
	y	��		
	C	S	Z��hr]45�6jgname
		gname*		gfilenamefice-9/r6rs-libraries.scm�		z	��			CN�3h�]L�6gname
		
gname*		
gversion			
gfilenamefice-9/r6rs-libraries.scm�	
	u	��		
	C	S	b�h �]45�6gname
		gname*		gversion			gfilenamefice-9/r6rs-libraries.scm�		v	��			C3h �]4L5$L6C�g
import-set
		gfrom		gto			gfilenamefice-9/r6rs-libraries.scm�		^	
��		^	��		^	&��			C	SeM�LA�Dhv]L6ngsym
		gvar		gfilenamefice-9/r6rs-libraries.scm�
	a	��		a	*��			Cv	cDh(�]4L�5$�L6L��6�gpair
		'gfilenamefice-9/r6rs-libraries.scm�
	f	��		g	��	
	g	/��		g	��		g	��		h	��		i	��		h	��	"	j	%��	%	j	0��	'	j	��		'Cv��Ph�/]+45454>"G445>"G4O>"G"z(4	
O>"GC4��5$"
4
��54��>"G�����"���4455"��m'g
import-set
	�gfrom	�gto		�gmod			�giface			Dgiface		D�gin		c�gout		c�gt	��gvar	��
gfilenamefice-9/r6rs-libraries.scm�		_	��			_	��			��			��			��			��			��	'		��	,		��	7		��	D	_	��	G	a	��	c	b	��	i	c		��	j	e	���	n	���	n	5���	n	���	n	���	o	���	o	!���	p	!���	o	���	n	���	q	
���	q	#���	q	
���	r	���	r	!���	r	���	r	
���	b	���	b	���	b	>���	b	��$	�	CPh�]45�C}g
import-set
		g
identifier		gfilenamefice-9/r6rs-libraries.scm�			��	
		��			C	SeM�LAP�D�h~]L4L56vgsym
		gvar		gfilenamefice-9/r6rs-libraries.scm�
	X	��		Y	-��		Y	��			C
hp-]45454>"G445>"G454	O>"GC%g
import-set
		mg
identifier		mgmod				mgiface			Dgiface		D	mgpre		M	mgfilenamefice-9/r6rs-libraries.scm�		U	��			U	��			��			��			��			��			��	'		��	,		��	7		��	D	U	��	G	W	��	M	U	��	P	X	��		m	C3h}]L6ug
import-set
		
g
identifier		
gfilenamefice-9/r6rs-libraries.scm�	
	H	��		
	C	SeM�LA�Dhv]L6ngsym
		gvar		gfilenamefice-9/r6rs-libraries.scm�
	K	��		K	*��			Cv��h(�]4L5$L6L6}gsym
		!gfilenamefice-9/r6rs-libraries.scm�
	L	��		M	��		M	��		N	��		O	��	!	O	��		!CPh�)]45454>"G445>"G4O>"G4	
O45>"GC!g
import-set
	�g
identifier	�gmod			�giface			Dgiface		D�gfilenamefice-9/r6rs-libraries.scm�		I	��			I	��			��			��			��			��			��	'		��	,		��	7		��	D	I	��	G	K	��	`	L	��	l	P	��	w	L	��	�	C3h}]L6ug
import-set
		
g
identifier		
gfilenamefice-9/r6rs-libraries.scm�	
	<	��		
	C	SeM�LADv�h0�]	L4L5$"4L56�gsym
		/gt		-gfilenamefice-9/r6rs-libraries.scm�
	?	��			A	$��		A	 ��	 	B	$��	$	B	+��	*	B	$��	/	@	��		/CP
hp]45454>"G445>"G4O4	5>"GCg
import-set
		ig
identifier		igmod				igiface			Dgiface		D	igfilenamefice-9/r6rs-libraries.scm�		=	��			=	��			��			��			��			��			��	'		��	,		��	7		��	D	=	��	G	?	��	S	D	��	^	?	��		i	C3hr]L�6jgname
		
gname*		
gfilenamefice-9/r6rs-libraries.scm�	
	8	��		
	C	S	i��hr]45�6jgname
		gname*		gfilenamefice-9/r6rs-libraries.scm�		9	��			C3h�]L�6gname
		
gname*		
gversion			
gfilenamefice-9/r6rs-libraries.scm�	
	3	��		
	C�P�h �]4�5456�gname
		gname*		gversion			gfilenamefice-9/r6rs-libraries.scm�		4	��		5	"��		4	��			C3	rP9�h8�]4L�5$$45�$44455
5:�CCC�gcolon-n
		8grest		8gversion			8gfilenamefice-9/r6rs-libraries.scm�		!	
��		!	��		"	��		"	
��		!	��		#	��	"	#	��	%	#	,��	-	#	��	0	#	��	3	#	
��		8	Cu`	s��P	SV	�	�h]LLC		
C	�	��h >]L4L5��C6gname
		grest					CN�h�]444445555545$4	O?"04
5$4O?"
4
56gcolon-n
		{grest		{gversion			{gsrfi-n		 	{gtmp		,	ygtmp		O	vgfilenamefice-9/r6rs-libraries.scm�		$	��		%	��	
	&	��		'	��		'	 ��		'	0��		'	 ��		'	��		%	��	 	$	��	 	$	��	{	)	��
		{	C h�>]Q45"�45"f45"345"45"�45"�4	5"l4
5	"945

$4O
?$

@66	$4O	?$	@"���"���$4O?$@"��t"��p$4?$@"��F"��B$4O?$@"��"��$4O?$@"���"���$4O?$@"���"���$4O?$@"��z"��v$4O?$@"��G"��C6gimport-spec
	�gsym?	�gtmp		�gtmp		�gtmp		-�gtmp		<fgtmp		KBgtmp		Zgtmp		i�gtmp			x�gtmp	
��gfilenamefice-9/r6rs-libraries.scm�
	
��	�gnamegresolve-r6rs-interface�C	SR4Xi	(ZV	�	�3Rh�]�6�gname
		
gname*		
gversion			
gespec			
gispec			
gbody			
gfilenamefice-9/r6rs-libraries.scm�	
�	��		
	CV	�	Sh�]6xg
import-set
		gimport-level		gfilenamefice-9/r6rs-libraries.scm�	�	��			C	Sh v]	45$@6ngim
		gtmp		gfilenamefice-9/r6rs-libraries.scm�
�	��	�	#��		CVhM]LLLDEgfilenamefice-9/r6rs-libraries.scm�	
�	��		

C	�tRhp]6hgid
		grest		gfilenamefice-9/r6rs-libraries.scm�	�	��			CP4vhi]L6agiface
		
gfilenamefice-9/r6rs-libraries.scm�
�	��	
�	 ��		
Cv�hX�]
454OL5$LLL�L645$LLLL�6LL�LL6�gid
		Wgrest		Wgsym				Wgfilenamefice-9/r6rs-libraries.scm�	�	��		�	��	�	��	�	
��	(�	��	,�	��	-�	��	9�	
��	F�	��	H�	��	Q�	��	W�	��
		W	CN�3Rh �]45$6C�gfrom
		gto		grest			gfilenamefice-9/r6rs-libraries.scm�	�	��	�	��	�	��			CVhM]LLLLL6Egfilenamefice-9/r6rs-libraries.scm�	�	��		
C	�P4vhi]L6agiface
		
gfilenamefice-9/r6rs-libraries.scm�
�	��	
�	 ��		
Cv�hp]454OL5$LL�L�L64545$LLL�L�6L�L�LL6gfrom
		ogto		ogin			ogsym				gsym		9	Ggfilenamefice-9/r6rs-libraries.scm�	�	��		�	��	�	��	 �	��	.�	��	2�	��	3�	��	9�	��	<�	��	K�	��	[�	 ��	]�	��	i�	��	o�	��		o	CN�hX�]45$LLO@45$LLO@6�gin
		Rge		Rgr			Rgx			Rgtmp		
	Rgtmp		.	Rgfilenamefice-9/r6rs-libraries.scm�
�	��		R	gnameglp2�Ch0�]OLLQ45LLL6�gfrom
		-gto		-grest			-glp2		
	-gfilenamefice-9/r6rs-libraries.scm�	
�	��		-	Ch��]45$O@45"A45$'4?$LLO@66$"4	?$
LLO@"���"����gspecs
	�ge	�gr		�gx		�gtmp		
�gtmp		*�gtmp		9	qgfilenamefice-9/r6rs-libraries.scm�
�	��	�	gnameglp�CV	�	�	�	�	��	�h8]C0gtmp-bde397a-1b2c
		
		
C	�	�	�	�h8]LL�C0gtmp-bde397a-1b2b
				ChHG]LL�L44L5�	�
�4LLOL5���5��C?ge
		Ggr		Ggx			G		G	CN�	hp�].45OQ4>G	4	5

$O
@	6�gname
		lgname*		lgversion			lgespec			lgispec			lgbody			lgifaces			*glp			*gexports		+	lg
re-exports		+	lgreplacements		+	lgtmp			=	lgtmp	
	H	l
gfilenamefice-9/r6rs-libraries.scm�	�	��	�	
��	�	��	#�	 ��	$�	(��	%�	0��	*�	��	.�	��	=�	��
		l	CN�3Rh�]�6�gname
		
gname*		
gespec			
gispec			
gbody			
gfilenamefice-9/r6rs-libraries.scm�	
�	��		
	C
��

	h(w]45�������Cogname
		!gname*		!gespec			!gispec			!gbody			!		!	C
hh~]45"445$4?$@66$4?$	@"���"���vgstx
		dgtmp		dgtmp			Egfilenamefice-9/r6rs-libraries.scm�
	}	��		dC5	(R4Xi	�ZV�V
hL]CDg
import-set
		gimport-level					Ch �]	45$@C�g
import-set
		gtmp		gfilenamefice-9/r6rs-libraries.scm�
�	��		gnameg	strip-for�CV�
$
(�
)
+
,
-
8h 8]��C0gtmp-bde397a-1b44
				C
<h 9]4455��C1glibrary-reference
				CN�h0�]4545$@6�g
import-set
		-gtmp		-gtmp			-gfilenamefice-9/r6rs-libraries.scm�	�	.��	�	��		-CN�h(n]	45$@6fgstx
		"gtmp		"gfilenamefice-9/r6rs-libraries.scm�
�	��		"C5	�R4Xi
=ZV
NhO]CGgdummy
		gfoo		gbar						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
a
��		"g
macro-typegsyntax-rules�gpatternsgfoogbarC5
=R4Xi
OZV
P
`
a
bh c]���C[gdummy
		gname		gargs			gbody						C
k
l
mhP]CHgdummy
		gname		gval						CN�h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/boot-9.scm�
e	��		9g
macro-typegsyntax-rules�gpatternsgnamegargs�gbody�gnamegvalC5
OR4Xi
nZV
}
~
�h c]���C[gdummy
		gname		gargs			gbody						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
o
��		"g
macro-typegsyntax-rules�gpatternsgnamegargsgbodyg...C5
nR4Xi
�ZV

�hT]��CLgdummy
		gformals		gbody						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
u
��		"g
macro-typegsyntax-rules�gpatternsgformalsgbodyg...C5
�RZ�Dh@]�$�"�$�"4L5L6�gname
		;g
internal-name		;g
external-name		$	;gvar		/	;gfilenamefice-9/boot-9.scm�
�	��	�	*��		�	&��	�	7��	�	��	�	*��	�	&��	�	7��	$�	��	'�	��	/�	��	;�	��
		;Ch �]
45O6�gm
		gnames		gpublic-i				gfilenamefice-9/boot-9.scm�
~
��		��			��	�	��			gnamegmodule-export!�C�RZ�
�
�DhP]�$�"�$�"4L54>"GL6gname
		Pg
internal-name		Pg
external-name		$	Pgvar		/	Pgfilenamefice-9/boot-9.scm�
�	��	�	*��		�	&��	�	7��	�	��	�	*��	�	&��	�	7��	$�	��	'�	��	/�	��	2�	��	8�	,��	>�	��	P�	��		PCh �]
45O6�gm
		gnames		gpublic-i				gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-replace!�C�RZeLAUTM�[DCh�G]	45$"f45445>"G445>"G4>"G4	>"G
456?gmod
	�gt		�giface		}giface��gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��	�	��	�	��	$�	��	/�	��	8�	��	=�	!��	H�	��	Q�	��	W�	��	\�	��	e�	����	����	����	��	�gnamegmodule-export-all!�C
�RZHv
�D
�h`?]�$�"�$�"4L5$!4L5&6L667gname
		`g
internal-name		`g
external-name		$	`gvar		/	`gfilenamefice-9/boot-9.scm�
�	��	�	*��		�	&��	�	7��	�	��	�	*��	�	&��	�	7��	$�	��	'�	��	/�	��	7�	��	:�	"��	F�	��	J�	 ��	N�	��	X�	��	\�	 ��	`�	��		`Ch �]
45O6�gm
		gnames		gpublic-i				gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-re-export!�C�R4Xi	�ZV
�
�
�
�
�
�
�h(?]C7gdummy
		#gname		#		#	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameg...C5	�R4Xi	�ZV
�
�
�
�
�
�
�h(?]C7gdummy
		#gname		#		#	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameg...C5	�R4Xi	�ZV
�
�
�
�
�
�
�h(?]C7gdummy
		#gname		#		#	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameg...C5	�R4Xi
ZV
�h?]�C7gdummy
		gname					CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameg...C5
R4Xi
�ZV
�h?]�C7gdummy
		gname					CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameg...C5
�R�
h g)3L[C]L4L5\C_gval
		gfilenamefice-9/boot-9.scm�
�	��	�	��			
		Ch0�-.,3#4455OC�ginit
		.g	converter		.gfluid		"	.gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	"�	��	"�	��		.gnamegmake-mutable-parameter�C
�R4ei	5h�,3C�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamefice-9/boot-9.scm�
	��			gnamegnoop�C4Li
�>"G4Mi�>"G4Gi
�e
�Ah0&,34545456gmodule
		*gname		*gint1			*gval1			*gint2			*gval2			*gvar			*gval			*gfilenamefice-9/boot-9.scm�
�	��	
�	��	
�	��	�	��	�	��	�	��	'�	��	*�	��			*	gnamegcheck�C>"G4Gi,*
�Ah8%,3445454545>"GCgmodule
		6gname		6gint1			6gval1			6gint2			6gval2			6gvar			6gval			6gfilenamefice-9/boot-9.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	!�	��	,�	��			6	gnamegwarn�C>"G4Gi
�
�
�Hh�,3
$45$""$"	4545	45$ 	&"
4	5�$CC4	5$	CC�gmodule
	�gname	�gint1		�gval1		�gint2		�gval2		�gvar		�gval		�gt		%	?gold		H�gnew			H�gfilenamefice-9/boot-9.scm�
	��		��	
	��		3��		��		��	%	��	4	��	@	��	H	��	M	��	S	!��	U	��	Y	��	a	��	b	��	g	��	m	/��	o	��	p	��	t	��	z
	���
	&���
	���
	��	�	gnamegreplace�C>"G4Gi
��*
�Avh@<,3&/4454545>"G6C4gmodule
		?gname		?gint1			?gval1			?gint2			?gval2			?gvar			?gval			?gfilenamefice-9/boot-9.scm�

	��		��		
��		��		��		��	 	��	-	
��	=	
��
		?	gnamegwarn-override-core�C>"G4Givh�,3$C6�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamefice-9/boot-9.scm�
	��		��		��			gnamegfirst�C>"G4Givh�,36�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamefice-9/boot-9.scm�
	��		��			gnameglast�C>"G4Gi>"G4Gi>"G
�R�
�h �]	45$C6�ghandler-name
		gt		gfilenamefice-9/boot-9.scm�
.	��	/	��	/	��	1	��	1	��		Ch(�]$�$"6C�g
handler-names
		"gfilenamefice-9/boot-9.scm�
,
��	-	��	3	��	3	��	5	��	 .	��		"gnameglookup-duplicates-handlers�C�R4
�i5�R4
�i��h {]445>"GCsg
handler-names
		gfilenamefice-9/boot-9.scm�
<	��	=	��	>	��	=	��		C5R
R�hM]L6Egfilenamefice-9/boot-9.scm�
�	��	�	��		
C.*5h T]45$C456Lgs
		gfilenamefice-9/boot-9.scm�
�	��		C:<_h(i]4L>"GLL6agport
		#gfilenamefice-9/boot-9.scm�
�	��		�	��	�	��		#Ch8i-13444LO5
5>"GCagkey
			4gargs			4gfilenamefice-9/boot-9.scm�
�	��			4
C44`��
�Jh0�]454545445L56�gobjcode
		-gprogram		-gfilenamefice-9/boot-9.scm�
�	��	�	��	�	&��		�	��	
�	��	�	&��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	%�	��	'�	��	+�	��	-�	��		-
C.*5h T]45$C456Lgs
		gfilenamefice-9/boot-9.scm�
�	��		C:<_h(i]4L>"GLL6agport
		#gfilenamefice-9/boot-9.scm�
�	��		�	 ��	�	��		#Ch8i-13444LO5
5>"GCagkey
			4gargs			4gfilenamefice-9/boot-9.scm�
�	��			4
C	h�H]44LL5545$_454M5�$"'454M5�$454M5�"$OO6CC@gext
	�g	candidate	�ggostat		�gt		3	jgfilenamefice-9/boot-9.scm�
�	
��	�	��	�	,��	�	��	�	��	�	��	�	��	$�	��	%	��	,	��	3	��	3	��	A�	��	H�	#��	O�	
��	S�	��	T�	��	[�	��	b�	
��	n�	����	��	�Ch_]LLO6Wgdir
		gfilenamefice-9/boot-9.scm�
�	��	�		��		CThM]L6Egfilenamefice-9/boot-9.scm�
�	
��	�	!��		
ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	
��			


CT`.�92���* J�"#$%&
hX�] $"4L5"�$445LL>"G"$�4>"G445L>"G44	4
55L
455445>"G4
54
54	544	556C$y454M5�$"'454M5�$454M5�"$+4
54
54	544	5L56"���"��Õggostat
	Xgcfn��gobjcode	��gprogram	��gt�!gobjcode3Pgprogram	3Pgfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	!�	
��	"�	��	%�	��	+�	��	4�	��	F�	
��	G�	��	W�	��	Z�	��	`�	.��	g�	��	p�	��	q�	��	t�	��	x�	$��	z�	��	|�	��	~�	����	����	����	����	����	����	0����	����	����	&����	����	����	&����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	���	����	����	#���	
��
�	���	���	���	
��%�	��&�	��*�	&��,�	��-�	��1�	&��3�	��3�	��8�	��>�	��@�	��A�	��B�	��H�	��J�	��N�	��P�	��K	X
C.*5h T]45$C456Lgs
		gfilenamefice-9/boot-9.scm�
�	��		C:<'_h(i]4L>"GLL6agport
		#gfilenamefice-9/boot-9.scm�
�	��		�	��	�	��		#Ch8i-13444LO5
5>"GCagkey
			4gargs			4gfilenamefice-9/boot-9.scm�
�	��			4
Ch h]LLOLO6`ggo-file-name
		gfilenamefice-9/boot-9.scm�
�	��	�	��		C
h�]$o445$"
44
55$";45&.4	5$4
4
54	55""M5"LLO6�gcanon
	�gfilenamefice-9/boot-9.scm�
�	
��	
�	��	�		��	g	��	g	��	 h	��	#h	!��	,h	��	0f	��	7j	��	=j	.��	Af	��	Bk	��	Lj	��	Mo	��	Rp	��	[q	��	eo	��	u�		����	��	�C#���hM]L6Egfilenamefice-9/boot-9.scm�
�	
��	�	��		
Ch�8]H4OO5KJ$D4LO5$"44O	5
LO5"$ $4>"G"6
O60g
abs-file-name
	�gscmstat	�gt		1	agcompiled		f�gfilenamefice-9/boot-9.scm�
�	��	�	��	!�	��	"�	��	1�	!��	@�	��	C�	
��	^�	��	f�	��	n�	��	t�	��	u�	����	����	����	
��	�gnameg
load-absolute�C.,()�*+2��h`�]LY4L5$4LL>7"14L5$4L4LL5>"44LL5>ZCZF�gfilenamefice-9/boot-9.scm�
�	��	
�	5��	
�		��	�	��	�		��	&�		��	0�	��	1�		��	4�	��	A�		��	F�		��	I�	��	V�		��		Z
C	hx'-.,3#HOQ�$"4�5$4>"G"�KO6gdir
		wg	file-name		wgreader			wgcompiled-extension			wg
load-absolute		!	wgt		+	Cgfilenamefice-9/boot-9.scm�
\
��	+v	��	+v	��	9w	��	>w	��	@w	��	Gv	��	Hx	��	Lx	��	Sx	��	]z	��	d{	��	w�	��		w	gnamegload-in-vicinity�g
documentationf�Load source file FILE-NAME in vicinity of directory DIR.  Use a
pre-compiled version of FILE-NAME when available, and auto-compile one
when none is available, reading FILE-NAME with READER.�C,R4XiZ4-iQ�.V�NXhW]L$L"��COgarg
		gfilenamefice-9/boot-9.scm�	
	 ��		CRhV]6Ngid
		gfilenamefice-9/boot-9.scm�		
��		Cefghqrh(V]L$L"���CNgid
		!gfilenamefice-9/boot-9.scm�	
	(��		!CN�
h�])45$
45"45$45"45$O@4	?$
O@6gx
		|gsrc			|gfile			|gdir		8	|gtmp		C	|gtmp		[	|gfilenamefice-9/boot-9.scm�
	��		��			��		��		��		)��		��		��	"	��	,	��	-	%��	8	��
		|C55R��R4ci	5�RZB��Eh0�]
45$44556C�gmodule
		,gfeatures		,gmod				,gfilenamefice-9/boot-9.scm�
K
��	L	
��		L	��	M	��	O	��	O	��	"O	?��	$O	��	(O	��	*N		��		,	gnamegcond-expand-provide�C�R4Xi�ZV�3hU]L6Mgc
		
gfilenamefice-9/boot-9.scm�	
\		��		
C�4hU]L6Mgc
		
gfilenamefice-9/boot-9.scm�	
^		��		
C�hU]4L5�CMgc
		gfilenamefice-9/boot-9.scm�	`	
��		CRhU]6Mgc
		gfilenamefice-9/boot-9.scm�	b		��		CP�4E�hz]L456rgmod
		gfilenamefice-9/boot-9.scm�
U	��	V	��	V	<��	V	��	V	��		CEh8�]4545$C45O456�gc
		3gsym			3gmod			3gfilenamefice-9/boot-9.scm�	c	��		c		��	d	��	d	��	f	$��	f	��	+W	��	3U	��			3CN�hx�]!45$LO@45$LO@45$LO@4?$	@
6�g	condition
		wgtmp		wgtmp		'	wgtmp		C	wgtmp		[	wgfilenamefice-9/boot-9.scm�
Y	��		wgnamegcondition-matches?�CVV�h �]4L5$�CLL6�g	condition
		gform		grest			gfilenamefice-9/boot-9.scm�	k	
��	
k		��	m	
��			ChE]L6=gfilenamefice-9/boot-9.scm�	n	��		
CN�hH�]45$LLO@45$O@6�gclauses
		Fg	alternate		Fgtmp			Fgtmp		*	Fgfilenamefice-9/boot-9.scm�
h	��		F	gnamegmatch�CV��hD]L�C<gfilenamefice-9/boot-9.scm�
s		��		
Chl]LO6dgclause
		gform		gfilenamefice-9/boot-9.scm�	r	��			C�N��h_]L6Wgfilenamefice-9/boot-9.scm�
w		��	x	��	x	*��	x	��		
ChZ]LLO6Rgclause
		gfilenamefice-9/boot-9.scm�	v	��		CN�
hh�]!OOQQ45$O@45$
O@	6�gx
		bgcondition-matches?		bgmatch			bgtmp		(	bgtmp		D	bgfilenamefice-9/boot-9.scm�
S	��		bC5�R�	8u`	s+h �]444555C�gnum
		gfilenamefice-9/boot-9.scm�
	��	�	��	�	��	�	��	�	,��	
�	4��	�	��	�	��	�	��	�	
��		Ch]456wgsrfis
		gfilenamefice-9/boot-9.scm�
}
��		��	~	��		gnameg	use-srfis�C�R4Xi�ZV��N�Rhi]6agtype
		garg		gfilenamefice-9/boot-9.scm�	�	��			CN��h{]L6sgtype
		garg		gfilenamefice-9/boot-9.scm�	�	��	�	,��	�	��			C3Ph^]456Vgn
		gfilenamefice-9/boot-9.scm�	�	��	�	��		CO��hx]L456pgn
		gfilenamefice-9/boot-9.scm�
�	��	�	%��	�	4��	�	%��	�	��		Cu+PV���h8]C0gtmp-bde397a-1e89
		
		
Ch.]45�C&gsrfi-n
				CN�hH�]4LO444555545$@	
6�gn
		Egtmp	#	Egtmp		.	Egfilenamefice-9/boot-9.scm�	�	
��	
�	��	�	��	�	+��	�	��	!�	��	#�	
��	#�	��			EC
hxu]45"<45"	6$4?$O@"���"���$4?$	O@"���"���mgx
		qgtmp		qgtmp			Mgfilenamefice-9/boot-9.scm�
�	��		qC5�R4Xi�Zu�V�N�Rh]6wgname
		gformals		gbody			gfilenamefice-9/boot-9.scm�	�	��			CO�P�SV������������h�F]L�LL��L	
�LLL���
L��
C>g	proc-name
	�gargs	�	�	CN�hP�]44M45554545$O@	
6�gname
		Ngformals		Ngbody			Ngtmp		#	Ngtmp		.	Ngfilenamefice-9/boot-9.scm�	�	��	�	��	
�	+��	�	$��	�	��	�	��	�	!��	#�	��			N	C	hP�]H45K45"	6$4?$O@"���"����gx
		Jgprefix		Jgtmp			Jgfilenamefice-9/boot-9.scm�
�	��	�	��	
�	#��	�	��		JC5�R4
i54JihD]L[C<gfilenamefice-9/boot-9.scm�
�	��		
COhT]L\CLgv
			gfilenamefice-9/boot-9.scm�
�	��			CO5	R4�i�i4�i5>"G4�i�i4�i
5>"G4�i�54�i>"G�i4Mi54iv�Dh0�]	4L54L>"GL6�gsym
		+gv		+gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�		��	+�		��		+CO>"G4�i>"G4���54>"GC+%g%default-prompt-tag
�Kg%running-exception-handlers
D�g%exception-handlerD�gcustom-throw-handler	��gnext-id
-�.�gexception-printers
�V�Ogprint-location�1�Lgscm-error-printer
��Šgs
���grtd
J�M"grtd
M�Nigrtd
NrOgrtd
O#O�grtd
O�Pbgrtd
PkQgrtd
Q
Q�grtd
Q�RQgrtd
RZSgrtd
SS�grtd
S�Tbgrtd
TkUgrtd
U
U�grtd
U�VQgrtd
VZWgrtd
WW�grtd
W�XAgrtd
XJX�grtd
X�Y�grtd
Y�Z1grtd
Z:Z�grtd
Z�[�grtd
[�\2grtd
\;\�grtd
\�]�grtd
]�^!grtd
^*^�grtd
^�_qgrtd
_z`"grtd
`+`�grtd
`�argm
����gm
��tgaccessor
���groot
�]�.gm
��vgnoop��sgusing-readline?
��gm
���gfrom
��gto��gm
�6�N3gfilenamefice-9/boot-9.scm�		+	��	
	+
��		,	��		,	��		,	���	6
���	<	���	<	��N	:
���	@
��>	B
��B	I
���	W	&���	W	2���	W	&���	X	���	o	����	����	����
���
���
��!�	��&�
��U�
��\
���
�� �
��!t
��"7&
��"�.
��$)=
��%^J
��%eU
��'qY
��)dd
��*;o
��*�v
��+�x
��,�z
��-�
��-��	��.��
��.��
��/>�
��/B�
��/F�
��/J�
��/N�
��/R�
��/V�
��/Z�
��/^�
��/b�
��/c�
��/i�	��/n�
��q�U
�����
���
���
���TJ
����S
���[
���3q
���Y�
���R�
���P�
���U�
���V�	���V�
�����	���I�	����	����	����	����	����	����	����	����	���	���&	���.	���5	���>	���F	���M	���V	���^	���e	���n	���v	���}	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	���
	���	���	���%	���.	���6	���=	���F	���N	���U	���^	���f	���m	���v	���}	����	����!	����!	���N!	���W#	���_#	���#	���mM
���tM		���yM
���\a
���c
��њm
���s
���y
���
}
����
����
���i�
��ު�
����
���	�
����
����
����	����	����	>����	����	����	���	����	����	�����
���
���
��sJ
��^O
��BT
��v_
���b
���i
��
�r
��Y{
��1~
��2�
��9�		��>�
����
��
��
��_�
���
��;�
��<�
��C�	��H�
��Q�	��X�	��Z�	��^�
��_�	��f�	��k�	��x�	���	����	����	����
����	����	����	����	����
��v�
���
����
��%�
����
��6�
����
��F�
����
��V�
����
��p�
����
����
��J�
����
�� ��
��!B�
��!��
��"��
��#;�
��#��
��$��
��%3�
��%��
��&P�
��&��
��'q�
��(�
��(

��(�
��*"
��+
��,�
��-�
��.�$
��0+
��0�6
��2�9
��4�F
��5�S
��6�W
��7�\
��8*x	��8-{	(��81{	��8�}	��:��
��;	�
��=��
��@$�
��B��
��Dj�
��E
�
��F��
��F��
��F��	��F��
��F��
��J.]
��J6�	��d+�
��e
��f
��g�#
��g�+
��g�,	%��g�,	1��g�,	%��g�,
��g�-	%��g�-
��h�/
��ne7
��pVE
��q�f
��r�y
��s��
��t��
��us�
��v]�
��w/�
��x�
��x��
��zI�
��{��
��}a�
��~�	
���,	
���	(
����	,
����	4
���_	7
����	@
���|	E
����	P����	Z���[	h
����	~
���	�
���g	�
���\	�
���	�
����	�
���x	�
���K

���&

����

���Z
&
���f
/
���
A
����
D
���
G
���.
J
����
M
����
P
����
g	����
g	����
h	����
h	����
h	����
i	����
i	����
i	����
m	����
m	"����
m	���
f
���
u	���
u	���
v	���
v	���!
v	���*
w	���3
w	���8
w	���A
x	���K
x	���P
x	���Y
{	���x
t
���y

����
�
���x
�
���}
�
����
�
����
�
����
�
����
�
����
�	����
�	/����
�	����
�	���
�
����
�
���M
�
����
�
����
�
���U
�
���V
�	���]
�	���`
�	���h
�	���m
�	���v
�	���
�	#����
�	���1
�
����
����
����"
���,K
���K{
�����
�����	����
��ݨ�
����
���	���
���9	
���<;	���@;
���t=
���B
���I
����O
���{�
�����
����
��I�
��Q�	,��T�	��X�
��Y�
��f�	%��k�
��	��
��
q�
��2�
��3�
��7�
���
	��s

	��C
	��
	���
	���
	)���
	���

���
%	���
%	!���
%	���
%
���
+
��
2
��&
5
��.
8
���
:
���
=	���
=
���
>	���
>
���
?	��
?
��	
@	��
@
��
A	�� 
A
��!
C	��,
C
��-
D	��8
D
��9
E	��E
E
��F
F	��R
F
��S
G	��_
G
��`
H	��l
H
��m
L	��x
L
��g
P
���
q
��!P
�
��Nm$
��gfilenamefice-9/r6rs-libraries.scm�|	
��gfilenamefice-9/boot-9.scm��~
�����
�����
���A�
����
����	����	��� 	���# 	���( 	���1!	���;!	���@!	���I"	���R"	����"	����#	����#	���Z#	���c$	���l$	���$	���&%	���/%	����%	����&	����&	���&	���'	��� '	���4'	���=(	���F(	���M(	���V)	���_)	���f)	���z�
���7,
���88	���D7
���E;	���M;	����;	���:
���Y	���W
����\
�����	���7.	���;*
���<F	���IF
��֌K
���K}
����	����	����	����
��������	����	0����	��������
����	�����	/�����	�����
�����
���	�	#����	3����	#����	����	�����	����	����	���
�	����	����
��	�P
C6ice-9/top-repl.go000064400000007020150536206130007543 0ustar00GOOF----LE-8-2.0�
]C4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gtop-repl�	�		gfilenameS�	
fice-9/top-repl.scm�	gimportsS�	�	
gsystem�	grepl�	
�	gselectS�	g
start-repl�	�	�	�	greplacementsS�	�	gset-current-module�	�	�	g	provided?�	gposix�	g	sigaction�	gSIGINT�	g	scm-error�	gsignal�	 fUser interrupt�	!gcall-with-sigint�	"gresolve-module�	#g
guile-user�	$#�	%gprocess-use-modules�	&gappend�	'gr5rs�	('�	)(�	*gsession�	+*�	,+�	-),�	.gregex�	/.�	0/�	10�	2gthreads�	32�	43�	54�	6gdefined?�	7g	setlocale�	8gcatch�	9gsystem-error�	:gLC_ALL�	;f�	<gformat�	=gcurrent-error-port�	>f'warning: failed to install locale: ~a~%�	?gstrerror�	@gcurrent-language�	Agrun-hook�	Bg	exit-hook�C5h	�]4	
54>"G4i5$ h]6wgsig
		gfilenamefice-9/top-repl.scm�
	$	��		%	#��			%	.��	
	%	?��		&	#��		%	��		ChU]45NCMgfilenamefice-9/top-repl.scm�
	!	��		#	��	
	"	��		
Ch m]M$M�M�66egfilenamefice-9/top-repl.scm�
	(	��		)	��		+	$��		+	2��		+	��		-	��		
Ch m]M$M�M�66egfilenamefice-9/top-repl.scm�
	(	��		)	��		+	$��		+	2��		+	��		-	��		
Ch m]M$M�M�66egfilenamefice-9/top-repl.scm�
	(	��		)	��		+	$��		+	2��		+	��		-	��		
Ch`}]	HOO4O>"GV4>X4O>"GCX4O>"GFugthunk
		_ghandler		_gfilenamefice-9/top-repl.scm�
		��			��		 	
��		_C"xha]6Ygthunk
		gfilenamefice-9/top-repl.scm�
		��			��		C!R"$%&-.125!67897:;hU]6Mgfilenamefice-9/top-repl.scm�
	D	��		E	"��	
	E	��		

C<=>?h�]454�56�gkey
		gsubr		gfmt			gargs			gerrno			gfilenamefice-9/top-repl.scm�
	F	��		G	��		H	��		I	��		I	"��		I	��		G	��			C@ABhH�]45$4>"G"44554	
>"GC�gstatus
	1	Hgfilenamefice-9/top-repl.scm�
	A	��		B	��		B	��			B	��	
	B	��		C	��		C	��		C	��	(	K	��	+	K	!��	1	K	��	1	K	��	4	L		��		H
Ch`1]454>"G4445$	"4
5$"5>"G
6)gguile-user-module
			^gfilenamefice-9/top-repl.scm�
	/
��		0	��		0	+��			0	��			0	��		4	��		5	��	!	6	��	%	7	��	&	9	
��	*	9	��	,	9	
��	0	9	��	2	:	
��	7	;	
��	8	<	
��	<	<	��	>	<	
��	B	<	��	D	=	
��	I	>	
��	K	6	��	P	5	��	^	@	��		^
gnamegtop-repl�CRC~gm
		,gfilenamefice-9/top-repl.scm�		
��	-		��	3		��	5		��	9		���	
��		/
��		
C6ice-9/lineio.go000064400000005306150536206130007265 0ustar00GOOF----LE-8-2.0�
]$4hQ]gguile�	�	gdefine-module*�	�	�	gice-9�	glineio�	�		gfilenameS�	
fice-9/lineio.scm�	gimportsS�	grdelim�	
�	
�	�	gexportsS�	g
unread-string�	gread-string�	glineio-port?�	gmake-line-buffering-input-port�	�	gset-current-module�	�	�	gobject-property�	gmake-soft-port�	g
string-ref�	g
string-length�	g	substring�	g	read-char�	g
close-port�	 fr�	!gset-object-property!�	"g	read-line�	#gconcat�C5h�t]4	
54>"Gh�]456�gstr
		gline-buffering-input-port		gfilenamefice-9/lineio.scm�
	8
��		9	��			9	.��		9	��		9	��			gnameg
unread-string�CRh�]456�gline-buffering-input-port
		
gfilenamefice-9/lineio.scm�
	<
��		=	��			=	.��		=	��	
	=	��		
gnamegread-string�CRh�]45��C�gport
		gfilenamefice-9/lineio.scm�
	@
��		A	��			A	"��		A	��		A	��	
	A	��		gnameglineio-port?�CRh@�]M$14M�
54M�5�$	M�N"M4M�5�CL6�gc
		9gfilenamefice-9/lineio.scm�
	T	��		U	��			W	��		W	*��		W	��		W	��		X	 ��		X	/��		X	 ��		X	��	!	X	��	$	Y	)��	&	Y	��	-	Z	-��	2	Z	8��	5	Z	-��	6	Z	��	?	V	��		?
gnameggetc�Chg]L6_gfilenamefice-9/lineio.scm�
	]	��		]	%��		
gnamegpropogate-close�C !h �]
45�$	M�NCC�gstr
		gfilenamefice-9/lineio.scm�
	a	��		b	$��		b	��		b	��		c	1��		c	#��		gnameg
unread-string�C"#h �]M(L6M�M�NC�ganswer
		gfilenamefice-9/lineio.scm�
	e	��		f	��		l	4��		l	��		h	'��		h	��		i	)��		i	��			
gnamegread-string�C
h`]H4OO54O>"G4	O>"GCgunderlying-port
		_gbuffers		_gself		"	_gfilenamefice-9/lineio.scm�
	K
��		O	��		L	��		_	��		_	��	 	_	F��	"	_	��	"	L	��	%	n	��	+	n	��	7	n	��	@	o	��	F	o	��	T	o	��		_gnamegmake-line-buffering-input-port�CRClgm
		,gfilenamefice-9/lineio.scm�		
��	8
���	<
���	@
���	K
��	�
C6ice-9/calling.go000064400000026032150536206130007416 0ustar00GOOF----LE-8-2.0,]m4h]gguile�	�	gdefine-module*�	�	�	gice-9�	gcalling�	�		gfilenameS�	
fice-9/calling.scm�	gexportsS�	gwith-excursion-function�	
gwith-getter-and-setter�	gwith-getter�	g!with-delegating-getter-and-setter�	g with-excursion-getter-and-setter�	g$with-configuration-getter-and-setter�	g/with-delegating-configuration-getter-and-setter�	g(let-with-configuration-getter-and-setter�	
�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	g_�	 gany�	! ��	"g
syntax->datum�	#"�	$"�	%g
datum->syntax�	&%�	'%�	(gexcursion-function-syntax�	)gsyntax-violation�	*)�	+)�	,f-source expression failed to match any pattern�	-ggetter-and-setter-syntax�	.g#delegating-getter-and-setter-syntax�	/gmap�	0ggensym�	1ftemp�	2fswap�	3fthunk�	4glambda�	5gletrec�	6�	7gbegin�	8gset!�	9gdynamic-wind�	:fargs�	;fan-arg�	<f	new-value�	=floop�	>gsymbol->keyword�	?glet�	@gif�	Agnull?�	Bgquote�	CB�	Dgall-vals�	Egvals�	FED�	Ggkws�	HAE�	Ig
quasiquote�	Jgunquote�	Kgcar�	LKG�	MJL�	NKE�	OJN�	Pgunquote-splicing�	Qgcdr�	RQE�	SQG�	TRS�	Ugcase�	Vgappend�	Wgelse�	Xgthrow�	Ygbad-get-option�	ZBY�	[gor�	\gcadr�	]gbad-set-option�	^B]�	_gcddr�	`gappend!�	agsimpler-get�	bgsimpler-set�	cg	body-proc�	dabc�	eabc�	f4de�	ggkw�	hg�	iglist�	jgnew-val�	kgj�	lj�C5h�#p]4	
54>"G4!$'(hx]45Cpgvars
		gproc		gfilenamefice-9/calling.scm�
	/
��		0	��		0	��			Che]	45L4?6]gargs
		gv			gfilenamefice-9/calling.scm�		/
��		C+,h(c]	45$O@6[gy
		'gtmp		'gfilenamefice-9/calling.scm�
	/
��		'C5R4
!$'-hx]45�Cpgvars
		
gproc		
gfilenamefice-9/calling.scm�
	\
��		]	
��		]	��		
	Che]	45L4?6]gargs
		gv			gfilenamefice-9/calling.scm�		\
��		C+,h(c]	45$O@6[gy
		'gtmp		'gfilenamefice-9/calling.scm�
	\
��		'C5
R4!$'-h�]45�Cxgvars
		gproc		gfilenamefice-9/calling.scm�
	d
��		e	��		e	��		e	��			Che]	45L4?6]gargs
		gv			gfilenamefice-9/calling.scm�		d
��		C+,h(c]	45$O@6[gy
		'gtmp		'gfilenamefice-9/calling.scm�
	d
��		'C5R4!$'.h�]45�C�gvars
		gget-delegate		gset-delegate			gproc			gfilenamefice-9/calling.scm�
	u
��		v	
��		v	��			Che]	45L4?6]gargs
		gv			gfilenamefice-9/calling.scm�		u
��		C+,h(c]	45$O@6[gy
		'gtmp		'gfilenamefice-9/calling.scm�
	u
��		'C5R4!$'(-h�]4545��C|gvars
		gproc		gfilenamefice-9/calling.scm�
�
��	�	��	�	
��	�	��			Chf]	45L4?6^gargs
		gv			gfilenamefice-9/calling.scm�	�
��		C+,h(d]	45$O@6\gy
		'gtmp		'gfilenamefice-9/calling.scm�
�
��		'C5R/012345678h(n]LLCfgn
		#gsn		#gfilenamefice-9/calling.scm�
�	$��	�	&��		#	Chn]Cfgsn
		
gn		
gfilenamefice-9/calling.scm�
�	��		�	'��		
	C9hpw]!45454545�4	O5��4
5��Cogvars
		ogsaved-value-names	 	ogtmp-var-name		 	ogswap-fn-name		 	og
thunk-name		 	ogfilenamefice-9/calling.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	��	 �	��	*�	��	<�	��	L�	��	Q�	��	\�	��		ognamegexcursion-function-syntax�C(R0:;<=/>4?@ACDBFGHIMOPT/UVhn]Cfgkw
		
gv		
gfilenamefice-9/calling.scm�
�	(��	�	7��		
	CWXZ[QK\8hn]LCfgkw
		gv		gfilenamefice-9/calling.scm�
�	#��	�	2��			C^_%hx])4545454545	
("P	
	
�4455��		 !44"O5#5��$Cgvars
	ug	args-name	'ugan-arg-name		'ugnew-val-name		'ug	loop-name		'ugkws		'ugfilenamefice-9/calling.scm�
�
��	�	��	�	��		�	��	
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	
��	'�	��	3�	
��	R�	��	T�	��	Z�	����	
����	"����	#����	#����	"����	
����	
��2�	��5�	��F�	��W�	��X�	
��t�	��!	ugnameggetter-and-setter-syntax�C-R0:;<=/>4?@A`CDBFGHIMOPT/UVhn]Cfgkw
		
gv		
gfilenamefice-9/calling.scm�
�	(��	�	7��		
	CWK[Q\8hn]LCfgkw
		gv		gfilenamefice-9/calling.scm�
�	#��	�	2��			C_#h�Z]+4545454545	
(
"P		

�4455��		 44!O55��"CRgvars
	�gget-delegate	�gset-delegate		�g	args-name		'�gan-arg-name		'�gnew-val-name		'�g	loop-name		'�gkws		'�gfilenamefice-9/calling.scm�
�
��	�	��	�	��		�	��	
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	
��	'�	��	3�	
��	T�	��	V�	��	\�	����	
����	"����	#����	#����	"����	
����	
��?�	��B�	��S�	��d�	��e�	
����	��!	�	gnameg#delegating-getter-and-setter-syntax�C.R4!$'f4hUg/>ih8�]	4�5��$	"�C�gv
		1gt		-gfilenamefice-9/calling.scm�
	��		��		0��	
	��	
	��	
	 ��			��	$	0��	'	8��	*	0��	0	��		1Ck>l8h8�]	4�5���$	�"	���C�gv
		3gt		/gfilenamefice-9/calling.scm�
	��		��		0��	
	��	
	��		 ��		��		B��	%	0��	(	8��	*	0��	2	��
		3C
h8�]45��4	5��C�gvars-etc
		6gproc		6gfilenamefice-9/calling.scm�

��		��	
	
��		��	#	
��	,	��		6	Chf]	45L4?6^gargs
		gv			gfilenamefice-9/calling.scm�	
��		C+,h(d]	45$O@6\gy
		'gtmp		'gfilenamefice-9/calling.scm�

��		'C5R4!$'f4hUg`/>ih8�]	4�5��$	"�C�gv
		1gt		-gfilenamefice-9/calling.scm�
	��		(��		9��	
	(��	
	$��	!	)��	 	'��	$"	8��	'"	@��	*"	8��	0	$��		1CWk>l8h8�]	4�5���$	�"	���C�gv
		3gt		/gfilenamefice-9/calling.scm�
(	��	(	(��	(	9��	
(	(��	
(	$��	*	)��	)	'��	*	J��	%+	8��	(+	@��	*+	8��	2(	$��
		3Ch`]445	�5��
445	
�5��C�gvars-etc
		Zgdelegate-get		Zgdelegate-set			Zgproc			Zgfilenamefice-9/calling.scm�

��		��	
	
��		��	$	��	'	
��	(	��	5(	
��	8(	��	B-	��	O(	
��	P	��
		Z	Chf]	45L4?6^gargs
		gv			gfilenamefice-9/calling.scm�	
��		C+,h(d]	45$O@6\gy
		'gtmp		'gfilenamefice-9/calling.scm�

��		'C5R4!$'?/hp]���Chgv
		
gfilenamefice-9/calling.scm�
C	��	C	��	C	&��	C	��		
Chy]��������Cqgv
		gfilenamefice-9/calling.scm�
D	1��	D	@��	D	I��	
D	T��	D	=��		Ch(�]4545C�gvars-etc
		!gproc		!gfilenamefice-9/calling.scm�
B
��	C	��	C		��	C	��	D	,��	C	��		!	Chf]	45L4?6^gargs
		gv			gfilenamefice-9/calling.scm�	B
��		C+,h(d]	45$O@6\gy
		'gtmp		'gfilenamefice-9/calling.scm�
B
��		'C5RChgm
		(gfilenamefice-9/calling.scm�		
����
���
��]�
��	#�
C6ice-9/safe-r5rs.go000064400000011420150536206130007607 0ustar00GOOF----LE-8-2.0�]�4hS]gguile�	�	gdefine-module*�	�	�	gice-9�	g	safe-r5rs�	�		gfilenameS�	
fice-9/safe-r5rs.scm�	gexportsS�	gnull-environment�	
�	g
re-exportsS�	geqv?�	geq?�	gequal?�	gnumber?�	gcomplex?�	greal?�	g	rational?�	ginteger?�	gexact?�	ginexact?�	g=�	g<�	g>�	g<=�	g>=�	gzero?�	g	positive?�	 g	negative?�	!godd?�	"geven?�	#gmax�	$gmin�	%g+�	&g*�	'g-�	(g/�	)gabs�	*gquotient�	+g	remainder�	,gmodulo�	-ggcd�	.glcm�	/g	numerator�	0gdenominator�	1grationalize�	2gfloor�	3gceiling�	4gtruncate�	5ground�	6gexp�	7glog�	8gsin�	9gcos�	:gtan�	;gasin�	<gacos�	=gatan�	>gsqrt�	?gexpt�	@gmake-rectangular�	Ag
make-polar�	Bg	real-part�	Cg	imag-part�	Dg	magnitude�	Egangle�	Fgexact->inexact�	Gginexact->exact�	Hgnumber->string�	Igstring->number�	Jgboolean?�	Kgnot�	Lgpair?�	Mgcons�	Ngcar�	Ogcdr�	Pgset-car!�	Qgset-cdr!�	Rgcaar�	Sgcadr�	Tgcdar�	Ugcddr�	Vgcaaar�	Wgcaadr�	Xgcadar�	Ygcaddr�	Zgcdaar�	[gcdadr�	\gcddar�	]gcdddr�	^gcaaaar�	_gcaaadr�	`gcaadar�	agcaaddr�	bgcadaar�	cgcadadr�	dgcaddar�	egcadddr�	fgcdaaar�	ggcdaadr�	hgcdadar�	igcdaddr�	jgcddaar�	kgcddadr�	lgcdddar�	mgcddddr�	ngnull?�	oglist?�	pglist�	qglength�	rgappend�	sgreverse�	tg	list-tail�	uglist-ref�	vgmemq�	wgmemv�	xgmember�	ygassq�	zgassv�	{gassoc�	|gsymbol?�	}gsymbol->string�	~gstring->symbol�	gchar?��gchar=?��gchar<?��gchar>?��gchar<=?��gchar>=?��g	char-ci=?��g	char-ci<?��g	char-ci>?��g
char-ci<=?��g
char-ci>=?��gchar-alphabetic?��g
char-numeric?��gchar-whitespace?��gchar-upper-case?��gchar-lower-case?��g
char->integer��g
integer->char��gchar-upcase��g
char-downcase��gstring?��gmake-string��gstring��g
string-length��g
string-ref��gstring-set!��gstring=?��gstring-ci=?��gstring<?��gstring>?��g	string<=?��g	string>=?��gstring-ci<?��gstring-ci>?��gstring-ci<=?��gstring-ci>=?��g	substring��g
string-append��gstring->list��glist->string��gstring-copy��gstring-fill!��gvector?��gmake-vector��gvector��g
vector-length��g
vector-ref��gvector-set!��gvector->list��glist->vector��gvector-fill!��g
procedure?��gapply��gmap��gfor-each��gforce��gcall-with-current-continuation��gvalues��gcall-with-values��gdynamic-wind��geval��ginput-port?��goutput-port?��gcurrent-input-port��gcurrent-output-port��gread��g	read-char��g	peek-char��geof-object?��gchar-ready?��gwrite��gdisplay��gnewline��g
write-char�� !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~�����������������������������������������������������������������������������gset-current-module��������gresolve-interface��gnull�����gnull-interface��gmodule-use!��gmodule-public-interface��gcurrent-module��g	scm-error��g
misc-error��f~A is not a valid version��gmake-module��gset-module-kind!��g	interface�C5h��]4	

�54�>"G4�i�5�R4�i4�i4�i55�i>"G��������
h`]		�$"4>"G4	54>"G4	>"GCgn
		_g	interface	2	_gfilenamefice-9/safe-r5rs.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	,�	��	2�	��	5�	��	;�	 ��	@�	��	I�	��		_gnamegnull-environment�CRC�gm
		,gfilenamefice-9/safe-r5rs.scm�		
��	-�	��	3�	*��	5�	��	8�
��	9�
��	>�	
��	C�	&��	K�	
��	T�
����
��	�
C6ice-9/string-fun.go000064400000020622150536206130010100 0ustar00GOOF----LE-8-2.0z!]-4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	g
string-fun�	�		gfilenameS�	
fice-9/string-fun.scm�	gexportsS�	gsplit-after-char�	
gsplit-before-char�	gsplit-discarding-char�	gsplit-after-char-last�	gsplit-before-char-last�	gsplit-discarding-char-last�	gsplit-before-predicate�	gsplit-after-predicate�	gsplit-discarding-predicate�	gseparate-fields-discarding-char�	gseparate-fields-after-char�	gseparate-fields-before-char�	gstring-prefix-predicate�	gstring-prefix=?�	gsans-surrounding-whitespace�	gsans-trailing-whitespace�	gsans-leading-whitespace�	gsans-final-newline�	ghas-trailing-newline?�	
�	 gset-current-module�	! �	" �	#gstring-index�	$g
string-length�	%g	substring�	&f�	'g
string-rindex�	(g
string-ref�	)greverse�	*gstring=?�	+gchar-whitespace?�	,gchar=?�C5h ]4	
54">"G#$%h@�]45$�"454
5456�gchar
		=gstr		=gret			=gt			$gend		$	=gfilenamefice-9/string-fun.scm�
	a
��		c	��		b	
��		d	��	$	b	��	)	e		��	3	f		��	=	e	��			=	gnamegsplit-after-char�CR#$%h@�]45$"454
5456�gchar
		<gstr		<gret			<gt			#gend		#	<gfilenamefice-9/string-fun.scm�
	h
��		i	��		i	
��		j	��	#	i	��	(	k		��	2	l		��	<	k	��			<	gnamegsplit-before-char�C
R#%&h8�]45$4
54�566�gchar
		3gstr		3gret			3gend			3gfilenamefice-9/string-fun.scm�
	n
��		o	
��		o	��		p	��		r	
��	 	s	
��	'	s	��	)	s	
��	+	r	��	1	q	��	3	q	��		3	gnamegsplit-discarding-char�CR'%h8�]45$�"
4
5456�gchar
		7gstr		7gret			7gt			gend			7gfilenamefice-9/string-fun.scm�
	u
��		w	��		v	
��		v	��	#	y		��	-	z		��	7	y	��		7	gnamegsplit-after-char-last�CR'%h8�]45$"
4
5456�gchar
		6gstr		6gret			6gt			gend			6gfilenamefice-9/string-fun.scm�
	|
��		}	��		}	
��		}	��	"	~		��	,			��	6	~	��		6	gnamegsplit-before-char-last�CR'%&h8]45$4
54�566gchar
		3gstr		3gret			3gend			3gfilenamefice-9/string-fun.scm�
�
��	�	
��	�	��	�	��	�	
��	 �	
��	'�	��	)�	
��	+�	��	1�	��	3�	��		3	gnamegsplit-discarding-char-last�CR$&(%hX>]"H45�$64455$4
5456�"���
"���6gpred
		Ugstr		Ugret			Ugn			Ngfilenamefice-9/string-fun.scm�
�
��	�	��		�	��	�	��	�	��	�	1��	�	(��	�	��	 �	��	*�	��	.�	��	1�	-��	;�	-��	E�	(��	H�	.��	N�	(��	N�	��		U	gnamegsplit-before-predicate�CR$&(%hXa]"J45�$64455$4
�54�56�"���
"���Ygpred
		Wgstr		Wgret			Wgn			Pgfilenamefice-9/string-fun.scm�
�
��	�	��		�	��	�	��	�	��	�	1��	�	(��	�	��	 �	��	*�	��	.�	��	1�	-��	9�	>��	;�	-��	<�	-��	C�	<��	E�	-��	G�	(��	J�	.��	P�	(��	P�	��		W	gnamegsplit-after-predicate�CR$&(%hXT]"I45�$64455$4
54�56�"���
"���Lgpred
		Vgstr		Vgret			Vgn			Ogfilenamefice-9/string-fun.scm�
�
��	�	��		�	��	�	��	�	��	�	1��	�	(��	�	��	 �	��	*�	��	.�	��	1�	-��	;�	-��	B�	<��	D�	-��	F�	(��	I�	.��	O�	(��	O�	��		V	gnamegsplit-discarding-predicate�CR'%hPO]"845$4�5�4
5"���@"���Ggch
		Igstr		Igret			Igfields			>gstr			>gt			>gfilenamefice-9/string-fun.scm�
�
��	�	��	�	��	�	��	�	!��	�	0��	!�	!��	$�	��	%�	��	6�	��	>�	��	>�	��	?�	��	I�	��		I	gnamegseparate-fields-discarding-char�CR)#%hXe]"A45$ 4
�5�4�5"���4?""���6]gch
		Vgstr		Vgret			Vgfields			Igstr			Igt			Igfilenamefice-9/string-fun.scm�
�
��	�	��		�	��	�	��	�	"��	"�	3��	$�	"��	'�	��	(�	��	/�	*��	1�	��	9�	��	:�	��	I�	��	J�	��	T�	��	V�	��		V	gnamegseparate-fields-after-char�CR'%hH9]"745$45�4
5"���@"���1gch
		Hgstr		Hgret			Hgfields			=gstr			=gt			=gfilenamefice-9/string-fun.scm�
�
��	�	��	�	��	�	��	�	!��	#�	��	$�	��	5�	��	=�	��	=�	��	>�	��	H�	��
		H	gnamegseparate-fields-before-char�CR$%h0�]4545�$L4
4556C�gprefix
		,gstr		,gfilenamefice-9/string-fun.scm�
�	��	�	
��	
�	$��	�		��	�	��	�	��	 �	(��	(�	��	*�		��
		,	Ch]OCwgpred?
		
gfilenamefice-9/string-fun.scm�
�
��		
gnamegstring-prefix-predicate�CR4i*i5R$+(&%h��]
45HH"9"1J45�$44J55$	J�K"���"""���"���"4",
J�$ 44J�55$	J�K"���"""���"���JJ�$CJJ6�gs
	�gst	
�gend		
�gfilenamefice-9/string-fun.scm�
�
��	�	
��	
�	��	�	��	�	��	 �	��	$�	��	%�	��	(�	"��	2�	��	6�	��	9�	��	;�	��	?�	��	S�	��	[�	��	_�	��	`�	��	c�	"��	j�	0��	l�	"��	n�	��	r�	��	u�	��	w�	��	{�	����	����	����	����	��	�gnamegsans-surrounding-whitespace�CR$+(&%h`.]	45H"4",
J�$ 44J�55$	J�K"���"""���"���J
�$C
J6&gs
		[gend			[gfilenamefice-9/string-fun.scm�
�
��	�	
��		�	��	�	��	�	��	�	��	�	��	�	"��	&�	0��	(�	"��	*�	��	.�	��	1�	��	3�	��	7�	��	K�	��	O�	��	Q�	��	[�	��		[gnamegsans-trailing-whitespace�CR$+(&%h`4]
45H"4",J�$44J55$	J�K"���"""���"���J�$CJ6,gs
		`gst	
	`gend		
	`gfilenamefice-9/string-fun.scm�
�
��	�	
��	
�	��	�	��	�	��	�	��	�	��	 �	��	#�	"��	-�	��	1�	��	4�	��	6�	��	:�	��	O�	��	S�	��	U�	��	`�	��		`gnamegsans-leading-whitespace�CR$,(%h@�]
45�$C4
445�55$
45�6C�gstr
		>gfilenamefice-9/string-fun.scm�
�
��	�		��	�	��	�	��	�	��	�	��	�	%��	$�	!��	&�	��	(�	��	,�	��	2	��	9	��	;	��		>gnamegsans-final-newline�CR$,(h(�]
45�$
445�56C�gstr
		&gfilenamefice-9/string-fun.scm�

��		��		��		��			��			(��	 		$��	"		��	$		��
		&gnameghas-trailing-newline?�CRCgm
		(gfilenamefice-9/string-fun.scm�		
��s	a
���	h
��		n
��H	u
���	|
����
��	��
��l�
��
7�
����
����
��\�
����
����	���
��w�
��!�
����
���
��
��	 
C6ice-9/i18n.go000064400000051600150536206130006563 0ustar00GOOF----LE-8-2.0hS]�4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gi18n�	�		gfilenameS�	
fice-9/i18n.scm�	gimportsS�	goptargs�	
�	
�	�	gexportsS�	gmake-locale�	glocale?�	g%global-locale�	gstring-locale<?�	gstring-locale>?�	gstring-locale-ci<?�	gstring-locale-ci>?�	gstring-locale-ci=?�	g
char-locale<?�	g
char-locale>?�	gchar-locale-ci<?�	gchar-locale-ci>?�	gchar-locale-ci=?�	gchar-locale-downcase�	gchar-locale-upcase�	 gchar-locale-titlecase�	!gstring-locale-downcase�	"gstring-locale-upcase�	#gstring-locale-titlecase�	$glocale-string->integer�	%glocale-string->inexact�	&glocale-encoding�	'glocale-day-short�	(g
locale-day�	)glocale-month-short�	*glocale-month�	+glocale-am-string�	,glocale-pm-string�	-glocale-date+time-format�	.glocale-date-format�	/glocale-time-format�	0glocale-time+am/pm-format�	1g
locale-era�	2glocale-era-year�	3glocale-era-date-format�	4glocale-era-date+time-format�	5glocale-era-time-format�	6glocale-currency-symbol�	7glocale-monetary-decimal-point�	8g#locale-monetary-thousands-separator�	9glocale-monetary-grouping�	:g!locale-monetary-fractional-digits�	;g)locale-currency-symbol-precedes-positive?�	<g)locale-currency-symbol-precedes-negative?�	=g#locale-positive-separated-by-space?�	>g#locale-negative-separated-by-space?�	?glocale-monetary-positive-sign�	@glocale-monetary-negative-sign�	Aglocale-positive-sign-position�	Bglocale-negative-sign-position�	Cgmonetary-amount->locale-string�	Dglocale-digit-grouping�	Eglocale-decimal-point�	Fglocale-thousands-separator�	Ggnumber->locale-string�	Hglocale-yes-regexp�	Iglocale-no-regexp�	J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI9�	Kgset-current-module�	LK�	MK�	Ngload-extension�	Og
string-append�	Pf	libguile-�	Qgeffective-version�	Rf
scm_init_i18n�	Sgnl-langinfo�	TgCODESET�	Ugmake-syntax-transformer�	VU�	WU�	Xgdefine-vector-langinfo-mapping�	Ygmacro�	Zg$sc-dispatch�	[Z�	\Z�	]g_�	^gany�	_]^��	`g
syntax->datum�	a`�	b`�	cg
datum->syntax�	dc�	ec�	fglength�	ggdefine�	hg	%nl-items�	igvector�	jgitem�	kglocale�	ljk��	mgif�	ngand�	oginteger?�	poj�	qgexact?�	rqj�	snpr�	tg>=�	utj�	vg<=�	wgapply�	xg
vector-ref�	yxhj�	zwSyk�	{gthrow�	|gquote�	}gout-of-range�	~|}�	fout of range��{~j�����gwrong-type-arg��|���fwrong argument type��{��j�����gsyntax-violation��������f-source expression failed to match any pattern��gABDAY_1��gABDAY_2��gABDAY_3��gABDAY_4��gABDAY_5��gABDAY_6��gABDAY_7��gDAY_1��gDAY_2��gDAY_3��gDAY_4��gDAY_5��gDAY_6��gDAY_7��gABMON_1��gABMON_2��gABMON_3��gABMON_4��gABMON_5��gABMON_6��gABMON_7��gABMON_8��gABMON_9��gABMON_10��gABMON_11��gABMON_12��gMON_1��gMON_2��gMON_3��gMON_4��gMON_5��gMON_6��gMON_7��gMON_8��gMON_9��gMON_10��gMON_11��gMON_12��gdefine-simple-langinfo-mapping��gdefined?��k��gAM_STR��gPM_STR��gD_T_FMT��gD_FMT��gT_FMT��g
T_FMT_AMPM��gERA��gERA_YEAR��gERA_D_T_FMT��g	ERA_D_FMT��g	ERA_T_FMT��g define-monetary-langinfo-mapping��gintl?���k���gINT_CURR_SYMBOL��gCRNCYSTR��gINT_FRAC_DIGITS��gFRAC_DIGITS��g
POSITIVE_SIGN��g
NEGATIVE_SIGN��gMON_DECIMAL_POINT��gMON_THOUSANDS_SEP��gMON_GROUPING��glocale-monetary-digit-grouping��gINT_P_CS_PRECEDES��g
P_CS_PRECEDES��gINT_N_CS_PRECEDES��g
N_CS_PRECEDES��gINT_P_SEP_BY_SPACE��gP_SEP_BY_SPACE��gINT_N_SEP_BY_SPACE��gN_SEP_BY_SPACE��gINT_P_SIGN_POSN��gP_SIGN_POSN��gINT_N_SIGN_POSN��gN_SIGN_POSN��f0��glist->string��g
integer->char��ginteger->string��gexpt��gfloor��g
string-pad��ground��ginexact->exact��f��gnumber-decimal-string��gstring=?��g
string-length��gmin��g	substring��g%number-integer-part��f ��gparenthesize��f(��f)��gsign-before��g
sign-after��gunspecified��gsign-before-currency-symbol��gsign-after-currency-symbol��gerror��funsupported sign position��gadd-monetary-sign+currency��gabs��gGROUPING��g	RADIXCHAR��gTHOUSEP��f-��gYESEXPR��gNOEXPR�C5hh<�]4	
J54M>"G4Ni4OiP4Qi55R>"GSTh{-13@sglocale
			gfilenamefice-9/i18n.scm�
	_
��		`	��			


gnameglocale-encoding�C&R4WXY\_befghilmsnuvjz��hP�]45���	

������C�gname
		Jgnl-items		Jg
item-count				Jgdefines			Jgfilenamefice-9/i18n.scm�
	i
��		j	��			j	��	
	k	��		j	��		r	��	&	m	��	<	t	��	>	m	��	I	r	��		J	Chb]	45L4?6Zgargs
		gv			gfilenamefice-9/i18n.scm�		i
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamefice-9/i18n.scm�
	i
��		'C5XR�������{��oq}Sh��-13HK"
	
645$A45$2"

6�$	�$J�@"���"���"���"����gitem
			~glocale			~g	%nl-items		
	~gfilenamefice-9/i18n.scm�
	w
��	*	q	2��	N	p	4��	j	t	'��	n	t	��			~
gnameglocale-day-short�C'R�������{��oq}Sh��-13HK"
	
645$A45$2"

6�$	�$J�@"���"���"���"����gitem
			~glocale			~g	%nl-items		
	~gfilenamefice-9/i18n.scm�
	z
��	*	q	2��	N	p	4��	j	t	'��	n	t	��			~
gnameg
locale-day�C(R������������{��oq}Sh��-13H	

K"

645$A45$2"

6�$	�$J�@"���"���"���"����gitem
		�glocale		�g	%nl-items		
�gfilenamefice-9/i18n.scm�
	}
��	4	q	2��	X	p	4��	t	t	'��	x	t	��		�
gnameglocale-month-short�C)R������������{��oq}Sh��-13H	

K"

645$A45$2"

6�$	�$J�@"���"���"���"����gitem
		�glocale		�g	%nl-items		
�gfilenamefice-9/i18n.scm�
�
��	4	q	2��	X	p	4��	t	t	'��	x	t	��		�
gnameglocale-month�C*R4W�Y\_be�wS�gkh0�]45$���"�C�gname
		-gitem		-gdefault			-gbody			-gfilenamefice-9/i18n.scm�
�
��	�	��	
�	��	�	��	�	��	"�	��		-	Chc]	45L4?6[gargs
		gv			gfilenamefice-9/i18n.scm�	�
��		C��h(a]	45$O@6Ygy
		'gtmp		'gfilenamefice-9/i18n.scm�
�
��		'C5�RS�hu-13@mglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-am-string�C+RS�hu-13@mglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-pm-string�C,RS�h|-13@tglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-date+time-format�C-RS�hw-13@oglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-date-format�C.RS�hw-13@oglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-time-format�C/RS�h}-13@uglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-time+am/pm-format�C0RS�ho-13@gglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameg
locale-era�C1RS�ht-13@lglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-era-year�C2RS�h�-13@xglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-era-date+time-format�C4RS�h{-13@sglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-era-date-format�C3RS�h{-13@sglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-era-time-format�C5R4W�Y\_be�wS�m�g�	h`I]45$���"45$���"�CAgname
		^g
local-item		^g	intl-item			^g
default/local			^gdefault/intl			^gintl		:	Oglocal		:	Ogbody		O	^gfilenamefice-9/i18n.scm�
�
��	�	��	
�	��	�	��	�	��	)�	��	+�	��	:�		��	@�	��	O�	��	S�	��		^	Chc]	45L4?6[gargs
		gv			gfilenamefice-9/i18n.scm�	�
��		C��h(a]	45$O@6Ygy
		'gtmp		'gfilenamefice-9/i18n.scm�
�
��		'C5�RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameglocale-currency-symbol�C6RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameg!locale-monetary-fractional-digits�C:RS�h�-13@zglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-monetary-positive-sign�C?RS�h�-13@zglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-monetary-negative-sign�C@RS�h�-13@zglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-monetary-decimal-point�C7RS�h�-13@�glocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameg#locale-monetary-thousands-separator�C8RS�h�-13@{glocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-monetary-digit-grouping�C�RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameg)locale-currency-symbol-precedes-positive?�C;RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameg)locale-currency-symbol-precedes-negative?�C<RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameg#locale-positive-separated-by-space?�C=RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameg#locale-negative-separated-by-space?�C>RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameglocale-positive-sign-position�CARS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameglocale-negative-sign-position�CBR���hP�]
�$C"2
�$6	
�	
�4	0�5�"���"����gnumber
		Ngnumber		Cgdigits			Cgdigit		)	8gfilenamefice-9/i18n.scm�
�
��	�	��	
�	��	�	��	�	��		��		��		��	$	��	)	%��	)	��	,�	��	2�	��	3�	��	5�	��	;	��	C	��	C�	��	F	��	N�	��		Ngnameginteger->string�g
documentationfDReturn a string representing NUMBER, an integer, written in base 10.�C�Ro�������	h�g]"45$/4	
545��44455506"q4	
5�45�$"	�$7454	
5��444555
�$CC�"���
"���_gnumber
	�gdigit-count	�gnumber		!	<gdecimals		@�gnumber'		L�gt		X	mgfraction	��gstr	��gfilenamefice-9/i18n.scm�

��		��	
	��		��		!��	 	��	!	��	!	��	&	��	)	%��	,	,��	4	%��	6	��	<	��	@	��	C	!��	L	��	L	��	Q	��	X	��	X	��	j	��	q	
��	t	%��	{	%���	"���	���	���	��� 	 ��� 	'��� 	 ���	���	���!	���!	���"	���$	���$	���	��)	�	gnamegnumber-decimal-string�g
documentationf�Return a string representing the decimal part of NUMBER.  When
DIGIT-COUNT is an integer, return exactly DIGIT-COUNT digits; when
DIGIT-COUNT is #t, return as many decimals as necessary, up to an
arbitrary limit.�C�R��O���h�*]3"}45$@(@454�54
�5�4�5�$��"�"���"��t"gint
	�ggrouping	�g	separator		�gint		�ggrouping		�gresult		�glen		.�gcut		:�gsub		Z	y	gfilenamefice-9/i18n.scm�
&
��	,	��	/	��	
/	��	/	��	/	��	/	��	/	��	'0	��	(2	��	.2	��	13	��	63	��	:3	��	:2	��	=4	��	G4	$��	I4	��	L5	��	M6	��	V6	-��	Z6	��	Z6	��	a7	��	e7	��	l8	��	v9	���4	
���,	���.	���,	�� 	�	gnameg%number-integer-part�C�R?@�6;<=>AB��O���������h��]D
�$45"
�$45"45$"$"$	"
	45$"
4	5�$/
45$4

5"4

56�$-
45$4

5"4

56�$"�$%45$

6

6�$%45$

6

6�$%45$

6

64	56�gamount
	�gfigure	�gintl?		�glocale		�g	positive?		�gsign		.�gcurrency		9�gcurrency-precedes?		I�g
separated?		Y�g
sign-position			i�gcurrency-space	
��gkey	��gfilenamefice-9/i18n.scm�
;
��	>	��	>	��	
@	��	@	
��	@	��	A	��	!@	
��	"A	��	.B	��	.>	��	1C	��	9>	��	AE	
��	I>	��	QI	
��	Y>	��	aM	
��	i>	��	lQ	��	xQ	
��	zQ	(���Q	,���>	���X	
���X	���Z	���T	���T	���U	���V	���Z	3���Z	���X	���T	���T	���U	���V	���\	��X	��_	��_	��+`	��7a	��@X	��Ac	��Mc	��Yd	��ee	��nX	��og	��{g	���h	���i	���k	���k	*���k	��:	�	gnamegadd-monetary-sign+currency�C�R:�������O7���8��h��-.,3#45$"	4444555544554	5$"
�$	"*4
4545�$4

5"545454
4556�gamount
	�gintl?	�glocale		�gt			2gfraction-digits		2�gint		J�gdec		Z�gt		e	ygdec	��ggrouping	��g	separator	��gfilenamefice-9/i18n.scm�
n
��	v	��	v	
��	2u	��	5�	��	8�	%��	;�	&��	>�	-��	F�	&��	H�	%��	J�	��	Ju	��	M�	��	P�	,��	Z�	��	Z�	��	]y	��	cy	"��	ey	��	ey	��	vy	&��	}y	��	z	���{	���{	���|	6���|	#���|	���}	#���{	���u	����	���u	����	���u	����	"����	#����	"����	��(	�	gnamegmonetary-amount->locale-string�g
documentationf�Convert @var{amount} (an inexact) into a string according to the cultural
conventions of either @var{locale} (a locale object) or the current locale.
If @var{intl?} is true, then the international monetary format for the given
locale is used.�CCRS�hz-13@rglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-digit-grouping�CDRS�hy-13@qglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-decimal-point�CERS�h-13@wglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-thousands-separator�CFR��������OEo��DF�h�C-.,3##
�$"
�$"4444555544554	5$"
�$";4
4545$"4
5�$4
5""54545
456;gnumber
	�gfraction-digits	�glocale		�gsign		=�gint		U�gdec		e�gt		p�gdec	��ggrouping	��g	separator	��
gfilenamefice-9/i18n.scm�
�
��	#�	��	'�	
��	)�	��	1�	��	5�	
��	7�	��	=�	��	=�	��	@�	��	C�	'��	F�	(��	I�	/��	Q�	(��	S�	'��	U�	��	U�	��	X�	��	[�	.��	e�	��	e�	��	h�	��	n�	"��	p�	��	p�	����	&����	����	����	����	����	(����	����	+����	(����	#����	#����	����	����	����	����	����	����	����	��-	�	gnamegnumber->locale-string�g
documentationf^Convert @var{number} (an inexact) into a string according to the cultural
conventions of either @var{locale} (a locale object) or the current locale.
By default, print as many fractional digits as necessary, up to an upper bound.
Optionally, @var{fraction-digits} may be bound to an integer specifying the
number of fractional digits to be displayed.�CGRS�hv-13@nglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-yes-regexp�CHRS�hu-13@mglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-no-regexp�CIRC�gm
		,gfilenamefice-9/i18n.scm�		
��	-	W	��	2	W	��	8	W	!��	9	W	-��	A	W	��	C	X	��	H	W	���	_
���	w
��i	z
���	}
��	p�
��X�
��
�
��
��
��R�
����
����
��J�
����
����
��F�
����
����
����
��E�
����
����
��[�
���
����
����
����
��e�
��/�
����
��"�
��&b
��)E&
��.�;
��3�n
��4M�
��4��
��5��
��;�
��;��
��<`�
��1	<b
C6ice-9/channel.go000064400000012230150536206130007410 0ustar00GOOF----LE-8-2.0�]H4h ]gguile�	�	gdefine-module*�	�	�	gice-9�	gchannel�	�		gfilenameS�	
fice-9/channel.scm�	gexportsS�	gmake-object-channel�	
gchannel-open�	gchannel-print-value�	gchannel-print-token�	
�	gset-current-module�	�	�	gmake-record-type�	gstdin�	gstdout�	gprinter�	gtoken-module�	�	gchannel-type�	grecord-constructor�	gmake-channel�	gcurrent-input-port�	gcurrent-output-port�	gmake-module�	 grecord-accessor�	!g
channel-stdin�	"gchannel-stdout�	#gchannel-printer�	$gchannel-token-module�	%gcatch�	&gchannel:prompt�	'gread�	(geof-object?�	)gthrow�	*gquit�	+geval�	,gmodule-use!�	-gcurrent-module�	.gdestroy�	/gmodule-defined?�	0gmodule-remove!�	1g
channel:error�	2fInvalid token: ~S�	3fUnknown command: ~S�	4gformat�	5fexception = ~S
�	6fvalue = ~S
�	7g
symbol-append�	8ggensym�	9f%%�	:g%%�	;gobject->string�	<ftoken = ~S
�	=gmodule-define!�	>gdisplay�	?f	channel> �	@gforce-output�	AfERROR: �	Bgapply�	Cgnewline�	Dg
guile:eval�	Egprocedure-minimum-arity�	Fgdefined?�	Gf~S�C5h8
�]4	
54>"G4i5R4ii5Rh�]4545456�gprinter
		gfilenamefice-9/channel.scm�
	W
��		X	��	
	Y	��		[	��		X	��		gnamegmake-object-channel�CR4 ii5!R4 ii5"R4 ii5#R4 ii5$R!"#$%&'()*+,-+./0123h�]4L>"G4L545$4>"G"��$>445L>"G4LL4	4L5455>"G"�
�$K4L54L5$4L>"G"4
L>"G"5�$4>"G"4
L>"GL6�gcmd
	gtoken��gfilenamefice-9/channel.scm�
	m	��		n	
��		o	��		o	
��		p	��	(	p	��	)	q	��	-	q	��	2	q	��	G	r	��	H	t	��	K	t	��	V	t	��	_	u	��	d	u	��	g	u	#��	n	u	0��	t	u	��	y	u	���	r	���	w	���	w	���	x	���	x	���	y	���	z	���	z	+���	z	���	r	���	|	���	|	���	|	���	~	���	~	'��	~	��		
��%	
C*)45hH�-13�$64L4�����?>"GL6�gkey
			Dgargs			Dgfilenamefice-9/channel.scm�
�	��	�	
��	�	��	�	��	�	
��	�	��	"�	��	(�	0��	,�	<��	0�	��	3�	��	8�	
��	D�	
��			D
Ch(]]LLLLLLOLLO6Ugfilenamefice-9/channel.scm�
	k	��	!	l	��		!
gnamegloop�ChH])45454545OQ6�gch
		Fgstdin		Fgstdout			Fgprinter			Fgtoken-module			Fgloop		3	Fgfilenamefice-9/channel.scm�
	f
��		g	��	
	h	��		i	��		j	��		g	��	3	k	��		Fgnamegchannel-open�C
R4"6h�]456�gch
		gval		gfilenamefice-9/channel.scm�
�
��	�	
��	
�	��	�	��			gnamegchannel-print-value�CR789:;4"<=$hH;]445545�445>"G	4
563gch
		Hgval		Hgtoken			Hgpair			Hgfilenamefice-9/channel.scm�
�
��	�	��	�	��	
�	'��	�	��	�	-��	�	��	�	��	�	��	�	��	�	��	�	��	"�	��	*�	 ��	1�	��	<�	��	H�	��		H	gnamegchannel-print-token�CR>?@h �]4>"G6�gport
		gfilenamefice-9/channel.scm�
�
��	�	��	�	��	�	��	�	��		gnamegchannel:prompt�C&R>AB4Ch@�-134>"G4>"G6�gport
			;gmsg			;gargs				;gfilenamefice-9/channel.scm�
�
��	
�	��	�	��	�	��	�	��	;�	��			;	
	gnameg
channel:error�C1R+iDR4EiDi5��$�Dhm]6egx
		
ge		
gfilenamefice-9/channel.scm�
�	��	
�	��		
	C"Di+R4Fi;5$;i"�4Ghg]6_gx
		gfilenamefice-9/channel.scm�
�	��	�	��	�	��		C;RC�gm
		(gfilenamefice-9/channel.scm�		H
��	)	S	��	/	S	��	1	S	��	3	S	��	6	R
��	7	U	��	D	U
��	W
��	]	��	]	4��!	]	��$	]
��%	^	��/	^	5��1	^	��4	^
��5	_	��?	_	6��A	_	��D	_
��E	`	��O	`	;��Q	`	��T	`
��o	f
��D�
��	��
��
��
����
����
����	����		����	����	����
����	����	����	����	��
2�
��*	
4
C6ice-9/runq.go000064400000014710150536206130006772 0ustar00GOOF----LE-8-2.0�]44h9]gguile�	�	gdefine-module*�	�	�	gice-9�	grunq�	�		gfilenameS�	
fice-9/runq.scm�	gimportsS�	gq�	
�	
�	�	gexportsS�	grunq-control�	gmake-void-runq�	gmake-fair-runq�	gmake-exclusive-runq�	gmake-subordinate-runq-to�	gstrip-sequence�	gfair-strip-subtask�	�	gset-current-module�	�	�	gadd!�	gfor-each�	genq!�	g
*unspecified*�	 genqueue!�	!gpush!�	"gq-push!�	#gempty?�	$gq-empty?�	%glength�	&gq-length�	'gkill!�	(gmake-q�	)gthrow�	*gnot-understood�	+gcatch�	,gwarn�	-g
runq-strip�	.g	run-strip�	/g
apply-to-args�	0gdeq!�	1g
procedure?�	2gsuspend�	3gapply�C5h��]4	
54>"GhY]M6Qgt
		
gfilenamefice-9/runq.scm�
	I	*��	
	I	6��		
C hY]M6Qgt
		
gfilenamefice-9/runq.scm�
	J	*��	
	J	6��		
C!"hY]M6Qgt
		
gfilenamefice-9/runq.scm�
	K	*��	
	K	6��		
C#$%&'()*h�,-13H�$4O>"GC�$4O>"GC�$4O>"GC	�$
J6�$J6
�$	45KC6$gq
	
�gmsg	
�gargs		
�gfilenamefice-9/runq.scm�
	G
��		H	��		I	 ��	1	I	H��	;	H	��	<	J	 ��	V	J	H��	`	H	��	a	K	 ��	{	K	K���	H	���	L	 ���	H	���	M	 ���	H	���	N	(���	N	 ���	O	'���	O	 ��		�	
	gnamegrunq-control�CR+,-h(m-134L>"GCegign
			!gfilenamefice-9/runq.scm�
	Q	*��	
	Q	6��		Q	<��		Q	6��			!


Chr]O6jgthunk
		gfilenamefice-9/runq.scm�
	Q
��		Q	��		gnameg	run-strip�C.R/%hn-13�$
CCfgmsg
			gargs			gfilenamefice-9/runq.scm�
	]	
��		^	��			
Ch f-13$6C^gopts
			gfilenamefice-9/runq.scm�
	Z	��		[	��		\	��			


Ch[]CSgfilenamefice-9/runq.scm�
	Y
��		
gnamegmake-void-runq�CR$01.h�l-13$M@4M5$C4M545$.45$4M>"G""V�$O4�5$4M>"G"�("4M�>"G"LCdgctl
		�g
next-strip	+�gk		?	bgk		u�gfilenamefice-9/runq.scm�
	p	��		q	��		r	��		s	��	"	s	��	%	t	)��	+	t	��	.	v	��	8	u	��	9	v	A��	?	v	8��	G	w	:��	H	w	A��	i	x	��	m	u	��	n	x	7��	s	x	B��	u	x	7��	u	x	.��	}	y	0��	~	y	7���	z	>���	z	.���	{	2���	{	:���	{	2��		�


gnamegself�C(h(�]HOQ45KC�gq
		&gself		&gq			#gfilenamefice-9/runq.scm�
	m
��		n	��		n	��		&
gnamegmake-fair-runq�CR$01."h��-13$M@4M5$C4M545$.45$4M>"G""V�$O4�5$4M>"G"�("4M�>"G"LC~gctl
		�g
next-strip	+�gk		?	bgk		u�gfilenamefice-9/runq.scm�
�	��	�	��	�	��	�	��	"�	��	%�	)��	+�	��	.�	��	8�	��	9�	A��	?�	8��	G�	:��	H�	A��	i�	��	m�	��	n�	7��	s�	B��	u�	7��	u�	.��	}�	0��	~�	7����	>����	.����	2����	=����	2��		�


gnamegself�C(h(�]HOQ45KC�gq
		&gself		&gq			#gfilenamefice-9/runq.scm�
�
��	�	��	�	��		&
gnamegmake-exclusive-runq�CR#%hH�]4L5$L�C"#
�$C4L>"G�"���4L5"����gn
		:gfilenamefice-9/runq.scm�
�	��	�	��	�	 ��		�	��	
�	��	�	��	�	��	�	��	�	��	"�	��	4�	1��	:�	��	;�	��	?�	(��	A�	��	G�	��		G
C2#h�g-13$U��$L�C4L?L�$"4L5�$LL�4LL>"G"C4L54L>"GC_gctl
		�gkey		dganswer		*	dganswer	i�gfilenamefice-9/runq.scm�
�	��	�	��	�	��	�	��	!�	0��	$�	>��	*�	0��	/�	@��	3�	6��	9�	V��	=�	b��	?�	V��	@�	Q��	D�	2��	I�	8��	J�	8��	N�	G��	U�	8��	e�	"��	i�	��	l�	��	p�	��	u�	��		�


gnamegself�Ch0�]�O�OQC�g
superior-runq
		,g
basic-runq		,g	runq-task			,gself			,gfilenamefice-9/runq.scm�
�
��	�	��	�	��	�	��	�	��		,	gnamegmake-subordinate-runq-to�CRh]]LLL��6Ugfilenamefice-9/runq.scm�
�	��		�	-��	
�	"��	�	��		
ChT]LL�6Lgfilenamefice-9/runq.scm�
�	��	�	"��		�	��			
Ch0�]	(C4�5$LOCLOC�gst
		.gthen		.gfilenamefice-9/runq.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	
��		.gnamegloop�Ch �]OQMN6gloop
	
	ga		gfilenamefice-9/runq.scm�
�	��	
�	��	�	��	�	%��	�	��		
Chs-13HOCkgstrips
	
	gfilenamefice-9/runq.scm�
�
��			


gnamegstrip-sequence�CR3h0�-13454>"GC�ginitial-strips
			)gst		)gfilenamefice-9/runq.scm�
�
��	
�	��	�	��	�	��	�	��	�	��			)


gnamegfair-strip-subtask�CRC�gm
		,gfilenamefice-9/runq.scm�		0
���	G
���	Q
���	Y
��	�	m
����
��Z�
��~�
����
��
	�
C6ice-9/list.go000064400000002644150536206130006763 0ustar00GOOF----LE-8-2.0�]4hE]gguile�	�	gdefine-module*�	�	�	gice-9�	glist�	�		gfilenameS�	
fice-9/list.scm�	gexportsS�	grassoc�	
grassv�	grassq�	
�	gset-current-module�	�	�	ggeneric-rassoc�	gequal?�	geqv?�	geq?�C5h�r]4	
54>"Gh8�]"$(C4��5$�C�"���"����gkey
		2galist		2g=			2gls			*gfilenamefice-9/list.scm�
	
��			��			��			��			��			��			��	 		��	$		��	*		��	*		��		2	gnameggeneric-rassoc�CRh �-13("�6�gkey
			 galist			 g=				 gfilenamefice-9/list.scm�
	
��			��			1��	 		��			 	
	gnamegrassoc�CRh]6wgkey
		galist		gfilenamefice-9/list.scm�
	
��		 	��			gnamegrassv�C
Rh]6wgkey
		galist		gfilenamefice-9/list.scm�
	"
��		#	��			gnamegrassq�CRCjgm
		(gfilenamefice-9/list.scm�		
��b	
��=	
���	
���	"
��	�
C6srfi/srfi-4/gnu.go000064400000032320150536206130007734 0ustar00GOOF----LE-8-2.0�4]�4hF]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-4�	ggnu�		�	
gfilenameS�	fsrfi/srfi-4/gnu.scm�	gimportsS�	
grnrs�	gbytevectors�	
�	�	�	�	�	gexportsS�	g
c32vector?�	gmake-c32vector�	g	c32vector�	gc32vector-length�	g
c32vector-ref�	gc32vector-set!�	gc32vector->list�	glist->c32vector�	g
c64vector?�	gmake-c64vector�	g	c64vector�	 gc64vector-length�	!g
c64vector-ref�	"gc64vector-set!�	#gc64vector->list�	$glist->c64vector�	%gmake-srfi-4-vector�	&g
any->u8vector�	'g
any->s8vector�	(gany->u16vector�	)gany->s16vector�	*gany->u32vector�	+gany->s32vector�	,gany->u64vector�	-gany->s64vector�	.gany->f32vector�	/gany->f64vector�	0gany->c32vector�	1gany->c64vector�	2 !"#$%&'()*+,-./01�	3gset-current-module�	43�	53�	6%�	7%�	8gmake-rectangular�	9gbytevector-c32-native-ref�	:g	real-part�	;g	imag-part�	<gbytevector-c32-native-set!�	=gbytevector-c64-native-ref�	>gbytevector-c64-native-set!�	?gbytevector?�	@g
array-type�	Agc32�	Bgbytevector-length�	Cginteger?�	Dgerror�	Effractional length�	Fglength�	Ggc64�	Hgmake-syntax-transformer�	IH�	JH�	Kgdefine-any->vector�	Lgmacro�	Mg$sc-dispatch�	NM�	OM�	Pg_�	Qgany�	RPQ��	Sg
syntax->datum�	TS�	US�	Vg
datum->syntax�	WV�	XV�	Ygbegin�	Zgmap�	[gdefine�	\g
symbol-append�	]gany->�	^gvector�	_gobj�	`_�	agcond�	bgvector?�	cgpair?�	dc_�	eglist->�	fgand�	ggarray?�	hg_�	igeqv?�	jg
array-rank�	kj_�	lik�	mfhl�	nglet*�	oglen�	pgarray-length�	qp_�	roq�	sgv�	tgmake-�	uo�	vglet�	wglp�	xgi�	yx
�	zy�	{gif�	|g<�	}|xo�	~gvector-set!�	g	array-ref��_x��sx���g1+���x��w������s��gelse��g	scm-error��gquote��gwrong-type-arg������f�����glist���_����������������gsyntax-violation��������f-source expression failed to match any pattern��g	u8vector?��glist->u8vector��g
make-u8vector��g	s8vector?��glist->s8vector��g
make-s8vector��g
u16vector?��glist->u16vector��gmake-u16vector��g
s16vector?��glist->s16vector��gmake-s16vector��g
u32vector?��glist->u32vector��gmake-u32vector��g
s32vector?��glist->s32vector��gmake-s32vector��g
u64vector?��glist->u64vector��gmake-u64vector��g
s64vector?��glist->s64vector��gmake-s64vector��g
f32vector?��glist->f32vector��gmake-f32vector��g
f64vector?��glist->f64vector��gmake-f64vector�C5h'�]4	
2545>"G7%R8h�]�	��6�gv
		gi		gfilenamefsrfi/srfi-4/gnu.scm�
	,
��			-	��		.	9��		.	��		-	��			gnamegbytevector-c32-native-ref�C9R:;h �]45�	�45�C�gv
		gi		gx			gfilenamefsrfi/srfi-4/gnu.scm�
	/
��		0	*��		0	��		1	(��		1	0��		1	��			gnamegbytevector-c32-native-set!�C<R8h�]�	��6�gv
		gi		gfilenamefsrfi/srfi-4/gnu.scm�
	2
��			3	��		4	9��		4	��		3	��			gnamegbytevector-c64-native-ref�C=R:;h �]45�	�45�C�gv
		gi		gx			gfilenamefsrfi/srfi-4/gnu.scm�
	5
��		6	*��		6	��		7	(��		7	0��		7	��			gnamegbytevector-c64-native-set!�C>R?@Ah n]45$45�CCfgobj
		gfilenamefsrfi/srfi-4/gnu.scm�
	9
��		gnameg
c32vector?�CR%Ah�-13@}glen
			gfill			gfilenamefsrfi/srfi-4/gnu.scm�
	9
��			
gnamegmake-c32vector�CRBCDEAh(�]	45	�45$C	6�gv
		(glen		(gfilenamefsrfi/srfi-4/gnu.scm�
	9
��gfilenamef9/builddir/build/BUILD/guile-2.0.14/module/srfi/srfi-4.scm�	 	T	��		(gnamegc32vector-length�CRhp-136hgelts
			gfilenamefsrfi/srfi-4/gnu.scm�
	9
��			


gnameg	c32vector�CRFh`�]!4545";�$/�$%4�>"G��"���CC
"����gelts
		^glen			^gv			^gi			Sgelts			Sgfilenamefsrfi/srfi-4/gnu.scm�
	9
��		^gnameglist->c32vector�CRh@�]""
�$C�45�"���45�"����gv
		9gi		(gelts			(gfilenamefsrfi/srfi-4/gnu.scm�
	9
��		9gnamegc32vector->list�CR9h~]	�6vgv
		
gi		
gfilenamefsrfi/srfi-4/gnu.scm�
	9
��		
	gnameg
c32vector-ref�CR<h�]	�6�gv
		gi		gx			gfilenamefsrfi/srfi-4/gnu.scm�
	9
��			gnamegc32vector-set!�CR<h�]	�6�gv
		gi		gx			gfilenamefsrfi/srfi-4/gnu.scm�
	9
��			gnamegc32vector-set!�CR?@Gh n]45$45�CCfgobj
		gfilenamefsrfi/srfi-4/gnu.scm�
	:
��		gnameg
c64vector?�CR%Gh�-13@}glen
			gfill			gfilenamefsrfi/srfi-4/gnu.scm�
	:
��			
gnamegmake-c64vector�CRBCDEGh(�]	45	�45$C	6�gv
		(glen		(gfilenamefsrfi/srfi-4/gnu.scm�
	:
��gfilenamef9/builddir/build/BUILD/guile-2.0.14/module/srfi/srfi-4.scm�	 	T	��		(gnamegc64vector-length�C R$hp-136hgelts
			gfilenamefsrfi/srfi-4/gnu.scm�
	:
��			


gnameg	c64vector�CRF"h`�]!4545";�$/�$%4�>"G��"���CC
"����gelts
		^glen			^gv			^gi			Sgelts			Sgfilenamefsrfi/srfi-4/gnu.scm�
	:
��		^gnameglist->c64vector�C$R! h@�]""
�$C�45�"���45�"����gv
		9gi		(gelts			(gfilenamefsrfi/srfi-4/gnu.scm�
	:
��		9gnamegc64vector->list�C#R=h~]	�6vgv
		
gi		
gfilenamefsrfi/srfi-4/gnu.scm�
	:
��		
	gnameg
c64vector-ref�C!R>h�]	�6�gv
		gi		gx			gfilenamefsrfi/srfi-4/gnu.scm�
	:
��			gnamegc64vector-set!�C"R>h�]	�6�gv
		gi		gx			gfilenamefsrfi/srfi-4/gnu.scm�
	:
��			gnamegc64vector-set!�C"R4JKLORUXYZ[\]^`abdemnrstuvwz{}Y~����h�]45�45��4	5�

45�45����������Cgtag
	�gfilenamefsrfi/srfi-4/gnu.scm�
	>	��		?	��		?	��			?	(��	
	?	3��		?	��		?	��		@	��		@	-��		@	��		?	��	&	A	&��	*	A	5��	.	A	A��	0	A	&��	2	?	��	?	D	$��	C	D	3��	G	D	>��	I	D	$��	K	?	��	_	H	$��	e	H	7��	g	H	$��	i	?	��	�Chr-1345�Cjgtags
			gfilenamefsrfi/srfi-4/gnu.scm�
	<
��		=	��		>	��		=	��			


Chg]	45L4?6_gargs
		gv			gfilenamefsrfi/srfi-4/gnu.scm�		<
��		C��h(e]	45$O@6]gy
		'gtmp		'gfilenamefsrfi/srfi-4/gnu.scm�
	<
��		'C5KR�����gjp�h��]45$C�$6"645$P45&@454	5"#�$4
5��"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnameg
any->u8vector�C&R�����gjp�h��]45$C�$6"645$P45&@454	5"#�$4
5��"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnameg
any->s8vector�C'R�����gjp�h��]45$C�$6"645$S45&C454	5"&�$	�4
5��"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnamegany->u16vector�C(R�����gjp�h��]45$C�$6"645$S45&C454	5"&�$	�4
5��"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnamegany->s16vector�C)R�����gjp�h��]45$C�$6"645$S45&C454	5"&�$	�4
5��"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnamegany->u32vector�C*R�����gjp�h��]45$C�$6"645$S45&C454	5"&�$	�4
5��"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnamegany->s32vector�C+R�����gjp�h��]45$C�$6"645$S45&C454	5"&�$	�4
5��"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnamegany->u64vector�C,R�����gjp�h��]45$C�$6"645$S45&C454	5"&�$	�4
5��"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnamegany->s64vector�C-R�����gjp�h��]45$C�$6"645$S45&C454	5"&�$	�4
5��"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnamegany->f32vector�C.R�����gjp�h��]45$C�$6"645$S45&C454	5"&�$	�4
5��"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnamegany->f64vector�C/R���gjph��]45$C�$6"645$_45&O454	5"2�$&4
45>"G�"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnamegany->c32vector�C0R$���gjp"h��]45$C�$6"645$_45&O454	5"2�$&4
45>"G�"���C
"���"���"����gobj
	�glen	N�gv		W�gi		]�gfilenamefsrfi/srfi-4/gnu.scm�
	O
��	(	L	;��	�gnamegany->c64vector�C1RC�gm
		,gfilenamefsrfi/srfi-4/gnu.scm�		
��	1	*
��	,
���	/
���	2
���	5
��q	9
���	:
��/	O
��
	&�
C6srfi/srfi-18.go000064400000040543150536206130007236 0ustar00GOOF----LE-8-2.0KA]�4h�
]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-18�	�		gfilenameS�	
fsrfi/srfi-18.scm�	gimportsS�	gsrfi-34�	
�	
�	�	gexportsS�	gmake-thread�	gthread-name�	gthread-specific�	gthread-specific-set!�	g
thread-start!�	g
thread-yield!�	g
thread-sleep!�	gthread-terminate!�	gthread-join!�	g
make-mutex�	g
mutex-name�	gmutex-specific�	gmutex-specific-set!�	gmutex-state�	gmutex-lock!�	 g
mutex-unlock!�	!gmake-condition-variable�	"gcondition-variable-name�	#gcondition-variable-specific�	$g condition-variable-specific-set!�	%gcondition-variable-signal!�	&gcondition-variable-broadcast!�	'gcondition-variable-wait!�	(gcurrent-time�	)gtime?�	*g
time->seconds�	+g
seconds->time�	,gcurrent-exception-handler�	-gwith-exception-handler�	.graise�	/gjoin-timeout-exception?�	0gabandoned-mutex-exception?�	1gterminated-thread-exception?�	2guncaught-exception?�	3guncaught-exception-reason�	4 !"#$%&'()*+,-./0123#�	5g
re-exportsS�	6gcurrent-thread�	7gthread?�	8gmutex?�	9gcondition-variable?�	:6789�	;greplacementsS�	<(!.�	=gset-current-module�	>=�	?=�	@g	provided?�	Agthreads�	Bgerror�	Cf+SRFI-18 requires Guile with threads support�	Dgcond-expand-provide�	Egcurrent-module�	F�	Gg	scm-error�	Hgwrong-type-arg�	IfWrong type argument: ~S�	Jgcheck-arg-type�	Kgabandoned-mutex-exception�	Lgjoin-timeout-exception�	Mgterminated-thread-exception�	Nguncaught-exception�	Ogmake-weak-key-hash-table�	Pgobject-names�	Qgobject-specifics�	Rgthread-start-conds�	Sgthread-exception-handlers�	T
.�	U
.�	Vgsrfi-18-exception-preserver�	Wginitial-handler�	Xgmake-object-property�	Ygthread->exception�	Zgsetter�	[Z�	\Z�	]gsrfi-18-exception-handler�	^g	hashq-ref�	_g
hashq-set!�	`gcurrent-handler-stack�	ag
procedure?�	bfwith-exception-handler�	cgthunk?�	d
-�	e
-�	ffuncaught-exception-reason�	gglaunch-mutex�	hglaunch-condition-variable�	igstart-mutex�	jgstart-condition-variable�	kg
lock-mutex�	lgcall-with-new-thread�	mgsignal-condition-variable�	ngunlock-mutex�	ogwait-condition-variable�	pfthread-name�	qfthread-specific�	rfthread-specific-set!�	sf
thread-start!�	tg
hashq-remove!�	ugyield�	vgnumber?�	wf
thread-sleep!�	xginexact->exact�	ygtruncate�	zgsleep�	{gusleep�	|gwrap�	}gthread-cleanup�	~gset-thread-cleanup!�	g
cancel-thread��gjoin-thread��glength������gunchecked-unlock��gallow-external-unlock��g	recursive��f
mutex-name��fmutex-specific��fmutex-specific-set!��gmutex-owner��gthread-exited?��g	abandoned��gmutex-level��g	not-owned��g
not-abandoned��gcatch��gabandoned-mutex-error��!��!��fcondition-variable-name��fcondition-variable-specific��f condition-variable-specific-set!��gbroadcast-condition-variable��ggettimeofday��ginteger?��f
time->seconds��f
seconds->time�C5h@0�]4	
45:;<54?>"G4@iA5$"4BiC>"G4Di4Ei5F>"GGHIh �]45$C6�gpred
		 garg		 gcaller			 gfilenamefsrfi/srfi-18.scm�
	`
��		a	��	
	a	��		c	��		d	��		d	+��		d	6��	 	c	��			 	gnamegcheck-arg-type�CJRKKRLLRMMRNNR4Oi5PR4Oi5QR4Oi5RR4Oi5SRU.RVNh�]�6xgobj
		gfilenamefsrfi/srfi-18.scm�
	s
��			t	��		t	��		gnameginitial-handler�CWR4Xi5YR12\Y6h8�]	45$"45$45456C�gobj
		6gt			 gfilenamefsrfi/srfi-18.scm�
	x
��		y	
��			y	��		z	
��	$	y	��	,	{	��	4	{	��		6gnamegsrfi-18-exception-preserver�CVRVNh0�-13&C(	�"��6�gkey
			.gargs			.gfilenamefsrfi/srfi-18.scm�
	}
��	
�	��	�	��	�	$��	 �	(��	+�	(��	.�	��			.
gnamegsrfi-18-exception-handler�C]R6^S_Wh0�]4545$C6�gct
		*gt		*gfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	��	
�	��	�	��	(�	1��	*�	��		*
gnamegcurrent-handler-stack�C`R6`Jabc_Se_Sh h]4LL>"GL6`gobj
		gfilenamefsrfi/srfi-18.scm�
�	��	�	��	�	��		C_Sh0q]4L>G4LL>"GEigres
		*gfilenamefsrfi/srfi-18.scm�
�	��	�	��	�	��	*�	��		*
Chp$]45454>"G4>"G4�>"G	
OO6ghandler
		ogthunk		ogct			oghl			ogfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	��	�	��	�	��	�	'��	�	��	'�	��	/�	!��	4�	��	=�	��	H�	-��	M�	��	o�	��		o	gnamegwith-exception-handler�C-R`h{]45�Csgfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	��			
gnamegcurrent-exception-handler�C,RLh�]�Czgobj
		gfilenamefsrfi/srfi-18.scm�
�
��	�	&��		gnamegjoin-timeout-exception?�C/RKh�]�C}gobj
		gfilenamefsrfi/srfi-18.scm�
�
��	�	)��		gnamegabandoned-mutex-exception?�C0RNh�]�$��CC�gobj
		gfilenamefsrfi/srfi-18.scm�
�
��	�	��		�	��	�	��	�	��		gnameguncaught-exception?�C2RJ2fh�]45�C�gexc
		gfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	/��	
�	��	�	��		gnameguncaught-exception-reason�C3RMh�]�Cgobj
		gfilenamefsrfi/srfi-18.scm�
�
��	�	��		gnamegterminated-thread-exception?�C1Rg!hijklkmno-Whx�]4L>"G4L>"G4L>"G4L>"G4LL>"G4L>"GL6{gfilenamefsrfi/srfi-18.scm�
�	��	�	��	�	��	'�	��	9�	��	K�	��	_�	��	x�	��			x
C]_RPonh��-13�$�"454545454>"G4	O
54�>"G$4
>"G"4>"G4>"GC�gthunk
		�gname		�gn		4�glm		4�glc		4�gsm		4�gsc		4�gt		f�gfilenamefsrfi/srfi-18.scm�
�	��	�	��	�	��	�	!��	�	��	�	��	�	��	 �	��	$�	)��	&�	��	'�	��	+�	��	-�	��	.�	��	2�	)��	4�	��	4�	��	?�	��	Q�	��	f�	��	i�	
��	t�	+��	y�	
����	
����	����	
����	
��		�
CR^PJ7ph�]456�gthread
		gfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	9��	�	��	�	��		gnamegthread-name�CR^QJ7qh�]456�gthread
		gfilenamefsrfi/srfi-18.scm�
�
��	�	
��	�	,��	�	
��	�	��		gnamegthread-specific�CR_QJ7rh(�]445>"GC�gthread
		#gobj		#gfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	��	�	-��	�	��	�	��		#	gnamegthread-specific-set!�CR^RJ7stkmn
h�%]4455$^��4>"G4>"G4>"G4	>"G"Cgthread
		}gx		}gsmutex		"	vgscond		"	vgfilenamefsrfi/srfi-18.scm�
�
��	�	��	�	��	�	5��	�	��	�	��	�	��	�	��	�	��	"�	��	"�	��	'�	
��	;�	
��	M�	
��	_�	
��		}gnameg
thread-start!�CRuhf]4>"GC^gfilenamefsrfi/srfi-18.scm�
�
��	�	��		
gnameg
thread-yield!�CR*()vGHwIxyz{
h�]!445545$45�"%45$	�"454	4
554	4
�B@�55
�$4>"G"
�$4>"G"C�gtimeout
	�gct	�gt		L�gsecs		Z�gusecs		u�gfilenamefsrfi/srfi-18.scm�
�
��	�	
��	�	��	�	
��	�	��	�	��	�	��	�	&��	#�	#��	(�	��	2�	��	7�	%��	<�	��	@�	#��	B�	3��	D�	#��	I�	#��	J�	#��	L�	��	L�	��	O�	��	R�	��	Z�	��	Z�	��	]�	��	`�	 ��	g�	-��	q�	*��	s�	 ��	u�	��	u�	��	{�		��	�	����	����		����	����	��&	�gnameg
thread-sleep!�CR-,h z]445>"GL6rgobj
		gfilenamefsrfi/srfi-18.scm�
�	��	�	��	�	��	�	��	�	��		Chh]OL6`gcontinuation
		gfilenamefsrfi/srfi-18.scm�
�	��	�	��		Chh]OC`gthunk
		
gfilenamefsrfi/srfi-18.scm�
�
��		
gnamegwrap�C|R}c~-WVMh V]4L>"G6Ngfilenamefsrfi/srfi-18.scm�
	��			!��		!��		
CVMhM]6Egfilenamefsrfi/srfi-18.scm�
	��		*��		
Ch`�]	4545$4O>"G"4>"G4>"GC�gthread
		[gcurrent-handler			[gfilenamefsrfi/srfi-18.scm�

��		��			��		
��		��		
��	4
	
��	H	��			[gnamegthread-terminate!�CR|�Y�.Lhh�]4LL?4L54L5�$ $"4>"G"$4>"G"C�gv
		bge		bgfilenamefsrfi/srfi-18.scm�
	
��		��		��		��		��		��	#	��	)	��	.	��	I	��	J	��		b
Ch �-13H4O5KJB�gthread
			gargs			gthread-join-inner!		
	gfilenamefsrfi/srfi-18.scm�

��	
	��		��			
gnamegthread-join!�CR����_PhP�-13�$�"45$4>"G"C�gname
			Jgn	#	Jgm		#	Jgfilenamefsrfi/srfi-18.scm�
#	��	$	��	$	
��	$	��	%	
��	%	��	&	��	'	��	!(	��	#%	
��	#$	��	-)	��	.)	
��			J


gnameg
make-mutex�CR^PJ8�h�]456�gmutex
		gfilenamefsrfi/srfi-18.scm�
+
��	,	��	,	7��	,	��	,	��		gnameg
mutex-name�CR^QJ8�h�]456�gmutex
		gfilenamefsrfi/srfi-18.scm�
.
��	0	
��	0	*��	0	
��	/	��		gnamegmutex-specific�CR_QJ8�h(�]445>"GC�gmutex
		#gobj		#gfilenamefsrfi/srfi-18.scm�
2
��	3	��	4	��	4	+��	4	��	3	��		#	gnamegmutex-specific-set!�CR������h8�]	45$45$CC45
�$CC�gmutex
		5gowner			5gfilenamefsrfi/srfi-18.scm�
8
��	9	��		9	��	:	��	;	��	;	��	;	#��	#<	��	+<	��	/<	��	1<	&��	4<	1��
		5gnamegmutex-state�CR|��khM]LL@Egfilenamefsrfi/srfi-18.scm�
B	��	
B	��		

C.Khr-136jgkey
			gargs			gfilenamefsrfi/srfi-18.scm�
C	��	C	(��			
ChV]LLO6Ngfilenamefsrfi/srfi-18.scm�
@	
��	A	��	A	��		
Ch �-13H4O5KJB�gmutex
			gargs			gmutex-lock-inner!		
	gfilenamefsrfi/srfi-18.scm�
>
��	
@	��	D	��			
gnamegmutex-lock!�CRnh�-13@�gmutex
			gargs			gfilenamefsrfi/srfi-18.scm�
F
��	G	��			
gnameg
mutex-unlock!�C R�_PhH�-13�$�"45$4>"G"C�gname
			Dgn		Dgm			Dgfilenamefsrfi/srfi-18.scm�
M	��	N	��	N	
��	N	��	O	
��	O	��	O	
��	N	��	'P	��	(P	
��			D


gnamegmake-condition-variable�C!R^PJ9�h�]456�gcondition-variable
		gfilenamefsrfi/srfi-18.scm�
R
��	S	��	U	*��	S	��	S	��		gnamegcondition-variable-name�C"R^QJ9�h�]456�gcondition-variable
		gfilenamefsrfi/srfi-18.scm�
W
��	X	��	Z	.��	X	��	X	��		gnamegcondition-variable-specific�C#R_QJ9�h(�]445>"GC�gcondition-variable
		#gobj		#gfilenamefsrfi/srfi-18.scm�
\
��	]	��	^	��	`	��	^	��	]	��		#	gnameg condition-variable-specific-set!�C$Rmh�]4>"GC~gcond
		gfilenamefsrfi/srfi-18.scm�
d
��	e	��		gnamegcondition-variable-signal!�C%R�h�]4>"GC�gcond
		gfilenamefsrfi/srfi-18.scm�
h
��	i	��		gnamegcondition-variable-broadcast!�C&R�i(R�hH�]	�$9�45$
�"$�45$
�CCCC�gobj
		Dgco		%gco	,	@gfilenamefsrfi/srfi-18.scm�
o
��	p	��		p	��	q	��	q	��	q	"��	q	��	q	0��	)p	��	,r	��	,r	��	/r	"��	9r	��	=r	0��		Dgnamegtime?�C)RJ)�h(�]45$��B@��CC�gtime
		%gfilenamefsrfi/srfi-18.scm�
t
��	u	��	u	"��	
u	��	u	��	v	
��	v	��	!v	��	"v	��
		%gnameg
time->seconds�C*RJv�yxh@�]	45$+454544�B@�55�CC�gx
		>gfx		<gfilenamefsrfi/srfi-18.scm�
x
��	y	��	y	!��	
y	��	y	��	z	��	z	��	{	��	"|	��	%|	��	,|	,��	6|	)��	8|	��	:|	��	;{		��		>gnameg
seconds->time�C+RC�gm
		4gfilenamefsrfi/srfi-18.scm�		 
��	5	[		��	;	[	��	=	[		��	A	[
��	F	\	��	L	\	��	Q	\	��	Z	^
��	_	^	��	g	^	&��	l	^
��x	`
��z	f	(��}	f	"���	f
���	g	%���	g	���	g
���	h	*���	h	$���	h
���	i	!���	i	���	i
���	k	���	k
���	l	���	l
���	m	���	m
���	n	"���	n
���	r
��k	s
��l	v	��u	v
���	x
���	}
����
����
��	F�
��	��
��
��
��L�
���
����
����
��_�
��+�
��*�
����
����
��o�
��3�
��t
���
�� "
�� �+
��!�.
��"�2
��#�8
��&>>
��&�F
��(FL
��)'R
��*W
��+"\
��+�d
��,�h
��,�n
��-�o
��.�t
��0=x
��K	0?
C6srfi/srfi-37.go000064400000072526150536206130007245 0ustar00GOOF----LE-8-2.0>u]4h6:]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-37�	�		gfilenameS�	
fsrfi/srfi-37.scm�	gimportsS�	gsrfi-9�	
�	
�	�	gexportsS�	goption�	goption-names�	goption-required-arg?�	goption-optional-arg?�	goption-processor�	g	args-fold�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	gsrfi-37:option�	g%option-procedure�	 gmake-syntax-transformer�	! �	" �	#gmacro�	$g$sc-dispatch�	%$�	&$�	'g_�	(gany�	)'((((�	*g
syntax-object�	+glambda�	,gm-46961e511b-153�	-gtop�	.,-�	/gribcage�	0gt-46961e511b-14f�	1gt-46961e511b-150�	2gt-46961e511b-151�	3gt-46961e511b-152�	40123�	5....�	6fl-46961e511b-158�	7fl-46961e511b-159�	8fl-46961e511b-15a�	9fl-46961e511b-15b�	:6789�	;/45:�	</�	=gx�	>=�	?.�	@fl-46961e511b-155�	A@�	B/>?A�	Cgshift�	Dg	proc-name�	Egargs�	FDE�	G-�	HGG�	Ifl-1e8ba8b5a-2ba�	Jfl-1e8ba8b5a-2bb�	KIJ�	L/FHK�	Mgkey�	Ngvalue�	Ogname�	Pgformals�	Qgbody�	RMNOPQ�	SGGGGG�	Tfl-1e8ba8b5a-2ad�	Ufl-1e8ba8b5a-2ae�	Vfl-1e8ba8b5a-2af�	Wfl-1e8ba8b5a-2b0�	Xfl-1e8ba8b5a-2b1�	YTUVWX�	Z/RSY�	[gmake-procedure-name�	\[�	]G�	^fl-1e8ba8b5a-29d�	_^�	`/\]_�	aG�	bfl-1e8ba8b5a-29c�	cb�	d/>ac�	e.;<BC<<<<LZ`d
�	fghygiene�	gf�	h*+eg�	ignames�	jG;<B�	kf�	l*ijk�	mg
required-arg?�	n*mjk�	og
optional-arg?�	p*ojk�	qg	processor�	r*qjk�	slnpr�	tgmake-struct�	ugm-46961e511b-14d�	vu-�	wgt-1e8ba8b5a-38d�	xgt-1e8ba8b5a-38c�	ygt-1e8ba8b5a-38b�	zwxy�	{gm-1e8ba8b5a-38e�	|{-�	}|||�	~fl-1e8ba8b5a-392�	fl-1e8ba8b5a-393��fl-1e8ba8b5a-394��~���/z}���g	ctor-args�����fl-1e8ba8b5a-37a�����/�a���gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������/�H���gform��g	type-name��gconstructor-spec��gfield-names��������GGGG��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������/�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������GGGGGGGG��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������/�����fl-1e8ba8b5a-334�����/>a���v;<BC<�<<<��<�����*t�g��*jk��*
�g�����lnpr��hs���geach-any��'����gsyntax-violation��
���
���fWrong number of arguments��gidentifier?��
���
���G<B��*�k��������f-source expression failed to match any pattern��grecord-type-vtable��
���
���gpwpwpwpw��gdefault-record-printer��
���
���imoq��gset-struct-vtable-name!��
���
���gvtable-offset-user��
���
���g%option?-procedure��goption?��'(��gm-46961e511b-166���-��gt-46961e511b-165��������fl-46961e511b-16b�����/�����fl-46961e511b-168�����/>������<�C<<<<LZ`d
��*+�g��gobj��gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b�����������gm-1e8ba8b5a-47f���-�����������fl-1e8ba8b5a-483��fl-1e8ba8b5a-484��fl-1e8ba8b5a-485��fl-1e8ba8b5a-486��fl-1e8ba8b5a-487��fl-1e8ba8b5a-488��fl-1e8ba8b5a-489�����������/�����g	copier-id�����fl-1e8ba8b5a-476�����/�a���g	ctor-name����fl-1e8ba8b5a-46e��/�a���fl-1e8ba8b5a-46c��/a�glayout��	fl-1e8ba8b5a-46a�
	�/a
�g
immutable?�
�fl-1e8ba8b5a-468��/
a�gfield-count��fl-1e8ba8b5a-466��/a�g
getter-ids��fl-1e8ba8b5a-463��/a�g	field-ids��fl-1e8ba8b5a-460��/a� gpredicate-name�!g
field-spec�"��� !�#GGGGGG�$fl-1e8ba8b5a-453�%fl-1e8ba8b5a-454�&fl-1e8ba8b5a-455�'fl-1e8ba8b5a-456�(fl-1e8ba8b5a-457�)fl-1e8ba8b5a-458�*$%&'()�+/"#*�,v�<�C<�<<<<�<<<<<<<+���-*�,g�.-�/gand�0*/,g�1gstruct?�2*1,g�32-�4geq?�5*4,g�6g
struct-vtable�7*6,g�87-�9G�<��:*9k�;58:�<03;�=�.<�>G<��?*�>k�@gthrow-bad-struct�A
@�B
@�Cg%option-names-procedure�Dgfree-id�Eg
%%on-error�Fgm-46961e511b-172�GF-�HG�Ifl-46961e511b-174�JI�K/>HJ�LG<KC<<<<LZ`d�M*ELg�NDM�ON(�Pg%%type�Qgt-1e8ba8b5a-3a5�Rgt-1e8ba8b5a-3a6�Sgt-1e8ba8b5a-3a7�Tgt-1e8ba8b5a-3a8�Ugt-1e8ba8b5a-3a9�Vgt-1e8ba8b5a-3aa�Wgt-1e8ba8b5a-3ab�XQRSTUVW�Ygm-1e8ba8b5a-3ac�ZY-�[ZZZZZZZ�\fl-1e8ba8b5a-3b0�]fl-1e8ba8b5a-3b1�^fl-1e8ba8b5a-3b2�_fl-1e8ba8b5a-3b3�`fl-1e8ba8b5a-3b4�afl-1e8ba8b5a-3b5�bfl-1e8ba8b5a-3b6�c\]^_`ab�d/X[c�eggetter�fgindex�gef�hfl-1e8ba8b5a-3a3�ifl-1e8ba8b5a-3a4�jhi�k/gHj�l���mGGG�nfl-1e8ba8b5a-39e�ofl-1e8ba8b5a-39f�pfl-1e8ba8b5a-3a0�qnop�r/lmq�sv<KC<d<<<k<r���t*Psg�uDt�v'Ou(�wgck�xgerr�ygs�zxy�{GG�|fl-46961e511b-177�}fl-46961e511b-178�~|}�/z{~��G<KC<<<<LZ`d
��*w�g��gquote��*��g��G<K��*�k���������g%%index��*�sg��D���'O�(��fl-46961e511b-17c��fl-46961e511b-17d������/z{���G�<KC<<<<LZ`d
��*w�g��*��g���<K��*
�k���������g%%copier��*�sg��D���'O�(��fl-46961e511b-181��fl-46961e511b-182������/z{���G�<KC<<<<LZ`d
��*w�g��*��g��g%%srfi-37:option-set-fields��G�<K��*��k���������gt-46961e511b-171�����fl-46961e511b-186�����/�H���G�<KC<<<<LZ`d
��*+�g��v�<KC<d<<<k<r����*y�g�����gif��*��g��*4�g��*6�g������G�<K��*�k�������g
struct-ref��*��g���<K��*
�k�������*@�g��*��g��*�k����������������������G<K��*C�k��g%option-required-arg?-procedure��gm-46961e511b-18d���-�����fl-46961e511b-18f�����/>�����<�C<<<<LZ`d��*E�g��D����(��v<�C<d<<<k<r����*P�g��D���'��(������fl-46961e511b-192��fl-46961e511b-193������/z������<�C<<<<LZ`d
��*w�g��*��g��G�<���*�k���������*��g��D���'��(��fl-46961e511b-197��fl-46961e511b-198������/z������<�C<<<<LZ`d
��*w�g��*��g���<���*�k���������*��g��D���'��(��fl-46961e511b-19c��fl-46961e511b-19d������/z������<�C<<<<LZ`d
��*w�g��*��g��G�<���*��k���������gt-46961e511b-18c����fl-46961e511b-1a1��/����<�C<<<<LZ`d
�*+g�v<�C<d<<<k<r���*yg��*�g�	*4g�
*6g�
�G<��
*k�	
�*�g�<��*k��*@g�*�g�*k�����G<��*�k�g%option-optional-arg?-procedure�gm-46961e511b-1a8�-�� fl-46961e511b-1aa�! �"/>!�#<"C<<<<LZ`d�$*E#g�%D$�&%(�'v<"C<d<<<k<r���(*P'g�)D(�*'&)(�+�,fl-46961e511b-1ad�-fl-46961e511b-1ae�.,-�//z+.�0/<"C<<<<LZ`d
�1*w0g�2*�0g�3G/<"�4*3k�524�65�7*�'g�8D7�9'&8(�:fl-46961e511b-1b2�;fl-46961e511b-1b3�<:;�=/z+<�>=<"C<<<<LZ`d
�?*w>g�@*�>g�A=<"�B*	Ak�C@B�DC�E*�'g�FDE�G'&F(�Hfl-46961e511b-1b7�Ifl-46961e511b-1b8�JHI�K/z+J�LK<"C<<<<LZ`d
�M*wLg�N*�Lg�OGK<"�P*�Ok�QNP�RQ�Sgt-46961e511b-1a7�TS�Ufl-46961e511b-1bc�VU�W/TV�XW<"C<<<<LZ`d
�Y*+Xg�ZvW<"C<d<<<k<r���[*yZg�\[�]*�Zg�^*4Zg�_*6Zg�`_[�aGW<"�b*ak�c^`b�d*�Zg�eW<"�f*	ek�gd[f�h*@Zg�i*�Zg�j*ak�kij�lh[k�m]cgl�nY\m�oG<"�p*ok�qg%option-processor-procedure�rgm-46961e511b-1c3�sr-�ts�ufl-46961e511b-1c5�vu�w/>tv�xs<wC<<<<LZ`d�y*Exg�zDy�{z(�|v<wC<d<<<k<r���}*P|g�~D}�'{~(��ss��fl-46961e511b-1c8��fl-46961e511b-1c9������/z����s�<wC<<<<LZ`d
��*w�g��*��g��G�<w��*�k���������*�|g��D���'{�(��fl-46961e511b-1cd��fl-46961e511b-1ce������/z����s�<wC<<<<LZ`d
��*w�g��*��g���<w��*	�k���������*�|g��D���'{�(��fl-46961e511b-1d2��fl-46961e511b-1d3������/z����s�<wC<<<<LZ`d
��*w�g��*��g��G�<w��*��k���������gt-46961e511b-1c2�����fl-46961e511b-1d7�����/�t���s�<wC<<<<LZ`d
��*+�g��v�<wC<d<<<k<r����*y�g�����*��g��*4�g��*6�g������G�<w��*�k�������*��g���<w��*	�k�������*@�g��*��g��*�k����������������������G<w��*q�k��geach��((������(Ȍ��(Ɍ��(ʌ��g%%set-fields��gdummy��gcheck?��gexpr����ye���gm-46961e511b-1de���-���vvvv��fl-46961e511b-1e3��fl-46961e511b-1e4��fl-46961e511b-1e5��fl-46961e511b-1e6��fl-46961e511b-1e7���������/��������fl-46961e511b-1e0�����/>����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���-�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������/�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������/lm���v�<�C<�<<<���
��*��g��G�<���*�k��*�k��*�k��*�k��*�k��������gmap��������glist��g	scm-error��g
program-error��f	args-fold�fDuplicate option name `~A~A'�gchar?�f--�gerror-duplicate-option�gmake-hash-table�glength�gfor-each�ghash-create-handle!�gbuild-options-lookup�	gappend�
g
string-length�g	substring�g
string-ref�
ghash-ref�g
misc-error�f%Missing required argument after `-~A'�gchar=?�gstring-index�f&Missing required argument after `--~A'�f Extraneous argument after `--~A'�C5h(7�]4	
54>"G4i4i5>"Gh�]�C�gnames
		g
required-arg?		g
optional-arg?			g	processor			gfilenamefsrfi/srfi-37.scm�
	E
��			gnameg%option-procedure�CR4"#&)�h�]C�gt-46961e511b-14f
		gt-46961e511b-150		gt-46961e511b-151			gt-46961e511b-152						C���hS]L6Kga
		gfilenamefsrfi/srfi-37.scm�		E
��		C'�hC]L6;gfilenamefsrfi/srfi-37.scm�		E
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-37.scm�
	E
��		nC5R���ͨ4�>"G	Ӗi�Rhs]�$��CCkgobj
		gfilenamefsrfi/srfi-37.scm�
	E
��		gnameg%option?-procedure�C�R4"�#&�=h8]C0gt-46961e511b-165
		
		
C����hS]L6Kga
		gfilenamefsrfi/srfi-37.scm�		E
��		C'�hC]L6;gfilenamefsrfi/srfi-37.scm�		E
��		
C?h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-37.scm�
	E
��		nC5�RBhv]�&
�C6ngs
		gfilenamefsrfi/srfi-37.scm�
	E
��		gnameg%option-names-procedure�CCR4"#&v��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h8]C0gt-46961e511b-171
		
		
C���hS]L6Kga
		gfilenamefsrfi/srfi-37.scm�		E
��		C'�hC]L6;gfilenamefsrfi/srfi-37.scm�		E
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-37.scm�
	E
��	�C5RBh~]�&�C6vgs
		gfilenamefsrfi/srfi-37.scm�
	E
��		gnameg%option-required-arg?-procedure�C�R4"#&���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h8]C0gt-46961e511b-18c
		
		
C���hS]L6Kga
		gfilenamefsrfi/srfi-37.scm�		E
��		C'�hC]L6;gfilenamefsrfi/srfi-37.scm�		E
��		
Ch]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-37.scm�
	E
��	�C5RBh ~]�&	�C6vgs
		gfilenamefsrfi/srfi-37.scm�
	E
��		gnameg%option-optional-arg?-procedure�CR4"#&*16h:]��C2gerr
		gs					C9?Dh:]��C2gerr
		gs					CGMRh:]��C2gerr
		gs					C�nh8]C0gt-46961e511b-1a7
		
		
C���hS]L6Kga
		gfilenamefsrfi/srfi-37.scm�		E
��		C'�hC]L6;gfilenamefsrfi/srfi-37.scm�		E
��		
Cph]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-37.scm�
	E
��	�C5RBh z]�&	�C6rgs
		gfilenamefsrfi/srfi-37.scm�
	E
��		gnameg%option-processor-procedure�CqR4"#&��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h8]C0gt-46961e511b-1c2
		
		
C���hS]L6Kga
		gfilenamefsrfi/srfi-37.scm�		E
��		C'�hC]L6;gfilenamefsrfi/srfi-37.scm�		E
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-37.scm�
	E
��	�C5R4"�#&������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-37.scm�
	E
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R���h(�]45$-"6�goption-name
		%gfilenamefsrfi/srfi-37.scm�
	M
��		N	
��		N	��	
	O	
��		P	��		P	��		P	/��	"	P	
��	%	N	��
		%gnamegerror-duplicate-option�CRh(�]	4L5�$�6L�C�gname
		#gassoc		#gfilenamefsrfi/srfi-37.scm�
	[	��		\	 ��		\	��		^	��		^	��		_	1��		_	��	!	`	��			#CBh0e]LO�&
�"	456]gopt
		)gfilenamefsrfi/srfi-37.scm�
	Z	��		a	��	)	[	��		)Ch0k]	4	45�54O>"GCcgoptions
		/glookup		/gfilenamefsrfi/srfi-37.scm�
	T
��		X	��		X	&��		X	!��		X	��		X	��		Y	��		/gnamegbuild-options-lookup�g
documentationf�Answer an `equal?' Guile hash-table that maps OPTIONS' names back
to the containing options, signalling an error if a name is
encountered more than once.�CRB�	hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm�
	q	��		r	)��		r	��		
Ch�q]�&		�"	45�&�"	45$	45"9�&		�"	45$	45"4>"G44LO>5"=NCigopt
	�gname	�greq-arg-proc		�gopt-arg-proc		�gno-arg-proc		�g	procedure	��gparams	��gfilenamefsrfi/srfi-37.scm�
		��	�	��	$�	��	?�	��	@�	)��	K�	��	g�	��	h�	)��	q�	����	���	p	���	p	��
	�	gnameginvoke-option-processor�C
hP{]	�4M�5�$4M��5M�NCM��$M��M��NCM�$M�NCCsgposition
		Ngresult		'gresult	3	>gfilenamefsrfi/srfi-37.scm�
�	��	�	��	�	��	�	-��	
�	��	�	
��	�	��	�	��	�	&��	�	1��	�	��	�	
��	"�	��	$�	��	*�	��	+�	
��	/�	��	2�	��	3�	
��	8�	��	;�	��	A�	
��	E�	��	H�	��	J�	
��		Ngnamegshort-option-argument�C

��h(�]4LL5$CL6�gt
			(gargs
		(gfilenamefsrfi/srfi-37.scm�
�	��	�	��		�	��	�	��		m	��	!	m	��	#�	!��	(	m	��			(
ChM]LL6Egfilenamefsrfi/srfi-37.scm�
�	��	�	��		
ChD]C<gfilenamefsrfi/srfi-37.scm�
�	��		
CB�	hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm�
	q	��		r	)��		r	��		
C
h�]4M�5�$	M�NL64M�54L5$~4LLOLO>"G�&�"	4	5$"�&		�"	4
5$C�"��ML�44LLO>5"=N�"���gposition
	�gopt-name	$�goption-here		/�gt		{�gnames	��gparams	��gfilenamefsrfi/srfi-37.scm�
�	��	�	��	
�	&��	�	��	
�	
��	�	��	�	��	�	��	�	��	�	��	 �	'��	$�	��	$�	
��	'�	��	/�	
��	7�	��	8�	��	d�	 ��	{�	����	 ����	����	%����	����	*����	"����	���	p	���	p	����	!����	��	�gnamegshort-option�C
�	hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm�
	q	��		r	)��		r	��		
C�	hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm�
	q	��		r	)��		r	��		
Ch(�]	44LLO>5"=NCxgarg
		(gparams		(gfilenamefsrfi/srfi-37.scm�
	w	��		w	��	
	p	��	&	p	��		(C
��h(�]L$	LL�6L6�gargs
		%gfilenamefsrfi/srfi-37.scm�
�	��	�	��	�	&��	�	��	�	��		m	��		m	��	 �	��	%	m	��
		%
Ch_]L$	LL�6CWgfilenamefsrfi/srfi-37.scm�
�	��	�	��	�	6��	�	'��		
C��h �]L$L6C�gargs
	
	gfilenamefsrfi/srfi-37.scm�
�	��	�	��	
�	��		m	��		m	��	�	��		m	��		
C	hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm�
	q	��		r	)��		r	��		
Ch�A]8M(MEM�4-4
55�$"	45�$044LLO>5"=NM�N"@4-455$	45�$'M�N4LLOM>"GN"�M�"�4=54		$"4554
L5$54LOO
O>"hG"a$	�"���L�44LLO>5"=N"	"��.M�N"4L>"G"��P9garg
	�gt	!	:gparams	C	egarg��g	start-pos	��gindex	��gopt-name	��goption-here	��gnames	DTgparams	Z�
gfilenamefsrfi/srfi-37.scm�
�	��	�	��	�	
��	�	��	�	
��	�	��	�	(��	 �	��	!�	��	!�	��	0�	��	7�	��	>�	��	C�	��	F	p	��	b	p	��	h�	��	j�	��	o�	��	t�	��	}�	����	����	����	����	����	)����	���	w	���	y	���	y	����	����	����	����	����	
����	����	,����	6����	����	
����	����	
����	����	��6�	��9�	#��?�	��D�	��D�	��Z�	��]	p	��y	p	����	����	����	����	����	��:	�
gnamegnext-arg�Ch�J-13
HH45OOOO	QQ	Q	Q		6Bgargs
		|goptions		|gunrecognized-option-proc			|goperand-proc			|gseeds			|glookup			|ginvoke-option-processor		H	|gshort-option-argument		H	|gshort-option		H	|gnext-arg			H	|
gfilenamefsrfi/srfi-37.scm�
	e
��		j	��		j	��	|�	��			|	
	gnameg	args-fold�g
documentationf�Answer the results of folding SEEDS as multiple values against the
program-arguments in ARGS, as decided by the OPTIONS'
`option-processor's, UNRECOGNIZED-OPTION-PROC, and OPERAND-PROC.�CRC�gm
		,grtd
>gfilenamefsrfi/srfi-37.scm�		*
��	-	0
��	2	0	��	:	0	&��	?	0
��,	E
���	M
��!	T
��7%	e
��
	7'
C6srfi/srfi-14.go000064400000004707150536206130007234 0ustar00GOOF----LE-8-2.0�	]Z4h	]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-14�	�		gfilenameS�	
fsrfi/srfi-14.scm�	gset-current-module�	�	
�	gcall-with-deferred-observers�	�	�	gmodule-re-export!�	�	�	gcurrent-module�	�	�	g	char-set?�	g	char-set=�	g
char-set<=�	g
char-set-hash�	gchar-set-cursor�	gchar-set-ref�	gchar-set-cursor-next�	gend-of-char-set?�	g
char-set-fold�	 gchar-set-unfold�	!gchar-set-unfold!�	"gchar-set-for-each�	#gchar-set-map�	$g
char-set-copy�	%gchar-set�	&glist->char-set�	'glist->char-set!�	(gstring->char-set�	)gstring->char-set!�	*gchar-set-filter�	+gchar-set-filter!�	,gucs-range->char-set�	-gucs-range->char-set!�	.g
->char-set�	/g
char-set-size�	0gchar-set-count�	1gchar-set->list�	2gchar-set->string�	3gchar-set-contains?�	4gchar-set-every�	5gchar-set-any�	6gchar-set-adjoin�	7gchar-set-adjoin!�	8gchar-set-delete�	9gchar-set-delete!�	:gchar-set-complement�	;gchar-set-union�	<gchar-set-intersection�	=gchar-set-difference�	>gchar-set-xor�	?gchar-set-diff+intersection�	@gchar-set-complement!�	Agchar-set-union!�	Bgchar-set-intersection!�	Cgchar-set-difference!�	Dg
char-set-xor!�	Egchar-set-diff+intersection!�	Fgchar-set:lower-case�	Ggchar-set:upper-case�	Hgchar-set:title-case�	Igchar-set:letter�	Jgchar-set:digit�	Kgchar-set:letter+digit�	Lgchar-set:graphic�	Mgchar-set:printing�	Ngchar-set:whitespace�	Ogchar-set:iso-control�	Pgchar-set:punctuation�	Qgchar-set:symbol�	Rgchar-set:hex-digit�	Sgchar-set:blank�	Tgchar-set:ascii�	Ugchar-set:empty�	Vg
char-set:full�	W !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUV@�	Xgcond-expand-provide�	Y�C5h�u]4	
54
>"G4WhB]456:gfilenamefsrfi/srfi-14.scm�
	
��		
C>"GXi4i5Y6mgm
	
	$gfilenamefsrfi/srfi-14.scm�		
��	%	
���	`	���	`	&���	`
��	�
C6srfi/srfi-41.go000064400000304156150536206130007235 0ustar00GOOF----LE-8-2.0V�]�4hE�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-41�	�		gfilenameS�	
fsrfi/srfi-41.scm�	gimportsS�	gsrfi-1�	
�	
�	gsrfi-8�	�	�	gsrfi-9�	�	�	ggnu�	�	�	gsrfi-26�	�	�	gice-9�	gmatch�	�	�	�	 gexportsS�	!gstream-null�	"gstream-cons�	#gstream?�	$gstream-null?�	%gstream-pair?�	&g
stream-car�	'g
stream-cdr�	(g
stream-lambda�	)g
define-stream�	*glist->stream�	+gport->stream�	,gstream�	-gstream->list�	.g
stream-append�	/g
stream-concat�	0gstream-constant�	1gstream-drop�	2gstream-drop-while�	3g
stream-filter�	4gstream-fold�	5gstream-for-each�	6gstream-from�	7gstream-iterate�	8g
stream-length�	9g
stream-let�	:g
stream-map�	;gstream-match�	<g	stream-of�	=gstream-range�	>g
stream-ref�	?gstream-reverse�	@gstream-scan�	Agstream-take�	Bgstream-take-while�	Cg
stream-unfold�	Dgstream-unfolds�	Eg
stream-zip�	F!"#$%&'()*+,-./0123456789:;<=>?@ABCDE%�	Ggset-current-module�	HG�	IG�	Jgcond-expand-provide�	Kgcurrent-module�	L�	Mgmake-syntax-transformer�	NM�	OM�	Pgmust�	Qgmacro�	Rg$sc-dispatch�	SR�	TR�	Ugany�	Vgeach-any�	WUV��	XUW��	YUX��	ZUY��	[UZ��	\g
syntax-object�	]glet�	^gtop�	_^�	`gribcage�	agdummy�	bgpred�	cgobj�	dgfunc�	egmsg�	fgargs�	gabcdef�	hgm-46961e513a-1�	ih^�	ji_____�	kfl-46961e513a-6�	lfl-46961e513a-7�	mfl-46961e513a-8�	nfl-46961e513a-9�	ofl-46961e513a-a�	pfl-46961e513a-b�	qklmnop�	r`gjq�	s`�	tgx�	ut�	vi�	wfl-46961e513a-3�	xw�	y`uvx�	z_rsy�	{ghygiene�	|{�	}\]z|�	~gitem�	\~z|��gunless��\�z|����gthrow��\�z|��gquote��\�z|��gwrong-type-arg��\�z|������glist��\�z|��������gsyntax-violation��������f-source expression failed to match any pattern��gmust-not��gm-46961e513a-14���^���_____��fl-46961e513a-19��fl-46961e513a-1a��fl-46961e513a-1b��fl-46961e513a-1c��fl-46961e513a-1d��fl-46961e513a-1e����������`g�������fl-46961e513a-16�����`u����_�s���\]�|��\~�|��gwhen��\��|�����\��|��\��|��\��|������\��|���������g
must-every��gobjs��ab�def��gm-46961e513a-27���^���_____��fl-46961e513a-2c��fl-46961e513a-2d��fl-46961e513a-2e��fl-46961e513a-2f��fl-46961e513a-30��fl-46961e513a-31����������`��������fl-46961e513a-29�����`u����_�s���\]�|��gflunk��\��|��gremove��\��|��\��|��gnull?��\��|������\��|��\��|��\��|������\��|�����gfirst-value��UU��greceive��gexpr��a���gm-46961e513a-3a���^���_��fl-46961e513a-3f��fl-46961e513a-40������`��������fl-46961e513a-3c�����`u����_�s���\��|��gfirst��\��|��g_��\��|���挤����gsecond-value��gm-46961e513a-44���^���_��fl-46961e513a-49��fl-46961e513a-4a������`��������fl-46961e513a-46�����`u����_�s���\��|��\��|��gsecond��\��|��\��|���������������gthird-value��gm-46961e513a-4e��^�_�fl-46961e513a-53�fl-46961e513a-54��`���fl-46961e513a-50��	`u�
_s	�\�
|�\�
|�
\�
|�gthird�\
|�\�
|���
�����gdefine-syntax*�UU��V��U��g
define-syntax�gname�gbody�af�gm-46961e513a-57�^�___� fl-46961e513a-5c�!fl-46961e513a-5d�"fl-46961e513a-5e�#fl-46961e513a-5f�$ !"#�%`$�&�'fl-46961e513a-59�('�)`u&(�*_%s)�+\*|�,glambda*�-\,*|�.UUU�/gsyntax�0a/�1__�2fl-46961e513a-66�3fl-46961e513a-67�4fl-46961e513a-68�5234�6`015�7_6s)�8\7|�9gstream-promise�:g%make-stream-promise-procedure�;gmake-stream-promise�<�U�=glambda�>gm-46961e513a-70�?>^�@gt-46961e513a-6f�A@�B?�Cfl-46961e513a-75�DC�E`ABD�Ffl-46961e513a-72�GF�H`uBG�Igshift�Jg	proc-name�KJf�L__�Mfl-1e8ba8b5a-2ba�Nfl-1e8ba8b5a-2bb�OMN�P`KLO�Qgkey�Rgvalue�Sgformals�TQRS�U_____�Vfl-1e8ba8b5a-2ad�Wfl-1e8ba8b5a-2ae�Xfl-1e8ba8b5a-2af�Yfl-1e8ba8b5a-2b0�Zfl-1e8ba8b5a-2b1�[VWXYZ�\`TU[�]gmake-procedure-name�^]�__�`fl-1e8ba8b5a-29d�a`�b`^_a�c_�dfl-1e8ba8b5a-29c�ed�f`uce�g?EsHIssssP\bf
�h{�i\=gh�jgval�k_EsH�l\jk|�ml�ngmake-struct�ogm-46961e513a-6d�po^�qgt-1e8ba8b5a-38d�rgt-1e8ba8b5a-38c�sgt-1e8ba8b5a-38b�tqrs�ugm-1e8ba8b5a-38e�vu^�wvvv�xfl-1e8ba8b5a-392�yfl-1e8ba8b5a-393�zfl-1e8ba8b5a-394�{xyz�|`tw{�}g	ctor-args�~}�fl-1e8ba8b5a-37a����`~c���gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������`�L���gform��g	type-name��gconstructor-spec��gfield-names��������____��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������`�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������________��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������`�����fl-1e8ba8b5a-334�����`uc���pEsHIs|sss��s�����\n�h��\9k|��\
�h�����l��im����V���������fWrong number of arguments��gidentifier?��������_sH��\:�|��grecord-type-vtable��������gpw��gdefault-record-printer��������j��gset-struct-vtable-name!��������gvtable-offset-user��������g%stream-promise?-procedure��gstream-promise?��gm-46961e513a-7d���^��gt-46961e513a-7c��������fl-46961e513a-82�����`�����fl-46961e513a-7f�����`u������s�IssssP\bf
��\=�h��gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b�����������gm-1e8ba8b5a-47f���^�����������fl-1e8ba8b5a-483��fl-1e8ba8b5a-484��fl-1e8ba8b5a-485��fl-1e8ba8b5a-486��fl-1e8ba8b5a-487��fl-1e8ba8b5a-488��fl-1e8ba8b5a-489�����������`�����g	copier-id�����fl-1e8ba8b5a-476�����`�c���g	ctor-name�����fl-1e8ba8b5a-46e�����`�c������fl-1e8ba8b5a-46c�����`�c���glayout�����fl-1e8ba8b5a-46a�����`�c���g
immutable?���fl-1e8ba8b5a-468��`c�gfield-count��fl-1e8ba8b5a-466��`c�	g
getter-ids�
	�fl-1e8ba8b5a-463��
`
c�g	field-ids��fl-1e8ba8b5a-460��`c�gpredicate-name�g
field-spec������______�fl-1e8ba8b5a-453�fl-1e8ba8b5a-454�fl-1e8ba8b5a-455�fl-1e8ba8b5a-456�fl-1e8ba8b5a-457�fl-1e8ba8b5a-458��`�p�s�Is�ssss�s�s�s�sss
s��� \ch�! �"gand�#\"h�$gstruct?�%\$h�&% �'geq?�(\'h�)g
struct-vtable�*\)h�+* �,_�s��-\9,|�.(+-�/#&.�0�!/�1_s��2\�1|�3gthrow-bad-struct�43�53�6gstream-promise-val�7g%stream-promise-val-procedure�8gfree-id�9g
%%on-error�:gm-46961e513a-89�;:^�<;�=fl-46961e513a-8b�>=�?`u<>�@;s?IssssP\bf�A\9@h�B8A�CBU�Dg%%type�Egt-1e8ba8b5a-3a5�Fgt-1e8ba8b5a-3a6�Ggt-1e8ba8b5a-3a7�Hgt-1e8ba8b5a-3a8�Igt-1e8ba8b5a-3a9�Jgt-1e8ba8b5a-3aa�Kgt-1e8ba8b5a-3ab�LEFGHIJK�Mgm-1e8ba8b5a-3ac�NM^�ONNNNNNN�Pfl-1e8ba8b5a-3b0�Qfl-1e8ba8b5a-3b1�Rfl-1e8ba8b5a-3b2�Sfl-1e8ba8b5a-3b3�Tfl-1e8ba8b5a-3b4�Ufl-1e8ba8b5a-3b5�Vfl-1e8ba8b5a-3b6�WPQRSTUV�X`LOW�Yggetter�Zgindex�[YZ�\fl-1e8ba8b5a-3a3�]fl-1e8ba8b5a-3a4�^\]�_`[L^�`�	��a___�bfl-1e8ba8b5a-39e�cfl-1e8ba8b5a-39f�dfl-1e8ba8b5a-3a0�ebcd�f``ae�gps?IsXsss_sf���h\Dgh�i8h�j�CiU�kgck�lgerr�mgs�nlm�o;;�pfl-46961e513a-8e�qfl-46961e513a-8f�rpq�s`nor�t;ss?IssssP\bf
�u\kth�v\�th�w_ss?�x\9w|�yvx�zy�{g%%index�|\{gh�}8|�~�C}U�fl-46961e513a-93��fl-46961e513a-94�����`no���;�s?IssssP\bf
��\k�h��\��h���s?��\
�|���������g%%copier��\�gh��8����C�U��fl-46961e513a-98��fl-46961e513a-99������`no���;�s?IssssP\bf
��\k�h��\��h��g%%stream-promise-set-fields��_�s?��\��|���������gt-46961e513a-88�����fl-46961e513a-9d�����`�<���;�s?IssssP\bf
��\=�h��p�s?IsXsss_sf����\m�h�����gif��\��h��\'�h��\)�h������_�s?��\9�|�������g
struct-ref��\��h���s?��\
�|�������\3�h��\��h��\6�|����������������������_s?��\7�|��geach������U����U����U����g%%set-fields��gcheck?��a�mY���gm-46961e513a-a4���^���pppp��fl-46961e513a-a9��fl-46961e513a-aa��fl-46961e513a-ab��fl-46961e513a-ac��fl-46961e513a-ad���������`��������fl-46961e513a-a6�����`u����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���^�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������`�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������``a���p�s�Is�sss���
��\��h��_�s���\9�|��\6�|�����gmap��������gstream-promise-val-set!��g"%stream-promise-val-set!-procedure���UU��gm-46961e513a-b8���^��gt-46961e513a-b6��gt-46961e513a-b7����������fl-46961e513a-bd��fl-46961e513a-be������`��������fl-46961e513a-ba�����`u������s�IssssP\bf
��\=�h��gt-1e8ba8b5a-3e6��gt-1e8ba8b5a-3e7�����gm-1e8ba8b5a-3e8�^��fl-1e8ba8b5a-3ec�fl-1e8ba8b5a-3ed��`��gsetter�Y�	fl-1e8ba8b5a-3e0�
fl-1e8ba8b5a-3e1�fl-1e8ba8b5a-3e2�	
�
`a�Z�fl-1e8ba8b5a-3d7�fl-1e8ba8b5a-3d8��`L�gfield-specs���fl-1e8ba8b5a-3d3�fl-1e8ba8b5a-3d4��`L�p�s�Is
ss���\mh�\jh��\�h�\'h�\)h� �!_�s��"\9!|�# "�$gstruct-set!�%\$h�&�s��'\
&|�(%'�)\3h�*\�h�+\�!|�,*+�-),�.#(-�/�.�0_s��1\�0|�2gstream-value�3g%make-stream-value-procedure�4gmake-stream-value�5gm-46961e513a-d9�65^�7gt-46961e513a-d7�8gt-46961e513a-d8�978�:66�;fl-46961e513a-de�<fl-46961e513a-df�=;<�>`9:=�?6�@fl-46961e513a-db�A@�B`u?A�C6>sBIssssP\bf
�D\=Ch�Egtag�F_>sB�G\EF|�Hgproc�I\HF|�JGI�Kgm-46961e513a-d5�LK^�ML>sBIs|sss��s����N\nMh�O\2F|�P\
Mh�QNOPGI�RDJQ�S_sB�T\3S|�Ugpwpw�VEH�Wg%stream-value?-procedure�Xg
stream-value?�Ygm-46961e513a-e8�ZY^�[gt-46961e513a-e7�\[�]Z�^fl-46961e513a-ed�_^�``\]_�afl-46961e513a-ea�ba�c`u]b�dZ`scIssssP\bf
�e\=dh�fL`scIs�ssss�s�s�s�sss
s���g\cfh�hg�i\"fh�j\$fh�kjg�l\'fh�m\)fh�nmg�o_`sc�p\2o|�qlnp�rikq�sehr�t_sc�u\Wt|�vgstream-value-tag�wg%stream-value-tag-procedure�xgm-46961e513a-f4�yx^�zy�{fl-46961e513a-f6�|{�}`uz|�~ys}IssssP\bf�\9~h��8���U��Ls}IsXsss_sf����\D�h��8������U��yy��fl-46961e513a-f9��fl-46961e513a-fa������`n����y�s}IssssP\bf
��\k�h��\��h��_�s}��\2�|���������\{�h��8������U��fl-46961e513a-fe��fl-46961e513a-ff������`n����y�s}IssssP\bf
��\k�h��\��h���s}��\
�|���������\��h��8������U��fl-46961e513a-103��fl-46961e513a-104������`n����y�s}IssssP\bf
��\k�h��\��h��g%%stream-value-set-fields��_�s}��\��|���������gt-46961e513a-f3�����fl-46961e513a-108�����`�z���y�s}IssssP\bf
��\=�h��L�s}IsXsss_sf����\m�h�����\��h��\'�h��\)�h������_�s}��\2�|�������\��h���s}��\
�|�������\3�h��\��h��\v�|����������������������_s}��\w�|��gstream-value-proc��g%stream-value-proc-procedure��gm-46961e513a-10f���^�����fl-46961e513a-111�����`u�����s�IssssP\bf��\9�h��8����U��Ls�IsXsss_sf����\D�h��8������U������fl-46961e513a-114��fl-46961e513a-115������`n������s�IssssP\bf
��\k�h��\��h��_�s���\2�|���������\{�h��8������U��fl-46961e513a-119��fl-46961e513a-11a������`n������s�IssssP\bf
��\k�h��\��h���s���\�|���������\��h��8������U��fl-46961e513a-11e��fl-46961e513a-11f������`n������s�IssssP\bf
��\k�h�\��h�_�s��\�|���gt-46961e513a-10e��fl-46961e513a-123��	`��
�	s�IssssP\bf
�\=
h�L	s�IsXsss_sf���
\mh�
�\�h�\'h�\)h�
�_	s��\2|��\�h�	s��\|�
�\3h�\�h�\�|��
�� �!_s��"\�!|�#gm-46961e513a-12a�$#^�%$LLLL�&fl-46961e513a-12f�'fl-46961e513a-130�(fl-46961e513a-131�)fl-46961e513a-132�*fl-46961e513a-133�+&'()*�,`�%+�-$�.fl-46961e513a-12c�/.�0`u-/�1L,s0Is�sss���
�2\�1h�3_,s0�4\23|�5\v3|�6\�3|�756�8gstream-value-tag-set!�9g %stream-value-tag-set!-procedure�:gm-46961e513a-13e�;:^�<gt-46961e513a-13c�=gt-46961e513a-13d�><=�?;;�@fl-46961e513a-143�Afl-46961e513a-144�B@A�C`>?B�D;�Efl-46961e513a-140�FE�G`uDF�H;CsGIssssP\bf
�I\=Hh�JLCsGIs
ss���K\mJh�L\jJh�MKL�N\�Jh�O\'Jh�P\)Jh�QPK�R_CsG�S\2R|�TOQS�U\$Jh�VCsG�W\
V|�XUKWL�Y\3Jh�Z\�Jh�[\8R|�\Z[�]YK\�^NTX]�_IM^�`_sG�a\9`|�bgstream-value-proc-set!�cg!%stream-value-proc-set!-procedure�dgm-46961e513a-14e�ed^�fgt-46961e513a-14c�ggt-46961e513a-14d�hfg�iee�jfl-46961e513a-153�kfl-46961e513a-154�ljk�m`hil�ne�ofl-46961e513a-150�po�q`unp�remsqIssssP\bf
�s\=rh�tLmsqIs
ss���u\mth�v\jth�wuv�x\�th�y\'th�z\)th�{zu�|_msq�}\2||�~y{}�\$th��msq��\�|��u�v��\3th��\�th��\b||�������u���x~����sw���_sq��\c�|��gstream-lazy��gexp��a���gm-46961e513a-173���^���_��fl-46961e513a-178��fl-46961e513a-179������`��������fl-46961e513a-175�����`u����_�s���\;�|��\4�|��\��|��glazy��\��|������\=�|��geager��gstream-eager��gstream-delay��gm-46961e513a-187���^���_��fl-46961e513a-18c��fl-46961e513a-18d������`��������fl-46961e513a-189�����`u����_�s���\��|��\��|��gstream-force��gnull��g%stream-null��gstream-pare��g%make-stream-pare-procedure��gmake-stream-pare��gm-46961e513a-1d9���^��gt-46961e513a-1d7��gt-46961e513a-1d8����������fl-46961e513a-1de��fl-46961e513a-1df������`��������fl-46961e513a-1db�����`u������s�IssssP\bf
��\=�h��gkar��_�s���\��|��gkdr��\��|������gm-46961e513a-1d5���^����s�Is|sss��s�����\n�h��\��|��\
�h��������������_s���\��|������g%stream-pare?-procedure��gstream-pare?��gm-46961e513a-1e8���^��gt-46961e513a-1e7��������fl-46961e513a-1ed�����`�����fl-46961e513a-1ea�����`u������s�IssssP\bf
��\=�h����s�Is�ssss�s�s�s�sss
s����\c�h�����\"�h��\$�h������\'�h��\)�h������_�s���\��|�����������������_s���\��|��g
stream-kar��g%stream-kar-procedure��gm-46961e513a-1f4���^�����fl-46961e513a-1f6����`u����sIssssP\bf�\9h�8�U��sIsXsss_sf���\Dh�8��U�	���
fl-46961e513a-1f9�fl-46961e513a-1fa�
�
`n	��
sIssssP\bf
�\kh�\�h�_
s�\�|���\{h�8��U�fl-46961e513a-1fe�fl-46961e513a-1ff��`n	��sIssssP\bf
�\kh�\�h�s� \
|�! �"!�#\�h�$8#�%�$U�&fl-46961e513a-203�'fl-46961e513a-204�(&'�)`n	(�*�)sIssssP\bf
�+\k*h�,\�*h�-g%%stream-pare-set-fields�._)s�/\-.|�0,/�10�2gt-46961e513a-1f3�32�4fl-46961e513a-208�54�6`3�5�7�6sIssssP\bf
�8\=7h�9�6sIsXsss_sf���:\m9h�;:�<\�9h�=\'9h�>\)9h�?>:�@_6s�A\�@|�B=?A�C\�9h�D6s�E\
D|�FC:E�G\39h�H\�9h�I\�@|�JHI�KG:J�L<BFK�M8;L�N_s�O\�N|�Pg
stream-kdr�Qg%stream-kdr-procedure�Rgm-46961e513a-20f�SR^�TS�Ufl-46961e513a-211�VU�W`uTV�XSsWIssssP\bf�Y\9Xh�Z8Y�[ZU�\�sWIsXsss_sf���]\D\h�^8]�_�[^U�`SS�afl-46961e513a-214�bfl-46961e513a-215�cab�d`n`c�eSdsWIssssP\bf
�f\keh�g\�eh�h_dsW�i\�h|�jgi�kj�l\{\h�m8l�n�[mU�ofl-46961e513a-219�pfl-46961e513a-21a�qop�r`n`q�sSrsWIssssP\bf
�t\ksh�u\�sh�vrsW�w\v|�xuw�yx�z\�\h�{8z�|�[{U�}fl-46961e513a-21e�~fl-46961e513a-21f�}~��`n`��S�sWIssssP\bf
��\k�h��\��h��_�sW��\-�|���������gt-46961e513a-20e�����fl-46961e513a-223�����`�T���S�sWIssssP\bf
��\=�h����sWIsXsss_sf����\m�h�����\��h��\'�h��\)�h������_�sW��\��|�������\��h���sW��\�|�������\3�h��\��h��\P�|����������������������_sW��\Q�|��gm-46961e513a-22a���^���������fl-46961e513a-22f��fl-46961e513a-230��fl-46961e513a-231��fl-46961e513a-232��fl-46961e513a-233���������`��������fl-46961e513a-22c�����`u������s�Is�sss���
��\��h��_�s���\��|��\��|��\P�|������gstrm��ac���gm-46961e513a-259���^���__��fl-46961e513a-25e��fl-46961e513a-25f��fl-46961e513a-260�������`��������fl-46961e513a-25b�����`u����_�s���\��|��\��|��\��|��\��|��f
non-stream��fnull stream��gbody0��gbody1��aS����gm-46961e513a-28d���^���___��fl-46961e513a-292��fl-46961e513a-293��fl-46961e513a-294��fl-46961e513a-295��������`��������fl-46961e513a-28f�����`u����_�s���\=�|��\��|��gbegin��\��|��gon-eagerS������gon-lazyS���	�������gstream-promise-visit��gset-record-type-printer!��gdisplay��f#<stream��g
write-char��gwrite��f ...>��W���U��gdefine��gformal��a�����gm-46961e513a-2cf���^���____��fl-46961e513a-2d4��fl-46961e513a-2d5��fl-46961e513a-2d6��fl-46961e513a-2d7��fl-46961e513a-2d8���������`������fl-46961e513a-2d1��`u�_�s�\�|�\(|��W��U��	U��
gletrec�gbody2�aEj��
gm-46961e513a-2e0�
^�_____�fl-46961e513a-2e5�fl-46961e513a-2e6�fl-46961e513a-2e7�fl-46961e513a-2e8�fl-46961e513a-2e9�fl-46961e513a-2ea��`��fl-46961e513a-2e2��`u�_s�\
|�\(|�gproper-list?� gcircular-list?�!fnon-list argument�"gcurrent-input-port�#ginput-port?�$fnon-input-port argument�%g	read-char�&geof-object?�'U�(a�)gm-46961e513a-359�*)^�+*�,fl-46961e513a-35e�-,�.`(+-�/fl-46961e513a-35b�0/�1`u+0�2_.s1�3\!2|�4gy�5at4�6*__�7fl-46961e513a-361�8fl-46961e513a-362�9fl-46961e513a-363�:789�;`56:�<_;s1�=\"<|�>\,<|�?g% stream-fold-aux-procedure�@gstream-fold-aux�A�UUUU�Bgsyntax-parameterize�Cgm-46961e513a-36c�DC^�Egt-46961e513a-368�Fgt-46961e513a-369�Ggt-46961e513a-36a�Hgt-46961e513a-36b�IEFGH�JDDDD�Kfl-46961e513a-371�Lfl-46961e513a-372�Mfl-46961e513a-373�Nfl-46961e513a-374�OKLMN�P`IJO�QD�Rfl-46961e513a-36e�SR�T`uQS�Ufl-bde397a-1eaf�Vfl-bde397a-1eb0�WUV�X`KLW�YS�Zfl-bde397a-1ea6�[fl-bde397a-1ea7�\fl-bde397a-1ea8�]Z[\�^`Ya]�_gprefix�`]_�a__�bfl-bde397a-1e9a�cfl-bde397a-1e98�dbc�e``ad�ffl-bde397a-1e97�gf�h`ucg�iDPsTIssssX^eh
�j{�k\Bij�l_PsT�m\@l|�ngidentifier-syntax�o\nij�p\?l|�qop�rmq�sr�t\=ij�u\Hl|�vgbase�w\vl|�x\�l|�yglimit�z\yl|�{uwxz�|gdo�}\|l|�~\jl|�\"l|��\&l|���x��u~���u���~w���\'l|���x��xx���g1-��\�l|���z��z���zz��������gor��\�l|��gzero?��\�l|���z��z���\$l|���x�������gvalues��\�l|���~xz������}����t{���ks���������_sT��\?�|��fnon-stream argument��ginteger?��fnon-integer count��gexact?��f
inexact count��fnegative count��greverse!��gxcons��f!non-stream object in input stream��g
circular-list��g	stream-do��U�������WV�������������fl-46961e513a-478�����`uc���gvar-step��gend������fl-46961e513a-475��fl-46961e513a-473������`�a���fl-46961e513a-472�����`uc���_s�����\��|��\�|�������gresult�����fl-46961e513a-47f�����`�c���_�s�����\��|��fbad step expression��UV��gstep������fl-46961e513a-49c��fl-46961e513a-49d������`�L���gvar��ginit��gtest����������fl-46961e513a-48d��fl-46961e513a-48e��fl-46961e513a-48f��fl-46961e513a-490��fl-46961e513a-491��fl-46961e513a-492����������`����_s������\9�|��gloop��\��|��\��|��\��|��gappend��������fnon-integer argument��finexact argument��fnegative argument��g
procedure?��fnon-procedural argument��gapply��gnumber?��fnon-numeric starting number��fnon-numeric step size��g?��fl-46961e513a-6c1�����`uc���gmake-guarded��gmake-matcher������fl-46961e513a-6be��fl-46961e513a-6bc������`�a���fl-46961e513a-6bb�����`uc���_s�����\��|�\$�|���gnext��fl-46961e513a-6d4��`c�grest���	fl-46961e513a-6ce�
fl-46961e513a-6cf�	
�`L�
_ss����\�
|�gnegate�\
|�\$
|��g=�\
|�\&
|�\'
|���U�����ggenerate-temporaries�'���U�gguard�gfail��� fl-46961e513a-6df�!fl-46961e513a-6e0�"fl-46961e513a-6e1�# !"�$`a#�%t�&fl-46961e513a-6d8�'fl-46961e513a-6d9�(&'�)`%L(�*_$s)���+\�*|�,VV�-gmatcher�.-��/fl-46961e513a-6f5�0fl-46961e513a-6f6�1/0�2`.L1�3�4fl-46961e513a-6f0�54�6`3c5�7g	strm-expr�8gpat�978��:fl-46961e513a-6e7�;fl-46961e513a-6e8�<fl-46961e513a-6e9�=:;<�>`9a=�?_s2ss6>��	�@\]?|�A\�?|�B\P?|�C\#?|�D\�?|�E\;?|�FDE�G\�?|�HBCAFG�I\?|�Jg=>�K\J?|�Lg
stream-of-aux�Ma��Ngm-46961e513a-701�ON^�PO__�Qfl-46961e513a-706�Rfl-46961e513a-707�Sfl-46961e513a-708�TQRS�U`MPT�VO�Wfl-46961e513a-703�XW�Y`uVX�Z_UsY�[\LZ|�\\!Z|�]a�v�^gm-46961e513a-70d�_^^�`___�afl-46961e513a-712�bfl-46961e513a-713�cfl-46961e513a-714�dabc�e`]`d�f_�gfl-46961e513a-70f�hg�i`ufh�j_esi�k\"j|�lgin�m_si�n\lm|�o8n�pUoU�qpV��rUq��sUr��tUs��ua�v�,�v______�wfl-46961e513a-719�xfl-46961e513a-71a�yfl-46961e513a-71b�zfl-46961e513a-71c�{fl-46961e513a-71d�|fl-46961e513a-71e�}wxyz{|�~`uv}�_~si��\9|��grecur��\�|��\�|��\�|��\$|������\]|��\&|���������\L|��\'|����������gis��\�m|��8���U�U���V���U����U����U����a�v����fl-46961e513a-727��fl-46961e513a-728��fl-46961e513a-729��fl-46961e513a-72a��fl-46961e513a-72b��fl-46961e513a-72c����������`�v���_�si��\]�|��\L�|��gpred?��a�v���_____��fl-46961e513a-735��fl-46961e513a-736��fl-46961e513a-737��fl-46961e513a-738��fl-46961e513a-739���������`�����_�si��\��|��\L�|��fnon-numeric ending number��g<��g>��fbeyond end of stream��fnon-procedural mapper��fnon-procedural pred?��fnon-procedural generator��glist->vector��gerror��������fno matching pattern��g
list-tabulate��g
vector-length�C5h���]4	
 F54I>"G4Ji4Ki5L>"G4OPQT[}������	h0�]�������C}gdummy
		0gpred		0gobj			0gfunc			0gmsg			0gargs			0		0	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
	.
��		"g
macro-typegsyntax-rules�gpatternsgpredgobjgfuncgmsggargsg...C5PR4O�QT[��������	h0�]�������C}gdummy
		0gpred		0gobj			0gfunc			0gmsg			0gargs			0		0	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
	3
��		"g
macro-typegsyntax-rules�gpatternsgpredgobjgfuncgmsggargsg...C5�R4O�QT[���������
h8�]�	�����C~gdummy
		4gpred		4gobjs			4gfunc			4gmsg			4gargs			4		4	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
	8
��		"g
macro-typegsyntax-rules�gpatternsgpredgobjsgfuncgmsggargsg...C5�R4O�QT����h?]���C7gdummy
		gexpr					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
	=
��		"g
macro-typegsyntax-rules�gpatternsgexprC5�R4O�QT����h?]���C7gdummy
		gexpr					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
	A
��		"g
macro-typegsyntax-rules�gpatternsgexprC5�R4O�QT�h?]���C7gdummy
		gexpr					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
	E
��		"g
macro-typegsyntax-rules�gpatternsgexprC5�R4OQT+-hc]��C[gdummy
		gname		gargs			gbody						C.8hS]CKgdummy
		gname		gsyntax						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-41.scm�
	J	��		9g
macro-typegsyntax-rules�gpatternsgnamegargs�gbodyg...gnamegsyntaxC5R9h]�Cwgval
		
gfilenamefsrfi/srfi-41.scm�
	q
��		
gnameg%make-stream-promise-procedure�C:R4O;QT<�h7]C/gt-46961e513a-6f
		
		
C��;�hS]L6Kga
		gfilenamefsrfi/srfi-41.scm�		q
��		C��hC]L6;gfilenamefsrfi/srfi-41.scm�		q
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-41.scm�
	q
��		nC5;R���9¨4�9>"G	Ȗ:i�9R9h{]�$��CCsgobj
		gfilenamefsrfi/srfi-41.scm�
	q
��		gnameg%stream-promise?-procedure�C�R4O�QT<0h7]C/gt-46961e513a-7c
		
		
C����hS]L6Kga
		gfilenamefsrfi/srfi-41.scm�		q
��		C��hC]L6;gfilenamefsrfi/srfi-41.scm�		q
��		
C2h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-41.scm�
	q
��		nC5�R956h|]�&
�C6tgs
		gfilenamefsrfi/srfi-41.scm�
	q
��		gnameg%stream-promise-val-procedure�C7R4O6QTjuzh:]��C2gerr
		gs					C~��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C<�h7]C/gt-46961e513a-88
		
		
C��6�hS]L6Kga
		gfilenamefsrfi/srfi-41.scm�		q
��		C��hC]L6;gfilenamefsrfi/srfi-41.scm�		q
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-41.scm�
	q
��	�C56R4O�QT������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
	q
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R95�h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-41.scm�
	q
��			gnameg"%stream-promise-val-set!-procedure�C�R4O�QT�/hT]CLgt-46961e513a-b6
		gt-46961e513a-b7					C����hS]L6Kga
		gfilenamefsrfi/srfi-41.scm�		q
��		C��hC]L6;gfilenamefsrfi/srfi-41.scm�		q
��		
C1h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-41.scm�
	q
��		nC5�R2h�]�C�gtag
		gproc		gfilenamefsrfi/srfi-41.scm�
	t
��			gnameg%make-stream-value-procedure�C3R4O4QT�RhT]CLgt-46961e513a-d7
		gt-46961e513a-d8					C��4�hS]L6Kga
		gfilenamefsrfi/srfi-41.scm�		t
��		C��hC]L6;gfilenamefsrfi/srfi-41.scm�		t
��		
CTh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-41.scm�
	t
��		nC54R�U�2V�4�2>"G	Ȗ3i�2R2hy]�$��CCqgobj
		gfilenamefsrfi/srfi-41.scm�
	t
��		gnameg%stream-value?-procedure�CWR4OXQT<sh7]C/gt-46961e513a-e7
		
		
C��X�hS]L6Kga
		gfilenamefsrfi/srfi-41.scm�		t
��		C��hC]L6;gfilenamefsrfi/srfi-41.scm�		t
��		
Cuh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-41.scm�
	t
��		nC5XR25vhz]�&
�C6rgs
		gfilenamefsrfi/srfi-41.scm�
	t
��		gnameg%stream-value-tag-procedure�CwR4OvQT���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C<�h7]C/gt-46961e513a-f3
		
		
C��v�hS]L6Kga
		gfilenamefsrfi/srfi-41.scm�		t
��		C��hC]L6;gfilenamefsrfi/srfi-41.scm�		t
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-41.scm�
	t
��	�C5vR25�h{]�&�C6sgs
		gfilenamefsrfi/srfi-41.scm�
	t
��		gnameg%stream-value-proc-procedure�C�R4O�QT���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					C< h8]C0gt-46961e513a-10e
		
		
C����hS]L6Kga
		gfilenamefsrfi/srfi-41.scm�		t
��		C��hC]L6;gfilenamefsrfi/srfi-41.scm�		t
��		
C"h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-41.scm�
	t
��	�C5�R4O�QT�247��h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
	t
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R258h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-41.scm�
	t
��			gnameg %stream-value-tag-set!-procedure�C9R4O8QT�_hV]CNgt-46961e513a-13c
		gt-46961e513a-13d					C��8�hS]L6Kga
		gfilenamefsrfi/srfi-41.scm�		t
��		C��hC]L6;gfilenamefsrfi/srfi-41.scm�		t
��		
Cah]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-41.scm�
	t
��		nC58R25bh �]�&�C6�gs
		gval		gfilenamefsrfi/srfi-41.scm�
	t
��			gnameg!%stream-value-proc-set!-procedure�CcR4ObQT��hV]CNgt-46961e513a-14c
		gt-46961e513a-14d					C��b�hS]L6Kga
		gfilenamefsrfi/srfi-41.scm�		t
��		C��hC]L6;gfilenamefsrfi/srfi-41.scm�		t
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-41.scm�
	t
��		nC5bR4O�QT�����h>]C6gdummy
		gexp					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
	x
��		"g
macro-typegsyntax-rules�gpatternsgexpC5�R2�9h�]	��C�gx
		gval		gfilenamefsrfi/srfi-41.scm�
	{
��		|	*��		|	��		|	��		gnamegstream-eager�C�R4O�QT���h>]C6gdummy
		gexp					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
	~
��		"g
macro-typegsyntax-rules�gpatternsgexpC5�R9562v���8b��
h��])�&
�"	45�&
�"	45�$�&�C6�$Y4�&�"	455�&
�"	45�&
�"	45&"��&
�"	45�&
�"	45�&
�"4	>"G�&
�"	45�&�"	45�&�"4
>"G�&
�"4>"G6C�gpromise
	�gcontent	�gkey		8�gpromise*		�gcontent	��gs	��gval	�'gs	A`gval	`�	gfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	!�	
��	8�	��	F�	��	b�	��	c�	 ��	�	����	 ����	����	;����	 ����	����	E����	3����	��*�	G��A�	4��`�	����	����	��	�gnamegstream-force�C�R�i#R,���R4�i�i5!R9��h(�]�$�&45�CCC�gobj
		!gfilenamefsrfi/srfi-41.scm�
�
��	�	��		�	��	�	��	�	
��	�	��		!gnamegstream-null?�C$R�h�]�C�gkar
		gkdr		gfilenamefsrfi/srfi-41.scm�
�
��			gnameg%make-stream-pare-procedure�C�R4O�QT��hV]CNgt-46961e513a-1d7
		gt-46961e513a-1d8					C����hT]L6Lga
		gfilenamefsrfi/srfi-41.scm�	�
��		C��hD]L6<gfilenamefsrfi/srfi-41.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-41.scm�
�
��		nC5�R�U��٨4��>"G	Ȗ�i��R�hy]�$��CCqgobj
		gfilenamefsrfi/srfi-41.scm�
�
��		gnameg%stream-pare?-procedure�C�R4O�QT<�h8]C0gt-46961e513a-1e7
		
		
C����hT]L6Lga
		gfilenamefsrfi/srfi-41.scm�	�
��		C��hD]L6<gfilenamefsrfi/srfi-41.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-41.scm�
�
��		nC5�R�5�hu]�&
�C6mgs
		gfilenamefsrfi/srfi-41.scm�
�
��		gnameg%stream-kar-procedure�C�R4O�QTh:]��C2gerr
		gs					C"h:]��C2gerr
		gs					C%+1h:]��C2gerr
		gs					C<Mh8]C0gt-46961e513a-1f3
		
		
C����hT]L6Lga
		gfilenamefsrfi/srfi-41.scm�	�
��		C��hD]L6<gfilenamefsrfi/srfi-41.scm�	�
��		
COh]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-41.scm�
�
��	�C5�R�5Phu]�&�C6mgs
		gfilenamefsrfi/srfi-41.scm�
�
��		gnameg%stream-kdr-procedure�CQR4OPQT_fkh:]��C2gerr
		gs					Cntyh:]��C2gerr
		gs					C|��h:]��C2gerr
		gs					C<�h8]C0gt-46961e513a-20e
		
		
C��P�hT]L6Lga
		gfilenamefsrfi/srfi-41.scm�	�
��		C��hD]L6<gfilenamefsrfi/srfi-41.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-41.scm�
�
��	�C5PR4O-QT������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5-R9��h0�]	�$$�&45�$��CCCC�gobj
		/gobj		+gfilenamefsrfi/srfi-41.scm�
�
��	�	��		�	��	�	��	�	+��	�	��		/gnamegstream-pair?�C%R4O"QT.����h P]CHgdummy
		gobj		gstrm						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgobjgstrmC5"R#��&����	h��]	45$"4>"G45""4>"'G" �$�&""���""���
�6�gstrm
	�gpare	6�gfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	�	!��	�	��	0�	��	6�	��	=�	��	C�	��	E�	(��	H�	����	����	��	�gnameg
stream-car�C&R#��'����	h��]	45$"4>"G45""4>"'G" �$�&""���""����C�gstrm
	�gpare	6�gfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	�	!��	�	��	0�	��	6�	��	=�	��	C�	��	E�	(��	H�	����	��
	�gnameg
stream-cdr�C'R4O(QTY���hh]��C`gdummy
		gformals		gbody0			gbody1						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgformalsgbody0gbody1g...C5(R�9562v���
h�@-/03##H�&
�"	45KJ�&J
�"	4J5�$J�&J�"	4J56	�$J�&J�"	4J56C8gpromise
	�gon-eager	�gon-lazy		�gcontent		&�gkey		^�gfilenamefsrfi/srfi-41.scm�
�
��	+�	��	G�	��	^�	��	n�	����	
����	����	����	
��
	�
gon-eagerS�gon-lazyS	�gnamegstream-promise-visit�C�R4�i9i��������5���hc]L6[gt-46961e513a-2c2
		
gfilenamefsrfi/srfi-41.scm�
�	)��		
C��h]]?L6Ug_
		
gfilenamefsrfi/srfi-41.scm�
�	)��	
�	5��		
CPh��]&>L64 L>"G4�&
�"	45LO	
LO>"GL�&�"	456�gpare
	�gfilenamefsrfi/srfi-41.scm�
�	��	
�	��	�	��	�	��	'�	��	,�	2��	Z�	��	g�	"����	��
	�C���hf]L6^g_
		
gfilenamefsrfi/srfi-41.scm�
�	��	�	'��	
�	��		
Ch q]LLOLO6igstrm
		gfilenamefsrfi/srfi-41.scm�
�	��	�	��		gnamegloop�Ch0�]
4>"GOQ6�gstrm
		,gport		,gloop			,gfilenamefsrfi/srfi-41.scm�
�	��	�	��	�	
��	�	��	�	��		,	C>"G4O)QT�hy]���Cqgdummy
		gname		gformal			gbody0			gbody1						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnamegformal�gbody0gbody1g...C5)R4O9QT	h �]����Cgdummy
		 gtag		 gname			 gval			 gbody1			 gbody2			 		 	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgtaggnamegvalg...gbody1gbody2g...C59R ��*!2�!�2��hV]L�6Ngfilenamefsrfi/srfi-41.scm�
�	��	�	��		�	��			
C9hV]LL�6Ngfilenamefsrfi/srfi-41.scm�
�	��	�	'��		�	 ��			
C�	hX�]L(CLO��LLO���6�gval
		'gval
	7	Cgkar
	C	Vgkdr	C	Vgfilenamefsrfi/srfi-41.scm�
�	��	�	��	�	��		X
C9h y]	LO��Cqgobjs
		gval		gfilenamefsrfi/srfi-41.scm�
�	��		gnamegrecur�Ch`�]	45$"45$"4>"GOQ6�gobjs
		\gt			 grecur	N	Xgfilenamefsrfi/srfi-41.scm�
�
��	�	��		�	��	�	��	$�	��	/�	��	1�	!��	4�	��	N�	��
		\gnameglist->stream�C*R"#��+$2�%&!�2��hD]L6<gfilenamefsrfi/srfi-41.scm�
�	
��		
C9hM]L6Egfilenamefsrfi/srfi-41.scm�
�	
��	�	��		
C�hh�]4L545$CO��	LO��
�6�gc
			dgval	)	5gval	C	Ogkar	O	bgkdr		O	bgfilenamefsrfi/srfi-41.scm�
�	��	�	
��		�	��	�	
��	�	��	�	
��		d
C9h h]LLO��C`gval
		gfilenamefsrfi/srfi-41.scm�
�	��		
gnamegrecur�Ch`�-.,3#4545$"4>"GOQ6�gport
		]grecur	O	[gfilenamefsrfi/srfi-41.scm�
�
��	�	(��	�	��	/�	��	1�	'��	4�	��	O�	��		]
gnamegport->stream�C+R4O,QT'3h-]C%gdummy
				CX=>hK]�CCgdummy
		gx		gy						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-41.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgxgyg...C5,R$&'h��]$"j$
�"$"45$D$4455"45$�""���"���~gproc
	�gbase	�gstrm		�glimit		�gval			pgstrm			pglimit			pgt			,gfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	�	��	�	��	#�	%��	0�	��	8�	��	>�	��	?�	��	D�	%��	L�	��	R�	��	^�	��	a�	��	p�	��	�	gnameg% stream-fold-aux-procedure�C?R4O@QTA�h�]C�gt-46961e513a-368
		gt-46961e513a-369		gt-46961e513a-36a			gt-46961e513a-36b						C��@�hT]L6Lga
		gfilenamefsrfi/srfi-41.scm�	�
��		C��hD]L6<gfilenamefsrfi/srfi-41.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-41.scm�
�
��		nC5@R-#��-��������$&'hh)
36]*45$"4>"G$�45$"4>"G4	5$"4
>"G
�$"4>"G""
"n$
�"$"45$	"H$4455"45$�""���"���G6�gstrm
			gn
	fgstrm	fgproc	�Tgval	�Egstrm	�Eglimit	�Egt	��gfirst	Udg_	Ud
gfilenamefsrfi/srfi-41.scm�
�	��	�	��	�	��	�	��	(�	��	*�	%��	-�	��	E�	��	F�	��	[�	��	]�	%��	`�	��	s�	����	����	#����	����	����	����	*����	����	��F�	2��T�	��X�	��f�	��				f	gnamegstream->list�C-R�#��.�!$�2��&hV]4L56Ngfilenamefsrfi/srfi-41.scm�
	��		��	
	��		
C9'hh]L4L5L��6`gfilenamefsrfi/srfi-41.scm�
	��		(��		:��		"��		��		
C�
hx�]L(CL�45$LL�6O��LLO��	�6�gstrm
		qgval	2	>gval	P	\gkar	\	ogkdr		\	ogfilenamefsrfi/srfi-41.scm�
�	��		��		��		��		��		
��	 	)��	"	"��	(	��
		q
C2�9h(�]	OLQ��C�gstrms
		(gproc		gval		(gfilenamefsrfi/srfi-41.scm�
�	��		(gnamegrecur�ChX�-1345("4>"GOQ6�gstrms
			Rgflunk		<grecur	D	Ngfilenamefsrfi/srfi-41.scm�
�
��	
�	��	%�	��	'�	+��	*�	��	D�	��			R


gnameg
stream-append�C.R#��/�$!&#��/�'�2��&hV]4L56Ngfilenamefsrfi/srfi-41.scm�

	��	
	��	

	��		
C9�2��'hV]4L56Ngfilenamefsrfi/srfi-41.scm�
	"��		/��	
	"��		
C9'hM]L6Egfilenamefsrfi/srfi-41.scm�
	"��		/��		
C�hX�]L4LO��LO���56�gval
		!gval
	/	;gkar
	;	Ngkdr	;	Ngfilenamefsrfi/srfi-41.scm�

	��		"��	R	��		R
C�h�]4L5$C4L545$"4>"G45$L4	L56

O��LLO���6
gstrm
	�gval	l	xgval��gkar��gkdr	��gfilenamefsrfi/srfi-41.scm�
	��			��	
		��	
	��	
	��		
��	/	��	1	,��	4	
��	G	��	Q	
��	T	)��	\	"��	b
	��	�
C2�9h(�]	OLQ��C�gstrms
		(gproc		gval		(gfilenamefsrfi/srfi-41.scm�
	��		(gnamegrecur�ChH�]	45$"4>"GOQ6�gstrms
		Egrecur	7	Agfilenamefsrfi/srfi-41.scm�

��		��		��		%��		��	7	��		Egnameg
stream-concat�C/R!*�h �)3C-134?6�gobjs
		 gfilenamefsrfi/srfi-41.scm�
	��		��	 		��			
		 


gnamegstream-constant�C0R4O�QT�T�h]C		
C'h.]C&gresult
				CV�h.]�C&gresult
				C���Th]LC		
C'h)]C!ge
				C���h@�]45$O@45$@L6�gv
		@gs		@gtmp		
	@gtmp		&	@gfilenamefsrfi/srfi-41.scm�
	��	8 	��	: 	&��	@ 		��		@	gnamegvar-step�C��������h0@]4LL5L4L�5�C8gresult
		0gstep		0		0	C
h�]45$4?"H45$4?")45$4?"
454	
LO545$O@6gvar
	�ginit	�gstep		�gtest		�gresult		�gexpr		�gtmp		
	hgtmp		&	egtmp		B	bgtmp		{�gtmp	��gfilenamefsrfi/srfi-41.scm�	i'	��	{&	��	�	C��h(c]	45$O@6[gx
		'gtmp		'gfilenamefsrfi/srfi-41.scm�

��		'C5�R���1����#�$'
h0�]"45$"4>"G45$"4>"G
�$"4>"G"4	5$"4
>"G"V$
�"$"45$	"045$�""���"���GC�gn
	)gstrm	)gval	�
gstrm	�
glimit	�
gt	��gfirst	)gsecond	)g_	)	gfilenamefsrfi/srfi-41.scm�
.
��	/	��	/	��	/	 ��	/	��	00	��	E0	��	G0	��	J0	��	_1	��	k1	��	m1	%��	p1	���2	���2	���2	"���2	���3	�� 3	��	)	gnamegstream-drop�C1R���2�#�2�$&'h8�]4L5$"
4L4L55�$LCL4L56�gt
			&gfilenamefsrfi/srfi-41.scm�
8	��	9	��		9	��	9	+��	9	2��	"9	+��	#9	&��	*8	��	08	��	88	��		8
C9h x]	LLO��Cpgstrm
		gval		gfilenamefsrfi/srfi-41.scm�
8	��		gnamegloop�C	hx�]
45$"4>"G45$"4>"GOQ6�gpred?
		ugstrm		ugloop		e	qgfilenamefsrfi/srfi-41.scm�
5
��	6	��	6	��	6	,��	6	��	07	��	E7	��	G7	(��	J7	��	e8	��		u	gnamegstream-drop-while�C2R���3�#�$!&�2��&hV]4L56Ngfilenamefsrfi/srfi-41.scm�
A	��	A	��	
A	��		
C9'hV]L4L56Ngfilenamefsrfi/srfi-41.scm�
A	��	A	1��	
A	*��		
C�'hx�]4L5$C4L4L55$MLO��	LLO��
�6L4L56�gval
	0	<gval
	L	Xgkar
	X	kgkdr	X	kgfilenamefsrfi/srfi-41.scm�
>	��	?	��	
?	��	@	��	@	��	@	��	 ?	��	&A	��	pB	��	xB	��		x
C2�9h0�]	OLLQ��C�gstrm
		+gproc		!gval	!	+gfilenamefsrfi/srfi-41.scm�
>	��		+gnamegrecur�C	hx�]
45$"4>"G45$"4>"GOQ6�gpred?
		ugstrm		ugrecur		e	qgfilenamefsrfi/srfi-41.scm�
;
��	<	��	<	��	<	(��	<	��	0=	��	E=	��	G=	$��	J=	��	e>	��		u	gnameg
stream-filter�C3R���4�#�$&'h�`]#45$"4>"G45$"4>"G"n$
�"$"45$	"H$44	55"4
5$�""���"���GCXgproc
	�gbase	�gstrm		�gval		`�gstrm		`�glimit		`�gt		o�gfirst	��g_	��	gfilenamefsrfi/srfi-41.scm�
D
��	E	��	E	��	E	%��	E	��	0F	��	EF	��	GF	"��	JF	��	`G	���G	��	�	gnamegstream-fold�C4R���5�#�$&'�U��hXs)�345$"4>"G45$"4>"G"145$C44	5>"G4
5"���"���-13�45$"4>"G45("4>"G"945$C4
4	5>"G4
5"���"���kgproc
		�gstrm		�gstrm		g�gproc
�Ugstrm�Ugrest	�Ugstrms	�Ugflunk	�gstrms	M	gfilenamefsrfi/srfi-41.scm�
J	��	
L	��	L	��	!L	+��	$L	��	7M	��	LM	��	NM	(��	QM	��	gN	��	hO		��	rN	��	uP	��	xP	���P	���N	���N	���J	���R	���R	���S	���S	���S	-���S	���T	���T	 ���T	1���T	��U	��V	��!U	��$W	��)W	��6W	��?U	��MU	��%		�	�U	
	gnamegstream-for-each�C5R���6��2��2��hD]L6<gfilenamefsrfi/srfi-41.scm�
]	��		
C9hV]LLL�6Ngfilenamefsrfi/srfi-41.scm�
]	��		]	��	]	��		
C�hX�]LO��LLLO���6�gval
		gval
	0	<gkar
	<	Ogkdr	<	Ogfilenamefsrfi/srfi-41.scm�
\	��	]	��		Q
C9h z]	LLO��Crgfirst
		gval		gfilenamefsrfi/srfi-41.scm�
\	��		gnamegrecur�Ch��-.,3#45$"4>"G45$"4>"GOQ6�gfirst
	�gstep	�grecur		x�gfilenamefsrfi/srfi-41.scm�
Y
��	Z	��	+Z	��	-Z	#��	0Z	��	C[	��	X[	��	Z[	"��	][	��	x\	��	�gnamegstream-from�C6R���7�2��2��hD]L6<gfilenamefsrfi/srfi-41.scm�
b	��		
C9hV]L4LL56Ngfilenamefsrfi/srfi-41.scm�
b	��	b	��	
b	��		
C�hX�]LO��LLLO���6�gval
		gval
	0	<gkar
	<	Ogkdr	<	Ogfilenamefsrfi/srfi-41.scm�
a	��	b	��		Q
C9h y]	LLO��Cqgbase
		gval		gfilenamefsrfi/srfi-41.scm�
a	��		gnamegrecur�ChH�]
45$"4>"GOQ6�gproc
		Hgbase		Hgrecur		8	Dgfilenamefsrfi/srfi-41.scm�
_
��	`	��	`	��	`	(��	`	��	8a	��		H	gnamegstream-iterate�C7R#��8�$'h�J]!45$"4>"G	�"V$
�"$"45$	"045$�""���	�"���G�CBgstrm
	�gval	5�gstrm		5�glimit		5�gt		D	[gfirst��gsecond	��gthird	��g_	��	gfilenamefsrfi/srfi-41.scm�
d
��	e	��	e	��	e	$��	e	��	5f	���f	���f	��		�gnameg
stream-length�C8R���:�#�$!�2��&hh]4L4L556`gfilenamefsrfi/srfi-41.scm�
o	
��	o	��	o	��	o	��	o	
��		
C9'hV]L4L56Ngfilenamefsrfi/srfi-41.scm�
o	
��	p	��	
p	��		
C�
h`�]4L5$CLLO��LLO��	�6�gval
	"	.gval
	>	Jgkar
	J	]gkdr	J	]gfilenamefsrfi/srfi-41.scm�
m	��	n	
��	
n	��	o	
��		_
C2�9h0�]	OLLQ��C�gstrm
		+gproc		!gval	!	+gfilenamefsrfi/srfi-41.scm�
m	��		+gnamegrecur�C�U$!�2���&hh]4L4L5?6`gfilenamefsrfi/srfi-41.scm�
w	��	w	��	w	%��	w	��	w	��		
C9�'hV]L4L56Ngfilenamefsrfi/srfi-41.scm�
w	��	x	 ��	x	��		
C�hh�]4L5$CLLO��	LLO��
�6�gval
	$	0gval
	@	Lgkar
	L	_gkdr	L	_gfilenamefsrfi/srfi-41.scm�
u	��	v	��	v	��	w	��		a
C2�9h0�]	OLLQ��C�gstrms
		+gproc		!gval	!	+gfilenamefsrfi/srfi-41.scm�
u	��		+gnamegrecur�Ch�)v345$"4>"G45$"4>"GOQ6-13�45$"4>"G4	5("4>"G
OQ6�gproc
			|gstrm			|grecur		l	xgproc
�gstrm�grest	�gstrms	�gflunk	��grecur	�	gfilenamefsrfi/srfi-41.scm�
i	��	
k	��	k	��	!k	&��	$k	��	7l	��	Ll	��	Nl	#��	Ql	��	lm	���i	���r	���r	���s	���s	���s	(���s	���t	���t	 ���t	,���t	���u	��			|	�	
	gnameg
stream-map�C:R4O;QTh]C		
C�hX]6Pgrest
		gfilenamefsrfi/srfi-41.scm�	~	��		Ch,]C$grest
				C���hi]6agvar
		grest		gfilenamefsrfi/srfi-41.scm�		��			Ch(�]
4L5C{gvar
		%grest		%gtmp				%gfilenamefsrfi/srfi-41.scm�	�	��		�	��		%	C
hp�]45$@4?$@45"	6$4?$	LO@"���"����gx
		lgtmp	
	lgtmp			lgtmp		9	lgfilenamefsrfi/srfi-41.scm�
{	��		lgnamegmake-matcher�CTTV�Th,]C$gexpr
				C+hQ]CIgguard
		gexpr		gfail						C��hH�]45$@45$@6�gx
		Bgfail		Bgtmp				Bgtmp			Bgtmp		+	Bgfilenamefsrfi/srfi-41.scm�
�	��		�	��		�	��		B	gnamegmake-guarded�CT,@AHI�Khz]Crgtmp-46961e513a-6fb
		gtmp-46961e513a-6fa		gtmp-46961e513a-6f9						Ch(A]L4L5��C9gmatcher
		'gexpr		'		'	C��hH�]4LL54L545$
LO@6�gfail
		Bgtmp		Bgtmp		$	Bgfilenamefsrfi/srfi-41.scm�	�	$��	�	!��	�	��		BC��h8�]4545$LO@6�g	strm-expr
		6gpat		6gexpr			6gtmp				6gtmp			6gfilenamefsrfi/srfi-41.scm�	�	��		�	��		6	C��h8}]OQ45$O@6ugx
		4gmake-matcher	
	4gtmp			4gfilenamefsrfi/srfi-41.scm�
z
��		4C5;R4O<QTX[\hQ]���CIgdummy
		gexpr		grest						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-41.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgexprgrestg...C5<R4OLQT.khQ]CIgdummy
		gexpr		gbase						Ct���������
h8�]�	���C�gdummy
		5gexpr		5gbase			5gvar			5gstream			5grest			5		5	C���h �]���C}gdummy
		gexpr		gbase			gvar			gexp			grest						CZ��hv]���Cngdummy
		gexpr		gbase			gpred?			grest						C��hhx]!45$@45$@45$@45$	@
6pgx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-41.scm�
�	��		gg
macro-typegsyntax-rules�gpatternsgexprgbasegexprgbasegvargingstreamgrestg...gexprgbasegvargisgexpgrestg...gexprgbasegpred?grestg...C5LR���=�����2��2��hD]L6<gfilenamefsrfi/srfi-41.scm�
�	
��		
C9hV]LLL�6Ngfilenamefsrfi/srfi-41.scm�
�	
��		�	$��	�	��		
C�!	hh�]4LLL5$OLO��LLLO���6C�gval
		+gval
	=	Igkar
	I	\gkdr	I	\gfilenamefsrfi/srfi-41.scm�
�	��	�	
��	�	��	�	
��		a
C9h(z]	LLLLO��Crgfirst
		"gval		"gfilenamefsrfi/srfi-41.scm�
�	��		"gnamegrecur�Ch��-.,3#45$"4>"G45$"4>"G$145$"4>"G"$"�$"	�
�$"	
OQ6�gfirst
	�gpast	�gstep		�gstep	��glt?	��grecur	��gfilenamefsrfi/srfi-41.scm�
�
��	�	��	+�	��	-�	$��	0�	��	C�	��	X�	��	Z�	#��	]�	��	u�	��	v�	����	����	%����	����	����	����	����	����	����	����	����	��	�	gnamegstream-range�C=R#��>������1$�&h�l]
45$"4>"G45$"4>"G45$"4	>"G
�$"4
>"G"4545$"4
>"G"6dgstrm
	�gn	�gres	��gfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	�	!��	�	��	0�	��	E�	��	G�	��	J�	��	]�	��	r�	��	t�	��	w�	����	����	����	$����	����	
����	����	����	����	+����	����	��	�	gnameg
stream-ref�C>R#��?�2�$'�2��&hV]4L56Ngfilenamefsrfi/srfi-41.scm�
�	��	�	,��	
�	��		
C9hD]LC<gfilenamefsrfi/srfi-41.scm�
�	��		
C�
hh�]4L5$LCL4L54LO��LO��	�56�gval
	*	6gval
	D	Pgkar
	P	cgkdr	P	cgfilenamefsrfi/srfi-41.scm�
�	��	�	��	
�	��	�	��	�	��	g�	��		g
C9h �]
LO��C�gstrm
		grev		gval			gfilenamefsrfi/srfi-41.scm�
�	��			gnamegloop�C!hH�]	45$"4>"GOQ6�gstrm
		Ggloop	7	Agfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	�	%��	�	��	7�	��		Ggnamegstream-reverse�C?R���@�#�$�2��hD]L6<gfilenamefsrfi/srfi-41.scm�
�	��		
C9!hD]C<gfilenamefsrfi/srfi-41.scm�
�	��		
C��hD]L6<gfilenamefsrfi/srfi-41.scm�
�	��		
C&'h q]L4LL4L554L56igfilenamefsrfi/srfi-41.scm�
�	��	�	!��	
�	,��	�	!��	�	!��	�	��		
Ch��]4L5$FLO�����6	LO��
LLLLO���6�gval
		)gval
	2	>gkar
	>	Qgkdr	>	Qgval
	c	ogval
��gkar
��gkdr��gfilenamefsrfi/srfi-41.scm�
�	��	�	��	
�	��	�	��	Y�	��	�
C2�9h0�]
OLLQ��C�gbase
		.gstrm		.gproc		
	$gval		$	.gfilenamefsrfi/srfi-41.scm�
�	��		.	gnamegrecur�C	hx�]45$"4>"G45$"4>"GOQ6�gproc
		wgbase		wgstrm			wgrecur		e	qgfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	�	%��	�	��	0�	��	E�	��	G�	"��	J�	��	e�	��		w	gnamegstream-scan�C@R#��A������$!�2��&hV]4L56Ngfilenamefsrfi/srfi-41.scm�
�	��	�	��	
�	��		
C9'h_]LL�4L56Wgfilenamefsrfi/srfi-41.scm�
�	��	�	.��	�	5��	�	'��		
C�
hx�]L
�$"4L5$CLO��LLLO��	�6�gt
		gval
	4	@gval
	R	^gkar
	^	qgkdr	^	qgfilenamefsrfi/srfi-41.scm�
�	��	�	��	�	��	�	��	!�	��	*�	��		s
C2�9h0�]
OLQ��C�gn
		+gstrm		+gproc			!gval		!	+gfilenamefsrfi/srfi-41.scm�
�	��		+	gnamegrecur�Ch�3]
45$"4>"G45$"4>"G45$"4	>"G
�$"4
>"G"OQ6+gn
	�gstrm	�grecur	��gfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	�	"��	�	��	0�	��	E�	��	G�	 ��	J�	��	]�	��	r�	��	t�	��	w�	����	����	����	%����	����	��	�	gnamegstream-take�CAR���B�#�$!&�2��&hV]4L56Ngfilenamefsrfi/srfi-41.scm�
�	��	�	��	
�	��		
C9'hV]L4L56Ngfilenamefsrfi/srfi-41.scm�
�	��	�	1��	
�	*��		
C�hp�]4L5$C4L4L55$MLO��	LLO��
�6C�gval
	0	<gval
	L	Xgkar
	X	kgkdr	X	kgfilenamefsrfi/srfi-41.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	 �	��	&�	��			p
C2�9h0�]	OLLQ��C�gstrm
		+gproc		!gval	!	+gfilenamefsrfi/srfi-41.scm�
�	��		+gnamegrecur�C	hx�]
45$"4>"G45$"4>"GOQ6�gpred?
		ugstrm		ugrecur		e	qgfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	�	,��	�	��	0�	��	E�	��	G�	(��	J�	��	e�	��		u	gnamegstream-take-while�CBR���C����2��hV]4LL56Ngfilenamefsrfi/srfi-41.scm�
�	��	�	��	
�	��		
C9hV]L4LL56Ngfilenamefsrfi/srfi-41.scm�
�	��	�	*��	
�	#��		
C�!	hh�]4LL5$QLLO��LLLO���6C�gval
		+gval
	=	Igkar
	I	\gkdr	I	\gfilenamefsrfi/srfi-41.scm�
�	��	�	��	
�	��	�	��		a
C2�9h8�]	OLLLLQ��C�gbase
		1gproc		'gval	'	1gfilenamefsrfi/srfi-41.scm�
�	��		1gnamegrecur�C	h�>]45$"4>"G45$"4>"G45$"4>"GOQ66gmapper
	�gpred?	�g	generator		�gbase		�grecur	��gfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	�	)��	�	��	0�	��	E�	��	G�	(��	J�	��	]�	��	r�	��	t�	,��	w�	����	��	�	gnameg
stream-unfold�CCR�2���hV]4L56Ngfilenamefsrfi/srfi-41.scm�
�	��	�	��	
�	��		
C9hM]LL6Egfilenamefsrfi/srfi-41.scm�
�	��	�	(��		
C�hh�] 4LL>GO��LO���6�gnext
	
	agitems	
	agval		$	0gval		@	Lgkar		L	_gkdr		L	_gfilenamefsrfi/srfi-41.scm�
�	��	�	��	�	��	�	��		a
C2�9h0�]	OLLQ��C�gseed
		+gproc		!gval	!	+gfilenamefsrfi/srfi-41.scm�
�	��		+gnameggenerator-stream�C&!2�'hV]L4L5L6Ngfilenamefsrfi/srfi-41.scm�
�	��	�	.��	�	��		
C9.*'hV]L4L5L6Ngfilenamefsrfi/srfi-41.scm�
�	��	�	.��	�	��		
C����hD]L6<gfilenamefsrfi/srfi-41.scm�
�	��		
C2�'hV]L4L5L6Ngfilenamefsrfi/srfi-41.scm�
�	��	�	.��	�	��		
C9h _]LLLO��CWgval
		gfilenamefsrfi/srfi-41.scm�
�	��	�	��		
C�h�0] H4L5L�KJ(CJ&LLLO��C"=J�$)4J5	LLLO��64
J56J�$_J�(TJ�
O��LLLO���6"��]"��Y(ghead
	�gval	3	=gval	c	ogw��gval	��gval	��gkar	��gkdr	��gfilenamefsrfi/srfi-41.scm�
�	��	�	��	�	��	�	��	%�	��	D�	��	K�	&��	U�	��	q�	��	r�	����	��	�
C2�9h0�]
OLQ��C�ggenstrm
		+gindex		+gproc			!gval		!	+gfilenamefsrfi/srfi-41.scm�
�	��		+	gnamegmake-result-stream�C���D���&hc]LL6[gt-46961e513a-9f4
		
gfilenamefsrfi/srfi-41.scm�
�	!��		
ChxA]OOQQ45$"4>"G4544	4
55O5E9ggen
		qgseed		qggenerator-stream			qgmake-result-stream			qggenstrm		S	qgfilenamefsrfi/srfi-41.scm�
�
��	 �	��	5�	��	7�	'��	:�	��	M�	��	S�	��	V�	��	Y�	!��	\�	0��	d�	!��	o�	��	q�	��		q	gnamegstream-unfolds�CDR�#��E�U$!�2���&hV]4L56Ngfilenamefsrfi/srfi-41.scm�
�	
��	�	��	�	
��		
C9�'hV]L4L56Ngfilenamefsrfi/srfi-41.scm�
�	
��	�	5��	�	.��		
C�h`�]4L5$CLO��	LLO��
�6�gval
	"	.gval
	>	Jgkar
	J	]gkdr	J	]gfilenamefsrfi/srfi-41.scm�
�	��	�	
��	�	��	�	
��		_
C2�9h(�]	OLQ��C�gstrms
		(gproc		gval		(gfilenamefsrfi/srfi-41.scm�
�	��		(gnamegrecur�Ch`�-13�45("4>"GOQ6�gstrm
			Ygrest			Ygstrms			Ygflunk			Cgrecur		K	Ugfilenamefsrfi/srfi-41.scm�
�
��	�	��	�	��	�	��	,�	��	.�	*��	1�	��	K�	��				Y
gnameg
stream-zip�CERC�gm
		,grtd
d�grtd
 d �grtd
A�Bgfilenamefsrfi/srfi-41.scm�		
��	-	*
��	2	*	��	:	*	&��	?	*
���	q
���	t
��8_	{
��=�
��=��
��=��	��=��	#��=��	��=��
��=��	��=��
��>~�
��?2�
��Q��
��U�
��V��
��ZT�
��ZU�
��fr�
��jk�
��nb�
��t��
��yw�
���
����
���.
���-5
����;
���[D
���^I
���|Y
���6_
���]d
����h
�����
����
����
���	�
���n�
����
����
����
���{�
��1	�}
C6srfi/srfi-38.go000064400000017670150536206130007245 0ustar00GOOF----LE-8-2.0�]U4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-38�	�		gfilenameS�	
fsrfi/srfi-38.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	gsrfi-8�	�	�	gsrfi-69�	�	�	gsystem�	gvm�	g
trap-state�	�	�	�	gexportsS�	gwrite-with-shared-structure�	gread-with-shared-structure�	�	 gset-current-module�	! �	" �	#gcond-expand-provide�	$gcurrent-module�	%�	&gcurrent-output-port�	'g
vector-length�	(gstring?�	)g
string-length�	*gbytevector?�	+gport?�	,gdisplay�	-f(�	.f)�	/f . �	0ghash-table-ref�	1f �	2f#(�	3gwrite�	4gnumber?�	5f#�	6gcounter�	7f=�	8ghash-table-set!�	9ghash-table-exists?�	:gmake-hash-table�	;geq?�	<gcurrent-input-port�	=geqv?�	>g	peek-char�	?geof-object?�	@glist->string�	Agreverse�	Bg	read-char�	Cgstring->number�	Dg
char-numeric?�	Eghash-table-ref/default�	Fgerror�	GfDouble declaration of part �	Hgread�	IfUse of undeclared part �	JfMalformed shared part specifier�	Kgwith-fluid*�	Lg%read-hash-procedures�	Mgfor-each�	Ngread-hash-extend�	O0123456789
�	Pghash-table-size�	Qgpatch!�	Rg
procedure?�	Sghole?�	Tg	fill-hole�C5h��]4	
54">"G4#i4$i5%>"G&'()*+h�\]	�$C�$45
��"$C45$45
��"$C45$C�$C45$CCTgobj
	�gt	!�gt	F�gt	X�gt	s�gfilenamefsrfi/srfi-38.scm�
	9	��		:	��			:	��	
	:	��		;	
��		;	��		;	'��		;	 ��		;	��	!	:	��	-	<	
��	7	<	��	8	<	'��	?	<	 ��	A	<	��	F	:	��	R	=	��	X	:	��	f	>	��	j	:	��	k	>	��	m	?	��	s	:	��	�gnameginteresting?�C,-./012'345678h@]"_�$�4L>"G4L�>"G"�">(L64L>"G4L>"GL6�$C45$"���4L>"G4L�>"G�"��t"��t�"��g�$�4L>"G454L
�>"G"E�$L64L>"G4L�>"G�"���"���	L64L5$�45$�4
5$04L>"G4	L>"GL645�4L>"G4	L>"G4
L>"G4>"G4>"G"���"���	L6�gobj
	@gstate	@gobj		:�glen	�]gi	Vgval	y8gn	�4gfilenamefsrfi/srfi-38.scm�
	N	��		O	��			P	
��	
	P	��		Q	
��		Q	��		Q	
��	"	R	
��	'	R	��	.	R	
��	:	S	
��	D	T	��	H	Y	��	L	Y	��	M	[	��	Q	[	��	X	[	��	a	\	��	x	]	��	|	]	��	|	T	��		T	���	T	���	T	,���	T	���	U	���	U	���	U	���	V	���	V	!���	V	���	W	!���	W	���	S	
���	S	"���	S	
���	^	
���	P	���	_	
���	_	���	_	
���	`	���	`	
���	a	���	a	��	a	��	b	��	c	��	c	��	c	+��"	c	"��#	d	��'	d	&��.	d	��7	e	��>	e	(��E	e	��P	f	(��V	f	��V	b	��e	h	��f	i	��p	i	��q	j	��y	j	���	k	
���	l	���	k	
���	m	���	m	$���	m	���	n	���	o	$���	o	���	q	"���	q	8���	q	"���	q	���	q	���	r	���	r	���	r	���	s	���	t	���	t	���	t	��	u	��	u	-��	u	��	v	��4	w	��8	k	��@	y	��^	@	gnameg	write-obj�C98'h��]4L5�$C45$	64>"G�$"4L�>"G�"����$?45"+�$C4L�>"G�"���
"���C�gobj
	�gstate	�gt		
�glen		w�gi		}�gfilenamefsrfi/srfi-38.scm�
	~	��			��	
		��	
		��	�	��	"		��	+�	��	,�	��	C�	��	G�	��	H�	��	M�	��	T�	��	_�	��	i�	��	l�	��	p�	��	q�	��	w�	��	}�	����	����	����	����	����	����	����	��	�	gnamegscan�C:;86	h�L-.,3#45#OOQQ454>"G4
>"G6Dgobj
	�goutport	�goptarg		�ginteresting?		9�g	write-obj		9�gscan		9�gstate		P�gfilenamefsrfi/srfi-38.scm�
	.
��		0	/��	J�	��	P�	��	S�	��	g�	��	m�	��	s�	����	��
	�	gnamegwrite-with-shared-structure�CR<:=>?@ABhX7]"G4L545$"45�$4564L5�"���"���/gpred
		Uginitial		Ugchars			Mgc		
	Mgt			.gfilenamefsrfi/srfi-38.scm�
�	��	�	��	�	��	
�	��	�	��	�	��	$�	'��	+�	"��	2�	
��	5�	��	=�	��	>�	��	G�	��	M�	��	M�	��		U	gnamegread-some-chars�CCDBEFG8h_]L�CWgfilenamefsrfi/srfi-38.scm�
�	��	�	$��		
gnamegthunk�CHIJh��]*44L55454L5=�$P$4>"G"4LO>"G4	5�C#�$$C
66�gc
	�gport	�gn		�gc		�gthunk		(�gcell		U�gobj		y�gfilenamefsrfi/srfi-38.scm�
�	��	�	��	�	 ��	�	?��	�	 ��	�	��	�	��	�	��	�	��	�	��	(�	��	3�	��	9�	��	:�	��	>�	��	E�	��	U�	��	U�	��	X�	
��	s�	��	y�	
����	����	����	����	����	����	����	��	�	gnameg	read-hash�CKLMNha]L6Ygdigit
		
gfilenamefsrfi/srfi-38.scm�
�	��	
�	��		
COHPQhP�]4LO>"G4L5
4L5�$4>"G"C�gresult
	"	Jgfilenamefsrfi/srfi-38.scm�
�	��	�	��	�	��	�	��	�	��	"�	��	&�	��	-�	��	1�	
��	2�	��		J
C	hX�-.,3#4545OOQQ[O6�gport
		Sgparts-table	 	Sgread-some-chars		3	Sg	read-hash		3	Sgfilenamefsrfi/srfi-38.scm�
�
��	�	6��	�	��	 �	��	S�	��		S
gnamegread-with-shared-structure�CRRhn]6fgx
		gfilenamefsrfi/srfi-38.scm�
�
��	�	��		gnameghole?�CSRSTh �]45$	456C�gx
		gfilenamefsrfi/srfi-38.scm�
�
��	�	��	
�	��	�	/��	�	$��		gnameg	fill-hole�CTRSTQ'h��]�$N4�5$4�5�"4�>"G4�5$
4�5�C�6�$\"J
�$C�45$45�"4>"G�"���45�"���C�gx
	�gi	b�gelt		q�gfilenamefsrfi/srfi-38.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	�	��	�	$��	�	/��	�	$��	 �	��	%�	9��	*�	A��	/�	9��	8�	��	=�	��	?�	��	C�	��	F�	$��	K�	/��	M�	$��	N�	��	U�	A��	W�	9��	Z�	��	^�	��	b�	��	f�		��	j�	��	q�	��	q�	��	t�	��	~�	����	����	����	����	$����	����	����	����	��*	�gnamegpatch!�CQRC�gm
		,gfilenamefsrfi/srfi-38.scm�		
��	-	"
��	2	"	��	:	"	&��	?	"
��
	.
����
��A�
���
����
��	�
C6srfi/srfi-17.go000064400000010767150536206130007242 0ustar00GOOF----LE-8-2.0�]�4h3]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-17�	�		gfilenameS�	
fsrfi/srfi-17.scm�	gexportsS�	ggetter-with-setter�	
�	greplacementsS�	gsetter�	gcar�	gcdr�	gcaar�	gcadr�	gcdar�	gcddr�	gcaaar�	gcaadr�	gcadar�	gcaddr�	gcdaar�	gcdadr�	gcddar�	gcdddr�	gcaaaar�	gcaaadr�	 gcaadar�	!gcaaddr�	"gcadaar�	#gcadadr�	$gcaddar�	%gcadddr�	&gcdaaar�	'gcdaadr�	(gcdadar�	)gcdaddr�	*gcddaar�	+gcddadr�	,gcdddar�	-gcddddr�	.g
string-ref�	/g
vector-ref�	0 !"#$%&'()*+,-./!�	1gset-current-module�	21�	31�	4gcond-expand-provide�	5gcurrent-module�	6�	7gmake-procedure-with-setter�	8�	9�	:gerror�	;f3Setting setters is not supported for a good reason.�	<gcompose-setter�	=�	>�	?gset-car!�	@�	A�	Bgset-cdr!�	C�	D�	E�	F�	G�	H�	I�	J�	K�	L�	M�	N�	O�	P�	Q�	R�	S�	T�	U�	V�	W�	X�	Y�	Z�	[�	\�	]�	^�	_ �	` �	a!�	b!�	c"�	d"�	e#�	f#�	g$�	h$�	i%�	j%�	k&�	l&�	m'�	n'�	o(�	p(�	q)�	r)�	s*�	t*�	u+�	v+�	w,�	x,�	y-�	z-�	{.�	|.�	}gstring-set!�	~/�	/��gvector-set!�C5h(�]4	

0543>"G44i45i56>"G7iR4i9:;hh-136`gargs
			gfilenamefsrfi/srfi-17.scm�
	>	��	
	?	��		?	��			


C5Rhx]L4L56pgobj
		gvalue		gfilenamefsrfi/srfi-17.scm�
	D	��		E	��		E	��			Ch�]OC�gsetter
		glocation		gfilenamefsrfi/srfi-17.scm�
	C
��			gnamegcompose-setter�C<R4i>?i5R4iABi5R4iD4<i?i>55R4iF4<i?iA55R4iH4<iBi>55R4iJ4<iBiA55R4iL4<i?iD55R4iN4<i?iF55R4iP4<i?iH55R4iR4<i?iJ55R4iT4<iBiD55R4iV4<iBiF55R4iX4<iBiH55R4iZ4<iBiJ55R4i\4<i?iL55R4i^4<i?iN55R4i`4<i?iP55 R4ib4<i?iR55!R4id4<i?iT55"R4if4<i?iV55#R4ih4<i?iX55$R4ij4<i?iZ55%R4il4<iBiL55&R4in4<iBiN55'R4ip4<iBiP55(R4ir4<iBiR55)R4it4<iBiT55*R4iv4<iBiV55+R4ix4<iBiX55,R4iz4<iBiZ55-R4i|}i5.R4i�i5/RC�gm
		,gfilenamefsrfi/srfi-17.scm�		,
��	-	5
��	2	5	��	:	5	&��	?	5
��	N	9
��	O	<	���	;
��#	C
��$	H	��3	G
��4	K	��C	J
��D	O	��K	P	��Y	O	��\	N
��]	R	��d	S	��r	R	��u	Q
��v	U	��}	V	���	U	���	T
���	X	���	Y	���	X	���	W
���	\	���	]	���	\	���	[
���	_	���	`	���	_	���	^
���	b	���	c	���	b	���	a
���	e	���	f	��	e	��	d
��	h	��	i	��!	h	��$	g
��%	k	��,	l	��:	k	��=	j
��>	n	��E	o	��S	n	��V	m
��W	q	��^	r	��l	q	��o	p
��p	u	��w	v	���	u	���	t
���	x	���	y	���	x	���	w
���	{	���	|	���	{	���	z
���	~	���		���	~	���	}
����	����	����	����
����	����	���	���
���	��
�	���	���
���	��&�	��4�	��7�
��8�	��?�	��M�	��P�
��Q�	��X�	��f�	��i�
��j�	��q�	���	����
����	����	����	����
����	����	����	����
����	����	����	����
����	����	����	����
����	����	����	����
���	���
���	���
���	!
C6srfi/srfi-67.go000064400000207571150536206130007250 0ustar00GOOF----LE-8-2.0a]�4h4]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-67�	�		gfilenameS�	
fsrfi/srfi-67.scm�	gimportsS�	gsrfi-27�	
�	
�	�	gexportsS�	g</<=?�	g</<?�	g<=/<=?�	g<=/<?�	g<=?�	g<?�	g=?�	g>/>=?�	g>/>?�	g>=/>=?�	g>=/>?�	g>=?�	g>?�	gboolean-compare�	gchain<=?�	 gchain<?�	!gchain=?�	"gchain>=?�	#gchain>?�	$gchar-compare�	%gchar-compare-ci�	&gcompare-by<�	'gcompare-by<=�	(g
compare-by=/<�	)g
compare-by=/>�	*gcompare-by>�	+gcompare-by>=�	,gcomplex-compare�	-gcond-compare�	.g
debug-compare�	/gdefault-compare�	0gif-not=?�	1gif3�	2gif<=?�	3gif<?�	4gif=?�	5gif>=?�	6gif>?�	7ginteger-compare�	8gkth-largest�	9glist-compare�	:glist-compare-as-vector�	;gmax-compare�	<gmin-compare�	=gnot=?�	>gnumber-compare�	?gpair-compare�	@gpair-compare-car�	Agpair-compare-cdr�	Bgpairwise-not=?�	Cgrational-compare�	Dgreal-compare�	Egrefine-compare�	Fgselect-compare�	Ggsymbol-compare�	Hgvector-compare�	Igvector-compare-as-list�	J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI9�	KgreplacementsS�	Lgstring-compare�	Mgstring-compare-ci�	NLM�	Ogset-current-module�	PO�	QO�	Rgcond-expand-provide�	Sgcurrent-module�	T�	Ugfor-each�	Vgcompare:checked�	Wgmake-syntax-transformer�	XW�	YW�	Zgmacro�	[g$sc-dispatch�	\[�	][�	^gany�	_^^^^^�	`g
syntax-object�	agcase�	bgtop�	cb�	dgribcage�	egdummy�	fgc�	ggless�	hgequal�	iggreater�	jefghi�	kgm-46961e518a-3�	lkb�	mlcccc�	nfl-46961e518a-8�	ofl-46961e518a-9�	pfl-46961e518a-a�	qfl-46961e518a-b�	rfl-46961e518a-c�	snopqr�	tdjms�	ud�	vgx�	wv�	xl�	yfl-46961e518a-5�	zy�	{dwxz�	|ctu{�	}ghygiene�	~}�	`a|~��`	�|~�����`
|~�����`|~�����gelse��`�|~��gerror��`�|~��f comparison value not in {-1,0,1}��`�|~�������������gsyntax-violation��������f-source expression failed to match any pattern��gcompare:if-rel?��gc-cases��ga-cases��gconsequence��e��f���gm-46961e518a-12���b���cccc��fl-46961e518a-17��fl-46961e518a-18��fl-46961e518a-19��fl-46961e518a-1a��fl-46961e518a-1b���������d��������fl-46961e518a-14�����dw����c�u���`��~��gif��`��~��`�~����������^^^^^^��g	alternate��e��f�����ccccc��fl-46961e518a-22��fl-46961e518a-23��fl-46961e518a-24��fl-46961e518a-25��fl-46961e518a-26��fl-46961e518a-27����������d�����c�u���`a�~��`��~��`��~��`��~�������������geach-any��^����garg��e���gm-46961e518a-2f���b���c��fl-46961e518a-34��fl-46961e518a-35������d��������fl-46961e518a-31�����dw����c�u���`��~��`
�~�����`	��~��`�~������gm-46961e518a-3a���b���c��fl-46961e518a-3f��fl-46961e518a-40������d��������fl-46961e518a-3c�����dw����c�u���`��~��`	��~�����`
�~��`�~������gm-46961e518a-45���b���c��fl-46961e518a-4a��fl-46961e518a-4b������d��������fl-46961e518a-47�����dw����c�u���`��~��`�~�����`	��~��`
�~������gm-46961e518a-50���b���c��fl-46961e518a-55��fl-46961e518a-56����d�����fl-46961e518a-52��dw�cu�`�~�`	�~�	`
~�
	�`~��
gm-46961e518a-5b�
b�c�fl-46961e518a-60�fl-46961e518a-61��d���fl-46961e518a-5d��dw�cu�`�~�`
~�`~��`	�~��gm-46961e518a-66� b�! c�"fl-46961e518a-6b�#fl-46961e518a-6c�$"#�%d�!$�& �'fl-46961e518a-68�('�)dw&(�*c%u)�+`�*~�,`	�*~�-`*~�.,-�/`
*~�0/�1gcompare:define-rel?�2^^^�3gdefine�4grel?�5gif-rel?�6e45�7gm-46961e518a-71�87b�98cc�:fl-46961e518a-76�;fl-46961e518a-77�<fl-46961e518a-78�=:;<�>d69=�?8�@fl-46961e518a-73�A@�Bdw?A�Cc>uB�D`3C~�Egcase-lambda�F`EC~�Gglambda�H`GC~�I`vC~�Jgy�K`JC~�LIK�M`/C~�NMIK�O`C~�P`C~�QNOP�Rgcompare�S`RC~�TS�USIK�VUOP�W`�C~�Xg
procedure?�Y`XC~�ZYS�[`�C~�\f*not a procedure (Did you mean rel/rel??): �]`\C~�^[]S�_^�`gcompare:define-rel1/rel2?�a^^^^�bg
rel1/rel2?�cgif-rel1?�dgif-rel2?�eebcd�fgm-46961e518a-83�gfb�hgccc�ifl-46961e518a-88�jfl-46961e518a-89�kfl-46961e518a-8a�lfl-46961e518a-8b�mijkl�ndehm�og�pfl-46961e518a-85�qp�rdwoq�scnur�t`3s~�u`Es~�v`Gs~�w`vs~�x`Js~�ygz�z`ys~�{wxz�|`/s~�}|wx�~|xz�`s~��`s~��~���`Vs~����|z�����`Rs~������wx���xz���������z������wxz��gcompare:define-chain-rel?��g
chain-rel?��e�5��gm-46961e518a-99���b���cc��fl-46961e518a-9e��fl-46961e518a-9f��fl-46961e518a-a0�������d��������fl-46961e518a-9b�����dw����c�u���`3�~��`E�~��`R�~�����`�~������gx1��`��~������`V�~������������gx2��`��~�������`�~�������gx3��`��~���������������������������gx3+��`��~�����������������glet��`��~��gchain?��`��~��ghead��`��~������gtail��`��~����������`��~��gnull?��`��~������gcar��`��~�����������gcdr��`��~�����������gapply��`��~������������������������grandom-integer��glist-ref��glength��f	bad index��ginteger?��gexact?��^��e��gm-46961e518a-a9���b�����fl-46961e518a-ae�����d�����fl-46961e518a-ab�����dw����c�u���`
�~��^^��^Œ��^댤�gc1��gc2��gcs��e������ccc��fl-46961e518a-b6��fl-46961e518a-b7��fl-46961e518a-b8��fl-46961e518a-b9��������d�����c�u���`1�~��`	��~��`E�~��`�~�����gclause��evJ��gm-46961e518a-bf�b�ccc�fl-46961e518a-c4�fl-46961e518a-c5�fl-46961e518a-c6�fl-46961e518a-c7��d��	�
fl-46961e518a-c1�
�dw	�
cu�`�
~�gx-val�`
~�gy-val�`
~�`F
~�^��evJ�cc�fl-46961e518a-ce�fl-46961e518a-cf�fl-46961e518a-d0��d�cu�`
~�gfree-id�cu� `�~�! �"!���#^^"�$^#�%evJf�&fl-46961e518a-d5�'fl-46961e518a-d6�(fl-46961e518a-d7�)fl-46961e518a-d8�*&'()�+d%*�,c+u�-`E,~�.����/^.��0^/��1^0�2gt?�3evJ2f��4ccccc�5fl-46961e518a-df�6fl-46961e518a-e0�7fl-46961e518a-e1�8fl-46961e518a-e2�9fl-46961e518a-e3�:fl-46961e518a-e4�;56789:�<d34;�=c<u�>`�=~�?gt?-val�@`?=~�Agtx�B`A=~�Cgty�D`C=~�E`�=~�F`E=~�G`	�=~�HG�I`=~�J`F=~�Kgm-46961e518a-ed�LKb�ML�Nfl-46961e518a-f2�ON�Pd�MO�Qfl-46961e518a-ef�RQ�SdwMR�TcPuS�U`
T~�VcuS�W`�V~�XW�YX���Z^Y�[e��\Lc�]fl-46961e518a-f5�^fl-46961e518a-f6�_]^�`d[\_�ac`uS�b`Ea~�c����dc���e^d��feAC���gLcccc�hfl-46961e518a-fb�ifl-46961e518a-fc�jfl-46961e518a-fd�kfl-46961e518a-fe�lfl-46961e518a-ff�mhijkl�ndfgm�ocnuS�p`�o~�qgtx-val�r`qo~�sgty-val�t`so~�u`�o~�v`Eo~�w`	�o~�xw�y`o~�z`-o~�{gcompare:type-check�|gtype?�}g	type-name�~e|}v�gm-46961e518a-107��b���ccc��fl-46961e518a-10c��fl-46961e518a-10d��fl-46961e518a-10e��fl-46961e518a-10f��������d~�������fl-46961e518a-109�����dw����c�u���`��~��gnot��`��~��`��~��g
string-append��`��~��fnot ��`��~��f:��`��~�����gbegin��e|}vJ���cccc��fl-46961e518a-115��fl-46961e518a-116��fl-46961e518a-117��fl-46961e518a-118��fl-46961e518a-119���������d�����c�u���`��~��`{�~��gcompare:define-by=/<��g=��g<��eR��|}��gm-46961e518a-120���b���ccccc��fl-46961e518a-125��fl-46961e518a-126��fl-46961e518a-127��fl-46961e518a-128��fl-46961e518a-129��fl-46961e518a-12a����������d��������fl-46961e518a-122�����dw����c�u���`3�~��`��~��`G�~��`v�~��`J�~������`��~�����geq?��`��~�������`
�~�����`	��~��`�~������`��~��`��~��`��~��`��~�����gboolean?��fboolean��gchar=?��gchar?��gchar<?��fchar��g	char-ci=?��g	char-ci<?��gstring=?��gstring<?��gstring?��fstring��gstring-ci=?��gstring-ci<?��fsymbol��gsymbol->string��finteger��g	rational?��frational��greal?��freal��gcomplex?��fcomplex��g	real-part��g	imag-part��gnumber?��fnumber��g
vector-length��g
vector-ref��gmin��f$unrecognized type in default-compare��fcompare value not in {-1,0,1}��fcompare error: not reflexive��f!compare error: not anti-symmetric��yJv��Jyv��yvJ��vyJ��Jvy��vJy��



��
����
�
�
����
��



��fcompare error: not transitive��gmap�C5h8��]4	
JKN5	4Q>"G4Ri4Si5T>"GUhc]L6[gx
		
gfilenamefsrfi/srfi-67/compare.scm�
	U	��	
	U	��		
Ch(�-134O>"GC�gresult
			%gcompare			%gargs				%gfilenamefsrfi/srfi-67/compare.scm�
	T
��	
	U	��			%	
	gnamegcompare:checked�CVR4Y1Z]_����h(v]�����Cngdummy
		#gc		#gless			#gequal			#ggreater			#		#	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	[
��		"g
macro-typegsyntax-rules�gpatternsgcglessgequalggreaterC51R4Y�Z]_��h]�����Cwgdummy
		gc-cases		ga-cases			gc			gconsequence						C���h �]����C�gdummy
		gc-cases		ga-cases			gc			gconsequence			g	alternate						C��h@]45$@45$@6	gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-67/compare.scm�
	f	��		9g
macro-typegsyntax-rules�gpatternsgc-casesga-casesgcgconsequencegc-casesga-casesgcgconsequenceg	alternateC5�R4Y4Z]����h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	o
��		"g
macro-typegsyntax-rules�gpatternsgargg...C54R4Y3Z]����h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	r
��		"g
macro-typegsyntax-rules�gpatternsgargg...C53R4Y6Z]����h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	u
��		"g
macro-typegsyntax-rules�gpatternsgargg...C56R4Y2Z]�
h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	x
��		"g
macro-typegsyntax-rules�gpatternsgargg...C52R4Y5Z]�h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	{
��		"g
macro-typegsyntax-rules�gpatternsgargg...C55R4Y0Z]�+.0h>]���C6gdummy
		garg					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
	~
��		"g
macro-typegsyntax-rules�gpatternsgargg...C50R4Y1Z]2DFHLQTVUWZ_hPT]���	
����CLgdummy
		Mgrel?		Mgif-rel?			M		M	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgrel?gif-rel?C51R/��h8{]
45
�$C	��$"�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5
�$C	��$"�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345
�$C	��$"�$C6]45$345
�$C	��$"�$C66gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
����
����
��			
			&	Y		[�	gnameg=?�CR/��h8{]
45	��$C
�$"�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5	��$C
�$"�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345	��$C
�$"�$C6]45$345	��$C
�$"�$C66gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
����
����
��			
			&	Y		[�	gnameg<?�CR/��h8{]
45�$C	��$"
�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5�$C	��$"
�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345�$C	��$"
�$C6]45$345�$C	��$"
�$C66gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
����
����
��			
			&	Y		[�	gnameg>?�CR/��h8{]
45	��$"
�$C�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5	��$"
�$C�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345	��$"
�$C�$C6]45$345	��$"
�$C�$C66	gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
����
����
��			
			&	Y		[�	gnameg<=?�CR/��h8{]
45
�$"�$C	��$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5
�$"�$C	��$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345
�$"�$C	��$C6]45$345
�$"�$C	��$C66	gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
����
����
��			
			&	Y		[�	gnameg>=?�CR/��h8{]
45	��$"�$C
�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C��h8{]
4L5	��$"�$C
�$C6sgx
		5gy		5gkey			5gfilenamefsrfi/srfi-67/compare.scm�
�
��		5	C/��X\h�)3C)3OC)6345	��$"�$C
�$C6]45$345	��$"�$C
�$C66�gcompare
		gx
	&	Ygy	&	Ygkey		/	Ygcompare
	[�gx	[�gy		[�gkey		o�gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&	Y		[�	gnamegnot=?�C=R4Y`Z]atuv{}�������
hhq]����	
��������	
����Cigdummy
		hg
rel1/rel2?		hgif-rel1?			hgif-rel2?			h		h	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsg
rel1/rel2?gif-rel1?gif-rel2?C5`R/��Vhp�]45	��$345	��$C
�$"�$C6
�$"�$	66�gx
		mgy		mgz			mgkey			mgkey			Igfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5	��$34L5	��$C
�$"�$C6
�$"�$	L66�gx
		mgy		mgz			mgkey			mgkey			Igfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhN)3C)3OC)n345	��$345	��$C
�$"�$C6
�$"�$	66]45	��$345	��$C
�$"�$C6
�$"�$	66Fgcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		C	mgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg</<?�CR/��Vhp�]45	��$345	��$"
�$C�$C6
�$"�$	66�gx
		mgy		mgz			mgkey			mgkey			Igfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5	��$34L5	��$"
�$C�$C6
�$"�$	L66�gx
		mgy		mgz			mgkey			mgkey			Igfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhO)3C)3OC)n345	��$345	��$"
�$C�$C6
�$"�$	66]45	��$345	��$"
�$C�$C6
�$"�$	66Ggcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		C	mgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg</<=?�CR/��Vhp�]45	��$"
�$345	��$C
�$"�$C6�$	66�gx
		mgy		mgz			mgkey			mgkey		,	Vgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5	��$"
�$34L5	��$C
�$"�$C6�$	L66�gx
		mgy		mgz			mgkey			mgkey		,	Vgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhO)3C)3OC)n345	��$"
�$345	��$C
�$"�$C6�$	66]45	��$"
�$345	��$C
�$"�$C6�$	66Ggcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		P	zgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg<=/<?�CR/��Vhp�]45	��$"
�$345	��$"
�$C�$C6�$	66�gx
		mgy		mgz			mgkey			mgkey		,	Vgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5	��$"
�$34L5	��$"
�$C�$C6�$	L66�gx
		mgy		mgz			mgkey			mgkey		,	Vgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhP)3C)3OC)n345	��$"
�$345	��$"
�$C�$C6�$	66]45	��$"
�$345	��$"
�$C�$C6�$	66Hgcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		P	zgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg<=/<=?�CR/��Vhp�]45�$345�$C	��$"
�$C6	��$"
�$	66�gx
		mgy		mgz			mgkey			mgkey			Hgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5�$34L5�$C	��$"
�$C6	��$"
�$	L66�gx
		mgy		mgz			mgkey			mgkey			Hgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhN)3C)3OC)n345�$345�$C	��$"
�$C6	��$"
�$	66]45�$345�$C	��$"
�$C6	��$"
�$	66Fgcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		B	lgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg>/>?�CR/��Vhp�]45�$345
�$"�$C	��$C6	��$"
�$	66�gx
		mgy		mgz			mgkey			mgkey			Hgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5�$34L5
�$"�$C	��$C6	��$"
�$	L66�gx
		mgy		mgz			mgkey			mgkey			Hgfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhO)3C)3OC)n345�$345
�$"�$C	��$C6	��$"
�$	66]45�$345
�$"�$C	��$C6	��$"
�$	66Ggcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		B	lgcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg>/>=?�CR/��Vhp�]45
�$"�$345�$C	��$"
�$C6	��$	66�gx
		mgy		mgz			mgkey			mgkey		+	Ugfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5
�$"�$34L5�$C	��$"
�$C6	��$	L66�gx
		mgy		mgz			mgkey			mgkey		+	Ugfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhO)3C)3OC)n345
�$"�$345�$C	��$"
�$C6	��$	66]45
�$"�$345�$C	��$"
�$C6	��$	66Ggcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		O	ygcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg>=/>?�CR/��Vhp�]45
�$"�$345
�$"�$C	��$C6	��$	66�gx
		mgy		mgz			mgkey			mgkey		+	Ugfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C��Vhp�]4L5
�$"�$34L5
�$"�$C	��$C6	��$	L66�gx
		mgy		mgz			mgkey			mgkey		+	Ugfilenamefsrfi/srfi-67/compare.scm�
�
��		m	C/��VhP)3C)3OC)n345
�$"�$345
�$"�$C	��$C6	��$	66]45
�$"�$345
�$"�$C	��$C6	��$	66Hgcompare
		gx
	&�gy	&�gz		&�gkey		/�gkey		O	ygcompare
��gx��gy	��gz	��gkey	��gkey	��gfilenamefsrfi/srfi-67/compare.scm�
�
��			
			&�	��	gnameg>=/>=?�CR4Y�Z]2������������������hXZ]��	���

����CRgdummy
		Ug
chain-rel?		Ugif-rel?			U		U	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsg
chain-rel?gif-rel?C5�RV��hp)3C)36)6345
�$C	��$"�$C6)n345
�$345
�$C	��$"�$C6	��$"�$	66-1345
�$`"P(C4�5
�$��"���	��$"�$
�@6"���	��$"�$	@6gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey		~�gcompare
�ngx1�ngx2	�ngx3+	�ngkey	�nghead	�=gtail	�=gkey	�=gfilenamefsrfi/srfi-67/compare.scm�
�
��							&	Y		b�	�n	
	gnamegchain=?�C!RV��hp)3C)36)6345	��$C
�$"�$C6)n345	��$345	��$C
�$"�$C6
�$"�$	66-1345	��$`"P(C4�5	��$��"���
�$"�$
�@6"���
�$"�$	@6gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey		�gcompare
�ngx1�ngx2	�ngx3+	�ngkey	�nghead	�>gtail	�>gkey	>gfilenamefsrfi/srfi-67/compare.scm�
�
��							&	Y		b�	�n	
	gnamegchain<?�C RV��hp)3C)36)6345�$C	��$"
�$C6)n345�$345�$C	��$"
�$C6	��$"
�$	66-1345�$`"P(C4�5�$��"���	��$"
�$
�@6"���	��$"
�$	@6gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey		~�gcompare
�ngx1�ngx2	�ngx3+	�ngkey	�nghead	�=gtail	�=gkey	�=gfilenamefsrfi/srfi-67/compare.scm�
�
��							&	Y		b�	�n	
	gnamegchain>?�C#RV��hp
)3C)36)6345	��$"
�$C�$C6)n345	��$"
�$345	��$"
�$C�$C6�$	66-1345	��$"
�$`"P(C4�5	��$"
�$��"����$
�@6"����$	@6gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey	��gcompare
�ngx1�ngx2	�ngx3+	�ngkey	�nghead	�Kgtail	�Kgkey	
Kgfilenamefsrfi/srfi-67/compare.scm�
�
��							&	Y		b�	�n	
	gnamegchain<=?�CRV��hp
)3C)36)6345
�$"�$C	��$C6)n345
�$"�$345
�$"�$C	��$C6	��$	66-1345
�$"�$`"P(C4�5
�$"�$��"���	��$
�@6"���	��$	@6gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey	��gcompare
�ngx1�ngx2	�ngx3+	�ngkey	�nghead	�Jgtail	�Jgkey	Jgfilenamefsrfi/srfi-67/compare.scm�
�
��							&	Y		b�	�n	
	gnamegchain>=?�C"RV��V�����h�];	�$$�$
L�6CC4545"�()4L455$45"���C�$��"���4L�5			��$����"���	
�$$
L�@C	�$����"��G6
"��0�gx
	gn	g
unchecked?		gi-pivot		.gx-pivot		9gi		?�gx		?�gx<		?�gx>		?�gkey		��
gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	
��	�		��	�	
��	�	!��	�	��	!�	-��	#�	��	(�	��	.�	
��	1�	��	9�	
��	?�	��	E�	��	F�	��	K�	'��	T�	��	X�	��	[�	'��	l�	��	s�	��	w�	��	z�	 ��	}�	(����	����	����	'����	����	����	%����	-����	;����	5����	����	����	����	D����	"����	����	%����	-����	>����	8����	����	����	���	+���	4���	��2		gnamegunequal?�C�h(�)3C)36)6345	��$"�$C
�$C6)�345	��$"�$d45	��$"�$345	��$"�$C
�$C6
�$C6
�$	66-13OQ456}gcompare
			gcompare
		gx1		gcompare
	&	Ygx1	&	Ygx2		&	Ygkey		/	Ygcompare
	b�gx1	b�gx2		b�gx3		b�gkey		k�gkey	��gkey	��gcompare
%gx1+%gunequal?	%gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	��	&�	��	'�	��	/�	��	b�	��	c�	��	k�	����	����	����	%����	����	����	����	����	����	����	����	���	���	���	!��%�	��							&	Y		b�	%
CBRV��h�)
36)8345	��$"
�$C�$C6)�345	��$"
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C66)d345	��$"
�$�45	��$"
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C66�$�45	��$"
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C666-13"U(C4�5	��$"
�$"�$�"45�"���45	��$"
�$"�$"45"��b�gcompare
			gx1			gcompare
		Qgx1		Qgx2			Qgkey		%	Qgcompare
	Z�gx1	Z�gx2		Z�gx3		Z�gkey		c�gkey	��gkey	��gcompare
�]gx1�]gx2	�]gx3	�]gx4	�]gkey	]gkey	&�gkey	Gsgkey	��gkey	�Wgkey	�gkey	%Qgcompare
fgx1fgx2	fgx3+	fgxmin	j�gxs	j�gkey	}�gkey	��!gfilenamefsrfi/srfi-67/compare.scm�
	��		��		��		��	%	��	Z	��	[
	��	c
	��	|	���	���
	���	���	���
	���	���	��	��	��&	��?	��G	��{	��|	���	���	���	���	���	���	���	��	��	��%	��W	��[	��]	��f	��j	��p	��t	��{	%��}	��}	���	4���	���	���	���	���	���	��	��4						Q		Z�	�]	f	
	gnamegmin-compare�C<RV��h�)
36)8345
�$"�$C	��$C6)�345
�$"�$545
�$"�$C	��$C6	��$545
�$"�$C	��$C66)d345
�$"�$�45
�$"�$545
�$"�$C	��$C6	��$545
�$"�$C	��$C66	��$�45
�$"�$545
�$"�$C	��$C6	��$545
�$"�$C	��$C666-13"U(C4�5
�$"�$"	��$�"45�"���45
�$"�$"	��$"45"��b�gcompare
			gx1			gcompare
		Qgx1		Qgx2			Qgkey		%	Qgcompare
	Z�gx1	Z�gx2		Z�gx3		Z�gkey		c�gkey	��gkey	��gcompare
�]gx1�]gx2	�]gx3	�]gx4	�]gkey	]gkey	%�gkey	Eqgkey	��gkey	�Wgkey	�gkey	%Qgcompare
fgx1fgx2	fgx3+	fgxmax	j�gxs	j�gkey	}�gkey	��!gfilenamefsrfi/srfi-67/compare.scm�
	��		��		��	!	��	%!	��	Z	��	[#	��	c#	��	{$	���$	���#	���%	���%	���#	���	���'	��'	��(	��%(	��=)	��E)	��z(	��{*	���*	���(	���'	���+	���+	���,	���,	��+	��-	��%-	��W+	��[-	��]'	��f	��j/	��p0	��t2	��{2	%��}2	��}2	���2	4���2	���3	���2	���/	���/	���/	��/	��4						Q		Z�	�]	f	
	gnamegmax-compare�C;RV��������
h��)#3�
�$
66)�3	�
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C66)�3		�
�$�45	��$"
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C66�$-45	��$g45	��$"
�$C�$545	��$"
�$C�$C66
�$545	��$"
�$C�$C6�$g45	��$"
�$C�$545	��$"
�$C�$C666	�$�45	��$"
�$545	��$"
�$C�$C6�$545	��$"
�$C�$C666-13"4>"-G"&45$45$""���""���45�"644	55	"
(e�$�"�����$ $
���6
�6���"���4
�	5	��$&
�
���


"��Z
�$&
�
�
��

"��,�$&
�

���

"���6




"�����"����gcompare
			)gk			)gx0				)gkey		
	)gcompare
	2�gk	2�gx0		2�gx1		2�gkey		7�gkey		J	vgkey	��gcompare
�Kgk�Kgx0	�Kgx1	�Kgx2	�Kgkey	�Kgkey	�lgkey	�)gkey	:fgkey	}�gkey	��gkey	��gkey	,gkey	=�gkey	i�gkey	�Cgkey	�gkey	=gcompare
T�gkT�gx0	T�gx1+	T�gn	��gk	��gn	��grev	��gx	��gpivot		��gx	
��gx<	��gn<	��gx=	
��gn=	��gx>	��gn>	��gkey	-�/gfilenamefsrfi/srfi-67/compare.scm�
:	��	
<	
��	
<	��	!=	��	%>	��	)>	��	2:	��	7@	
��	7@	��	BA	��	JA	��	~@	��	B	���B	���C	���C	���:	���E	
���E	���F	���F	���G	���G	��1F	��2H	��:H	��lF	��tE	��uI	��}I	���J	���J	���L	!���L	���J	���I	���M	��M	��4I	��5N	��=N	��aP	!��iP	���N	���I	���E	���Q	���Q	���R	���R	��Q	��	S	��S	��CQ	��GT	��KT	��T:	��YW	��]W	��dW	��pV	��qV	��{V	��|V	"���V	���X	���X	���X	���Y		���]	���]	$���]	���]	���^	
���_	���a	���`	���b	 ���b	���c	���c	���`	���d	���e	*���e	3���e	'���e	��f	'��f	��h	 ��h	��h	.��#h	��$i	��)i	!��-i	��-i	��;j	��>j	-��Aj	'��Dj	9��^j	��fi	��ik	��pk	3��sk	-��vk	?���k	���i	���l	���l	9���l	3���l	E���l	���i	���^	
���^	#���^	3���^	C���^	
���Y		���Y	���\	���Y		��}			)		2�	�K	T�	
	C8Rh(�]4L5$	�C4L5$C
C�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
s	
��	s	��	s	��	s	/��	s	+��		#	Ch8�)3OC]45$	�C45$C
C�glt
			glt
		4gx		4gy			4gfilenamefsrfi/srfi-67/compare.scm�
r	��	t	��	 t	��	$t	/��	0t	+��					4	gnamegcompare-by<�C&Rh(�]4L5$C4L5$	�C
C�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
x	
��	x	��	x	��	x	.��	x	*��		#	Ch8�)3OC]45$C45$	�C
C�ggt
			ggt
		4gx		4gy			4gfilenamefsrfi/srfi-67/compare.scm�
w	��	y	��	 y	��	#y	.��	/y	*��					4	gnamegcompare-by>�C*Rh(�]4L5$4L5$
C	�CC�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
}	
��	}	��	}	��	}	,��	}	(��		#	Ch8�)3OC]45$45$
C	�CC�gle
			gle
		4gx		4gy			4gfilenamefsrfi/srfi-67/compare.scm�
|	��	~	��	 ~	��	!~	,��	-~	(��					4	gnamegcompare-by<=�C'Rh(�]4L5$4L5$
CC	�C�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
�	
��	�	��	�	��	�	,��	�	(��		#	Ch8�)3OC]45$45$
CC	�C�gge
			gge
		4gx		4gy			4gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	��	 �	��	!�	,��	-�	(��					4	gnamegcompare-by>=�C+Rh(�]4L5$
C4L5$	�CC�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	"��	�	��	�	1��	�	-��		#	Ch8�)
3OC]45$
C45$	�CC�geq
			glt			geq
		6glt		6gx			6gy			6gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	"��	"�	��	%�	1��	1�	-��						6	gnameg
compare-by=/<�C(Rh(�]4L5$
C4L5$C	�C�gx
		#gy		#gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	"��	�	��	�	1��	�	-��		#	Ch8�)
3OC]45$
C45$C	�C�geq
			ggt			geq
		6ggt		6gx			6gy			6gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	"��	"�	��	%�	1��	1�	-��						6	gnameg
compare-by=/>�C)R4YEZ]��h-]C%gdummy
				C�h=]C5gdummy
		gc1					C�����h]]������CUgdummy
		gc1		gc2			gcs						C��
hP�]45$@45$@45$@	6�gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsrfi/srfi-67/compare.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgc1gc1gc2gcsg...C5ER4YFZ]�h(_]��CWgdummy
		&gx		&gy			&gclause			&		&	ChK]CCgdummy
		gx		gy						C$-hZ]�CRgdummy
		gx		gy			gc						C1>@BDEFHIJ
h`~]����	��Cvgdummy
		]gx		]gy			]gt?			]gc			]gclause			]		]	C��hhX]!45$@45$@45$@45$	@
6Pgx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-67/compare.scm�
�	��		gg
macro-typegsyntax-rules�gpatternsgxgygclauseg...gxgygxgygelsegcg...gxgygt?gcg...gclauseg...C5FR4Y-Z]�Uh-]C%gdummy
				CZbh=]�C5gdummy
		gcs					Ceprtuvxyz	h@q]�����Cigdummy
		<gtx		<gty			<gcs			<gclause			<		<	C��
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsrfi/srfi-67/compare.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgelsegcsg...gtxgtygcsg...gclauseg...C5-R4Y{Z]a������h(f]���C^gdummy
		&gtype?		&g	type-name			&gx			&		&	C_��h u]Cmgdummy
		gtype?		g	type-name			gx			gy						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-67/compare.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgtype?g	type-namegxgtype?g	type-namegxgyC5{R4Y�Z]���������������h��]�	���
��
���	��
�����C�gdummy
		}gcompare		}g=			}g<			}gtype?			}g	type-name			}		}	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-67/compare.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcompareg=g<gtype?g	type-nameC5�R������hx�]45$"445>"G45$"445>"G$
$
CC$	�C
C�gx
		ugy		ugfilenamefsrfi/srfi-67/compare.scm�
�
��	�	��	�	��	�	��	G�	��	I�	��	`�	��	f�	��	p�	��
		u	gnamegboolean-compare�CR�i�������hh�]45$G&
C45$!4L5$
C45$	�CC456456�gx
		egy		egfilenamefsrfi/srfi-67/compare.scm�
�
��	J�
��	L�	7��	N�
��	P�
��	[�
��	]�	7��	_�
��	a�
��
		e	CO$R�i�i������hh�]45$G&
C45$!4L5$
C4L5$	�CC456456�gx
		egy		egfilenamefsrfi/srfi-67/compare.scm�
�
��	J�
��	L�	@��	N�
��	P�
��	[�
��	]�	@��	_�
��	a�
��
		e	CO%R�i�i������hh�]45$G&
C45$!4L5$
C4L5$	�CC456456�gx
		egy		egfilenamefsrfi/srfi-67/compare.scm�
�
��	J�
��	L�	?��	N�
��	P�
��	[�
��	]�	?��	_�
��	a�
��
		e	COLR�i�i������hh�]45$G&
C45$!4L5$
C4L5$	�CC456456�gx
		egy		egfilenamefsrfi/srfi-67/compare.scm�
�
��	J�
��	L�	H��	N�
��	P�
��	[�
��	]�	H��	_�
��	a�
��
		e	COMR�����L�hh�]�$"445>"G�$"445>"G45456�gx
		dgy		dgfilenamefsrfi/srfi-67/compare.scm�
�
��	�	��	�	��	�	��	?�	��	A�	��	U�	��	\�	%��	d�	��
		d	gnamegsymbol-compare�CGR������h`�]45$?&
C45$�$
C�$	�CC456456�gx
		]gy		]gfilenamefsrfi/srfi-67/compare.scm�
�
��	B�
��	D�	3��	F�
��	H�
��	S�
��	U�	3��	W�
��	Y�
��
		]	C7R������h`�]45$?&
C45$�$
C�$	�CC456456�gx
		]gy		]gfilenamefsrfi/srfi-67/compare.scm�
�
��	B�
��	D�	5��	F�
��	H�
��	S�
��	U�	5��	W�
��	Y�
��
		]	CCR������h`�]45$?&
C45$�$
C�$	�CC456456�gx
		]gy		]gfilenamefsrfi/srfi-67/compare.scm�
�
��	D�	-��	F�
��	U�	-��	W�
��		]	CDR������D����h�Y]
45$"445>"G45$"445>"G"K445455	��$	�C
�$4	54	56�$C
645$45$6"���"���Qgx
	�gy	�gkey		q�gfilenamefsrfi/srfi-67/compare.scm�
�
��	�	��	�	��	�	��	G�	��	I�	��	_�	��	b�	$��	i�	2��	q�	��	q�	����	$����	2����	����	����	����	����	����	����	����	��	�	gnamegcomplex-compare�C,R������,hh�]45$"445>"G45$"445>"G6�gx
		bgy		bgfilenamefsrfi/srfi-67/compare.scm�
�
��	�	��	�	��	�	��	G�	��	I�	��	b�	��		b	gnamegnumber-compare�C>Rh�]L��6~gx
		gy		gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	
��	
�	��	�	��			Ch~]OCvgcompare
		
gfilenamefsrfi/srfi-67/compare.scm�
�
��		
gnamegpair-compare-car�C@Rh�]L��6~gx
		gy		gfilenamefsrfi/srfi-67/compare.scm�
�	��	�	
��	
�	��	�	��			Ch~]OCvgcompare
		
gfilenamefsrfi/srfi-67/compare.scm�
�
��		
gnamegpair-compare-cdr�CAR��?/h�Z)>34��5	��$	�C
�$
��6�$C6){3((
C	�C(C�$G�$=4��5	��$	�C
�$��6�$C6	�C�$C6]6Rgpair-compare-car
			Dgpair-compare-cdr			Dgx				Dgy				Dgkey			Dgcompare
	M�gx	M�gy		M�gkey		�gx
��gy��gfilenamefsrfi/srfi-67/compare.scm�
�	��	
	��		'��		/��		��		��	/	'��	2	/��	4	��	<	��	M�	��	S	��	i	��	m	��	p	��	t	��	u	��	z	3��	}	;��		��		���	3���	;���	���	���	���	���		����	���
	��			D		M�	��	gnamegpair-compare�C?R9��/���h��)�3	4545$$
C	�C$C445455	��$	�C
�$45456�$C6)36)36]6�gcompare
		�gx		�gy			�gempty?			�ghead			�gtail			�gtx-val		�gty-val		�gkey		G�gx
��gy��gempty?	��ghead	��gtail	��gcompare
��gx��gy	��gx
��gy��gfilenamefsrfi/srfi-67/compare.scm�
	��	
	��		��		��	5	��	8	"��	?	+��	G	��	G	��	b	"��	i	+��	w	��		���	���	���	���	���	���	��		�	��	��	��	gnameglist-compare�C9R9��:/���	h��)�3
"P4545	$	$
"9	�"3	$"(4545"���	"���	��$	�C
�$6�$C6)36)36]6�gcompare
		�gx		�gy			�gempty?			�ghead			�gtail			�gx		
	]gy		
	]gtx-val			]gty-val				]gkey		i�gx
��gy��gempty?	��ghead	��gtail	��gcompare
��gx��gy	��gx
��gy��gfilenamefsrfi/srfi-67/compare.scm�
 	��	
#	��	%	��	%	��	$	��	B&	��	I&	(��	W&	��	]#	��	i"	���'	���"	��� 	���+	��� 	���-	��� 	���/	��		�	��	��	��	gnameglist-compare-as-vector�C:R7��H/��h��)�3
454545	��$	�C
�$\"Q�$
C445455			��$	�C	
�$	�"���	�$C6
"����$C6)36)36]6�gcompare
		�gx		�gy			�gsize			�gref			�gn		�gm		�gkey		$�gi		>�gkey			`�gx
��gy��gsize	��gref	��gcompare
��gx��gy	��gx
��gy��gfilenamefsrfi/srfi-67/compare.scm�
3	��	
5	��	5	��	5	��	7	
��	$6		��	>8	
��	C9	��	G9	��	J;	 ��	M;	)��	V;	3��	`;	 ��	`;	��	y<	.��	<	 ���;	���8	
���6		���;	���6		���3	���@	���3	���B	���3	���D	��		�	��	��	��	CHR�7��I/��	h��)�3
454545"W�$6445455			��$	�C	
�$	�"���	�$C6
"���)36)36]6�gcompare
		�gx		�gy			�gsize			�gref			�gnx		�gny		�gn		$�gi		*�gkey			R�gx
��gy��gsize	��gref	��gcompare
��gx��gy	��gx
��gy��gfilenamefsrfi/srfi-67/compare.scm�
H	��	
J	��	J	��	J	��	K	��	$K		��	*L	��	/M	��	3M	
��	;N	��	<O	!��	?O	*��	HO	4��	RO	!��	RO	��	kP	/��	qP	!��	yO	���L	���H	���T	���H	���V	���H	���X	��		�	��	��	��	CIR/����$�LG�>H�h��]((
C	�C(C�$E�$;4��5	��$	�C
�$
��6�$C6	�C�$C4545$$6	�C$C45$45$6	�C45$C45$45$	6	�C45$C�$�$
6	�C�$C45$45$6	�C45$C�$�$

6	�C�$C6�gx
	gy	gkey		4	dgt?-val		rgtx	�gty	�gfilenamefsrfi/srfi-67/compare.scm�
]
��	^	��	*a	
��	/a	��	2a	&��	4a	
��	4^	��	Ob	��	Rb	&��	Tb	
��	\^	���c	
���^	���d	
���^	���e	
���^	��f	
��^	��Ag	
��E^	��ih	
��o^	��yi	��i		��		gnamegdefault-compare�C/R��������vJyh(e]�$LC�$LC�$MCC]gi
		(gfilenamefsrfi/srfi-67/compare.scm�
�	 ��	�	,��		(C�h��]J4L5	�&"
&"�$"4L54L5	�&"
&"�$"4L54L5	�&"
&"�$"4L54L5	�&"
&"�$"4L5
�$"4L>"G
�$"4L>"G�
�$"4L>"GM$�M4L5	�&"
&"�$"4L5M4L5	�&"
&"�$"4L5M4L5	�&"
&"�$"4L5M4L5	�&"
&"�$"4L5	�
�$"4LM>"G	�
�$"4LM>"G	��		��	
��

�$,4L4	LO
5>"G"
	"N4
	5
�$"NC�gx
	�gy	�gc-xy			Igc-xy		R�gc-xy	��gc-xy	�gc-xx	�gc-yy	�gc-xy	�gc-yx	�gy	��gc-xy	��gx	�3gc-xy	�0gy	5�gc-xy	@~gx	��gc-xy	��gc-xz	�}gc-zx	�}gc-yz	�}gc-zy		�}gijk	
9qgfilenamefsrfi/srfi-67/compare.scm�
�	��	u	��	u	��	v	
��	v	��	!v	
��	"v	��	*v	+��	.v	��	5x	
��	9x	��	Dx	6��	Fx	
��	Ju	��	Ru	��	\v	
��	]v	��	hv	
��	iv	��	qv	+��	uv	��	|x	
���x	���x	6���x	
���u	���u	���v	
���v	���v	
���v	���v	+���v	���x	
���x	���x	6���x	
���u	���u	���v	
���v	���v	
���v	���v	+��v	��
x	
��x	��x	6��x	
���	��)�	��.�	��3�	��7�	��@�	��K�	��P�	��U�	��Y�	��b�	��o�	��p�	��u�	��z�	��~�	����	����	����	���u	���u	���v	
���v	���v	
���v	���v	+���v	���x	
���x	���x	6���x	
����	���u	���u	���v	
���v	��v	
��	v	��v	+��v	��x	
�� x	��+x	6��-x	
��5�	��8u	��@u	��Jv	
��Kv	��Vv	
��Wv	��_v	+��cv	��jx	
��nx	��yx	6��{x	
����	���u	���u	���v	
���v	���v	
���v	���v	+���v	���x	
���x	���x	6���x	
����	����	����	����	����	����	����	���	���	��	�	���	���	���	��'~	��.�	/��/�	'��4�	:��5�	'��9�	��9�	��>�	��B�	��C�	��I�	��L�	��b�	����	���{	���{	����	����	���	�	Ch�]HHOC�gc
		gz?		gz			gfilenamefsrfi/srfi-67/compare.scm�
r
��	�	��		gnameg
debug-compare�C.RC�gm
		0gchar=?
����g	char-ci=?
���Ag	char-ci<?���Agstring=?
�N��gstring<?�N��gstring-ci=?
����gstring-ci<?����gfilenamefsrfi/srfi-67.scm�		
��	1	U
��	6	U	��	>	U	&��	C	U
��gfilenamefsrfi/srfi-67/compare.scm��	T
����
���
����
����
��!T�
��$��
��+y�
��0"�
��4��
��9s�
��>!�
��B��
��Gr�
��L�
��Q��
��UF�
��X��
��\x�
��`�
��g��
��o�
��w�
����8
����q
���av
���B{
���"�
���#�
���#�
�����
�����
�����
���N�
�����
���@�
���o�
�����
�����
����
���V�
�����
�����
���5�
����
���|
���<1
����F
���4]
���/r
��9	�1
C6srfi/srfi-19.go000064400000413373150536206130007244 0ustar00GOOF----LE-8-2.0�]�4hƭ]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-19�	�		gfilenameS�	
fsrfi/srfi-19.scm�	gimportsS�	gsrfi-6�	
�	
�	gsrfi-8�	�	�	gsrfi-9�	�	�	gice-9�	gi18n�	�	�	�	gexportsS�	g
time-duration�	gtime-monotonic�	gtime-process�	gtime-tai�	gtime-thread�	 gtime-utc�	!gcurrent-date�	"gcurrent-julian-day�	#gcurrent-modified-julian-day�	$gtime-resolution�	%g	make-time�	&gtime?�	'g	time-type�	(gtime-nanosecond�	)gtime-second�	*gset-time-type!�	+gset-time-nanosecond!�	,gset-time-second!�	-g	copy-time�	.gtime<=?�	/gtime<?�	0gtime=?�	1gtime>=?�	2gtime>?�	3gtime-difference�	4gtime-difference!�	5gadd-duration�	6g
add-duration!�	7gsubtract-duration�	8gsubtract-duration!�	9g	make-date�	:gdate?�	;gdate-nanosecond�	<gdate-second�	=gdate-minute�	>g	date-hour�	?gdate-day�	@g
date-month�	Ag	date-year�	Bgdate-zone-offset�	Cg
date-year-day�	Dg
date-week-day�	Egdate-week-number�	Fgdate->julian-day�	Ggdate->modified-julian-day�	Hgdate->time-monotonic�	Igdate->time-tai�	Jgdate->time-utc�	Kgjulian-day->date�	Lgjulian-day->time-monotonic�	Mgjulian-day->time-tai�	Ngjulian-day->time-utc�	Ogmodified-julian-day->date�	Pg#modified-julian-day->time-monotonic�	Qgmodified-julian-day->time-tai�	Rgmodified-julian-day->time-utc�	Sgtime-monotonic->date�	Tgtime-monotonic->julian-day�	Ug#time-monotonic->modified-julian-day�	Vgtime-monotonic->time-tai�	Wgtime-monotonic->time-tai!�	Xgtime-monotonic->time-utc�	Ygtime-monotonic->time-utc!�	Zgtime-tai->date�	[gtime-tai->julian-day�	\gtime-tai->modified-julian-day�	]gtime-tai->time-monotonic�	^gtime-tai->time-monotonic!�	_gtime-tai->time-utc�	`gtime-tai->time-utc!�	agtime-utc->date�	bgtime-utc->julian-day�	cgtime-utc->modified-julian-day�	dgtime-utc->time-monotonic�	egtime-utc->time-monotonic!�	fgtime-utc->time-tai�	ggtime-utc->time-tai!�	hgdate->string�	igstring->date�	j !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghiO�	kgreplacementsS�	lgcurrent-time�	ml�	ng	autoloadsS�	ogrdelim�	po�	qg	read-line�	rq�	spr�	tgset-current-module�	ut�	vt�	wgcond-expand-provide�	xgcurrent-module�	y�	zf~a ~b ~d ~H:~M:~S~z ~Y�	{glocale-date-time-format�	|f~m/~d/~y�	}glocale-short-date-format�	~f~H:~M:~S�	glocale-time-format��f~Y-~m-~dT~H:~M:~S~z��giso-8601-date-time-format��gnano��gsid��gsihd��e	4881175/2��gtai-epoch-in-jd��gthrow��g
misc-error��fTIME-ERROR type ~A: ~S��fTIME-ERROR type ~A��g
time-error��gopen-input-file��geof-object?��gread��gopen-input-string��g
string-append��f(��f)��ginexact->exact��gread-tai-utc-data��U�-�	$���O�	#���I\�	"���C��	!���6�	 ���3�H�	���0�$	���.\�	���,2)	���*P��	���'�	���%���	���!��	���%�	���b1�	�����	����ʀ	���Φ	����r�	���?	���
+�	���H��	���	gS	�����	
�����	����X	����g	
��������������������������������gleap-second-table��gread-leap-second-table��gleap-second-delta��gtime��g!%make-time-unnormalized-procedure��gmake-syntax-transformer��������gmake-time-unnormalized��gmacro��g$sc-dispatch��������g_��gany��������g
syntax-object��glambda��gm-46961e50d3-30��gtop������gribcage��gt-46961e50d3-2d��gt-46961e50d3-2e��gt-46961e50d3-2f������������fl-46961e50d3-35��fl-46961e50d3-36��fl-46961e50d3-37����������������gx��������fl-46961e50d3-32�����������gshift��g	proc-name��gargs�������������fl-1e8ba8b5a-60��fl-1e8ba8b5a-61������������gkey��gvalue��gname��gformals��gbody����������������fl-1e8ba8b5a-53��fl-1e8ba8b5a-54��fl-1e8ba8b5a-55��fl-1e8ba8b5a-56��fl-1e8ba8b5a-57���������������gmake-procedure-name��������fl-1e8ba8b5a-43��������������fl-1e8ba8b5a-42������������������������
��ghygiene�����������gtype�������������g
nanosecond����gsecond�����gmake-struct�gm-46961e50d3-2b�	��
gt-1e8ba8b5a-133�gt-1e8ba8b5a-132�gt-1e8ba8b5a-131�

�gm-1e8ba8b5a-134����fl-1e8ba8b5a-138�fl-1e8ba8b5a-139�fl-1e8ba8b5a-13a���
�g	ctor-args��fl-1e8ba8b5a-120�����gctor�gfield��fl-1e8ba8b5a-11c�fl-1e8ba8b5a-11d� �!�� �"gform�#g	type-name�$gconstructor-spec�%gfield-names�&"#$%�'�����(fl-1e8ba8b5a-111�)fl-1e8ba8b5a-112�*fl-1e8ba8b5a-113�+fl-1e8ba8b5a-114�,()*+�-�&',�.g
record-layout�/gfunctional-setters�0gsetters�1gcopier�2ggetters�3gconstructor�4ggetter-identifiers�5gfield-identifiers�6./012345�7���������8fl-1e8ba8b5a-e9�9fl-1e8ba8b5a-e7�:fl-1e8ba8b5a-e5�;fl-1e8ba8b5a-e3�<fl-1e8ba8b5a-e1�=fl-1e8ba8b5a-df�>fl-1e8ba8b5a-dd�?fl-1e8ba8b5a-db�@89:;<=>?�A�67@�Bfl-1e8ba8b5a-da�CB�D���C�E	��������!�-AD�F�E��G����H�
E��IFGH�J�I�Kgeach-any�L�K��Mgsyntax-violation�NM�OM�PfWrong number of arguments�Qgidentifier?�RQ�SQ�T����U��T�VM�WM�Xf-source expression failed to match any pattern�Ygrecord-type-vtable�ZY�[Y�\gpwpwpw�]gdefault-record-printer�^]�_]�`��agset-struct-vtable-name!�ba�ca�dgvtable-offset-user�ed�fd�gg%time?-procedure�h���igm-46961e50d3-41�ji��kgt-46961e50d3-40�lk�mj�nfl-46961e50d3-46�on�p�lmo�qfl-46961e50d3-43�rq�s��mr�tjp�s���������
�u��t��vgobj�wgt-1e8ba8b5a-224�xgt-1e8ba8b5a-21e�ygt-1e8ba8b5a-21f�zgt-1e8ba8b5a-220�{gt-1e8ba8b5a-223�|gt-1e8ba8b5a-222�}gt-1e8ba8b5a-221�~wxyz{|}�gm-1e8ba8b5a-225��������������fl-1e8ba8b5a-229��fl-1e8ba8b5a-22a��fl-1e8ba8b5a-22b��fl-1e8ba8b5a-22c��fl-1e8ba8b5a-22d��fl-1e8ba8b5a-22e��fl-1e8ba8b5a-22f������������~����g	copier-id�����fl-1e8ba8b5a-21c�����������g	ctor-name�����fl-1e8ba8b5a-214�����������%��fl-1e8ba8b5a-212�����������glayout�����fl-1e8ba8b5a-210�����������g
immutable?�����fl-1e8ba8b5a-20e�����������gfield-count�����fl-1e8ba8b5a-20c�����������g
getter-ids�����fl-1e8ba8b5a-209�����������g	field-ids�����fl-1e8ba8b5a-206�����������gpredicate-name��g
field-spec���"#$������������fl-1e8ba8b5a-1f9��fl-1e8ba8b5a-1fa��fl-1e8ba8b5a-1fb��fl-1e8ba8b5a-1fc��fl-1e8ba8b5a-1fd��fl-1e8ba8b5a-1fe����������������	p�s�����������������������AD���v�������gand��������gstruct?������������geq?��������g
struct-vtable�������������p�s�����������������u������s���g���gthrow-bad-struct��������g%time-type-procedure��gfree-id��g
%%on-error��gm-46961e50d3-4d���������fl-46961e50d3-4f���������������������������������������g%%type��gt-1e8ba8b5a-14b��gt-1e8ba8b5a-14c��gt-1e8ba8b5a-14d��gt-1e8ba8b5a-14e��gt-1e8ba8b5a-14f��gt-1e8ba8b5a-150��gt-1e8ba8b5a-151�����������gm-1e8ba8b5a-152���������������fl-1e8ba8b5a-156��fl-1e8ba8b5a-157��fl-1e8ba8b5a-158��fl-1e8ba8b5a-159��fl-1e8ba8b5a-15a��fl-1e8ba8b5a-15b��fl-1e8ba8b5a-15c�����������������ggetter��gindex������fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a������������#��������fl-1e8ba8b5a-144�fl-1e8ba8b5a-145�fl-1e8ba8b5a-146������	����������AD�����������	gck�
gerr�gs�
�
���fl-46961e50d3-52�fl-46961e50d3-53���
�������������
��	��gquote�������������g%%index����������fl-46961e50d3-57�fl-46961e50d3-58� �!�
 �"�!�����������
�#�	"��$�"��%!���&�
%�'$&�('�)g%%copier�*�)��+�*�,��+��-fl-46961e50d3-5c�.fl-46961e50d3-5d�/-.�0�
/�1�0�����������
�2�	1��3�1��4g%%time-set-fields�5�0���6�45�736�87�9gt-46961e50d3-4c�:9�;fl-46961e50d3-61�<;�=�:�<�>�=�����������
�?��>��@	=����������AD�A�@��BA�Cgif�D�C@��E��@��F��@��GFA�H�=���I��H�JEGI�Kg
struct-ref�L�K@��M=���N�
M�OLAN�P��@��Q�@��R�'H�SQR�TPAS�UDJOT�V?BU�W����X��W�Yg%time-nanosecond-procedure�Zgm-46961e50d3-68�[Z��\[�]fl-46961e50d3-6a�^]�_��\^�`[�_����������a��`��b�a�cb��d	�_��������AD�e��d��f�e�g�cf��h[[�ifl-46961e50d3-6d�jfl-46961e50d3-6e�kij�l�hk�m[l�_���������
�n�	m��o�m��p�l�_�q��p�roq�sr�t�d��u�t�v�cu��wfl-46961e50d3-72�xfl-46961e50d3-73�ywx�z�hy�{[z�_���������
�|�	{��}�{��~z�_��~��}������)d��������c����fl-46961e50d3-77��fl-46961e50d3-78�������h���[��_���������
���	������������_���4����������gt-46961e50d3-67�����fl-46961e50d3-7c�������\���[��_���������
��������	��_��������AD�����������C�����������������������_�������������K������_�����������������������(�������������������������_���Y���g%time-second-procedure��gm-46961e50d3-83���������fl-46961e50d3-85���������������������������������������	����������AD����������������������fl-46961e50d3-88��fl-46961e50d3-89������������������������
���	������������������������������������������fl-46961e50d3-8d��fl-46961e50d3-8e������������������������
���	���������������	�����������)��������������fl-46961e50d3-92��fl-46961e50d3-93������������������������
���	����������������4����������gt-46961e50d3-82�����fl-46961e50d3-97������������������������
��������	�����������AD�����������C�������������������������������������K����������	��������������������)����������������������������geach��������������	g%%set-fields�
gdummy�gcheck?�gexpr�

��gm-46961e50d3-9e���				�fl-46961e50d3-a3�fl-46961e50d3-a4�fl-46961e50d3-a5�fl-46961e50d3-a6�fl-46961e50d3-a7���
��fl-46961e50d3-a0�����gt-1e8ba8b5a-16a�gt-1e8ba8b5a-16c�gt-1e8ba8b5a-16b�� gm-1e8ba8b5a-16d�! ��"!!!�#fl-1e8ba8b5a-171�$fl-1e8ba8b5a-172�%fl-1e8ba8b5a-173�&#$%�'�"&�(fl-1e8ba8b5a-167�)fl-1e8ba8b5a-168�*fl-1e8ba8b5a-169�+()*�,���+�-	���'���,AD
�.�	-��/���0��/�1�'/�2�(/�3�)/�4123�5gmap�65�75�8glist�9g%set-time-type!-procedure�:����;gm-46961e50d3-b2�<;��=gt-46961e50d3-b0�>gt-46961e50d3-b1�?=>�@<<�Afl-46961e50d3-b7�Bfl-46961e50d3-b8�CAB�D�?@C�E<�Ffl-46961e50d3-b4�GF�H��EG�I<D�H���������
�J��I��Kgt-1e8ba8b5a-18c�Lgt-1e8ba8b5a-18d�MKL�Ngm-1e8ba8b5a-18e�ON��POO�Qfl-1e8ba8b5a-192�Rfl-1e8ba8b5a-193�SQR�T�MPS�Ugsetter�V��U�Wfl-1e8ba8b5a-186�Xfl-1e8ba8b5a-187�Yfl-1e8ba8b5a-188�ZWXY�[�V�Z�\���]fl-1e8ba8b5a-17d�^fl-1e8ba8b5a-17e�_]^�`�\�_�agfield-specs�b#a�cfl-1e8ba8b5a-179�dfl-1e8ba8b5a-17a�ecd�f�b�e�g	D�H��T[�`�fAD�h�g��igval�j�ig��khj�l�Cg��m��g��n��g��onh�p�D�H�q��p�rmoq�sgstruct-set!�t�sg��uD�H�v�
u�wthvj�x��g��y�g��z�*p�{yz�|xh{�}lrw|�~Jk}���H���9��g%set-time-nanosecond!-procedure��gm-46961e50d3-c2������gt-46961e50d3-c0��gt-46961e50d3-c1����������fl-46961e50d3-c7��fl-46961e50d3-c8���������������fl-46961e50d3-c4������������������������
��������	�����T[�`�fAD��������i���������C�������������������������������������s�������������������������������+���������������������������������g%set-time-second!-procedure��gm-46961e50d3-d2������gt-46961e50d3-d0��gt-46961e50d3-d1����������fl-46961e50d3-d7��fl-46961e50d3-d8���������������fl-46961e50d3-d4������������������������
��������	�����T[�`�fAD��������i���������C�������������������������������������s����������	���������������������,���������������������������������ginteger?��gtruncate��g
split-real��gabs��gtime-normalize!��gmktime��g
set-tm:sec��g
set-tm:min��gset-tm:hour��gset-tm:mday��g
set-tm:mon��gset-tm:year��gset-tm:isdst��g
set-tm:gmtoff��gdate->broken-down-time��ggettimeofday��gcurrent-time-utc��gcurrent-time-tai��gcurrent-time-monotonic��gunsupported-clock-type��gcurrent-time-thread��ginternal-time-units-per-second��gns-per-guile-tick��gget-internal-run-time��gcurrent-time-process��ginvalid-clock-type��gnot-duration��gincompatible-time-types��gpriv:time-tai->time-utc!��gpriv:time-utc->time-tai!��gdate��g%make-date-procedure�����������	��gm-46961e50d3-343������gt-46961e50d3-33b��gt-46961e50d3-33c��gt-46961e50d3-33d��gt-46961e50d3-33e��gt-46961e50d3-33f��gt-46961e50d3-340��gt-46961e50d3-341��gt-46961e50d3-342���������������������fl-46961e50d3-348�fl-46961e50d3-349�fl-46961e50d3-34a�fl-46961e50d3-34b�fl-46961e50d3-34c�fl-46961e50d3-34d�fl-46961e50d3-34e�fl-46961e50d3-34f��	����
��fl-46961e50d3-345��
��
��	�
���������
������	�
�����gminute���ghour���gday���gmonth���gyear���gzone-offset���� gm-46961e50d3-339�! ��"!	�
�����!�-AD�#�"��$���%�
"��&#$%�'&�(��
�)��(�*gpwpwpwpwpwpwpwpw�+�,g%date?-procedure�-gm-46961e50d3-35e�.-��/gt-46961e50d3-35d�0/�1.�2fl-46961e50d3-363�32�4�013�5fl-46961e50d3-360�65�7��16�8.4�7���������
�9��8��:!4�7�����������������������AD�;�v:��<;�=��:��>��:��?>;�@��:��A��:��BA;�C�4�7�D��C�E@BD�F=?E�G9<F�H��7�I�,H�Jg%date-nanosecond-procedure�Kgm-46961e50d3-36a�LK��ML�Nfl-46961e50d3-36c�ON�P��MO�QL�P����������R��Q��S�R�TS��U!�P��������AD�V��U��W�V�X�TW��YLL�Zfl-46961e50d3-36f�[fl-46961e50d3-370�\Z[�]�Y\�^L]�P���������
�_�	^��`�^��a�]�P�b��a�c`b�dc�e�U��f�e�g�Tf��hfl-46961e50d3-374�ifl-46961e50d3-375�jhi�k�Yj�lLk�P���������
�m�	l��n�l��ok�P�p�
o�qnp�rq�s�)U��t�s�u�Tt��vfl-46961e50d3-379�wfl-46961e50d3-37a�xvw�y�Yx�zLy�P���������
�{�	z��|�z��}g%%date-set-fields�~�y�P��}~��|�����gt-46961e50d3-369�����fl-46961e50d3-37e�������M���L��P���������
��������!��P��������AD�����������C�����������������������P�������������K������P���
��������������������;�������������������������P���J���g%date-second-procedure��gm-46961e50d3-385���������fl-46961e50d3-387���������������������������������������!����������AD����������������������fl-46961e50d3-38a��fl-46961e50d3-38b������������������������
���	������������������������������������������fl-46961e50d3-38f��fl-46961e50d3-390������������������������
���	��������������������������)��������������fl-46961e50d3-394��fl-46961e50d3-395������������������������
���	����������������}����������gt-46961e50d3-384�����fl-46961e50d3-399������������������������
��������!�����������AD�����������C�������������������������������������K������������������������������<���������������������������������g%date-minute-procedure��gm-46961e50d3-3a0���������fl-46961e50d3-3a2��������������������������������������!����������AD��������������fl-46961e50d3-3a5�fl-46961e50d3-3a6����	������������
�
�		���	������
���
�����������fl-46961e50d3-3aa�fl-46961e50d3-3ab����������������
��	���������	����)���� ����!fl-46961e50d3-3af�"fl-46961e50d3-3b0�#!"�$�#�%�$�����������
�&�	%��'�%��(�$���)�}(�*')�+*�,gt-46961e50d3-39f�-,�.fl-46961e50d3-3b4�/.�0�-�/�1�0�����������
�2��1��3!0����������AD�4�3��54�6�C3��7��3��8��3��984�:�0���;��:�<79;�=�K3��>0���?�	>�@=4?�A��3��B�3��C�=:�DBC�EA4D�F6<@E�G25F�H����I��H�Jg%date-hour-procedure�Kgm-46961e50d3-3bb�LK��ML�Nfl-46961e50d3-3bd�ON�P��MO�QL�P����������R��Q��S�R�TS��U!�P��������AD�V��U��W�V�X�TW��YLL�Zfl-46961e50d3-3c0�[fl-46961e50d3-3c1�\Z[�]�Y\�^L]�P���������
�_�	^��`�^��a�]�P�b��a�c`b�dc�e�U��f�e�g�Tf��hfl-46961e50d3-3c5�ifl-46961e50d3-3c6�jhi�k�Yj�lLk�P���������
�m�	l��n�l��ok�P�p�	o�qnp�rq�s�)U��t�s�u�Tt��vfl-46961e50d3-3ca�wfl-46961e50d3-3cb�xvw�y�Yx�zLy�P���������
�{�	z��|�z��}�y�P�~�}}�|~����gt-46961e50d3-3ba�����fl-46961e50d3-3cf�������M���L��P���������
��������!��P��������AD�����������C�����������������������P�������������K������P���	��������������������>�������������������������P���J���g%date-day-procedure��gm-46961e50d3-3d6���������fl-46961e50d3-3d8���������������������������������������!����������AD����������������������fl-46961e50d3-3db��fl-46961e50d3-3dc������������������������
���	������������������������������������������fl-46961e50d3-3e0��fl-46961e50d3-3e1������������������������
���	���������������	�����������)��������������fl-46961e50d3-3e5��fl-46961e50d3-3e6������������������������
���	����������������}����������gt-46961e50d3-3d5�����fl-46961e50d3-3ea������������������������
��������!�����������AD�����������C�������������������������������������K����������	��������������������?���������������������������������g%date-month-procedure��gm-46961e50d3-3f1���������fl-46961e50d3-3f3���������������������������������������!����������AD���������������fl-46961e50d3-3f6�fl-46961e50d3-3f7����������������
�	�	��
����������

�
�����������fl-46961e50d3-3fb�fl-46961e50d3-3fc����������������
��	���������	����)��������� fl-46961e50d3-400�!fl-46961e50d3-401�" !�#�"�$�#�����������
�%�	$��&�$��'�#���(�}'�)&(�*)�+gt-46961e50d3-3f0�,+�-fl-46961e50d3-405�.-�/�,�.�0�/�����������
�1��0��2!/����������AD�3�2��43�5�C2��6��2��7��2��873�9�/���:��9�;68:�<�K2��=/���>�	=�?<3>�@��2��A�2��B�@9�CAB�D@3C�E5;?D�F14E�G����H��G�Ig%date-year-procedure�Jgm-46961e50d3-40c�KJ��LK�Mfl-46961e50d3-40e�NM�O��LN�PK�O����������Q��P��R�Q�SR��T!�O��������AD�U��T��V�U�W�SV��XKK�Yfl-46961e50d3-411�Zfl-46961e50d3-412�[YZ�\�X[�]K\�O���������
�^�	]��_�]��`�\�O�a��`�b_a�cb�d�T��e�d�f�Se��gfl-46961e50d3-416�hfl-46961e50d3-417�igh�j�Xi�kKj�O���������
�l�	k��m�k��nj�O�o�	n�pmo�qp�r�)T��s�r�t�Ss��ufl-46961e50d3-41b�vfl-46961e50d3-41c�wuv�x�Xw�yKx�O���������
�z�	y��{�y��|�x�O�}�}|�~{}�~��gt-46961e50d3-40b�����fl-46961e50d3-420�������L���K��O���������
��������!��O��������AD�����������C�����������������������O�������������K������O���	��������������������A�������������������������O���I���g%date-zone-offset-procedure��gm-46961e50d3-427���������fl-46961e50d3-429���������������������������������������!����������AD����������������������fl-46961e50d3-42c��fl-46961e50d3-42d������������������������
���	������������������������������������������fl-46961e50d3-431��fl-46961e50d3-432������������������������
���	���������������	�����������)��������������fl-46961e50d3-436��fl-46961e50d3-437������������������������
���	����������������}����������gt-46961e50d3-426�����fl-46961e50d3-43b������������������������
��������!�����������AD�����������C�������������������������������������K����������	��������������������B���������������������������������gm-46961e50d3-442�������!!!!��fl-46961e50d3-447��fl-46961e50d3-448��fl-46961e50d3-449��fl-46961e50d3-44a��fl-46961e50d3-44b����������
�������fl-46961e50d3-444���������!����'���,AD
��	����������;��<��=��>�	�?�
�@��A��B�
	
�gset-date-nanosecond!�g%set-date-nanosecond!-procedure�gm-46961e50d3-456���gt-46961e50d3-454�gt-46961e50d3-455���fl-46961e50d3-45b�fl-46961e50d3-45c�����fl-46961e50d3-458���������������
����� !���T[�`�fAD�!� ��"�i ��#!"�$�C ��%�� ��&�� ��'&!�(���)��(�*%')�+�s ��,��-�
,�.+!-"�/�� ��0� ��1�(�201�3/!2�4$*.3�5#4�6���7�6�8gset-date-second!�9g%set-date-second!-procedure�:gm-46961e50d3-466�;:��<gt-46961e50d3-464�=gt-46961e50d3-465�><=�?;;�@fl-46961e50d3-46b�Afl-46961e50d3-46c�B@A�C�>?B�D;�Efl-46961e50d3-468�FE�G��DF�H;C�G���������
�I��H��J!C�G��T[�`�fAD�K�J��L�iJ��MKL�N�CJ��O��J��P��J��QPK�R�C�G�S��R�TOQS�U�sJ��VC�G�W�V�XUKWL�Y��J��Z�J��[�8R�\Z[�]YK\�^NTX]�_IM^�`��G�a�9`�bgset-date-minute!�cg%set-date-minute!-procedure�dgm-46961e50d3-476�ed��fgt-46961e50d3-474�ggt-46961e50d3-475�hfg�iee�jfl-46961e50d3-47b�kfl-46961e50d3-47c�ljk�m�hil�ne�ofl-46961e50d3-478�po�q��np�rem�q���������
�s��r��t!m�q��T[�`�fAD�u�t��v�it��wuv�x�Ct��y��t��z��t��{zu�|�m�q�}��|�~y{}��st���m�q���	���u�v����t����t����b|�������u���x~����sw�����q���c���gset-date-hour!��g%set-date-hour!-procedure��gm-46961e50d3-486������gt-46961e50d3-484��gt-46961e50d3-485����������fl-46961e50d3-48b��fl-46961e50d3-48c���������������fl-46961e50d3-488������������������������
��������!�����T[�`�fAD��������i���������C�������������������������������������s����������	�������������������������������������������������������g
set-date-day!��g%set-date-day!-procedure��gm-46961e50d3-496������gt-46961e50d3-494��gt-46961e50d3-495����������fl-46961e50d3-49b��fl-46961e50d3-49c���������������fl-46961e50d3-498������������������������
��������!�����T[�`�fAD��������i���������C�������������������������������������s����������	�������������������������������������������������������gset-date-month!��g%set-date-month!-procedure��gm-46961e50d3-4a6������gt-46961e50d3-4a4��gt-46961e50d3-4a5����������fl-46961e50d3-4ab��fl-46961e50d3-4ac���������������fl-46961e50d3-4a8������������������������
��������!�����T[�`�fAD��������i���������C�������������������������������������s����������	���������������������������������	���
gset-date-year!�g%set-date-year!-procedure�gm-46961e50d3-4b6�
��gt-46961e50d3-4b4�gt-46961e50d3-4b5��

�fl-46961e50d3-4bb�fl-46961e50d3-4bc����
�fl-46961e50d3-4b8�����
����������
�����!���T[�`�fAD�����i��� �C��!����"����#"�$���%��$�&!#%�'�s��(��)�	(�*')�+����,���-�
$�.,-�/+.�0 &*/�10�2���3�2�4gset-date-zone-offset!�5g %set-date-zone-offset!-procedure�6gm-46961e50d3-4c6�76��8gt-46961e50d3-4c4�9gt-46961e50d3-4c5�:89�;77�<fl-46961e50d3-4cb�=fl-46961e50d3-4cc�><=�?�:;>�@7�Afl-46961e50d3-4c8�BA�C��@B�D7?�C���������
�E��D��F!?�C��T[�`�fAD�G�F��H�iF��IGH�J�CF��K��F��L��F��MLG�N�?�C�O��N�PKMO�Q�sF��R?�C�S�	R�TQGSH�U��F��V�F��W�4N�XVW�YUGX�ZJPTY�[EIZ�\��C�]�5\�^gencode-julian-day-number�_gdecode-julian-day-number�`g	tm:gmtoff�ag	localtime�bglocal-tz-offset�cgtime->julian-day-number�dgassoc�egleap-second?�fg
time->date�gground�he1/2�ig
leap-year?�j
��k		��l		;��m		Z��n		x��o	���p	���q	Ԍ�r		�s	
��t	0��u	N��vjklmnopqrstu�wgmonth-assoc�xginvalid-month-specification�ygyear-day�zgweek-day�{gdays-before-first-week�|gnatural-year�}e-1/2�~e	4800001/2�gnumber->string��g
string-length��gmake-string��gpadding��gexpt��g
last-n-digits��glocale-day-short��glocale-abbr-weekday��g
locale-day��glocale-long-weekday��glocale-month-short��glocale-abbr-month��glocale-month��glocale-long-month��gdate-reverse-lookup��gstring=?��glocale-abbr-weekday->index��glocale-long-weekday->index��glocale-abbr-month->index��glocale-long-month->index��g
tz-printer��glocale-print-time-zone��glocale-pm-string��glocale-am-string��glocale-am-string/pm��gdisplay��fZ��f-��f+��e1.0��glocale-decimal-point��g	substring��f~b��gnewline��f~I:~M:~S ~p��f~Y-~m-~d��f
~H:~M:~S~z��f~Y-~m-~dT~H:~M:~S��g
directives��g
get-formatter��g
string-ref��gchar=?��gdate-printer��gbad-date-format-string��gopen-output-string��f~c��gget-output-string��g	char->int��gbad-date-template-string��fNon-integer character��g	peek-char��g
char-numeric?��g	read-char��ginteger-reader��gmake-integer-reader��f!Premature ending to integer read.��f'Non-numeric characters in integer read.��ginteger-reader-exact��gmake-integer-exact-reader��fInvalid time zone +/-��fInvalid time zone number��gzone-reader��gchar-alphabetic?��glist->string��greverse!��fInvalid string for ��g
locale-reader��gmake-locale-reader��fInvalid character match.��gmake-char-id-reader��gread-directives��gpriv:string->date��fIncomplete date read. �C5h8S�]@4	
jkmns54v>"G4wi4xi5y>"GR  RRRRRz{R|}R~R��R;���RQ��R���R��R����h0�]$66�gcaller
		*gtype		*gvalue			*gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	
��	�	 ��	�	9��	�	��	�	
��	"�	 ��	'�	5��	*�	��		*	gnameg
time-error�C�R����������qh�N]945H"�45$"~444555���������������$45	�
�45�J�K"45"���45"��sJCFgfilename
	�gport	
�gtable		
�gline		�gdata		6�gyear		;�gjd		D�gsecs		O�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��	
�	��	�	��	�	��	�	��	"�	��	%�	��	(�	 ��	,�	/��	0�	8��	2�	 ��	4�	��	6�	��	6�	��	;�	��	;�	��	@�	!��	A�	��	D�	��	I�	!��	L�	��	O�	��	W�	��	[�	��	\�	
��	e�	��	h�	��	i�	��	p�	��	s�	��	u�	��	z�	����	����	����	����	��'	�gnamegread-tai-utc-data�C�R��R��h�]45 C�gfilename
		
gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��		
gnamegread-leap-second-table�C�R��h8�]	"���$��C�"������$
C"����gutc-seconds
		6gtable		gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	)��	
�	��	�	��	�	��	�	#��	�	��	�	��	$�	��	(�	��	,�	��	6�	��		6gnamegleap-second-delta�C�R�h�]�C�gtype
		g
nanosecond		gsecond			gfilenamefsrfi/srfi-19.scm�
�
��			gnameg!%make-time-unnormalized-procedure�C�R4�����Jhq]Cigt-46961e50d3-2d
		gt-46961e50d3-2e		gt-46961e50d3-2f						CLO�PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
CUh]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
�
��		nC5�R[\_�`�4c�>"G	f��i��R�hr]�$��CCjgobj
		gfilenamefsrfi/srfi-19.scm�
�
��		gnameg%time?-procedure�CgR4�&��h�h7]C/gt-46961e50d3-40
		
		
CLO&PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
�
��		nC5&R��'ht]�&
�C6lgs
		gfilenamefsrfi/srfi-19.scm�
�
��		gnameg%time-type-procedure�C�R4�'��h:]��C2gerr
		gs					C#(h:]��C2gerr
		gs					C,28h:]��C2gerr
		gs					ChVh7]C/gt-46961e50d3-4c
		
		
CLO'PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
CXh]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
�
��	�C5'R��(hz]�&�C6rgs
		gfilenamefsrfi/srfi-19.scm�
�
��		gnameg%time-nanosecond-procedure�CYR4�(��gnsh:]��C2gerr
		gs					Cv|�h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch�h7]C/gt-46961e50d3-67
		
		
CLO(PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
�
��	�C5(R��)h v]�&	�C6ngs
		gfilenamefsrfi/srfi-19.scm�
�
��		gnameg%time-second-procedure�C�R4�)�����h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Chh7]C/gt-46961e50d3-82
		
		
CLO)PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
Ch]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
�
��	�C5)R4�4��.0478h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CWXh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-19.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C54R��*h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
�
��			gnameg%set-time-type!-procedure�C9R4�*��:~hT]CLgt-46961e50d3-b0
		gt-46961e50d3-b1					CLO*PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
�
��		nC5*R��+h �]�&�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
�
��			gnameg%set-time-nanosecond!-procedure�C�R4�+��:�hT]CLgt-46961e50d3-c0
		gt-46961e50d3-c1					CLO+PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
�
��		nC5+R��,h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
�
��			gnameg%set-time-second!-procedure�C�R4�,��:�hT]CLgt-46961e50d3-d0
		gt-46961e50d3-d1					CLO,PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	�
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	�
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
�
��		nC5,R%��'()hX�]�&
�"	45�&�"	45�&		�"	456�gtime
		Ugfilenamefsrfi/srfi-19.scm�
�
��		
��	!	��	;	5��	U	��		Ugnameg	copy-time�C-R���h0�]	45$
45
D4545�D�gr
		.gl		.gfilenamefsrfi/srfi-19.scm�

��		��	
	��		��		��		��		��	!	��	,	#��	.	��		.gnameg
split-real�C�R���(�),+	h��]4�&�"	455;���$�4�&�"	45>G�&		�"	45;�����&	�"4>"G;�����&�"4>"G""��&		�"	45
�$��&�"	45
�$��&		�"	45��&	�"4>"G;���&�"	45��&�"4>"�G"�"�"��&		�"	45
�$��&�"	45
�$��&		�"	45��&	�"4>"G;���&�"	45��&�"4>"G""��4""��,C�gt
	�gint	R�gfrac		R�gval	��gval	��gvalV�gval��gval>lgval��	gfilenamefsrfi/srfi-19.scm�

��			
��			��	!		
��	+		��	/		��	0	
��	5	��	Q	
��	U
	��	\	���
	���	���	���	#���	 ���	���	��	��	��	��5	��:	
��=	#��V	 ��V	���	2���	$���	���	���	���	��	��	��	��"	��%	��>	��>	��x	.���	 ���	��+	�gnamegtime-normalize!�C�R��h�]�6�gtype
		g
nanosecond		gsecond			gfilenamefsrfi/srfi-19.scm�

��		��		��			gnameg	make-time�C%R��<�=�>�?�@�A��Bh��]	4
5445>"G445>"G445>"G44	5>"G4
45�>"G4l4
5�>"G4	�>"G4
45�>"GC�gdate
	�gresult	�gfilenamefsrfi/srfi-19.scm�
!
��	"	��	"	��	%	��	%	��	%	��	$&	��	)&	��	4&	��	='	��	B'	��	M'	��	V)	��	[)	��	f)	��	o*	��	t*	��	{*	���*	���,	���,	 ���,	���,	���-	���.	���.	���.	���.	���.	��	�gnamegdate->broken-down-time�C�R�% h �]45���6�gtod
		gfilenamefsrfi/srfi-19.scm�
5
��	7	
��	7	��	8	��	8	��	8	+��	8	��		
gnamegcurrent-time-utc�C�R�%�h0�]45���45�6�gtod
		)gsec		)gusec			)gfilenamefsrfi/srfi-19.scm�
:
��	<	��	<	��	=	��	<	��	>	��	<	��	@	��	A	��	 A	��	'A	��	)?	��
		)
gnamegcurrent-time-tai�C�R�ho]6ggfilenamefsrfi/srfi-19.scm�
N
��	P	��		
gnamegcurrent-time-monotonic�C�R�l�h�]6gfilenamefsrfi/srfi-19.scm�
R
��	S	��	S	��	
S	4��	S	��		
gnamegcurrent-time-thread�C�R;���i��R�%��h �]45���6�grun-time
		gfilenamefsrfi/srfi-19.scm�
W
��	X	��	X	��	[	��	[	��	]	��	Y	��		
gnamegcurrent-time-process�C�R ������l�h`-13("�&6&6&6&6	&
6
6g
clock-type
			`g
clock-type		`gfilenamefsrfi/srfi-19.scm�
b
��	c	��	c	4��	c	��	"d	��	&e	 ��	.d	��	2f	 ��	:d	��	>g	&��	Fd	��	Jh	#��	Rd	��	Vi	$��	Zk	��	\k	%��	`k	��			`


gnamegcurrent-time�ClR  ��$�
hX�-13("��$�C�$�C�$�C�$C	6�g
clock-type
			Wg
clock-type		Wgfilenamefsrfi/srfi-19.scm�
q
��	r	��	r	4��	r	��	#s	��	Qz	��	Sz	)��	Wz	��				W


gnamegtime-resolution�C$R��)('h��]�&		�"	45�&		�"	45�$q�&�"	45�&�"	45�$6�&
�"	45�&
�"	45�CCC�gt1
	�gt2	�gfilenamefsrfi/srfi-19.scm�
~
��	�	
��	 �	��	9�	��	=�	��	@�	
��	Z�	��	r�	��	v�	��	y�	����	����	��
	�	gnamegtime=?�C0R��)(h��]
�&		�"	45�&		�"	45�$C�&		�"	45�&		�"	45�$6�&�"	45�&�"	45�CC�gt1
	�gt2	�gt		9�gfilenamefsrfi/srfi-19.scm�
�
��	�		��	 �	��	9�	��	9�	��	G�	��	b�	��	{�	��	�	����	����	#����	��
	�	gnamegtime>?�C2R��)(h��]
�&		�"	45�&		�"	45�$C�&		�"	45�&		�"	45�$6�&�"	45�&�"	45�CC�gt1
	�gt2	�gt		9�gfilenamefsrfi/srfi-19.scm�
�
��	�		��	 �	��	9�	��	9�	��	G�	��	b�	��	{�	��	�	����	����	#����	��
	�	gnamegtime<?�C/R��)(h��]
�&		�"	45�&		�"	45�$C�&		�"	45�&		�"	45�$6�&�"	45�&�"	45�CC�gt1
	�gt2	�gt		9�gfilenamefsrfi/srfi-19.scm�
�
��	�		��	 �	��	9�	��	9�	��	G�	��	b�	��	{�	��	�	����	����	$����	��
	�	gnamegtime>=?�C1R��)(h��]
�&		�"	45�&		�"	45�$C�&		�"	45�&		�"	45�$6�&�"	45�&�"	45�CC�gt1
	�gt2	�gt		9�gfilenamefsrfi/srfi-19.scm�
�
��	�		��	 �	��	9�	��	9�	��	G�	��	b�	��	{�	��	�	����	����	$����	��
	�	gnamegtime<=?�C.R��)(*,+�
h�1]�&		�"	45�&		�"	45��&�"	45�&�"	45��&
�"4>"G�&	�"4>"G�&�"4>"G	6)gtime1
	�gtime2	�gsec-diff		n�g	nsec-diff		n�gval		t�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	 �	)��	9�	��	<�	��	V�	.��	n�	��	n�	��	t�	����	����	����	��
	�	gnamegtime-difference!�C4R-4h�]
456�gtime1
		gtime2		gresult				gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	�	��			gnamegtime-difference�C3R��')(,+��5�
h�F]�&
�"	45&��&		�"	45�&		�"	45��&�"	45�&�"	45��&	�"4>"G�&�"4>"G	6
6>gt
	�gduration	�gsec-plus	��g	nsec-plus	��gfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	%�	��	@�	)��	Y�	��	\�	��	v�	.����	����	����	����	����	����	����	 ����	��	�	gnameg
add-duration!�C6R-6h�]
456�gt
		gduration		gresult				gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	�	��			gnamegadd-duration�C5R��')(,+��5�
h�M]�&
�"	45&��&		�"	45�&		�"	45��&�"	45�&�"	45��&	�"4>"G�&�"4>"G	6
6Egt
	�gduration	�g	sec-minus	��g
nsec-minus	��gfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	%�	��	@�	+��	Y�	��	\�	��	v�	/����	����	����	����	����	����	����	 ����	��	�	gnamegsubtract-duration!�C8R-8h�]
456�gtime1
		gduration		gresult				gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	�	��			gnamegsubtract-duration�C7R��'�� *(+)�,h h]�&
�"	45&"4>"G�&
�"4>"G�&�"	4	5�&�"4
>"G�&		�"	454�&		�"	455��&	�"4
>"GC`gtime-in
	gtime-out	gcaller		gval		>	kgval	��gval	�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	-�	��	4�	��	>�	��	n�	!����	����	$����	$����	%����	$����	!����	��		gnamegpriv:time-tai->time-utc!�C�R��_h�]�6�gtime-in
		gfilenamefsrfi/srfi-19.scm�
�
��	�	$��	�	F��	�	��		gnamegtime-tai->time-utc�C_R�`h�]6�gtime-in
		gfilenamefsrfi/srfi-19.scm�
�
��	
�	,��	�	��		gnamegtime-tai->time-utc!�C`R��' ��*(+)�,h h]�&
�"	45&"4>"G�&
�"4>"G�&�"	4	5�&�"4
>"G�&		�"	454�&		�"	455��&	�"4
>"GC`gtime-in
	gtime-out	gcaller		gval		>	kgval	��gval	�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	-�	��	4�	��	>�	��	n�	!����	����	$����	$����	%����	$����	!����	��		gnamegpriv:time-utc->time-tai!�C�R��fh�]�6�gtime-in
		gfilenamefsrfi/srfi-19.scm�
�
��	�	$��	�	F��	�	��		gnamegtime-utc->time-tai�CfR�gh�]6�gtime-in
		gfilenamefsrfi/srfi-19.scm�
�
��	
�	,��	�	��		gnamegtime-utc->time-tai!�CgR��'�X�-*�h�]�&
�"	45&"4>"G45	�&
�"4
>"G6�gtime-in
		~gntime	C	~gval		G	tgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	+�	��	-�	��	4�	��	=�	��	C�	��	G�	��	|�	*��	~�	��
		~gnamegtime-monotonic->time-utc�CXR��'�Y�*�Xhx�]	�&
�"	45&"4>"G�&
�"4	>"G
6�gtime-in
		ugval	>	kgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	+�	��	-�	��	4�	��	>�	��	s�	,��	u�	��		ugnamegtime-monotonic->time-utc!�CYR��'�V�-*hx�]�&
�"	45&"4>"G45	�&
�"4
>"GC�gtime-in
		wgntime	C	wgval		G	tgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	+�	��	-�	��	4�	��	=�	��	C�	��	G�	��		wgnamegtime-monotonic->time-tai�CVR��'�W�*
hp�]	�&
�"	45&"4>"G�&
�"4	>"GC�gtime-in
		ngval	>	kgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	'�	��	+�	��	-�	��	4�	��	>	��			ngnamegtime-monotonic->time-tai!�CWR��' �d��*h�]�&
�"	45&"4>"G4�5	�&
�"4
>"GCgtime-in
	�gntime	M�gval		Q	~gfilenamefsrfi/srfi-19.scm�

��		��	"	��	'	��	+	��	-	��	4	��	=	��	I	1��	K	)��	M	��	M	��	Q		��	�gnamegtime-utc->time-monotonic�CdR��' �e��*h�]�&
�"	45&"4>"G45	�&
�"4
>"GC�gtime-in
		{gntime	G	{gval		K	xgfilenamefsrfi/srfi-19.scm�

��	
	��	"
	��	'	��	+	��	-	��	4	��	=	��	E	)��	G	��	G	��	K	��
		{gnamegtime-utc->time-monotonic!�CeR��'�]�-*hx�]�&
�"	45&"4>"G45	�&
�"4
>"GC�gtime-in
		wgntime	C	wgval		G	tgfilenamefsrfi/srfi-19.scm�

��		��	"	��	'	��	+	��	-	��	4	��	=	��	C	��	G	��		wgnamegtime-tai->time-monotonic�C]R��'�^�*
hp�]	�&
�"	45&"4>"G�&
�"4	>"GC�gtime-in
		ngval	>	kgfilenamefsrfi/srfi-19.scm�

��		��	"	��	'	��	+	��	- 	��	4	��	>!	��			ngnamegtime-tai->time-monotonic!�C^R�h ,3�	C�g
nanosecond
		gsecond		gminute			ghour			gday			gmonth			gyear			gzone-offset			gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%make-date-procedure�C�R4�9���'h 
,3	Cgt-46961e50d3-33b
		gt-46961e50d3-33c		gt-46961e50d3-33d			gt-46961e50d3-33e			gt-46961e50d3-33f			gt-46961e50d3-340			gt-46961e50d3-341			gt-46961e50d3-342						CLO9PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C)h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC59R[*_�+�4c�>"G	f��i��R�hr]�$��CCjgobj
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date?-procedure�C,R4�:��hGh8]C0gt-46961e50d3-35d
		
		
CLO:PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
CIh]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5:R��;hz]�&
�C6rgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-nanosecond-procedure�CJR4�;��X_dh:]��C2gerr
		gs					Cgmrh:]��C2gerr
		gs					Cu{�h:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-369
		
		
CLO;PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5;R��<hv]�&�C6ngs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-second-procedure�C�R4�<�����h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-384
		
		
CLO<PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5<R��=h v]�&	�C6ngs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-minute-procedure�C�R4�=��
h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C &+h:]��C2gerr
		gs					ChGh8]C0gt-46961e50d3-39f
		
		
CLO=PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
CIh]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5=R��>h t]�&	�C6lgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-hour-procedure�CJR4�>��X_dh:]��C2gerr
		gs					Cgmrh:]��C2gerr
		gs					Cu{�h:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-3ba
		
		
CLO>PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5>R��?h s]�&	�C6kgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-day-procedure�C�R4�?�����h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-3d5
		
		
CLO?PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5?R��@h u]�&	�C6mgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-month-procedure�C�R4�@��	h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C%*h:]��C2gerr
		gs					ChFh8]C0gt-46961e50d3-3f0
		
		
CLO@PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
CHh]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5@R��Ah t]�&	�C6lgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-year-procedure�CIR4�A��W^ch:]��C2gerr
		gs					Cflqh:]��C2gerr
		gs					Ctzh:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-40b
		
		
CLOAPhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5AR��Bh {]�&	�C6sgs
		gfilenamefsrfi/srfi-19.scm�
)
��		gnameg%date-zone-offset-procedure�C�R4�B�����h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch�h8]C0gt-46961e50d3-426
		
		
CLOBPhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-19.scm�
)
��	�C5BR4�}��
78h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CWXh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-19.scm�
)
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5}R��h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-nanosecond!-procedure�CR4���:5hV]CNgt-46961e50d3-454
		gt-46961e50d3-455					CLOPhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C7h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5R��8h �]�&�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-second!-procedure�C9R4�8��:_hV]CNgt-46961e50d3-464
		gt-46961e50d3-465					CLO8PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
Cah]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC58R��bh �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-minute!-procedure�CcR4�b��:�hV]CNgt-46961e50d3-474
		gt-46961e50d3-475					CLObPhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5bR���h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-hour!-procedure�C�R4����:�hV]CNgt-46961e50d3-484
		gt-46961e50d3-485					CLO�PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5�R���h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-day!-procedure�C�R4����:�hV]CNgt-46961e50d3-494
		gt-46961e50d3-495					CLO�PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C�h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5�R���h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-month!-procedure�C�R4����:hV]CNgt-46961e50d3-4a4
		gt-46961e50d3-4a5					CLO�PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C	h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5�R��
h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg%set-date-year!-procedure�CR4�
��:1hV]CNgt-46961e50d3-4b4
		gt-46961e50d3-4b5					CLO
PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C3h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC5
R��4h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-19.scm�
)
��			gnameg %set-date-zone-offset!-procedure�C5R4�4��:[hV]CNgt-46961e50d3-4c4
		gt-46961e50d3-4c5					CLO4PhT]L6Lga
		gfilenamefsrfi/srfi-19.scm�	)
��		C�ShD]L6<gfilenamefsrfi/srfi-19.scm�	)
��		
C]h]C		
CWXhp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-19.scm�
)
��		nC54Rhh�]	�	����
�$	�"
�	��	���	�	��m��	��
	d�������ӖC�gday
		dgmonth		dgyear			dga		
	dgy		%	dgm		2	dgfilenamefsrfi/srfi-19.scm�
9
��	:	��	
:	��	
:	��	;	��	;	��	;	#��	;	��	%;	��	%:	��	.<	��	/<	��	2<	��	2:	��	<>	��	?>	��	B>	��	C=	��	I?	��	J=	��	O@	��	P=	��	QA	��	VA	
��	WA	��	X=	��	^B	��	_=	��		d	gnamegencode-julian-day-number�C^R���h��]A4455},�	�	�:��:��	��	�	�����	��	�	���	d���@�	
����
��	�	����	�	�	
���
�$�"D�gjdn
	�gdays	�ga		�gb		*�gc		>�gd		L�ge		Z�gm		h�gy		|�	gfilenamefsrfi/srfi-19.scm�
F
��	G	��	G	��	G	��	G	��	H	��	G	��	I	��	 I	��	*I	��	*G	��	:J	��	=J	��	>J	��	>G	��	EK	��	HK	��	LK	��	LG	��	VL	��	YL	��	ZL	��	ZG	��	aM	��	dM	��	hM	��	hG	��	oN	��	rN	��	{N	!��	|N	��	|G	���P	���P	���Q	
���Q	���Q	���Q	
���Q	
���Q	���R	���R	���R	���R	���S		���S	���S	���O	��1	�gnamegdecode-julian-day-number�C_R`a��)h0�]
44�&		�"	4555�C�gutc-time
		*gfilenamefsrfi/srfi-19.scm�
Y
��	[	��	[	��	[	��	[	��	&[	��	([	��	)[	��			*gnameglocal-tz-offset�CbR���h�]����C�gseconds
		g	tz-offset		gfilenamefsrfi/srfi-19.scm�
^
��	_	��	
_	��	_	��			gnamegtime->julian-day-number�CcRd�h�]45$CC{gsecond
		gfilenamefsrfi/srfi-19.scm�
c
��	d	��	d	��		gnamegleap-second?�CeR��' �f�be)c_�g(�hPR-13�&
�"	45&"4>"G(45"�4	�&		�"	4
5�54$ �&		�"	4
5�"�&		�"	4
554>G4
455		�
	�	<�	<�
�&�"	45$
�"

�	CJgtime
		Mg	tz-offset		Mgoffset		WMgleap-second?		|Mgjdn	�Mgsecs	�Mgdate	�Mgmonth	�Mgyear	�Mgint-secs		�Mghours	
�Mgrem	�Mgminutes	Mgseconds	
Mg
nanosecond	3Mgsecond	3Mgfilenamefsrfi/srfi-19.scm�
f
��	g	��	)g	��	.h	��	2h	��	4h	��	;h	��	Ii	��	Jj	��	Wk	��	Wi	��	Zl	��	al	/��	zl	%��	|l	��	|i	��	m	���m	'���n	3���n	0���o	0���m	���i	���r	!���r	���v	���v	)���v	���v	���w	,���w	���v	���x	-���x	���v	��y	��v	��z	��v	��
{	��*|	��-|	&��3{	
��,		M
gnamegtime-utc->date�CaR��'�f�b_)�ec_�g(�hH�-13�&
�"	45&"4>"G(44	55"��&		�"	4
54�&		�"	4
55�4�54
$�"54>G	4455

�
�	<�
	<��&�"	45$�"
	�	C�gtime
		Eg	tz-offset		Egoffset		\Egseconds	�Egleap-second?	�Egjdn	�Egsecs	�Egdate	�Egmonth	�Egyear		�Egint-secs	
�Eghours	�Egrem	�Egminutes	
�Egseconds	Eg
nanosecond	+Egsecond	+Egfilenamefsrfi/srfi-19.scm�
�
��	�	��	)�	��	.�	��	2�	��	4�	��	;�	��	I�	��	J�	��	M�	&��	U�	��	\�	��	\�	��	a�	��	z�	��	�	(����	����	����	����	����	%����	����	����	����	'����	0����	����	����	!����	����	����	)����	����	����	,����	����	����	-����	����	����	����	���	���	���	��"�	��%�	&��+�	
��1		E
gnamegtime-tai->date�CZR��'�f�bX)�ec_�g(�hH�-13�&
�"	45&"4>"G(44	55"��&		�"	4
54�&		�"	4
55�4�54
$�"54>G	4455

�
�	<�
	<��&�"	45$�"
	�	C�gtime
		Eg	tz-offset		Egoffset		\Egseconds	�Egleap-second?	�Egjdn	�Egsecs	�Egdate	�Egmonth	�Egyear		�Egint-secs	
�Eghours	�Egrem	�Egminutes	
�Egseconds	Eg
nanosecond	+Egsecond	+Egfilenamefsrfi/srfi-19.scm�
�
��	�	��	)�	��	.�	��	2�	��	4�	��	;�	��	I�	��	J�	��	M�	&��	U�	��	\�	��	\�	��	a�	��	z�	��	�	(����	����	����	����	����	%����	����	����	����	'����	0����	����	����	!����	����	����	)����	����	����	,����	����	����	-����	����	����	����	���	���	���	��"�	��%�	&��+�	
��1		E
gnamegtime-monotonic->date�CSR^��?@A��h% ;>=<Bh�]4�&		�"	45�&		�"	45�&		�"	455�4	�5
�&
�"	45	�	<�	<��&		�"	4
5	<�	<���&		�"	45	<���&�"	45�
�&		�"	45��6�gdate
	gjdays	[g	jdays-1/2		ggfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	-��	#�	1��	>�	1��	X�	��	[�	��	[�	��	^�	��	d�	-��	e�	$��	g�	��	g�	��	p�	����	����	����	����	����	����	����	����	����	����	����	���	���	���	��	gnamegdate->time-utc�CJRgJh�]456{gdate
		
gfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��		
gnamegdate->time-tai�CIReJh�]456�gdate
		
gfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��		
gnamegdate->time-monotonic�CHRh0�]	��
�$C	�
�$		d�
��CC�gyear
		+gt	
	+gfilenamefsrfi/srfi-19.scm�
�
��	�		��	
�	��	
�	��	�	��	�	��	 �	��	%�	)��	'�	&��	(�	!��		+gnameg
leap-year?�CiRvwRdw�Cxih`4]45$"4>"G"��C45$	�$	���C"���"���,gday
		]gmonth		]gyear			]gdays-pr			]gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	#��	%�	��	6�	��	7�	��	8�	��	9�	
��	C�	��	H�	��	L�	��	Q�	��	R�	��		]	gnamegyear-day�CyRy��?@AhX�]�&		�"	45�&		�"	45�&		�"	456�gdate
		Wgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	=�	.��	W�	��		Wgnameg
date-year-day�CCRhHy]	�	��	��	���	��
	d������	�	��	�Cqgday
		Ggmonth		Ggyear			Gga		
	Ggy			Ggm			Ggfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��	
�	��	�	��	�	��	�	��	�	��	�	��	%�	��	*�	��	+�	��	,�	��	1�	��	2�	��	3�	��	9�	��	:�	��	?�	��	B�	��	C�	��	F�	��		G	gnamegweek-day�CzRz��?@AhX�]�&		�"	45�&		�"	45�&		�"	456�gdate
		Wgfilenamefsrfi/srfi-19.scm�
�
��	�	��	"�	��	=�	.��	W�	��		Wgnameg
date-week-day�CDR��ADhH ]�&		�"	45



�	45�	�Cgdate
		Dgday-of-week-starting-week		Dgyear			0g	first-day		0	Dg
fdweek-day		9	Dgfilenamefsrfi/srfi-19.scm�

��		��		��	0	��	3	��	9	��	@	��	C	��			D	gnamegdays-before-first-week�C{RC{h�]45�45�	�C�gdate
		gday-of-week-starting-week		gfilenamefsrfi/srfi-19.scm�

��		��	
	��		��		��		��			gnamegdate-week-number�CERl abh0�-1345(45"�6�g	tz-offset
			,gtime		,gfilenamefsrfi/srfi-19.scm�

��	
	��		��		��			��	*		��	,	��			,


gnamegcurrent-date�C!R!��AhhI]45�&		�"	45	d�	d�	d�$C
�$C��	2�$�C	d��CAgn
		hgs		'gcurrent-year	'	hgcurrent-century		1	hgfilenamefsrfi/srfi-19.scm�

��		"��		��	'	��	.	��	1	��	1	��	8!	��	< 	��	C"	��	G 	��	O#	��	R#	��	U#	��	Y 	��	^#	6��	d$	��	g$	��		hgnamegnatural-year�C|R��;<=>?@AB^}��h�]A�&
�"	45�&�"	45�&		�"	45�&		�"	45�&		�"	45�&		�"	45�&		�"	4	5�&		�"	4
545�
�	<�	<��	<���
����C�gdate
	g
nanosecond�gsecond	�gminute	�ghour	�gday	�gmonth	�gyear	�goffset	�	gfilenamefsrfi/srfi-19.scm�
&
��	'	��	(	��	9)	��	T*	��	o+	
���,	���-	���.	���'	���/	���0	���/	���1	���2	��1	
��3	��	1	
��5	��1	
��1	
��/	��	gnamegdate->julian-day�CFRF~h�]45�C�gdate
		
gfilenamefsrfi/srfi-19.scm�
8
��	9	��	:	��	9	��		
gnamegdate->modified-julian-day�CGR��' �f�)(���
h��]�&
�"	45&"4>"G�&		�"	45�&�"	4	5
����C�gtime
		|gfilenamefsrfi/srfi-19.scm�
<
��	=	��	"=	��	'>	��	+>	��	->	��	4>	��	??	��	Z?	!��	t?	��	u?	��	x?	��	{?	��		|gnamegtime-utc->julian-day�CbRb~h�]45�C�gtime
		
gfilenamefsrfi/srfi-19.scm�
C
��	D	��	E	��	D	��		
gnamegtime-utc->modified-julian-day�CcR��'�f�)�(���h�
]�&
�"	45&"4>"G�&		�"	454	�&		�"	455��&�"	4
5���
�Cgtime
	�gfilenamefsrfi/srfi-19.scm�
G
��	H	��	"H	��	'I	��	+I	��	-I	��	4I	��	?J	��	XK	��	]K	!��	wK	��	xJ	��	{L	���L	���J	���J	���J	��	�gnamegtime-tai->julian-day�C[R[~h�]45�C�gtime
		
gfilenamefsrfi/srfi-19.scm�
P
��	Q	��	R	��	Q	��		
gnamegtime-tai->modified-julian-day�C\R��'�f�)�(���h�]�&
�"	45&"4>"G�&		�"	454	�&		�"	455��&�"	4
5���
�Cgtime
	�gfilenamefsrfi/srfi-19.scm�
U
��	V	��	"V	��	'W	��	+W	��	-W	��	4W	��	?X	��	XY	��	]Y	!��	wY	��	xX	��	{Z	���Z	���X	���X	���X	��	�gnamegtime-monotonic->julian-day�CTRT~h�]45�C�gtime
		
gfilenamefsrfi/srfi-19.scm�
^
��	_	��	`	��	_	��		
gnameg#time-monotonic->modified-julian-day�CUR���% �h0�]��4>G�6�gjdn
		+gsecs	
	+gseconds			+gparts			+gfilenamefsrfi/srfi-19.scm�
b
��		c	��	
c	��	
c	��	
e	��	d	��	'g	��	+f	��			+gnamegjulian-day->time-utc�CNRgNh�]456�gjdn
		
gfilenamefsrfi/srfi-19.scm�
j
��	k	��	
k	��		
gnamegjulian-day->time-tai�CMReNh�]456�gjdn
		
gfilenamefsrfi/srfi-19.scm�
m
��	n	��	
n	��		
gnamegjulian-day->time-monotonic�CLRNbah0�-1345(45"�6�gjdn
			0g	tz-offset			0gtime			0goffset		&	0gfilenamefsrfi/srfi-19.scm�
p
��	
q	��	q	��	r	��	s	��	&t	��	&q	��	0u	��				0
gnamegjulian-day->date�CKRK~h�-13�@�gjdn
			g	tz-offset			gfilenamefsrfi/srfi-19.scm�
w
��	x	!��	x	��	x	��			
gnamegmodified-julian-day->date�CORN~h�]�6�gjdn
		gfilenamefsrfi/srfi-19.scm�
{
��	|	��		|	��	|	��		gnamegmodified-julian-day->time-utc�CRRM~h�]�6�gjdn
		gfilenamefsrfi/srfi-19.scm�
~
��		��			��		��		gnamegmodified-julian-day->time-tai�CQRL~h�]�6�gjdn
		gfilenamefsrfi/srfi-19.scm�
�
��	�	%��		�	��	�	��		gnameg#modified-julian-day->time-monotonic�CPRbl ht]456lgfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��		
gnamegcurrent-julian-day�C"Rcl h}]456ugfilenamefsrfi/srfi-19.scm�
�
��	�	!��	
�	��		
gnamegcurrent-modified-julian-day�C#R���hH2]4545�$"�$C4�56*gn
		Egpad-with		Eglength			Egstr				Egstr-len			Egt			,gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	)�	��	0�	��	6�	��	=�	$��	A�	��	E�	��		E	gnamegpadding�C�R��h�]4	
5�6�gi
		gn		gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	�	��			gnameg
last-n-digits�C�R�h�]�6}gn
			gfilenamefsrfi/srfi-19.scm�
�
��	�	2��		�	 ��			gnameglocale-abbr-weekday�C�R�h�]�6}gn
			gfilenamefsrfi/srfi-19.scm�
�
��	�	,��		�	 ��			gnameglocale-long-weekday�C�R�i�R�i�Rh8,]")�$C4455$C�"���"���$gneedle
		6ghaystack-ref		6ghaystack-len			6gsame?			6gindex			/gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	)�	��	/�	��	/�	��		6	gnamegdate-reverse-lookup�C�R���h�]	6�gstring
		gfilenamefsrfi/srfi-19.scm�
�
��	�	��		gnameglocale-abbr-weekday->index�C�R���h�]	6�gstring
		gfilenamefsrfi/srfi-19.scm�
�
��	�	��		gnameglocale-long-weekday->index�C�R���h�]	6~gstring
		gfilenamefsrfi/srfi-19.scm�
�
��	�	��		gnameglocale-abbr-month->index�C�R���h�]	6~gstring
		gfilenamefsrfi/srfi-19.scm�
�
��	�	��		gnameglocale-long-month->index�C�R���Bh(�]�&		�"	456�gdate
		#gport		#gfilenamefsrfi/srfi-19.scm�
�
��	�	��	#�	��		#	gnameglocale-print-time-zone�C�R��h�]	�$66�ghr
		gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	�	��	�	#��		gnameglocale-am-string/pm�C�R������h��]
�$4>"G"4
�$4>"G"4>"G
�$C4�54�	<�5440	5>"G40	56�goffset
	�gport	�ghours		y�gminutes		y�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	%�	��	*�	��	+�	��	/�	 ��	6�	��	C�		��	G�	��	N�		��	Z�	��	^�	��	a�	��	h�	+��	i�	��	k�	��	l�	��	s�	6��	t�	$��	w�	��	y�	��	y�	��	~�	����	����	����	����	�� 	�	gnameg
tz-printer�C�R~�h�]~6�gdate
		
gpad-with		
gport			
gfilenamefsrfi/srfi-19.scm�
�	
��	
�	��		
	C�a��Dh�]44556�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	-��	�	��	�	��			C�A��Dh�]44556�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	-��	�	��	�	��			C�b����@h(�]4�&		�"	4556�gdate
		(gpad-with		(gport			(gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	
�	+��	$�	��	(�	��		(	C�B����@h(�]4�&		�"	4556�gdate
		(gpad-with		(gport			(gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	
�	+��	$�	��	(�	��		(	C�c�h{h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	��			C�d����?h0�]4�&		�"	450	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	
�	!��	(�	��	,�	��		,	C�D�h|h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	+��	
�	��	�	��			C�e����?h0�]4�&		�"	45 	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	
�	!��	(�	��	,�	��		,	C�f��;���<�����h�]#�&
�"	45�$:44�&�"	45�	5>"G"544�&�"	45	5>"G4�&
�"	45�	�>G4
545	�$(445>"G4
	56C�gdate
	gpad-with	gport		gi	�gf	�gns	�gle	�gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	��	#�	��	$�	��	'�	��	,�	(��	D�	%��	J�	��	Q�	��	^�	��	a�	��	f�	%����	����	����	����	*����	$����	/����	$����	����	����	#����	����	#����	����	����	����	 ����	)����	 ����	)���	 ��"		C�h�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
�	
��	�	��	�	+��	
�	��	�	��			C�H����>h0�]4�&		�"	45	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
	
��		��	
	!��	(	��	,	��		,	C�I��>��hP�]�&		�"	45	�$4	�	564	56�gdate
		Mgpad-with		Mgport			Mghr			Mgfilenamefsrfi/srfi-19.scm�
	
��		��		��	$	��	(	��	+	��	2	'��	8	��	<	��	?
	��	M
	��		M	C�j��Ch�]445	56�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�

	
��		��		!��		��		��			C�k����>h0�]4�&		�"	45 	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
	
��		��	
	!��	(	��	,	��		,	C�l��>��hx�]�&		�"	45	�$"�&		�"	45	�"�&		�"	454 	56�gdate
		tgpad-with		tgport			tghr		a	tgfilenamefsrfi/srfi-19.scm�
	
��		 ��	 	��	$	��	'	 ��	B	��	I	5��	a	��	f	��	t	��		t	C�m����@h0�]4�&		�"	45	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
	
��		��	
	!��	(	��	,	��		,	C�M����=h0�]4�&		�"	45	56�gdate
		,gpad-with		,gport			,gfilenamefsrfi/srfi-19.scm�
	
��		��	
	!��	(	��	,	��		,	C�n�h�]6�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
"	
��	#	��			C�N����;h0�]4�&
�"	45	56�gdate
		+gpad-with		+gport			+gfilenamefsrfi/srfi-19.scm�
$	
��	%	��	
%	!��	'%	��	+%	��		+	C�p����>h(�]4�&		�"	4556�gdate
		(gpad-with		(gport			(gfilenamefsrfi/srfi-19.scm�
(	
��	)	��	
)	-��	$)	��	()	��		(	C�r�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
*	
��	+	��	+	+��	
+	��	+	��			C�s�J��)h0�]45�&		�"	456�gdate
		/gpad-with		/gport			/gs			+gfilenamefsrfi/srfi-19.scm�
,	
��	-	%��	-	��	/-	��		/	C�S��;���<hx�]�&
�"	45�$*4�&�"	45�	564�&�"	45	56�gdate
		vgpad-with		vgport			vgfilenamefsrfi/srfi-19.scm�
.	
��	/	��	/	��	#/	��	&1	��	+1	(��	C1	%��	I1	��	M1	��	P4	��	U4	%��	r4	��	v4	��		v	C�t�h�]	6�gdate
		
gpad-with		
gport			
gfilenamefsrfi/srfi-19.scm�
7	
��	
8	��		
	C�T�h~h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
9	
��	:	��	:	+��	
:	��	:	��			C�U{��Eh@�]4
5
�$44
5�0	5644
50	56�gdate
		?gpad-with		?gport			?gfilenamefsrfi/srfi-19.scm�
;	
��	<	��	<	��	<	��	=	��	=	(��	=	%��	$=	��	(=	��	+?	��	.?	%��	;?	��	??	��		?	C�V��Eh �]4450	56�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
A	
��	B	��	B	!��	B	��	B	��			C�w�Dh�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
D	
��	E	��	E	��			C�x�h}h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
F	
��	G	��	G	��			C�X�hh�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
H	
��	I	��	I	��			C�W{��Eh@�]45
�$445�0	564450	56�gdate
		?gpad-with		?gport			?gfilenamefsrfi/srfi-19.scm�
J	
��	K	��	K	��	K	��	L	��	L	(��	L	%��	$L	��	(L	��	+N	��	.N	%��	;N	��	?N	��		?	C�y�����Ah8�]44�&		�"	45	5	56�gdate
		3gpad-with		3gport			3gfilenamefsrfi/srfi-19.scm�
P	
��	Q	��	Q	!��	
R	'��	)Q	!��	/Q	��	3Q	��		3	C�Y���Ah(�]�&		�"	456�gdate
		#gpad-with		#gport			#gfilenamefsrfi/srfi-19.scm�
V	
��	W	��	#W	��		#	C�z���Bh(�]�&		�"	456�gdate
		#gpad-with		#gport			#gfilenamefsrfi/srfi-19.scm�
X	
��	Y	��	#Y	��		#	C�Z�h�]6�gdate
		
gpad-with		
gport			
gfilenamefsrfi/srfi-19.scm�
Z	
��	
[	��		
	C�1�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
\	
��	]	��	]	+��	
]	��	]	��			C�2�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
^	
��	_	��	_	+��	
_	��	_	��			C�3�h~h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
`	
��	a	��	a	+��	
a	��	a	��			C�4�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
b	
��	c	��	c	+��	
c	��	c	��			C�5�h�h�]456�gdate
		gpad-with		gport			gfilenamefsrfi/srfi-19.scm�
d	
��	e	��	e	+��	
e	��	e	��			C�)�Rd�h �]	45$�CC�gchar
		g
associated		gfilenamefsrfi/srfi-19.scm�
h
��	i	��	i	��	j	��	j	��		gnameg
get-formatter�C�R��������	h�]�$|454~5$A��$
64�54-5$_	��$
644	�55$&4>"G	�664_5$`	��$
644	�55$'4 >"G	�6644�55$'40>"G	�664>"G�6Cgdate
	�gindex	�g
format-string		�gstr-len		�gport		�gcurrent-char		�g	pad-char?		Adg	formatter		w�g	formatter	�g	formatter	+d
gfilenamefsrfi/srfi-19.scm�
l
��	m	��	m	��	n	��	n	��	o	��	#o	��	&s	��	)s	��	-s	��	1t	��	3t	*��	7t	��	8v	!��	?v	;��	Av	!��	Av	��	Dx	��	Pw	��	Uy	��	Xy	��	\y	��	`z	$��	b{	)��	fz	��	g}	)��	j~	*��	s	6��	u~	*��	w}	)��	w}	��	�	����	 ����	3����	 ����	*����	/����	����	���w	����	����	����	����	$����	)����	����	)����	*����	6����	*����	)����	����	����	 ��
�	3���	 ���	*���	/���	���	%�� �	&��'�	2��)�	&��+�	%��+�	��3�	��4�	��R�	/��Z�	��^�	&��`�	+��d�	��eq	��r	!���r	��L	�	gnamegdate-printer�C�R�����hH-1345("�4
45>"G6�gdate
			Eg
format-string			Egstr-port			Egfmt-str			Egfilenamefsrfi/srfi-19.scm�
�
��	
�	��	�	��	�	+��	�	0��	�	��	"�	��	*�	!��	7�	��	E�	��			E
gnamegdate->string�ChR����h��]0�$
C1�$C2�$	C3�$	C4�$	C5�$	C6�$	C7�$	C8�$	C9�$		C6�gch
	�gfilenamefsrfi/srfi-19.scm�
�
��	�	��	|�	��	~�	 ����	 ����	����		��	�gnameg	char->int�C�R�����h��]*"l4545$"(45�$"$	�"$C	
�4455��"���

"���{gupto
		|gport		|gaccum			rgnchars			rgch		
	rgt			Ngt		+	Kgfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	
�	��	�	��	�	
��	$�	��	+�	��	+�	
��	>�	��	C�	��	R�	��	Z�	��	[�	 ��	^�	+��	f�	 ��	g�	��	j�	��	r�	
��	r�	��		|	gnameginteger-reader�C�R�h`]L6Xgport
		
gfilenamefsrfi/srfi-19.scm�
�	��	
�	��		
Chv]OCngupto
		
gfilenamefsrfi/srfi-19.scm�
�
��		
gnamegmake-integer-reader�C�R���i������h�
]*H"�45�$C45$
645$$K	
�44	55��"���J$#4	>"G�"��~
6

"��fgn
	�gport	�g
padding-ok		�gport			�gaccum			�gnchars			�gch		�gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	
�	��	�	��	�	
��	�	��	�	
��	)�	��	-�	��	/�	$��	1�	��	3�	
��	4�	
��	>�	��	A�	
��	H�	��	I�	%��	L�	0��	T�	%��	U�	��	X�	��	b�	
��	h�	��	i�	
����	 ����	
����	����	$����	����	
����	��!	�	gnameginteger-reader-exact�C�R�h`]L6Xgport
		
gfilenamefsrfi/srfi-19.scm�
�	��	
�	��		
Chy]OCqgn
		
gfilenamefsrfi/srfi-19.scm�
�
��		
gnamegmake-integer-exact-reader�C�R���i�����
h�9]!
HH4545$4>"G"4Z5$"	4z5$
C4+5$K"/4-5$K"4>"G4545$4>"G"4	5	
�	<�	<�K4545$4>"G"J4	5	<�	<��K4545$4>"G"J4	5	
�	<��K4545$4>"G"J4	5	<��KJ$JC
J�C1gport
	�goffset	�g	positive?		�gch		�gt		D	]gch	��gch	�6gch	=~gch	��	gfilenamefsrfi/srfi-19.scm�
�
��	�	��		�	��	�	��	�	
��	�	��	�	
��	!�	��	#�	$��	%�	!��	*�	��	/�	
��	<�	��	D�	
��	R�	��	a�	��	d�	��	p�	��	s�	��	x�	����	����	����	����	����	(����	%����	����	���	���	���	���	���	���	���	,���	)���	#���	���	���	���	���	���	���	��	��	��	��		,��		)��		#��	��$
	(��-
	%��1
	��3
	��7	��=	��@
	��J
	��K	��O	��Q	,��S	)��X	#��]	��l	(��u	%��y	��{	��	���	���	���	���	���	���	,���	)���	#���	���	(���	%���	���	���	���	!��V	�gnamegzone-reader�C�R�����h8�]	4L545$4L5�"���456�gresult
		1gch			1gfilenamefsrfi/srfi-19.scm�
	��		��			��		
��		��	 	"��	  	��	& 	
��	)!	��	1!	
��		1gnamegread-char-string�C�i��h@3]OQ4545$C6+gport
		;gindexer		;gread-char-string			;gstr			;gindex		!	;gfilenamefsrfi/srfi-19.scm�

��	#	��	#	 ��	#	��	#	��	$	��	!#	��	)%	��	0%	 ��	2&	%��	4'	+��	9'	%��	;%	��		;	gnameg
locale-reader�C�R�h`]L6Xgport
		
gfilenamefsrfi/srfi-19.scm�
*	��	
+	��		
Chx]OCpgindexer
		
gfilenamefsrfi/srfi-19.scm�
)
��		
gnamegmake-locale-reader�C�R���i��h(�]4L455$LC6�gport
		!gfilenamefsrfi/srfi-19.scm�
.	��	/	��	/	��	/	��	/	��	1	��	2	��	3	��	!1	��
		!Chv]OCngchar
		
gfilenamefsrfi/srfi-19.scm�
-
��		
gnamegmake-char-id-reader�C�Rhk]Ccgch
		gfilenamefsrfi/srfi-19.scm�
M	��		gnameg	char-fail�C4�i	54�i	54�i	54�i�i54�i�i54�i�i54�i�i5~4�i~5a�iA�ib�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
T	��	U	
��			CB�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
W	��	X	
��			Cd�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
Y	&��	Z	(��			Ce���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
\	#��	]	%��			Ch�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
_	��	`	
��			CH�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
a	&��	b	(��			Ck���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
c	#��	d	%��			Cm�i���h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
e	&��	f	(��			CM�i��bh s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
g	&��	h	(��			CS�i��8h s]�&�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
j	&��	k	(��			Cy|��
h(�]
45�&	�C6�gval
		$gobject		$gval				$gfilenamefsrfi/srfi-19.scm�
m	��	n	$��		n	
��		$	CY�i��
h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
o	&��	p	(��			Cz�hH�]	4Z5$C4z5$C4+5$C-6�gc
		Fgt		Fgt		Fgt	3	Fgfilenamefsrfi/srfi-19.scm�
q	��	r	��	r	��	s	��	r	��	+t	��	3r	��	Fu	��			FC�i��4h s]�&	�C6kgval
		gobject		gfilenamefsrfi/srfi-19.scm�
v	��	w	��			C�R���i��hP�]
4545$
L645$C4>"G"����gport
		Kgskipper		Kgch				Kgfilenamefsrfi/srfi-19.scm�
z	��	{	��		{	��	|	
��	|	��	}	��	}	$��	 }	
��	!~	��	+~	
��	.	��	K	&��
		K	gnameg
skip-until�C���i�d����hX�]FOQ�$7454~5$���$
64�545		$�	��	���	����
4
>"G45
4	
5$4>"G"$4
>"G"

	�66454	5		$"
45�	$4>"G"
�6C�gdate
	Tgindex	Tg
format-string		Tgstr-len		Tgport		Tgtemplate-string		Tg
skip-until		Tgcurrent-char		$Rgformat-char		Q�gformat-info			\�gskipper	
	s�greader		s�gactor		s�gval	
��g	port-char	Rgt			#gfilenamefsrfi/srfi-19.scm�
y
��	�	��	�	��	�	��	$�	��	'�	��	3�	��	6�	��	9�	��	=�	��	A�	��	C�	!��	G�	��	H�	$��	O�	>��	Q�	$��	Q�	��	T�	$��	\�	��	d�	��	g�	'��	k�	'��	p�	'��	s�	��	z�	����	%����	����	 ����	����	 ����	,����	1����	 ����	 ����	*����	-����	����	"����	'����	����	���	���	��	�	���	�� �	��'�	��(�	��,�	��.�	#��5�	��H�	!��R�	��6	T	gnamegpriv:string->date�C�R�����Bb% 4J�i��;<=>?@AhB]



�	4
4545>"G�&		�"	45$"v44	

55�&	�"4
>"G4455�&	�"4
>"G"
6�&
�"	45$��&�"	45$��&		�"	45$��&		�"	45$��&		�"	45$l�&		�"	45$I�&		�"	45$&�&		�"	45$C"���"���"���"���"���"���"���"���:ginput-string
	�gtemplate-string	�gnewdate		�gval		g�gval	��gfilenamefsrfi/srfi-19.scm�
�
��	�	��	�	��	�	��	�	��	!�	��	.�	��	9�	
��	U�	��	Z�	!��	]�	"��	g�	!��	g�	
����	!����	"����	!����	
����		����		����	����		����	����	����		���	���		�� �	��#�		��?�	��B�		��^�	��a�		��}�	����		����	����		����	����		����	��(	�	gnamegstring->date�CiRC�gm
		4grtd

�
�grtd
g�g�g	char-fail
<�G�gireader4=G�gireader2	=G�g	eireader2	=G�glocale-reader-abbr-weekday	=G�glocale-reader-long-weekday	=G�glocale-reader-abbr-month	=G�glocale-reader-long-month	=G�gfilenamefsrfi/srfi-19.scm�		)
��	5�
��	:�	��	B�	&��	G�
��	Q�	��	T�
��	V�	��	Y�
��	[�	��	^�
��	`�	��	c�
��	e�	��	h�
��	j�	��	m�
��	o�	 ��	r�
��	t�	!��	w�
��	y�	��	|�
��	~�	"����
����
����
����
����	����
����
����
����	����
����
����
����
��)��
��*�
��0_
��1=
��3�!
��4�5
��6:
��6�N
��7[R
��7jU	��7nU
��8]W
��:b
��;cq
��=~
��>��
��@��
��Bd�
��D,�
��F|�
��G`�
��I��
��J��
��M �
��N
�
��P��
��Q��
��R6�
��T��
��U��
��V^�
��X�
��Y��
��[%�
��\��
��^K
��_�
��a�
��b�
��d2)
����9
���yF
����Y
���c^
���c
����f
����
���F�
���*�
�����
��˄�
��̐�
��̓�	��̗�
���P�
���_�
���5�
���G�
����
����
����
��ו
����&
��ے8
���&<
����C
���G
���P
���fU
���,^
���ib
���j
����m
���
p
����w
���{
���m~
���3�
�����
���x�
����
�����
����
���9�
���B�
���K�
����
���t�
���,�
�����
����
���y�
���D�
�����
�����	���\�	���4�	���$�	����	�����	�����	�����	�����	����	����	���	��	���
	���	��	Q	��
D	��<	���"	���$	��
�(	���*	���,	��.	���7	���9	���;	���A	��zD	��:F	���H	��DJ	��VP	��*V	��X	���Z	���\	��\^	��4`	��b	���d	����	����
�� �h
��&�l
��(
�
��)Y�
��+�
��,��
��/��
��0��
��6��
��9�
��:�)
��<J-
��<�B	��<�B	��<�C	��<�D	��<�E	$��<�G	$��=I	$��=K	$��=B	��=2P	��=?P	��=LQ	��=YR	��>S	��>�V	��?~Y	��@6\	��@�^	��A�a	��B^c	��Ce	��C�g	��D�j	��E`l	��Fo	��G�q	��G�O	��G�A
��N�y
��S5�
���	S7
C6srfi/srfi-6.go000064400000002167150536206130007153 0ustar00GOOF----LE-8-2.0_]4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-6�	�		gfilenameS�	
fsrfi/srfi-6.scm�	g
re-exportsS�	gget-output-string�	
�	greplacementsS�	gopen-input-string�	gopen-output-string�	�	gset-current-module�	�	�	g%default-port-encoding�	fUTF-8�	�	�	�	�	gcond-expand-provide�	gcurrent-module�	�C5h�}]4	

54>"Gh�]Y4>ZCZF�gs
		gfilenamefsrfi/srfi-6.scm�
	 
��		!	(��			"	��		"	��		"	��		gnamegopen-input-string�CRh�]Y4>ZCZFxgfilenamefsrfi/srfi-6.scm�
	$
��		%	(��			&	��		&	��		&	��		
gnamegopen-output-string�CRi4i56ugm
		,gfilenamefsrfi/srfi-6.scm�		
���	 
���	$
���	(	���	(	&���	(
��	�
C6srfi/srfi-28.go000064400000001370150536206130007232 0ustar00GOOF----LE-8-2.0�]4hD]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-28�	�		gfilenameS�	
fsrfi/srfi-28.scm�	greplacementsS�	gformat�	
�	gset-current-module�	�	�	g
simple-format�	gcond-expand-provide�	gcurrent-module�	�C5h�v]4	

54>"Gh�-13@~gmessage
			gargs			gfilenamefsrfi/srfi-28.scm�
	
��			��			
gnamegformat�CRi4i56ngm
		(gfilenamefsrfi/srfi-28.scm�		
���	
���	!	���	!	&���	!
��	�
C6srfi/srfi-9/gnu.go000064400000032341150536206130007744 0ustar00GOOF----LE-8-2.0�4]R4hh]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-9�	ggnu�		�	
gfilenameS�	fsrfi/srfi-9/gnu.scm�	gimportsS�	
gsrfi-1�	
�	�	gsystem�	gbase�	gck�	�	�	�	gexportsS�	gset-record-type-printer!�	gdefine-immutable-record-type�	g	set-field�	g
set-fields�	�	gset-current-module�	�	�	gvtable-index-printer�	 gmake-syntax-transformer�	! �	" �	#gmacro�	$g$sc-dispatch�	%$�	&$�	'gany�	(geach-any�	)'(��	*')��	+'*��	,'+��	-g
syntax-object�	.g@@�	/gtop�	0/�	1gribcage�	2gdummy�	3gname�	4gctor�	5gpred�	6gfields�	723456�	8gm-1e8bcc284-11e�	98/�	:90000�	;fl-1e8bcc284-123�	<fl-1e8bcc284-124�	=fl-1e8bcc284-125�	>fl-1e8bcc284-126�	?fl-1e8bcc284-127�	@;<=>?�	A17:@�	B1�	Cgx�	DC�	E9�	Ffl-1e8bcc284-120�	GF�	H1DEG�	I0ABH�	Jghygiene�	KJ�	L-.IK�	M-IK�	N-IK�	OMN�	Pg%define-record-type�	Q-PIK�	RLOQ�	S-IK�	T-IK�	Ugsyntax-violation�	VU�	WU�	Xf-source expression failed to match any pattern�	Y''('�	Zg%set-fields�	[gs�	\ggetter�	]gexpr�	^2[\]�	_gm-1e8bcc284-130�	`_/�	a`000�	bfl-1e8bcc284-135�	cfl-1e8bcc284-136�	dfl-1e8bcc284-137�	efl-1e8bcc284-138�	fbcde�	g1^af�	h`�	ifl-1e8bcc284-132�	ji�	k1Dhj�	l0gBk�	m-ZlK�	n-lK�	o-lK�	p''��	q'p��	rgrest�	s2[r�	tgm-1e8bcc284-140�	ut/�	vu00�	wfl-1e8bcc284-145�	xfl-1e8bcc284-146�	yfl-1e8bcc284-147�	zwxy�	{1svz�	|u�	}fl-1e8bcc284-142�	~}�	1D|~��0{B��-Z�K��-�K��-�K��geach��p'������gfold��gfind��gfree-identifier=?��gdelq��gcollate-set-field-specs��gunknown-getter��g_���''��funknown getter��gc-list��gfree-id��gquote��0��fl-1e8bcc284-175�����1D����0B���-��K�������'������'���������gv��[���00��fl-1e8bcc284-178��fl-1e8bcc284-179������1�����0�B���-�K��-��K��gc-same-type-check��fl-1e8bcc284-17e�����1D����0B���-��K�������'���(���)���'�������gevery��gformat��f\field paths ~a and ~a require one object to belong to two different record types (~a and ~a)��g
syntax->datum��gappend��������g	orig-form��gpath��ggetter0��gtype0��gtype��g
on-success��[���\�����00000000��fl-1e8bcc284-1a3��fl-1e8bcc284-1a4��fl-1e8bcc284-1a5��fl-1e8bcc284-1a6��fl-1e8bcc284-1a7��fl-1e8bcc284-1a8��fl-1e8bcc284-1a9��fl-1e8bcc284-1aa������������1�����0�B���-�K��-��K��fl-1e8bcc284-1b4�����1D����0BB���-.�K��-�K��-�K������ggetter-type��-��K�������ggetter-index��-��K�������g
getter-copier��-��K�������'''���''('��'���''('���'����(䌤�'匤�'挤��猤�gmap��������gcar���\��fl-1e8bcc284-1ea��fl-1e8bcc284-1eb������1�����gcollated-specs�����fl-1e8bcc284-1e2�����1�����gcheck?��gpath-so-far��gstruct-expr��ghead��gtail��������]��0000000��fl-1e8bcc284-1d4��fl-1e8bcc284-1d5�fl-1e8bcc284-1d6�fl-1e8bcc284-1d7�fl-1e8bcc284-1d8�fl-1e8bcc284-1d9�fl-1e8bcc284-1da����1�������000�	fl-1e8bcc284-1b8�
fl-1e8bcc284-1b9�fl-1e8bcc284-1ba�	
�
1�0BB�BB�B
BB�
�-�K�''���'����]�fl-1e8bcc284-202�fl-1e8bcc284-203�fl-1e8bcc284-204��1�gspec��fl-1e8bcc284-1fe��1��gerr�� fl-1e8bcc284-1f0�! �"1�!�#0BBBBBBB"BB�BB�B
BB��$-�#K�%fl-1e8bcc284-20a�&%�'1�&�(0B'BBBBBBB"BB�BB�B
BB��)-Z(K�*g
struct-ref�+-*(K�,-[(K�--(K�.-�(K�/glist�0gt-1e8bcc284-1f2�10�2gm-1e8bcc284-1f3�32/�43�5fl-1e8bcc284-1f7�65�71146�80B7BBB"BB�BB�B
BB��9-8K�:-�8K�;-�8K�<-�8K�=glet�>-=8K�?-[8K�@���A�@��B'A��C(B��D'C��E'D��F�E��Gfduplicate field path�H('�I�H�J'I��K(J��L'K��M'L��N�M��Of%one field path is a prefix of another�P�q��Qfinvalid syntax�C5h�g]4	
54>"Gh�]�C�gtype
		
gproc		
gfilenamefsrfi/srfi-9/gnu.scm�
	 
��			"	��		
	gnamegset-record-type-printer!�g
documentationf(Set PROC as the custom printer for TYPE.�CR4"#&,RSTh(w]����������Cogdummy
		#gname		#gctor			#gpred			#gfields			#		#	CWXh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9/gnu.scm�
	$
��		"g
macro-typegsyntax-rules�gpatternsgnamegctorgpredgfieldsg...C5R4"#&Ymnoh b]CZgdummy
		gs		ggetter			gexpr						CWXh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9/gnu.scm�
	)
��		"g
macro-typegsyntax-rules�gpatternsgsggetterg...gexprC5R4"#&q���h N]�������CFgdummy
		gs		grest						CWXh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9/gnu.scm�
	-
��		"g
macro-typegsyntax-rules�gpatternsgsgrest�C5R&����hi]L�6agtree
		gfilenamefsrfi/srfi-9/gnu.scm�
	C	��			D	+��		D	��		C�hH�]4O5$���45�C�C�ghead
		Agtail		Agexpr			Agresult			Agt			Agfilenamefsrfi/srfi-9/gnu.scm�
	B	��		C	��		C	��	!	G	��	$	H	��	%	G	��	'	I	��	0	G	��	:	J	��
		A	gnameginsert�Ch�]6~ghead
		gtail		gexpr			gfilenamefsrfi/srfi-9/gnu.scm�		M	��		M	��			CWXh(�]	45$@6�gspecs
		"gtmp		"gfilenamefsrfi/srfi-9/gnu.scm�
	A
��		"gnamegcollate-set-field-specs�C�R4"�#&�U�h�]6{g	orig-form
		ggetter		gfilenamefsrfi/srfi-9/gnu.scm�		S	��		S	%��		S	��			CWXh(f]	45$@6^gx
		"gtmp		"gfilenamefsrfi/srfi-9/gnu.scm�
	P	��		"C5�R4"�#&���h8]C0gs
		gv					CWXh(f]	45$@6^gx
		"gtmp		"gfilenamefsrfi/srfi-9/gnu.scm�
	V	��		"C5�R4"�#&�WX��U����hX�]
4L5$C444L5544LL55454L55L6�gt
		Vgg		Vgt			Vgfilenamefsrfi/srfi-9/gnu.scm�
	b	��		c	��		c	��		e	��		f	��	 	g	��	!	i	��	2	j	��	C	k	��	J	l	��	R	f	��	V	d	��
		V	Ch �,3O6�gs
		g	orig-form		gpath			ggetter0			ggetter			gtype0			gtype			g
on-success			gfilenamefsrfi/srfi-9/gnu.scm�		b	��			C��h�,3C�gs
		g	orig-form		gpath			ggetter0			ggetter			gtype0			gtype			g
on-success						Ch@f]	45"	6$4?$@"���"���^gx
		9gtmp		9gfilenamefsrfi/srfi-9/gnu.scm�
	\	��		9C5�R4"Z#���&�&�hm]Cegcheck?
		g	orig-form		gpath-so-far			gs						C�h|]Ctgcheck?
		g	orig-form		gpath-so-far			gs			ge						C���hw]�Cogtmp-1e8bcc284-1e6
		
gtmp-1e8bcc284-1e5		
gtmp-1e8bcc284-1e4			
		
	C��&)�&$)�+,-.�/
hX�]LLL4L5L4	5�����C�ghead
		Ugtail		Ugexpr			Ugtmp			Ugfilenamefsrfi/srfi-9/gnu.scm�	�	#��		U	CWXh0j]	45$LLLLO@6bgspec
		-gtmp		-gfilenamefsrfi/srfi-9/gnu.scm�
�	��		-C&(9:;<�;h9]LLC1gtmp-1e8bcc284-1fb
				C>?	h�9]LLLL�LLL4LLOL5��LLLLL���C1gt-1e8bcc284-1f2
	�	�CWX	hX�]L4LLLLOL545$LLLLLLO	@6�ggetter0
		Xggetter		Xgtmp			Xgtmp		!	Xgtmp		,	Xgfilenamefsrfi/srfi-9/gnu.scm�	�	
��	�	��	!�	��		X	CWXhX5]44554545		$LLLO	@	
6-gcheck?
		Tg	orig-form		Tgpath-so-far			Tgstruct-expr			Tghead			Tgtail			Tgexpr			Tgcollated-specs			Tgtmp			Tgtmp			*	T
gfilenamefsrfi/srfi-9/gnu.scm�	�	��	�		��	�	��	�	��		T	CFUGh�]6�gcheck?
		g	orig-form		gpath-so-far			gs			ge			ge*			gfilenamefsrfi/srfi-9/gnu.scm�	�	��	�	'��	�		��			CNUOh�]6�gcheck?
		g	orig-form		gpath-so-far			gs			ggetter			gexpr			gfilenamefsrfi/srfi-9/gnu.scm�	�	��	�	'��	�		��			CPUQh�]6�gcheck?
		g	orig-form		grest			gfilenamefsrfi/srfi-9/gnu.scm�	�	��	�	'��	�		��			CWXh��]34L5$@4L5$@4L5$O@4L5$	@4L
5$@4L5$
@L6�ggetter-type
	�ggetter-index	�g
getter-copier		�gtmp		�gtmp		"�gtmp		9�gtmp		Y�gtmp		p�gtmp	��		�	CWX	h8]45$O@6wgx
		2gtmp		2gtmp			2gfilenamefsrfi/srfi-9/gnu.scm�
	s	��		t	��		2C5ZRC_gm
		,gfilenamefsrfi/srfi-9/gnu.scm�		
��(	 
��	@	A
��	~
C6srfi/srfi-111.go000064400000037127150536206130007314 0ustar00GOOF----LE-8-2.0?>]<4h�(]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-111�	�		gfilenameS�	
fsrfi/srfi-111.scm�	gimportsS�	gsrfi-9�	
�	
�	ggnu�	�	�	�	gexportsS�	gbox�	gbox?�	gunbox�	gset-box!�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	g<box>�	 g%box-procedure�	!gmake-syntax-transformer�	"!�	#!�	$gmacro�	%g$sc-dispatch�	&%�	'%�	(g_�	)gany�	*()�	+g
syntax-object�	,glambda�	-gm-a33a589db48-4�	.gtop�	/-.�	0gribcage�	1gt-a33a589db48-3�	21�	3/�	4fl-a33a589db48-9�	54�	60235�	70�	8gx�	98�	:fl-a33a589db48-6�	;:�	<093;�	=gshift�	>g	proc-name�	?gargs�	@>?�	A.�	BAA�	Cfl-1e8ba8b5a-2ba�	Dfl-1e8ba8b5a-2bb�	ECD�	F0@BE�	Ggkey�	Hgvalue�	Igname�	Jgformals�	Kgbody�	LGHIJK�	MAAAAA�	Nfl-1e8ba8b5a-2ad�	Ofl-1e8ba8b5a-2ae�	Pfl-1e8ba8b5a-2af�	Qfl-1e8ba8b5a-2b0�	Rfl-1e8ba8b5a-2b1�	SNOPQR�	T0LMS�	Ugmake-procedure-name�	VU�	WA�	Xfl-1e8ba8b5a-29d�	YX�	Z0VWY�	[A�	\fl-1e8ba8b5a-29c�	]\�	^09[]�	_/67<=7777FTZ^
�	`ghygiene�	a`�	b+,_a�	cA67<�	d`�	e+Hcd�	fe�	ggmake-struct�	hgm-a33a589db48-1�	ih.�	jgt-1e8ba8b5a-38d�	kgt-1e8ba8b5a-38c�	lgt-1e8ba8b5a-38b�	mjkl�	ngm-1e8ba8b5a-38e�	on.�	pooo�	qfl-1e8ba8b5a-392�	rfl-1e8ba8b5a-393�	sfl-1e8ba8b5a-394�	tqrs�	u0mpt�	vg	ctor-args�	wv�	xfl-1e8ba8b5a-37a�	yx�	z0w[y�	{gctor�	|gfield�	}{|�	~fl-1e8ba8b5a-376�	fl-1e8ba8b5a-377��~��0}B���gform��g	type-name��gconstructor-spec��gfield-names��������AAAA��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������0�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������AAAAAAAA��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������0�����fl-1e8ba8b5a-334�����09[���i67<=7u777z�7�����+g�a��+cd��+
�a�����e��bf���geach-any��(����gsyntax-violation��
���
���fWrong number of arguments��gidentifier?��
���
���A7<��+ �d��������f-source expression failed to match any pattern��grecord-type-vtable��
���
���gpw��gdefault-record-printer��
���
���H��gset-struct-vtable-name!��
���
���gvtable-offset-user��
���
���g%box?-procedure��gm-a33a589db48-11���.��gt-a33a589db48-10��������fl-a33a589db48-16�����0�����fl-a33a589db48-13�����09������7�=7777FTZ^
��+,�a��gobj��gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b�����������gm-1e8ba8b5a-47f���.�����������fl-1e8ba8b5a-483��fl-1e8ba8b5a-484��fl-1e8ba8b5a-485��fl-1e8ba8b5a-486��fl-1e8ba8b5a-487��fl-1e8ba8b5a-488��fl-1e8ba8b5a-489�����������0�����g	copier-id�����fl-1e8ba8b5a-476�����0�[���g	ctor-name�����fl-1e8ba8b5a-46e�����0�[������fl-1e8ba8b5a-46c�����0�[���glayout�����fl-1e8ba8b5a-46a�����0�[���g
immutable?�����fl-1e8ba8b5a-468���0�[�gfield-count��fl-1e8ba8b5a-466��0[�g
getter-ids��	fl-1e8ba8b5a-463�
	�0[
�g	field-ids�
�fl-1e8ba8b5a-460��0
[�gpredicate-name�g
field-spec������AAAAAA�fl-1e8ba8b5a-453�fl-1e8ba8b5a-454�fl-1e8ba8b5a-455�fl-1e8ba8b5a-456�fl-1e8ba8b5a-457�fl-1e8ba8b5a-458��0�i�7�=7�7777�7�7�7�7777���+�a�� gand�!+ a�"gstruct?�#+"a�$#�%geq?�&+%a�'g
struct-vtable�(+'a�)(�*A�7��++*d�,&)+�-!$,�.�-�/A7��0+�/d�1gthrow-bad-struct�2
1�3
1�4g%unbox-procedure�5gfree-id�6g
%%on-error�7gm-a33a589db48-1d�87.�98�:fl-a33a589db48-1f�;:�<099;�=87<=7777FTZ^�>+6=a�?5>�@?)�Ag%%type�Bgt-1e8ba8b5a-3a5�Cgt-1e8ba8b5a-3a6�Dgt-1e8ba8b5a-3a7�Egt-1e8ba8b5a-3a8�Fgt-1e8ba8b5a-3a9�Ggt-1e8ba8b5a-3aa�Hgt-1e8ba8b5a-3ab�IBCDEFGH�Jgm-1e8ba8b5a-3ac�KJ.�LKKKKKKK�Mfl-1e8ba8b5a-3b0�Nfl-1e8ba8b5a-3b1�Ofl-1e8ba8b5a-3b2�Pfl-1e8ba8b5a-3b3�Qfl-1e8ba8b5a-3b4�Rfl-1e8ba8b5a-3b5�Sfl-1e8ba8b5a-3b6�TMNOPQRS�U0ILT�Vggetter�Wgindex�XVW�Yfl-1e8ba8b5a-3a3�Zfl-1e8ba8b5a-3a4�[YZ�\0XB[�]���^AAA�_fl-1e8ba8b5a-39e�`fl-1e8ba8b5a-39f�afl-1e8ba8b5a-3a0�b_`a�c0]^b�di7<=7U777\7c���e+Ada�f5e�g(@f)�hgck�igerr�jgs�kij�l88�mfl-a33a589db48-22�nfl-a33a589db48-23�omn�p0klo�q8p7<=7777FTZ^
�r+hqa�sgquote�t+sqa�uAp7<�v+ud�wtv�xw�yg%%index�z+yda�{5z�|(@{)�}fl-a33a589db48-27�~fl-a33a589db48-28�}~��0kl��8�7<=7777FTZ^
��+h�a��+s�a���7<��+
�d���������g%%copier��+�da��5���(@�)��fl-a33a589db48-2c��fl-a33a589db48-2d������0kl���8�7<=7777FTZ^
��+h�a��+s�a��g%%<box>-set-fields��A�7<��+��d���������gt-a33a589db48-1c�����fl-a33a589db48-31�����0�9���8�7<=7777FTZ^
��+,�a��i�7<=7U777\7c����+j�a�����gif��+��a��+%�a��+'�a������A�7<��+�d�������g
struct-ref��+��a���7<��+
�d�������+1�a��+s�a��+�d����������������������A7<��+4�d��geach��))������)����)����)����g%%set-fields��gdummy��gcheck?��gexpr����jV���gm-a33a589db48-38���.���iiii��fl-a33a589db48-3d��fl-a33a589db48-3e��fl-a33a589db48-3f��fl-a33a589db48-40��fl-a33a589db48-41���������0��������fl-a33a589db48-3a�����09����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���.�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������0�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������0]^���i�7�=7�777���
��+��a��A�7���+�d��+�d�����gmap��������glist��g%set-box!-procedure��())��gm-a33a589db48-4c���.��gt-a33a589db48-4a��gt-a33a589db48-4b����������fl-a33a589db48-51��fl-a33a589db48-52������0��������fl-a33a589db48-4e�����09������7�=7777FTZ^
��+,�a��gt-1e8ba8b5a-3e6��gt-1e8ba8b5a-3e7����gm-1e8ba8b5a-3e8�.��fl-1e8ba8b5a-3ec�fl-1e8ba8b5a-3ed��0�gsetter�	IV�
fl-1e8ba8b5a-3e0�fl-1e8ba8b5a-3e1�fl-1e8ba8b5a-3e2�

�0	^
�W�fl-1e8ba8b5a-3d7�fl-1e8ba8b5a-3d8��0B�gfield-specs���fl-1e8ba8b5a-3d3�fl-1e8ba8b5a-3d4��0B�i�7�=777���+ja�gval�+a��+�a� +%a�!+'a�"!�#A�7��$+#d�% "$�&gstruct-set!�'+&a�(�7��)+
(d�*')�++1a�,+sa�-+#d�.,-�/+.�0%*/�1�0�2A7��3+�2d�4gset-record-type-printer!�5gdisplay�6f#<box �7gnumber->string�8gobject-address�9f value: �:gwrite�;f>�C5hh�]4	
54>"G4i4i5>"Ghr]�Cjgvalue
		
gfilenamefsrfi/srfi-111.scm�
	
��		
gnameg%box-procedure�C R4#$'*�h7]C/gt-a33a589db48-3
		
		
C���hT]L6Lga
		gfilenamefsrfi/srfi-111.scm�		
��		C(�hD]L6<gfilenamefsrfi/srfi-111.scm�		
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-111.scm�
	
��		nC5R�����4�>"G	Ɩ i�Rhq]�$��CCigobj
		gfilenamefsrfi/srfi-111.scm�
	
��		gnameg%box?-procedure�C�R4#$'*.h8]C0gt-a33a589db48-10
		
		
C���hT]L6Lga
		gfilenamefsrfi/srfi-111.scm�		
��		C(�hD]L6<gfilenamefsrfi/srfi-111.scm�		
��		
C0h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-111.scm�
	
��		nC5R3hp]�&
�C6hgs
		gfilenamefsrfi/srfi-111.scm�
	
��		gnameg%unbox-procedure�C4R4#$'grxh:]��C2gerr
		gs					C|��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C*�h8]C0gt-a33a589db48-1c
		
		
C���hT]L6Lga
		gfilenamefsrfi/srfi-111.scm�		
��		C(�hD]L6<gfilenamefsrfi/srfi-111.scm�		
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-111.scm�
	
��	�C5R4#�$'������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-111.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R3h �]�&
�C6|gs
		gval		gfilenamefsrfi/srfi-111.scm�
	
��			gnameg%set-box!-procedure�C�R4#$'�1hV]CNgt-a33a589db48-4a
		gt-a33a589db48-4b					C���hT]L6Lga
		gfilenamefsrfi/srfi-111.scm�		
��		C(�hD]L6<gfilenamefsrfi/srfi-111.scm�		
��		
C3h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-111.scm�
	
��		nC5R4ii56789:3;h��]4>"G4445	5>"G4>"G4�&
�"	4	5>"G
6�gbox
		|gport		|gfilenamefsrfi/srfi-111.scm�
		��		 	��		 	
��		 	��		!	��		!	
��		!	��	'	!	
��	.	!	��	7	"	��	;	"	
��	@	"	��	I	#	��	N	#	��	l	#	��	x	$	
��	|	$	��		|	C6�gm
		,grtd
o�gfilenamefsrfi/srfi-111.scm�		
��	-	
��	2		��	:		&��	?	
���	
��b	
��	b
C6srfi/srfi-11.go000064400000016544150536206130007233 0ustar00GOOF----LE-8-2.0L]�4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-11�	�		gfilenameS�	
fsrfi/srfi-11.scm�	gexportsS�	g
let-values�	
glet*-values�	
�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	g_�	gany�	�	�	 geach-any�	! ��	"!��	#"��	$g
syntax-object�	%gcall-with-values�	&gtop�	'&�	(gribcage�	)gbinds�	*gexp�	+gb0�	,gb1�	-)*+,�	.''''�	/fl-46961e50cb-93�	0fl-46961e50cb-94�	1fl-46961e50cb-95�	2fl-46961e50cb-96�	3/012�	4(-.3�	5(�	6gx�	76�	8'�	9fl-46961e50cb-90�	:9�	;(78:�	<'45;�	=ghygiene�	>=�	?$%<>�	@glambda�	A$@<>�	B !��	CB��	D  �	Eglet�	Fgid�	Ggtmp�	HFG�	I''�	Jfl-46961e50cb-af�	Kfl-46961e50cb-b0�	LJK�	M(HIL�	Nglp�	Ogclauses�	Pgids�	Qgtmps�	RNOPQ�	Sfl-46961e50cb-a3�	Tfl-46961e50cb-a4�	Ufl-46961e50cb-a5�	Vfl-46961e50cb-a6�	WSTUV�	X(R.W�	Ygclause�	ZY+,�	['''�	\fl-46961e50cb-9d�	]fl-46961e50cb-9e�	^fl-46961e50cb-9f�	_\]^�	`(Z[_�	a'5M5X`5;�	b$Ea>�	cgmap�	dc�	ec�	fglist�	ggsyntax-violation�	hg�	ig�	jf-source expression failed to match any pattern�	k �	lggenerate-temporaries�	m   �	ngappend�	on�	pn�	qginner�	rq�	sfl-46961e50cb-c7�	ts�	u(r8t�	vgnew-tmp�	wvFG�	xfl-46961e50cb-bf�	yfl-46961e50cb-c0�	zfl-46961e50cb-c1�	{xyz�	|(w[{�	}gvar�	~}*�	fl-46961e50cb-b8��fl-46961e50cb-b9�����(~I���'5u55|�5X`5;��$%�>��$@�>�����geach�������  ����gargs��q���fl-46961e50cb-e2��fl-46961e50cb-e3������(�I���gnew-var��v�FG��fl-46961e50cb-d7��fl-46961e50cb-d8��fl-46961e50cb-d9��fl-46961e50cb-da��������(�.���gvars���*��fl-46961e50cb-d0��fl-46961e50cb-d1������(�I���'5�55��5X`5;��$%�>��$@�>�� �������gdummy��gbody������gm-46961e50cb-104���&���'��fl-46961e50cb-109��fl-46961e50cb-10a������(��������fl-46961e50cb-106�����(7����'�5���$E�>���������� �������gvars-1��g	binding-1��gvars-2��g	binding-2�����������'''''��fl-46961e50cb-10f��fl-46961e50cb-110��fl-46961e50cb-111��fl-46961e50cb-112��fl-46961e50cb-113��fl-46961e50cb-114����������(�����'�5���$%�>��$@�>��$
�>�C5h@r]4	
54>"G4i4i5>"G4#?Ah ^]���CVgbinds
		gexp		gb0			gb1						CCDbefh;]45LL���C3gid
		gtmp					Cijklmp��h8�]4LL�4L5455LC�gnew-tmp
		5gid		5gtmp			5gtmp			5gfilenamefsrfi/srfi-11.scm�		W	'��		W	+��		W	'��		W	��		5	Cijh@�]45LL45$LLO@6�gvar
		=gexp		=gtmp			=gtmp			=gfilenamefsrfi/srfi-11.scm�		S	-��		S	��		=	C�lh �]45��4L5�Cgid
		grest		gfilenamefsrfi/srfi-11.scm�		c	,��		b	+��		a	$��		d	+��		a	$��			Clh0�]	45$LO@45��C�gvars
		0gtmp		0gfilenamefsrfi/srfi-11.scm�
	^	��	!	g	/��	+	f	.��	,	e	'��	/	h	.��		0gnameglp�C�p�h*]C"gid
				C�ho]4L5�Cggid
		
grest		
gfilenamefsrfi/srfi-11.scm�		r	=��		q	7��		
	Cijh@�]45$@45$LO@6~gtmps
		>gtmp		>gtmp		"	>gfilenamefsrfi/srfi-11.scm�
	n	&��		>gnameglp�C��h ?]LC7ginner
		gargs					Cijh`�]4LL�45455OQ4545$LO@6�gnew-tmp
		]gnew-var		]gid			]gtmp			]glp		$	3gtmp		6	]gtmp		A	]gfilenamefsrfi/srfi-11.scm�		k	'��		k	+��		k	'��	$	n	&��	6	k	��		]	CijhP�]OQ45LL45$LLO@6�gvars
		Kgexp		Kglp		
	gtmp		 	Kgtmp		+	Kgfilenamefsrfi/srfi-11.scm�	
	^	��	 	]	��		K	C
h�](045$
LLO@6�45$LO@45$	LO@6�gclauses
	�gids	�gtmps		�gtmp			8gtmp			8gtmp		;�gtmp		F�gtmp		h�gfilenamefsrfi/srfi-11.scm�
	I	��		L		��		M	
��	;	Q	��	;	Q	
��	�	gnameglp�Ch �]OQ6�gclause
		gb0		gb1			glp			gfilenamefsrfi/srfi-11.scm�		I	��		J	��		K	��		I	��			Cijh@t]45$@45$@6lgx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-11.scm�
	C	��		9C5R4
��h?]��C7gdummy
		
gbody		
		
	C����efh(�]45��C�gdummy
		(gvars-1		(g	binding-1			(gvars-2			(g	binding-2			(gbody			(		(	Cijh@]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-11.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgbodyg...gvars-1g	binding-1gvars-2g	binding-2g...gbodyg...C5
RCjgm
		(gfilenamefsrfi/srfi-11.scm�		&
��	)	)
��	.	)	��	6	)	&��	;	)
��	=
C6srfi/srfi-4.go000064400000054423150536206130007153 0ustar00GOOF----LE-8-2.0�X]�4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-4�	�		gfilenameS�	
fsrfi/srfi-4.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	�	gexportsS�	g	u8vector?�	g
make-u8vector�	gu8vector�	gu8vector-length�	gu8vector-ref�	g
u8vector-set!�	gu8vector->list�	glist->u8vector�	g	s8vector?�	g
make-s8vector�	gs8vector�	gs8vector-length�	gs8vector-ref�	g
s8vector-set!�	 gs8vector->list�	!glist->s8vector�	"g
u16vector?�	#gmake-u16vector�	$g	u16vector�	%gu16vector-length�	&g
u16vector-ref�	'gu16vector-set!�	(gu16vector->list�	)glist->u16vector�	*g
s16vector?�	+gmake-s16vector�	,g	s16vector�	-gs16vector-length�	.g
s16vector-ref�	/gs16vector-set!�	0gs16vector->list�	1glist->s16vector�	2g
u32vector?�	3gmake-u32vector�	4g	u32vector�	5gu32vector-length�	6g
u32vector-ref�	7gu32vector-set!�	8gu32vector->list�	9glist->u32vector�	:g
s32vector?�	;gmake-s32vector�	<g	s32vector�	=gs32vector-length�	>g
s32vector-ref�	?gs32vector-set!�	@gs32vector->list�	Aglist->s32vector�	Bg
u64vector?�	Cgmake-u64vector�	Dg	u64vector�	Egu64vector-length�	Fg
u64vector-ref�	Ggu64vector-set!�	Hgu64vector->list�	Iglist->u64vector�	Jg
s64vector?�	Kgmake-s64vector�	Lg	s64vector�	Mgs64vector-length�	Ng
s64vector-ref�	Ogs64vector-set!�	Pgs64vector->list�	Qglist->s64vector�	Rg
f32vector?�	Sgmake-f32vector�	Tg	f32vector�	Ugf32vector-length�	Vg
f32vector-ref�	Wgf32vector-set!�	Xgf32vector->list�	Yglist->f32vector�	Zg
f64vector?�	[gmake-f64vector�	\g	f64vector�	]gf64vector-length�	^g
f64vector-ref�	_gf64vector-set!�	`gf64vector->list�	aglist->f64vector�	b !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aP�	cgset-current-module�	dc�	ec�	fgcond-expand-provide�	ggcurrent-module�	h�	igmake-syntax-transformer�	ji�	ki�	lgdefine-bytevector-type�	mgmacro�	ng$sc-dispatch�	on�	pn�	qg_�	rgany�	sqr��	tg
syntax->datum�	ut�	vt�	wg
datum->syntax�	xw�	yw�	zgbegin�	{gdefine�	|g
symbol-append�	}gvector?�	~gobj�	~��gand��gbytevector?���~��geq?��g
array-type���~��gquote��gmake-��gvector��glen��gfill�������gapply��gmake-srfi-4-vector������g
vector-length��gv�����glet��g/��gbytevector-length������gif��ginteger?������gerror��ffractional length��gelts��glist->�����glet*��glength�������������glp��gi���
����������g<�������gpair?�����������gvector-set!��gcar�����������g1+������gcdr��������������gvector->list��g1-��������������
������gcons��g
vector-ref������gbytevector-��g-ref��g*��gx�������g-set!�����gsyntax-violation��������f-source expression failed to match any pattern��gu8��gs8��gu16��gs16��gu32��gs32��gu64��gs64��gf32��gf64�C5h�H�]4	
b54e>"G4fi4gi5h>"G4klmpsvyz{|}�������������������������������������������������7h�]45�	
45
�
���45�
45�45�45� 45!�"#$4%5&�'�����4(5�")*45�+�,"-.4/50���4/50�41253)4%54�41553)6���4%54�41553)6���
Cgtag
	�ginfix	�gsize		�gfilenamefsrfi/srfi-4.scm�
	J
��		K	��		L	��	
	L	"��		L	��		K	��	-	N	��	1	N	��	5	N	)��	7	N	��	9	K	��	P	P	��	V	P	"��	X	P	��	Z	K	���	U	���	U	"���	U	���	K	���	V		���	V	���	V	$���	V		���	K	���	W	���	W	���	W	*���	W	���	K	���	Y	���	Y	"���	Y	-���	Y	���	K	���	]	���	]	&���	]	���	K	��	`	��	`	"��
	`	��	K	��	a	��	a	,��!	a	��#	K	��:	d	 ��@	d	3��B	d	 ��D	K	��X	e	��^	e	"��`	e	��b	K	��d	f		��h	f	��l	f	+��n	f		��p	K	���	g	���	g	"���	g	���	K	���	h		���	h	���	h	+���	h		���	K	���	i	���	i	"���	i	���	K	���	j		���	j	���	j	+���	j		���	K	��N	�	Chc]	45L4?6[gargs
		gv			gfilenamefsrfi/srfi-4.scm�		J
��		C��h(a]	45$O@6Ygy
		'gtmp		'gfilenamefsrfi/srfi-4.scm�
	J
��		'C5lR���h i]45$45�CCagobj
		gfilenamefsrfi/srfi-4.scm�
	l
��		gnameg	u8vector?�CR��h�-13@xglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	l
��			
gnameg
make-u8vector�CR�����h(�]	45�45$C6}gv
		&glen		&gfilenamefsrfi/srfi-4.scm�
	l
��		T	��		&gnamegu8vector-length�CRhk-136cgelts
			gfilenamefsrfi/srfi-4.scm�
	l
��			


gnamegu8vector�CR�hP�]!4545",�$ �$����"���CC
"����gelts
		Oglen			Ogv			Ogi			Dgelts			Dgfilenamefsrfi/srfi-4.scm�
	l
��		Ognameglist->u8vector�CRh8�]"
�$C���"���45�"����gv
		5gi		$gelts			$gfilenamefsrfi/srfi-4.scm�
	l
��		5gnamegu8vector->list�CRhy]��Cqgv
		
gi		
gfilenamefsrfi/srfi-4.scm�
	l
��		
	gnamegu8vector-ref�CRh�]��C�gv
		
gi		
gx			
gfilenamefsrfi/srfi-4.scm�
	l
��		
	gnameg
u8vector-set!�CRh�]��C�gv
		
gi		
gx			
gfilenamefsrfi/srfi-4.scm�
	l
��		
	gnameg
u8vector-set!�CR���h i]45$45�CCagobj
		gfilenamefsrfi/srfi-4.scm�
	m
��		gnameg	s8vector?�CR��h�-13@xglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	m
��			
gnameg
make-s8vector�CR�����h(�]	45�45$C6}gv
		&glen		&gfilenamefsrfi/srfi-4.scm�
	m
��		T	��		&gnamegs8vector-length�CR!hk-136cgelts
			gfilenamefsrfi/srfi-4.scm�
	m
��			


gnamegs8vector�CR�hP�]!4545",�$ �$����"���CC
"����gelts
		Oglen			Ogv			Ogi			Dgelts			Dgfilenamefsrfi/srfi-4.scm�
	m
��		Ognameglist->s8vector�C!Rh8�]"
�$C���"���45�"����gv
		5gi		$gelts			$gfilenamefsrfi/srfi-4.scm�
	m
��		5gnamegs8vector->list�C Rhy]��Cqgv
		
gi		
gfilenamefsrfi/srfi-4.scm�
	m
��		
	gnamegs8vector-ref�CRh�]��C�gv
		
gi		
gx			
gfilenamefsrfi/srfi-4.scm�
	m
��		
	gnameg
s8vector-set!�CRh�]��C�gv
		
gi		
gx			
gfilenamefsrfi/srfi-4.scm�
	m
��		
	gnameg
s8vector-set!�CR���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	n
��		gnameg
u16vector?�C"R��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	n
��			
gnamegmake-u16vector�C#R�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	n
��	 	T	��		(gnamegu16vector-length�C%R)hl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	n
��			


gnameg	u16vector�C$R�#hX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	n
��		Rgnameglist->u16vector�C)R%h8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	n
��		8gnamegu16vector->list�C(Rhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	n
��			gnameg
u16vector-ref�C&Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	n
��			gnamegu16vector-set!�C'Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	n
��			gnamegu16vector-set!�C'R���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	o
��		gnameg
s16vector?�C*R��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	o
��			
gnamegmake-s16vector�C+R�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	o
��	 	T	��		(gnamegs16vector-length�C-R1hl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	o
��			


gnameg	s16vector�C,R�+hX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	o
��		Rgnameglist->s16vector�C1R-h8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	o
��		8gnamegs16vector->list�C0Rhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	o
��			gnameg
s16vector-ref�C.Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	o
��			gnamegs16vector-set!�C/Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	o
��			gnamegs16vector-set!�C/R���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	p
��		gnameg
u32vector?�C2R��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	p
��			
gnamegmake-u32vector�C3R�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	p
��	 	T	��		(gnamegu32vector-length�C5R9hl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	p
��			


gnameg	u32vector�C4R�3hX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	p
��		Rgnameglist->u32vector�C9R5h8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	p
��		8gnamegu32vector->list�C8Rhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	p
��			gnameg
u32vector-ref�C6Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	p
��			gnamegu32vector-set!�C7Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	p
��			gnamegu32vector-set!�C7R���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	q
��		gnameg
s32vector?�C:R��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	q
��			
gnamegmake-s32vector�C;R�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	q
��	 	T	��		(gnamegs32vector-length�C=RAhl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	q
��			


gnameg	s32vector�C<R�;hX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	q
��		Rgnameglist->s32vector�CAR=h8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	q
��		8gnamegs32vector->list�C@Rhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	q
��			gnameg
s32vector-ref�C>Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	q
��			gnamegs32vector-set!�C?Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	q
��			gnamegs32vector-set!�C?R���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	r
��		gnameg
u64vector?�CBR��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	r
��			
gnamegmake-u64vector�CCR�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	r
��	 	T	��		(gnamegu64vector-length�CERIhl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	r
��			


gnameg	u64vector�CDR�ChX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	r
��		Rgnameglist->u64vector�CIREh8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	r
��		8gnamegu64vector->list�CHRhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	r
��			gnameg
u64vector-ref�CFRh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	r
��			gnamegu64vector-set!�CGRh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	r
��			gnamegu64vector-set!�CGR���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	s
��		gnameg
s64vector?�CJR��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	s
��			
gnamegmake-s64vector�CKR�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	s
��	 	T	��		(gnamegs64vector-length�CMRQhl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	s
��			


gnameg	s64vector�CLR�KhX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	s
��		Rgnameglist->s64vector�CQRMh8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	s
��		8gnamegs64vector->list�CPRhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	s
��			gnameg
s64vector-ref�CNRh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	s
��			gnamegs64vector-set!�CORh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	s
��			gnamegs64vector-set!�COR���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	t
��		gnameg
f32vector?�CRR��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	t
��			
gnamegmake-f32vector�CSR�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	t
��	 	T	��		(gnamegf32vector-length�CURYhl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	t
��			


gnameg	f32vector�CTR�ShX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	t
��		Rgnameglist->f32vector�CYRUh8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	t
��		8gnamegf32vector->list�CXRhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	t
��			gnameg
f32vector-ref�CVRh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	t
��			gnamegf32vector-set!�CWRh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	t
��			gnamegf32vector-set!�CWR���h j]45$45�CCbgobj
		gfilenamefsrfi/srfi-4.scm�
	u
��		gnameg
f64vector?�CZR��h�-13@yglen
			gfill			gfilenamefsrfi/srfi-4.scm�
	u
��			
gnamegmake-f64vector�C[R�����h(�]	45	�45$C	6~gv
		(glen		(gfilenamefsrfi/srfi-4.scm�
	u
��	 	T	��		(gnamegf64vector-length�C]Rahl-136dgelts
			gfilenamefsrfi/srfi-4.scm�
	u
��			


gnameg	f64vector�C\R�[hX�]!4545"/�$#�$	�����"���CC
"����gelts
		Rglen			Rgv			Rgi			Ggelts			Ggfilenamefsrfi/srfi-4.scm�
	u
��		Rgnameglist->f64vector�CaR]h8�]"!
�$C�	���"���45�"��΅gv
		8gi		'gelts			'gfilenamefsrfi/srfi-4.scm�
	u
��		8gnamegf64vector->list�C`Rhz]	��Crgv
		gi		gfilenamefsrfi/srfi-4.scm�
	u
��			gnameg
f64vector-ref�C^Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	u
��			gnamegf64vector-set!�C_Rh�]	��C�gv
		gi		gx			gfilenamefsrfi/srfi-4.scm�
	u
��			gnamegf64vector-set!�C_RC�gm
		,gfilenamefsrfi/srfi-4.scm�		
��	-	G
��	2	G	��	:	G	&��	?	G
���	l
��,	m
���	n
��E	o
��!�	p
��(e	q
��.�	r
��5�	s
��<	t
��B�	u
��	H�
C6srfi/srfi-60.go000064400000004120150536206130007222 0ustar00GOOF----LE-8-2.08]:4h+]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-60�	�		gfilenameS�	
fsrfi/srfi-60.scm�	gexportsS�	gbitwise-and�	
gbitwise-ior�	gbitwise-xor�	gbitwise-not�	g
any-bits-set?�	g
bitwise-if�	g
bitwise-merge�	glog2-binary-factors�	g
first-set-bit�	gbit-set?�	gcopy-bit�	g	bit-field�	gcopy-bit-field�	garithmetic-shift�	grotate-bit-field�	greverse-bit-field�	g
integer->list�	g
list->integer�	gbooleans->integer�	
�	 g
re-exportsS�	!glogand�	"glogior�	#glogxor�	$ginteger-length�	%glogtest�	&glogcount�	'glogbit?�	(gash�	)!"#$%&'(�	*greplacementsS�	+g	bit-count�	,+�	-gset-current-module�	.-�	/-�	0gload-extension�	1g
string-append�	2f	libguile-�	3geffective-version�	4fscm_init_srfi_60�	5glognot�	6gbit-extract�	7gcond-expand-provide�	8gcurrent-module�	9�C5h�]4	
 )*,5	4/>"G40i41i243i554>"G!iR"i
R#iR5iR%iR&i+R5h�]�45��C�gmask
		gn0		gn1			gfilenamefsrfi/srfi-60.scm�
	8
��		9	
��		:	��		:	
��		9	��			gnameg
bitwise-if�CRiRiR'iR6iR6h(�]454
�5���C�gn
		"gnewbits		"gstart			"gend			"gfilenamefsrfi/srfi-60.scm�
	A
��		B	��		C	��		C	0��		C	��		B	��	 	B	��	!	B	��			"	gnamegcopy-bit-field�CR(iR7i48i596�gm
		0gfilenamefsrfi/srfi-60.scm�		
��	1	.
��	6	.	��	<	.	��	=	.	+��	E	.	��	G	/	��	L	.
��	[	1
��	b	2
��	i	3
��	p	4
��	w	5
��	~	6
��W	8
��^	;
��e	=
��l	>
��s	?
���	A
���	F
���	H	���	H	&���	H
��	�
C6srfi/srfi-31.go000064400000004314150536206130007225 0ustar00GOOF----LE-8-2.0�]O4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-31�	�		gfilenameS�	
fsrfi/srfi-31.scm�	gexportsS�	grec�	
�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	gany�	��	geach-any�	��	��	 g
syntax-object�	!gletrec�	"gtop�	#"�	$gribcage�	%gdummy�	&gname�	'gformals�	(gbody�	)%&'(�	*gm-46961e5115-0�	+*"�	,+###�	-fl-46961e5115-5�	.fl-46961e5115-6�	/fl-46961e5115-7�	0fl-46961e5115-8�	1-./0�	2$),1�	3$�	4gx�	54�	6+�	7fl-46961e5115-2�	87�	9$568�	:#239�	;ghygiene�	<;�	= !:<�	>glambda�	? >:<�	@�	Agexpr�	B%&A�	C+##�	Dfl-46961e5115-f�	Efl-46961e5115-10�	Ffl-46961e5115-11�	GDEF�	H$BCG�	I#H39�	J !I<�	Kgsyntax-violation�	LK�	MK�	Nf-source expression failed to match any pattern�C5hr]4	

54>"G4i4i5>"G4=?h f]��C^gdummy
		gname		gformals			gbody						C@JhQ]CIgdummy
		gname		gexpr						CMNh@I]45$@45$@6Agx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-31.scm�
		��		9g
documentationfXReturn the given object, defined in a lexical environment where
NAME is bound to itself.�g
macro-typegsyntax-rules�gpatternsgnamegformals�gbodyg...gnamegexprC5RCjgm
		(gfilenamefsrfi/srfi-31.scm�		
��	)	
��	.		��	6		&��	;	
��	
C6srfi/srfi-2.go000064400000001173150536206130007143 0ustar00GOOF----LE-8-2.0c]4h{]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-2�	�		gfilenameS�	
fsrfi/srfi-2.scm�	gimportsS�	gice-9�	
gand-let-star�	
�	�	�	g
re-exportsS�	gand-let*�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�C5h@i]4	
54>"Gi4i56agm
		,gfilenamefsrfi/srfi-2.scm�		
��	1		��	9		&��	;	
��		;
C6srfi/srfi-69.go000064400000133275150536206130007251 0ustar00GOOF----LE-8-2.0��]W4h�R]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-69�	�		gfilenameS�	
fsrfi/srfi-69.scm�	gimportsS�	gsrfi-1�	
�	
�	gsrfi-9�	�	�	gsrfi-13�	�	�	gice-9�	goptargs�	�	�	�	gexportsS�	gmake-hash-table�	ghash-table?�	galist->hash-table�	ghash-table-equivalence-function�	ghash-table-hash-function�	 ghash-table-ref�	!ghash-table-ref/default�	"ghash-table-set!�	#ghash-table-delete!�	$ghash-table-exists?�	%ghash-table-update!�	&ghash-table-update!/default�	'ghash-table-size�	(ghash-table-keys�	)ghash-table-values�	*ghash-table-walk�	+ghash-table-fold�	,ghash-table->alist�	-ghash-table-copy�	.ghash-table-merge!�	/gstring-ci-hash�	0ghash-by-identity�	1 !"#$%&'()*+,-./0�	2g
re-exportsS�	3gstring-hash�	43�	5greplacementsS�	6ghash�	76�	8gset-current-module�	98�	:8�	;gcond-expand-provide�	<gcurrent-module�	=�	>gmake-syntax-transformer�	?>�	@>�	Aghashx-invoke�	Bgmacro�	Cg$sc-dispatch�	DC�	EC�	Fg_�	Ggany�	HFG��	Ig
syntax->datum�	JI�	KI�	Lg
datum->syntax�	ML�	NL�	Og
ht-associator�	Pg
ht-real-table�	Qgsyntax-violation�	RQ�	SQ�	Tf-source expression failed to match any pattern�	Ugwith-hashx-values�	Vglet�	Wgfirst�	Xgsecond�	Ygthird�	Zgmost-positive-fixnum�	[gcaller-with-default-size�	\6�	]6�	^gstring-hash-ci�	_ghashq�	`gsrfi-69:hash-table�	ag"%make-srfi-69-hash-table-procedure�	bgmake-srfi-69-hash-table�	cFGGGGGG�	dg
syntax-object�	eglambda�	fgm-46961e518c-31�	ggtop�	hfg�	igribcage�	jgt-46961e518c-2b�	kgt-46961e518c-2c�	lgt-46961e518c-2d�	mgt-46961e518c-2e�	ngt-46961e518c-2f�	ogt-46961e518c-30�	pjklmno�	qhhhhhh�	rfl-46961e518c-36�	sfl-46961e518c-37�	tfl-46961e518c-38�	ufl-46961e518c-39�	vfl-46961e518c-3a�	wfl-46961e518c-3b�	xrstuvw�	yipqx�	zi�	{gx�	|{�	}h�	~fl-46961e518c-33�	~��i|}��gshift��g	proc-name��gargs������g������fl-1e8ba8b5a-2ba��fl-1e8ba8b5a-2bb������i�����gkey��gvalue��gname��gformals��gbody����������������fl-1e8ba8b5a-2ad��fl-1e8ba8b5a-2ae��fl-1e8ba8b5a-2af��fl-1e8ba8b5a-2b0��fl-1e8ba8b5a-2b1���������i�����gmake-procedure-name��������fl-1e8ba8b5a-29d�����i��������fl-1e8ba8b5a-29c�����i|����hyz��zzzz����
��ghygiene�����de����g
real-table���yz������d�����g
associator��d�����gsize��d�����gweakness��d�����gequivalence-function��d�����g
hash-function��d�������������gmake-struct��gm-46961e518c-29���g��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���g�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������i�����g	ctor-args�����fl-1e8ba8b5a-37a�����i�����gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������i�����gform��g	type-name��gconstructor-spec��gfield-names��������������fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������i�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers����������������������fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������i�����fl-1e8ba8b5a-334�����i|�����yz��z�zzz��z�����d�����d`����d
�������������	�������geach-any��F����Q��Q��fWrong number of arguments��gidentifier?������z��da��grecord-type-vtable���gpwpwpwpwpwpw�gdefault-record-printer�	�
��������gset-struct-vtable-name!�
��gvtable-offset-user���g%hash-table?-procedure�FG�gm-46961e518c-48�g�gt-46961e518c-47���fl-46961e518c-4d��i�fl-46961e518c-4a��i|�z�zzzz����
� de��!gobj�"gt-1e8ba8b5a-47e�#gt-1e8ba8b5a-478�$gt-1e8ba8b5a-479�%gt-1e8ba8b5a-47a�&gt-1e8ba8b5a-47d�'gt-1e8ba8b5a-47c�(gt-1e8ba8b5a-47b�)"#$%&'(�*gm-1e8ba8b5a-47f�+*g�,+++++++�-fl-1e8ba8b5a-483�.fl-1e8ba8b5a-484�/fl-1e8ba8b5a-485�0fl-1e8ba8b5a-486�1fl-1e8ba8b5a-487�2fl-1e8ba8b5a-488�3fl-1e8ba8b5a-489�4-./0123�5i),4�6g	copier-id�76�8fl-1e8ba8b5a-476�98�:i7�9�;g	ctor-name�<;�=fl-1e8ba8b5a-46e�>=�?i<�>�@��Afl-1e8ba8b5a-46c�BA�Ci@�B�Dglayout�ED�Ffl-1e8ba8b5a-46a�GF�HiE�G�Ig
immutable?�JI�Kfl-1e8ba8b5a-468�LK�MiJ�L�Ngfield-count�ON�Pfl-1e8ba8b5a-466�QP�RiO�Q�Sg
getter-ids�TS�Ufl-1e8ba8b5a-463�VU�WiT�V�Xg	field-ids�YX�Zfl-1e8ba8b5a-460�[Z�\iY�[�]gpredicate-name�^g
field-spec�_I���]^�`�������afl-1e8ba8b5a-453�bfl-1e8ba8b5a-454�cfl-1e8ba8b5a-455�dfl-1e8ba8b5a-456�efl-1e8ba8b5a-457�ffl-1e8ba8b5a-458�gabcdef�hi_`g�i�z�z5zzzz:z?zCzHzMzRzWz\h���jd!i��kj�lgand�mdli��ngstruct?�odni��poj�qgeq?�rdqi��sg
struct-vtable�tdsi��utj�v�z�wd`v��xruw�ympx�z ky�{�z�|d{��}gthrow-bad-struct�~}�}��g%ht-real-table-procedure��gfree-id��g
%%on-error��gm-46961e518c-54���g�����fl-46961e518c-56�����i|�����z��zzzz������d����������G��g%%type��gt-1e8ba8b5a-3a5��gt-1e8ba8b5a-3a6��gt-1e8ba8b5a-3a7��gt-1e8ba8b5a-3a8��gt-1e8ba8b5a-3a9��gt-1e8ba8b5a-3aa��gt-1e8ba8b5a-3ab�����������gm-1e8ba8b5a-3ac���g�����������fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6�����������i�����ggetter��gindex������fl-1e8ba8b5a-3a3��fl-1e8ba8b5a-3a4������i������S6�������fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0�������i������z��z�zzz�z�����d���������F��G��gck��gerr��gs����������fl-46961e518c-59��fl-46961e518c-5a������i�������z��zzzz����
��d�����gquote��d�������z���d`�����������g%%index��d���������F��G��fl-46961e518c-5e��fl-46961e518c-5f������i�������z��zzzz����
��d�����d������z���d
�����������g%%copier��d���������F��G��fl-46961e518c-63��fl-46961e518c-64������i�������z��zzzz����
��d�����d�����g%%srfi-69:hash-table-set-fields����z���d������������gt-46961e518c-53�����fl-46961e518c-68�����i�������z��zzzz����
��de������z��z�zzz�z�����d��������gif��d�����dq����ds����������z���d`���������g
struct-ref��d������z���d
���������d}����d�����dP���������������������z��d���g%ht-associator-procedure�gm-46961e518c-6f�g��fl-46961e518c-71�	�
i|	�z
�zzzz�����d���
��
G��z
�z�zzz�z����d�����FG��fl-46961e518c-74�fl-46961e518c-75��i��z
�zzzz����
�d���d����z
�d`����d��� ��!F G�"fl-46961e518c-79�#fl-46961e518c-7a�$"#�%i�$�&%z
�zzzz����
�'d�&��(d�&��)%z
�*d)��+(*�,+�-d���.�-�/F.G�0fl-46961e518c-7e�1fl-46961e518c-7f�201�3i�2�43z
�zzzz����
�5d�4��6d�4��7�3z
�8d�7��968�:9�;gt-46961e518c-6e�<;�=fl-46961e518c-83�>=�?i<>�@?z
�zzzz����
�Ade@��B�?z
�z�zzz�z����Cd�B��DC�Ed�B��FdqB��GdsB��HGC�I�?z
�Jd`I��KFHJ�Ld�B��M?z
�NdM��OLCN�Pd}B��Qd�B��RdOI��SQR�TPCS�UEKOT�VADU�W�z
�XdW��Yght-size�Zg%ht-size-procedure�[gm-46961e518c-8a�\[g�]\�^fl-46961e518c-8c�_^�`i|]_�a\z`�zzzz�����bd�a��c�b�dcG�e�z`�z�zzz�z����fd�e��g�f�hFdgG�i\\�jfl-46961e518c-8f�kfl-46961e518c-90�ljk�mi�il�n\mz`�zzzz����
�od�n��pd�n��q�mz`�rd`q��spr�ts�ud�e��v�u�wFdvG�xfl-46961e518c-94�yfl-46961e518c-95�zxy�{i�iz�|\{z`�zzzz����
�}d�|��~d�|��{z`��d	���~������d�e�������Fd�G��fl-46961e518c-99��fl-46961e518c-9a������i�i���\�z`�zzzz����
��d�����d�������z`��d������������gt-46961e518c-89�����fl-46961e518c-9e�����i�]���\�z`�zzzz����
��de������z`�z�zzz�z�����d��������d�����dq����ds����������z`��d`���������d������z`��d	���������d}����d�����dY�������������������������z`��dZ����ght-weakness��g%ht-weakness-procedure��gm-46961e518c-a5���g�����fl-46961e518c-a7�����i|�����z��zzzz������d����������G���z��z�zzz�z�����d���������F��G������fl-46961e518c-aa��fl-46961e518c-ab������i�������z��zzzz����
��d�����d�������z���d`�����������d���������F��G��fl-46961e518c-af��fl-46961e518c-b0������i�������z��zzzz����
��d�����d������z���d	�����������d���������F��G��fl-46961e518c-b4��fl-46961e518c-b5������i�������z��zzzz����
��d�����d�������z���d������������gt-46961e518c-a4�����fl-46961e518c-b9�����i�������z��zzzz����
��de������z��z�zzz�z�����d��������d�����dq����ds����������z���d`���������d������z���d	���������d}����d�����d��������������������z��d���g*%hash-table-equivalence-function-procedure�gm-46961e518c-c0�g��	fl-46961e518c-c2�
	�i|
�z�zzzz�����
d����
�G��z�z�zzz�z����d�����FG��fl-46961e518c-c5�fl-46961e518c-c6��i��z�zzzz����
�d���d����z�d`���� d���!� �"F!G�#fl-46961e518c-ca�$fl-46961e518c-cb�%#$�&i�%�'&z�zzzz����
�(d�'��)d�'��*&z�+d	*��,)+�-,�.d���/�.�0F/G�1fl-46961e518c-cf�2fl-46961e518c-d0�312�4i�3�54z�zzzz����
�6d�5��7d�5��8�4z�9d�8��:79�;:�<gt-46961e518c-bf�=<�>fl-46961e518c-d4�?>�@i=?�A@z�zzzz����
�BdeA��C�@z�z�zzz�z����Dd�C��ED�Fd�C��GdqC��HdsC��IHD�J�@z�Kd`J��LGIK�Md�C��N@z�Od	N��PMDO�Qd}C��Rd�C��SdJ��TRS�UQDT�VFLPU�WBEV�X�z�YdX��Zg#%hash-table-hash-function-procedure�[gm-46961e518c-db�\[g�]\�^fl-46961e518c-dd�_^�`i|]_�a\z`�zzzz�����bd�a��c�b�dcG�e�z`�z�zzz�z����fd�e��g�f�hFdgG�i\\�jfl-46961e518c-e0�kfl-46961e518c-e1�ljk�mi�il�n\mz`�zzzz����
�od�n��pd�n��q�mz`�rd`q��spr�ts�ud�e��v�u�wFdvG�xfl-46961e518c-e5�yfl-46961e518c-e6�zxy�{i�iz�|\{z`�zzzz����
�}d�|��~d�|��{z`��d	���~������d�e�������Fd�G��fl-46961e518c-ea��fl-46961e518c-eb������i�i���\�z`�zzzz����
��d�����d�������z`��d������������gt-46961e518c-da�����fl-46961e518c-ef�����i�]���\�z`�zzzz����
��de������z`�z�zzz�z�����d��������d�����dq����ds����������z`��d`���������d������z`��d	���������d}����d�����d�������������������������z`��dZ����geach��GG������G����G����G����g%%set-fields��gdummy��gcheck?��gexpr���������gm-46961e518c-f6���g���������fl-46961e518c-fb��fl-46961e518c-fc��fl-46961e518c-fd��fl-46961e518c-fe��fl-46961e518c-ff���������i��������fl-46961e518c-f8�����i|����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���g�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������i�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������i�������z��z�zzz���
��d�������z���d`����dP����dO����dY����d�����d����d������������gmap��������glist��ght-size!��g%ht-size!-procedure��FGG��gm-46961e518c-10a���g��gt-46961e518c-108��gt-46961e518c-109����������fl-46961e518c-10f��fl-46961e518c-110������i��������fl-46961e518c-10c�����i|������z��zzzz����
��de����gt-1e8ba8b5a-3e6��gt-1e8ba8b5a-3e7������gm-1e8ba8b5a-3e8���g����fl-1e8ba8b5a-3ec�fl-1e8ba8b5a-3ed��i��gsetter����fl-1e8ba8b5a-3e0�fl-1e8ba8b5a-3e1�	fl-1e8ba8b5a-3e2�
	�i�
�^��
fl-1e8ba8b5a-3d7�fl-1e8ba8b5a-3d8�
�i��gfield-specs���fl-1e8ba8b5a-3d3�fl-1e8ba8b5a-3d4��i����z��zzz���d���gval�d���d���dq��ds��� ��z��!d` ��"!�#gstruct-set!�$d#��%�z��&d	%��'$&�(d}��)d���*d� ��+)*�,(+�-"',�.�-�/�z��0d�/��1gequal?�2geqv?�3ghashv�4gstring=?�5gstring-ci=?�6gguess-hash-function�7greverse!�8gkeyword?�9gwithout-keyword-args�:�;�<gmake-weak-key-hash-table�=gmake-weak-value-hash-table�>gkey-or-value�?gmake-doubly-weak-hash-table�@gerror�AfInvalid weak hash table type�Bg
guile-ht-ctor�Cgassoc�DC�EC�Fgassq�Ggassv�Hgequivalence-proc->associator�IgweakS�JI	��KJ�Lgfor-each�Mghashx-get-handle�Ng
hashx-set!�Ofht-value�Pght-unspecified�Qg	hashx-ref�RfKey not in table�Sghashx-create-handle!�Tg
hashx-remove!�Ug	hash-fold�Vg
alist-cons�C5h�]�]4	
1245754:>"G4;i4<i5=>"G4@ABEHKNOPh(�-13����C�g
hashx-proc
			'ght-var			'gargs				'gfilenamefsrfi/srfi-69.scm�
	a
��	
	d	��			'	
	Chd]	45L4?6\gargs
		gv			gfilenamefsrfi/srfi-69.scm�		a
��		CSTh(!]	45$O@6gy
		'gtmp		'gfilenamefsrfi/srfi-69.scm�
	a
��		'g
documentationfrInvoke HASHX-PROC, a `hashx-*' procedure taking a hash-function,
assoc-function, and the hash-table as first args.�g
macro-typegdefmacro�g
defmacro-argsgargsC5AR4@UBEHKNVWXOYPhH�-13454545��C�gbindings
			Fght-var			Fg
body-forms				Fgfilenamefsrfi/srfi-69.scm�
	i
��		l	��		l	��		l	��		m	��	%	l	��	.	n	��	6	l	��				F	
	Chd]	45L4?6\gargs
		gv			gfilenamefsrfi/srfi-69.scm�		i
��		CSTh(]	45$O@6
gy
		'gtmp		'gfilenamefsrfi/srfi-69.scm�
	i
��		'g
documentationffBind BINDINGS to the hash-function, associator, and real-table of
HT-VAR, while evaluating BODY-FORMS.�g
macro-typegdefmacro�g
defmacro-argsgargsC5URZh o-.,3#L6ggobj
		gsize		gfilenamefsrfi/srfi-69.scm�
	z	��		{	��		Ch]OC�ghash-fn
		
gfilenamefsrfi/srfi-69.scm�
	w
��		
gnamegcaller-with-default-size�g
documentationfnAnswer a function that makes `most-positive-fixnum' the default
second argument to HASH-FN, a 2-arg procedure.�C[R4[i]56R^i/R4[i_i50R`h]�Cg
real-table
		g
associator		gsize			gweakness			gequivalence-function			g
hash-function			gfilenamefsrfi/srfi-69.scm�
�
��			gnameg"%make-srfi-69-hash-table-procedure�CaR4@bBEc�h�]C�gt-46961e518c-2b
		gt-46961e518c-2c		gt-46961e518c-2d			gt-46961e518c-2e			gt-46961e518c-2f			gt-46961e518c-30						C��b�hT]L6Lga
		gfilenamefsrfi/srfi-69.scm�	�
��		CFhD]L6<gfilenamefsrfi/srfi-69.scm�	�
��		
Ch]C		
CSThp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-69.scm�
�
��		nC5bR
`�4`>"G	�ai�`R`hx]�$��CCpgobj
		gfilenamefsrfi/srfi-69.scm�
�
��		gnameg%hash-table?-procedure�CR4@BEzh7]C/gt-46961e518c-47
		
		
C���hT]L6Lga
		gfilenamefsrfi/srfi-69.scm�	�
��		CFhD]L6<gfilenamefsrfi/srfi-69.scm�	�
��		
C|h]C		
CSThp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-69.scm�
�
��		nC5R`Phx]�&
�C6pgs
		gfilenamefsrfi/srfi-69.scm�
�
��		gnameg%ht-real-table-procedure�C�R4@PBE���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch7]C/gt-46961e518c-53
		
		
C��P�hT]L6Lga
		gfilenamefsrfi/srfi-69.scm�	�
��		CFhD]L6<gfilenamefsrfi/srfi-69.scm�	�
��		
Ch]C		
CSTh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-69.scm�
�
��	�C5PR`Ohx]�&�C6pgs
		gfilenamefsrfi/srfi-69.scm�
�
��		gnameg%ht-associator-procedure�CR4@OBEh:]��C2gerr
		gs					C!',h:]��C2gerr
		gs					C/5:h:]��C2gerr
		gs					CVh7]C/gt-46961e518c-6e
		
		
C��O�hT]L6Lga
		gfilenamefsrfi/srfi-69.scm�	�
��		CFhD]L6<gfilenamefsrfi/srfi-69.scm�	�
��		
CXh]C		
CSTh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-69.scm�
�
��	�C5OR`Yh r]�&	�C6jgs
		gfilenamefsrfi/srfi-69.scm�
�
��		gnameg%ht-size-procedure�CZR4@YBEhoth:]��C2gerr
		gs					Cw}�h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h7]C/gt-46961e518c-89
		
		
C��Y�hT]L6Lga
		gfilenamefsrfi/srfi-69.scm�	�
��		CFhD]L6<gfilenamefsrfi/srfi-69.scm�	�
��		
C�h]C		
CSTh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-69.scm�
�
��	�C5YR`�h v]�&	�C6ngs
		gfilenamefsrfi/srfi-69.scm�
�
��		gnameg%ht-weakness-procedure�C�R4@�BE���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch7]C/gt-46961e518c-a4
		
		
C����hT]L6Lga
		gfilenamefsrfi/srfi-69.scm�	�
��		CFhD]L6<gfilenamefsrfi/srfi-69.scm�	�
��		
Ch]C		
CSTh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-69.scm�
�
��	�C5�R`h �]�&	�C6�gs
		gfilenamefsrfi/srfi-69.scm�
�
��		gnameg*%hash-table-equivalence-function-procedure�CR4@BEh:]��C2gerr
		gs					C"(-h:]��C2gerr
		gs					C06;h:]��C2gerr
		gs					CWh7]C/gt-46961e518c-bf
		
		
C���hT]L6Lga
		gfilenamefsrfi/srfi-69.scm�	�
��		CFhD]L6<gfilenamefsrfi/srfi-69.scm�	�
��		
CYh]C		
CSTh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-69.scm�
�
��	�C5R`h �]�&	�C6{gs
		gfilenamefsrfi/srfi-69.scm�
�
��		gnameg#%hash-table-hash-function-procedure�CZR4@BEhoth:]��C2gerr
		gs					Cw}�h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h7]C/gt-46961e518c-da
		
		
C���hT]L6Lga
		gfilenamefsrfi/srfi-69.scm�	�
��		CFhD]L6<gfilenamefsrfi/srfi-69.scm�	�
��		
C�h]C		
CSTh��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-69.scm�
�
��	�C5R4@�BE������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						CSTh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-69.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R`�h �]�&	�C6|gs
		gval		gfilenamefsrfi/srfi-69.scm�
�
��			gnameg%ht-size!-procedure�C�R4@�BE�.hV]CNgt-46961e518c-108
		gt-46961e518c-109					C����hT]L6Lga
		gfilenamefsrfi/srfi-69.scm�	�
��		CFhD]L6<gfilenamefsrfi/srfi-69.scm�	�
��		
C0h]C		
CSThp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-69.scm�
�
��		nC5�R1]q_23435/h@]&C&C&C&C	&
CC�g
equal-proc
		<gfilenamefsrfi/srfi-69.scm�
�
��	
�	��		<gnamegguess-hash-function�g
documentationflGuess a hash function for EQUAL-PROC, falling back on `hash', as
specified in SRFI-69 for `make-hash-table'.�C6R78WhP�]"?(64455$��"���45��"���"����g	rest-list
		Pgacc		Eg	rest-list			Egfilenamefsrfi/srfi-69.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	"�	��	'�	��	0�	��	1�	��	:�	��	=�	1��	E�	��	E�	��	F�	��	P�	��		Pgnamegwithout-keyword-args�g
documentationfMAnswer REST-LIST with all keywords removed along with items that
follow them.�C9R;�<�=>?@A
h@�]�$C�$C�$C�$C	6�gweakness
		9gfilenamefsrfi/srfi-69.scm�
�
��	
�	��	5�	��	9�	
��		9gnameg
guile-ht-ctor�g
documentationf7Answer the Guile HT constructor for the given WEAKNESS.�CBR14EqF2GChs]L6kgitem
		galist		gfilenamefsrfi/srfi-69.scm�
�	��	�	��			C	h@]&"�$C&C&COCg
equal-proc
		9gfilenamefsrfi/srfi-69.scm�
�
��	
�		��	�	
��	�	
��	�	��		9gnamegequivalence-proc->associator�g
documentationf^Answer an `assoc'-like procedure that compares the argument key to
alist keys with EQUAL-PROC.�CHRK16B9H`hh�-/023##	45#44545?45
�C�g
equal-proc
		gg	hash-proc		ggweak			gg
guile-opts			gg
real-table		R	gg
associator		R	ggfilenamefsrfi/srfi-69.scm�
�
��	)�	��	;�	��	<�	
��	C�	��	K�	��	L�	��	R�	��			g
		gweakS	�gnamegmake-hash-table�g
documentationf�Answer a new hash table using EQUAL-PROC as the comparison
function, and HASH-PROC as the hash function.  See the reference
manual for specifics, of which there are many.�CR`YOPLMNh0�]	4LLL�5$CM�NLLL��6�gpair
		/ghandle		/gfilenamefsrfi/srfi-69.scm�
�	��	�	 ��	�	=��	�	 ��	�	��	�	��	�	&��	�	��	*�	'��	-�	2��	/�	��		/C�h��-134?�&		�"	45H�&		�"	45�&�"	45�&
�"	454	O>"GJ�&	�"4
>"GC�galist
		�gmht-args		�gresult		�gsize		-�g	hash-proc		~�g
associator		~�g
real-table		~�gval	��gfilenamefsrfi/srfi-69.scm�
�
��	
�	��	�	��	�	��	-�	��	~�	����	����	��			�
gnamegalist->hash-table�g
documentationf4Convert ALIST to a hash table created with MHT-ARGS.�CRO�PRQ`OPPW@Rh��-134�&		�"	45�&�"	45�&
�"	455&�$	456	
6C�ght
		�gkey		�gdefault-thunk-lst			�gresult		a�gfilenamefsrfi/srfi-69.scm�
�
��	
�	��	a�	��	k�	��	n�	��	r�	��	s�	
��	{�	��	�	����	��		�	
	gnameghash-table-ref�g
documentationf�Lookup KEY in HT and answer the value, invoke DEFAULT-THUNK if KEY
isn't present, or signal an error if DEFAULT-THUNK isn't provided.�C RQ`OPh`]�&		�"	45�&�"	45�&
�"	456ght
		Ygkey		Ygdefault			Ygfilenamefsrfi/srfi-69.scm�
�
��	Y�	��		Y	gnameghash-table-ref/default�g
documentationfLLookup KEY in HT and answer the value.  Answer DEFAULT if KEY isn't
present.�C!RS`OPPY�
h�@]4�&		�"	45�&�"	45�&
�"	455�&N�&		�"	45��&	�"4	>"G"�C8ght
	�gkey	�g	new-value		�ghandle		Z�gval	��gfilenamefsrfi/srfi-69.scm�
�
��	�	��	Z�	��	a�	��	e�	��	h�	����	����	����	��
	�	gnameghash-table-set!�g
documentationfSet KEY to NEW-VALUE in HT.�C"R`OPMY�T
h�G]"�&		�"	45�&�"	45�&
�"	4545$f�&		�"	45��&	�"4>"G4	>"G"C?ght
	�gkey	�gh		Q�ga		Q�greal-ht		Q�gval	��gfilenamefsrfi/srfi-69.scm�
�
��	Q�	��	X�	��	h�	��	k�	����	����	
����	
��		�	gnameghash-table-delete!�g
documentationfRemove KEY's association in HT.�C#RM`OPh`�]4�&		�"	45�&�"	45�&
�"	455$CC�ght
		`gkey		`gfilenamefsrfi/srfi-69.scm�
�
��		��	\	��		`	gnameghash-table-exists?�g
documentationf"Return whether KEY is a key in HT.�C$R`OPMN@RY�h�-13	�&		�"	45�&�"	45�&
�"	4545$4�5�"�4�$44�55"4	5>"G�&		�"	4
5��&	�"4>"GC�ght
		gkey		gmodifier			gdefault-thunk-lst			g	hash-proc		Xg
associator		Xg
real-table		Xghandle		kgval	�	gfilenamefsrfi/srfi-69.scm�

��	X
	��	_	��	k	��	s	��	v
	��	{
	(��	}
	��	~
	
���	
���	���	���	���	'���	(���	'���	���	���	$���	���	
���	���	���	
��			
	gnameghash-table-update!�g
documentationf�Modify HT's value at KEY by passing its value to MODIFIER and
setting it to the result thereof.  Invoke DEFAULT-THUNK for the old
value if KEY isn't in HT, or signal an error if DEFAULT-THUNK is not
provided.�C%R%hD]LC<gfilenamefsrfi/srfi-69.scm�
	&��		
Ch^]O6Vght
		gkey		gmodifier			gdefault			gfilenamefsrfi/srfi-69.scm�

��		��			gnameghash-table-update!/default�g
documentationf�Modify HT's value at KEY by passing its old value, or DEFAULT if it
doesn't have one, to MODIFIER, and setting it to the result thereof.�C&R`�+h}]�Cugk
		gv		gans			gfilenamefsrfi/srfi-69.scm�
!	��	!	,��			CYhH-]�&		�"	45$	
6�&	�C6%ght
		Agfilenamefsrfi/srfi-69.scm�

��	 	��	! 	��	*!	��	-"	��		Agnameghash-table-size�g
documentationf�Return the number of associations in HT.  This is guaranteed O(1)
for tables where #:weak was #f or not specified at creation time.�C'R+h}]�Cugk
		gv		glst			gfilenamefsrfi/srfi-69.scm�
&	��	&	(��			Ch�]6�ght
		gfilenamefsrfi/srfi-69.scm�
$
��		&	6��	&	��		gnameghash-table-keys�g
documentationf Return a list of the keys in HT.�C(R+h}]�Cugk
		gv		glst			gfilenamefsrfi/srfi-69.scm�
*	��	*	(��			Ch�]6�ght
		gfilenamefsrfi/srfi-69.scm�
(
��		*	6��	*	��		gnameghash-table-values�g
documentationf"Return a list of the values in HT.�C)R+h�]4L>GC�gk
		gv		gunspec			gvals			gfilenamefsrfi/srfi-69.scm�
.	��	/	5��	/	��			Ch�]O6�ght
		gproc		gfilenamefsrfi/srfi-69.scm�
,
��	.	��			gnameghash-table-walk�g
documentationf3Call PROC with each key and value as two arguments.�C*RU`Ph(Z]�&
�"	456Rght
		$gf		$gknil			$gfilenamefsrfi/srfi-69.scm�
3
��	7	��	$7	��		$	gnameghash-table-fold�g
documentationf�Invoke (F KEY VAL PREV) for each KEY and VAL in HT, where PREV is
the result of the previous invocation, using KNIL as the first PREV.
Answer the final F result.�C+R+Vh�]6�ght
		gfilenamefsrfi/srfi-69.scm�
9
��		;	!��	;	��		gnameghash-table->alist�g
documentationfReturn an alist for HT.�C,R`OP'�BUNh}]LLL6ugk
		gv		gign			gfilenamefsrfi/srfi-69.scm�
B	��	B	#��			Ch��]9�&		�"	45�&�"	45�&
�"	4545�&		�"	4544554	
O>"G�&		�"	45�C�ght
	�gh	Q�ga		Q�greal-ht		Q�gsize		^�gweak		{�gnew-real-ht	��gequivalence-function	��gfilenamefsrfi/srfi-69.scm�
=
��	Q?	��	X@	��	^@	��	c@	-��	{@	��	~A	��	A	���A	���@	���B	���F	���D	��	�gnameghash-table-copy�g
documentationfAnswer a copy of HT.�C-R+"h}]L6ugk
		gv		gign			gfilenamefsrfi/srfi-69.scm�
L	��	L	��			Ch ]4O>"GC�ght
		gother-ht		gfilenamefsrfi/srfi-69.scm�
H
��	K	��			gnameghash-table-merge!�g
documentationf`Add all key/value pairs from OTHER-HT to HT, overriding HT's
mappings where present.  Return HT.�C.RC�gm
		4grtd
��gfilenamefsrfi/srfi-69.scm�		D
��	5	Z
��	:	Z	��	B	Z	&��	G	Z
���	w
���	}	
��	}
��	
���	���
��	S�
��3��
��5��
��78�
��9Q�
��;��
��?��
��?��	+��?��	��?��
��A��
��C��
��E��
��G��
��II�
��M�
��Oi
��Q�
��S$
��Tw(
��V/,
��W�3
��X�9
��[�=
��]�H
��%	]�
C6srfi/srfi-88.go000064400000002574150536206130007247 0ustar00GOOF----LE-8-2.0d]$4hC]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-88�	�		gfilenameS�	
fsrfi/srfi-88.scm�	gexportsS�	gkeyword->string�	
gstring->keyword�	
�	g
re-exportsS�	gkeyword?�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	gread-options�	�	�	gappend�	�	�	gkeywords�	gpostfix�	 gsymbol->string�	!gkeyword->symbol�	"gsymbol->keyword�	#gstring->symbol�C5h@�]4	
54>"G4i4i5>"G44455>"G !h�]456�gk
		
gfilenamefsrfi/srfi-88.scm�
	(
��		*	��	
	*	��		
gnamegkeyword->string�g
documentationf'Return the name of @var{k} as a string.�CR"#h�]456�gs
		
gfilenamefsrfi/srfi-88.scm�
	,
��		.	��	
	.	��		
gnamegstring->keyword�g
documentationf0Return the keyword object whose name is @var{s}.�C
RC�gm
		,gfilenamefsrfi/srfi-88.scm�		
��	-	 
��	2	 	��	:	 	&��	?	 
��	H	&	��	V	&	��	Y	&	��N	(
��7	,
��	9
C6srfi/srfi-39.go000064400000002504150536206130007234 0ustar00GOOF----LE-8-2.0,]4h]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-39�	�		gfilenameS�	
fsrfi/srfi-39.scm�	gexportsS�	gwith-parameters*�	
�	g
re-exportsS�	gmake-parameter�	gparameterize�	gcurrent-input-port�	gcurrent-output-port�	gcurrent-error-port�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	gwith-fluids*�	gparameter-fluid�	gparameter-converter�C5hPz]4	

54>"G4i4i5>"GhX�]#">(
6��4�5�44�5�5�"���"����gparams
		Vgvalues		Vgthunk			Vgparams			Dgvalues			Dgfluids			Dgconvs			Dgfilenamefsrfi/srfi-39.scm�
	-
��		.	��		2	��		3	��		4	��		4	��		5	��	"	5	%��	$	5	��	'	5	��	(	6	��	)	6	��	.	6	*��	0	6	��	3	6	8��	5	6	��	8	6	��	D	4	��	D	.	��	I	0	��	J	1	��	V	.	��		V	gnamegwith-parameters*�CRCrgm
		,gfilenamefsrfi/srfi-39.scm�		$
��	-	+
��	2	+	��	:	+	&��	?	+
��M	-
��	O
C6srfi/srfi-34.go000064400000011613150536206130007230 0ustar00GOOF----LE-8-2.0s]z4hn]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-34�	�		gfilenameS�	
fsrfi/srfi-34.scm�	gexportsS�	gwith-exception-handler�	
gguard�	
�	greplacementsS�	graise�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	g	throw-key�	gwith-throw-handler�	gthrow�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	 �	!�	"gany�	#geach+�	$gfree-id�	%g
syntax-object�	&gelse�	'gtop�	('�	)gribcage�	*)�	+gx�	,+�	-gm-46961e5118-a�	.-'�	/.�	0fl-46961e5118-c�	10�	2),/1�	3(*2�	4ghygiene�	54�	6%&35�	7$6�	8geach-any�	9"8��	:79��	;:�	<#";�	="<��	>=9��	?">��	@gcatch�	Agdummy�	Bgvar�	Cgclause�	Dge�	Ege*�	Fgbody�	Ggbody*�	HABCDEFG�	I.((((((�	Jfl-46961e5118-f�	Kfl-46961e5118-10�	Lfl-46961e5118-11�	Mfl-46961e5118-12�	Nfl-46961e5118-13�	Ofl-46961e5118-14�	Pfl-46961e5118-15�	QJKLMNOP�	R)HIQ�	S(R*2�	T%@S5�	U%S5�	Vglambda�	W%VS5�	Xgkey�	Y%XS5�	Zgcond�	[%ZS5�	\gappend�	]\�	^\�	_%&S5�	`"9��	a`9��	b"a��	cgclause*�	dABCcFG�	e.(((((�	ffl-46961e5118-21�	gfl-46961e5118-22�	hfl-46961e5118-23�	ifl-46961e5118-24�	jfl-46961e5118-25�	kfl-46961e5118-26�	lfghijk�	m)del�	n(m*2�	o%@n5�	p%n5�	q%Vn5�	r%Xn5�	s%Zn5�	t%&n5�	u%n5�	vgsyntax-violation�	wv�	xv�	yf-source expression failed to match any pattern�C5h�
�]4	
54>"G4i4i5>"GRhn]L6fgkey
		gobj		gfilenamefsrfi/srfi-34.scm�
	,	��		-	��			Ch�]O6�ghandler
		gthunk		gfilenamefsrfi/srfi-34.scm�
	%
��		*	��			gnamegwith-exception-handler�g
documentationf�Returns the result(s) of invoking THUNK. HANDLER must be a
procedure that accepts one argument.  It is installed as the current
exception handler for the dynamic extent (as determined by
dynamic-wind) of the invocation of THUNK.�CRh�]6�gobj
		
gfilenamefsrfi/srfi-34.scm�
	/
��	
	5	��		
gnamegraise�g
documentationf6Invokes the current exception handler on OBJ.  The handler is
called in the dynamic environment of the call to raise, except that
the current exception handler is that in place for the call to
with-exception-handler that installed the handler being called.  The
handler's continuation is otherwise unspecified.�CR4
!?TUWY[^_h8�]���4��5�C�gdummy
		5gvar		5gclause			5ge			5ge*			5gbody			5gbody*			5		5	Cbopqrs^tu	h@�]���45��C�gdummy
		>gvar		>gclause			>gclause*			>gbody			>gbody*			>		>	Cxyh@]45$@45$@6
gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-34.scm�
	8	��		9g
documentationf�Syntax: (guard (<var> <clause1> <clause2> ...) <body>)
Each <clause> should have the same form as a `cond' clause.

Semantics: Evaluating a guard form evaluates <body> with an exception
handler that binds the raised object to <var> and within the scope of
that binding evaluates the clauses as if they were the clauses of a
cond expression.  That implicit cond expression is evaluated with the
continuation and dynamic environment of the guard expression.  If
every <clause>'s <test> evaluates to false and there is no else
clause, then raise is re-invoked on the raised object within the
dynamic environment of the original call to raise except that the
current exception handler is that of the guard expression.�g
macro-typegsyntax-rules�gpatternsgvargclauseg...gelsegege*g...gbodygbody*g...gvargclausegclause*g...gbodygbody*g...C5
RC�gm
		,gfilenamefsrfi/srfi-34.scm�		
��	-	!
��	2	!	��	:	!	&��	?	!
��	I	#	��	L	#
���	%
��u	/
��
	
�
C6srfi/srfi-13.go000064400000005572150536206130007234 0ustar00GOOF----LE-8-2.0b]p4h�	]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-13�	�		gfilenameS�	
fsrfi/srfi-13.scm�	gset-current-module�	�	
�	gcall-with-deferred-observers�	�	�	gmodule-re-export!�	�	�	gcurrent-module�	�	�	gstring?�	gstring-null?�	g
string-any�	gstring-every�	gmake-string�	gstring�	gstring-tabulate�	gstring->list�	glist->string�	 greverse-list->string�	!gstring-join�	"g
string-length�	#g
string-ref�	$gstring-copy�	%gsubstring/shared�	&gstring-copy!�	'gstring-take�	(gstring-take-right�	)gstring-drop�	*gstring-drop-right�	+g
string-pad�	,gstring-pad-right�	-gstring-trim�	.gstring-trim-right�	/gstring-trim-both�	0gstring-set!�	1gstring-fill!�	2gstring-compare�	3gstring-compare-ci�	4gstring=�	5gstring<>�	6gstring<�	7gstring>�	8gstring<=�	9gstring>=�	:g
string-ci=�	;gstring-ci<>�	<g
string-ci<�	=g
string-ci>�	>gstring-ci<=�	?gstring-ci>=�	@gstring-hash�	Agstring-hash-ci�	Bgstring-prefix-length�	Cgstring-prefix-length-ci�	Dgstring-suffix-length�	Egstring-suffix-length-ci�	Fgstring-prefix?�	Ggstring-prefix-ci?�	Hgstring-suffix?�	Igstring-suffix-ci?�	Jgstring-index�	Kgstring-index-right�	Lgstring-skip�	Mgstring-skip-right�	Ngstring-count�	Ogstring-contains�	Pgstring-contains-ci�	Qg
string-upcase�	Rgstring-upcase!�	Sgstring-downcase�	Tgstring-downcase!�	Ugstring-titlecase�	Vgstring-titlecase!�	Wgstring-reverse�	Xgstring-reverse!�	Yg
string-append�	Zgstring-append/shared�	[gstring-concatenate�	\gstring-concatenate-reverse�	]gstring-concatenate/shared�	^g!string-concatenate-reverse/shared�	_g
string-map�	`gstring-map!�	agstring-fold�	bgstring-fold-right�	cg
string-unfold�	dgstring-unfold-right�	egstring-for-each�	fgstring-for-each-index�	gg
xsubstring�	hg
string-xcopy!�	igstring-replace�	jgstring-tokenize�	kg
string-filter�	lg
string-delete�	m !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklV�	ngcond-expand-provide�	o�C5h�x]4	
54
>"G4mhB]456:gfilenamefsrfi/srfi-13.scm�
	
��		
C>"Gni4i5o6pgm
	
	$gfilenamefsrfi/srfi-13.scm�		
��	%	
����	����	&����
��	�
C6srfi/srfi-98.go000064400000002403150536206130007237 0ustar00GOOF----LE-8-2.0�] 4h]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-98�	�		gfilenameS�	
fsrfi/srfi-98.scm�	gimportsS�	gsrfi-1�	
�	
�	�	gexportsS�	gget-environment-variable�	gget-environment-variables�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	ggetenv�	g
filter-map�	gstring-index�	g
string-length�	g	substring�	genviron�C5h �]4	
54>"G4i4i5>"GiRh8�]4=545$4
54�5�CC�gstr
		6gpvt		6glen			6gfilenamefsrfi/srfi-98.scm�
	'	��		(	��		)	��		(	��		*	��		*	��	'	*	+��	.	*	:��	2	*	+��	3	*	��		6gnamegstring->alist-entry�Chx]456pgfilenamefsrfi/srfi-98.scm�
	&
��		+	"��	
	+	��		
gnamegget-environment-variables�CRCygm
		,gfilenamefsrfi/srfi-98.scm�		
��	-	#
��	2	#	��	:	#	&��	?	#
��	N	%
��	&
��	
C6srfi/srfi-8.go000064400000001153150536206130007147 0ustar00GOOF----LE-8-2.0S]4hf]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-8�	�		gfilenameS�	
fsrfi/srfi-8.scm�	gimportsS�	gice-9�	
greceive�	
�	�	�	g
re-exportsS�	
�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�C5h@i]4	
54>"Gi4i56agm
		,gfilenamefsrfi/srfi-8.scm�		
��	1		��	9		&��	;	
��		;
C6srfi/srfi-35.go000064400000043344150536206130007237 0ustar00GOOF----LE-8-2.0�F]4hQ]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-35�	�		gfilenameS�	
fsrfi/srfi-35.scm�	gimportsS�	gsrfi-1�	
�	
�	�	gexportsS�	gmake-condition-type�	gcondition-type?�	gmake-condition�	g
condition?�	gcondition-has-type?�	g
condition-ref�	gmake-compound-condition�	gextract-condition�	gdefine-condition-type�	g	condition�	g
&condition�	g&message�	gmessage-condition?�	gcondition-message�	g&serious�	 gserious-condition?�	!g&error�	"gerror?�	# !"�	$gset-current-module�	%$�	&$�	'gcond-expand-provide�	(gcurrent-module�	)�	*gmake-vtable�	+g
string-append�	,gstandard-vtable-fields�	-fprprpr�	.gformat�	/f#<condition-type ~a ~a>�	0gcondition-type-id�	1gnumber->string�	2gobject-address�	3gset-struct-vtable-name!�	4gcondition-type�	5g%condition-type-vtable�	6gmake-struct-layout�	7gprint-condition�	8gstring?�	9gstring->symbol�	:f�	;g%make-condition-type�	<gvtable-offset-user�	=gcondition-type-parent�	>gcondition-type-all-fields�	?gstring-concatenate/shared�	@fpr�	A@�	Bgstruct-layout-for-condition�	Cf#<condition ~a [~a] ~a>�	Dgfold�	Ef~A: ~S�	Fgstring-join�	Ggreverse�	Hf �	Igerror�	Jf"invalid condition type field names�	Kgevery�	Lgsymbol?�	Mglset-intersection�	Ngeq?�	Ogappend�	Pfparent is not a condition type�	Qf)condition type identifier is not a symbol�	Rf7`make-compound-condition-type' passed empty parent list�	Sg
append-map�	Tgmake-compound-condition-type�	Ugthrow�	Vgwrong-type-arg�	Wfcondition-has-type?�	XfWrong type argument�	Ygany�	Zg
list-index�	[finvalid field name�	\ffield name is not a symbol�	]f
condition-ref�	^fWrong type argument: ~S�	_gmake-struct�	`gmake-condition-from-values�	ag
fold-right�	bgmemq�	cffield not specified�	dfmake-condition�	egmap�	fgcompound�	ggreverse!�	hfextract-condition�	ig+�	jglength�	kgmake-syntax-transformer�	lk�	mk�	ngmacro�	og$sc-dispatch�	po�	qo�	rgeach�	sYY�	trs�	uYt��	vYu��	wYv��	xYw��	yg
syntax-object�	zgbegin�	{gtop�	|{�	}gribcage�	~gdummy�	gname��gparent��gpred��g
field-name��gfield-accessor��~������gm-46961e5119-cc���{���|||||��fl-46961e5119-d1��fl-46961e5119-d2��fl-46961e5119-d3��fl-46961e5119-d4��fl-46961e5119-d5��fl-46961e5119-d6����������}�����}��gx��������fl-46961e5119-ce�����}�����|�����ghygiene�����yz����gdefine��y�����y����gquote��y�����gc��y��������y����e��e��y����gsyntax-violation��������f-source expression failed to match any pattern��gcompound-condition��geach-any��Y����gtype��gfield��~����gm-46961e5119-e1���{���||��fl-46961e5119-e6��fl-46961e5119-e7��fl-46961e5119-e8�������}��������fl-46961e5119-e3�����}�����|�����y����yT����y�����g	%compound��y���������g
quasiquote��y�����gunquote��y�����gcondition-instantiation��YY���gout��~����gm-46961e5119-ee���{���||��fl-46961e5119-f3��fl-46961e5119-f4��fl-46961e5119-f5�������}��������fl-46961e5119-f0�����}�����|�����y����s�����ڌ��Yی��Y܌��gfield-value��grest��~��������|||||��fl-46961e5119-fb��fl-46961e5119-fc��fl-46961e5119-fd��fl-46961e5119-fe��fl-46961e5119-ff��fl-46961e5119-100����������}�����|�����y�����O��O��y�����Y����Y���gm-46961e5119-109���{���||��fl-46961e5119-10e��fl-46961e5119-10f��fl-46961e5119-110�������}��������fl-46961e5119-10b�����}�����|�����y�����r��Y���fl-46961e5119-116�fl-46961e5119-117�fl-46961e5119-118��}���|���y���gdisplay�	f<&condition>�
gmessage�
�C5hx0�]4	
#54&>"G4'i4(i5)>"G4*i4+i,i-5./012h �]45445	56�gct
		gport		gfilenamefsrfi/srfi-35.scm�
	3	��		4	'��			5	"��		6	"��		6	2��		6	"��		4	��			C543i4>"G5R567389:hX0]45�4�$"45$45"45>"GC(glayout
		Wgid		Wgparent			Wg
all-fields			Wgstruct			Wgfilenamefsrfi/srfi-35.scm�
	;
��		=	��		<	��		<	��		C	��	 	C	+��	$	C	$��	+	D	+��	5	C	$��	6	D	8��	A	E	8��	E	E	H��	G	E	8��	L	C	��		W	gnameg%make-condition-type�C;R5h�]�$��CC�gobj
		gfilenamefsrfi/srfi-35.scm�
	H
��		J	��			J	��		K	��		K	��		gnamegcondition-type?�g
documentationf'Return true if OBJ is a condition type.�CR<h�]45$
��CC�gct
		gfilenamefsrfi/srfi-35.scm�
	N
��		O	��	
	O	��		P	��		P	��		gnamegcondition-type-id�C0R<h�]45$��CC�gct
		gfilenamefsrfi/srfi-35.scm�
	R
��		S	��	
	S	��		T	��		T	��		gnamegcondition-type-parent�C=R<h�]45$		��CC�gct
		gfilenamefsrfi/srfi-35.scm�
	V
��		W	��	
	W	��		X	��		X	��		gnamegcondition-type-all-fields�C>R?@Ah0]"(6��"���"����gfield-names
		.gfield-names		"glayout			"gfilenamefsrfi/srfi-35.scm�
	[
��		^	��		`	��		a	��		b	��		c	��		c	��	"	b	��	"	^	��	&	_	��	.	^	��		.gnamegstruct-layout-for-condition�CBR.C04D.Eh �]44L55�C�gfield
		gresult		gfilenamefsrfi/srfi-35.scm�
	j	��		k	"��		k	-��		l	*��		k	"��		k	��			C>FGH12
hX?]4455�4O45544	5
5445	567gc
		Sgport		Sgtype			Cgstrings		-	@gfilenamefsrfi/srfi-35.scm�
	e
��		r	��			s	
��		s	��		s	
��		i	��		i	��		j	��	$	n	��	%	o	��	-	j	��	-	i	��	0	p	��	3	p	��	;	p	%��	=	p	��	D	u	
��	G	u	��	Q	u	
��	S	r	��		S	gnamegprint-condition�C7R>IJKLMNOB;PQh��]�$l45$Y45"645$345( 4	54
56"���"���6
6�gid
		}gparent		}gfield-names			}g
parent-fields			mg
all-fields		N	eglayout		W	egfilenamefsrfi/srfi-35.scm�
	w
��		|	��			|	��	
	}	
��		}	��		~	��		~	
��	%�	��	)�	��	)		��	*		��	6		��	7�	��	E		��	F�	#��	N�	��	Q�	#��	W�	��	e�	��	q�	��	u�	
��	y�	
��	}�	��		}	gnamegmake-condition-type�g
documentationf�Return a new condition type named ID, inheriting from PARENT, and with the
fields whose names are listed in FIELD-NAMES.  FIELD-NAMES must be a list of
symbols and must not contain names already used by PARENT or one of its
supertypes.�CRIRS>B;h@!](6�(�C45456gid
		;gparents		;g
all-fields		$	;glayout		-	;gfilenamefsrfi/srfi-35.scm�
�
��	�	��	�	��	�		��	�	��	�	��	�		��	�	��	$�		��	'�	��	-�		��	;�	��
		;	gnamegmake-compound-condition-type�CTRh�]�$�6C�gc
		gfilenamefsrfi/srfi-35.scm�
�
��	�	��		�	��	�	��	�	��		gnameg
condition?�g
documentationf Return true if C is a condition.�CRh �]	�$�45$CCC�gc
		 gvtable		gfilenamefsrfi/srfi-35.scm�
�
��	�	��		�	��	�	��	�	��	�	
��	�		��		 gnamegcondition-type�C4RUVWX=Yh@�]	L&C$%45�$L645"���C�gct
		9gparent		7gfilenamefsrfi/srfi-35.scm�
�	��	
�	��	�	��	�	��	�	��	�	��	�	��	"�	��	*�	��	+�	��	7�	��		9gnamegloop�C4	hPB]
"
645$*45$OQ456"���"���:gc
		Igtype		Igloop		/	Agfilenamefsrfi/srfi-35.scm�
�
��	
�	
��	�	��	�	
��	�	��	�	��	�	��	�	��	�	��	&�	��	/�	��	9�	��	A�	��		I	gnamegcondition-has-type?�g
documentationf)Return true if condition C has type TYPE.�CR4>Zh`]L�CXgname
		gfilenamefsrfi/srfi-35.scm�
�	%��	�	'��		CI[\UV]^
h`�]45$E�$645454O5$�C66	
6�gc
		^g
field-name		^gtype			Jgfields		$	Jgindex		4	Jgfilenamefsrfi/srfi-35.scm�
�
��	�	��	
�	��	�	
��	�	��	�	��	�	
��	�	��	$�	
��	'�	��	4�	
��	<�	��	A�	��	F�	��	J�	��	N�	��	R�	
��	V�	
��	X�	��	Z�	
��	^�	��		^	gnameg
condition-ref�g
documentationf@Return the value of the field named FIELD-NAME from condition C.�CR_h�]
@�gtype
		gvalues		gfilenamefsrfi/srfi-35.scm�
�
��	�	��			gnamegmake-condition-from-values�C`R>abIch(�]
4L5�$���C6�gfield
		$ginits		$gv			$gfilenamefsrfi/srfi-35.scm�
�	%��	�	0��	�	'��	�	-��	�	)��	�	3��	�	-��	 �	4��	$�	-��
		$	C`UVd^
hH�-1345$"454O56	6�gtype
			Bgfield+value			Bg
all-fields			6ginits		,	6gfilenamefsrfi/srfi-35.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	(�	%��	,�	��	,�	��	6�	��	:�	
��	<�	��	>�	
��	B�	��			B
gnamegmake-condition�g
documentationf�Return a new condition of type TYPE with fields initialized as specified
by FIELD+VALUE, a sequence of field names (symbols) and values.�CRe4TfS4eh]]L6Ugf
		
gfilenamefsrfi/srfi-35.scm�
�	&��	
�	(��		
C>h �]	45O456gc
		gct			gfilenamefsrfi/srfi-35.scm�
�	��	�	)��		�	��	�	&��	�	!��		C`h8U-134545456Mg
conditions
			2gtypes		2gct			2ginits		(	2gfilenamefsrfi/srfi-35.scm�
�
��	
�	��	�	��	�	��	�	/��	�	��	�	��	 �	��	(�	��	2�	��			2


gnamegmake-compound-condition�g
documentationf7Return a new compound condition composed of CONDITIONS.�CRgh@;]"((6��L����"���"���3gstart-index
		=gfield-names		=gindex			.gfield-names			.gresult			.gfilenamefsrfi/srfi-35.scm�
	��		��		��			
��	
	��		��		��	 
	��	#	��	.
	
��	.	��	3	��	=	��		=	gnameglist-fields�CUVhX4=ie>jhph]�(CL&C�$04L5$C�445?�"���4455��"���`gparents
		ogindex		ogparent			ogt		*	Qgshift		]	ogfilenamefsrfi/srfi-35.scm�
�	��	�	��	�	��	
�	��	�	��	!�	��	"�	��	*�	��	8�	��	;�	��	>�	%��	H�	��	I�	��	Q�	��	R�	��	U�	$��	]�	��	]�	��	b	��	g	��	o	��		o	gnamegloop�C>
h�]"OQ"
645$f45$W454	5&C�$1
OQ4
54455@C"���"���gc
	�gtype	�glist-fields		
�gct		:�gparent		C�gloop		`	rgfield-index		r�gfilenamefsrfi/srfi-35.scm�
�
��	!	
��	!	��	"	
��	!	��		��		��	(	��	)	��	3	��	4	��	:	��	=	��	C	��	M	��	S	��	W	��	`�	��	r	��	y	��	~	%���	���	��	�	gnamegextract-condition�g
documentationfOReturn a condition of condition type TYPE with the field values specified
by C.�CR4mnqx�������������h X]�CPgtmp-46961e5119-df
		gtmp-46961e5119-de					C
hH�]�4	5���C�gdummy
		Bgname		Bgparent			Bgpred			Bg
field-name			Bgfield-accessor			B		B	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-35.scm�
)
��		"g
macro-typegsyntax-rules�gpatternsgnamegparentgpredg
field-namegfield-accessorg...C5R4m�nq�������h9]C1gtmp-46961e5119-ec
		
		
Ch R]45�CJgdummy
		 gtype		 gfield			 		 	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-35.scm�
3
��		"g
macro-typegsyntax-rules�gpatternsgtypeg...gfieldg...C5�R4m�nq��hP]��CHgdummy
		gtype		gout						C����h �]45���C�gdummy
		gtype		gout			g
field-name			gfield-value			grest						C��h@
]45$@45$@6gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-35.scm�
:	��		9g
macro-typegsyntax-rules�gpatternsgtypegoutg...gtypegoutg...g
field-namegfield-valuegrestg...C5�R4mnq��hR]���CJgdummy
		
gtype		
gfield			
		
	C�hR]4?CJgdummy
		gtype		gfield						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-35.scm�
A	��		9g
macro-typegsyntax-rules�gpatternsgtypegfieldg...gtypegfieldg...g...C5R5i46i:5	hx]6pgc
		gport		gfilenamefsrfi/srfi-35.scm�
P	��	Q	��	Q	��			C�R4ii5Rhr]6jgc
		
gfilenamefsrfi/srfi-35.scm�
T
��		
gnamegmessage-condition?�CR
hq]6igc
		
gfilenamefsrfi/srfi-35.scm�
T
��		
gnamegcondition-message�CR4ii5Rhr]6jgc
		
gfilenamefsrfi/srfi-35.scm�
X
��		
gnamegserious-condition?�C R4i!i5!R!hf]6^gc
		
gfilenamefsrfi/srfi-35.scm�
[
��		
gnamegerror?�C"RC�gm
		,gs
(Egfilenamefsrfi/srfi-35.scm�		
��	-	'
��	2	'	��	:	'	&��	?	'
��	H	2	��	M	2	��	W	2	>��	Y	2	��(	2	��(	2	��+	8	��3	8	��8	8	��H	.
���	;
���	H
���	N
��x	R
��D	V
���	[
��
	e
��
o	w
����
����
����
����
��k�
��-�
��\�
��H�
��#��
��-@O	��-FO	#��-HO	��-�R	��-�R	��-�R	"��-�N	��-�L
��-�T
��/-X
��/�[
��,	0s
C6srfi/srfi-10.go000064400000003523150536206130007223 0ustar00GOOF----LE-8-2.0;]'4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-10�	�		gfilenameS�	
fsrfi/srfi-10.scm�	gimportsS�	gice-9�	
grdelim�	
�	�	�	gexportsS�	gdefine-reader-ctor�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	gmake-hash-table�	greader-ctors�	g
hashq-set!�	g	hashq-ref�	g
procedure?�	gerror�	 funknown hash-comma tag �	!glookup�	"gread�	#f%syntax error in hash-comma expression�	$glength�	%g
hash-comma�	&gread-hash-extend�C5h��]4	
54>"G4i4i5>"G4i	5Rh �]4>"GC�gsymbol
		gproc		gfilenamefsrfi/srfi-10.scm�
	=
��		>	��			gnamegdefine-reader-ctor�CR h(�]	4545$C6�gsymbol
		$gp		$gfilenamefsrfi/srfi-10.scm�
	D
��		E	��		E	��		F	��		F	��	 	H	��	$	H	��		$gnameglookup�C!R"#$!hP6]45"6�$.45
�$��$4�5�@"���"���"���.gchar
		Ngport		Ngobj				Ngp		9	Bgfilenamefsrfi/srfi-10.scm�
	L
��		M	��			M	��		R	��		R	��		N	��		N	
��		N	��		N	$��	$	N	��	)	N	��	,	N	;��	-	N	2��	1	N	��	2	O	��	7	O	��	9	O	��	9	O	��	@	P	��	B	P	��		N	gnameg
hash-comma�C%R&i,%i6�gm
		,gfilenamefsrfi/srfi-10.scm�		/
��	-	3
��	2	3	��	:	3	&��	?	3
��	H	8	��	S	8
��	=
��	D
���	L
���	V
��	�
C6srfi/srfi-45.go000064400000077560150536206130007247 0ustar00GOOF----LE-8-2.0X]�4h�E]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-45�	�		gfilenameS�	
fsrfi/srfi-45.scm�	gimportsS�	gsrfi-9�	
�	
�	ggnu�	�	�	�	gexportsS�	gdelay�	glazy�	gforce�	geager�	gpromise?�	�	greplacementsS�	�	gset-current-module�	�	�	gcond-expand-provide�	 gcurrent-module�	!�	"gpromise�	#g%make-promise-procedure�	$gmake-syntax-transformer�	%$�	&$�	'gmake-promise�	(gmacro�	)g$sc-dispatch�	*)�	+)�	,g_�	-gany�	.,-�	/g
syntax-object�	0glambda�	1gm-46961e513e-4�	2gtop�	312�	4gribcage�	5gt-46961e513e-3�	65�	73�	8fl-46961e513e-9�	98�	:4679�	;4�	<gx�	=<�	>fl-46961e513e-6�	?>�	@4=7?�	Agshift�	Bg	proc-name�	Cgargs�	DBC�	E2�	FEE�	Gfl-1e8ba8b5a-2ba�	Hfl-1e8ba8b5a-2bb�	IGH�	J4DFI�	Kgkey�	Lgvalue�	Mgname�	Ngformals�	Ogbody�	PKLMNO�	QEEEEE�	Rfl-1e8ba8b5a-2ad�	Sfl-1e8ba8b5a-2ae�	Tfl-1e8ba8b5a-2af�	Ufl-1e8ba8b5a-2b0�	Vfl-1e8ba8b5a-2b1�	WRSTUV�	X4PQW�	Ygmake-procedure-name�	ZY�	[E�	\fl-1e8ba8b5a-29d�	]\�	^4Z[]�	_E�	`fl-1e8ba8b5a-29c�	a`�	b4=_a�	c3:;@A;;;;JX^b
�	dghygiene�	ed�	f/0ce�	ggval�	hE:;@�	id�	j/ghi�	kj�	lgmake-struct�	mgm-46961e513e-1�	nm2�	ogt-1e8ba8b5a-38d�	pgt-1e8ba8b5a-38c�	qgt-1e8ba8b5a-38b�	ropq�	sgm-1e8ba8b5a-38e�	ts2�	uttt�	vfl-1e8ba8b5a-392�	wfl-1e8ba8b5a-393�	xfl-1e8ba8b5a-394�	yvwx�	z4ruy�	{g	ctor-args�	|{�	}fl-1e8ba8b5a-37a�	~}�	4|_~��gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������4�F���gform��g	type-name��gconstructor-spec��gfield-names��������EEEE��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������4�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������EEEEEEEE��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������4�����fl-1e8ba8b5a-334�����4=_���n:;@A;z;;;�;�����/l�e��/"hi��/
�e�����j��fk���geach-any��,����gsyntax-violation��
���
���fWrong number of arguments��gidentifier?��
���
���E;@��/#�i��������f-source expression failed to match any pattern��grecord-type-vtable��
���
���gpw��gdefault-record-printer��
���
���g��gset-struct-vtable-name!��
���
���gvtable-offset-user��
���
���g%promise?-procedure��gm-46961e513e-11���2��gt-46961e513e-10��������fl-46961e513e-16�����4�����fl-46961e513e-13�����4=������;�A;;;;JX^b
��/0�e��gobj��gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b�����������gm-1e8ba8b5a-47f���2�����������fl-1e8ba8b5a-483��fl-1e8ba8b5a-484��fl-1e8ba8b5a-485��fl-1e8ba8b5a-486��fl-1e8ba8b5a-487��fl-1e8ba8b5a-488��fl-1e8ba8b5a-489�����������4�����g	copier-id�����fl-1e8ba8b5a-476�����4�_���g	ctor-name�����fl-1e8ba8b5a-46e�����4�_������fl-1e8ba8b5a-46c�����4�_���glayout�����fl-1e8ba8b5a-46a���4�_�g
immutable?��fl-1e8ba8b5a-468��4_�gfield-count��	fl-1e8ba8b5a-466�
	�4_
�g
getter-ids�
�fl-1e8ba8b5a-463��4
_�g	field-ids��fl-1e8ba8b5a-460��4_�gpredicate-name�g
field-spec�����EEEEEE�fl-1e8ba8b5a-453�fl-1e8ba8b5a-454�fl-1e8ba8b5a-455�fl-1e8ba8b5a-456�fl-1e8ba8b5a-457�fl-1e8ba8b5a-458� �!4 �"n�;�A;�;;;;�;�;�;;;;;!���#/�"e�$#�%gand�&/%"e�'gstruct?�(/'"e�)(#�*geq?�+/*"e�,g
struct-vtable�-/,"e�.-#�/E�;��0/"/i�1+.0�2&)1�3�$2�4E;��5/�4i�6gthrow-bad-struct�7
6�8
6�9gpromise-val�:g%promise-val-procedure�;gfree-id�<g
%%on-error�=gm-46961e513e-1d�>=2�?>�@fl-46961e513e-1f�A@�B4=?A�C>;BA;;;;JX^b�D/<Ce�E;D�FE-�Gg%%type�Hgt-1e8ba8b5a-3a5�Igt-1e8ba8b5a-3a6�Jgt-1e8ba8b5a-3a7�Kgt-1e8ba8b5a-3a8�Lgt-1e8ba8b5a-3a9�Mgt-1e8ba8b5a-3aa�Ngt-1e8ba8b5a-3ab�OHIJKLMN�Pgm-1e8ba8b5a-3ac�QP2�RQQQQQQQ�Sfl-1e8ba8b5a-3b0�Tfl-1e8ba8b5a-3b1�Ufl-1e8ba8b5a-3b2�Vfl-1e8ba8b5a-3b3�Wfl-1e8ba8b5a-3b4�Xfl-1e8ba8b5a-3b5�Yfl-1e8ba8b5a-3b6�ZSTUVWXY�[4ORZ�\ggetter�]gindex�^\]�_fl-1e8ba8b5a-3a3�`fl-1e8ba8b5a-3a4�a_`�b4^Fa�c���dEEE�efl-1e8ba8b5a-39e�ffl-1e8ba8b5a-39f�gfl-1e8ba8b5a-3a0�hefg�i4cdh�jn;BA;[;;;b;i���k/Gje�l;k�m,Fl-�ngck�ogerr�pgs�qop�r>>�sfl-46961e513e-22�tfl-46961e513e-23�ust�v4qru�w>v;BA;;;;JX^b
�x/nwe�ygquote�z/ywe�{Ev;B�|/"{i�}z|�~}�g%%index��/je��;���,F�-��fl-46961e513e-27��fl-46961e513e-28������4qr���>�;BA;;;;JX^b
��/n�e��/y�e���;B��/
�i���������g%%copier��/�je��;���,F�-��fl-46961e513e-2c��fl-46961e513e-2d������4qr���>�;BA;;;;JX^b
��/n�e��/y�e��g%%promise-set-fields��E�;B��/��i���������gt-46961e513e-1c�����fl-46961e513e-31�����4�?���>�;BA;;;;JX^b
��/0�e��n�;BA;[;;;b;i����/p�e�����gif��/��e��/*�e��/,�e������E�;B��/"�i�������g
struct-ref��/��e���;B��/
�i�������/6�e��/y�e��/9�i����������������������E;B��/:�i��geach��--������-����-����-Œ��g%%set-fields��gdummy��gcheck?��gexpr����p\���gm-46961e513e-38���2���nnnn��fl-46961e513e-3d��fl-46961e513e-3e��fl-46961e513e-3f��fl-46961e513e-40��fl-46961e513e-41���������4��������fl-46961e513e-3a�����4=����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���2�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������4�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������4cd���n�;�A;�;;;���
��/��e��E�;���/"�i��/9�i�����gmap��������glist��gpromise-val-set!��g%promise-val-set!-procedure��,--��gm-46961e513e-4c���2��gt-46961e513e-4a��gt-46961e513e-4b����������fl-46961e513e-51��fl-46961e513e-52������4�������fl-46961e513e-4e��4=����;A;;;;JX^b
�/0e�gt-1e8ba8b5a-3e6�gt-1e8ba8b5a-3e7��gm-1e8ba8b5a-3e8�	2�
		�fl-1e8ba8b5a-3ec�fl-1e8ba8b5a-3ed�
�4

�gsetter�M\�fl-1e8ba8b5a-3e0�fl-1e8ba8b5a-3e1�fl-1e8ba8b5a-3e2��4d�]�fl-1e8ba8b5a-3d7�fl-1e8ba8b5a-3d8��4F�gfield-specs���fl-1e8ba8b5a-3d3�fl-1e8ba8b5a-3d4�� 4F�!n�;A;;; ���"/p!e�#/g!e�$"#�%/�!e�&/*!e�'/,!e�('"�)E�;�*/")i�+&(*�,gstruct-set!�-/,!e�.�;�//
.i�0-"/#�1/6!e�2/y!e�3/�)i�423�51"4�6%+05�7$6�8E;�9/�8i�:g%make-value-procedure�;g
make-value�<gm-46961e513e-6d�=<2�>gt-46961e513e-6b�?gt-46961e513e-6c�@>?�A==�Bfl-46961e513e-72�Cfl-46961e513e-73�DBC�E4@AD�F=�Gfl-46961e513e-6f�HG�I4=FH�J=E;IA;;;;JX^b
�K/0Je�Lgtag�MEE;I�N/LMi�Ogproc�P/OMi�QNP�Rgm-46961e513e-69�SR2�TSE;IA;z;;;�;����U/lTe�V/LMi�W/
Te�XUVWNP�YKQX�ZE;I�[/:Zi�\gpwpw�]LO�^g%value?-procedure�_gvalue?�`gm-46961e513e-7c�a`2�bgt-46961e513e-7b�cb�da�efl-46961e513e-81�fe�g4cdf�hfl-46961e513e-7e�ih�j4=di�kag;jA;;;;JX^b
�l/0ke�mSg;jA;�;;;;�;�;�;;;;;!���n/�me�on�p/%me�q/'me�rqn�s/*me�t/,me�utn�vEg;j�w/Lvi�xsuw�yprx�zloy�{E;j�|/^{i�}g	value-tag�~g%value-tag-procedure�gm-46961e513e-88��2�����fl-46961e513e-8a�����4=�����;�A;;;;JX^b��/<�e��;����-��S;�A;[;;;b;i����/G�e��;���,��-������fl-46961e513e-8d��fl-46961e513e-8e������4q������;�A;;;;JX^b
��/n�e��/y�e��E�;���/L�i���������/�e��;���,��-��fl-46961e513e-92��fl-46961e513e-93������4q������;�A;;;;JX^b
��/n�e��/y�e���;���/
�i���������/��e��;���,��-��fl-46961e513e-97��fl-46961e513e-98������4q������;�A;;;;JX^b
��/n�e��/y�e��g%%value-set-fields��E�;���/��i���������gt-46961e513e-87�����fl-46961e513e-9c�����4�������;�A;;;;JX^b
��/0�e��S�;�A;[;;;b;i����/p�e�����/��e��/*�e��/,�e������E�;���/L�i�������/��e���;���/
�i�������/6�e��/y�e��/}�i����������������������E;���/~�i��g
value-proc��g%value-proc-procedure��gm-46961e513e-a3���2�����fl-46961e513e-a5�����4=�����;�A;;;;JX^b��/<�e��;����-��S;�A;[;;;b;i����/G�e��;���,��-������fl-46961e513e-a8��fl-46961e513e-a9������4q������;�A;;;;JX^b
��/n�e��/y�e��E�;���/L�i���������/�e��;���,��-��fl-46961e513e-ad��fl-46961e513e-ae������4q������;�A;;;;JX^b
��/n�e��/y�e���;���/�i���������/��e��;��,��-�fl-46961e513e-b2�fl-46961e513e-b3��4q���;�A;;;;JX^b
�/ne�/ye�E;��	/�i�
	�
�gt-46961e513e-a2�
�fl-46961e513e-b7��4
���;�A;;;;JX^b
�/0e�S;�A;[;;;b;i���/pe��/�e�/*e�/,e��E;��/Li��/�e�;��/i� �!/6e�"/ye�#/�i�$"#�%!$�& %�'&�(E;��)/�(i�*gm-46961e513e-be�+*2�,+SSSS�-fl-46961e513e-c3�.fl-46961e513e-c4�/fl-46961e513e-c5�0fl-46961e513e-c6�1fl-46961e513e-c7�2-./01�34�,2�4+�5fl-46961e513e-c0�65�74=46�8S3;7A;�;;;���
�9/�8e�:E3;7�;/L:i�</}:i�=/�:i�><=�?gvalue-tag-set!�@g%value-tag-set!-procedure�Agm-46961e513e-d2�BA2�Cgt-46961e513e-d0�Dgt-46961e513e-d1�ECD�FBB�Gfl-46961e513e-d7�Hfl-46961e513e-d8�IGH�J4EFI�KB�Lfl-46961e513e-d4�ML�N4=KM�OBJ;NA;;;;JX^b
�P/0Oe�QSJ;NA;;; ���R/pQe�S/gQe�TRS�U/�Qe�V/*Qe�W/,Qe�XWR�YEJ;N�Z/LYi�[VXZ�\/,Qe�]J;N�^/
]i�_\R^S�`/6Qe�a/yQe�b/?Yi�cab�d`Rc�eU[_d�fPTe�gE;N�h/@gi�igvalue-proc-set!�jg%value-proc-set!-procedure�kgm-46961e513e-e2�lk2�mgt-46961e513e-e0�ngt-46961e513e-e1�omn�pll�qfl-46961e513e-e7�rfl-46961e513e-e8�sqr�t4ops�ul�vfl-46961e513e-e4�wv�x4=uw�ylt;xA;;;;JX^b
�z/0ye�{St;xA;;; ���|/p{e�}/g{e�~|}�/�{e��/*{e��/,{e���|��Et;x��/L�i�������/,{e��t;x��/�i���|�}��/6{e��/y{e��/i�i�������|��������z~���E;x��/j�i��gexp������gm-46961e513e-107���2���E��fl-46961e513e-10c��fl-46961e513e-10d������4��������fl-46961e513e-109�����4=����E�;���/'�i��/;�i��/y�i��/�i������/0�i��gm-46961e513e-11b���2���E��fl-46961e513e-120��fl-46961e513e-121������4��������fl-46961e513e-11d�����4=����E�;���/�i��/�i��gon-eagerS������gon-lazyS���	�������g
promise-visit��gset-record-type-printer!��gformat��f#<promise = ~s>��f#<promise => ~s>�C5h�4�]4	
5	4>"G4i4 i5!>"G"hx]�Cpgval
		
gfilenamefsrfi/srfi-45.scm�
	.
��		
gnameg%make-promise-procedure�C#R4&'(+.�h6]C.gt-46961e513e-3
		
		
C��'�hS]L6Kga
		gfilenamefsrfi/srfi-45.scm�		.
��		C,�hC]L6;gfilenamefsrfi/srfi-45.scm�		.
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-45.scm�
	.
��		nC5'R���"Ũ4�">"G	˖#i�"R"ht]�$��CClgobj
		gfilenamefsrfi/srfi-45.scm�
	.
��		gnameg%promise?-procedure�C�R4&(+.3h7]C/gt-46961e513e-10
		
		
C���hS]L6Kga
		gfilenamefsrfi/srfi-45.scm�		.
��		C,�hC]L6;gfilenamefsrfi/srfi-45.scm�		.
��		
C5h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-45.scm�
	.
��		nC5R"89hu]�&
�C6mgs
		gfilenamefsrfi/srfi-45.scm�
	.
��		gnameg%promise-val-procedure�C:R4&9(+mx~h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C.�h7]C/gt-46961e513e-1c
		
		
C��9�hS]L6Kga
		gfilenamefsrfi/srfi-45.scm�		.
��		C,�hC]L6;gfilenamefsrfi/srfi-45.scm�		.
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-45.scm�
	.
��	�C59R4&�(+������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-45.scm�
	.
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R"8�h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-45.scm�
	.
��			gnameg%promise-val-set!-procedure�C�R4&�(+�7hT]CLgt-46961e513e-4a
		gt-46961e513e-4b					C����hS]L6Kga
		gfilenamefsrfi/srfi-45.scm�		.
��		C,�hC]L6;gfilenamefsrfi/srfi-45.scm�		.
��		
C9h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-45.scm�
	.
��		nC5�RLh�]�C�gtag
		gproc		gfilenamefsrfi/srfi-45.scm�
	1
��			gnameg%make-value-procedure�C:R4&;(+�YhT]CLgt-46961e513e-6b
		gt-46961e513e-6c					C��;�hS]L6Kga
		gfilenamefsrfi/srfi-45.scm�		1
��		C,�hC]L6;gfilenamefsrfi/srfi-45.scm�		1
��		
C[h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-45.scm�
	1
��		nC5;R�\�L]�4�L>"G	˖:i�LRLhr]�$��CCjgobj
		gfilenamefsrfi/srfi-45.scm�
	1
��		gnameg%value?-procedure�C^R4&_(+.zh7]C/gt-46961e513e-7b
		
		
C��_�hS]L6Kga
		gfilenamefsrfi/srfi-45.scm�		1
��		C,�hC]L6;gfilenamefsrfi/srfi-45.scm�		1
��		
C|h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-45.scm�
	1
��		nC5_RL8}hs]�&
�C6kgs
		gfilenamefsrfi/srfi-45.scm�
	1
��		gnameg%value-tag-procedure�C~R4&}(+���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C.�h7]C/gt-46961e513e-87
		
		
C��}�hS]L6Kga
		gfilenamefsrfi/srfi-45.scm�		1
��		C,�hC]L6;gfilenamefsrfi/srfi-45.scm�		1
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-45.scm�
	1
��	�C5}RL8�ht]�&�C6lgs
		gfilenamefsrfi/srfi-45.scm�
	1
��		gnameg%value-proc-procedure�C�R4&�(+���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C.'h7]C/gt-46961e513e-a2
		
		
C����hS]L6Kga
		gfilenamefsrfi/srfi-45.scm�		1
��		C,�hC]L6;gfilenamefsrfi/srfi-45.scm�		1
��		
C)h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-45.scm�
	1
��	�C5�R4&�(+�9;>��h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-45.scm�
	1
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�RL8?h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-45.scm�
	1
��			gnameg%value-tag-set!-procedure�C@R4&?(+�fhT]CLgt-46961e513e-d0
		gt-46961e513e-d1					C��?�hS]L6Kga
		gfilenamefsrfi/srfi-45.scm�		1
��		C,�hC]L6;gfilenamefsrfi/srfi-45.scm�		1
��		
Chh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-45.scm�
	1
��		nC5?RL8ih �]�&�C6�gs
		gval		gfilenamefsrfi/srfi-45.scm�
	1
��			gnameg%value-proc-set!-procedure�CjR4&i(+��hT]CLgt-46961e513e-e0
		gt-46961e513e-e1					C��i�hS]L6Kga
		gfilenamefsrfi/srfi-45.scm�		1
��		C,�hC]L6;gfilenamefsrfi/srfi-45.scm�		1
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-45.scm�
	1
��		nC5iR4&(+�����h>]C6gdummy
		gexp					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-45.scm�
	5
��		"g
macro-typegsyntax-rules�gpatternsgexpC5RL"h�]	��C�gx
		gval		gfilenamefsrfi/srfi-45.scm�
	8
��		9	��		9	��		9	��		gnamegeager�CR4&(+���h>]C6gdummy
		gexp					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-45.scm�
	;
��		"g
macro-typegsyntax-rules�gpatternsgexpC5R"89L}�?i�
h��])�&
�"	45�&
�"	45�$�&�C6�$Y4�&�"	455�&
�"	45�&
�"	45&"��&
�"	45�&
�"	45�&
�"4	>"G�&
�"	45�&�"	45�&�"4
>"G�&
�"4>"G6C�gpromise
	�gcontent	�gkey		8�gpromise*		�gcontent	��gs	��gval	�'gs	A`gval	`�	gfilenamefsrfi/srfi-45.scm�
	>
��		?	��		?	��	!	@	
��	8	@	��	F	A	��	b	@	��	c	B	 ��		B	���	C	 ���	B	���	D	4���	D	 ���	D	���	F	7���	F	,���	E	��*	H	9��A	H	-��`	G	���	I	���	J	��	�gnamegforce�CR�"89L}�
h�0-/03##H�&
�"	45KJ�&J
�"	4J5�$J�&J�"	4J56	�$J�&J�"	4J56C(gpromise
	�gon-eager	�gon-lazy		�gcontent		&�gkey		^�gfilenamefsrfi/srfi-45.scm�
	P
��	+	Q	��	G	R	��	^	R	��	n	S	���	S	
���	R	���	T	���	T	
��
	�
gon-eagerS�gon-lazyS	�gnameg
promise-visit�C�R�i"i����hg]L6_gvalue
		gfilenamefsrfi/srfi-45.scm�
	Y	��		Z	 ��		Z	��		C���hf]L6^gproc
		gfilenamefsrfi/srfi-45.scm�
	[	��		\	 ��		\	��		Ch s]OO6kgpromise
		gport		gfilenamefsrfi/srfi-45.scm�
	W	��		X	��			C6�gm
		0grtd
~�grtd
Qzgfilenamefsrfi/srfi-45.scm�		"
��	1	,
��	6	,	��	>	,	&��	C	,
���	.
���	1
��,	8
��1	>
��3	P
��4�	V
��	4�
C6srfi/srfi-16.go000064400000000704150536206130007227 0ustar00GOOF----LE-8-2.0�]4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-16�	�		gfilenameS�	
fsrfi/srfi-16.scm�	g
re-exportsS�	gcase-lambda�	
�	gset-current-module�	�	�C5h(R]4	

54>"GCJgm
		(gfilenamefsrfi/srfi-16.scm�
	/
��		(
C6srfi/srfi-42.go000064400000310764150536206130007240 0ustar00GOOF----LE-8-2.0ܑ]
w4h��]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-42�	�		gfilenameS�	
fsrfi/srfi-42.scm�	gexportsS�	g:�	
g:-dispatch-ref�	g:-dispatch-set!�	g:char-range�	g:dispatched�	g:do�	g:generator-proc�	g	:integers�	g:let�	g:list�	g	:parallel�	g:port�	g:range�	g:real-range�	g:string�	g:until�	g:vector�	g:while�	gany?-ec�	g	append-ec�	 gdispatch-union�	!gdo-ec�	"g	every?-ec�	#gfirst-ec�	$gfold-ec�	%gfold3-ec�	&glast-ec�	'glist-ec�	(gmake-initial-:-dispatch�	)gmax-ec�	*gmin-ec�	+g
product-ec�	,gstring-append-ec�	-g	string-ec�	.gsum-ec�	/g	vector-ec�	0gvector-of-length-ec�	1
 !"#$%&'()*+,-./0%�	2gset-current-module�	32�	42�	5gcond-expand-provide�	6gcurrent-module�	7�	8gmake-syntax-transformer�	98�	:8�	;gmacro�	<g$sc-dispatch�	=<�	><�	?gany�	@gfree-id�	Ag
syntax-object�	Bgnested�	Cgtop�	DC�	Egribcage�	FE�	Ggx�	HG�	Igm-46961e513b-2�	JIC�	KJ�	Lfl-46961e513b-4�	ML�	NEHKM�	ODFN�	Pghygiene�	QP�	RABOQ�	S@R�	Tgeach-any�	UST��	VUT��	W?V��	Xgdummy�	Ygq�	Zgetc�	[XYZ�	\JDD�	]fl-46961e513b-7�	^fl-46961e513b-8�	_fl-46961e513b-9�	`]^_�	aE[\`�	bDaFN�	cA!bQ�	dgappend�	ed�	fd�	g?T��	h?g��	i?h��	j?i��	kgq1�	lgq2�	mgetc1�	nXklmZ�	oJDDDD�	pfl-46961e513b-10�	qfl-46961e513b-11�	rfl-46961e513b-12�	sfl-46961e513b-13�	tfl-46961e513b-14�	upqrst�	vEnou�	wDvFN�	xA!wQ�	y??�	zgbegin�	{gcmd�	|X{�	}JD�	~fl-46961e513b-1c�	fl-46961e513b-1d��~��E|}���D�FN��Az�Q��gif��A��Q��A�Q����������A�OQ��@����?��?�?��gtest��X�{��fl-46961e513b-21��fl-46961e513b-22��fl-46961e513b-23�������E�\���D�FN��A��Q��A!�Q��gnot��A�OQ��@����?��?�?��fl-46961e513b-28��fl-46961e513b-29��fl-46961e513b-2a�������E�\���D�FN��A��Q��A��Q��A!�Q��gand��A�OQ��@����T���?�?��fl-46961e513b-2f��fl-46961e513b-30��fl-46961e513b-31�������E�\���D�FN��A��Q��A��Q��A!�Q��gor��A�OQ��@����T���?�?��fl-46961e513b-37��fl-46961e513b-38��fl-46961e513b-39�������E�\���D�FN��A��Q��A��Q��A!�Q��AzOQ��@����T���?�?��XZ{��fl-46961e513b-3f��fl-46961e513b-40��fl-46961e513b-41�������E�\���D�FN��Az�Q��A!�Q��AOQ��@����??????��?�?��gdo-ec:do��golet��glbs��gne1?��gilet��gne2?��glss��X������{��JDDDDDDD��fl-46961e513b-47��fl-46961e513b-48��fl-46961e513b-49��fl-46961e513b-4a��fl-46961e513b-4b��fl-46961e513b-4c��fl-46961e513b-4d��fl-46961e513b-4e������������E�����D�FN��A��Q��A�Q��?h?��gg��garg1��garg��X���{��fl-46961e513b-58��fl-46961e513b-59��fl-46961e513b-5a��fl-46961e513b-5b��fl-46961e513b-5c���������E�o���D�FN��A��Q��gsyntax-violation��������f-source expression failed to match any pattern��gm-46961e513b-63���C�����fl-46961e513b-65�����EH���DF��AQ�@�glet�AQ�@�g��???T�??�	gec-simplify�
gobs�goc�gibs�
gic�gls�X{
��
�
��DDDDDDDDD
�fl-46961e513b-68�fl-46961e513b-69�fl-46961e513b-6a�fl-46961e513b-6b�fl-46961e513b-6c�fl-46961e513b-6d�fl-46961e513b-6e�fl-46961e513b-6f�fl-46961e513b-70�fl-46961e513b-71�
�E�DF��A	Q�AQ� gloop�!A Q�"A�Q�#gm-46961e513b-7f�$#C�%$�&fl-46961e513b-81�'&�(EH%'�)DF(�*A�)Q�+@*�,gatom�-,�.+-?�/?.�0,�1+0?�2?1�3g
consequent�4X3�5$D�6fl-46961e513b-89�7fl-46961e513b-8a�867�9E458�:D9F(�;A�:Q�<A:Q�=;<<�>+-??�??>�@+0??�A?@�BA�)Q�C@B�DC?�ECD�F+E?�G?F�HX�3�I$DD�Jfl-46961e513b-9c�Kfl-46961e513b-9d�Lfl-46961e513b-9e�MJKL�NEHIM�ODNF(�PA	OQ�QA�OQ�R+E??�S?R�Tg	alternate�UX�3T�V$DDD�Wfl-46961e513b-a3�Xfl-46961e513b-a4�Yfl-46961e513b-a5�Zfl-46961e513b-a6�[WXYZ�\EUV[�]D\F(�^A	]Q�_A�]Q�`A)Q�a@`�bT��cab��d?c�egcommand�fXe�gfl-46961e513b-ac�hfl-46961e513b-ad�igh�jEf5i�kDjF(�lA	kQ�mAzkQ�nAz)Q�o@n�poT��q?p�rfl-46961e513b-b2�sfl-46961e513b-b3�trs�uEf5t�vDuF(�wA	vQ�xAvQ�y,�zpT��{?y?z�|gdone�}gto-do1�~gto-do2�X|}~��fl-46961e513b-b8��fl-46961e513b-b9��fl-46961e513b-ba��fl-46961e513b-bb��������EV���D�F(��A	�Q��A�Q��?yTg��gto-do��X|}���fl-46961e513b-c3��fl-46961e513b-c4��fl-46961e513b-c5��fl-46961e513b-c6��������E�V���D�F(��A	�Q��A�Q��?y��X��fl-46961e513b-ce�����E�%���D�F(��A��Q��A�Q�������?��?y���?yg��gcommand1��X�e��fl-46961e513b-d6��fl-46961e513b-d7��fl-46961e513b-d8�������E�I���D�F(��Az�Q��?T??????��gcc��X���������gm-46961e513b-e2���C���DDDDDDD��fl-46961e513b-e7��fl-46961e513b-e8��fl-46961e513b-e9��fl-46961e513b-ea��fl-46961e513b-eb��fl-46961e513b-ec��fl-46961e513b-ed��fl-46961e513b-ee������������E��������fl-46961e513b-e4�����EH����D�F���A�Q��?????��X�������DDDD��fl-46961e513b-f9��fl-46961e513b-fa��fl-46961e513b-fb��fl-46961e513b-fc��fl-46961e513b-fd���������E�����D�F���A�Q��A�Q�����A�Q��gindex��gm-46961e513b-103���C�����fl-46961e513b-105�����EH����DF���A��Q��@����?��???�?��gvar��gi��g
expression��X�������DDDD��fl-46961e513b-108��fl-46961e513b-109��fl-46961e513b-10a��fl-46961e513b-10b��fl-46961e513b-10c���������E�����D�F���A�Q��A�Q��A
�Q�����A�Q�����A�Q�������????��X������DDD��fl-46961e513b-113��fl-46961e513b-114��fl-46961e513b-115��fl-46961e513b-116��������E�����D�F���A�Q��A�Q��A�Q�����A�Q������hT��?��?��g:parallel-1�ggen�X�����gm-46961e513b-11b�C�DDDDD�	fl-46961e513b-125�
fl-46961e513b-126�fl-46961e513b-127�fl-46961e513b-128�
fl-46961e513b-129�fl-46961e513b-12a�	

�E��fl-46961e513b-11d��EH�DF�AQ�???�gresult�X�����gm-46961e513b-133�C�DDDDDD�fl-46961e513b-138�fl-46961e513b-139�fl-46961e513b-13a� fl-46961e513b-13b�!fl-46961e513b-13c�"fl-46961e513b-13d�#fl-46961e513b-13e�$ !"#�%E$�&�'fl-46961e513b-135�('�)EH&(�*D%F)�+A*Q�,DF)�-A,Q�.@-�/A,Q�0@/�1TT��201��3.2T?2?T�4???33�5ggens�6gob1�7goc1�8glb1�9gne1?1�:gib1�;gic1�<gne2?1�=gls1�>gob2�?goc2�@glb2�Agne1?2�Bgib2�Cgic2�Dgne2?2�Egls2�FX�56789:;<=>?@ABCDE�GDDDDDDDDDDDDDDDDDD�Hfl-46961e513b-149�Ifl-46961e513b-14a�Jfl-46961e513b-14b�Kfl-46961e513b-14c�Lfl-46961e513b-14d�Mfl-46961e513b-14e�Nfl-46961e513b-14f�Ofl-46961e513b-150�Pfl-46961e513b-151�Qfl-46961e513b-152�Rfl-46961e513b-153�Sfl-46961e513b-154�Tfl-46961e513b-155�Ufl-46961e513b-156�Vfl-46961e513b-157�Wfl-46961e513b-158�Xfl-46961e513b-159�Yfl-46961e513b-15a�Zfl-46961e513b-15b�[HIJKLMNOPQRSTUVWXYZ�\EFG[�]D\F)�^A]Q�_A]Q�`A]Q�aA�]Q�b?T?�c??h?�dg:while-1�eX������fgm-46961e513b-183�gfC�hgDDDDD�ifl-46961e513b-188�jfl-46961e513b-189�kfl-46961e513b-18a�lfl-46961e513b-18b�mfl-46961e513b-18c�nfl-46961e513b-18d�oijklmn�pEeho�qg�rfl-46961e513b-185�sr�tEHqs�uDpFt�vAduQ�wgm-46961e513b-195�xwC�yx�zfl-46961e513b-197�{z�|EHy{�}DF|�~A}Q�@~��??????��???���g:while-2��X��������	��xDDDDDDDD	��fl-46961e513b-19a��fl-46961e513b-19b��fl-46961e513b-19c��fl-46961e513b-19d��fl-46961e513b-19e��fl-46961e513b-19f��fl-46961e513b-1a0��fl-46961e513b-1a1��fl-46961e513b-1a2�����������	��E�����D�F|��A��Q��A�Q��gm-46961e513b-1ac���C�����fl-46961e513b-1ae�����EH����DF���A�Q��@���A�Q��@���yT����T���������???�??��???TTT���gib-let��gib-save��g
ib-restore��gib-var��gib-rhs��gib��X�����������
�����DDDDDDDDDDDDDD��fl-46961e513b-1b1��fl-46961e513b-1b2��fl-46961e513b-1b3��fl-46961e513b-1b4��fl-46961e513b-1b5��fl-46961e513b-1b6��fl-46961e513b-1b7��fl-46961e513b-1b8��fl-46961e513b-1b9��fl-46961e513b-1ba��fl-46961e513b-1bb��fl-46961e513b-1bc��fl-46961e513b-1bd��fl-46961e513b-1be��fl-46961e513b-1bf�������������������E�����D�F���A��Q��gib-tmp��A��Q��A�Q������������A�Q��A�Q��gset!��A��Q���1����b�����??�??��???TTT���gob��X��������
��
���DDDDDDDDDDDD
��fl-46961e513b-1d5��fl-46961e513b-1d6��fl-46961e513b-1d7��fl-46961e513b-1d8��fl-46961e513b-1d9��fl-46961e513b-1da��fl-46961e513b-1db��fl-46961e513b-1dc��fl-46961e513b-1dd��fl-46961e513b-1de��fl-46961e513b-1df��fl-46961e513b-1e0��fl-46961e513b-1e1���������������
��E�����D�F���A�Q��A�Q��g
ne1?-value��A��Q��A��Q��g:until-1��gm-46961e513b-1f5���C���DDDDD��fl-46961e513b-1fa��fl-46961e513b-1fb��fl-46961e513b-1fc��fl-46961e513b-1fd��fl-46961e513b-1fe��fl-46961e513b-1ff����������Ee�������fl-46961e513b-1f7�����EH����D�F���A��Q��gm-46961e513b-207���C�����fl-46961e513b-209�����EH����DF���A�Q��@����??????�???���DDDDDDDD	�fl-46961e513b-20c�fl-46961e513b-20d�fl-46961e513b-20e�fl-46961e513b-20f�fl-46961e513b-210�fl-46961e513b-211�fl-46961e513b-212�	fl-46961e513b-213�
fl-46961e513b-214�	
	�E��
DF��A
Q�A�
Q�A�
Q�gm-46961e513b-21e�C��fl-46961e513b-220��EH�DF�A�Q�@�?�T��?��?��?��X����� DDDD�!fl-46961e513b-223�"fl-46961e513b-224�#fl-46961e513b-225�$fl-46961e513b-226�%fl-46961e513b-227�&!"#$%�'E &�(D'F�)A(Q�*A(Q�+A(Q�,?j��-garg2�.X���-��/DDDDD�0fl-46961e513b-22f�1fl-46961e513b-230�2fl-46961e513b-231�3fl-46961e513b-232�4fl-46961e513b-233�5fl-46961e513b-234�6012345�7E./6�8D7F�9A8Q�:Ad8Q�;X����<DDD�=fl-46961e513b-23d�>fl-46961e513b-23e�?fl-46961e513b-23f�@fl-46961e513b-240�A=>?@�BE;<A�CDBF�DACQ�EACQ�FE�Ggt�HAGCQ�IA�CQ�Jgnull?�KAJCQ�LKH�MIL�Ngcar�OANCQ�POH�QP�RACQ�Sgcdr�TASCQ�UTH�VU�WRV�Xgm-46961e513b-245�YXC�ZY�[fl-46961e513b-247�\[�]EHZ\�^DF]�_A�^Q�`@_�a`?�b???a?�cYDDDD�dfl-46961e513b-24a�efl-46961e513b-24b�ffl-46961e513b-24c�gfl-46961e513b-24d�hfl-46961e513b-24e�idefgh�jEci�kDjF]�lAkQ�mAkQ�ngstr�oAnkQ�pglen�qApkQ�rA
kQ�sqr�ts�uA�kQ�vg
string-length�wAvkQ�xwo�yuqx�zy�{r�|g<�}A|kQ�~q�g
string-ref��AkQ��AkQ��g+��A�kQ��AkQ�����ah���?����?����?����X����-���YDDDDDD��fl-46961e513b-255��fl-46961e513b-256��fl-46961e513b-257��fl-46961e513b-258��fl-46961e513b-259��fl-46961e513b-25a��fl-46961e513b-25b�����������E�����D�F]��A�Q��A��Q��g
string-append��A��Q��X������fl-46961e513b-265��fl-46961e513b-266��fl-46961e513b-267��fl-46961e513b-268��fl-46961e513b-269���������E�c���D�F]��A�Q��A��Q��A��Q������gm-46961e513b-270���C���DDD��fl-46961e513b-275��fl-46961e513b-276��fl-46961e513b-277��fl-46961e513b-278��������E;�������fl-46961e513b-272�����EH����D�F���A�Q��A��Q��A��Q������DF���A��Q��@����?��???�?���DDDD��fl-46961e513b-27e��fl-46961e513b-27f��fl-46961e513b-280��fl-46961e513b-281��fl-46961e513b-282���������E����D�F���A�Q��A�Q��gvec��A��Q��Ap�Q��A
�Q���������A��Q��g
vector-length��A��Q�����������������A|�Q�����g
vector-ref��A��Q��A�Q��A��Q��A�Q������h���?ތ��?ߌ��?���DDDDDD��fl-46961e513b-289��fl-46961e513b-28a��fl-46961e513b-28b��fl-46961e513b-28c��fl-46961e513b-28d��fl-46961e513b-28e��fl-46961e513b-28f�����������E�����D�F���A�Q��A�Q��A�Q���DDDDD��fl-46961e513b-299��fl-46961e513b-29a��fl-46961e513b-29b��fl-46961e513b-29c��fl-46961e513b-29d��fl-46961e513b-29e����������E.����D�F���A�Q��A�Q��A��Q��A�Q������Ap�Q�A
�Q���gvecs�A�Q�gec-:vector-filter�A�Q�glist�A�Q�gk�	A�Q�
	�
�A��Q�
A|�Q�
	��A�Q�AJ�Q��Az�Q�A��Q�AN�Q����AS�Q���A��Q�����	���� �!A��Q�"!�	�#"�$A��Q�%A�Q�&$	%�'&�('�)gm-46961e513b-2a6�*)C�+*�,fl-46961e513b-2a8�-,�.EH+-�/DF.�0A�/Q�1@0�21?�3???2�4X����5*DDD�6fl-46961e513b-2ab�7fl-46961e513b-2ac�8fl-46961e513b-2ad�9fl-46961e513b-2ae�:6789�;E45:�<D;F.�=A<Q�>A
<Q�?>�@A<Q�AA�<Q�BA<Q�CB�D???�EX���F*DD�Gfl-46961e513b-2b4�Hfl-46961e513b-2b5�Ifl-46961e513b-2b6�JGHI�KEEFJ�LDKF.�MALQ�NA
LQ�ON�PALQ�QA�LQ�RALQ�SR�Tgm-46961e513b-2ba�UTC�VU�Wfl-46961e513b-2bc�XW�YEHVX�ZDFY�[A�ZQ�\@[�]\?�^]g��_?^��`?_��a?`��bX������cUDDDDD�dfl-46961e513b-2bf�efl-46961e513b-2c0�ffl-46961e513b-2c1�gfl-46961e513b-2c2�hfl-46961e513b-2c3�ifl-46961e513b-2c4�jdefghi�kEbcj�lDkFY�mAlQ�nAlQ�oAlQ�pX����qUDDD�rfl-46961e513b-2cd�sfl-46961e513b-2ce�tfl-46961e513b-2cf�ufl-46961e513b-2d0�vrstu�wEpqv�xDwFY�yAxQ�zA
xQ�{AxQ�|{�}X���-�~UDDDD�fl-46961e513b-2d6��fl-46961e513b-2d7��fl-46961e513b-2d8��fl-46961e513b-2d9��fl-46961e513b-2da��������E}~���D�FY��A�Q��A�Q�����,
��???�?y��X��-��fl-46961e513b-2e1��fl-46961e513b-2e2��fl-46961e513b-2e3��fl-46961e513b-2e4��������E�q���D�FY��A�Q��A�Q��gb��A��Q��A��Q��A��Q��A��Q��ginteger?��A��Q������gexact?��A��Q���������������gerror��A��Q��f*arguments of :range are not exact integer ��A��Q��f(use :real-range?)��A��Q��A
�Q��A�Q���������������������A|�Q��������A�Q��A��Q�����,	���???�?���fl-46961e513b-2ea��fl-46961e513b-2eb��fl-46961e513b-2ec��fl-46961e513b-2ed��������E�q���D�FY��A�Q��A�Q��A��Q��A��Q��A��Q��A��Q��A��Q������A��Q���������������A��Q��A��Q��A��Q��A
�Q��A�Q���������������������g>��A��Q��������A�Q��g-��A��Q�����?????y��fl-46961e513b-2f3��fl-46961e513b-2f4��fl-46961e513b-2f5��fl-46961e513b-2f6��fl-46961e513b-2f7���������E}~���D�FY��A�Q��A�Q��ga��A��Q��A��Q��A��Q��A��Q��A��Q��A��Q������A��Q�������������������������A��Q��A��Q��A��Q��A�Q���������������������A|�Q��������A�Q�A��Q���?????��fl-46961e513b-2fe�fl-46961e513b-2ff�fl-46961e513b-300�fl-46961e513b-301�fl-46961e513b-302��	E}~�
D	FY�A
Q�A
Q�
A�
Q�A�
Q�gs�A
Q�A	�
Q��gstop�A
Q�A

Q���A�
Q�A�
Q�A�
Q�A�
Q�
�A�
Q�
�� �! �"!�#A�
Q�$A�
Q�%A�
Q�&#$%
�'"&�('�)
�*A�
Q�+�,�-A
Q�.A�
Q�/A
Q�0/�1??????�2garg3�3X���-2�4fl-46961e513b-309�5fl-46961e513b-30a�6fl-46961e513b-30b�7fl-46961e513b-30c�8fl-46961e513b-30d�9fl-46961e513b-30e�:456789�;E3c:�<D;FY�=A<Q�>A<Q�?A�<Q�@A�<Q�AA<Q�BA<Q�CA
<Q�DBC�ED�FA�<Q�GA�<Q�HA�<Q�IA�<Q�JI?�KA�<Q�LK?�MI@�NK@�OIA�PKA�QHJLMNOP�RGQ�SA�<Q�TA�<Q�UA�<Q�VSTU?@A�WFRV�Xgzero?�YAX<Q�ZYA�[f$step size must not be zero in :range�\A[<Q�]S\�^FZ]�_A�<Q�`A�<Q�ag*�bAa<Q�cgmax�dAc<Q�egceiling�fAe<Q�gg/�hAg<Q�iA�<Q�ji@?�khjA�lfk�mdCl�nbmA�o`?n�p_Bo�qW^p�r?�sg=�tAs<Q�uB�v>�wA<Q�xA�ygm-46961e513b-315�zyC�{zDDD�|fl-46961e513b-31a�}fl-46961e513b-31b�~fl-46961e513b-31c�fl-46961e513b-31d��|}~��Ep{���z��fl-46961e513b-317�����EH����D�F���A�Q��A��Q��A��Q������A
�Q��A�Q�����DF���A��Q��@����?��???�?��X������zDDDD��fl-46961e513b-323��fl-46961e513b-324��fl-46961e513b-325��fl-46961e513b-326��fl-46961e513b-327���������E�����D�F���A�Q��A��Q��A
�Q��A�Q�����fl-46961e513b-32e��fl-46961e513b-32f��fl-46961e513b-330��fl-46961e513b-331��fl-46961e513b-332���������E}����D�F���A�Q��A��Q��A��Q������A�Q�����???�??��X����-��zDDDDD��fl-46961e513b-339��fl-46961e513b-33a��fl-46961e513b-33b��fl-46961e513b-33c��fl-46961e513b-33d��fl-46961e513b-33e����������E�����D�F���A�Q��A��Q��A�Q�����fl-46961e513b-346��fl-46961e513b-347��fl-46961e513b-348��fl-46961e513b-349��fl-46961e513b-34a��fl-46961e513b-34b����������E3����D�F���A�Q��A��Q��A��Q������???�???��X����-2��zDDDDDD��fl-46961e513b-353��fl-46961e513b-354��fl-46961e513b-355��fl-46961e513b-356��fl-46961e513b-357��fl-46961e513b-358��fl-46961e513b-359�����������E�����D�F���A�Q��A�Q��A��Q��A��Q��A�Q��gistop��A��Q��A
�Q���������A��Q��A��Q��A��Q��greal?��A��Q������������������������A��Q��f%arguments of :real-range are not real��A��Q��������������A��Q������A��Q����������������������������A��Q��gexact->inexact��A��Q������������Ag�Q�A��Q�������������	A|�Q�
��A��Q�Aa�Q�
A�Q�A�Q��gm-46961e513b-361�C��fl-46961e513b-363��EH�DF�A�Q�@�?�?????�DDDDD�fl-46961e513b-366�fl-46961e513b-367�fl-46961e513b-368�fl-46961e513b-369� fl-46961e513b-36a�!fl-46961e513b-36b�" !�#E�"�$D#F�%A$Q�&A$Q�'A$Q�(DDDD�)fl-46961e513b-373�*fl-46961e513b-374�+fl-46961e513b-375�,fl-46961e513b-376�-fl-46961e513b-377�.)*+,-�/E}(.�0D/F�1A0Q�2A0Q�3gimax�4A30Q�5g
char->integer�6A50Q�7A�0Q�8g<=�9A80Q�:974�;g
integer->char�<A;0Q�=<7�>=�?A0Q�@A�0Q�AA0Q�B@7A�CB�D?C�Egm-46961e513b-37d�FEC�GF�Hfl-46961e513b-37f�IH�JEHGI�KDFJ�LA�KQ�M@L�NM?�ONg��P?O��Q?P��R?Q��SFDDDDD�Tfl-46961e513b-382�Ufl-46961e513b-383�Vfl-46961e513b-384�Wfl-46961e513b-385�Xfl-46961e513b-386�Yfl-46961e513b-387�ZTUVWXY�[EbSZ�\D[FJ�]A\Q�^A\Q�_A\Q�`FDDD�afl-46961e513b-390�bfl-46961e513b-391�cfl-46961e513b-392�dfl-46961e513b-393�eabcd�fE;`e�gDfFJ�hAgQ�igread�jAigQ�kj�lFDDDD�mfl-46961e513b-399�nfl-46961e513b-39a�ofl-46961e513b-39b�pfl-46961e513b-39c�qfl-46961e513b-39d�rmnopq�sE}lr�tDsFJ�uAtQ�vAtQ�wgport�xAwtQ�yg	read-proc�zAytQ�{zx�|{�}A�tQ�~geof-object?�A~tQ��v��AtQ����|��gm-46961e513b-3a3���C�����fl-46961e513b-3a5�����EH����DF���A��Q��@����?���h���?����?����?����gdispatch��X���������DDDDDD��fl-46961e513b-3a8��fl-46961e513b-3a9��fl-46961e513b-3aa��fl-46961e513b-3ab��fl-46961e513b-3ac��fl-46961e513b-3ad��fl-46961e513b-3ae�����������E�����D�F���A�Q��A�Q��A�Q��X��������DDDDD��fl-46961e513b-3b8��fl-46961e513b-3b9��fl-46961e513b-3ba��fl-46961e513b-3bb��fl-46961e513b-3bc��fl-46961e513b-3bd����������E�����D�F���A�Q��A�Q��gd��A��Q��gargs��A��Q��A�Q��A��Q��A�Q������gempty��A��Q��������������A��Q�����������A��Q��A��Q��g
procedure?��A��Q����������A��Q��f%unrecognized arguments in dispatching��A��Q��gquote��A��Q�������������������������������geq?��A��Q��������A�Q�������?g��X����gm-46961e513b-3c5���C���DD��fl-46961e513b-3ca��fl-46961e513b-3cb��fl-46961e513b-3cc�������E��������fl-46961e513b-3c7�����EH����D�F���A�Q��A��Q������DF���A�Q��@���A�Q��@����g���geach���y���T���������?�?T��??���glv��gli��gv��X�
�����
����DDDDDDDDDDD��fl-46961e513b-3d2��fl-46961e513b-3d3��fl-46961e513b-3d4��fl-46961e513b-3d5��fl-46961e513b-3d6��fl-46961e513b-3d7��fl-46961e513b-3d8�fl-46961e513b-3d9�fl-46961e513b-3da�fl-46961e513b-3db�fl-46961e513b-3dc�fl-46961e513b-3dd���������E���DF��A	Q�	AQ�
gmap�
�
�
gne2�A
Q�AQ���AQ��glambda�AQ�A�Q��A�Q�A�Q��AzQ�A�Q�gvalue�AQ�� �!�"X��#�D�$fl-46961e513b-3f4�%fl-46961e513b-3f5�&$%�'E"#&�(D'F��)A�(Q�*fillegal macro call�+A*(Q�,)+�-fdispatching conflict�.glength�/gSRFI42�0gstring?�1ginput-port?�2gchar?�3glist?�4gvector?�5gvector->list�6g
:-dispatch�7fnot a procedure�8gm-46961e513b-3f8�98C�:9�;fl-46961e513b-3fa�<;�=EH:<�>DF=�?A�>Q�@@?�A@?�BAg��C?B��D?C��E?D��F9DDDDD�Gfl-46961e513b-3fd�Hfl-46961e513b-3fe�Ifl-46961e513b-3ff�Jfl-46961e513b-400�Kfl-46961e513b-401�Lfl-46961e513b-402�MGHIJKL�NEbFM�ODNF=�PAOQ�QA�OQ�RA6OQ�S9DDDD�Tfl-46961e513b-40b�Ufl-46961e513b-40c�Vfl-46961e513b-40d�Wfl-46961e513b-40e�Xfl-46961e513b-40f�YTUVWX�ZE�SY�[DZF=�\A[Q�]A6[Q�^gm-46961e513b-416�_^C�`_�afl-46961e513b-418�ba�cEH`b�dDFc�eABdQ�f@e�gfT��hgj��i?h��j?i��kgx0�lgetc2�mgetc3�nXkkYmlmZ�o_DDDDDDD�pfl-46961e513b-41b�qfl-46961e513b-41c�rfl-46961e513b-41d�sfl-46961e513b-41e�tfl-46961e513b-41f�ufl-46961e513b-420�vfl-46961e513b-421�wfl-46961e513b-422�xpqrstuvw�yEnox�zDyFc�{A%zQ�|ABzQ�}?,��~?}��XkklmlmZ��fl-46961e513b-42e��fl-46961e513b-42f��fl-46961e513b-430��fl-46961e513b-431��fl-46961e513b-432��fl-46961e513b-433��fl-46961e513b-434��fl-46961e513b-435������������Eo���D�Fc��A%�Q��AB�Q��gf1��gf2��Xk�����_DDDD��fl-46961e513b-440��fl-46961e513b-441��fl-46961e513b-442��fl-46961e513b-443��fl-46961e513b-444���������E�����D�Fc��A%�Q��AB�Q�����g	qualifier��Xk������_DDDDD��fl-46961e513b-44b��fl-46961e513b-44c��fl-46961e513b-44d��fl-46961e513b-44e��fl-46961e513b-44f��fl-46961e513b-450����������E�����D�Fc��A�Q��A�Q��A�Q������A��Q��A�Q����������A!�Q��A�Q��A��Q��Az�Q��A��Q��������������������gm-46961e513b-457���C�����fl-46961e513b-459�����EH����DF���AB�Q��@����T����i���?��?��XkkYmlZ���DDDDDD��fl-46961e513b-45c��fl-46961e513b-45d��fl-46961e513b-45e��fl-46961e513b-45f��fl-46961e513b-460��fl-46961e513b-461��fl-46961e513b-462�����������E�����D�F���A$�Q��AB�Q��XkklmlZ��fl-46961e513b-46d��fl-46961e513b-46e��fl-46961e513b-46f��fl-46961e513b-470��fl-46961e513b-471��fl-46961e513b-472��fl-46961e513b-473�����������E�����D�F���A$�Q��AB�Q��Xk�����DDD��fl-46961e513b-47d��fl-46961e513b-47e��fl-46961e513b-47f��fl-46961e513b-480��������E�����D�F���A$�Q��AB�Q�����Xk������DDDD��fl-46961e513b-486��fl-46961e513b-487��fl-46961e513b-488��fl-46961e513b-489��fl-46961e513b-48a���������E�����D�F���A�Q��A�Q��A!�Q��A��Q�����greverse��XmZ��gm-46961e513b-490��C�DD�fl-46961e513b-495�fl-46961e513b-496�fl-46961e513b-497��E���fl-46961e513b-492�	�
EH	�DF
�A�Q�
A$Q�A�Q��gcons�AQ��gapply�gm-46961e513b-49c�C�DD�fl-46961e513b-4a1�fl-46961e513b-4a2�fl-46961e513b-4a3��E���fl-46961e513b-49e��EH� DF�!A Q�"Ad Q�#A' Q�$glist->string�%gm-46961e513b-4a8�&%C�'&DD�(fl-46961e513b-4ad�)fl-46961e513b-4ae�*fl-46961e513b-4af�+()*�,E�'+�-&�.fl-46961e513b-4aa�/.�0EH-/�1D,F0�2A$1Q�3A'1Q�4gm-46961e513b-4b4�54C�65DD�7fl-46961e513b-4b9�8fl-46961e513b-4ba�9fl-46961e513b-4bb�:789�;E�6:�<5�=fl-46961e513b-4b6�>=�?EH<>�@D;F?�AA@Q�BA�@Q�CA'@Q�Dglist->vector�Egm-46961e513b-4c0�FEC�GFDD�Hfl-46961e513b-4c5�Ifl-46961e513b-4c6�Jfl-46961e513b-4c7�KHIJ�LE�GK�MF�Nfl-46961e513b-4c2�ON�PEHMO�QDLFP�RADQQ�SA'QQ�Tgm-46961e513b-4cc�UTC�VU�Wfl-46961e513b-4ce�XW�YEHVX�ZDFY�[ABZQ�\@[�]\T��^]h��_?^��`?_��aXkYmZ�bUDDDDD�cfl-46961e513b-4d1�dfl-46961e513b-4d2�efl-46961e513b-4d3�ffl-46961e513b-4d4�gfl-46961e513b-4d5�hfl-46961e513b-4d6�icdefgh�jEabi�kDjFY�lA0kQ�mABkQ�nXklmZ�ofl-46961e513b-4e0�pfl-46961e513b-4e1�qfl-46961e513b-4e2�rfl-46961e513b-4e3�sfl-46961e513b-4e4�tfl-46961e513b-4e5�uopqrst�vEnbu�wDvFY�xA0wQ�yABwQ�zX��{UDD�|fl-46961e513b-4ee�}fl-46961e513b-4ef�~fl-46961e513b-4f0�|}~��Ez{��D�FY��A0�Q��AB�Q�����X����UDDD��fl-46961e513b-4f5��fl-46961e513b-4f6��fl-46961e513b-4f7��fl-46961e513b-4f8��������E�����D�FY��A�Q��Ap�Q��A��Q��gmake-vector��A��Q����������A��Q��A
�Q����������A!�Q��A��Q��A|�Q�������Az�Q��gvector-set!��A��Q��A��Q��A��Q��A�Q���������������A��Q��f)vector is too short for the comprehension��A��Q���������As�Q�������f(vector is too long for the comprehension��A��Q���������������gm-46961e513b-4fd���C���DD��fl-46961e513b-502��fl-46961e513b-503��fl-46961e513b-504�������E��������fl-46961e513b-4ff�����EH����D�F���A$�Q��A��Q�����gm-46961e513b-509���C���DD��fl-46961e513b-50e��fl-46961e513b-50f��fl-46961e513b-510�������E��������fl-46961e513b-50b�����EH����D�F���A$�Q��Aa�Q�����gm-46961e513b-515���C���DD��fl-46961e513b-51a��fl-46961e513b-51b��fl-46961e513b-51c�������E��������fl-46961e513b-517�����EH����D�F���A%�Q��gmin��A��Q���������gm-46961e513b-521���C���DD��fl-46961e513b-526��fl-46961e513b-527��fl-46961e513b-528�������E��������fl-46961e513b-523�����EH����D�F���A%�Q��Ac�Q���������gm-46961e513b-52d���C�����fl-46961e513b-52f�����EH����DF���AB�Q��@����T����h��	?���	?	��	gdefault�	X	kYmZ�	�DDDDD�	fl-46961e513b-532�	fl-46961e513b-533�	fl-46961e513b-534�	fl-46961e513b-535�		fl-46961e513b-536�	
fl-46961e513b-537�								
�	E			�	
D	F��	A&	
Q�	AB	
Q�	X	klmZ�	fl-46961e513b-541�	fl-46961e513b-542�	fl-46961e513b-543�	fl-46961e513b-544�	fl-46961e513b-545�	fl-46961e513b-546�							�	E			�	D	F��	A&	Q�	AB	Q�	X	��	�DD�	fl-46961e513b-54f�	fl-46961e513b-550�	 fl-46961e513b-551�	!			 �	"E			!�	#D	"F��	$A&	#Q�	%AB	#Q�	&	%�	'X	���	(�DDD�	)fl-46961e513b-556�	*fl-46961e513b-557�	+fl-46961e513b-558�	,fl-46961e513b-559�	-	)	*	+	,�	.E	'	(	-�	/D	.F��	0A	/Q�	1A	/Q�	2A!	/Q�	3A�	/Q�	4	1�	5gm-46961e513b-55e�	6	5C�	7	6�	8fl-46961e513b-560�	9	8�	:EH	7	9�	;DF	:�	<AB	;Q�	=@	<�	>	=T��	?	>h��	@?	?��	A?	@��	B	6DDDDD�	Cfl-46961e513b-563�	Dfl-46961e513b-564�	Efl-46961e513b-565�	Ffl-46961e513b-566�	Gfl-46961e513b-567�	Hfl-46961e513b-568�	I	C	D	E	F	G	H�	JE		B	I�	KD	JF	:�	LA#	KQ�	MAB	KQ�	Nfl-46961e513b-572�	Ofl-46961e513b-573�	Pfl-46961e513b-574�	Qfl-46961e513b-575�	Rfl-46961e513b-576�	Sfl-46961e513b-577�	T	N	O	P	Q	R	S�	UE		B	T�	VD	UF	:�	WA#	VQ�	XAB	VQ�	Y	6DD�	Zfl-46961e513b-580�	[fl-46961e513b-581�	\fl-46961e513b-582�	]	Z	[	\�	^E		Y	]�	_D	^F	:�	`A#	_Q�	aAB	_Q�	b	a�	c	6DDD�	dfl-46961e513b-587�	efl-46961e513b-588�	ffl-46961e513b-589�	gfl-46961e513b-58a�	h	d	e	f	g�	iE	'	c	h�	jD	iF	:�	kA	jQ�	lA	jQ�	mA	jQ�	nA	jQ�	o	m	n�	p	o�	qgec-guarded-do-ec�	rA	q	jQ�	sAB	jQ�	tAz	jQ�	uA�	jQ�	vA	jQ�	w	u	m	v�	x	w�	y	l�	zgm-46961e513b-58f�	{	zC�	|	{�	}fl-46961e513b-591�	~	}�	EH	|	~�	�DF	�	�AB	�Q�	�@	��	�	�T��	�	�T��	�	�	���	�??	�?�	�Xkl{�	�	{DDDD�	�fl-46961e513b-594�	�fl-46961e513b-595�	�fl-46961e513b-596�	�fl-46961e513b-597�	�fl-46961e513b-598�	�	�	�	�	�	��	�E	�	�	��	�D	�F	�	�A	q	�Q�	�AB	�Q�	�A�	�Q�	�@	��	�	�?�	�	�T��	�	�	���	�??	�?�	�X�Y{�	�fl-46961e513b-5a1�	�fl-46961e513b-5a2�	�fl-46961e513b-5a3�	�fl-46961e513b-5a4�	�fl-46961e513b-5a5�	�	�	�	�	�	��	�E	�	�	��	�D	�F	�	�A�	�Q�	�A	q	�Q�	�AB	�Q�	�A�	�Q�	�@	��	�	�?�	�	�T��	�	�	���	�??	�?�	�fl-46961e513b-5ad�	�fl-46961e513b-5ae�	�fl-46961e513b-5af�	�fl-46961e513b-5b0�	�fl-46961e513b-5b1�	�	�	�	�	�	��	�E	�	�	��	�D	�F	�	�A�	�Q�	�A�	�Q�	�A	q	�Q�	�AB	�Q�	�A�	�Q�	�@	��	�	�T��	�	�T��	�	�	���	�??	�?�	�fl-46961e513b-5b9�	�fl-46961e513b-5ba�	�fl-46961e513b-5bb�	�fl-46961e513b-5bc�	�fl-46961e513b-5bd�	�	�	�	�	�	��	�E	�	�	��	�D	�F	�	�A�	�Q�	�A�	�Q�	�A	q	�Q�	�AB	�Q�	�A�	�Q�	�@	��	�	�T��	�	�T��	�	�	̌�	�??	�?�	�fl-46961e513b-5c6�	�fl-46961e513b-5c7�	�fl-46961e513b-5c8�	�fl-46961e513b-5c9�	�fl-46961e513b-5ca�	�	�	�	�	�	��	�E	�	�	��	�D	�F	�	�A�	�Q�	�A�	�Q�	�A	q	�Q�	�AB	�Q�	�Az	�Q�	�@	��	�	�T��	�	�T��	�	�	ތ�	�??	�?�	�XZY{�	�fl-46961e513b-5d3�	�fl-46961e513b-5d4�	�fl-46961e513b-5d5�	�fl-46961e513b-5d6�	�fl-46961e513b-5d7�	�	�	�	�	�	��	�E	�	�	��	�D	�F	�	�Az	�Q�	�A	q	�Q�	�AB	�Q�	�	�g��	�??	�?�	�XY{�	�fl-46961e513b-5e0�	�fl-46961e513b-5e1�	�fl-46961e513b-5e2�	�fl-46961e513b-5e3�	�fl-46961e513b-5e4�	�	�	�	�	�	��	�E	�	�	��	�D	�F	�	�A!	�Q�	�A	�Q�	�A	q	�Q�	�AB	�Q�	�	��	�??	�?�	�X{�	�	{DD�
fl-46961e513b-5ec�
fl-46961e513b-5ed�
fl-46961e513b-5ee�



�
E	�	�
�
D
F	�
A!
Q�
gm-46961e513b-5f2�

C�
	
�

fl-46961e513b-5f4�


�
EH
	
�

DF
�
AB

Q�
@
�

T��

h��
?
��
XkYmZ�

DDDD�
fl-46961e513b-5f7�
fl-46961e513b-5f8�
fl-46961e513b-5f9�
fl-46961e513b-5fa�
fl-46961e513b-5fb�





�
E


�
D
F
�
A
Q�
AB
Q�
fl-46961e513b-604�
 fl-46961e513b-605�
!fl-46961e513b-606�
"fl-46961e513b-607�
#fl-46961e513b-608�
$

 
!
"
#�
%En

$�
&D
%F
�
'A
&Q�
(AB
&Q�
)X��
*
D�
+fl-46961e513b-610�
,fl-46961e513b-611�
-
+
,�
.E
)
*
-�
/D
.F
�
0A
/Q�
1AB
/Q�
2
1�
3X���
4
DD�
5fl-46961e513b-615�
6fl-46961e513b-616�
7fl-46961e513b-617�
8
5
6
7�
9E
3
4
8�
:D
9F
�
;A#
:Q�
<A
:Q�
=A�
:Q�
>A
:Q�
?
>�
@gm-46961e513b-61b�
A
@C�
B
A�
Cfl-46961e513b-61d�
D
C�
EEH
B
D�
FDF
E�
GAB
FQ�
H@
G�
I
HT��
J
Ih��
K?
J��
L
ADDDD�
Mfl-46961e513b-620�
Nfl-46961e513b-621�
Ofl-46961e513b-622�
Pfl-46961e513b-623�
Qfl-46961e513b-624�
R
M
N
O
P
Q�
SE

L
R�
TD
SF
E�
UA"
TQ�
VAB
TQ�
Wfl-46961e513b-62d�
Xfl-46961e513b-62e�
Yfl-46961e513b-62f�
Zfl-46961e513b-630�
[fl-46961e513b-631�
\
W
X
Y
Z
[�
]En
L
\�
^D
]F
E�
_A"
^Q�
`AB
^Q�
a
AD�
bfl-46961e513b-639�
cfl-46961e513b-63a�
d
b
c�
eE
)
a
d�
fD
eF
E�
gA"
fQ�
hAB
fQ�
i
h�
j
ADD�
kfl-46961e513b-63e�
lfl-46961e513b-63f�
mfl-46961e513b-640�
n
k
l
m�
oE
3
j
n�
pD
oF
E�
qA#
pQ�
rA
pQ�
sA�
pQ�
tA�
pQ�
uA
pQ�
v
u�C5h���]4	
1544>"G45i46i57>"G4:!;>WcfhM]45�CEgdummy
		gq		getc						Cjxhp]���Chgdummy
		gq1		gq2			getc1			getc						Cy��h>]��C6gdummy
		gcmd					C���hP]CHgdummy
		gtest		gcmd						C����hP]CHgdummy
		gtest		gcmd						C����hP]�CHgdummy
		gtest		gcmd						C����hP]�CHgdummy
		gtest		gcmd						C��f�hO]45�CGgdummy
		getc		gcmd						C���h �,3C�gdummy
		golet		glbs			gne1?			gilet			gne2?			glss			gcmd						C��hp]���Chgdummy
		gg		garg1			garg			gcmd						C��h��]Q45$@45$@45$@45$	@4
5$@45$
@45$@45$@45		$	@45

$
@6�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp		~�gtmp	��gtmp	��gtmp		��gtmp	
��gfilenamefsrfi/srfi-42/ec.scm�
	:	��	�g
macro-typegsyntax-rules�gpatternsgnestedgqg...getcg...gq1gq2getc1getcg...gcmdgifgtestgcmdgnotgtestgcmdgandgtestg...gcmdgorgtestg...gcmdgbegingetcg...gcmdg:dogoletglbsgne1?giletgne2?glssgcmdgggarg1gargg...gcmdC5!R4:�;>f!"h`�,
3
44	�5��5��C�gdummy
		Ygcmd		Ygobs			Ygoc			Yglbs			Ygne1?			Ygibs			Ygic			Ygne2?			Ygls				Y
		Y	
C��h(]	45$@6gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
	g	��		"g
macro-typegsyntax-rules�gpatternsgcmdg:dogletgobsgocg...glbsgne1?gletgibsgicg...gne2?glsg...C5�R4:	;>/hE]C=gdummy
		g
consequent					C2=hE]C=gdummy
		g
consequent					C?h\]CTgdummy
		g
consequent		g	alternate						CAh\]CTgdummy
		g
consequent		g	alternate						CGPQhW]COgdummy
		gtest		g
consequent						CS^_hn]Cfgdummy
		gtest		g
consequent			g	alternate						CdlmhB]�C:gdummy
		
gcommand		
		
	CqwxhB]C:gdummy
		
gcommand		
		
	C{��fhg]45C_gdummy
		gdone		gto-do1			gto-do2						C���fhf]45C^gdummy
		gdone		gto-do1			gto-do						C��h-]C%gdummy
				C�hB]C:gdummy
		gcommand					C��hX]��CPgdummy
		gcommand1		gcommand						CyhE]C=gdummy
		g
expression					C�� hP�]q45$@45$@45$@45$	@4
5$@45$
@45$@45$@45		$	@45

$
@45$@45$@45

$
@45$@6�gx
	Mgtmp	Mgtmp		"Mgtmp		9Mgtmp		PMgtmp		gMgtmp		~Mgtmp	�Mgtmp	�Mgtmp		�Mgtmp	
�Mgtmp	�Mgtmp	Mgtmp	
Mgtmp	6Mgfilenamefsrfi/srfi-42/ec.scm�
�	��	Mg
macro-typegsyntax-rules�gpatternsgifg
consequentgifg
consequentgifg
consequentg	alternategifg
consequentg	alternategifgnotgnotgtestg
consequentgifgnotgnotgtestg
consequentg	alternategletgcommandg...gbegingcommandg...gdonegbegingto-do1g...gto-do2g...gdoneg...gto-do1gto-dog...gcommandgcommand1gcommandg...g
expressionC5	R4:;>�f�h �,36�gdummy
		 gcc		 golet			 glbs			 gne1?			 gilet			 gne2?			 glss			 		 	C����hq]Cigdummy
		gcc		glbs			gne1?			glss						C��h@]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-42/ec.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgccg...goletglbsgne1?giletgne2?glssgccglbsgne1?glssC5R4:;>�����h u]����Cmgdummy
		 gcc		 gvar			 gi			 g
expression			 		 	C����h f]���C^gdummy
		gcc		gvar			g
expression						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-42/ec.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgccgvargindexgig
expressiongccgvarg
expressionC5R4:;>yh=]C5gdummy
		gcc					Ch�]���Cxgdummy
		gcc		gg			garg1			garg			ggen						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-42/ec.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgccgccgggarg1gargg...ggeng...C5R4:;>+h�]���C�gdummy
		gcc		gg			garg1			garg			ggen			gresult						C4^_`fahhg,34545��4
54545��	4
5C_gdummy
		egcc		eggens			egob1			egoc1			eglb1			egne1?1			egib1			egic1			egne2?1				egls1	
		egob2			egoc2			eglb2	
		egne1?2			egib2			egic2			egne2?2			egls2			e		e	CbfhQ]6Igdummy
		
gcc		
gresult			
		
	C��
hPH]45$@45$@45$@	6@gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsrfi/srfi-42/ec.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgccgggarg1gargg...ggeng...gresultgccggensg:dogletgob1g...goc1g...glb1g...gne1?1gletgib1g...gic1g...gne2?1gls1g...g:dogletgob2g...goc2g...glb2g...gne1?2gletgib2g...gic2g...gne2?2gls2g...gccg...gresultC5R4:;>cvh�]���Cygdummy
		gcc		gg			garg1			garg			gtest						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
	��		"g
macro-typegsyntax-rules�gpatternsgccgggarg1gargg...gtestC5R4:d;>���h(�,	3	C�gdummy
		$gcc		$gtest			$golet			$glbs			$gne1?			$gilet			$gne2?			$glss			$			$		C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
>	��		"g
macro-typegsyntax-rules�gpatternsgccgtestg:dogoletglbsgne1?giletgne2?glssC5dR4:�;>��f������	hh0,3454	
54	�54	5��
C(gdummy
		agcc		agtest			agib-let			agib-save			ag
ib-restore			agolet			aglbs			agne1?			agib-var				agib-rhs	
		agib			agic			agne2?	
		aglss			a		a	C���f��hX,
3
45��	4
5��C�gdummy
		Rgcc		Rgtest			Rgib-let			Rgib-save			Rg
ib-restore			Rgob			Rgoc			Rglbs			Rgne1?				Rgic	
		Rgne2?			Rglss			R
		R	
C��h@]45$@45$@6gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-42/ec.scm�
C	��		9g
macro-typegsyntax-rules�gpatternsgccgtestgib-letg...gib-saveg...g
ib-restoreg...g:dogoletglbsgne1?gletgib-vargib-rhsgibg...gicg...gne2?glssgccgtestgib-letg...gib-saveg...g
ib-restoreg...g:dogletgobg...gocg...glbsgne1?gletgicg...gne2?glssC5�R4:;>c�h�]���Cygdummy
		gcc		gg			garg1			garg			gtest						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
n	��		"g
macro-typegsyntax-rules�gpatternsgccgggarg1gargg...gtestC5R4:�;>h(�,	3	C�gdummy
		&gcc		&gtest			&golet			&glbs			&gne1?			&gilet			&gne2?			&glss			&			&		C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
s	��		"g
macro-typegsyntax-rules�gpatternsgccgtestg:dogoletglbsgne1?giletgne2?glssC5�R4:;>)*+h n]��Cfgdummy
		gcc		gvar			gi			garg						C,9:h�]���C{gdummy
		gcc		gvar			garg1			garg2			garg						C�DFHMEQWh0_]�������CWgdummy
		*gcc		*gvar			*garg			*		*	C��
hP+]45$@45$@45$@	6#gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsrfi/srfi-42/ec.scm�
}	��		Pg
macro-typegsyntax-rules�gpatternsgccgvargindexgigargg...gccgvargarg1garg2gargg...gccgvargargC5R4:;>blmotz{}~����
hPn]������	
��Cfgdummy
		Mgcc		Mgvar			Mgi			Mgarg			M		M	C����h �]���C�gdummy
		gcc		gvar			gi			garg1			garg2			garg						Cj��hq]�����Cigdummy
		gcc		gvar			garg1			garg						C��
hPD]45$@45$@45$@	6<gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsrfi/srfi-42/ec.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgccgvargindexgigarggccgvargindexgigarg1garg2gargg...gccgvargarg1gargg...C5R4:;>���h_]CWgdummy
		gcc		gvar			garg						C�������������
hPn]������	
��Cfgdummy
		Mgcc		Mgvar			Mgi			Mgarg			M		M	C����h(�]�����C�gdummy
		"gcc		"gvar			"gi			"garg1			"garg2			"garg			"		"	C,��� #(hH�]���	
�������C{gdummy
		Agcc		Agvar			Agarg1			Agarg2			Agarg			A		A	C��hht]!45$@45$@45$@45$	@
6lgx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-42/ec.scm�
�	��		gg
macro-typegsyntax-rules�gpatternsgccgvargarggccgvargindexgigarggccgvargindexgigarg1garg2gargg...gccgvargarg1garg2gargg...C5R�h0�](C4�5
�$�6�4�5�C�gvecs
		,gfilenamefsrfi/srfi-42/ec.scm�
�
��	�	��		�	��	�	��	�	 ��	�	��	�	
��	�	��	�	��	�	
��	"�	��	#�	��	(�	.��	*�	��	+�	
��		,gnamegec-:vector-filter�CR4:;>3=?@ACh0]]������CUgdummy
		,gcc		,gvar			,gi			,		,	CDMOPQSh N]���CFgdummy
		gcc		gvar						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-42/ec.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgccgvargindexgigccgvarC5R4:;>amnoh �]���Cxgdummy
		gcc		gvar			gi			garg1			garg						C�yz|h`]�����CXgdummy
		gcc		gvar			garg1						C���hr]�����Cjgdummy
		gcc		gvar			garg1			garg2						C������������h@`]�����	
��CXgdummy
		9gcc		9gvar			9garg2			9		9	C������������h@`]�����	
��CXgdummy
		9gcc		9gvar			9garg2			9		9	C�����������
h@r]�����	
��Cjgdummy
		@gcc		@gvar			@garg1			@garg2			@		@	C
()*+,-.0hHr]�����	��

��Cjgdummy
		Agcc		Agvar			Agarg1			Agarg2			A		A	C1=>?@AEqrGtuvw`xhP�]������	
��
��C|gdummy
		Ngcc		Ngvar			Ngarg1			Ngarg2			Ngarg3			N		N	C��h�']A45$@45$@45$@45$	@4
5$@45$
@45$@45$@6gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp		~�gtmp	��gtmp	��	gfilenamefsrfi/srfi-42/ec.scm�
�	��	�g
macro-typegsyntax-rules�gpatternsgccgvargindexgigarg1gargg...gccgvargarg1gccgvargarg1garg2gccgvar
garg2gccgvar
garg2	�gccgvargarg1garg2gccgvargarg1garg2	�gccgvargarg1garg2garg3	C5R4:;>�����h`]������CXgdummy
		gcc		gvar			garg1						C�����h o]������Cggdummy
		gcc		gvar			gi			garg1						C����hr]������Cjgdummy
		gcc		gvar			garg1			garg2						C����h �]������Cygdummy
		gcc		gvar			gi			garg1			garg2						C1��h�]C|gdummy
		gcc		gvar			garg1			garg2			garg3						C�������	

hh�]������	
��
��C�gdummy
		dgcc		dgvar			dgi			dgarg1			dgarg2			dgarg3			d		d	C��h��]145$@45$@45$@45$	@4
5$@45$
@6�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp		~�gfilenamefsrfi/srfi-42/ec.scm�
5	��	�g
macro-typegsyntax-rules�gpatternsgccgvargarg1gccgvargindexgigarg1gccgvargarg1garg2gccgvargindexgigarg1garg2gccgvargarg1garg2garg3gccgvargindexgigarg1garg2garg3C5R4:;>%&'h �]Cygdummy
		gcc		gvar			gi			garg1			garg2						C�12467:>D	hHr]�������Cjgdummy
		Agcc		Agvar			Agarg1			Agarg2			A		A	C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-42/ec.scm�
X	��		9g
macro-typegsyntax-rules�gpatternsgccgvargindexgigarg1garg2gccgvargarg1garg2C5R4:;>R]^_h �]���Cxgdummy
		gcc		gvar			gi			garg1			garg						C�hkh_]����CWgdummy
		gcc		gvar			garg						C�uvxz|}�	h8r]������Cjgdummy
		8gcc		8gvar			8garg1			8garg2			8		8	C��
hP%]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsrfi/srfi-42/ec.scm�
j	��		Pg
macro-typegsyntax-rules�gpatternsgccgvargindexgigarg1gargg...gccgvargarggccgvargarg1garg2C5R4:;>����h �]����C�gdummy
		gcc		gvar			gi			gdispatch			garg1			garg						C,������������
hH�]�������	
�������Cgdummy
		Agcc		Agvar			Agdispatch			Agarg1			Agarg			A		A	C��h@]45$@45$@6gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-42/ec.scm�
~	��		9g
macro-typegsyntax-rules�gpatternsgccgvargindexgigdispatchgarg1gargg...gccgvargdispatchgarg1gargg...C5R4:;>���hM]���CEgdummy
		gg		garg						C�	fh:]�C2gtmp-46961e513b-3ec
				ChZ]CRgtmp-46961e513b-3f1
		gtmp-46961e513b-3f0					ChZ]CRgtmp-46961e513b-3ee
		gtmp-46961e513b-3ed					C !h��,34445545	
��
4454	


45�������55�	���5��C�gdummy
	�gvar	�gobs		�goc		�glv		�gli		�gne1?		�gi		�gv		�gic			�gne2?	
	�gls		�	�	Cy,h>]C6gdummy
		gvar					C��
hPs]45$@45$@45$@	6kgx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsrfi/srfi-42/ec.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgggargg...gvarg:dogletgobsgocg...glvglig...gne1?gletgigvg...gicg...gne2?glsg...gvarC5Rd�-hp?]4L54L5$K$B((�$"�$"64L54L56C$CC7gargs
		pgg1		pgg2			pgfilenamefsrfi/srfi-42/ec.scm�
�	��	�	��	
�	��	�	��	�	��	 �	
��	&�	��	+�	��	/�	��	:�	,��	=�	��	A�	��	L�	,��	N�	��	R�	��	U�	5��	X�	9��	Z�	5��	[�	>��	^�	B��	`�	>��	b�	��	k�	
��		pCh�]OCzgd1
		gd2		gfilenamefsrfi/srfi-42/ec.scm�
�
��			gnamegdispatch-union�C R./h m]	M'M�NMM�NCCegempty
		gvalue		gfilenamefsrfi/srfi-42/ec.scm�
�	��		C0vh(m]	MM�$4LM5NMM�NCCegempty
		%gvalue		"gfilenamefsrfi/srfi-42/ec.scm�
�	��		%C�h(m]	MM�$LM�NMM�NCCegempty
		!gvalue		gfilenamefsrfi/srfi-42/ec.scm�
�	��		!C�����h(m]	MM�$MM��NMM�NCCegempty
		#gvalue		 gfilenamefsrfi/srfi-42/ec.scm�
�	��		#C1i~h m]	4M5#M4LL5NCCegempty
		 gvalue		gfilenamefsrfi/srfi-42/ec.scm�
�	��		 C�h m]	ML�$MM�NCCegempty
		gvalue	
	gfilenamefsrfi/srfi-42/ec.scm�
�	��		C�~h m]	4M5#M4LL5NCCegempty
		 gvalue		gfilenamefsrfi/srfi-42/ec.scm�
�	��		 C25;h(m]	ML�$4M5NMM�NCCegempty
		#gvalue		 gfilenamefsrfi/srfi-42/ec.scm�
�	��		#Ch(m]	MM�$MM��NMM�NCCegempty
		#gvalue		 gfilenamefsrfi/srfi-42/ec.scm�
�	��		#Ch m]	ML�$MM�NCCegempty
		gvalue	
	gfilenamefsrfi/srfi-42/ec.scm�
�	��		C�hPm]	MM�$""M("M�NM�N4M5N
N$MM�NMM�NCCegempty
		Lgvalue	?	Igfilenamefsrfi/srfi-42/ec.scm�
�	��		LC�h(m]	MM�$4LM5NMM�NCCegempty
		%gvalue		"gfilenamefsrfi/srfi-42/ec.scm�
�	��		%Cdh m]	M'M�NMM�NCCegempty
		gvalue		gfilenamefsrfi/srfi-42/ec.scm�
�	��		Ch(m]	MM�$MLM��NMM�NCCegempty
		$gvalue		!gfilenamefsrfi/srfi-42/ec.scm�
	��		$C[ceh m]	MM�#MML�NCCegempty
		gvalue	
	gfilenamefsrfi/srfi-42/ec.scm�
	��		C�hPm]	MM�$""M("M�NM�N4M5N
N$MM�NMM�NCCegempty
		Lgvalue	?	Igfilenamefsrfi/srfi-42/ec.scm�
	��		LCh(m]	MM�$4LM5NMM�NCCegempty
		%gvalue		"gfilenamefsrfi/srfi-42/ec.scm�
�	��		%Ch m]	M'M�NMM�NCCegempty
		gvalue		gfilenamefsrfi/srfi-42/ec.scm�
�	��		Ch(�](C4�5$
�"���C�gpred
		%gargs		%gfilenamefsrfi/srfi-42/ec.scm�
	��	
	��		��		"��		��		��		)��	#	��			%	gnamegevery?�C3h m]	M'M�NMM�NCCegempty
		gvalue		gfilenamefsrfi/srfi-42/ec.scm�
	��		Ch(m]	MM�$4LM5NMM�NCCegempty
		%gvalue		"gfilenamefsrfi/srfi-42/ec.scm�
	��		%C4
5h m]	M'M�NMM�NCCegempty
		gvalue		gfilenamefsrfi/srfi-42/ec.scm�
	��		C1h��
]I45
�$C�$S��$HHOC45$ 
H45K
HHOC�$ 
H45K
HHOC"�4	5$�

HH"4
J>"G"4	J5$""���4J5$$45�$
4
J5K""J��K
HHOC45$45HOCC45$45$
HOC"��$"�� 	�$&���"/45$"45$45HOCCC"?45$045$!4545HHOC"���"���"�4	5$�4	5$�
HH"4
J>"G"4	J5$""���4J5$$45�$
4
J5K""J��K
HHOC"��"��"J45$;45$,45$45$HOC"��"��"��"��"@�$5�$*
45HHH
HHOC"��v"��r":45$+45
H45K
HHOC"����$#�$45HH OC"���"���	�$\������"�4	5$�4	5$�4	5$�
HH"4
J>"G"4	J5$""���4J5$545�$"45�$
4
J5K""J��K
HH!OCCCC"�45$�45$�45$y45$j45$[45$L
H
�$4
">"G"4#
4$��55��KH%OC"���"���"���"���"���"���"M�$B�$7�$,
45HHH
HH	&	OC"��"��
"��	"K45$<45$-45
H45K
HH'OC"��h"��d�$0�$%�$45HH(OC"���"��~"��z)OQ4*5$4?HH+OC45$)4?
H45K
HH,OC4-5$44./5?HH0OCC�
gargs
	�gkey		�ga1		!qgt		,	;gvar		/	;glen		G	fgi		S	fgvar		V	fglen		n�gi		z�gvar		}�ga	� gistop	� gt	��gi	
 gvar	 g	read-proc	-Dgvar	6Dgvar	]iga1	��ga2	��gvar	��gimax	��gi	��gvar	��ga	�gistop	�gt	ahgi	��gvar	��gvar	��gvec	,glen	,gvecs	,gk	,gvar	,gstr	Mnglen	Mngi	[ngvar	^ngt	��gvar	��ga1	�ga2	�ga3	�ga	�zgistop	�zgt	-Egi	ezgvar	hzgstop	�gvar	gvec	Soglen	Sogvecs	Sogk	Zogvar		]ogstr	��glen	��gi	��gvar	��gt	��gvar	��gevery?	
�gt	&5gvar	)5gstr	Jkglen	Jkgi	Xkgvar	[kgt	��gvar	��Hgfilenamefsrfi/srfi-42/ec.scm�
�	��	�	
��		�	��	�	��	�	��	!�	��	!�	��	&�	��	*�	
��	,�	��	<�	��	F�	
��	G�	��	i�	��	m�	
��	n�	����	����	
����	��!�	��+�	
��-�	��F�	
��G�	��Q�	
��R�	"��\�	��]�	��z�	��}�	����	%����	����	����	
����	%����	����	����	
����	����	
����	����	����	����	
���	��
�	
���	���	���	����	
����	����	
����	"����	����	.����	����	<����	����	����	
����	����	
����	!���	���	��4�	
��9�	��C�	
��D�	��r�	
��u�	��y�	
��|�	����	����	����	����	����	%����	6����	���	����	
���	���	���	*���	���	����	
���	����	
���	"���	���	���	���	"���	���	���	���	"���	���	��*�	
��1	��5�	
��8	!��<	��?	.��C	��F	��{�	
����	����	
����	.����	����	����	
����	����	
����	����	����	*����	����	��
	��	��		�� 	#��&	��6	��B		��C	%��J	��l	��x		��y	#��|	1���	#���	���	�Chj]Cbgfilenamefsrfi/srfi-42/ec.scm�
�
��		
gnamegmake-initial-:-dispatch�C(R4(i56R6ha]CYgfilenamefsrfi/srfi-42/ec.scm�

��		
gnameg:-dispatch-ref�C
R��76h0�]45$"4>"G C�gdispatch
		+gfilenamefsrfi/srfi-42/ec.scm�
!
��	"	��	
"	��	#	��	#	
��	#	��	)$	��		+gnameg:-dispatch-set!�CR4:;>EPQRh �]������Cxgdummy
		gcc		gvar			gi			garg1			garg						Cj\]hq]�����Cigdummy
		gcc		gvar			garg1			garg						C��h@]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-42/ec.scm�
'	��		9g
macro-typegsyntax-rules�gpatternsgccgvargindexgigarg1gargg...gccgvargarg1gargg...C5R4:%;>j{|fh(�,345�������C�gdummy
		(gx0		(gq1			(gq			(getc1			(getc2			(getc3			(getc			(		(	C~��h(�,3������C�gdummy
		"gx0		"gq1			"gq2			"getc1			"getc2			"getc3			"getc			"		"	C���hu]Cmgdummy
		gx0		g
expression			gf1			gf2						C1�������������hP�]	
���	�
���C�gdummy
		Pgx0		Pg	qualifier			Pg
expression			Pgf1			Pgf2			P		P	C��hh�]!45$@45$@45$@45$	@
6�gx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-42/ec.scm�
3	��		gg
macro-typegsyntax-rules�gpatternsgx0gnestedgq1g...gqgetc1getc2getc3getcg...gx0gq1gq2getc1getc2getc3getcg...gx0g
expressiongf1gf2gx0g	qualifierg
expressiongf1gf2C5%R4:$;>���fh(�]45������C�gdummy
		!gx0		!gq1			!gq			!getc1			!getc2			!getc			!		!	C}��h �]�����C�gdummy
		gx0		gq1			gq2			getc1			getc2			getc						C���he]C]gdummy
		gx0		g
expression			gf2						C������h0|]�����Ctgdummy
		*gx0		*g	qualifier			*g
expression			*gf2			*		*	C��hh�]!45$@45$@45$@45$	@
6�gx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-42/ec.scm�
G	��		gg
macro-typegsyntax-rules�gpatternsgx0gnestedgq1g...gqgetc1getc2getcg...gx0gq1gq2getc1getc2getcg...gx0g
expressiongf2gx0g	qualifierg
expressiongf2C5$R4:';>h
fh P]45���CHgdummy
		getc1		getc						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
Z	��		"g
macro-typegsyntax-rules�gpatternsgetc1getcg...C5'R4:;>h!"#hP]��CHgdummy
		getc1		getc						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
f	��		"g
macro-typegsyntax-rules�gpatternsgetc1getcg...C5R4:-;>h23hP]��CHgdummy
		getc1		getc						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
k	��		"g
macro-typegsyntax-rules�gpatternsgetc1getcg...C5-R4:,;>hABChP]��CHgdummy
		getc1		getc						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
w	��		"g
macro-typegsyntax-rules�gpatternsgetc1getcg...C5,R4:/;>hRShP]��CHgdummy
		getc1		getc						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
|	��		"g
macro-typegsyntax-rules�gpatternsgetc1getcg...C5/R4:0;>`lmfh ~]45�����Cvgdummy
		gk		gq1			gq			getc1			getc						C,xyh]����Cwgdummy
		gk		gq1			gq2			getc1			getc						CD��hT]CLgdummy
		gk		g
expression						C��������������h@k]	
�����
���Ccgdummy
		<gk		<g	qualifier			<g
expression			<		<	C��hhh]!45$@45$@45$@45$	@
6`gx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-42/ec.scm�
�	��		gg
macro-typegsyntax-rules�gpatternsgkgnestedgq1g...gqgetc1getcg...gkgq1gq2getc1getcg...gkg
expressiongkg	qualifierg
expressionC50R4:.;>h��fhP]45���CHgdummy
		getc1		getc						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgetc1getcg...C5.R4:+;>h��fhP]45���CHgdummy
		getc1		getc						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgetc1getcg...C5+R4:*;>h��f�hP]45���CHgdummy
		getc1		getc						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgetc1getcg...C5*R4:);>h��f�hP]45���CHgdummy
		getc1		getc						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-42/ec.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgetc1getcg...C5)R4:&;>			fh �]45�����C|gdummy
		gdefault		gq1			gq			getc1			getc						C,		h�]����C}gdummy
		gdefault		gq1			gq2			getc1			getc						CD	$	&hZ]CRgdummy
		gdefault		g
expression						C�	0	1	2	3	4h(q]���Cigdummy
		$gdefault		$g	qualifier			$g
expression			$		$	C��hh�]!45$@45$@45$@45$	@
6xgx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-42/ec.scm�
�	��		gg
macro-typegsyntax-rules�gpatternsgdefaultgnestedgq1g...gqgetc1getcg...gdefaultgq1gq2getc1getcg...gdefaultg
expressiongdefaultg	qualifierg
expressionC5&R4:#;>	A	L	Mfh �]45�����C|gdummy
		gdefault		gq1			gq			getc1			getc						C,	W	Xh�]����C}gdummy
		gdefault		gq1			gq2			getc1			getc						CD	`	bhZ]CRgdummy
		gdefault		g
expression						C�	k	l	p	r	m	s	t	u	x	yh8q]�	��
���Cigdummy
		1gdefault		1g	qualifier			1g
expression			1		1	C��hh�]!45$@45$@45$@45$	@
6xgx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-42/ec.scm�
�	��		gg
macro-typegsyntax-rules�gpatternsgdefaultgnestedgq1g...gqgetc1getcg...gdefaultgq1gq2getc1getcg...gdefaultg
expressiongdefaultg	qualifierg
expressionC5#R4:	q;>	�	�	�fhp]45�Chgdummy
		gstop		gq1			gq2			gcmd						C	�	�	�	�hq]�Cigdummy
		gstop		gtest			gq			gcmd						C	�	�	�	�	�h q]�Cigdummy
		gstop		gtest			gq			gcmd						C	�	�	�	�	�h q]��Cigdummy
		gstop		gtest			gq			gcmd						C	�	�	�	�	�h q]��Cigdummy
		gstop		gtest			gq			gcmd						C	�	�f	�	�h p]4�5�Chgdummy
		gstop		getc			gq			gcmd						C	�	�	�	�	�h p]�Chgdummy
		gstop		ggen			gq			gcmd						C	�
hP]CHgdummy
		
gstop		
gcmd			
		
	C��h��]A45$@45$@45$@45$	@4
5$@45$
@45$@45$@6�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp		~�gtmp	��gtmp	��	gfilenamefsrfi/srfi-42/ec.scm�
�	��	�g
macro-typegsyntax-rules�gpatternsgstopgnestedgnestedgq1g...gq2g...gcmdgstopgnestedgifgtestgqg...gcmdgstopgnestedgnotgtestgqg...gcmdgstopgnestedgandgtestg...gqg...gcmdgstopgnestedgorgtestg...gqg...gcmdgstopgnestedgbegingetcg...gqg...gcmdgstopgnestedggengqg...gcmdgstopgnestedgcmd	C5	qR4:;>


fh o]45����Cggdummy
		gq1		gq			getc1			getc						Cj
'
(hp]���Chgdummy
		gq1		gq2			getc1			getc						Cy
0
2hE]C=gdummy
		g
expression					CD
;
<
=
?h\]����CTgdummy
		g	qualifier		g
expression						C��hhT]!45$@45$@45$@45$	@
6Lgx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-42/ec.scm�
	��		gg
macro-typegsyntax-rules�gpatternsgnestedgq1g...gqgetc1getcg...gq1gq2getc1getcg...g
expressiong	qualifierg
expressionC5R4:";>
K
U
Vfh o]45����Cggdummy
		gq1		gq			getc1			getc						Cj
_
`hp]���Chgdummy
		gq1		gq2			getc1			getc						Cy
g
ihE]C=gdummy
		g
expression					CD
q
r
s
t
vh \]����CTgdummy
		g	qualifier		g
expression						C��hhT]!45$@45$@45$@45$	@
6Lgx
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsrfi/srfi-42/ec.scm�
	��		gg
macro-typegsyntax-rules�gpatternsgnestedgq1g...gqgetc1getcg...gq1gq2getc1getcg...g
expressiong	qualifierg
expressionC5"RC�gm
		(gfilenamefsrfi/srfi-42.scm�		
��	)	?
��	.	?	��	6	?	&��	;	?
��gfilenamefsrfi/srfi-42/ec.scm�A)�
��f��
�����
����	����
���
���
!
��	ó
C6srfi/srfi-9.go000064400000071676150536206130007171 0ustar00GOOF----LE-8-2.0�s]�4hG3]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-9�	�		gfilenameS�	
fsrfi/srfi-9.scm�	gimportsS�	gsrfi-1�	
�	
�	gsystem�	gbase�	gck�	�	�	�	gexportsS�	gdefine-record-type�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	gmake-syntax-transformer�	�	 �	!gdefine-inlinable�	"gmacro�	#g$sc-dispatch�	$#�	%#�	&gany�	'geach-any�	(&'��	)('��	*&)��	+g
syntax-object�	,gdefine-tagged-inlinable�	-gtop�	.-�	/gribcage�	0gdummy�	1gname�	2gformals�	3gbody�	40123�	5gm-1e8ba8b5a-25b�	65-�	76...�	8fl-1e8ba8b5a-260�	9fl-1e8ba8b5a-261�	:fl-1e8ba8b5a-262�	;fl-1e8ba8b5a-263�	<89:;�	=/47<�	>/�	?gx�	@?�	A6�	Bfl-1e8ba8b5a-25d�	CB�	D/@AC�	E.=>D�	Fghygiene�	GF�	H+,EG�	Igsyntax-violation�	JI�	KI�	Lf-source expression failed to match any pattern�	Mg
%%on-error�	N&&�	Og%%type�	Pggetter-type�	Qgfree-id�	Rgquote�	Sgm-1e8ba8b5a-274�	TS-�	UT�	Vfl-1e8ba8b5a-276�	WV�	X/@UW�	Y.>X�	Z+RYG�	[QZ�	\[&�	]&&\\�	^gs�	_ggetter�	`gerr�	a0^_`�	bT...�	cfl-1e8ba8b5a-279�	dfl-1e8ba8b5a-27a�	efl-1e8ba8b5a-27b�	ffl-1e8ba8b5a-27c�	gcdef�	h/abg�	i.h>X�	j+MiG�	k+OiG�	lg%%index�	mggetter-index�	ngm-1e8ba8b5a-281�	on-�	po�	qfl-1e8ba8b5a-283�	rq�	s/@pr�	t.>s�	u+RtG�	vQu�	wv&�	x&&ww�	yo...�	zfl-1e8ba8b5a-286�	{fl-1e8ba8b5a-287�	|fl-1e8ba8b5a-288�	}fl-1e8ba8b5a-289�	~z{|}�	/ay~��.>s��+M�G��+l�G��g%%copier��g
getter-copier��gm-1e8ba8b5a-28e���-�����fl-1e8ba8b5a-290�����/@����.>���+R�G��Q����&��&&�����...��fl-1e8ba8b5a-293��fl-1e8ba8b5a-294��fl-1e8ba8b5a-295��fl-1e8ba8b5a-296��������/a����.�>���+M�G��+��G��g_��geach���N���)��������gidentifier?��g
datum->syntax��g
symbol-append��g%��g
syntax->datum��g
-procedure��ggenerate-temporaries��&'��gbegin��g	proc-name��gargs������..��fl-1e8ba8b5a-2ba��fl-1e8ba8b5a-2bb������/�����gkey��gvalue����123��.....��fl-1e8ba8b5a-2ad��fl-1e8ba8b5a-2ae��fl-1e8ba8b5a-2af��fl-1e8ba8b5a-2b0��fl-1e8ba8b5a-2b1���������/�����gmake-procedure-name�����.��fl-1e8ba8b5a-29d�����/�����.��fl-1e8ba8b5a-29c�����/@����.>>>>����	��+��G��gdefine��+��G��g
define-syntax��+��G��glambda��+��G��+?�G�����gsyntax-case��+��G��+M�G��gappend��������gmap��������+��G��+`�G������+^�G�����gsyntax��+��G��+�G��+R�G��ga��+��G��g...��+��G�������+I�G��fWrong number of arguments��+��G������+��G������gdisplay��f#<��grecord-type-name��grecord-type-descriptor��f ��f: ��gwrite��grecord-type-fields��f>��gdefault-record-printer��gthrow��gwrong-type-arg��fWrong type argument: ~S��gthrow-bad-struct��g%%��g-set-fields��gmake-copier-id��g%%set-fields��&����&���'���&�����gevery�glist�gfor-each�gfind�gfree-identifier=?�funknown getter�	g
struct-ref�
gt-1e8ba8b5a-32b�
�gm-1e8ba8b5a-32c�
-�
�fl-1e8ba8b5a-32f��/�gindex�_�fl-1e8ba8b5a-329�fl-1e8ba8b5a-32a��/��glookup��fl-1e8ba8b5a-2fe��/��gcopier-name�ggetter+exprs�� fl-1e8ba8b5a-2f8�!fl-1e8ba8b5a-2f9�" !�#/�"�$g	type-name�%g	getter-id�&gcheck?�'gexpr�($%&^_'�)......�*fl-1e8ba8b5a-2ec�+fl-1e8ba8b5a-2ed�,fl-1e8ba8b5a-2ee�-fl-1e8ba8b5a-2ef�.fl-1e8ba8b5a-2f0�/fl-1e8ba8b5a-2f1�0*+,-./�1/()0�2fl-1e8ba8b5a-2dc�32�4/@�3�5.>>#1>4
�6+	5G�7gfilter�8glength�9fduplicate getter�:giota�;gmake-struct�<gt-1e8ba8b5a-31f�=<�>gm-1e8ba8b5a-320�?>-�@?�Afl-1e8ba8b5a-324�BA�C/=@B�D.>C#1>4�E+;DG�F+
DG�Gghere�Hgunsafe-expr�IH�Jfl-1e8ba8b5a-317�KJ�L/I�K�M.>L#1>4�N+GMG�Ogif�Pgt-1e8ba8b5a-319�QP�Rgm-1e8ba8b5a-31a�SR-�TS�Ufl-1e8ba8b5a-31d�VU�W/QTV�X.>W>L#1>4
�Y+OXG�Zgeq?�[+ZXG�\g
struct-vtable�]+\XG�^+�XG�_+RXG�`g%define-record-type�a&(��b&a��c&b��d&c��e�d��f&&��g&f��h�g��if invalid record definition syntax�jgboolean?�kfexpected type name�lfinvalid constructor spec�mfexpected predicate name�n&&&�ofinvalid field spec�pgstring-concatenate�qg	make-list�rfpr�sfpw�tgmemq�uf!unknown field in constructor spec�vgassq-ref�w&&'�xgt-1e8ba8b5a-38d�ygt-1e8ba8b5a-38c�zgt-1e8ba8b5a-38b�{xyz�|gm-1e8ba8b5a-38e�}|-�~}}}�fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394������/{~���g	ctor-args�����fl-1e8ba8b5a-37a�����/�����gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������/�����gform��gconstructor-spec��gfield-names���$����....��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������/�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������........��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������/�����fl-1e8ba8b5a-334�����/@����.>�>>>��>�����+!�G��+;�G��+
�G��g	copier-id�����fl-1e8ba8b5a-476�����/�����g	ctor-name�����fl-1e8ba8b5a-46e�����/��������fl-1e8ba8b5a-46c�����/�����glayout�����fl-1e8ba8b5a-46a�����/�����g
immutable?�����fl-1e8ba8b5a-468�����/�����gfield-count�����fl-1e8ba8b5a-466�����/�����g
getter-ids�����fl-1e8ba8b5a-463�����/�����g	field-ids�����fl-1e8ba8b5a-460�����/�����gpredicate-name��g
field-spec����$�����fl-1e8ba8b5a-453��fl-1e8ba8b5a-454��fl-1e8ba8b5a-455��fl-1e8ba8b5a-456��fl-1e8ba8b5a-457��fl-1e8ba8b5a-458����������/�)���.>>>>�>�>�>�>�>�>�>������+G�G��gmake-struct-layout��&&&&&&&��gt-1e8ba8b5a-3a5��gt-1e8ba8b5a-3a6��gt-1e8ba8b5a-3a7��gt-1e8ba8b5a-3a8��gt-1e8ba8b5a-3a9��gt-1e8ba8b5a-3aa��gt-1e8ba8b5a-3ab�����������gm-1e8ba8b5a-3ac���-�����������fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6�����������/����fl-1e8ba8b5a-3a3�fl-1e8ba8b5a-3a4��/��$���...�fl-1e8ba8b5a-39e�fl-1e8ba8b5a-39f�fl-1e8ba8b5a-3a0�	�
/	�.>�>>>>
���+,G�
+OG�+lG�+�G�+^G��+OG�+ZG�+\G��+	G�+�G�+RG�gdefine-syntax-rule�gt-1e8ba8b5a-3c4�gt-1e8ba8b5a-3c6�gt-1e8ba8b5a-3c5��gm-1e8ba8b5a-3c7�-� �!fl-1e8ba8b5a-3cb�"fl-1e8ba8b5a-3cc�#fl-1e8ba8b5a-3cd�$!"#�%/ $�&fl-1e8ba8b5a-3c1�'fl-1e8ba8b5a-3c2�(fl-1e8ba8b5a-3c3�)&'(�*/)�+.>%>>>*��	�,++G�-+&+G�.+^+G�/+_+G�0+'+G�1/0�2+�+G�3-.12�4+�+G�5g
filter-map�6gt-1e8ba8b5a-405�76�8gm-1e8ba8b5a-406�98-�:9�;fl-1e8ba8b5a-409�<;�=/7:<�>gsetter�?1_>�@fl-1e8ba8b5a-3ff�Afl-1e8ba8b5a-400�Bfl-1e8ba8b5a-401�C@AB�D/?C�E��Ffl-1e8ba8b5a-3f6�Gfl-1e8ba8b5a-3f7�HFG�I/E�H�Jgfield-specs�K�J�Lfl-1e8ba8b5a-3f2�Mfl-1e8ba8b5a-3f3�NLM�O/K�N�P.>=D>I>O��
�Q+!PG�R+^PG�Sgval�T+SPG�URT�V+PG�WT�Xgt-1e8ba8b5a-3e6�Ygt-1e8ba8b5a-3e7�ZXY�[gm-1e8ba8b5a-3e8�\[-�]\\�^fl-1e8ba8b5a-3ec�_fl-1e8ba8b5a-3ed�`^_�a/Z]`�bfl-1e8ba8b5a-3e0�cfl-1e8ba8b5a-3e1�dfl-1e8ba8b5a-3e2�ebcd�f/?e�gfl-1e8ba8b5a-3d7�hfl-1e8ba8b5a-3d8�igh�j/E�i�k$J�lfl-1e8ba8b5a-3d3�mfl-1e8ba8b5a-3d4�nlm�o/k�n�p.>af>j>o��
�q+!pG�r+^pG�s+SpG�trs�u+OpG�v+ZpG�w+\pG�xwr�ygstruct-set!�z+ypG�{s�|+�pG�}+RpG�~&&&&'&'�gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b����������gm-1e8ba8b5a-47f���-�����������fl-1e8ba8b5a-483��fl-1e8ba8b5a-484��fl-1e8ba8b5a-485��fl-1e8ba8b5a-486��fl-1e8ba8b5a-487��fl-1e8ba8b5a-488��fl-1e8ba8b5a-489�����������/�����.>�>>>>�>�>�>�>�>�>�>������+��G��+��G��glet��+��G��grtd��+��G��gmake-struct/no-tail��+��G��grecord-type-vtable��+��G��+R�G��+��G��gset-struct-vtable-name!��+��G��+y�G��g+��+��G��+	�G��gvtable-offset-user��+��G����������+!�G��gobj��+��G�����gand��+��G��gstruct?��+��G������+Z�G��+\�G������gpred��gfields��01�����gm-1e8ba8b5a-4a3���-���....��fl-1e8ba8b5a-4a8��fl-1e8ba8b5a-4a9��fl-1e8ba8b5a-4aa��fl-1e8ba8b5a-4ab��fl-1e8ba8b5a-4ac���������/��������fl-1e8ba8b5a-4a5�����/@����.�>���+`�G��+�G��+�G�C5h�<�]4	
54>"G4i4i5>"G4 !"%*Hhf]����C^gdummy
		gname		gformals			gbody						CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
	J
��		"g
macro-typegsyntax-rules�gpatternsgnamegformalsg...gbodyg...C5!R4 M"%Nh>]C6gdummy
		gerr					CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
	R
��		"g
macro-typegsyntax-rules�gpatternsgerrC5MROR4 P"%]jkha]CYgdummy
		gs		ggetter			gerr						CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
	V	��		"g
macro-typegsyntax-rules�gpatternsgsgquoteggettergquotegerrC5PRlR4 m"%x��ha]CYgdummy
		gs		ggetter			gerr						CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
	\	��		"g
macro-typegsyntax-rules�gpatternsgsgquoteggettergquotegerrC5mR�R4 �"%���ha]CYgdummy
		gs		ggetter			gerr						CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
	b	��		"g
macro-typegsyntax-rules�gpatternsgsgquoteggettergquotegerrC5�R4 ,"%�KL�h�]6�gkey
		gvalue		gname			gformals			gbody			gfilenamefsrfi/srfi-9.scm�		o	��			C������%������������������h(X]���CPgtmp-1e8ba8b5a-2c8
		$gtmp-1e8ba8b5a-2c7		$		$	C�������hxC]L�L��LL�4	4
LL5�
LL���L��
5���C;g	proc-name
		xgargs		x		x	CKLhX]4445554545$	O@
6�gkey
		Rgvalue		Rgname			Rgformals			Rgbody			Rgtmp		#	Rgtmp		.	Rgfilenamefsrfi/srfi-9.scm�		i	��		j	��		j	$��	
	j	'��		k	$��		j	��		i	��		q	!��	#	p	��
		R	Ch@b]	45"	6$4?$@"���"���Zgx
		9gtmp		9gfilenamefsrfi/srfi-9.scm�
	g	��		9C5,R���������
h��]4>"G44455>"G"l("w4>"G4�>"G4>"G4�>"G��"���4455
"��	6�gs
	�gp	�gfields		8�goff		8�gfilenamefsrfi/srfi-9.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	%�	��	,�	��	8�	��	>�	��	C�	��	G�	��	N�	��	W�	��	\�	��	c�	��	l�	��	p�	��	w�	����	����	
����	����	����	����	����	����	����	)����	����	����	����	��"	�	gnamegdefault-record-printer�C�R���h�]6�gs
		gwho		gfilenamefsrfi/srfi-9.scm�
�
��	�		��	
�		��	�	#��	�		��	�	��			gnamegthrow-bad-struct�C�R�����h�]44556�g	type-name
		gfilenamefsrfi/srfi-9.scm�
�
��	�	��	�	 ��	�	$��	�	 ��	�	��	�	��		gnamegmake-copier-id�C�R4 �"%KL�h�]6�g	type-name
		
g	getter-id		
gcheck?			
gs			
ggetter			
gexpr			
gfilenamefsrfi/srfi-9.scm�	
�	��		
	C���hd]L6\g	getter-id
		
gfilenamefsrfi/srfi-9.scm�
�	��	
�	!��		
CIh(�]	4OL5$CLL6~gid
		'gt		'gfilenamefsrfi/srfi-9.scm�
�	��	�	��	�	��	!�	&��	'�	��		'C�67hg]L�6_gg+e
		gfilenamefsrfi/srfi-9.scm�
�	��		�	2��	�	��		C8I9hP�]L4OL545
�$C�$���CLL6�ggetter
		Kgindex		Kgdefault-expr			Kgresults			Kgkey		$	Kgfilenamefsrfi/srfi-9.scm�
�	#��	�	%��	�	��	�	��	�	��	$�	
��	<�	��	E�	"��	K�	��
		K	C:8%'EFh7]L���C/gt-1e8ba8b5a-31f
				CKL�NY[]^_h��]&4455454LO>"G4LO4	4
55545		$4
O	?"
45	45$/45		CC�g	type-name
	�g	getter-id	�gcheck?		�gs		�ggetter		�gexpr		�gcopier-name		�ggetter+exprs		�gtmp		Z�gtmp			e�gtmp	��gtmp		��gfilenamefsrfi/srfi-9.scm�	�	��	�	)��	�	��	�	��	�		��	;�	��	M�	#��	P�	)��	X�	#��	Z�	��	Z�	����		����	����	����	����	��	�	Ch@c]	45"	6$4?$O@"���"���[gx
		>gtmp		>gfilenamefsrfi/srfi-9.scm�
�	��		>C5�R4 `"%ehI%f�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�	O	��			CKLih8�]45$4?"
456�g
immutable?
		3gform		3grest			3gtmp		
	-gfilenamefsrfi/srfi-9.scm�	/P	��	3M	��		3	CKLj��I%f�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�		/��			CKLk(�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�		/��			Cl�hi]�6agctor
		
gargs		
gfilenamefsrfi/srfi-9.scm�	
 	��		
	Ch>]C6gctor
		gargs					C�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�		/��			Cm%NhA]C9gfield
		ggetter					CnhU]CMgfield
		ggetter		gsetter						CIf�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�		/��			CKLohh�]45$@45$@4L5$4?"
4	
L5L6�gspec
		cgtmp		cgtmp		"	cgtmp		;	[gfilenamefsrfi/srfi-9.scm�
&	��	]*	*��	c	��		cCh@]4455$'45$"4445$4?"
4	5
5$�45"8445$4?"
4	5
5"($4?$4?""���""���$^45$"4445$4?"
4	55$
O6CCCC�g
immutable?
	;gform	;g	type-name		;gconstructor-spec		;gpredicate-name		;g
field-spec		;gt			]gtmp		2	Rgtmp		j�gtmp		|�gt	�"gtmp	�gfilenamefsrfi/srfi-9.scm�		��		��		��			��		��		��	'	��	T	 ��	Z	��	a		��	q	���"	!���	���		���$	���$	���	��%	 ��	��&		��3&	��	;	C�%Nh@]C8gname
		ggetter					CnhT]CLgname
		ggetter		gsetter						CKLh@}]45$@45$@6ug
field-spec
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-9.scm�
�	��		9C%Nh@]C8gname
		ggetter					CnhT]CLgname
		ggetter		gsetter						CKLh@}]45$@45$@6ug
field-spec
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-9.scm�
�	��		9C8�pqrs%(h>]C6gctor
		gargs					CKL��hj]6bgctor
		
gfield		
gfilenamefsrfi/srfi-9.scm�	
�		��		
	C��tI%f�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�	�	+��			CKLu
hh�]454L5$"?44L5$4?"
4L5	L>"G�C�gfield
		hgname			hgt			bgtmp		,	Lgfilenamefsrfi/srfi-9.scm�
�	��	�	-��		�	!��	�	'��	�	#��	!�	'��	N�	(��	W�	'��	g�	#��
		hCvh_]L6Wgname
		
gfilenamefsrfi/srfi-9.scm�
�	$��	
�	&��		
C%w���hq]���Cigt-1e8ba8b5a-38d
		gt-1e8ba8b5a-38c		gt-1e8ba8b5a-38b						CKL	hP�]4LLO5LL4OL545$@6�gctor
		Kgfield		Kg	ctor-args			Kgtmp		)	Kgtmp		4	Kgfilenamefsrfi/srfi-9.scm�	�	��	�		��	�	��	)�	��		K	C���%�

hP�]�	

C�gt-1e8ba8b5a-3a5
		Jgt-1e8ba8b5a-3a6		Jgt-1e8ba8b5a-3a7			Jgt-1e8ba8b5a-3a8			Jgt-1e8ba8b5a-3a9			Jgt-1e8ba8b5a-3aa			Jgt-1e8ba8b5a-3ab			J		J	CKLh8�]LLL45$@6�ggetter
		5gindex		5gtmp			5gtmp			5gfilenamefsrfi/srfi-9.scm�
�	��	�	��		5	C:n,34hq]����Cigt-1e8ba8b5a-3c4
		gt-1e8ba8b5a-3c6		gt-1e8ba8b5a-3c5						C5%Nh@]C8gname
		ggetter					CnQUVRWh T]�L�CLgname
		ggetter		gsetter						CKLh@�]45$@45$LO@6�g
field-spec
		>gindex		>gtmp			>gtmp		"	>gfilenamefsrfi/srfi-9.scm�
	��		>	C%Nh@]C8gname
		ggetter					Cn%Nqtuvxzr{|}h8T]L����	
LCLgt-1e8ba8b5a-3e6
		4gt-1e8ba8b5a-3e7		4		4	CKLh0�]LL45$O@6�gname
		0ggetter		0gsetter			0gtmp				0gtmp			0gfilenamefsrfi/srfi-9.scm�		�	��		0	CKLh@�]45$@45$
LO@6�g
field-spec
		@gindex		@gtmp			@gtmp		"	@gfilenamefsrfi/srfi-9.scm�
�	��		@	C~�������������������h��]LL	L
����
L�L4�5����C�gt-1e8ba8b5a-47e
		gt-1e8ba8b5a-478		gt-1e8ba8b5a-479			gt-1e8ba8b5a-47a			gt-1e8ba8b5a-47d			gt-1e8ba8b5a-47c			gt-1e8ba8b5a-47b						Ch��]V45454545	44	$"	55
454
5$4?"
4
545
4
5"4
5"3$)4?$4O?""���""���44
554
O44555
4
5$4?"
4
5	$4
O44555"4O445554
5$
O@
6�g
immutable?
	�gform	�g	type-name		�gconstructor-spec		�gpredicate-name		�g
field-spec		�g	field-ids		�g
getter-ids		�gfield-count		�g
immutable?			(�glayout	
	D�gfield-names		O�gtmp		Z	zg	ctor-name		z�g	copier-id	
��gtmp	��gtmp	=gtmp	:gtmp	~�gtmp	��gfilenamefsrfi/srfi-9.scm�	�	��	,	��	�	��	,	��	.	��	,	��	"/	��	(,	��	+	��	.	��	8	��	:	!��	@	&��	B	��	D	��	D,	��	G1	��	O,	��	}4	���,	���;	���;	4���;	����	����	����	���	���	���	��CI	��D	��P
	��S
	��[
	��]	��b�	��n	��q	��y	��{�	��~5	
��*	�	C	hPt]45" 45$@6$4?$@"���"���lgx
		Pgtmp		Pgtmp			1gfilenamefsrfi/srfi-9.scm�
�	��		PC5`R4 "%c���h(w]����������Cogdummy
		#gname		#gctor			#gpred			#gfields			#		#	CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
S
��		"g
macro-typegsyntax-rules�gpatternsgnamegctorgpredgfieldsg...C5RC�gm
		,gfilenamefsrfi/srfi-9.scm�		=
��	-	B
��	2	B	��	:	B	&��	?	B
��	T
���	Z
��Z	`
��N�
��0�
���
��	<�
C6srfi/srfi-1.go000064400000122634150536206130007150 0ustar00GOOF----LE-8-2.0��]�4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-1�	�		gfilenameS�	
fsrfi/srfi-1.scm�	gexportsS�	gxcons�	
g
list-tabulate�	g	list-copy�	g
circular-list�	gproper-list?�	gcircular-list?�	gdotted-list?�	g
null-list?�	g	not-pair?�	glist=�	gfirst�	gsecond�	gthird�	gfourth�	gfifth�	gsixth�	gseventh�	geighth�	gninth�	gtenth�	 gcar+cdr�	!gtake�	"gdrop�	#g
take-right�	$g
drop-right�	%gtake!�	&gdrop-right!�	'gsplit-at�	(g	split-at!�	)glast�	*glength+�	+gconcatenate�	,gconcatenate!�	-gappend-reverse�	.gappend-reverse!�	/gzip�	0gunzip1�	1gunzip2�	2gunzip3�	3gunzip4�	4gunzip5�	5gcount�	6gfold�	7g
fold-right�	8g	pair-fold�	9gpair-fold-right�	:greduce�	;greduce-right�	<gunfold�	=gunfold-right�	>g
append-map�	?gappend-map!�	@gmap!�	Ag
pair-for-each�	Bg
filter-map�	Cg	partition�	Dgremove�	Eg
partition!�	Fgremove!�	Ggfind�	Hg	find-tail�	Ig
take-while�	Jgtake-while!�	Kg
drop-while�	Lgspan�	Mgspan!�	Ngbreak�	Ogbreak!�	Pgany�	Qgevery�	Rgdelete-duplicates�	Sgdelete-duplicates!�	Tg
alist-cons�	Ug
alist-copy�	Vgalist-delete�	Wg
alist-delete!�	Xglset<=�	Yglset=�	Zglset-adjoin�	[g
lset-union�	\glset-intersection�	]glset-difference�	^glset-xor�	_glset-diff+intersection�	`glset-union!�	aglset-intersection!�	bglset-difference!�	cg	lset-xor!�	dglset-diff+intersection!�	e
 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdY�	fg
re-exportsS�	ggcons�	hglist�	igcons*�	jg	make-list�	kgpair?�	lgnull?�	mgcar�	ngcdr�	ogcaar�	pgcadr�	qgcdar�	rgcddr�	sgcaaar�	tgcaadr�	ugcadar�	vgcaddr�	wgcdaar�	xgcdadr�	ygcddar�	zgcdddr�	{gcaaaar�	|gcaaadr�	}gcaadar�	~gcaaddr�	gcadaar��gcadadr��gcaddar��gcadddr��gcdaaar��gcdaadr��gcdadar��gcdaddr��gcddaar��gcddadr��gcdddar��gcddddr��glist-ref��g	last-pair��glength��gappend��gappend!��greverse��greverse!��gfilter��gfilter!��gmemq��gmemv��gassq��gassv��gset-car!��gset-cdr!��ghijklmnopqrstuvwxyz{|}~��������������������������3��greplacementsS��giota��gmap��gfor-each��gmap-in-order��g
list-index��gmember��gdelete��gdelete!��gassoc�����������
��gset-current-module��������gcond-expand-provide��gcurrent-module����gload-extension��g
string-append��f	libguile-��geffective-version��fscm_init_srfi_1��g	scm-error��gwrong-type-arg��gsymbol->string��fWrong type argument: ~S��gmake-syntax-transformer��������g	check-arg��gmacro��g$sc-dispatch��������PPPP��g
syntax-object��gif��gtop�����gribcage��gdummy��gpred��garg��gcaller��������gm-1e8ba8b52-388������������fl-1e8ba8b52-38d��fl-1e8ba8b52-38e��fl-1e8ba8b52-38f��fl-1e8ba8b52-390�����������������gx��������fl-1e8ba8b52-38a�����������������ghygiene�����������gnot��������������gquote��������gsyntax-violation��������f-source expression failed to match any pattern��gout-of-range��fValue out of range: ~A��ginteger?��gnon-negative-integer?��gerror��fnot a proper list in null-list?��g
procedure?��g	list-head��g	list-tail��gany1��fmap��fCircular list: ~S��fNot a list: ~S��gmin��f.Args do not contain a proper (finite) list: ~S��ffor-each��gapply��gevery1��gacons��gequal?��geq?��geqv?�C5h���]4	
ef���5	4�>"G4�i4�i5�>"G4�i4�i�4�i55�>"Gh�]�C�gd
		ga		gfilenamefsrfi/srfi-1.scm�
�
��	�	��			gnamegxcons�g
documentationfdLike `cons', but with interchanged arguments.  Useful mostly when passed to
higher-order procedures.�CR����h�]456�gcaller
		garg		gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	�	��	�	
��	�	'��	�	2��	�	��			gnamegwrong-type-arg�C�R4���������h(d]C\gdummy
		"gpred		"garg			"gcaller			"		"	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-1.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgpredgarggcallerC5�R���h�]6�gproc
		garg		gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	
�	
��	�	&��	�	1��	�	��			gnamegout-of-range�C�R�h�]45$
�CC�gx
		gfilenamefsrfi/srfi-1.scm�
�
��	�	'��	
�	"��	�	4��		gnamegnon-negative-integer?�C�R��
hX�]45$"4>"G"!
�$C�4�5�"���"����gn
		Ug	init-proc		Ugn		)	Jgacc		)	Jgfilenamefsrfi/srfi-1.scm�
�
��		��	)	��	-	��	1	��	7	��	8	��	=	%��	?	��	B	��	J	��	J	��	M	��	U	��		U	gnameg
list-tabulate�g
documentationf�Return an N-element list, where each list element is produced by applying the
procedure INIT-PROC to the corresponding list index.  The order in which
INIT-PROC is applied to the indices is not specified.�C
R�h(�-13HJ�K4J5J�JC�gelt1
	
	!gelts	
	!gfilenamefsrfi/srfi-1.scm�

��		
��		��			��			��			!
gnameg
circular-list�CR����hx"-.,3#
#45$"4>"G"%�$6����"���
"���gcount
		tgstart		tgstep			tgn		E	jgacc		E	jgfilenamefsrfi/srfi-1.scm�

��	
	��	E	��	J	��	N	��	T	��	W	��	^	#��	_	��	b	��	j	��	j	��	l	��	t	��		t	gnamegiota�C�Rht]�Clgx
		gfilenamefsrfi/srfi-1.scm�

��		��		gnamegproper-list?�CRhX6]45$C"745$C�45$C&C��"����"���.gx
		Wghare		Jgtortoise			Jghare		#	Jgfilenamefsrfi/srfi-1.scm�

��		��	
	��		��		
��		��	#	��	#	��	&	��	0	
��	:!	��	?#	��	B#	��	J#	��	J	��	M	��	W	��		Wgnamegcircular-list?�CRhpF](C45$C"G(C45$C�(C45$C&C��"����"���>gx
		oghare		bgtortoise			bghare		3	bgfilenamefsrfi/srfi-1.scm�
%
��	&	��	(	��	&	��	*	��	!+	��	$-	
��	.+	��	3/	��	3/	
��	;0	��	>2	��	H0	��	W5	��	Z5	��	b5	��	b*	��	e*	��	o*	��		ognamegdotted-list?�CR��h(�]45$�C45$C6�gx
		$gfilenamefsrfi/srfi-1.scm�
7
��	9	��	
8	��	:	��	;	��	8	��	">	��	$>	��			$gnameg
null-list?�CRhI]��CAgx
		gfilenamefsrfi/srfi-1.scm�
@
��	E	��	E	��		gnameg	not-pair?�g
documentationf�Return #t if X is not a pair, #f otherwise.

This is shorthand notation `(not (pair? X))' and is supposed to be used for
end-of-list checking in contexts where dotted lists are allowed.�CRhH
]"1(�C(C4L��5$��"���C"���ga
		Cgb		Cga			7gb			7gfilenamefsrfi/srfi-1.scm�
H	��	I	��	J	��	K	
��	J	��	O	��	O	��	!O	 ��	#O	��	'O	
��	*P	��	-P	��	5P	��	7I	��		C	gnameglists-equal�C��hx<-13OQ45$"4>"G(C"*��$C4���5$	�"���C"���4gelt=
			wgrest			wglists-equal			wglists		E	ogt		I	ogfilenamefsrfi/srfi-1.scm�
G
��	R	��	?S	��	@S	��	ET	��	HU	��	IU	��	IU	��	UV	��	ZV	��	]V	*��	`V	��	dV	��	gW	��	mW	��	oT	��			w
gnameglist=�CRmiRpiRviR�iRhv]�����Cngx
		
gfilenamefsrfi/srfi-1.scm�
_
��	_	��		_	��		
gnamegfifth�CRhv]������Cngx
		gfilenamefsrfi/srfi-1.scm�
`
��	`	��		`	��		gnamegsixth�CRhx]�������Cpgx
		gfilenamefsrfi/srfi-1.scm�
a
��	a	��		a	��		gnamegseventh�CRhw]��������Cogx
		
gfilenamefsrfi/srfi-1.scm�
b
��	b	��		b	��		
gnamegeighth�CRh]���������Cwgx
		gfilenamefsrfi/srfi-1.scm�
c
��	c	��		c	��	
c	��		gnamegninth�CRh]����������Cwgx
		gfilenamefsrfi/srfi-1.scm�
d
��	d	 ��		d	��	
d	��		gnamegtenth�CRh�]��D�gx
		
gfilenamefsrfi/srfi-1.scm�
f
��	h	
��	h	��	
h	��		
gnamegcar+cdr�g
documentationf3Return two values, the `car' and the `cdr' of PAIR.�C R�i!R�i"R"h8�]"�$��"���C45"����glis
		1gk		1glag			glead			gfilenamefsrfi/srfi-1.scm�
q
��	r	��		s	��	
s	��	t	��	t	��	t	��	r	��	!r	��	1r	��		1	gnameg
take-right�C#R�"h@&]"#�$����"���645"���glis
		?gk		?glag			)glead			)gresult			)gfilenamefsrfi/srfi-1.scm�
w
��	x	��		y	��	
y	��	z	��	z	��	z	'��	z	!��	#z	��	){	��	)x	��	,x	��	5x	1��	?x	��		?	gnameg
drop-right�C$R"h ]

�$C4�5�Cglst
		gi		gtail			gfilenamefsrfi/srfi-1.scm�
}
��		��	
	��	�	��	
�	��	�	��	�	��	�	��	�	��	�	��			gnamegtake!�g
documentationf Linear-update variant of `take'.�C%R"hP}]45(C"%(�$�CC��"����"���uglst
		Kgi		Kgtail			Kgprev			>gtail			>gfilenamefsrfi/srfi-1.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	
��	"�	��	&�	��	)�	#��	*�	��	3�	��	6�	��	>�	��	>�	��	C�	��	K�	��		K	gnamegdrop-right!�g
documentationf&Linear-update variant of `drop-right'.�C&R�'�hP�]
�$6")
�$45D����"���"����glst
		Ngi		Ngl			?gn			?gacc			?gfilenamefsrfi/srfi-1.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	�	��	�	��	�	��	)�	��	,�	��	/�	��	2�	&��	5�	 ��	?�	��	?�	��	D�	"��	N�	��		N	gnamegsplit-at�g
documentationf[Return two values, a list of the elements before index I in LST, and
a list of those after.�C'R�(hX�]
�$6
�$D"%
�$��D��"����"����glst
		Ugi		Ugl		#	Hgn		#	Hgtmp		.	:gfilenamefsrfi/srfi-1.scm�
�
��	�		��	
�	��	�	��	�		��	�		��	�	��	�	��	�		��	#�		��	'�	��	+�	��	.�	��	.�	��	3�	��	4�	��	:�	��	=�	��	@�	��	H�	��	H�		��	M�	��	U�		��		U	gnameg	split-at!�g
documentationf$Linear-update variant of `split-at'.�C(R�h�]45�C�gpair
		gfilenamefsrfi/srfi-1.scm�
�
��	�	��	
�	��		gnameglast�g
documentationf;Return the last element of the non-empty, finite list PAIR.�C)RPl��nmhP-13"045$64545�"����"����gclist1
			Kgrest			Kgl		
	=gacc		
	=gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	�	��	�	��	 �	��	!�	
��	*�	��	5�	��	=�	��	=�	��	B�	��	C�	'��	K�	��			K
gnamegzip�C/R�hn]6fgl
		
gfilenamefsrfi/srfi-1.scm�
�
��	
�	��		
gnamegunzip1�C0R�h�]4545Dxgl
		gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	�	��	�	��		gnamegunzip2�C1R�h �]454545D�gl
		gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	�	��	�	'��	�	��		gnamegunzip3�C2R�h(�]45454545D�gl
		(gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	�	��	�	'��	�	5��	(�	��		(gnamegunzip4�C3R�h8�]4545454545D�gl
		1gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	�	��	�	'��	�	5��	'�	
��	1�	��		1gnamegunzip5�C4R��6Pl�mn�
h��-1345$"4>"G(."(C4�5�"���"���"A45$C454544	5?"����"����gkons
		�gknil		�glist1			�grest			�gknil		6	Tglist1		6	Tgknil		d�glists		d�gcars	��gcdrs	��
gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	6�	��	<�	��	@�	��	E�	��	I�	��	L�	'��	T�	��	T�	��	d�	��	e�	��	q�	��	u�	��	~�	����	����	����	����	+����	����	����	����	����	!����	��		�	
	gnamegfold�g
documentationfuApply PROC to the elements of LIST1 ... LISTN to build a result, and return
that result.  See the manual for details.�C6R��7��l�n�mh�-1345$"4>"G(3"(C�4�5"���45"���"945$C4544	4
55?"���4�5"����gkons
		�gknil		�gclist1			�grest			�glst		6	Tgresult		6	Tglists		i�gresult		i�gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	6�	��	<�	��	B�	��	C�	��	H�	��	L�	��	T�	��	T�	��	U�	��	e�	��	i�	��	j�	��	v�	��	z�	����	����	����	'����	7����	����	����	����	����	����	&����	����	��		�	
	gnameg
fold-right�C7R��8Pl�n�	h��-1345$"4>"G(1"!(C�45"���"���"645$C45445?"����"����gkons
		�gknil		�gclist1			�grest			�gknil		6	Wglist1		6	Wgtail		B	Wgknil		g�glists		g�gtails	��
gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	6�	��	<�	��	B�	��	B�	��	E�	��	W�	��	W�	��	g�	��	h�	��	t�	��	x�	����	����	����	����	,����	����	����	����	����	!����	��		�	
	gnameg	pair-fold�C8R��9h �](LCL4L�56�glist1
		gfilenamefsrfi/srfi-1.scm�
�	��	�	��	�	��	�	��	�	��	�	��		gnamegf�CPl��nh0�]45$LCL44L4555@�glists
		.gfilenamefsrfi/srfi-1.scm�
�	��	�	
��	�	��		��		)��		,��	'	)��	*	#��	,	��	.	��		.gnamegf�Chh-1345$"4>"G(OQ6OQ�6�gkons
			ggknil			ggclist1				ggrest				ggf		<	Kgf		U	ggfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	<�	��	U�	��	e�	��	g�	��			g	
	gnamegpair-fold-right�C9Rh\]CTgx
		gfilenamefsrfi/srfi-1.scm�
	1��		=��		C��<h-.,3	#"/"(C���"���45"���45$"4>"G45$"4>"G45$"4>"G45$"4>"G"045$"��*4545�"���"���
gp
	gf	gg		gseed		gtail-gen		glst			Igseed			Iglst			8gresult			8gseed	�	gresult	�	gfilenamefsrfi/srfi-1.scm�

��		��		��	$	��	*		��	-
	��	0
	��	8		
��	8	��	;	��	I	��	J	��	m
	���	���	���	���	���	���	���	���	��	��		��		��	��	��		gnamegunfold�C<R��=h�O-.,3#45$"4>"G45$"4>"G45$"4>"G"'45$C4545�"���"���Ggp
	�gf	�gg		�gseed		�gtail		�gseed	��glis	��gfilenamefsrfi/srfi-1.scm�

��		3��		��	9	��	\	���	���	���	���	���	���	���	���	��	�	gnamegunfold-right�C=R��:6h@�]45$"4>"G(C��6�gf
		:g	ridentity		:glst			:gfilenamefsrfi/srfi-1.scm�
 
��	%	��	+&	��	5(	��	8(	��	:(	��		:	gnamegreduce�g
documentationf�`reduce' is a variant of `fold', where the first call to F is on two
elements from LST, rather than one element and a given initial value.
If LST is empty, RIDENTITY is returned.  If LST has just one element
then that's the return value.�C:R:�h�]456�gf
		g	ridentity		glst			gfilenamefsrfi/srfi-1.scm�
*
��		/	��	/	��			gnamegreduce-right�g
documentationf�`reduce-right' is a variant of `fold-right', where the first call to
F is on two elements from LST, rather than one element and a given
initial value.  If LST is empty, RIDENTITY is returned.  If LST
has just one element then that's the return value.�C;R���������6*�h(�]
45$$6CC�gls
		%glen		%gls-len				%gfilenamefsrfi/srfi-1.scm�
F	��	G	&��		G	��	H	��	I	��	I	)��		%	C*��nmh��)�345$"4>"G"|�$Y$6&6��4�5�"����4�5�"���(6	6"��r-1345$"4>"G4
455$"4
�>"G"=
�$6�45�4�45?�"���"����gf
		�gl		�ghare		0�gtortoise		0�gmove?		0�gout		0�gf
�ygl1�ygrest	�yglen	�ygl1	)fgrest	)fglen	)fgout	)fgfilenamefsrfi/srfi-1.scm�
2	��	
4	��	05	��	36	��	76	��	=7	��	E8	��	I9	��	K9	.��	M9	4��	R:	��	U9	��	X;	��	[;	$��	]<	��	b<	 ��	d<	��	g<	��	s;	��	v=	��	z>	��	>	���>	���>	���=	���?	���@	���A	���A	*���A	0���B	���A	���5	���5	6���5	���2	���E	���F	���K	���F	���F	��M	��N	��N	��
N	&��O	��P	��P	��N	��)Q	��,R	
��1R		��7S	
��:T	��;T	��FT	+��GU	��LU	"��MU	+��WU	��ZU	��fT	
��fQ	��mQ	5��yQ	��B		�	�y	
	gnamegmap�C�R�i�R��������6*�h(�]
45$$6CC�gls
		%glen		%gls-len				%gfilenamefsrfi/srfi-1.scm�
p	��	q	&��		q	��	r	��	s	��	s	)��		%	C*���mnh�Z)�345$"4>"G"��$e$<&64�>"G��"���4�>"G�"���(C6"��m-1345$"4>"G4	
455$"4�>"G"A
�$74
�45>"G�45�"���C"���Rgf
		�gl		�ghare		0�gtortoise		0�gmove?		0�gf
�gl1�grest	�glen	�gl1	.ogrest	.oglen	.ogfilenamefsrfi/srfi-1.scm�
Z	��	
\	��	0]	��	3^	��	7^	��	=_	��	E`	��	Ia	��	Ka	.��	Ma	9��	Rb	��	Ua	��	Vd	��	[d	��	`d	��	ke	 ��	ne	+��	ye	��	zg	��	g	���g	���h	���h	���j	���k	���k	*���k	5���l	���k	���]	���Z	���o	���p	���u	���p	���p	��w	��x	��x	��x	&��y	��z	��z	��"x	��.{	��2|	
��6|		��7~	��>~	��?~	!��L~	��W	��X	#��c	2��m	��o{	��9		�	�	
	gnamegfor-each�C�R+�h�-134?6�gf
			gclist1			grest				gfilenamefsrfi/srfi-1.scm�
�
��	�	��	�	��				
	gnameg
append-map�C>R,�h�-134?6�gf
			gclist1			grest				gfilenamefsrfi/srfi-1.scm�
�
��	�	��	�	��				
	gnamegappend-map!�C?R�i@R��B��l�mn
h�-1345$"4>"G(H"9(64�5$��"����"���"���"R45$6445?$4	5�"���4	5"����"����gproc
		�glist1		�grest			�gl		6	ogrl		6	ogres		J	ogl		~�grl		~�gres	��	gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	6�	��	<�	��	B�	��	C�	��	H�	��	J�	��	J�	��	R�	��	U�	��	Z�	��	b�	��	e�	��	o�	��	o�	��	r�	��	z�	��	~�	��	�	����	����	����	����	#����	����	����	����	����	"����	����	����	����	����	����	����	��&		�	
	gnameg
filter-map�g
documentationf�Apply PROC to the elements of LIST1... and return a list of the
results as per SRFI-1 `map', except that any #f results are omitted from
the list returned.�CBR��A�l��n	h�V-1345$"4>"G(/"#(C4>"G�"���"���"245$C4>"G45"����"���Ngf
		�gclist1		�grest			�gl		6	Ygl		e�gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	6�	��	<�	��	?�	
��	S�	��	Y�	
��	Y�	��	e�	��	f�	
��	r�	��	u�	
����	����	
����	����	����	��		�	
	gnameg
pair-for-each�CAR��Ih�]45$"4>"G(C4�5$H�"/(C4�5$����"���C�"���Cgpred
	�gls	�gresult		?�gls		E	tgp		E	tgfilenamefsrfi/srfi-1.scm�
�
��	�	��	+�	��	,�	��	.�	��	3�	��	5�	��	9�	��	<�	��	?�	��	?�		��	E�	��	K�	
��	O�	��	T�	��	V�	��	Z�	
��	_�	&��	b�	 ��	c�	��	f�	��	i�	!��	q�	��	t�	��	w�	����	����	��	�	gnameg
take-while�g
documentationfjReturn a new list which is the longest initial prefix of LS whose
elements all satisfy the predicate PRED.�CIR��Jhhe]45$"4>"G"2(C4�5$
�"����$�CC"���]gpred
		fglst		fgprev		)	[grest		)	[gfilenamefsrfi/srfi-1.scm�
�
��	�	��	)�	��	/�	��	3�	��	8�	��	:�	��	>�	��	C�	��	K�	��	N�	��	R�	��	U�	 ��	V�	��	Z�	��	[�	��		f	gnamegtake-while!�g
documentationf&Linear-update variant of `take-while'.�CJR��KhX\]
45$"4>"G" (C4�5$	�"���C"���Tgpred
		Qglst		Qglst		)	Igfilenamefsrfi/srfi-1.scm�
�
��	�	��	)�	��	/�	��	0�	��	2�	��	7�	��	9�	��	=�	��	@�	��	F�	��	I�	��
		Q	gnameg
drop-while�g
documentationfUDrop the longest initial prefix of LST whose elements all satisfy the
predicate PRED.�CKR��L�hh�]45$"4>"G"3("4�5$���"���45D"����gpred
		gglst		gglst		)	\grl		)	\gfilenamefsrfi/srfi-1.scm�
�
��	�	��	)�	��	/�	��	5�	
��	:�	��	<�	
��	@�	��	C�	��	F�	��	I�	��	Q�	��	R�	��	\�	��	\�	��	_�	��	g�	��		g	gnamegspan�g
documentationf}Return two values, the longest initial prefix of LST whose elements
all satisfy the predicate PRED, and the remainder of LST.�CLR��Mhp~]45$"4>"G":(D4�5$
�"����$
�DD"���vgpred
		nglist		ngprev		)	cgrest		)	cgfilenamefsrfi/srfi-1.scm�
�
��	�	��	)�	��	/�	��	2�	��	4�	��	5�	��	:�	��	<�	��	@�	��	E�	��	M�	��	P�	��	T�	��	W�	 ��	X�	��	^�	��	_�	��	c�	��	c�	��		n	gnamegspan!�g
documentationf Linear-update variant of `span'.�CMR��N�hh�]45$"4>"G"3("4�5$45D���"���"����gpred
		ggclist		ggclist		)	\grl		)	\gfilenamefsrfi/srfi-1.scm�
�
��	�	��	)�	��	/�	��	0�	��	5�	��	:�	��	<�	��	@�	��	A�	��	K�	��	N	��	Q	��	T	��	\	��	\�	��	_�	��	g�	��		g	gnamegbreak�g
documentationfzReturn two values, the longest initial prefix of LST whose elements
all fail the predicate PRED, and the remainder of LST.�CNR��Ohp}]45$"4>"G":(D4�5$�$
�DD�"���"���ugpred
		nglist		ngl		)	cgprev		)	cgfilenamefsrfi/srfi-1.scm�

��		��	)	��	/	��	2	��	4	��	5		��	:		��	<		��	@	��	C
	��	G
	��	J	 ��	K	��	Q
	��	R	��	V	��	Y	��	c	��	c	��		n	gnamegbreak!�g
documentationf!Linear-update variant of `break'.�COR��P�l�nm	h�u-1345$"4>"G(6"X45$C4455$
45@445?$C45"����"���mgpred
		�gls		�glists			�glists		>�gt		|�gfilenamefsrfi/srfi-1.scm�

��	
	��	2	��	:	��	>	��	?	��	K	��	N	��	S	��	]	��	a	��	d	��	n	��	o	��	r	��	|	��	|	���	4���	0���	���	���	��		�	
	gnamegany�CPRh@
]"2(C�(�64�5$C�"���"���gpred
		@gls		@gls			8gt		$	8gfilenamefsrfi/srfi-1.scm�

��		��	 	��	"	��	 	��	#	��	#	��	%	��	"%	��	$%	��	$%	��	2%	#��	8%	��	8	��		@	gnamegany1�C�R��Q��l�nm
h�h-1345$"4>"G(6"S45$C4455$
4	5@44	5?$45"���C�"���`gpred
		�gls		�glists			�glists		>�gfilenamefsrfi/srfi-1.scm�
'
��	
(	��	2)	��	:*	��	>+	��	?,	��	K,	��	N.	��	S.	��	].	��	a,	��	d/	��	n/	��	o1	��	r1	 ��	|1	���1	���1	5���1	1���+	���+	���+	��		�	
	gnamegevery�CQRh@�]
"-(C�(�64�5$	�"���C"����gpred
		;gls		;gls			3gfilenamefsrfi/srfi-1.scm�
3
��	4	��	5	��	7	��	5	��	8	��	8	��	:	��	":	��	$:	��	(:	��	+:	$��	1:	 ��	34	��		;	gnamegevery1�C�R����l�mn	h�A-1345$"4>"G(4"%(C4�5$C��"���
"���"845$C445?$C45�"����
"���9gpred
		�gclist1		�grest			�gl		6	[gi		6	[glists		j�gi		j�gfilenamefsrfi/srfi-1.scm�
<
��	
?	��	2@	��	6A	��	<B	��	?D	��	DD	��	FD	��	JD	��	PF	��	SF	��	[F	
��	[A	��	jG	��	kH	
��	wH	��	zJ	
��	}J	���J	
���H	���L	���L	!���L	
���G	���G	���G	��		�	
	gnameg
list-index�g
documentationfgReturn the index of the first set of elements, one from each of
CLIST1 ... CLISTN, that satisfies PRED.�C�R�iTR�Th8r]"&(6�4����5"���"���jgalist
		7ga		,grl			,gfilenamefsrfi/srfi-1.scm�
R
��	U	��	W	��	X	��	Y	��	Y	��	Y	 ��	Y	)��	$Y	��	,Y	��	,U	��	/V	��	7U	��		7gnameg
alist-copy�g
documentationfeReturn a copy of ALIST, copying both the pairs comprising the list
and those making the associations.�CUR���V�h�N-.,3#45$"4>"G"9(64��5$
�"������"���"���Fgkey
	�galist	�gk=		�ga		=	vgrl		=	vgfilenamefsrfi/srfi-1.scm�
[
��	\	��	=]	��	C^	��	I_	��	J`	��	Q`	��	T`	��	X`	��	[a	��	ea	��	hb	��	kb	��	nb	��	vb	��	v]	��	y]	���]	��	�	gnamegalist-delete�CVR�Vh �-.,3#6�gkey
		 galist		 gk=			 gfilenamefsrfi/srfi-1.scm�
d
��	 e	��		 	gnameg
alist-delete!�CWR��������Hh\]LL6Tgy
		
gfilenamefsrfi/srfi-1.scm�
q	��	
q	��		
Chh�-.,3#&6&645$"4>"G	
O6�gx
		hgls		hg=			hgfilenamefsrfi/srfi-1.scm�
i
��	j	��	&m	��	.j	��	6n	��	7p	��	hq	��		h	gnamegmember�C�R��XQ�hf]L�L6^gel
		
gfilenamefsrfi/srfi-1.scm�
{	��		{	0��	
{	%��		
Chx-1345$"4>"G(C",(C4O5$��"���C��"���g=
			rgrest			rgf		8	dgr		8	dgfilenamefsrfi/srfi-1.scm�
u
��	
v	��	2w	��	8y	��	>z	��	?z	��	A{	��	T{	��	W|	��	Z|	��	b|	��	dy	��	gy	��	jy	!��	ry	��			r
gnameglset<=�CXR��XQ�hf]L�L6^gel
		
gfilenamefsrfi/srfi-1.scm�
�	��		�	.��	
�	#��		
C�hk]L6cgx
		
gy		
gfilenamefsrfi/srfi-1.scm�
�	0��	
�	>��		
	Ch]]LLO6Ugel
		gfilenamefsrfi/srfi-1.scm�
�	��	�	#��		Ch�<-1345$"4>"G(C"C(C4O5$%4O�5$��"���CC��"���4g=
		�grest		�gf		8	{gr		8	{gfilenamefsrfi/srfi-1.scm�
~
��	
	��	2�	��	8�	��	>�	��	?�	
��	A�	��	T�	
��	U�	��	c�	I��	e�	��	i�	
��	l�	��	o�	��	w�	��	{�	��	~�	����	����	��		�
gnameglset=�CYR����Zhk]L6cgx
		
gy		
gfilenamefsrfi/srfi-1.scm�
�	
��	
�	��		
	C�h��-13H&"�$"*45$"4>"GOK"0(C4�J5$"���"���"����g=
		�glist		�grest			�gpred		
�gans		X�grest		X�gfilenamefsrfi/srfi-1.scm�
�
��	�	��	�	��	�	��	"�	��	)�	
��	X�	��	^�	��	b�	��	g�	��	m�	��	q�	��	z�	��	}�	����	����	����	��		�	
	gnameglset-adjoin�g
documentationflAdd to LIST any of the elements of REST not already in the list.
These elements are `cons'ed onto the start of LIST (so the return shares
a common tail with LIST), but the order they're added is unspecified.

The given `=' procedure is used for comparing elements, called
as `(@var{=} listelem elem)', i.e., the second argument is one of the
given REST parameters.�CZR����[hk]L6cgx
		
gy		
gfilenamefsrfi/srfi-1.scm�
�	
��	
�	��		
	C66�h �]4M5$C�Cygelt
		gans		gfilenamefsrfi/srfi-1.scm�
�	��	�	��	�	��	�	��			Ch0x](C(C&CLO6pglis
		.gans		.gfilenamefsrfi/srfi-1.scm�
�	��	�	
��	.�	��		.	C	hh�-13H&"�$"*45$"4>"GOKO6�g=
			bgrest			bgpred		
	bgfilenamefsrfi/srfi-1.scm�
�
��	�	��	�	��	�	��	"�	��	)�	
��	^�	��	b�	��				b
gnameg
lset-union�C[R��\�Q�hf]L�L6^gll
		
gfilenamefsrfi/srfi-1.scm�
�	��	�	&��	
�	��		
Ch�?-1345$"4>"G">(64O5$���"����"���"���7g=
			yglist1			ygrest				ygl		0	ngacc		0	ngfilenamefsrfi/srfi-1.scm�
�
��	
�	��	0�	��	6�	��	<�	��	=�	
��	P�	��	S�	��	V�	��	Y�	��	a�	��	d�	��	n�	��	n�	��	q�	��	y�	��			y	
	gnameglset-intersection�C\R��]�P�hf]L�L6^gll
		
gfilenamefsrfi/srfi-1.scm�
�	��	�	&��	
�	��		
Ch�K-1345$"4>"G(C">(64O5$
�"������"���"���Cg=
		�glist1		�grest			�gl		9	wgacc		9	wgfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	9�	��	?�	��	E�	��	F�	��	Y�	��	\�	��	f�	
��	i�	��	l�	��	o�	��	w�	
��	w�	��	z�	����	��		�	
	gnameglset-difference�C]R��^6��h��]""~(J":(64�L5$
�"������"���"���4�L5$
�"������"���"��w�glst
	�gres	�gl		�gacc		�gr			Jgacc			Jgfilenamefsrfi/srfi-1.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	�	��	"�	��	(�	��	,�	��	/�	��	9�	��	<�	��	?�	'��	B�	!��	J�	��	J�	��	W�	��	\�	��	b�	��	f�	��	i�	��	s�	��	v�	��	y�	"��	|�	����	����	
����	 ����	
��	�	Ch@�-1345$"4>"GO6�g=
			:grest			:gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	6�	��	:�	��			:
gnameglset-xor�C^R��_�Q�hf]L�L6^gll
		
gfilenamefsrfi/srfi-1.scm�
�	��	�	1��	
�	)��		
Ch��-1345$"4>"G"X(4545D4O5$���"������"���"����g=
		�glist1		�grest			�gl		0�gaccd		0�gacci		0�gappears		V�gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	0�	��	6�	��	7�	��	>�	��	F�	��	G�	��	V�	��	^�	��	a�	��	f�	!��	i�	��	s�	
��	v�	��	y�	��	|�	����	
����	����	����	&����	��		�	
	gnameglset-diff+intersection�C_R��`[h8�-1345$"4>"G@�g=
			4grest			4gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	4�	��			4
gnameglset-union!�C`R��a\h8�-1345$"4>"G@�g=
			6glist1			6grest				6gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	6�	��			6	
	gnameglset-intersection!�CaR��c^h8�-1345$"4>"G@�g=
			4grest			4gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	4�	��			4
gnameg	lset-xor!�CcR��d_h8�-1345$"4>"G@�g=
			6glist1			6grest				6gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	6�	��			6	
	gnameglset-diff+intersection!�CdRC�gm
		0gfilenamefsrfi/srfi-1.scm�		'
��	1�
��	6�	��	>�	&��	C�
��	L�
��	Q�	��	W�	��	X�	+��	`�	��	b�	��	g�
����
��l�
����
����
��
�
���
��
�
��/
���
���%
���7
���@
��G
��[
��\
��$]
��+^
���_
��Y`
���a
���b
��*c
���d
���f
���j
���k
��q
���w
���}
����
�� ��
��"��
��#��
��%9�
��%��
��&��
��'D�
��(�
��)�
��,z�
��/]�
��2*�
��5s�
��9%
��;B
��=X 
��?@*
��E�1
��E�W
��K�Y
��Lg�
��M8�
��M?�
��QD�
��Si�
��V*�
��X�
��Y��
��\�
��^)�
��`q�
��bx
��d�
��f
��hC'
��i�3
��l�<
��l�P
��nmR
��pa[
��q6d
��r�i
��u'u
��x�~
��|��
����
�����
�����
���@�
���2�
����
����
�����
�����
��a	��
C6srfi/srfi-27.go000064400000045051150536206130007235 0ustar00GOOF----LE-8-2.0J]H4h�*]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-27�	�		gfilenameS�	
fsrfi/srfi-27.scm�	gimportsS�	gsrfi-9�	
�	
�	�	gexportsS�	grandom-integer�	grandom-real�	gdefault-random-source�	gmake-random-source�	grandom-source?�	grandom-source-state-ref�	grandom-source-state-set!�	grandom-source-randomize!�	grandom-source-pseudo-randomize!�	grandom-source-make-integers�	grandom-source-make-reals�	�	gset-current-module�	�	�	 gcond-expand-provide�	!gcurrent-module�	"�	#g:random-source�	$g%%make-random-source-procedure�	%gmake-syntax-transformer�	&%�	'%�	(g%make-random-source�	)gmacro�	*g$sc-dispatch�	+*�	,*�	-g_�	.gany�	/-.�	0g
syntax-object�	1glambda�	2gm-46961e50f6-4�	3gtop�	423�	5gribcage�	6gt-46961e50f6-3�	76�	84�	9fl-46961e50f6-9�	:9�	;578:�	<5�	=gx�	>=�	?fl-46961e50f6-6�	@?�	A5>8@�	Bgshift�	Cg	proc-name�	Dgargs�	ECD�	F3�	GFF�	Hfl-1e8ba8b5a-2ba�	Ifl-1e8ba8b5a-2bb�	JHI�	K5EGJ�	Lgkey�	Mgvalue�	Ngname�	Ogformals�	Pgbody�	QLMNOP�	RFFFFF�	Sfl-1e8ba8b5a-2ad�	Tfl-1e8ba8b5a-2ae�	Ufl-1e8ba8b5a-2af�	Vfl-1e8ba8b5a-2b0�	Wfl-1e8ba8b5a-2b1�	XSTUVW�	Y5QRX�	Zgmake-procedure-name�	[Z�	\F�	]fl-1e8ba8b5a-29d�	^]�	_5[\^�	`F�	afl-1e8ba8b5a-29c�	ba�	c5>`b�	d4;<AB<<<<KY_c
�	eghygiene�	fe�	g01df�	hgstate�	iF;<A�	je�	k0hij�	lk�	mgmake-struct�	ngm-46961e50f6-1�	on3�	pgt-1e8ba8b5a-38d�	qgt-1e8ba8b5a-38c�	rgt-1e8ba8b5a-38b�	spqr�	tgm-1e8ba8b5a-38e�	ut3�	vuuu�	wfl-1e8ba8b5a-392�	xfl-1e8ba8b5a-393�	yfl-1e8ba8b5a-394�	zwxy�	{5svz�	|g	ctor-args�	}|�	~fl-1e8ba8b5a-37a�	~��5}`��gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������5�G���gform��g	type-name��gconstructor-spec��gfield-names��������FFFF��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������5�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������FFFFFFFF��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������5�����fl-1e8ba8b5a-334�����5>`���o;<AB<{<<<��<�����0m�f��0#ij��0
�f�����k��gl���geach-any��-����gsyntax-violation��
���
���fWrong number of arguments��gidentifier?��
���
���F<A��0$�j��������f-source expression failed to match any pattern��grecord-type-vtable��
���
���gpw��gdefault-record-printer��
���
���h��gset-struct-vtable-name!��
���
���gvtable-offset-user��
���
���g%random-source?-procedure��gm-46961e50f6-11���3��gt-46961e50f6-10��������fl-46961e50f6-16�����5�����fl-46961e50f6-13�����5>������<�B<<<<KY_c
��01�f��gobj��gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b�����������gm-1e8ba8b5a-47f���3�����������fl-1e8ba8b5a-483��fl-1e8ba8b5a-484��fl-1e8ba8b5a-485��fl-1e8ba8b5a-486��fl-1e8ba8b5a-487��fl-1e8ba8b5a-488��fl-1e8ba8b5a-489�����������5�����g	copier-id�����fl-1e8ba8b5a-476�����5�`���g	ctor-name�����fl-1e8ba8b5a-46e�����5�`������fl-1e8ba8b5a-46c�����5�`���glayout����fl-1e8ba8b5a-46a��5�`�g
immutable?��fl-1e8ba8b5a-468��5`�gfield-count�	�
fl-1e8ba8b5a-466�
�5	`�
g
getter-ids�
�fl-1e8ba8b5a-463��5`�g	field-ids��fl-1e8ba8b5a-460��5`�gpredicate-name�g
field-spec�����FFFFFF�fl-1e8ba8b5a-453�fl-1e8ba8b5a-454�fl-1e8ba8b5a-455�fl-1e8ba8b5a-456�fl-1e8ba8b5a-457� fl-1e8ba8b5a-458�! �"5!�#o�<�B<�<<<<�<�<�<<<<<"���$0�#f�%$�&gand�'0&#f�(gstruct?�)0(#f�*)$�+geq?�,0+#f�-g
struct-vtable�.0-#f�/.$�0F�<��10#0j�2,/1�3'*2�4�%3�5F<��60�5j�7gthrow-bad-struct�8
7�9
7�:grandom-source-state�;g%random-source-state-procedure�<gfree-id�=g
%%on-error�>gm-46961e50f6-1d�?>3�@?�Afl-46961e50f6-1f�BA�C5>@B�D?<CB<<<<KY_c�E0=Df�F<E�GF.�Hg%%type�Igt-1e8ba8b5a-3a5�Jgt-1e8ba8b5a-3a6�Kgt-1e8ba8b5a-3a7�Lgt-1e8ba8b5a-3a8�Mgt-1e8ba8b5a-3a9�Ngt-1e8ba8b5a-3aa�Ogt-1e8ba8b5a-3ab�PIJKLMNO�Qgm-1e8ba8b5a-3ac�RQ3�SRRRRRRR�Tfl-1e8ba8b5a-3b0�Ufl-1e8ba8b5a-3b1�Vfl-1e8ba8b5a-3b2�Wfl-1e8ba8b5a-3b3�Xfl-1e8ba8b5a-3b4�Yfl-1e8ba8b5a-3b5�Zfl-1e8ba8b5a-3b6�[TUVWXYZ�\5PS[�]ggetter�^gindex�_]^�`fl-1e8ba8b5a-3a3�afl-1e8ba8b5a-3a4�b`a�c5_Gb�d�
��eFFF�ffl-1e8ba8b5a-39e�gfl-1e8ba8b5a-39f�hfl-1e8ba8b5a-3a0�ifgh�j5dei�ko<CB<\<<<c<j���l0Hkf�m<l�n-Gm.�ogck�pgerr�qgs�rpq�s??�tfl-46961e50f6-22�ufl-46961e50f6-23�vtu�w5rsv�x?w<CB<<<<KY_c
�y0oxf�zgquote�{0zxf�|Fw<C�}0#|j�~{}�~��g%%index��0�kf��<���-G�.��fl-46961e50f6-27��fl-46961e50f6-28������5rs���?�<CB<<<<KY_c
��0o�f��0z�f���<C��0
�j���������g%%copier��0�kf��<���-G�.��fl-46961e50f6-2c��fl-46961e50f6-2d������5rs���?�<CB<<<<KY_c
��0o�f��0z�f��g%%:random-source-set-fields��F�<C��0��j���������gt-46961e50f6-1c�����fl-46961e50f6-31�����5�@���?�<CB<<<<KY_c
��01�f��o�<CB<\<<<c<j����0q�f�����gif��0��f��0+�f��0-�f������F�<C��0#�j�������g
struct-ref��0��f���<C��0
�j�������07�f��0z�f��0:�j����������������������F<C��0;�j��geach��..������.����.Œ��.Ì��g%%set-fields��gdummy��gcheck?��gexpr����q]���gm-46961e50f6-38���3���oooo��fl-46961e50f6-3d��fl-46961e50f6-3e��fl-46961e50f6-3f��fl-46961e50f6-40��fl-46961e50f6-41���������5��������fl-46961e50f6-3a�����5>����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���3�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������5�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������5de���o�<�B<�<<<���
��0��f��F�<���0#�j��0:�j�����gmap��������glist��gset-random-source-state!��g#%set-random-source-state!-procedure��-..��gm-46961e50f6-4c���3��gt-46961e50f6-4a��gt-46961e50f6-4b����������fl-46961e50f6-51��fl-46961e50f6-52������5������fl-46961e50f6-4e��5>���<B<<<<KY_c
�01f�gt-1e8ba8b5a-3e6�gt-1e8ba8b5a-3e7��	gm-1e8ba8b5a-3e8�
	3�

�fl-1e8ba8b5a-3ec�
fl-1e8ba8b5a-3ed�
�5�gsetter�N]�fl-1e8ba8b5a-3e0�fl-1e8ba8b5a-3e1�fl-1e8ba8b5a-3e2��5e�^�fl-1e8ba8b5a-3d7�fl-1e8ba8b5a-3d8��5G�gfield-specs���fl-1e8ba8b5a-3d3�fl-1e8ba8b5a-3d4� �!5G �"o�<B<<<!���#0q"f�$gval�%0$"f�&#%�'0�"f�(0+"f�)0-"f�*)#�+F�<�,0#+j�-(*,�.gstruct-set!�/0."f�0�<�10
0j�2/#1%�307"f�40z"f�50�+j�645�73#6�8'-27�9&8�:F<�;0�:j�<gseed->random-state�=grandom-state->datum�>gdatum->random-state�?ggettimeofday�@e	1000000.0�Ag	i+j->seed�Bgspread�Cgrandom�Dgrandom:uniform�Egreal?�Fgerror�Gf!unit must be real between 0 and 1�C5h�]4	
54>"G4 i4!i5">"G#h�]�Cygstate
		
gfilenamefsrfi/srfi-27.scm�
	(
��		
gnameg%%make-random-source-procedure�C$R4'(),/�h6]C.gt-46961e50f6-3
		
		
C��(�hS]L6Kga
		gfilenamefsrfi/srfi-27.scm�		(
��		C-�hC]L6;gfilenamefsrfi/srfi-27.scm�		(
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-27.scm�
	(
��		nC5(R���#ƨ4�#>"G	̖$i�#R#hz]�$��CCrgobj
		gfilenamefsrfi/srfi-27.scm�
	(
��		gnameg%random-source?-procedure�C�R4'),/4h7]C/gt-46961e50f6-10
		
		
C���hS]L6Kga
		gfilenamefsrfi/srfi-27.scm�		(
��		C-�hC]L6;gfilenamefsrfi/srfi-27.scm�		(
��		
C6h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-27.scm�
	(
��		nC5R#9:h}]�&
�C6ugs
		gfilenamefsrfi/srfi-27.scm�
	(
��		gnameg%random-source-state-procedure�C;R4':),nyh:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C/�h7]C/gt-46961e50f6-1c
		
		
C��:�hS]L6Kga
		gfilenamefsrfi/srfi-27.scm�		(
��		C-�hC]L6;gfilenamefsrfi/srfi-27.scm�		(
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-27.scm�
	(
��	�C5:R4'�),������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-27.scm�
	(
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R#9�h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-27.scm�
	(
��			gnameg#%set-random-source-state!-procedure�C�R4'�),�9hT]CLgt-46961e50f6-4a
		gt-46961e50f6-4b					C����hS]L6Kga
		gfilenamefsrfi/srfi-27.scm�		(
��		C-�hC]L6;gfilenamefsrfi/srfi-27.scm�		(
��		
C;h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-27.scm�
	(
��		nC5�R<#h�]4
5�C}gstate
		gfilenamefsrfi/srfi-27.scm�
	-
��		.	��		.	��		
gnamegmake-random-source�CR=#9:h �]�&
�"	456~gs
		 gfilenamefsrfi/srfi-27.scm�
	0
��		1	��	 	1	��		 gnamegrandom-source-state-ref�CR>#9�h(�]
45�&
�C6�gs
		#gstate		#gval				#gfilenamefsrfi/srfi-27.scm�
	3
��		4	��			4	��		#	gnamegrandom-source-state-set!�CR?<@#9�h8�]454����5�&
�C6�gs
		2gtime		2gval			2gfilenamefsrfi/srfi-27.scm�
	6
��		7	��		7	��	
	8	 ��		9	'��		9	2��		9	$��		9	7��		9	!��		8	 ��		8	��		2gnamegrandom-source-randomize!�CR<A#9�h0�]4455�&
�C6�gs
		*gi		*gj			*gval			*gfilenamefsrfi/srfi-27.scm�
	;
��		<	��		<	2��		<	��		<	��		*	gnamegrandom-source-pseudo-randomize!�CRBh�]4	5�4	5�C�gi
		gj		gfilenamefsrfi/srfi-27.scm�
	>
��		?	��	
	?	
��		@	
��		?	��			gnameg	i+j->seed�CARh@�]")
�$C���	���"���

"����gn
		=gamount		=gresult			/gn			/gshift			/gfilenamefsrfi/srfi-27.scm�
	B
��		C	��			D	��		D	��		G	��		G	��		F	��	 	H	��	%	I	��	/	F	��	/	C	��		=	gnamegspread�CBRC#9:h(c]L�&L
�"	4L56[gn
		"gfilenamefsrfi/srfi-27.scm�
	L	��			M	��	"	M	��		"Chz]OCrgs
		
gfilenamefsrfi/srfi-27.scm�
	K
��		
gnamegrandom-source-make-integers�CRD#9:h@�]"04L�&L
�"	4L55
�$"���C"����gx
	%	6gfilenamefsrfi/srfi-27.scm�
	R	��		S	��		T	��		T	"��	%	T	��	%	T		��	*	U	��	/	U	��	3	V	��	6	S	��		:
CEFGh`�)3OC]
45$
�$�""$"4>"G6�gs
			gs
		]gunit		]gt		4	Wgfilenamefsrfi/srfi-27.scm�
	P	��		Y	��		Y		��	"	Y	��	4	Y	��	A	Z		��	E	Z	��	L	Z		��	]	[	��
					]	gnamegrandom-source-make-reals�CR4i5R4ii5R4ii5RC�gm
		,grtd
~�gfilenamefsrfi/srfi-27.scm�		
��	-	&
��	2	&	��	:	&	&��	?	&
���	(
���	-
��q	0
��f	3
���	6
���	;
���	>
���	B
��	K
���	O
���	]	���	]
���	^	���	^
���	_	���	_
��	�
C6srfi/srfi-43.go000064400000176476150536206130007253 0ustar00GOOF----LE-8-2.0&�]t4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-43�	�		gfilenameS�	
fsrfi/srfi-43.scm�	gimportsS�	gsrfi-1�	
�	
�	gsrfi-8�	�	�	�	gexportsS�	g
vector-empty?�	gvector=�	g
vector-unfold�	gvector-unfold-right�	gvector-reverse-copy�	g
vector-append�	gvector-concatenate�	gvector-fold�	gvector-fold-right�	g
vector-map�	gvector-map!�	gvector-for-each�	 gvector-count�	!gvector-index�	"gvector-index-right�	#gvector-skip�	$gvector-skip-right�	%gvector-binary-search�	&g
vector-any�	'gvector-every�	(gvector-swap!�	)gvector-reverse!�	*gvector-copy!�	+gvector-reverse-copy!�	,greverse-vector->list�	-greverse-list->vector�	. !"#$%&'()*+,-�	/g
re-exportsS�	0gmake-vector�	1gvector�	2gvector?�	3g
vector-ref�	4gvector-set!�	5g
vector-length�	6012345�	7greplacementsS�	8gvector-copy�	9gvector-fill!�	:glist->vector�	;gvector->list�	<89:;�	=gset-current-module�	>=�	?=�	@gcond-expand-provide�	Agcurrent-module�	B�	Cgerror�	Dg
string-append�	Egsymbol->string�	Ff: �	Gg
error-from�	Hgmake-syntax-transformer�	IH�	JH�	Kgassert-nonneg-exact-integer�	Lgmacro�	Mg$sc-dispatch�	NM�	OM�	Pgany�	QPPP�	Rg
syntax-object�	Sgunless�	Tgtop�	UT�	Vgribcage�	Wgdummy�	Xgk�	Ygwho�	ZWXY�	[gm-46961e513c-7�	\[T�	]\UU�	^fl-46961e513c-c�	_fl-46961e513c-d�	`fl-46961e513c-e�	a^_`�	bVZ]a�	cV�	dgx�	ed�	f\�	gfl-46961e513c-9�	hg�	iVefh�	jUbci�	kghygiene�	lk�	mRSjl�	ngand�	oRnjl�	pgexact-integer?�	qRpjl�	rgnot�	sRrjl�	tg	negative?�	uRtjl�	vRGjl�	wf(expected non-negative exact integer, got�	xRwjl�	ygsyntax-violation�	zy�	{y�	|f-source expression failed to match any pattern�	}gassert-procedure�	~gf�	W~Y��gm-46961e513c-13���T���UU��fl-46961e513c-18��fl-46961e513c-19��fl-46961e513c-1a�������V�������fl-46961e513c-15�����Ve����U�c���RS�l��g
procedure?��R��l��RG�l��fexpected procedure, got��R��l��g
assert-vector��gv��W�Y��gm-46961e513c-1f���T���UU��fl-46961e513c-24��fl-46961e513c-25��fl-46961e513c-26�������V��������fl-46961e513c-21�����Ve����U�c���RS�l��R2�l��RG�l��fexpected vector, got��R��l��gassert-valid-index��PPPP��gi��glen��W��Y��gm-46961e513c-2b���T���UUU��fl-46961e513c-30��fl-46961e513c-31��fl-46961e513c-32��fl-46961e513c-33��������V��������fl-46961e513c-2d�����Ve����U�c���RS�l��Rn�l��Rp�l��g<=��R��l��R
�l��RG�l��f
invalid index��R��l��gassert-valid-start��gstart��W��Y��gm-46961e513c-39���T���UUU��fl-46961e513c-3e��fl-46961e513c-3f��fl-46961e513c-40��fl-46961e513c-41��������V��������fl-46961e513c-3b�����Ve����U�c���RS�l��Rn�l��Rp�l��R��l��R
�l��RG�l��finvalid start index��R��l��gassert-valid-range��PPPPP��gend��W���Y��gm-46961e513c-47���T���UUUU��fl-46961e513c-4c��fl-46961e513c-4d��fl-46961e513c-4e��fl-46961e513c-4f��fl-46961e513c-50���������V��������fl-46961e513c-49�����Ve����U�c���RS�l��Rn�l��Rp�l��R��l��R
�l��RG�l��finvalid index range��R��l��gassert-vectors��glet��gvs��W�Y��gm-46961e513c-57���T���UU��fl-46961e513c-5c�fl-46961e513c-5d�fl-46961e513c-5e���V�����fl-46961e513c-59��Ve�Uc�	R�l�
gloop�R
l�RSl�
gnull?�R
l�R�l�gcar�Rl�gcdr�Rl�gmin�g
min-length�greverse!�gvectors-ref�gapply�8�8�gguile-vector-copy�gvector-move-left!�g%vector-concatenate�9�9� g%vector-reverse!�!gdefine-vector-copier!�"gdefine�#gcopy!�$g	docstring�%g
inner-proc�&W#$%�'gm-46961e513c-5ea�('T�)(UUU�*fl-46961e513c-5ef�+fl-46961e513c-5f0�,fl-46961e513c-5f1�-fl-46961e513c-5f2�.*+,-�/V&).�0(�1fl-46961e513c-5ec�21�3Ve02�4U/c3�5R"4l�6R�4l�7g%copy!�8R74l�9gcase-lambda�:R94l�;gtarget�<R;4l�=gtstart�>R=4l�?gsource�@R?4l�A<>@�BR�4l�Cgquote�DRC4l�Egtlen�FRE4l�GR54l�HG<�IFH�Jgslen�KRJ4l�LG@�MKL�NIM�OR�4l�PRS4l�Qg>=�RRQ4l�Sg+�TRS4l�UT>K�VRFU�WRG4l�Xfwould write past end of target�YRX4l�ZY�[R
4l�\8<>@[K�]\�^gsstart�_R^4l�`<>@_�ag-�bRa4l�cbK_�dT>c�eRFd�f8<>@_K�gf�hgsend�iRh4l�j<>@_i�kR�4l�lbi_�mT>l�nRFm�o8<>@_i�po�qgvector-move-right!�rglength�sgdrop�C5hh�l]4	
./67<54?>"G4@i4Ai5B>"GCDEFh �-134455@�gwho
			gmsg			gargs				gfilenamefsrfi/srfi-43.scm�
	+
��		-		��		-	��		-	-��		-		��		,	��				
	gnameg
error-from�CGR4JKLOQmoqsuvxh0M]CEgdummy
		+gk		+gwho			+		+	C{|h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-43.scm�
	0
��		"g
macro-typegsyntax-rules�gpatternsgkgwhoC5KR4J}LOQ����h M]CEgdummy
		gf		gwho						C{|h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-43.scm�
	5
��		"g
macro-typegsyntax-rules�gpatternsgfgwhoC5}R4J�LOQ����h M]CEgdummy
		gv		gwho						C{|h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-43.scm�
	9
��		"g
macro-typegsyntax-rules�gpatternsgvgwhoC5�R4J�LO��������h0^]CVgdummy
		*gi		*glen			*gwho			*		*	C{|h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-43.scm�
	=
��		"g
macro-typegsyntax-rules�gpatternsgiglengwhoC5�R4J�LO��������h0b]CZgdummy
		*gstart		*glen			*gwho			*		*	C{|h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-43.scm�
	B
��		"g
macro-typegsyntax-rules�gpatternsgstartglengwhoC5�R4J�LO��������h8s]Ckgdummy
		5gstart		5gend			5glen			5gwho			5		5	C{|h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-43.scm�
	G
��		"g
macro-typegsyntax-rules�gpatternsgstartgendglengwhoC5�R4J�LOQ	h@N]CFgdummy
		:gvs		:gwho			:		:	C{|h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-43.scm�
	M
��		"g
macro-typegsyntax-rules�gpatternsgvsgwhoC5�R5h@]"#(C�44�55"����4�5"����gvs
		<gvs		)gresult			)gfilenamefsrfi/srfi-43.scm�
	U
��		V	��		X	��		Z	��		Z	��		Z	#��		Z	2��		Z	#��	!	Z	��	)	Z	��	)	V	��	,	V	��	-	W	��	2	W	$��	4	W	��	<	V	��		<gnameg
min-length�CRh8�]" (6����"���"����gvs
		1gi		1gvs			&gxs			&gfilenamefsrfi/srfi-43.scm�
	]
��		^	��		_	��		`	��		a	��		a	)��		a	��		a	��	&	a	��	&	^	��	)	^	��	1	^	��
		1	gnamegvectors-ref�CR�G�wp0h8�]L�$C4L>GL��"����gi
		5gseed		5gx			5gseed			5gfilenamefsrfi/srfi-43.scm�
	{	��		|	��		|		��		}	��		}	��	(	~	
��	+		��	5		
��			5	gnamegloop�Ch@�]L�$C4L>GL��"����gi
		=gseed1		=gseed2			=gx			=gseed1			=gseed2			=gfilenamefsrfi/srfi-43.scm�
�	��	�	��	�		��	�	$��	�	��	,�	
��	/�	��	=�	
��			=	gnamegloop�Ch8�]L�$C4L>GL��"����gi
		7gseeds		7gx			7gseeds			7gfilenamefsrfi/srfi-43.scm�
�	��	�	��	�		��	�	 ��	�	��	*�	
��	-�	��	7�	
��			7	gnamegloop�Ch�s)�345$"4>"G"4>"*G"#45$
�$"���"""���45""�$"45��"���
"���C)�345$"4>"G"4>"*G"#45$
�$"���"""���45OQ4
>"GC)�345$"4>"G"4>"*G"#45$
�$"���"""���45	OQ4
>"GC-1345$"4>"G"4>"*G"#45$
�$"���"""���45
OQ4
>"GCkgf
		�glen		�gv		v�gi		|�gf
�Oglen�Ogseed	�Ogv	Ogloop	+Lgf
X�glenX�gseed1	X�gseed2	X�gv	��gloop	��gf
�glen�gseeds	�gv	n�gloop	{�gfilenamefsrfi/srfi-43.scm�
	e	��	
	o	��		o	��		o	��	3	p	��	7	p	&��	9	p	��	p	q	��	v	q	��	|	r	���	s	���	s		���	t	���	t	���	u	���	u	���	r	���	e	���	x	���	x	���	x	���	y	���	y	&���	y	��	z	��	z	��+	{	��X	e	��Y�	��l�	��n�	����	����	&����	����	����	����	��	e	���	���	���	��+�	��/�	&��1�	��h�	��n�	��{�	��0		�	�O	X�	�	
	gnameg
vector-unfold�g
documentationf�(vector-unfold f length initial-seed ...) -> vector

The fundamental vector constructor.  Create a vector whose length is
LENGTH and iterates across each index k from 0 up to LENGTH - 1,
applying F at each iteration to the current index and current seeds, in
that order, to receive n + 1 values: the element to put in the kth slot
of the new vector, and n new seeds for the next iteration.  It is an
error for the number of seeds to vary between iterations.�CR�G�wp0h8�]
�$C4L>GL��"����gi
		4gseed		4gx			4gseed			4gfilenamefsrfi/srfi-43.scm�
�	��	�	��	
�		��	
�	��	�	��	'�	
��	*�	��	4�	
��			4	gnamegloop�Ch@�]
�$C4L>GL��"����gi
		<gseed1		<gseed2			<gx			<gseed1			<gseed2			<gfilenamefsrfi/srfi-43.scm�
�	��	�	��	
�		��	
�	$��	�	��	+�	
��	.�	��	<�	
��			<	gnamegloop�Ch8�]
�$C4L>GL��"����gi
		6gseeds		6gx			6gseeds			6gfilenamefsrfi/srfi-43.scm�
�	��	�	��	
�		��	
�	 ��	�	��	)�	
��	,�	��	6�	
��			6	gnamegloop�Ch��)�345$"4>"G"4>"*G"#45$
�$"���"""���45"!
�$"45��"����"���C)�345$"4>"G"4>"*G"#45$
�$"���"""���45OQ4�>"GC)�345$"4>"G"4>"*G"#45$
�$"���"""���45	OQ4�>"GC-1345$"4>"G"4>"*G"#45$
�$"���"""���45
OQ4�>"GC�gf
		�glen		�gv		v�gi		|�gf
�Oglen�Ogseed	�Ogv	Ogloop	+Lgf
X�glenX�gseed1	X�gseed2	X�gv	��gloop	��gf
�glen�gseeds	�gv	m�gloop	y�gfilenamefsrfi/srfi-43.scm�
�	��	
�	��	�	��	�	��	3�	��	7�	&��	9�	��	p�	��	v�	��	|�	��	�	����		����	����	����	����	����	����	����	����	����	����	����	����	����	&����	���	���	��+�	��:�	��A�	��X�	��Y�	��l�	��n�	����	����	&����	����	����	����	����	����	���	���	���	���	��*�	��.�	&��0�	��g�	��m�	��y�	����	����	��8		�	�O	X�	�	
	gnamegvector-unfold-right�g
documentationf�(vector-unfold-right f length initial-seed ...) -> vector

The fundamental vector constructor.  Create a vector whose length is
LENGTH and iterates across each index k from LENGTH - 1 down to 0,
applying F at each iteration to the current index and current seeds, in
that order, to receive n + 1 values: the element to put in the kth slot
of the new vector, and n new seeds for the next iteration.  It is an
error for the number of seeds to vary between iterations.�CRRG8�5�p0�h��)	36)�3�$"4>"G45"4>";G"445$%
�$�$""���""���""���4�54	
>"GC-.,3#�$"4>"G45"4
>"NG"G45$845$%
�$�$""���""���""���""���4�54	45
>"GC�gv
			gv
	�gstart	�glen		@�gresult	��gv
��gstart��gend	��gfill	��glen	��gresult	n�gfilenamefsrfi/srfi-43.scm�
�	��	�	��	�	��	�	��	(�	��	*�	��	:�	��	@�	��	G�	��	K�	$��	M�	����	����	!����	����	����	����	����	����	����	����	����	���	���	���	!���	���	���	��&�	��'�	��1�	��5�	��9�	��>�	��c�	��j�	!��n�	��n�	��q�	��x�	#����	��*				�	��	gnamegvector-copy�g
documentationf�(vector-copy vec [start [end [fill]]]) -> vector

Allocate a new vector whose length is END - START and fills it with
elements from vec, taking elements from vec starting at index START
and stopping at index END.  START defaults to 0 and END defaults to
the value of (vector-length VEC).  If END extends beyond the length of
VEC, the slots in the new vector that obviously cannot be filled by
elements from VEC are filled with FILL, whose default value is
unspecified.�C8R0hPe]#�45"%�$"$����"���
�"���C]gvec
		Jgstart		Jgend			Jglen			Jgresult			Jgi			;gj			;gfilenamefsrfi/srfi-43.scm�
�	��	�	��	�	��	
�	��	�	��	�	��	�	��	�	
��	,�	"��	-�	��	0�	��	3�	��	;�	��	;�	��	?�	��	G�	��		J	gnameg%vector-reverse-copy�CG�5�p�hx )23�$"4>"GL
456)�3�$"4>"G45"4>";G"445$%
�$�$""���""���""���L6]�$"4>"G45"4>"_G"X45$I45$6
�$&�$�$""���""���""���""���""���L6gvec
			8gvec
	A�gstart	A�glen		i�gvec
�ugstart�ugend	�uglen	�ugfilenamefsrfi/srfi-43.scm�
�	��	�	��	�	��	�	��	0�	#��	8�	��	A�	��	D�	��	Q�	��	S�	��	c�	��	i�	��	p		��	t	'��	v		���		����	���	���	���	���	���	���		���	+���		��u		��			8	A�	�u	g
documentationf1(vector-reverse-copy vec [start [end]]) -> vector

Allocate a new vector whose length is END - START and fills it with
elements from vec, taking elements from vec in reverse order starting
at index START and stopping at index END.  START defaults to 0 and END
defaults to the value of (vector-length VEC).�COR50h��]1""("!�4�5�"���
"���45"G("H�454
>"G��"���
"���C�gvs
	�gvs		(glen			(g
result-len	3�gresult		<�gvs		B�gpos		B�gv		O�glen		X�	gfilenamefsrfi/srfi-43.scm�

��			��	
	��		!��		1��		@��		1��	 	*��	(	��	(		��	3		��	6
	��	<		��	B	��	H	��	O	��	O	��	R	��	X	��	[	
��	v	��	{	���	
���	��	�gnameg%vector-concatenate�CRG�50	h0�)3C)*3�$"4>"G6)�3�$"4>"G�$"4>"G45454�54

>"G4
>"GC-13"6("4��$"4�>"G�"���"���6�gv
		=gv1
	F�gv2	F�glen1	��glen2	��gresult	��gvs
�+gvs�gfilenamefsrfi/srfi-43.scm�
	��		��		��		��	&	��	(	��	=	��	F	��	I!	��	V!	��	X!	��	j"	��	w"	��	y"	���#	���$	���#	���%	���%	"���%	���%	���&		���'		���	���*	��*	��*	��++	��			
		=	F�	�+


gnameg
vector-append�g
documentationf�(vector-append vec ...) -> vector

Return a newly allocated vector that contains all elements in order
from the subsequent locations in VEC ...�CRG�hPJ]	"6("4��$"4�>"G�"���"���6Bgvs
		Jgvs		<gfilenamefsrfi/srfi-43.scm�
-
��	2	��	!2	��	#2	��	J3	��		Jgnamegvector-concatenate�g
documentationf�(vector-concatenate list-of-vectors) -> vector

Append each vector in LIST-OF-VECTORS.  Equivalent to:
  (apply vector-append LIST-OF-VECTORS)�CRG�5h0]�$"4>"G45
�Cgvec
		-gfilenamefsrfi/srfi-43.scm�
5
��	9	��	9	��	9	��	$:		��	+:	��		-gnameg
vector-empty?�g
documentationfd(vector-empty? vec) -> boolean

Return true if VEC is empty, i.e. its length is 0, and false if not.�CR5h(�](C4�5�$
�"���C�glen
		(gvs		(gfilenamefsrfi/srfi-43.scm�
>	��	?	��		?	
��	
@	��	@	%��	@	��	@	��	@	
��	A	#��	&A	��		(	gnamegall-of-length?�COhP-]
�$C��&"	45$�"���C%gi
		Pgelt=?		Pgv1			Pgv2			Pgt			Pgx1			Pgx2			Pgfilenamefsrfi/srfi-43.scm�
B	��	C	
��	C	��	D	��	E	��	D	
��	'F	��	(F	��	-F	!��	9F	��	<G	��	NG	��
		P	gnameg=up-to?�COQQ�G��5h��)*345$"4>"GC)K345$"4>"G�$"4>"GC)�345$"4>"G�$"4>"G�$"4>"G4545�$
L�6C-1345$"4>"G�$"4>"G"6("4��$"4�>"G�"���"���454L5$2"&(C4L��5$	�"���C"���C�gelt=?
			0gelt=?
	9�gv	9�gelt=?
�gv1�gv2	�glen	�gelt=?
 �gv1 �gvs	 �gvs	j�glen	��gvs	��
gfilenamefsrfi/srfi-43.scm�
H	��	
R	��	R	��	R	��	9H	��	:U	��	MU	��	OU	��	aV	��	nV	��	pV	���H	���Y	���Y	���Y	���Z	���Z	���Z	���[	���[	���[	���\	���\	���]	��]	��]		��
^	��^	�� H	��!`	��4`	��6`	��Ha	��Ua	��Wa	��jb	���b	���b	���c	���c	���d	���d		���e	���f	���f	���g	���g	"���g	5���g	���g	���h	���h	���e	��6			0	9�	�	 �	
	g
documentationfu(vector= elt=? vec ...) -> boolean

Return true if the vectors VEC ... have equal lengths and equal
elements according to ELT=?.  ELT=? is always applied to two
arguments.  Element comparison must be consistent with eq?, in the
following sense: if (eq? a b) returns true, then (elt=? a b) must also
return true.  The order in which comparisons are performed is
unspecified.�COR�G��5
h)�345$"4>"G�$"4>"G45"%�$C�4�5"���
"���)�345$"4>"G�$"4>"G�$"4>"G445455"*�$C�4��5"���
"���-1345$"4>"G"6("4��$"4�>"G�"���"���45")�$C�44	5?"���
"���gkcons
		�gknil		�gv			�glen		V�gi		\�gstate		\�gkcons
�Jgknil�Jgv1	�Jgv2	�Jglen	Jgi	?gstate	?gkcons
S�gknilS�gvs	S�gvs	|�glen	��gi	��gstate	��gfilenamefsrfi/srfi-43.scm�
k	��	
v	��	v	��	v	��	1w	��	>w	��	@w	��	Px	��	Vx	��	\y	��	az	
��	ez		��	k|	��	l|	��	w|	*��	y|	���|	
���y	���k	���~	���~	���~	���	���	���	����	����	����	����	���	���	(���	���	���	���	
���		��$�	��%�	��0�	"��5�	4��7�	��?�	
��?�	��Sk	��T�	��g�	��i�	��|�	����	����	����	����	����	����	
����		����	����	����	0����	����	
����	��>		�	�J	S�	
	gnamegvector-fold�g
documentationf�(vector-fold kons knil vec1 vec2 ...) -> value

The fundamental vector iterator.  KONS is iterated over each index in
all of the vectors, stopping at the end of the shortest; KONS is
applied as (KONS i state (vector-ref VEC1 i) (vector-ref VEC2 i) ...)
where STATE is the current state value, and I is the current index.
The current state value begins with KNIL, and becomes whatever KONS
returned at the respective iteration.  The iteration is strictly
left-to-right.�CR�G��5
hg)�345$"4>"G�$"4>"G45"$
�$C�4�5"����"���)�345$"4>"G�$"4>"G�$"4>"G445455")
�$C�4��5"����"���-1345$"4>"G"6("4��$"4�>"G�"���"���45"(
�$C�44	5?"����"���_gkcons
		�gknil		�gv			�glen		V�gi		\�gstate		\�gkcons
�Lgknil�Lgv1	�Lgv2	�Lglen	Lgi	?gstate	?gkcons
U�gknilU�gvs	U�gvs	~�glen	��gi	��gstate	��gfilenamefsrfi/srfi-43.scm�
�	��	
�	��	�	��	�	��	1�	��	>�	��	@�	��	P�	��	V�	��	\�	��	_�	
��	d�		��	j�	��	k�	��	v�	*��	x�	����	
����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	���	(���	���	���	���	
���		��$�	��%�	��0�	"��5�	4��7�	��?�	
��?�	��B�	��L�	��U�	��V�	��i�	��k�	��~�	����	����	����	����	����	����	
����		����	����	����	0����	����	
����	����	����	��D		�	�L	U�	
	gnamegvector-fold-right�g
documentationf�(vector-fold-right kons knil vec1 vec2 ...) -> value

The fundamental vector iterator.  KONS is iterated over each index in
all of the vectors, starting at the end of the shortest; KONS is
applied as (KONS i state (vector-ref VEC1 i) (vector-ref VEC2 i) ...)
where STATE is the current state value, and I is the current index.
The current state value begins with KNIL, and becomes whatever KONS
returned at the respective iteration.  The iteration is strictly
right-to-left.�CR�G��50h ~)�345$"4>"G�$"4>"G4545"'�$"!4�5��"���
"���C)�345$"4>"G�$"4>"G�$"4>"G44545545",�$"&4��5��"���
"���C-1345$"4>"G"6("4��$"4�>"G�"���"���4	545"+�$"%44
5?��"���
"���Cvgf
		�gv		�glen		V�gresult		_�gi		e�gf
�^gv1�^gv2	�^glen	^gresult	"^gi	(Tgf
ggvsggvs	��glen	�gresult	�gi	�gfilenamefsrfi/srfi-43.scm�
�	��	
�	��	�	��	�	��	1�	��	>�	��	@�	��	P�	��	V�	��	Y�	��	_�	��	e�	��	j�	��	n�		��	w�	!����	&����	!����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	��
�	���	)���	���	���	��"�	��(�	��-�	��1�		��:�	!��C�	&��H�	8��J�	!��K�	��N�	��T�	��T�	��g�	��h�	��{�	��}�	����	����	����	����	����	����	����	����	����	����		����	!����	,���	!���	��	�	���	���	��G		�	�^	g
gnameg
vector-map�g
documentationf(vector-map f vec2 vec2 ...) -> vector

Return a new vector of the shortest size of the vector arguments.
Each element at index i of the new vector is mapped from the old
vectors by (F i (vector-ref VEC1 i) (vector-ref VEC2 i) ...).  The
dynamic order of application of F is unspecified.�CR�G��5
h��)�345$"4>"G�$"4>"G45"%�$C4�5��"���
"���)�345$"4>"G�$"4>"G�$"4>"G445455"*�$C4��5��"���
"���-1345$"4>"G"6("4��$"4�>"G�"���"���45�")�$C44	5?��"���
"����gf
		�gv		�glen		V�gi		\�gf
�Bgv1�Bgv2	�Bglen	Bgi	;gf
K�gvsK�gvs	t�glen	��gv1	��gi	��gfilenamefsrfi/srfi-43.scm�
�	��	
�	��	�	��	�	��	1�	��	>�	��	@�	��	P�	��	V�	��	\�	��	a�	��	e�		��	l�	��	u�	!��	w�	��	x�	��	{�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	(���	���	���	���	���		��!�	��*�	"��/�	4��1�	��2�	��5�	��;�	��;�	��K�	��L�	��_�	��a�	��t�	����	����	����	����	����	����	����	����		����	����	(����	����	����	����	����	��B		�	�B	K�
gnamegvector-map!�g
documentationf�(vector-map! f vec2 vec2 ...) -> unspecified

Similar to vector-map, but rather than mapping the new elements into a
new vector, the new mapped elements are destructively inserted into
VEC1.  The dynamic order of application of F is unspecified.�CR�G��5h�)�345$"4>"G�$"4>"G45"+�$C4�>"G�"���
"���)�345$"4>"G�$"4>"G�$"4>"G445455"0�$C4��>"G�"���
"���-1345$"4>"G"6("4��$"4�>"G�"���"���45"1�$C4	4
5>"G�"���
"����gf
		�gv		�glen		V�gi		\�gf
�Ngv1�Ngv2	�Nglen	Ngi	Ggf
WgvsWgvs	��glen	�gi	��gfilenamefsrfi/srfi-43.scm�
	��	
	��		��		��	1		��	>		��	@		��	P
	��	V
	��	\	��	a	��	e		��	h
	��	q
	��	v
	���	���	���	���	���	���	���	���	���	���	���	���	���	���	��	��		��	��	��	��	�� 		��#	��,	��1	"��6	��A	��G	��G	��W	��X	��k	��m	���	���	���	���	���	���	���	���		���	���	���	��� 	��� 	���	��>		�	�N	W
gnamegvector-for-each�g
documentationf�(vector-for-each f vec1 vec2 ...) -> unspecified

Call (F i VEC1[i] VEC2[i] ...) for each index i less than the length
of the shortest vector passed.  The iteration is strictly
left-to-right.�CR�G ��5
h0V)�345$"4>"G�$"4>"G45"7�$C4�5$��"����"���

"���)�345$"4>"G�$"4>"G�$"4>"G445455"<�$C4��5$��"����"���

"���-1345$"4>"G"6("4��$"4�>"G�"���"���45";�$C44	5?$��"����"���

"���Ngpred?
		�gv		�glen		V�gi		\�gcount		\�gpred?
�lgv1�lgv2	�lglen	 lgi	&bgcount	&bgpred?
u.gvsu.gvs	��glen	�.gi	�$gcount	�$gfilenamefsrfi/srfi-43.scm�
#	��	
*	��	*	��	*	��	1+	��	>+	��	@+	��	P,	��	V,	��	\-	��	a.	��	e.		��	i/	��	r/	��	t/	��	x.		��	{0	��	~0	���0	���2	���2	���-	���#	���4	���4	���4	���5	���5	���5	���6	���6	���6	��7	��7	��8	�� 7	�� 7	��&9	��+:	��/:		��3;	��<;	��A;	+��C;	��G:		��J<	��M<	��U<	��X>	��b>	��b9	��u#	��v@	���@	���@	���A	���A	���A	���B	���B	���C	���D	���D		���E	���E	��E	��	D		��F	��F	��F	��H	��$H	��$C	��J		�	�l	u.
gnamegvector-count�g
documentationf�(vector-count pred? vec1 vec2 ...) -> exact nonnegative integer

Count the number of indices i for which (PRED? VEC1[i] VEC2[i] ...)
returns true, where i is less than the length of the shortest vector
passed.�C R�G!��5
h��)�345$"4>"G�$"4>"G45"%�$4�5$C�"���C
"���)�345$"4>"G�$"4>"G�$"4>"G445455"*�$4��5$C�"���C
"���-1345$"4>"G"6("4��$"4�>"G�"���"���45")�$44	5?$C�"���C
"����gpred?
		�gv		�glen		V�gi		\�gpred?
�Bgv1�Bgv2	�Bglen	Bgi	;gpred?
K�gvsK�gvs	t�glen	��gi	��gfilenamefsrfi/srfi-43.scm�
K	��	
R	��	R	��	R	��	1S	��	>S	��	@S	��	PT	��	VT	��	\U	��	aV	��	eV		��	fW	��	mW	��	oW	��	sW	��	yY	��	Y	���U	���K	���[	���[	���[	���\	���\	���\	���]	���]	���]	���^	���^	��_	��^	��^	��`	��a	��a		��b	��"b	��'c	��)b	��-b	��3e	��9e	��;`	��KK	��Lg	��_g	��ag	��th	���h	���h	���i	���i	���j	���k	���k		���l	���l	���l	���l	���n	���n	���j	��A		�	�B	K�
gnamegvector-index�g
documentationf�(vector-index pred? vec1 vec2 ...) -> exact nonnegative integer or #f

Find and return the index of the first elements in VEC1 VEC2 ... that
satisfy PRED?.  If no matching element is found by the end of the
shortest vector, return #f.�C!R�G"��5
h�@)�345$"4>"G�$"4>"G45"$
�$4�5$C�"���C�"���)�345$"4>"G�$"4>"G�$"4>"G445455")
�$4��5$C�"���C�"���-1345$"4>"G"6("4��$"4�>"G�"���"���45"(
�$44	5?$C�"���C�"���8gpred?
		�gv		�glen		V�gi		\�gpred?
�Dgv1�Dgv2	�Dglen	Dgi	;gpred?
M�gvsM�gvs	v�glen	��gi	��gfilenamefsrfi/srfi-43.scm�
q	��	
x	��	x	��	x	��	1y	��	>y	��	@y	��	Pz	��	Vz	��	\{	��	`|	��	d|		��	e}	��	l}	��	n}	��	r}	��	x	��	~	���{	���{	���{	���q	����	����	����	����	����	����	����	����	����	����	����	���	���	���	���	���	���		���	��"�	��'�	��)�	��-�	��3�	��9�	��;�	��>�	��D�	��Mq	��N�	��a�	��c�	��v�	����	����	����	����	����	����	����		����	����	����	����	����	����	����	����	����	��G		�	�D	M�
gnamegvector-index-right�g
documentationf(vector-index-right pred? vec1 vec2 ...) -> exact nonnegative integer or #f

Find and return the index of the last elements in VEC1 VEC2 ... that
satisfy PRED?, searching from right-to-left.  If no matching element
is found before the end of the shortest vector, return #f.�C"R�G#��5
h��)�345$"4>"G�$"4>"G45"%�$4�5$	�"���CC
"���)�345$"4>"G�$"4>"G�$"4>"G445455"*�$4��5$	�"���CC
"���-1345$"4>"G"6("4��$"4�>"G�"���"���45")�$44	5?$	�"���CC
"����gpred?
		�gv		�glen		V�gi		\�gpred?
�Bgv1�Bgv2	�Bglen	Bgi	;gpred?
K�gvsK�gvs	t�glen	��gi	��gfilenamefsrfi/srfi-43.scm�
�	��	
�	��	�	��	�	��	1�	��	>�	��	@�	��	P�	��	V�	��	\�	��	a�	��	e�		��	f�	��	m�	��	o�	��	s�	��	v�	��	|�	����	����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	���	���	���		���	��"�	��'�	��)�	��-�	��0�	��6�	��;�	��K�	��L�	��_�	��a�	��t�	����	����	����	����	����	����	����		����	����	����	����	����	����	����	��A		�	�B	K�
gnamegvector-skip�g
documentationf�(vector-skip pred? vec1 vec2 ...) -> exact nonnegative integer or #f

Find and return the index of the first elements in VEC1 VEC2 ... that
do not satisfy PRED?.  If no matching element is found by the end of
the shortest vector, return #f.�C#R�G$��5
h�E)�345$"4>"G�$"4>"G45"$
�$C4�5$	�"���C�"���)�345$"4>"G�$"4>"G�$"4>"G445455")
�$C4��5$	�"���C�"���-1345$"4>"G"6("4��$"4�>"G�"���"���45"(
�$C44	5?$	�"���C�"���=gpred?
		�gv		�glen		V�gi		\�gpred?
�Dgv1�Dgv2	�Dglen	Dgi	;gpred?
M�gvsM�gvs	v�glen	��gi	��gfilenamefsrfi/srfi-43.scm�
�	��	
�	��	�	��	�	��	1�	��	>�	��	@�	��	P�	��	V�	��	\�	��	_�	��	d�		��	g�	��	n�	��	p�	��	t�	��	w�	��	}�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	���	���	���		���	��$�	��)�	��+�	��/�	��2�	��8�	��;�	��>�	��D�	��M�	��N�	��a�	��c�	��v�	����	����	����	����	����	����	����		����	����	����	����	����	����	����	����	����	��G		�	�D	M�
gnamegvector-skip-right�g
documentationf(vector-skip-right pred? vec1 vec2 ...) -> exact nonnegative integer or #f

Find and return the index of the last elements in VEC1 VEC2 ... that
do not satisfy PRED?, searching from right-to-left.  If no matching
element is found before the end of the shortest vector, return #f.�C$Rhp�]-"]�$R�	��45		
�$C	
�$"���	
�$
�"���CC"����gvec
		ogvalue		ogcmp			ogstart			ogend			oglo			cghi			cgi			agx			agc			)	a
gfilenamefsrfi/srfi-43.scm�
�	��	�	��	�	
��	�	��	�	!��	�	��	�	
��	�	��	�	
��	!�	��	)�	
��	.�	��	3�	��	9�	��	>�	��	J�	$��	M�	��	R�	��	U�	*��	_�	$��	c�	��		o	gnameg%vector-binary-search�CG%���5�p�
h��)[3�$"4>"G45$"4>"GL
456)�3�$"4>"G45"4>";G"445$%
�$�$""���""���""���L6]
�$"4>"G45"4	>"_G"X45$I45$6
�$&�$�$""���""���""���""���""���L6�gvec
			agvalue			agcmp				agvec
	j�gvalue	j�gcmp		j�gstart		j�glen	��gvec
��gvalue��gcmp	��gstart	��gend	��glen	�gfilenamefsrfi/srfi-43.scm�
�	��	�	��	�	��	�	��	+�	��	>�	��	@�	��	Y�	.��	a�	��	j�	��	m�	��	z�	��	|�	����	����	����		����	'����		���		����	���	��	��	��	��	��%		��)	+��+		���		��			a		j�	��	g
documentationf(vector-binary-search vec value cmp [start [end]]) -> exact nonnegative integer or #f

Find and return an index of VEC between START and END whose value is
VALUE using a binary search.  If no matching element is found, return
#f.  The default START is 0 and the default END is the length of VEC.
CMP must be a procedure of two arguments such that (CMP A B) returns
a negative integer if A < B, a positive integer if A > B, or zero if
A = B.  The elements of VEC must be sorted in non-decreasing order
according to CMP.�CO%R�G&��5
hP)�345$"4>"G�$"4>"G45")�$4�5$C�"���C
"���)�345$"4>"G�$"4>"G�$"4>"G445455".�$#4��5$C�"���C
"���-1345$"4>"G"6("4��$"4�>"G�"���"���45"-�$"44	5?$C�"���C
"���Hgpred?
		�gv		�glen		V�gi		\�gt		o�gpred?
�Jgv1�Jgv2	�Jglen	Jgi	Cgt	-Agpred?
S�gvsS�gvs	|�glen	��gi	��gt	��gfilenamefsrfi/srfi-43.scm�
		��	
	��		��		��	1	��	>	��	@	��	P	��	V	��	\	��	a	��	e		��	f	��	m	��	o	��	o	��	}	���	���	���		���	���	���	���	���	���	���	���	���	���	��	��	��	��	��	��	��		�� 	��& 	��+!	��- 	��- 	��;"	��A"	��C	��S		��T$	��g$	��i$	��|%	���%	���%	���&	���&	���'	���(	���(		���)	���)	���)	���)	���*	���*	���'	��A		�	�J	S�
gnameg
vector-any�g
documentationf2(vector-any pred? vec1 vec2 ...) -> value or #f

Find the first parallel set of elements from VEC1 VEC2 ... for which
PRED? returns a true value.  If such a parallel set of elements
exists, vector-any returns the value that PRED? returned for that set
of elements.  The iteration is strictly left-to-right.�C&R�G'��5
h@m)�345$"4>"G�$"4>"G45
�$C"04�5�$	�"$C"���
"���)�345$"4>"G�$"4>"G�$"4>"G445455
�$C"54��5�$	�"$C"���
"���-1345$"4>"G"6("4��$"4�>"G�"���"���45
�$C"444	5?�$	�"$C"���
"���egpred?
		�gv		�glen		V�gt		\�gi		k�gval		x�gnext-i		x�gpred?
�vgv1�vgv2	�vglen	%vgt	+vgi	:ogval	Lognext-i	Logpred?
=gvs=gvs	��glen	�=gt	�=gi	6gval	6gnext-i	6gfilenamefsrfi/srfi-43.scm�
-	��	
6	��	6	��	6	��	17	��	>7	��	@7	��	P8	��	V8	��	[9	��	\9	��	k:	��	l;	��	s;	��	u;	��	x<	��	x;	
���=	���=	!���=	���=	���?	���:	���-	���A	���A	���A	���B	���B	���B	���C	��C	��C	��D	��D	��E	��%D	��%D	��*F	��+F	��:G	��;H	��BH	��GI	��IH	��LJ	��LH	
��VK	��[K	!��`K	��dK	��oM	��oG	��-	���O	���O	���O	���P	���P	���P	���Q	���Q	���R	���R	��S	��T	��T	%��T	��U	��T	
��V	��"V	!��'V	��+V	��6X	��6S	��M		�	�v	=
gnamegvector-every�g
documentationf\(vector-every pred? vec1 vec2 ...) -> value or #f

If, for every index i less than the length of the shortest vector
argument, the set of elements VEC1[i] VEC2[i] ... satisfies PRED?,
vector-every returns the value that PRED? returned for the last set of
elements, at the last index of the shortest vector.  The iteration is
strictly left-to-right.�C'RG(�5�ph��]�$"4>"G45"4>";G"445$%
�$�$""���""���""���"4>";G"445$%
�$�$""���""���""�������C�gvec
	�gi	�gj		�glen		*�gtmp	��gfilenamefsrfi/srfi-43.scm�
Z
��	^	��	^	��	^	��	$_	
��	*_	��	1`	��	5`	��	7`	���a	���a	���a	���b	���b	���c	���c	���d	��	�	gnamegvector-swap!�g
documentationfZ(vector-swap! vec i j) -> unspecified

Swap the values of the locations in VEC at I and J.�C(RHh0�]"�$��"���C"����gvec
		)gfill		)gstart			)gend			)gi			!gfilenamefsrfi/srfi-43.scm�
k	��	l	��	m	��	m	��	n	
��	o	��	o	
��	!l	��			)	gnameg
%vector-fill!�CKG9�5�p�hX�)3M6)�3�$"4>"G45"4>";G"445$%
�$�$""���""���""���L6]�$"4>"G45"4>"_G"X45$I45$6
�$&�$�$""���""���""���""���""���L6�gvec
			gfill			gvec
	�gfill	�gstart		�glen		B�gvec
�Rgfill�Rgstart	�Rgend	�Rglen	�Rgfilenamefsrfi/srfi-43.scm�
p	��	v	��	p	��	x	��	*x	��	,x	��	<y	��	By	��	Iz		��	Mz	'��	Oz		���{		���p	���}	���}	���}	���~	���~	���		���	+���		��R�		��					�	�R	g
documentationf�(vector-fill! vec fill [start [end]]) -> unspecified

Assign the value of every location in VEC between START and END to
FILL.  START defaults to 0 and END defaults to the length of VEC.�CO9RhHC]"1�$&������"���C�"���;gvec
		Dgstart		Dgend			Dgi			7gj			7gtmp			5gfilenamefsrfi/srfi-43.scm�
�
��	�	��	�	
��	�	��	�	��	�	��	�	��	 �	��	'�	��	*�	��	-�	��	5�	��	7�	��	<�	��	D�	��		D	gnameg%vector-reverse!�C RG)� 5�p�	hx�)23�$"4>"G
456)�3�$"4>"G45"4>";G"445$%
�$�$""���""���""���6]�$"4>"G45"4>"_G"X45$I45$6
�$&�$�$""���""���""���""���""���6�gvec
			8gvec
	A�gstart	A�glen		i�gvec
�ugstart�ugend	�uglen	�ugfilenamefsrfi/srfi-43.scm�
�	��	�	��	�	��	�	��	0�	��	8�	��	A�	��	D�	��	Q�	��	S�	��	c�	��	i�	��	p�	��	t�	%��	v�	����	����	����	����	����	����	����	����	����	)����	��u�	��			8	A�	�u	gnamegvector-reverse!�g
documentationf�(vector-reverse! vec [start [end]]) -> unspecified

Destructively reverse the contents of VEC between START and END.
START defaults to 0 and END defaults to the length of VEC.�C)R4J!LO�568:AB<D@NO>FPVWZ]`_Kegjkinph8t]	

������	

�������	

�������Clgdummy
	1gcopy!	1g	docstring		1g
inner-proc		1	1	C{|h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-43.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcopy!g	docstringg
inner-procC5!RG*�5�pXq�h�)�3�$"4>"G�$"4>"G4545"4>";G"445$%
�$�$""���""���""�����$"4>"G
�$

6	
6)G3�$"4>"G�$"4>"G4545"4>";G"445$%
�$�$""���""���""���"4>";G"445$%
�$�$""���""���""������$"4>"G�$6	6]�$"4>"G�$"4>"G4545"4>";G"445$%
�$�$""���""���""���"4
>"_G"X45$I45$6
�$&�$�$""���""���""���""���""������$"4>"G�$6	6�gtarget
		�gtstart		�gsource			�gtlen		Y�gslen		Y�gtarget
�Bgtstart�Bgsource	�Bgsstart	�Bgtlen	NBgslen	NBgtarget
D�gtstartD�gsource	D�gsstart	D�gsend	D�gtlen	��gslen	��gfilenamefsrfi/srfi-43.scm�
�
����	����	����	����	����
��"�	��&�	��4�	��B�	��D�
����	����	����	����	��		�	�B	D�	g
documentationf�(vector-copy! target tstart source [sstart [send]]) -> unspecified

Copy a block of elements from SOURCE to TARGET, both of which must be
vectors, starting in TARGET at TSTART and starting in SOURCE at
SSTART, ending when SEND - SSTART elements have been copied.  It is an
error for TARGET to have a length less than TSTART + (SEND - SSTART).
SSTART defaults to 0 and SEND defaults to the length of SOURCE.�C*R h`_]"4"#�$����"���C�"���&�$
6"���"���Wgtarget
		]gtstart		]gsource			]gsstart			]gsend			]gi		
	-gj		
	-gfilenamefsrfi/srfi-43.scm�
�	��	
�	��	�	��	�	
��	�	"��	�	��	 �	��	#�	��	+�	��	-�	��	2�	!��	:�	��	:�	��	G�	!��	K�	��	U�	��		]	gnameg%copy!�CG+�5�pX�	hp>)�3�$"4>"G�$"4>"G4545"4>";G"445$%
�$�$""���""���""�����$"4>"GL
6)03�$"4>"G�$"4>"G4545"4>";G"445$%
�$�$""���""���""���"4>";G"445$%
�$�$""���""���""������$"4>"GL6]�$"4>"G�$"4>"G4545"4>";G"445$%
�$�$""���""���""���"4>"_G"X45$I45$6
�$&�$�$""���""���""���""���""������$"4>"GL66gtarget
		�gtstart		�gsource			�gtlen		Y�gslen		Y�gtarget
�gtstart�gsource	�gsstart	�gtlen	9gslen	9gtarget
kgtstartkgsource	kgsstart	kgsend	kgtlen	hkgslen	hkgfilenamefsrfi/srfi-43.scm�
�
��		�	�	k	g
documentationfX(vector-reverse-copy! target tstart source [sstart [send]]) -> unspecified

Like vector-copy!, but copy the elements in the reverse order.  It is
an error if TARGET and SOURCE are identical vectors and the TARGET and
SOURCE ranges overlap; however, if TSTART = SSTART,
vector-reverse-copy! behaves as (vector-reverse! TARGET TSTART SEND)
would.�CO+Rh8]"�$C���"����"���gvec
		1gstart		1gend			1gi			%gresult			%gfilenamefsrfi/srfi-43.scm�
�	��	�	��	�	��	�	��	�	��	�	 ��	�	��	%�	��	%�	��	(�	��	)�	��	1�	��
		1	gnameg
%vector->list�CG;�5�p�hx�)23�$"4>"GL
456)�3�$"4>"G45"4>";G"445$%
�$�$""���""���""���L6]�$"4>"G45"4>"_G"X45$I45$6
�$&�$�$""���""���""���""���""���L6�gvec
			8gvec
	A�gstart	A�glen		i�gvec
�ugstart�ugend	�uglen	�ugfilenamefsrfi/srfi-43.scm�
�	��	�	��	�	��	�	��	0�	��	8�	��	A�	��	D�	��	Q�	��	S�	��	c�	��	i�	��	p�		��	t�	'��	v�		����		����	����	����	����	����	����	����		����	+����		��u�		��			8	A�	�u	g
documentationf�(vector->list vec [start [end]]) -> proper-list

Return a newly allocated list containing the elements in VEC between
START and END.  START defaults to 0 and END defaults to the length of
VEC.�CO;Rh0]"�$C���"���"���gvec
		0gstart		0gend			0gi			%gresult			%gfilenamefsrfi/srfi-43.scm�
�	��	�	��		��		��		��		 ��		��	%	��	%�	��	(	��	0�	��		0	gnameg%reverse-vector->list�CG,�5�p�hx�)23�$"4>"GL
456)�3�$"4>"G45"4>";G"445$%
�$�$""���""���""���L6]�$"4>"G45"4>"_G"X45$I45$6
�$&�$�$""���""���""���""���""���L6�gvec
			8gvec
	A�gstart	A�glen		i�gvec
�ugstart�ugend	�uglen	�ugfilenamefsrfi/srfi-43.scm�
	��		��		��		��	0	$��	8	��	A	��	D	��	Q	��	S	��	c	��	i	��	p		��	t	'��	v		���		���	���	���	���	���	���	���		���	+���		��u		��			8	A�	�u	g
documentationf�(reverse-vector->list vec [start [end]]) -> proper-list

Return a newly allocated list containing the elements in VEC between
START and END in reverse order.  START defaults to 0 and END defaults
to the length of VEC.�CO,Rr0shpZ-.,3#
#	45�45""�$C����"���
45"���Rglst
		lgstart		lgend			lglen		)	lgresult		2	lgi		8	Zglst		8	Zgfilenamefsrfi/srfi-43.scm�

��		5��	)	��	)	��	, 	��	2	��	8!	��	="	
��	A"	��	K$	'��	L$	��	O%	��	R%	��	Z%	��	Z!	��	\!	��	l!	��		l	gnameglist->vector�g
documentationf�(list->vector proper-list [start [end]]) -> vector

Return a newly allocated vector of the elements from PROPER-LIST with
indices between START and END.  START defaults to 0 and END defaults
to the length of PROPER-LIST.�C:Rr0shp�-.,3#
#	45�45"!
�$C����"����45"���}glst
		mgstart		mgend			mglen		)	mgresult		2	mgi		8	Yglst		8	Ygfilenamefsrfi/srfi-43.scm�
(
��	(	=��	).	��	).	��	,/	��	2.	��	80	��	;1	
��	@1	��	J3	'��	K3	��	N4	��	Q4	��	Y4	��	Y0	��	\0	��	]0	"��	m0	��		m	gnamegreverse-list->vector�g
documentationf�(reverse-list->vector proper-list [start [end]]) -> vector

Return a newly allocated vector of the elements from PROPER-LIST with
indices between START and END, in reverse order.  START defaults to 0
and END defaults to the length of PROPER-LIST.�C-RCdgm
		4g%vector-reverse-copy
/73�gall-of-length?
@KGSg=up-to?@KGSg%vector-binary-search
�c��gguile-vector-fill!
���[g
%vector-fill!��Xg%copy!
�!�g
%vector->list
�\ҧg%reverse-vector->list
��h
gfilenamefsrfi/srfi-43.scm�		
��	5	)
��	:	)	��	B	)	&��	G	)
��D	+
��
�	U
���	]
���	d
��&��
��&��
��-k�
��3��
��6�
��:�
��<E-
��=�5
��GV<
��O�j
��X*�
��_��
��g�
��m�
��uq"
��|bJ
����p
�����
��� �
�����
���;
���,
����Z
���^g
�����
���M�
���I�
���!�
��Ҫ�
���k�
���M
���`(
��*	�b
C6srfi/srfi-26.go000064400000014614150536206130007235 0ustar00GOOF----LE-8-2.0t]�4h�
]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-26�	�		gfilenameS�	
fsrfi/srfi-26.scm�	gexportsS�	gcut�	
gcute�	
�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	gany�	geach-any�	��	��	 greverse�	!�	"g
syntax-object�	#glambda�	$gtop�	%$�	&gribcage�	'&�	(gt-46961e50f5-72�	)gt-46961e50f5-71�	*()�	+gm-46961e50f5-73�	,+$�	-,,�	.fl-46961e50f5-77�	/fl-46961e50f5-78�	0./�	1&*-0�	2gloop�	3gslots�	4gparams�	5gargs�	62345�	7%%%%�	8fl-46961e50f5-68�	9fl-46961e50f5-69�	:fl-46961e50f5-6a�	;fl-46961e50f5-6b�	<89:;�	=&67<�	>gslot0�	?gslot1+�	@>?�	A%%%�	Bfl-46961e50f5-62�	Cfl-46961e50f5-63�	Dfl-46961e50f5-64�	EBCD�	F&@AE�	Ggstx�	HG�	I%�	Jfl-46961e50f5-5f�	KJ�	L&HIK�	M%'1'=F'L�	Nghygiene�	ON�	P"#MO�	Qgsyntax-violation�	RQ�	SQ�	Tf-source expression failed to match any pattern�	Uggenerate-temporaries�	Vgvar�	WV�	X�	Ygfree-id�	Zg<>�	[V�	\fl-46961e50f5-82�	]\�	^&[I]�	_gs�	`grest�	a_`�	b%%�	cfl-46961e50f5-7b�	dfl-46961e50f5-7c�	ecd�	f&abe�	g%'^''f'=F'L�	h"ZgO�	iYh�	jg<...>�	k"jgO�	lYk�	mgerror�	nf&<...> not on the end of cut expression�	ogappend�	p�	qgt-46961e50f5-88�	rgt-46961e50f5-87�	sqr�	tgm-46961e50f5-89�	ut$�	vuu�	wfl-46961e50f5-8d�	xfl-46961e50f5-8e�	ywx�	z&svy�	{%'z'^''f'=F'L
�	|"#{O�	}gapply�	~"}{O�	glet��gt-46961e50f5-a8��gt-46961e50f5-a7������gm-46961e50f5-a9���$������fl-46961e50f5-ad��fl-46961e50f5-ae������&�����gprocess-hole�����%��fl-46961e50f5-a5�����&�����gbindings��g	arguments��23����fl-46961e50f5-9c��fl-46961e50f5-9d��fl-46961e50f5-9e��fl-46961e50f5-9f��������&�7���
3��fl-46961e50f5-98��fl-46961e50f5-99������&�b���fl-46961e50f5-95�����&HI���%'����'���"�O��"�O��%���'���"Z�O��Y���"j�O��Y���gt����C5hP
r]4	
54>"G4i4i5>"G4 !PhT]CLgt-46961e50f5-72
		gt-46961e50f5-71					CSTUWXihT]LLLL�LL�6Lgfilenamefsrfi/srfi-26.scm�		%	��		%	3��		%	��		
Clmnh\]L�$6CTgfilenamefsrfi/srfi-26.scm�		'	��			'	��	
	(	��		(	��		
Co p|~hT]�CLgt-46961e50f5-88
		gt-46961e50f5-87					CSTh@�]44L5L54LL�545$@6�gtmp
		?gtmp	(	?gfilenamefsrfi/srfi-26.scm�		)	 ��		)	(��		)	 ��		*	"��		*	+��		*	"��		)	��		?
Chp]4L5$LLLLO@4L5"
LLLLL�6$#4LO?$LLO@"���"���wgvar
		ogtmp		ogtmp		/	ogfilenamefsrfi/srfi-26.scm�	@	,	&��	B	,	��		oCh�K]#(3454545$@6��454	5$
LO@6Cgslots
		{gparams		{gargs			{gtmp			;gtmp		$	;gs		A	{grest		A	{gtmp		L	{gtmp		W	{	gfilenamefsrfi/srfi-26.scm�
		��				��				��			,��			��	>	 	��	A	!	��	A	 	
��	F	"	$��	J	"	:��	L	"	$��	L	"	��
		{	gnamegloop�Ch �]OQ�6�gcut
		gslot0		gslot1+			gloop		
	gfilenamefsrfi/srfi-26.scm�	
		��			 ��			��			��			CSTh(e]	45$@6]gstx
		"gtmp		"gfilenamefsrfi/srfi-26.scm�
		��		"C5R4
 p��hT]�CLgt-46961e50f5-a8
		gt-46961e50f5-a7					CST�h\]LL�LL�L�6Tgfilenamefsrfi/srfi-26.scm�		6	��		6	,��		6	&��		6	��		
C�h\]LL�LL�L�6Tgfilenamefsrfi/srfi-26.scm�		6	��		6	,��		6	&��		6	��		
CU�Xhl]LL�LL�L�6dgt
		gfilenamefsrfi/srfi-26.scm�		?	��		@	��		A	��		?	��		Ch�c]+(.4545$@6�45$LO@4	5$
LO@454
5$LO@6[gslots
	�gbindings	�g	arguments		�gtmp			6gtmp			6gtmp		9�gtmp		D�gtmp		f�gtmp	��gtmp	��
gfilenamefsrfi/srfi-26.scm�
	2	��		7		��		9	��		8	��	9	:	��	9	:	
���	>	#���	>	9���	>	#���	>	��	�	gnamegloop�Ch�]
OQ6�gcute
		gslots		gloop		
	gfilenamefsrfi/srfi-26.scm�	
	2	��		3	��		4	��		2	��			CSTh(e]	45$@6]gstx
		"gtmp		"gfilenamefsrfi/srfi-26.scm�
	/	��		"C5
RCjgm
		(gfilenamefsrfi/srfi-26.scm�		
��	)	
��	.		��	6		&��	;	
��	
L
C6srfi/srfi-64.go000064400000527654150536206130007254 0ustar00GOOF----LE-8-2.0��]�4hC]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-64�	�		gfilenameS�	
fsrfi/srfi-64.scm�	gexportsS�	g
test-begin�	
gtest-end�	gtest-assert�	gtest-eqv�	gtest-eq�	g
test-equal�	gtest-approximate�	g
test-error�	g
test-apply�	gtest-with-runner�	gtest-match-nth�	gtest-match-all�	gtest-match-any�	gtest-match-name�	g	test-skip�	gtest-expect-fail�	gtest-read-eval-string�	gtest-runner-group-path�	g
test-group�	gtest-group-with-cleanup�	 gtest-result-ref�	!gtest-result-set!�	"gtest-result-clear�	#gtest-result-remove�	$gtest-result-kind�	%gtest-passed?�	&gtest-log-to-file�	'gtest-runner?�	(gtest-runner-reset�	)gtest-runner-null�	*gtest-runner-simple�	+gtest-runner-current�	,gtest-runner-factory�	-gtest-runner-get�	.gtest-runner-create�	/gtest-runner-test-name�	0gtest-runner-pass-count�	1gtest-runner-pass-count!�	2gtest-runner-fail-count�	3gtest-runner-fail-count!�	4gtest-runner-xpass-count�	5gtest-runner-xpass-count!�	6gtest-runner-xfail-count�	7gtest-runner-xfail-count!�	8gtest-runner-skip-count�	9gtest-runner-skip-count!�	:gtest-runner-group-stack�	;gtest-runner-group-stack!�	<gtest-runner-on-test-begin�	=gtest-runner-on-test-begin!�	>gtest-runner-on-test-end�	?gtest-runner-on-test-end!�	@gtest-runner-on-group-begin�	Agtest-runner-on-group-begin!�	Bgtest-runner-on-group-end�	Cgtest-runner-on-group-end!�	Dgtest-runner-on-final�	Egtest-runner-on-final!�	Fgtest-runner-on-bad-count�	Ggtest-runner-on-bad-count!�	Hgtest-runner-on-bad-end-name�	Igtest-runner-on-bad-end-name!�	Jgtest-result-alist�	Kgtest-result-alist!�	Lgtest-runner-aux-value�	Mgtest-runner-aux-value!�	Ngtest-on-group-begin-simple�	Ogtest-on-group-end-simple�	Pgtest-on-bad-count-simple�	Qgtest-on-bad-end-name-simple�	Rgtest-on-final-simple�	Sgtest-on-test-end-simple�	T
 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSRJ�	Ugset-current-module�	VU�	WU�	Xgcond-expand-provide�	Ygcurrent-module�	Z�	[gprocess-use-modules�	\[�	][�	^gsrfi-9�	_^�	`_�	agsrfi-39�	ba�	cb�	dgmake-syntax-transformer�	ed�	fd�	gg%test-export�	hgmacro�	ig$sc-dispatch�	ji�	ki�	lgany�	mll��	ng
syntax-object�	ogif�	pgtop�	qp�	rgribcage�	sgdummy�	tgnames�	ust�	vgm-46961e5187-6�	wvp�	xwq�	yfl-46961e5187-b�	zfl-46961e5187-c�	{yz�	|rux{�	}r�	~gx�	~��w��fl-46961e5187-8�����r����q|}���ghygiene�����no����n���������gsyntax-violation��������f-source expression failed to match any pattern��g%test-record-define��geach��llll������l����l����l����gdefine-record-type��galloc��grunner?��gname��gindex��gsetter��ggetter��s��������gm-46961e5187-11���p���qqqqqq��fl-46961e5187-16��fl-46961e5187-17��fl-46961e5187-18��fl-46961e5187-19��fl-46961e5187-1a��fl-46961e5187-1b��fl-46961e5187-1c�����������r��������fl-46961e5187-13�����r����q�}���n�����gtest-runner��n�����gmap��������glist��g%%test-runner-alloc-procedure��g%test-runner-alloc��g_�����glambda��gm-46961e5187-2b���p�����fl-46961e5187-2d�����r����gshift��g	proc-name��gargs������qq��fl-1e8ba8b5a-2ba��fl-1e8ba8b5a-2bb������r�����gkey��gvalue��gformals��gbody���������qqqqq��fl-1e8ba8b5a-2ad��fl-1e8ba8b5a-2ae��fl-1e8ba8b5a-2af��fl-1e8ba8b5a-2b0��fl-1e8ba8b5a-2b1���������r�����gmake-procedure-name�����q��fl-1e8ba8b5a-29d�����r�����q��fl-1e8ba8b5a-29c�����r�����}��}}}}�������^��n�����gmake-struct��gm-46961e5187-29���p��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���p�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������r�����g	ctor-args�����fl-1e8ba8b5a-37a�����r�����gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������r�����gform��g	type-name�gconstructor-spec�gfield-names����qqqq�fl-1e8ba8b5a-36b�fl-1e8ba8b5a-36c�fl-1e8ba8b5a-36d�fl-1e8ba8b5a-36e��	r�
g
record-layout�gfunctional-setters�gsetters�
gcopier�ggetters�gconstructor�ggetter-identifiers�gfield-identifiers�

�qqqqqqqq�fl-1e8ba8b5a-343�fl-1e8ba8b5a-341�fl-1e8ba8b5a-33f�fl-1e8ba8b5a-33d�fl-1e8ba8b5a-33b�fl-1e8ba8b5a-339�fl-1e8ba8b5a-337�fl-1e8ba8b5a-335��r�fl-1e8ba8b5a-334�� r��!�}��}�}}}��}	 �"n�!��#gm-46961e5187-27�$#p�%$}���}��&n�%��'n
!��(}��)n(��*"&'))))))))))))))))))))))�+�*�,+�-geach-any�.�-��/_��0_��1fWrong number of arguments�2gidentifier?�3_2�4_2�5q}��6n�5��7grecord-type-vtable�8_7�9_7�:g,pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw�;gdefault-record-printer�<_;�=_;�>g
pass-count�?g
fail-count�@gxpass-count�Agxfail-count�Bg
skip-count�Cg	skip-list�Dg	fail-list�Egrun-list�Fg	skip-save�Gg	fail-save�Hggroup-stack�Ig
on-test-begin�Jgon-test-end�Kgon-group-begin�Lgon-group-end�Mgon-final�Ngon-bad-count�Ogon-bad-end-name�Pgtotal-count�Qg
count-list�Rgresult-alist�Sg	aux-value�T>?@ABCDEFGHIJKLMNOPQRS�Ugset-struct-vtable-name!�V_U�W_U�Xgvtable-offset-user�Y_X�Z_X�[g%test-runner?-procedure�\�l�]gm-46961e5187-36�^]p�_gt-46961e5187-35�`_�a^�bfl-46961e5187-3b�cb�dr`ac�efl-46961e5187-38�fe�graf�h^d}g�}}}}����
�in�h��jgobj�kgt-1e8ba8b5a-47e�lgt-1e8ba8b5a-478�mgt-1e8ba8b5a-479�ngt-1e8ba8b5a-47a�ogt-1e8ba8b5a-47d�pgt-1e8ba8b5a-47c�qgt-1e8ba8b5a-47b�rklmnopq�sgm-1e8ba8b5a-47f�tsp�uttttttt�vfl-1e8ba8b5a-483�wfl-1e8ba8b5a-484�xfl-1e8ba8b5a-485�yfl-1e8ba8b5a-486�zfl-1e8ba8b5a-487�{fl-1e8ba8b5a-488�|fl-1e8ba8b5a-489�}vwxyz{|�~rru}�g	copier-id����fl-1e8ba8b5a-476�����r�����g	ctor-name�����fl-1e8ba8b5a-46e�����r�������fl-1e8ba8b5a-46c�����r�����glayout�����fl-1e8ba8b5a-46a�����r�����g
immutable?�����fl-1e8ba8b5a-468�����r�����gfield-count�����fl-1e8ba8b5a-466�����r�����g
getter-ids�����fl-1e8ba8b5a-463�����r�����g	field-ids�����fl-1e8ba8b5a-460�����r�����gpredicate-name��g
field-spec���������qqqqqq��fl-1e8ba8b5a-453��fl-1e8ba8b5a-454��fl-1e8ba8b5a-455��fl-1e8ba8b5a-456��fl-1e8ba8b5a-457��fl-1e8ba8b5a-458����������r������d}g�}~}}}}�}�}�}�}�}�}�}�� ��nj�������gand��n�����gstruct?��n���������geq?��n�����g
struct-vtable��n���������$d}g��}���n���������������i����q}g��n[����gthrow-bad-struct��_���_���g!%test-runner-pass-count-procedure��gfree-id��g
%%on-error��gm-46961e5187-42���p�����fl-46961e5187-44�����r�����}��}}}}������n����������l��g%%type��gt-1e8ba8b5a-3a5��gt-1e8ba8b5a-3a6��gt-1e8ba8b5a-3a7��gt-1e8ba8b5a-3a8��gt-1e8ba8b5a-3a9��gt-1e8ba8b5a-3aa��gt-1e8ba8b5a-3ab�����������gm-1e8ba8b5a-3ac���p�����������fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6�����������r���������fl-1e8ba8b5a-3a3��fl-1e8ba8b5a-3a4������r���������qqq��fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0�������r������}��}�}}}�}� ��n������������l��gck��gerr��gs���������fl-46961e5187-47�fl-46961e5187-48��r����}��}}}}����
�n���gquote�n��$}���}��	n���
	�
�g%%index�
n����
���l�fl-46961e5187-4c�fl-46961e5187-4d��r����}��}}}}����
�n���n��}��n
����g%%copier�n�������l�fl-46961e5187-51� fl-46961e5187-52�! �"r��!�#�"}��}}}}����
�$n�#��%n#��&g%%test-runner-set-fields�'$"}���}��(n&'��)%(�*)�+gt-46961e5187-41�,+�-fl-46961e5187-56�.-�/r,�.�0�/}��}}}}����
�1n�0��2�/}��}�}}}�}� �3n�2��43�5no2��6n�2��7n�2��873�9$/}���}��:n�9��;68:�<g
struct-ref�=n<2��>/}��?n
>��@=3?�An�2��Bn2��Cq/}��Dn0C��EBD�FA3E�G5;@F�H14G�Iq}��Jn�I��Kg!%test-runner-fail-count-procedure�Lgm-46961e5187-5d�MLp�NM�Ofl-46961e5187-5f�PO�QrNP�RM}Q�}}}}�����Sn�R��T�S�UTl�V�}Q�}�}}}�}� �Wn�V��X�W�Y�UXl�ZMM�[fl-46961e5187-62�\fl-46961e5187-63�][\�^r�Z]�_M^}Q�}}}}����
�`n�_��an_��b$^}Q��}��cn�b��dac�ed�fnV��g�f�h�Ugl�ifl-46961e5187-67�jfl-46961e5187-68�kij�lr�Zk�mMl}Q�}}}}����
�nn�m��onm��pl}Q�qnp��roq�sr�tnV��u�t�v�Uul�wfl-46961e5187-6c�xfl-46961e5187-6d�ywx�zr�Zy�{Mz}Q�}}}}����
�|n�{��}n{��~$z}Q��}��n&~���}�����gt-46961e5187-5c�����fl-46961e5187-71�����r�N���M�}Q�}}}}����
��n�������}Q�}�}}}�}� ��n��������no����n�����n���������$�}Q��}���n����������n<�����}Q��n���������n�����n����q�}Q��n2������������������������q}Q��nK����g"%test-runner-xpass-count-procedure��gm-46961e5187-78���p�����fl-46961e5187-7a�����r�����}��}}}}������n����������l���}��}�}}}�}� ��n������������l������fl-46961e5187-7d��fl-46961e5187-7e������r�������}��}}}}����
��n�����n����$�}���}���n������������n�����������l��fl-46961e5187-82��fl-46961e5187-83������r�������}��}}}}����
��n�����n�����}���n	�����������n�����������l��fl-46961e5187-87��fl-46961e5187-88������r�������}��}}}}����
��n�����n����$�}���}���n&�����������gt-46961e5187-77�����fl-46961e5187-8c�����r�������}��}}}}����
��n�������}��}�}}}�}� ��n��������no����n�����n���������$�}���}���n����������n<�����}���n	���������n�����n����q�}���n4������������������������q}���n�����g"%test-runner-xfail-count-procedure��gm-46961e5187-93���p�����fl-46961e5187-95�����r�����}��}}}}������n�������l��}��}�}}}�}� �n������l����fl-46961e5187-98�fl-46961e5187-99�	�
r�	��
}��}}}}����
�n���
n��$
}���}��n���
��n�����l�fl-46961e5187-9d�fl-46961e5187-9e��r���}��}}}}����
�n���n��}��n	���� n��!� �"�!l�#fl-46961e5187-a2�$fl-46961e5187-a3�%#$�&r�%�'�&}��}}}}����
�(n�'��)n'��*$&}���}��+n&*��,)+�-,�.gt-46961e5187-92�/.�0fl-46961e5187-a7�10�2r/�1�3�2}��}}}}����
�4n�3��5�2}��}�}}}�}� �6n�5��76�8no5��9n�5��:n�5��;:6�<$2}���}��=n�<��>9;=�?n<5��@2}��An	@��B?6A�Cn�5��Dn5��Eq2}��Fn6E��GDF�HC6G�I8>BH�J47I�Kq}��Ln�K��Mg!%test-runner-skip-count-procedure�Ngm-46961e5187-ae�ONp�PO�Qfl-46961e5187-b0�RQ�SrPR�TO}S�}}}}�����Un�T��V�U�WVl�X�}S�}�}}}�}� �Yn�X��Z�Y�[�WZl�\OO�]fl-46961e5187-b3�^fl-46961e5187-b4�_]^�`r�\_�aO`}S�}}}}����
�bn�a��cna��d$`}S��}��en�d��fce�gf�hnX��i�h�j�Wil�kfl-46961e5187-b8�lfl-46961e5187-b9�mkl�nr�\m�oOn}S�}}}}����
�pn�o��qno��rn}S�sn	r��tqs�ut�vnX��w�v�x�Wwl�yfl-46961e5187-bd�zfl-46961e5187-be�{yz�|r�\{�}O|}S�}}}}����
�~n�}��n}���$|}S��}���n&����������gt-46961e5187-ad�����fl-46961e5187-c2�����r�P���O�}S�}}}}����
��n�������}S�}�}}}�}� ��n��������no����n�����n���������$�}S��}���n����������n<�����}S��n	���������n�����n����q�}S��n8������������������������q}S��nM����g%test-runner-skip-list��g!%%test-runner-skip-list-procedure��gm-46961e5187-c9���p�����fl-46961e5187-cb�����r�����}��}}}}������n����������l���}��}�}}}�}� ��n������������l������fl-46961e5187-ce��fl-46961e5187-cf������r�������}��}}}}����
��n�����n����$�}���}���n������������n�����������l��fl-46961e5187-d3��fl-46961e5187-d4������r�������}��}}}}����
��n�����n�����}���n	�����������n�����������l��fl-46961e5187-d8��fl-46961e5187-d9������r�������}��}}}}����
��n�����n����$�}���}���n&�����������gt-46961e5187-c8�����fl-46961e5187-dd�����r�������}��}}}}����
��n�������}��}�}}}�}� ��n��������no����n�����n���������$�}���}���n����������n<�����}���n	���������n�����n����q�}���n�������������������������q}���n�����g%test-runner-fail-list��g!%%test-runner-fail-list-procedure��gm-46961e5187-e4���p�����fl-46961e5187-e6���r���}�}}}}�����n�����l��}�}�}}}�}� �n�����	�l�
���fl-46961e5187-e9�fl-46961e5187-ea�
�r�

��}�}}}}����
�n���n��$}��}��n�����n�����l�fl-46961e5187-ee�fl-46961e5187-ef��r�
��}�}}}}����
�n���n�� }�!n	 ��"!�#"�$n��%�$�&�%l�'fl-46961e5187-f3�(fl-46961e5187-f4�)'(�*r�
)�+�*}�}}}}����
�,n�+��-n+��.$*}��}��/n&.��0-/�10�2gt-46961e5187-e3�32�4fl-46961e5187-f8�54�6r3�5�7�6}�}}}}����
�8n�7��9�6}�}�}}}�}� �:n�9��;:�<no9��=n�9��>n�9��?>:�@$6}��}��An�@��B=?A�Cn<9��D6}�En	D��FC:E�Gn�9��Hn9��Iq6}�Jn�I��KHJ�LG:K�M<BFL�N8;M�Oq}�Pn�O��Qg%test-runner-run-list�Rg %%test-runner-run-list-procedure�Sgm-46961e5187-ff�TSp�UT�Vfl-46961e5187-101�WV�XrUW�YT}X�}}}}�����Zn�Y��[�Z�\[l�]�}X�}�}}}�}� �^n�]��_�^�`�\_l�aTT�bfl-46961e5187-104�cfl-46961e5187-105�dbc�er�ad�fTe}X�}}}}����
�gn�f��hnf��i$e}X��}��jn�i��khj�lk�mn]��n�m�o�\nl�pfl-46961e5187-109�qfl-46961e5187-10a�rpq�sr�ar�tTs}X�}}}}����
�un�t��vnt��ws}X�xn	w��yvx�zy�{n]��|�{�}�\|l�~fl-46961e5187-10e�fl-46961e5187-10f��~��r�a���T�}X�}}}}����
��n�����n����$�}X��}���n&�����������gt-46961e5187-fe�����fl-46961e5187-113�����r�U���T�}X�}}}}����
��n�������}X�}�}}}�}� ��n��������no����n�����n���������$�}X��}���n����������n<�����}X��n	���������n�����n����q�}X��nQ������������������������q}X��nR����g%test-runner-skip-save��g!%%test-runner-skip-save-procedure��gm-46961e5187-11a���p�����fl-46961e5187-11c�����r�����}��}}}}������n����������l���}��}�}}}�}� ��n������������l������fl-46961e5187-11f��fl-46961e5187-120������r�������}��}}}}����
��n�����n����$�}���}���n������������n�����������l��fl-46961e5187-124��fl-46961e5187-125������r�������}��}}}}����
��n�����n�����}���n	�����������n�����������l��fl-46961e5187-129��fl-46961e5187-12a������r�������}��}}}}����
��n�����n����$�}���}���n&�����������gt-46961e5187-119�����fl-46961e5187-12e�����r�������}��}}}}����
��n�������}��}�}}}�}� ��n��������no����n�����n���������$�}���}���n����������n<�����}���n	���������n�����n����q�}���n�������������������������q}���n�����g%test-runner-fail-save�g!%%test-runner-fail-save-procedure�gm-46961e5187-135�p��fl-46961e5187-137��r�}�}}}}�����n���	��
	l��}�}�}}}�}� �n���
���

l��fl-46961e5187-13a�fl-46961e5187-13b��r��}�}}}}����
�n���n��$}��}��n�����n�����
l�fl-46961e5187-13f�fl-46961e5187-140� �!r� �"!}�}}}}����
�#n�"��$n"��%!}�&n		%��'$&�('�)n��*�)�+�
*l�,fl-46961e5187-144�-fl-46961e5187-145�.,-�/r�.�0/}�}}}}����
�1n�0��2n0��3$/}��}��4n&3��524�65�7gt-46961e5187-134�87�9fl-46961e5187-149�:9�;r8:�<;}�}}}}����
�=n�<��>�;}�}�}}}�}� �?n�>��@?�Ano>��Bn�>��Cn�>��DC?�E$;}��}��Fn�E��GBDF�Hn<>��I;}�Jn		I��KH?J�Ln�>��Mn>��Nq;}�On�N��PMO�QL?P�RAGKQ�S=@R�Tq}�UnT��Vg"%test-runner-group-stack-procedure�Wgm-46961e5187-150�XWp�YX�Zfl-46961e5187-152�[Z�\rY[�]X}\�}}}}�����^n�]��_�^�`_l�a�}\�}�}}}�}� �bn�a��c�b�d�`cl�eXX�ffl-46961e5187-155�gfl-46961e5187-156�hfg�ir�eh�jXi}\�}}}}����
�kn�j��lnj��m$i}\��}��nn�m��oln�po�qna��r�q�s�`rl�tfl-46961e5187-15a�ufl-46961e5187-15b�vtu�wr�ev�xXw}\�}}}}����
�yn�x��znx��{w}\�|n	
{��}z|�~}�na�������`�l��fl-46961e5187-15f��fl-46961e5187-160������r�e���X�}\�}}}}����
��n�����n����$�}\��}���n&�����������gt-46961e5187-14f�����fl-46961e5187-164�����r�Y���X�}\�}}}}����
��n�������}\�}�}}}�}� ��n��������no����n�����n���������$�}\��}���n����������n<�����}\��n	
���������n�����n����q�}\��n:������������������������q}\��nV����g$%test-runner-on-test-begin-procedure��gm-46961e5187-16b���p�����fl-46961e5187-16d�����r�����}��}}}}������n����������l���}��}�}}}�}� ��n������������l������fl-46961e5187-170��fl-46961e5187-171������r�������}��}}}}����
��n�����n����$�}���}���n������������n�����������l��fl-46961e5187-175��fl-46961e5187-176������r�������}��}}}}����
��n�����n�����}���n	�����������n�����������l��fl-46961e5187-17a��fl-46961e5187-17b������r�������}��}}}}����
��n�����n����$�}���}���n&�����������gt-46961e5187-16a�����fl-46961e5187-17f�����r�������}��}}}}����
��n�������}��}�}}}�}� ��n��������no����n�����n���������$�}���}���n����������n<�����}���n	���������n�����n����q�}���n<�����������������������q}��n���g"%test-runner-on-test-end-procedure�gm-46961e5187-186�p��fl-46961e5187-188��r�	}�}}}}�����
n�	���
�l�
�}�}�}}}�}� �n�
�����l��fl-46961e5187-18b�fl-46961e5187-18c��r��}�}}}}����
�n���n��$}��}��n�����n
�����l� fl-46961e5187-190�!fl-46961e5187-191�" !�#r�"�$#}�}}}}����
�%n�$��&n$��'#}�(n	'��)&(�*)�+n
��,�+�-�,l�.fl-46961e5187-195�/fl-46961e5187-196�0./�1r�0�21}�}}}}����
�3n�2��4n2��5$1}��}��6n&5��746�87�9gt-46961e5187-185�:9�;fl-46961e5187-19a�<;�=r:<�>=}�}}}}����
�?n�>��@�=}�}�}}}�}� �An�@��BA�Cno@��Dn�@��En�@��FEA�G$=}��}��Hn�G��IDFH�Jn<@��K=}�Ln	K��MJAL�Nn�@��On@��Pq=}�Qn>P��ROQ�SNAR�TCIMS�U?BT�Vq}�WnV��Xg%%test-runner-on-group-begin-procedure�Ygm-46961e5187-1a1�ZYp�[Z�\fl-46961e5187-1a3�]\�^r[]�_Z}^�}}}}�����`n�_��a�`�bal�c�}^�}�}}}�}� �dn�c��e�d�f�bel�gZZ�hfl-46961e5187-1a6�ifl-46961e5187-1a7�jhi�kr�gj�lZk}^�}}}}����
�mn�l��nnl��o$k}^��}��pn�o��qnp�rq�snc��t�s�u�btl�vfl-46961e5187-1ab�wfl-46961e5187-1ac�xvw�yr�gx�zZy}^�}}}}����
�{n�z��|nz��}y}^�~n	
}��|~����nc��������b�l��fl-46961e5187-1b0��fl-46961e5187-1b1������r�g���Z�}^�}}}}����
��n�����n����$�}^��}���n&�����������gt-46961e5187-1a0�����fl-46961e5187-1b5�����r�[���Z�}^�}}}}����
��n�������}^�}�}}}�}� ��n��������no����n�����n���������$�}^��}���n����������n<�����}^��n	
���������n�����n����q�}^��n@������������������������q}^��nX����g#%test-runner-on-group-end-procedure��gm-46961e5187-1bc���p�����fl-46961e5187-1be�����r�����}��}}}}������n����������l���}��}�}}}�}� ��n������������l������fl-46961e5187-1c1��fl-46961e5187-1c2������r�������}��}}}}����
��n�����n����$�}���}���n������������n�����������l��fl-46961e5187-1c6��fl-46961e5187-1c7������r�������}��}}}}����
��n�����n�����}���n	�����������n�����������l��fl-46961e5187-1cb��fl-46961e5187-1cc������r�������}��}}}}����
��n�����n����$�}���}���n&�����������gt-46961e5187-1bb�����fl-46961e5187-1d0�����r�������}��}}}}����
��n�������}��}�}}}�}� ��n��������no����n�����n���������$�}���}���n����������n<�����}���n	���������n�����n����q�}���nB��������������������q}��n���g%test-runner-on-final-procedure�gm-46961e5187-1d7�p��fl-46961e5187-1d9�	�
r	�}
�}}}}�����n���
��
l��}
�}�}}}�}� �n������l��fl-46961e5187-1dc�fl-46961e5187-1dd��r��}
�}}}}����
�n���n��$}
��}��n�����n�� ��!� l�"fl-46961e5187-1e1�#fl-46961e5187-1e2�$"#�%r�$�&%}
�}}}}����
�'n�&��(n&��)%}
�*n	)��+(*�,+�-n��.�-�/�.l�0fl-46961e5187-1e6�1fl-46961e5187-1e7�201�3r�2�43}
�}}}}����
�5n�4��6n4��7$3}
��}��8n&7��968�:9�;gt-46961e5187-1d6�<;�=fl-46961e5187-1eb�>=�?r<>�@?}
�}}}}����
�An�@��B�?}
�}�}}}�}� �Cn�B��DC�EnoB��Fn�B��Gn�B��HGC�I$?}
��}��Jn�I��KFHJ�Ln<B��M?}
�Nn	M��OLCN�Pn�B��QnB��Rq?}
�SnDR��TQS�UPCT�VEKOU�WADV�Xq}
�YnX��Zg#%test-runner-on-bad-count-procedure�[gm-46961e5187-1f2�\[p�]\�^fl-46961e5187-1f4�_^�`r]_�a\}`�}}}}�����bn�a��c�b�dcl�e�}`�}�}}}�}� �fn�e��g�f�h�dgl�i\\�jfl-46961e5187-1f7�kfl-46961e5187-1f8�ljk�mr�il�n\m}`�}}}}����
�on�n��pnn��q$m}`��}��rn�q��spr�ts�une��v�u�w�dvl�xfl-46961e5187-1fc�yfl-46961e5187-1fd�zxy�{r�iz�|\{}`�}}}}����
�}n�|��~n|��{}`��n	���~������ne��������d�l��fl-46961e5187-201��fl-46961e5187-202������r�i���\�}`�}}}}����
��n�����n����$�}`��}���n&�����������gt-46961e5187-1f1�����fl-46961e5187-206�����r�]���\�}`�}}}}����
��n�������}`�}�}}}�}� ��n��������no����n�����n���������$�}`��}���n����������n<�����}`��n	���������n�����n����q�}`��nF������������������������q}`��nZ����g&%test-runner-on-bad-end-name-procedure��gm-46961e5187-20d���p�����fl-46961e5187-20f�����r�����}��}}}}������n����������l���}��}�}}}�}� ��n������������l������fl-46961e5187-212��fl-46961e5187-213������r�������}��}}}}����
��n�����n����$�}���}���n������������n�����������l��fl-46961e5187-217��fl-46961e5187-218������r�������}��}}}}����
��n�����n�����}���n	�����������n�����������l��fl-46961e5187-21c��fl-46961e5187-21d������r�������}��}}}}����
��n�����n����$�}���}���n&�����������gt-46961e5187-20c�����fl-46961e5187-221�����r�������}��}}}}����
��n�������}��}�}}}�}� ��n��������no����n�����n���������$�}���}���n����������n<�����}���n	���������n�����n����q�}���nH����������������q}��n���g%test-runner-total-count�g#%%test-runner-total-count-procedure�gm-46961e5187-228�	p�
	�fl-46961e5187-22a��
r
�	}
�}}}}�����n�����l��}
�}�}}}�}� �n������l�		�fl-46961e5187-22d�fl-46961e5187-22e��r��	}
�}}}}����
�n���n��$}
��}��n��� �! �"n��#�"�$�#l�%fl-46961e5187-232�&fl-46961e5187-233�'%&�(r�'�)	(}
�}}}}����
�*n�)��+n)��,(}
�-n	,��.+-�/.�0n��1�0�2�1l�3fl-46961e5187-237�4fl-46961e5187-238�534�6r�5�7	6}
�}}}}����
�8n�7��9n7��:$6}
��}��;n&:��<9;�=<�>gt-46961e5187-227�?>�@fl-46961e5187-23c�A@�Br?
A�C	B}
�}}}}����
�Dn�C��E�B}
�}�}}}�}� �Fn�E��GF�HnoE��In�E��Jn�E��KJF�L$B}
��}��Mn�L��NIKM�On<E��PB}
�Qn	P��ROFQ�Sn�E��TnE��UqB}
�VnU��WTV�XSFW�YHNRX�ZDGY�[q}
�\n[��]g%test-runner-count-list�^g"%%test-runner-count-list-procedure�_gm-46961e5187-243�`_p�a`�bfl-46961e5187-245�cb�drac�e`}d�}}}}�����fn�e��g�f�hgl�i�}d�}�}}}�}� �jn�i��k�j�l�hkl�m``�nfl-46961e5187-248�ofl-46961e5187-249�pno�qr�mp�r`q}d�}}}}����
�sn�r��tnr��u$q}d��}��vn�u��wtv�xw�yni��z�y�{�hzl�|fl-46961e5187-24d�}fl-46961e5187-24e�~|}�r�m~��`}d�}}}}����
��n�����n����}d��n	�����������ni��������h�l��fl-46961e5187-252��fl-46961e5187-253������r�m���`�}d�}}}}����
��n�����n����$�}d��}���n&�����������gt-46961e5187-242�����fl-46961e5187-257�����r�a���`�}d�}}}}����
��n�������}d�}�}}}�}� ��n��������no����n�����n���������$�}d��}���n����������n<�����}d��n	���������n�����n����q�}d��n]������������������������q}d��n^����g%test-result-alist-procedure��gm-46961e5187-25e���p�����fl-46961e5187-260�����r�����}��}}}}������n����������l���}��}�}}}�}� ��n������������l������fl-46961e5187-263��fl-46961e5187-264������r�������}��}}}}����
��n�����n����$�}���}���n������������n�����������l��fl-46961e5187-268��fl-46961e5187-269������r�������}��}}}}����
��n�����n�����}���n	�����������n�����������l��fl-46961e5187-26d��fl-46961e5187-26e������r�������}��}}}}����
��n�����n����$�}���}���n&�����������gt-46961e5187-25d�����fl-46961e5187-272�����r�������}��}}}}����
��n�������}��}�}}}�}� ��n��������no����n�����n���������$�}���}���n����������n<�����}���n	��������	n����	n���	q�}��	nJ	��			�		�	�	���	�	��	�	q}��		n�	��	
g %test-runner-aux-value-procedure�	gm-46961e5187-279�		p�	
	�	fl-46961e5187-27b�		�	r	
	�		}	�}}}}�����	n�	��	�	�		l�	�}	�}�}}}�}� �	n�	��	�	�	�		l�			�	fl-46961e5187-27e�	fl-46961e5187-27f�			�	r�		�			}	�}}}}����
�	n�	��	 n	��	!$	}	��}��	"n�	!��	#	 	"�	$	#�	%n	��	&�	%�	'�		&l�	(fl-46961e5187-283�	)fl-46961e5187-284�	*	(	)�	+r�		*�	,		+}	�}}}}����
�	-n�	,��	.n	,��	/	+}	�	0n		/��	1	.	0�	2	1�	3n	��	4�	3�	5�		4l�	6fl-46961e5187-288�	7fl-46961e5187-289�	8	6	7�	9r�		8�	:		9}	�}}}}����
�	;n�	:��	<n	:��	=$	9}	��}��	>n&	=��	?	<	>�	@	?�	Agt-46961e5187-278�	B	A�	Cfl-46961e5187-28d�	D	C�	Er	B	
	D�	F		E}	�}}}}����
�	Gn�	F��	H�	E}	�}�}}}�}� �	In�	H��	J	I�	Kno	H��	Ln�	H��	Mn�	H��	N	M	I�	O$	E}	��}��	Pn�	O��	Q	L	N	P�	Rn<	H��	S	E}	�	Tn		S��	U	R	I	T�	Vn�	H��	Wn	H��	Xq	E}	�	YnL	X��	Z	W	Y�	[	V	I	Z�	\	K	Q	U	[�	]	G	J	\�	^q}	�	_n	
	^��	`ll�	a�	`�	bl	a��	cl	b��	dl	c��	eg%%set-fields�	fgcheck?�	ggexpr�	hs	f��	g�	igm-46961e5187-294�	j	ip�	k	j�����	lfl-46961e5187-299�	mfl-46961e5187-29a�	nfl-46961e5187-29b�	ofl-46961e5187-29c�	pfl-46961e5187-29d�	q	l	m	n	o	p�	rr	h	k	q�	s	j�	tfl-46961e5187-296�	u	t�	vr	s	u�	wgt-1e8ba8b5a-3c4�	xgt-1e8ba8b5a-3c6�	ygt-1e8ba8b5a-3c5�	z	w	x	y�	{gm-1e8ba8b5a-3c7�	|	{p�	}	|	|	|�	~fl-1e8ba8b5a-3cb�	fl-1e8ba8b5a-3cc�	�fl-1e8ba8b5a-3cd�	�	~		��	�r	z	}	��	�fl-1e8ba8b5a-3c1�	�fl-1e8ba8b5a-3c2�	�fl-1e8ba8b5a-3c3�	�	�	�	��	�r��	��	��	r}	v�}	�}}}	� 
�	�n	e	���	�$	r}	v��}��	�n�	���	�q	r}	v�	�n0	���	�n2	���	�n4	���	�n6	���	�n8	���	�n�	���	�n�	���	�nQ	���	�n�	���	�n�	���	�n:	���	�n<	���	�n>	���	�n@	���	�nB	���	�nD	���	�nF	���	�nH	���	�n	���	�n]	���	�nJ	���	�nL	���	�	�	�	�	�	�	�	�	�	�	�	�	�	�	�	�	�	�	�	�	�	�	��	�g"%test-runner-pass-count!-procedure�	��ll�	�gm-46961e5187-2a8�	�	�p�	�gt-46961e5187-2a6�	�gt-46961e5187-2a7�	�	�	��	�	�	��	�fl-46961e5187-2ad�	�fl-46961e5187-2ae�	�	�	��	�r	�	�	��	�	��	�fl-46961e5187-2aa�	�	��	�r	�	��	�	�	�}	��}}}}����
�	�n�	���	�gt-1e8ba8b5a-3e6�	�gt-1e8ba8b5a-3e7�	�	�	��	�gm-1e8ba8b5a-3e8�	�	�p�	�	�	��	�fl-1e8ba8b5a-3ec�	�fl-1e8ba8b5a-3ed�	�	�	��	�r	�	�	��	�����	�fl-1e8ba8b5a-3e0�	�fl-1e8ba8b5a-3e1�	�fl-1e8ba8b5a-3e2�	�	�	�	��	�r	��	��	����	�fl-1e8ba8b5a-3d7�	�fl-1e8ba8b5a-3d8�	�	�	��	�r	��	��	�gfield-specs�	��	��	�fl-1e8ba8b5a-3d3�	�fl-1e8ba8b5a-3d4�	�	�	��	�r	��	��	��	�}	��}	�	�}	�}	� �	�n�	���	�gval�	�n	�	���	�	�	��	�no	���	�n�	���	�n�	���	�	�	��	�$	�}	���}��	�n�	���	�	�	�	��	�gstruct-set!�	�n	�	���	�	�}	��	�n
	���	�	�	�	�	��	�n�	���	�n	���	�q	�}	��	�n1	���	�	�	��	�	�	�	��	�	�	�	�	��	�	�	�	��	�q}	��	�n	�	���	�g"%test-runner-fail-count!-procedure�	�gm-46961e5187-2b8�	�	�p�	�gt-46961e5187-2b6�	�gt-46961e5187-2b7�	�	�	��	�	�	��	�fl-46961e5187-2bd�	�fl-46961e5187-2be�	�	�	��	�r	�	�	��	�	��	�fl-46961e5187-2ba�	�	��	�r	�	��	�	�	�}	��}}}}����
�	�n�	���	��	�}	��}	�	�}	�}	� �	�n�	���	�n	�	���
	�	��
no	���
n�	���
n�	���

	��
$	�}	���}��
n�
��



�
n	�	���
		�}	��

n
	��

	�

	��
n�	���

n	���
q	�}	��
n3
��



�

	�
�




�
	�

�
q}	��
n	�
��
g#%test-runner-xpass-count!-procedure�
gm-46961e5187-2c8�

p�
gt-46961e5187-2c6�
gt-46961e5187-2c7�


�


�
fl-46961e5187-2cd�
fl-46961e5187-2ce�


�
 r


�
!
�
"fl-46961e5187-2ca�
#
"�
$r
!
#�
%

 }
$�}}}}����
�
&n�
%��
'�
 }
$�}	�	�}	�}	� �
(n�
'��
)n	�
'��
*
(
)�
+no
'��
,n�
'��
-n�
'��
.
-
(�
/$
 }
$��}��
0n�
/��
1
,
.
0�
2n	�
'��
3
 }
$�
4n	
3��
5
2
(
4
)�
6n�
'��
7n
'��
8q
 }
$�
9n5
8��
:
7
9�
;
6
(
:�
<
+
1
5
;�
=
&
*
<�
>q}
$�
?n

>��
@g#%test-runner-xfail-count!-procedure�
Agm-46961e5187-2d8�
B
Ap�
Cgt-46961e5187-2d6�
Dgt-46961e5187-2d7�
E
C
D�
F
B
B�
Gfl-46961e5187-2dd�
Hfl-46961e5187-2de�
I
G
H�
Jr
E
F
I�
K
B�
Lfl-46961e5187-2da�
M
L�
Nr
K
M�
O
B
J}
N�}}}}����
�
Pn�
O��
Q�
J}
N�}	�	�}	�}	� �
Rn�
Q��
Sn	�
Q��
T
R
S�
Uno
Q��
Vn�
Q��
Wn�
Q��
X
W
R�
Y$
J}
N��}��
Zn�
Y��
[
V
X
Z�
\n	�
Q��
]
J}
N�
^n	
]��
_
\
R
^
S�
`n�
Q��
an
Q��
bq
J}
N�
cn7
b��
d
a
c�
e
`
R
d�
f
U
[
_
e�
g
P
T
f�
hq}
N�
in
@
h��
jg"%test-runner-skip-count!-procedure�
kgm-46961e5187-2e8�
l
kp�
mgt-46961e5187-2e6�
ngt-46961e5187-2e7�
o
m
n�
p
l
l�
qfl-46961e5187-2ed�
rfl-46961e5187-2ee�
s
q
r�
tr
o
p
s�
u
l�
vfl-46961e5187-2ea�
w
v�
xr
u
w�
y
l
t}
x�}}}}����
�
zn�
y��
{�
t}
x�}	�	�}	�}	� �
|n�
{��
}n	�
{��
~
|
}�
no
{��
�n�
{��
�n�
{��
�
�
|�
�$
t}
x��}��
�n�
���
�
�
�
��
�n	�
{��
�
t}
x�
�n	
���
�
�
|
�
}�
�n�
{��
�n
{��
�q
t}
x�
�n9
���
�
�
��
�
�
|
��
�

�
�
��
�
z
~
��
�q}
x�
�n
j
���
�g%test-runner-skip-list!�
�g"%%test-runner-skip-list!-procedure�
�gm-46961e5187-2f8�
�
�p�
�gt-46961e5187-2f6�
�gt-46961e5187-2f7�
�
�
��
�
�
��
�fl-46961e5187-2fd�
�fl-46961e5187-2fe�
�
�
��
�r
�
�
��
�
��
�fl-46961e5187-2fa�
�
��
�r
�
��
�
�
�}
��}}}}����
�
�n�
���
��
�}
��}	�	�}	�}	� �
�n�
���
�n	�
���
�
�
��
�no
���
�n�
���
�n�
���
�
�
��
�$
�}
���}��
�n�
���
�
�
�
��
�n	�
���
�
�}
��
�n	
���
�
�
�
�
��
�n�
���
�n
���
�q
�}
��
�n
�
���
�
�
��
�
�
�
��
�
�
�
�
��
�
�
�
��
�q}
��
�n
�
���
�g%test-runner-fail-list!�
�g"%%test-runner-fail-list!-procedure�
�gm-46961e5187-308�
�
�p�
�gt-46961e5187-306�
�gt-46961e5187-307�
�
�
��
�
�
��
�fl-46961e5187-30d�
�fl-46961e5187-30e�
�
�
��
�r
�
�
��
�
��
�fl-46961e5187-30a�
�
��
�r
�
��
�
�
�}
��}}}}����
�
�n�
���
��
�}
��}	�	�}	�}	� �
�n�
���
�n	�
���
�
�
��
�no
���
�n�
���
�n�
���
�
�
��
�$
�}
���}��
�n�
���
�
�
�
��
�n	�
���
�
�}
��
�n	
���
�
�
�
�
��
�n�
���
�n
���
�q
�}
��
�n
�
���
�
�
��
�
�
�
��
�
�
�
�
��
�
�
�
��
�q}
��
�n
�
���
�g%test-runner-run-list!�
�g!%%test-runner-run-list!-procedure�
�gm-46961e5187-318�
�
�p�
�gt-46961e5187-316�
�gt-46961e5187-317�
�
�
��
�
�
��
�fl-46961e5187-31d�
�fl-46961e5187-31e�
�
�
��
�r
�
�
��
�
��
�fl-46961e5187-31a�
�
��
�r
�
��
�
�
�}
��}}}}����
�
�n�
���
��
�}
��}	�	�}	�}	� �
�n�
���
�n	�
���
�
�
��no
���n�
���n�
���
��$
�}
���}��n����n	�
���
�}
��	n	��

�	
��n�
���n
���
q
�}
��n
�
���
��
�
�
��q}
��n
���g%test-runner-skip-save!�g"%%test-runner-skip-save!-procedure�gm-46961e5187-328�p�gt-46961e5187-326�gt-46961e5187-327���fl-46961e5187-32d�fl-46961e5187-32e�� r�!�"fl-46961e5187-32a�#"�$r!#�% }$�}}}}����
�&n�%��'� }$�}	�	�}	�}	� �(n�'��)n	�'��*()�+no'��,n�'��-n�'��.-(�/$ }$��}��0n�/��1,.0�2n	�'��3 }$�4n	3��52(4)�6n�'��7n'��8q }$�9n8��:79�;6(:�<+15;�=&*<�>q}$�?n>��@g%test-runner-fail-save!�Ag"%%test-runner-fail-save!-procedure�Bgm-46961e5187-338�CBp�Dgt-46961e5187-336�Egt-46961e5187-337�FDE�GCC�Hfl-46961e5187-33d�Ifl-46961e5187-33e�JHI�KrFGJ�LC�Mfl-46961e5187-33a�NM�OrLN�PCK}O�}}}}����
�Qn�P��R�K}O�}	�	�}	�}	� �Sn�R��Tn	�R��UST�VnoR��Wn�R��Xn�R��YXS�Z$K}O��}��[n�Z��\WY[�]n	�R��^K}O�_n		^��`]S_T�an�R��bnR��cqK}O�dn@c��ebd�faSe�gV\`f�hQUg�iq}O�jnAi��kg#%test-runner-group-stack!-procedure�lgm-46961e5187-348�mlp�ngt-46961e5187-346�ogt-46961e5187-347�pno�qmm�rfl-46961e5187-34d�sfl-46961e5187-34e�trs�urpqt�vm�wfl-46961e5187-34a�xw�yrvx�zmu}y�}}}}����
�{n�z��|�u}y�}	�	�}	�}	� �}n�|��~n	�|��}~��no|���n�|���n�|����}��$u}y��}���n����������n	�|���u}y��n	
�����}�~��n�|���n|���qu}y��n;���������}���������{���q}y��nk����g%%test-runner-on-test-begin!-procedure��gm-46961e5187-358���p��gt-46961e5187-356��gt-46961e5187-357����������fl-46961e5187-35d��fl-46961e5187-35e������r��������fl-46961e5187-35a�����r������}��}}}}����
��n�������}��}	�	�}	�}	� ��n�����n	���������no����n�����n���������$�}���}���n����������n	������}���n	����������n�����n����q�}���n=������������������������q}���n�����g#%test-runner-on-test-end!-procedure��gm-46961e5187-368���p��gt-46961e5187-366��gt-46961e5187-367����������fl-46961e5187-36d��fl-46961e5187-36e������r��������fl-46961e5187-36a�����r������}��}}}}����
��n�������}��}	�	�}	�}	� ��n�����n	���������no����n�����n���������$�}���}���n����������n	������}���n	����������n�����n����q�}���n?������������������������q}���n�����g&%test-runner-on-group-begin!-procedure��gm-46961e5187-378���p��gt-46961e5187-376��gt-46961e5187-377����������fl-46961e5187-37d��fl-46961e5187-37e������r��������fl-46961e5187-37a�����r������}��}}}}����
��n�������}��}	�	�}	�}	� ��n�����n	���������no����n����n������$�}���}��n�����n	�����}��n	
�����	n����
n���q�}��nA��

�	�
������q}��n���g$%test-runner-on-group-end!-procedure�gm-46961e5187-388�p�gt-46961e5187-386�gt-46961e5187-387���fl-46961e5187-38d�fl-46961e5187-38e��r��fl-46961e5187-38a� �!r �"}!�}}}}����
�#n�"��$�}!�}	�	�}	�}	� �%n�$��&n	�$��'%&�(no$��)n�$��*n�$��+*%�,$}!��}��-n�,��.)+-�/n	�$��0}!�1n	0��2/%1&�3n�$��4n$��5q}!�6nC5��746�83%7�9(.28�:#'9�;q}!�<n;��=g %test-runner-on-final!-procedure�>gm-46961e5187-398�?>p�@gt-46961e5187-396�Agt-46961e5187-397�B@A�C??�Dfl-46961e5187-39d�Efl-46961e5187-39e�FDE�GrBCF�H?�Ifl-46961e5187-39a�JI�KrHJ�L?G}K�}}}}����
�Mn�L��N�G}K�}	�	�}	�}	� �On�N��Pn	�N��QOP�RnoN��Sn�N��Tn�N��UTO�V$G}K��}��Wn�V��XSUW�Yn	�N��ZG}K�[n	Z��\YO[P�]n�N��^nN��_qG}K�`nE_��a^`�b]Oa�cRX\b�dMQc�eq}K�fn=e��gg$%test-runner-on-bad-count!-procedure�hgm-46961e5187-3a8�ihp�jgt-46961e5187-3a6�kgt-46961e5187-3a7�ljk�mii�nfl-46961e5187-3ad�ofl-46961e5187-3ae�pno�qrlmp�ri�sfl-46961e5187-3aa�ts�urrt�viq}u�}}}}����
�wn�v��x�q}u�}	�	�}	�}	� �yn�x��zn	�x��{yz�|nox��}n�x��~n�x��~y��$q}u��}���n�����}���n	�x���q}u��n	�����y�z��n�x���nx���qq}u��nG���������y���|�����w{���q}u��ng����g'%test-runner-on-bad-end-name!-procedure��gm-46961e5187-3b8���p��gt-46961e5187-3b6��gt-46961e5187-3b7����������fl-46961e5187-3bd��fl-46961e5187-3be������r��������fl-46961e5187-3ba�����r������}��}}}}����
��n�������}��}	�	�}	�}	� ��n�����n	���������no����n�����n���������$�}���}���n����������n	������}���n	����������n�����n����q�}���nI������������������������q}���n�����g%test-runner-total-count!��g$%%test-runner-total-count!-procedure��gm-46961e5187-3c8���p��gt-46961e5187-3c6��gt-46961e5187-3c7����������fl-46961e5187-3cd��fl-46961e5187-3ce������r��������fl-46961e5187-3ca�����r������}��}}}}����
��n�������}��}	�	�}	�}	� ��n�����n	���������no����n�����n���������$�}���}���n����������n	������}���n	����������n�����n����q�}���n�������������������������q}���n�����g%test-runner-count-list!��g#%%test-runner-count-list!-procedure��gm-46961e5187-3d8���p��gt-46961e5187-3d6��gt-46961e5187-3d7����������fl-46961e5187-3dd��fl-46961e5187-3de������r��������fl-46961e5187-3da�����r������}��}}}}����
��n�������}��}	�	�}	�}	� ��n�����n	���������no����n�����n��������
$�}���}��
n�
��
��
�
n	����
�}��
n	
��

�
��
n����
n���
	q�}��
n�
	��


�

�
�

�


�
��

�
q}��
n�
��
g%test-result-alist!-procedure�
gm-46961e5187-3e8�

p�
gt-46961e5187-3e6�
gt-46961e5187-3e7�


�


�
fl-46961e5187-3ed�
fl-46961e5187-3ee�


�
r


�

�
fl-46961e5187-3ea�

�
r

�
 

}
�}}}}����
�
!n�
 ��
"�
}
�}	�	�}	�}	� �
#n�
"��
$n	�
"��
%
#
$�
&no
"��
'n�
"��
(n�
"��
)
(
#�
*$
}
��}��
+n�
*��
,
'
)
+�
-n	�
"��
.
}
�
/n	
.��
0
-
#
/
$�
1n�
"��
2n
"��
3q
}
�
4nK
3��
5
2
4�
6
1
#
5�
7
&
,
0
6�
8
!
%
7�
9q}
�
:n

9��
;g!%test-runner-aux-value!-procedure�
<gm-46961e5187-3f8�
=
<p�
>gt-46961e5187-3f6�
?gt-46961e5187-3f7�
@
>
?�
A
=
=�
Bfl-46961e5187-3fd�
Cfl-46961e5187-3fe�
D
B
C�
Er
@
A
D�
F
=�
Gfl-46961e5187-3fa�
H
G�
Ir
F
H�
J
=
E}
I�}}}}����
�
Kn�
J��
L�
E}
I�}	�	�}	�}	� �
Mn�
L��
Nn	�
L��
O
M
N�
Pno
L��
Qn�
L��
Rn�
L��
S
R
M�
T$
E}
I��}��
Un�
T��
V
Q
S
U�
Wn	�
L��
X
E}
I�
Yn	
X��
Z
W
M
Y
N�
[n�
L��
\n
L��
]q
E}
I�
^nM
]��
_
\
^�
`
[
M
_�
a
P
V
Z
`�
b
K
O
a�
cq}
I�
dn
;
c��
egreverse�
fg%test-null-callback�
ggtest-on-test-begin-simple�
hgmake-parameter�
igerror�
jf1test-runner not initialized - test-begin missing?�
kg%test-specifier-matches�
lg%test-any-specifier-matches�
mgresult-kind�
ngskip�
ogxfail�
pg%test-should-execute�
qg%test-begin�
rg
suite-name�
ss
r�
tgm-46961e5187-407�
u
tp�
v
uq�
wfl-46961e5187-40c�
xfl-46961e5187-40d�
y
w
x�
zr
s
v
y�
{
u�
|fl-46961e5187-409�
}
|�
~r
{
}�
q
z}
~�
�n
q
��
�n
��
�
��
�lll�
�gcount�
�s
r
��
�
uqq�
�fl-46961e5187-411�
�fl-46961e5187-412�
�fl-46961e5187-413�
�
�
�
��
�r
�
�
��
�q
�}
~�
�n
q
���
�gdisplay�
�f%%%% Starting test �
�gstring?�
�g
string-append�
�f.log�
�gopen-output-file�
�gnewline�
�f  (Writing full log to "�
�f")�
�goutput-port?�
�f
Group begin: �
�fGroup end: �
�f*** Total number of tests was �
�f but should be �
�f. ***�
�f<*** Discrepancy indicates testsuite error or exceptions. ***�
�g%test-on-bad-count-write�
�gcurrent-output-port�
�g%test-format-line�
�f	test-end �
�f does not match test-begin �
�g%test-final-report1�
�f# of expected passes      �
�f# of expected failures    �
�f# of unexpected successes �
�f# of unexpected failures  �
�f# of skipped tests        �
�g%test-final-report-simple�
�gassq�
�gsource-file�
�gsource-line�
�f�
�f:�
�gnumber->string�
�f: �
�ftest-end not in a group�
�g	%test-end�
�lm��
�glet�
�s
r��
�gm-46961e5187-417�
�
�p�
�
�qq�
�fl-46961e5187-41c�
�fl-46961e5187-41d�
�fl-46961e5187-41e�
�
�
�
��
�r
�
�
��
�
��
�fl-46961e5187-419�
�
��
�r
�
��
�q
�}
��
�n
�
���
�gr�
�n
�
���
�n+
���
�
��
�
�
��
�
��
�nK
���
�n�
���
�gcons�
�n
�
���
�n
���
�g	test-name�
�n
�
���
�
�
��
�no
���
�n
p
���
�
�
��
�gdynamic-wind�
�n
�
���
�n�
���
�n
���
�n

���
�gcleanup-form�
�s
r�
��
�gm-46961e5187-422�
�
�p�
�
�qqq�
�fl-46961e5187-427�
�fl-46961e5187-428�
�fl-46961e5187-429�
�fl-46961e5187-42a�
�
�
�
�
��
�r
�
�
��
�
��
�fl-46961e5187-424�
�
��
�r
�
��
�q
�}
��
�n
���
�n
�
���
�n�
���
�n
���
�
�
��
�s
r
��
�
�qq�
�fl-46961e5187-430�
�fl-46961e5187-431�
�fl-46961e5187-432�
�
�
�
��
�r
�
�
��
�q
�}
��
�n
���
�n
���
�l
���
�l
���
�l
���
�gform1�
�gform2�
�gform3�
�grest�s
r
�
�
�
��
�qqqqq�fl-46961e5187-437�fl-46961e5187-438�fl-46961e5187-439�fl-46961e5187-43a�fl-46961e5187-43b�fl-46961e5187-43c��	r�
q	}
��n
��gbegin�
n
��gsource-form�fTest begin:�g%test-write-result1�grunner�gpname�s�gm-46961e5187-443�p�qq�fl-46961e5187-448�fl-46961e5187-449�fl-46961e5187-44a��r��fl-46961e5187-445��r� q}�!n  ��"n ��#"�$gdefault�%s$�&qqq�'fl-46961e5187-44f�(fl-46961e5187-450�)fl-46961e5187-451�*fl-46961e5187-452�+'()*�,r%&+�-q,}�.n
�-��/gp�0n/-��1n
�-��2nJ-��3no-��4gcdr�5n4-��650�7gfail�8gxpass�9fXPASS�:fFAIL�;f �<f	Test end:�=gmemq�>
�
�
��?f  �@gwrite�Agpass�BA8�Cg%test-report-result�Dg%test-evaluate-with-catch�Egcatch�Fgtest-expression�GsF�Hgm-46961e5187-458�IHp�JIq�Kfl-46961e5187-45d�Lfl-46961e5187-45e�MKL�NrGJM�OI�Pfl-46961e5187-45a�QP�RrOQ�SqN}R�TnES��UnS��Vn�S��Wn�S��Xn�S��YWX��Zn!S��[n+S��\[�]nS��^gactual-error�_n^S��`]_�an
�S��baWX�cZ\`b�dnS��eVYcd�fe�gg
syntax-source�hgassq-ref�igfilename�jgline�kg
datum->syntax�lghere�mg
line-alist�nm�ofl-46961e5187-5eb�po�qrn�p�rg
file-alist�sr�tfl-46961e5187-5e8�ut�vrs�u�wj�xfl-46961e5187-5e4�yx�zrw�y�{gfile�|{�}fl-46961e5187-5e0�~}�r|�~��g	src-props�����fl-46961e5187-5de�����r��������fl-46961e5187-5dc�����r�����q}}q}v}z}}�}}���nl����g
syntax->datum��gappend��������g%test-source-line2��g%test-on-test-begin��g%test-on-test-end��g%test-comp2body��lllll��gcomp��gexpected��s
���	g��gm-46961e5187-462���p���qqqq��fl-46961e5187-467��fl-46961e5187-468��fl-46961e5187-469��fl-46961e5187-46a��fl-46961e5187-46b���������r��������fl-46961e5187-464�����r����q�}���n
�����no����n�����gexp��n�����n!����n����gexpected-value��n�������������gres��n�����nD����gactual-value��n�������������n���������nC����������g	real-part��g	imag-part��g%test-approximate=��g%test-comp1body��s
�	g��gm-46961e5187-471���p���qq��fl-46961e5187-476��fl-46961e5187-477��fl-46961e5187-478�������r��������fl-46961e5187-473�����r����q�}���n
�����no����n�����n�����nD����n!����n����n�������������n��������nC����������fl-46961e5187-47e�����r����q}���n����	`l��gmac���
rj��fl-46961e5187-481��fl-46961e5187-482��fl-46961e5187-483�������r�����q�}���n
�����l���l���j��fl-46961e5187-488��fl-46961e5187-489������r�����q�}���n
�����n����fl-46961e5187-48d�����r����q}���n����
�l��glet*��gtname����	gj�fl-46961e5187-490�fl-46961e5187-491�fl-46961e5187-492�fl-46961e5187-493��r��q}��n���n
���	n-��
	�
�n���
nK��n
���n��n
����n����	gj�fl-46961e5187-499�fl-46961e5187-49a�fl-46961e5187-49b��r��q}��n���n
���n-����� nK��!n���"�~�#fl-46961e5187-58e�$fl-46961e5187-58f�%#$�&r"�%�'q}&�(n'��)�ll�*���	gj��+fl-46961e5187-592�,fl-46961e5187-593�-fl-46961e5187-594�.fl-46961e5187-595�/fl-46961e5187-596�0fl-46961e5187-597�1+,-./0�2r*�1�3q2}&�4n�3��5n
�3��6n-3��76�857�9n�3��:nK3��;n
�3��<n3��=n
�3��><=�?n�3��@
�ll�A��	gj��Bfl-46961e5187-59f�Cfl-46961e5187-5a0�Dfl-46961e5187-5a1�Efl-46961e5187-5a2�Ffl-46961e5187-5a3�GBCDEF�HrA�G�IqH}&�Jn�I��Kn
�I��Ln-I��ML�NKM�ON�PnKI��Qn�I��Rg%test-comp2�Sgeqv?�Tfl-46961e5187-4a0�UT�Vr�U�Wq}V�XnSW��Yfl-46961e5187-4a2�ZY�[r�Z�\q}[�]n�\��^gequal?�_fl-46961e5187-4a4�`_�ar�`�bq}a�cn^b��dfl-46961e5187-4a6�ed�fr�e�gq}f�hng��i�l�j���	g
ij�kfl-46961e5187-4a9�lfl-46961e5187-4aa�mfl-46961e5187-4ab�nfl-46961e5187-4ac�ofl-46961e5187-4ad�pfl-46961e5187-4ae�qklmnop�rrj�q�sqr}f�tn�s��un
�s��vn-s��wv�xuw�yn�s��znKs��{n
�s��|ns��}n
�s��~|}�n�s���n�s����l����	g
ij��fl-46961e5187-4b6��fl-46961e5187-4b7��fl-46961e5187-4b8��fl-46961e5187-4b9��fl-46961e5187-4ba���������r�����q�}f��n�����n
�����n-��������������nK����n�����n�����g%test-error��gcond��getype��s
��	g��gm-46961e5187-4c1���p���qqq��fl-46961e5187-4c6��fl-46961e5187-4c7��fl-46961e5187-4c8��fl-46961e5187-4c9��������r��������fl-46961e5187-4c3�����r����q�}���n�����n�����n
�����get��n�����n!����n����gexpected-error��n�������������n�����nE����n����n�����n���������n�������n�����n����������n^��������n
�����������������nC����������fl-46961e5187-4d0�����r����q}���n�������	gj��fl-46961e5187-4d3��fl-46961e5187-4d4��fl-46961e5187-4d5��fl-46961e5187-4d6��fl-46961e5187-4d7���������r�����q�}���n�����n
�����n-�����������n�����nK����n
�����n����n
���������n�������	gj��fl-46961e5187-4de��fl-46961e5187-4df��fl-46961e5187-4e0��fl-46961e5187-4e1��������r����q�}���n�����n
�����n-��������������nK����n�����fl-46961e5187-4e7��fl-46961e5187-4e8��fl-46961e5187-4e9�������r����q�}���n�����n
�����n-��������������nK����n�����n����gapply��l-��l���s��gm-46961e5187-4ed�p�qq�fl-46961e5187-4f2�fl-46961e5187-4f3�fl-46961e5187-4f4��	r�
�fl-46961e5187-4ef��
r
�q	}
�n
���gsaved-runner�n��n+�����n
���n������g%test-match-nth�gn�s�gm-46961e5187-4f9�p� q�!fl-46961e5187-4fe�"fl-46961e5187-4ff�#!"�$r #�%�&fl-46961e5187-4fb�'&�(r%'�)q$}(�*n)��+n)��,+�-s
��.qq�/fl-46961e5187-503�0fl-46961e5187-504�1fl-46961e5187-505�2/01�3r-.2�4q3}(�5n4��6g%test-match-all�7gpred�8s7�9gm-46961e5187-509�:9p�;:q�<fl-46961e5187-50e�=fl-46961e5187-50f�><=�?r8;>�@:�Afl-46961e5187-50b�BA�Cr@B�Dq?}C�En6D��Fg%test-as-specifier�GnFD��Hg%test-match-any�Igm-46961e5187-513�JIp�KJq�Lfl-46961e5187-518�Mfl-46961e5187-519�NLM�Or8KN�PJ�Qfl-46961e5187-515�RQ�SrPR�TqO}S�UnHT��VnFT��Wg
procedure?�Xginteger?�Yfnot a valid test specifier�Zgm-46961e5187-51d�[Zp�\[q�]fl-46961e5187-522�^fl-46961e5187-523�_]^�`r8\_�a[�bfl-46961e5187-51f�cb�drac�eq`}d�fn
�e��gne��hn-e��ih�jgi�kj�ln
�e��mn
�e��nne��onFe��pn�e��qpg�rq�sgm-46961e5187-527�tsp�utq�vfl-46961e5187-52c�wfl-46961e5187-52d�xvw�yr8ux�zt�{fl-46961e5187-529�|{�}rz|�~qy}}�n
�~���n~���n-~�������������n
�~���n
�~���n~���nF~���n�~����������gopen-input-string��gread��geof-object?��g	read-char��geval��f(not at eof)�C5h(X�]4	
T54W>"G4Xi4Yi5Z>"G4]`c>"G4fghkm�h@]C8gdummy
		gnames					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
	;	��		"g
macro-typegsyntax-rules�gpatternsgnamesC5gR4f�hk�����h �]45����C�gdummy
		galloc		grunner?			gname			gindex			gsetter			ggetter						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
	g	��		"g
macro-typegsyntax-rules�gpatternsgallocgrunner?gnamegindexgsetterggetterg...C5�R�h u]�Cmgfilenamefsrfi/srfi-64/testing.scm�
�
��		
gnameg%%test-runner-alloc-procedure�C�R4f�hk�,h]C		
C.0�1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C6h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5�R9:=�T�4W�>"G	Z��i��R�h�]�$��CCygobj
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg%test-runner?-procedure�C[R4f'hk\�h7]C/gt-46961e5187-35
		
		
C.0'1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5'R��0h�]�&
�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg!%test-runner-pass-count-procedure�C�R4f0hk�h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C$*h:]��C2gerr
		gs					C\Hh7]C/gt-46961e5187-41
		
		
C.001h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
CJh]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C50R��2h�]�&�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg!%test-runner-fail-count-procedure�CKR4f2hkY`eh:]��C2gerr
		gs					Chnsh:]��C2gerr
		gs					Cv|�h:]��C2gerr
		gs					C\�h7]C/gt-46961e5187-5c
		
		
C.021h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C52R��4h �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg"%test-runner-xpass-count-procedure�C�R4f4hk���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h7]C/gt-46961e5187-77
		
		
C.041h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C54R��6h �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg"%test-runner-xfail-count-procedure�C�R4f6hkh:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C"(-h:]��C2gerr
		gs					C\Jh7]C/gt-46961e5187-92
		
		
C.061h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
CLh]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C56R��8h �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg!%test-runner-skip-count-procedure�CMR4f8hk[bgh:]��C2gerr
		gs					Cjpuh:]��C2gerr
		gs					Cx~�h:]��C2gerr
		gs					C\�h7]C/gt-46961e5187-ad
		
		
C.081h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C58R���h �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg!%%test-runner-skip-list-procedure�C�R4f�hk���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h7]C/gt-46961e5187-c8
		
		
C.0�1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5�R���h �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg!%%test-runner-fail-list-procedure�C�R4f�hk	h:]��C2gerr
		gs					C#h:]��C2gerr
		gs					C&,1h:]��C2gerr
		gs					C\Nh7]C/gt-46961e5187-e3
		
		
C.0�1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
CPh]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5�R��Qh �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg %%test-runner-run-list-procedure�CRR4fQhk`glh:]��C2gerr
		gs					Couzh:]��C2gerr
		gs					C}��h:]��C2gerr
		gs					C\�h7]C/gt-46961e5187-fe
		
		
C.0Q1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5QR���h �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg!%%test-runner-skip-save-procedure�C�R4f�hk���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h8]C0gt-46961e5187-119
		
		
C.0�1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5�R���h �]�&		�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg!%%test-runner-fail-save-procedure�CR4f�hkh:]��C2gerr
		gs					C#(h:]��C2gerr
		gs					C+16h:]��C2gerr
		gs					C\Sh8]C0gt-46961e5187-134
		
		
C.0�1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
CUh]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5�R��:h �]�&	
�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg"%test-runner-group-stack-procedure�CVR4f:hkdkph:]��C2gerr
		gs					Csy~h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h8]C0gt-46961e5187-14f
		
		
C.0:1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5:R��<h �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg$%test-runner-on-test-begin-procedure�C�R4f<hk���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h8]C0gt-46961e5187-16a
		
		
C.0<1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
Ch]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5<R��>h �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg"%test-runner-on-test-end-procedure�CR4f>hkh:]��C2gerr
		gs					C%*h:]��C2gerr
		gs					C-38h:]��C2gerr
		gs					C\Uh8]C0gt-46961e5187-185
		
		
C.0>1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
CWh]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5>R��@h �]�&	
�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg%%test-runner-on-group-begin-procedure�CXR4f@hkfmrh:]��C2gerr
		gs					Cu{�h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h8]C0gt-46961e5187-1a0
		
		
C.0@1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5@R��Bh �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg#%test-runner-on-group-end-procedure�C�R4fBhk���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\h8]C0gt-46961e5187-1bb
		
		
C.0B1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
Ch]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5BR��Dh �]�&	�C6gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg%test-runner-on-final-procedure�CR4fDhkh:]��C2gerr
		gs					C!',h:]��C2gerr
		gs					C/5:h:]��C2gerr
		gs					C\Wh8]C0gt-46961e5187-1d6
		
		
C.0D1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
CYh]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5DR��Fh �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg#%test-runner-on-bad-count-procedure�CZR4fFhkhoth:]��C2gerr
		gs					Cw}�h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h8]C0gt-46961e5187-1f1
		
		
C.0F1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5FR��Hh �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg&%test-runner-on-bad-end-name-procedure�C�R4fHhk���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\h8]C0gt-46961e5187-20c
		
		
C.0H1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
Ch]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5HR��h �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg#%%test-runner-total-count-procedure�CR4fhk!h:]��C2gerr
		gs					C$*/h:]��C2gerr
		gs					C28=h:]��C2gerr
		gs					C\Zh8]C0gt-46961e5187-227
		
		
C.01h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C\h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5R��]h �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg"%%test-runner-count-list-procedure�C^R4f]hklsxh:]��C2gerr
		gs					C{��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\�h8]C0gt-46961e5187-242
		
		
C.0]1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5]R��Jh �]�&	�C6|gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg%test-result-alist-procedure�C�R4fJhk���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C\	h8]C0gt-46961e5187-25d
		
		
C.0J1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C		h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5JR��Lh �]�&	�C6�gs
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg %test-runner-aux-value-procedure�C	
R4fLhk			$h:]��C2gerr
		gs					C	'	-	2h:]��C2gerr
		gs					C	5	;	@h:]��C2gerr
		gs					C\	]h8]C0gt-46961e5187-278
		
		
C.0L1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C	_h]C		
Ch��]145$@45$@45$@45$	@4
5$O@45"	
6$4O?$@"���"����gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-64/testing.scm�
�
��	�C5LR4f&hk	d	�	�	���h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5&R��1h �]�&
�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg"%test-runner-pass-count!-procedure�C	�R4f1hk	�	�hV]CNgt-46961e5187-2a6
		gt-46961e5187-2a7					C.011h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C	�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC51R��3h �]�&�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg"%test-runner-fail-count!-procedure�C	�R4f3hk	�
hV]CNgt-46961e5187-2b6
		gt-46961e5187-2b7					C.031h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C
h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC53R��5h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg#%test-runner-xpass-count!-procedure�C
R4f5hk	�
=hV]CNgt-46961e5187-2c6
		gt-46961e5187-2c7					C.051h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C
?h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC55R��7h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg#%test-runner-xfail-count!-procedure�C
@R4f7hk	�
ghV]CNgt-46961e5187-2d6
		gt-46961e5187-2d7					C.071h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C
ih]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC57R��9h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg"%test-runner-skip-count!-procedure�C
jR4f9hk	�
�hV]CNgt-46961e5187-2e6
		gt-46961e5187-2e7					C.091h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C
�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC59R��
�h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg"%%test-runner-skip-list!-procedure�C
�R4f
�hk	�
�hV]CNgt-46961e5187-2f6
		gt-46961e5187-2f7					C.0
�1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C
�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5
�R��
�h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg"%%test-runner-fail-list!-procedure�C
�R4f
�hk	�
�hV]CNgt-46961e5187-306
		gt-46961e5187-307					C.0
�1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C
�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5
�R��
�h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg!%%test-runner-run-list!-procedure�C
�R4f
�hk	�hV]CNgt-46961e5187-316
		gt-46961e5187-317					C.0
�1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
Ch]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5
�R��h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg"%%test-runner-skip-save!-procedure�CR4fhk	�=hV]CNgt-46961e5187-326
		gt-46961e5187-327					C.01h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C?h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5R��@h �]�&		�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg"%%test-runner-fail-save!-procedure�CAR4f@hk	�hhV]CNgt-46961e5187-336
		gt-46961e5187-337					C.0@1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
Cjh]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5@R��;h �]�&	
�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg#%test-runner-group-stack!-procedure�CkR4f;hk	��hV]CNgt-46961e5187-346
		gt-46961e5187-347					C.0;1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5;R��=h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg%%test-runner-on-test-begin!-procedure�C�R4f=hk	��hV]CNgt-46961e5187-356
		gt-46961e5187-357					C.0=1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5=R��?h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg#%test-runner-on-test-end!-procedure�C�R4f?hk	��hV]CNgt-46961e5187-366
		gt-46961e5187-367					C.0?1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5?R��Ah �]�&	
�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg&%test-runner-on-group-begin!-procedure�C�R4fAhk	�hV]CNgt-46961e5187-376
		gt-46961e5187-377					C.0A1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
Ch]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5AR��Ch �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg$%test-runner-on-group-end!-procedure�CR4fChk	�:hV]CNgt-46961e5187-386
		gt-46961e5187-387					C.0C1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C<h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5CR��Eh �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg %test-runner-on-final!-procedure�C=R4fEhk	�dhV]CNgt-46961e5187-396
		gt-46961e5187-397					C.0E1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
Cfh]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5ER��Gh �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg$%test-runner-on-bad-count!-procedure�CgR4fGhk	��hV]CNgt-46961e5187-3a6
		gt-46961e5187-3a7					C.0G1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5GR��Ih �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg'%test-runner-on-bad-end-name!-procedure�C�R4fIhk	��hV]CNgt-46961e5187-3b6
		gt-46961e5187-3b7					C.0I1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5IR���h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg$%%test-runner-total-count!-procedure�C�R4f�hk	��hV]CNgt-46961e5187-3c6
		gt-46961e5187-3c7					C.0�1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C�h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5�R���h �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg#%%test-runner-count-list!-procedure�C�R4f�hk	�
hV]CNgt-46961e5187-3d6
		gt-46961e5187-3d7					C.0�1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C
h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5�R��Kh �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg%test-result-alist!-procedure�C
R4fKhk	�
8hV]CNgt-46961e5187-3e6
		gt-46961e5187-3e7					C.0K1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C
:h]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5KR��Mh �]�&	�C6�gs
		gval		gfilenamefsrfi/srfi-64/testing.scm�
�
��			gnameg!%test-runner-aux-value!-procedure�C
;R4fMhk	�
bhV]CNgt-46961e5187-3f6
		gt-46961e5187-3f7					C.0M1h\]L6Tga
		gfilenamefsrfi/srfi-64/testing.scm�	�
��		C���4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�	�
��		
C
dh]C		
Chx�]45$@45$O@45"	6$4	O?$
@"���"����gx
		qgtmp		qgtmp		"	qgtmp		>	qgfilenamefsrfi/srfi-64/testing.scm�
�
��		qC5MR��K13579��
�
�
�@;h �]�&	�"4>"G�&


�"4>"G�&

�"4>"G�&	
�"4>"G�&	
�"4>"G�&	
�"4>"G�&	
�"4	>"G�&	�"4
>"G�&	�"4>"G�&	�"4>"G�&	�"4
>"G�&	�"4>"G�&		�"4>"G�&	
�C6�grunner
	 gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	�	��	�	��	-�	��	T�	��	{�	����	����	����	���	��&�	#��'�	��C�	��k�	��v�	"��w�	����	����	"����	����	����	"����	����	����	"����	���	���	#���	��	 gnamegtest-runner-reset�C(R
e��:h(�]�&		
�"	456�grunner
		!gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	!�	��		!gnamegtest-runner-group-path�CRh�]Cxgrunner
		gfilenamefsrfi/srfi-64/testing.scm�
�
��		gnameg%test-null-callback�C
fR�(h�]C~grunner
		gname		gcount			gfilenamefsrfi/srfi-64/testing.scm�
�	(��			C�A
fCE=?h�]C�grunner
		gcount		gexpected			gfilenamefsrfi/srfi-64/testing.scm�
�	&��			CGh�]C}grunner
		gbegin		gend			gfilenamefsrfi/srfi-64/testing.scm�
�	)��			CIhp%]�4>"G�&	
�"4>"G�&	�"4>"G�&	�"4>"G�&	�"4	>"G�&	�"4
>"G�&	�"4>"G�&	
�"4>"GCgrunner
	ogval	\�gval��gval��gval�gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	�	��	 �	��	4�	��	\�	����	����	����	���	��F�	��	o
gnamegtest-runner-null�C)R&R�(N�AOCRE
g=S?PGQIh�[]�4>"G�&	
�"4>"G�&	�"4>"G�&	�"4	>"G
�&	�"4>"G�&	�"4
>"G�&	�"4>"G�&	�"4>"GCSgrunner
	�gval	3	agval	c�gval��gval��gval�!gval#QgvalS�gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	�	��	 �	��	3�	��	c�	����	����	����	��#�	��S�	��	�
gnamegtest-runner-simple�C*R4
hi5+R4
hi*i5,R+
i
jh(�]45$"4>"GC�gr
		(gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��		(
gnamegtest-runner-get�C-Rh�]6�gspec
		grunner		gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��			gnameg%test-specifier-matches�C
kR,h|]456tgfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��		�	��			
gnamegtest-runner-create�C.R
kh8 ]H"'(JC4�5$K"�"���"���glist
		8grunner		8gresult			8gl				0gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��		�	��	�	��		��		*��		��	 	
��	#	��	*	��	0	
��	0�	��
		8	gnameg%test-any-specifier-matches�C
lR��Q
l�!
m
n�
oh��]�&		�"	45&"	45�$""4�&		�"	455$4>"GC4�&		�"	4	55$4
>"G
CC|grunner
	�grun	�gt		5	ggfilenamefsrfi/srfi-64/testing.scm�

��		
��		��	&	��	'	��	,		��	5	��	5	��	C
	��	H	
��	d
	��	k	��	l
	��	r
	%��	t
	2��	y
	���	���	���	���	���	���	$���	1���	���	��	�gnameg%test-should-execute�C
pR+.��@����@]�:;h��]45$"445>"G454�&		
�"	45>"G�&		�"	45�&		�"	45��&	�"4>"G�&		�"	4	5�&			�"	4
5��&		�"4>"G�&		�"	45��&		�"	4
5��&	�"4>"G�&		
�"	45��&	
�C6�g
suite-name
	�gcount	�grunner		)�gval	��gval	�$gval	^�gval	��gfilenamefsrfi/srfi-64/testing.scm�

��		��		��		��		��		��	%	��	)	��	,	��	]	%��	x	%���	���	���	%��� 	%���	���	��'"	)��B"	#��E$	#��^"	��^!	���&	(���%	%���%	��	�	gnameg%test-begin�C
qR4fhk	`
�
�hE]��C=gdummy
		g
suite-name					C
�
�hX]CPgdummy
		g
suite-name		gcount						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-64/testing.scm�
2	��		9g
macro-typegsyntax-rules�gpatternsg
suite-nameg
suite-namegcountC5R��:
�
�&
�
�
�
�
�M
�
�L
�
�h�f]�&		
�"	45(4>"G4>"G$�45$"	4	54
54>"G4>"G4>"G�&	�"4>"G4
>"G4>"G4>"G"4>"G"�&		�"	4545$>4>"G4>"G4>"G"C^grunner
	�g
suite-name	�gcount		�g
log-file-name		eglog-file		nglog	B�gfilenamefsrfi/srfi-64/testing.scm�
8
��	9	
��	!9	��	";	��	&;	��	+;	��	4<	��	K=	��	L?	��	V?	��	]@	��	c@	2��	e@	��	e>	��	hD	'��	n>	��	qE	��	uE	��	|E	���F	���G	���H	���I	���I	���I	���J	���K	���K	��K	��L	��*M	
��BM	��EN	��ON	��PP	
��TP	��[P	
��dQ	
��xR	
��(	�	gnamegtest-on-group-begin-simple�CNR��L
�
�
�:
�	h�]	�&		�"	4545$X4>"G4�&		
�"	45�>"G4>"G"C�grunner
	�glog	�gfilenamefsrfi/srfi-64/testing.scm�
U
��	V	
��	V	��	 W	��	*W	��	+Y	
��	/Y	��	6Y	
��	?Z	
��	DZ	��	]Z	��	dZ	
��	m[	
��	�gnamegtest-on-group-end-simple�COR
�
�
�
�
�
�h�]]4>"G4>"G4>"G4>"G4>"G4>"G4>"G6Ugrunner
	�gcount	�gexpected-count		�gport		�gfilenamefsrfi/srfi-64/testing.scm�
^
��	_	��	_	��	_	��	`	��	+a	��	/a	��	6a	��	?b	��	Sc	��	Wc	��	^c	��	gd	��	ye	��	}e	���e	���f	��	�	gnameg%test-on-bad-count-write�C
�R
�
���L
�hX
]445>"G�&		�"	4545$6Cgrunner
		Sgcount		Sgexpected-count			Sglog		8	Sgfilenamefsrfi/srfi-64/testing.scm�
h
��	i	��	i	8��	i	��	 j	
��	8j	��	;k	��	Ek	��	Ql	��
		S	gnamegtest-on-bad-count-simple�CPR
�
�
�
�
ih ]44556�grunner
		g
begin-name		gend-name			gmsg			gfilenamefsrfi/srfi-64/testing.scm�
n
��	o	
��	o	��	o	7��	p	��	o	
��	o	��	r	��				gnamegtest-on-bad-end-name-simple�CQR
�
�h@�]
�$.4>"G4>"G6C�gvalue
		:glabel		:gport			:gfilenamefsrfi/srfi-64/testing.scm�
v
��	w	��	
w	��	y	��	z	��	8{	��		:	gnameg%test-final-report1�C
�R
���0
�6
�4
�2
�8
�h�N]4�&
�"	45>"G4�&		�"	45>"G4�&		�"	45	>"G4�&�"	4
5>"G�&		�"	45
6Fgrunner
	�gport	�gfilenamefsrfi/srfi-64/testing.scm�
}
��	~	��	~	��	!	��	(~	��	1�	��	6�	��	P�	��	W�	��	`�	��	e�	��	�	����	����	����	����	����	����	����	����	��	�	gnameg%test-final-report-simple�C
�R
�
���L
�hP�]	445>"G�&		�"	4545$6C�grunner
		Kglog	4	Kgfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	�	$��	�	��	�	
��	4�	��	7�	��	A�	��	I�	��
		Kgnamegtest-on-final-simple�CRR��J
�
�
�
�
�
�
�
�hh�]!�&		�"	454545$�"$	4
�56C�grunner
		ag	line-info		agsource-file		(	agsource-line		3	agfile		D	agfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	�	��	 �	��	$�	��	(�	��	(�	��	+�	��	/�	��	3�	��	3�	��	;�	��	>�	 ��	D�	2��	D�	��	L�	��	R�	��	S�	��	X�	(��	Z�	��	\�	;��	^�		��	`�		��		agnameg%test-format-line�C
�R-��:
�K
�
�
iH]FB;�
��
�@�Dhh�]B45�&		
�"	4545�&	�"4>"G($454	>"G"$B��$"04�&		�"	4
5�>"G"�&		�"	45�����&		�"	45�$@�$"/4�&		�"	4
5>"G"4�&		�"	45>"G�&		
�"	45�	�&	
	�"4>"G	�&		�"	45�	�&		�"4>"G	�&		�"	45�	�&		�"4>"G	�&			�"	45�	�&		�"4>"G	�&			�"	45�	�&			�"4>"G	�	�&		�"4>"G	�&		
�"	45(�&		�"	456C�g
suite-name
	gg	line-info	ggr		gggroups		$ggline		-ggmsg		g	~g
count-list	�ggexpected-count	�ggsaved-count	�gggroup-count	ggval		��gval		�gval		4bgval		~�gval		��gval		�'gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	�	��	�	��	$�	��	'�	��	-�	��	2�	��	^�	��	_�	��	e�	'��	g�	��	g�	��	j�	����	����	0����	����	����	����	6����	����	����	����	����	����	����	����	���	���	���	���	��"�	
��'�	
��Z�	����	'����	"����	����	&����	!����	���	&��4�	!��4�	��e�	&��~�	!��~�	����	&����	!����	����	"����	��*�	��F�	��I�	
��8	g	gnameg	%test-end�C
�R4fhk
�
�
�
�
�
�
�
�
�
�
�
�
�
�hPW]	
��
COgdummy
		Lg
suite-name		Lgbody			L		L	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsg
suite-namegbody�C5R4fhk�
�
�
�
�h(q]Cigdummy
		!g
suite-name		!gform			!gcleanup-form			!		!	C
�
�
�h_]CWgdummy
		g
suite-name		gcleanup-form						C
�
h�]����C�gdummy
		g
suite-name		gform1			gform2			gform3			grest						C��
hP;]45$@45$@45$@	63gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefsrfi/srfi-64/testing.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg
suite-namegformgcleanup-formg
suite-namegcleanup-formg
suite-namegform1gform2gform3grest����C5R��L
�J
�
�
�
�
�
�hO]1�&		�"	4545$��&		�"	4545454	54
54>"G4
>"G$4>"G"$4>"G"$4>"G"$6CCGgrunner
	glog	gresults		Egsource-file		Pgsource-line		[gsource-form		fg	test-name		qgfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	���	 �	��	*�	��	-�	��	E�	��	H�	��	L�	"��	P�	��	P�	��	S�	��	W�	"��	[�	��	[�	��	^�	��	b�	"��	f�	��	f�	��	i�	��	m�	 ��	q�	��	q�	��	t�	
��	x�	��	�	
����	
����	
����	����	
����	����	
����	����	
���	��$	gnamegtest-on-test-begin-simple�C
gR4f hk
�!#hT]���CLgdummy
		grunner		gpname						C�.01236h0i]Cagdummy
		)grunner		)gpname			)gdefault			)		)	C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-64/testing.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgrunnergpnamegrunnergpnamegdefaultC5 R��L
�
mJ78
�
�
�
�
�
�9:;
�
�<=>h(]1�&		�"	454�&		�"	455$�"&"�$ �&		�"	454	54
545$"$b$4�>"G"4
>"G$4�>"G"4>"G"4&">"G$)4>"G4�>"G"4>"G"45$�4>"G4>"G"=�$4�4�5$"4>"G�"���C�&		�"	45"���Cgrunner
	!gp	?	Rglog	R!gkind		R!gresults	��gsource-file	��gsource-line	��g	test-name	�glist	��gpair	��
gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	
��	�	��	"�	&��	%�	��	R�	��	^�	��	l�	��	o�	����	����	����	"����	����	����	����	"����	����	����	����	 ����	����	����	����	
����	����	 ����	)����	 ����	����	����	����	����	 ����	)����	 ���	���	���	���	
��$�	!��(�	��*�	)��0�	1��5�	
��C�	
��D�	��H�	��M�	��V�	��[�	��`�	��m�	
����	����	����	
����	����	
����	
����	
����	����	���	���	���	���	!���	���	���	���	���	����	
���	���	
��J	!gnamegtest-on-test-end-simple�CSR
�?
�@
�h`]4>"G4�>"G4>"G4�>"G6�gpair
		Zgport		Zgfilenamefsrfi/srfi-64/testing.scm�

��		��		��		��			��			��	#		��	,
	��	0
	��	7
	��	@	��	E		��	L	��	Z	��		Z	gnameg%test-write-result1�CR��J
�Kh`']�&		�"	4545$�C���&	�C6grunner
		Zgpname		Zgvalue			Zgalist			Zgp		(	Zgval		?	Zgfilenamefsrfi/srfi-64/testing.scm�

��		��		��	 	��	(	��	0	��	5	��	<	)��	?	#��	?	��		Z	gnamegtest-result-set!�C!R��Kh �]�&	�C6�grunner
		gfilenamefsrfi/srfi-64/testing.scm�

��		��		��		��		gnamegtest-result-clear�C"R��J
�h �]L&�C�4L�5�C�gr
		gfilenamefsrfi/srfi-64/testing.scm�
	#��	
	%��	
	3��		/��		7��		=��		7��		)��			gnamegloop�CKhh]�&		�"	4545$5OQ45�&	�C6Cgrunner
		ggpname		ggalist			ggp		(	ggloop		9	Jgval		J	egfilenamefsrfi/srfi-64/testing.scm�

��		��		��	 	��	(	��	0	��	9	#��	J	��			g	gnamegtest-result-remove�C#R+
�
m��JhP�-13�$�"454�&		�"	455$�CC�grest
			Ngrunner		Ngp		@	Ngfilenamefsrfi/srfi-64/testing.scm�
!
��	"	��	"	��	"	!��	"	,��	"	��	#	��	##	��	&#	��
			N


gnamegtest-result-kind�C$R-=
�
m��JB	h`�-13�$�"454�&		�"	455$�"6�grest
			Ygrunner		Ygp		B	Ugfilenamefsrfi/srfi-64/testing.scm�
%
��	&	��	&	��	&	!��	&	,��	&	��	!'	
��	%'	"��	('	
��	Y'	��			Y


gnamegtest-passed?�C%R-$A��01723845
o6789�>h 
]4545�$L�&
�"	45��&
�"4>"G"M�$L�&�"	4	5��&�"4
>"G"��$N�&		�"	45��&	�"4
>"G"��$N�&		�"	45��&	�"4>"G"J�&		�"	45��&	�"4>"G�&		�"	45��&	�"4>"G�&		�"	456gr
	gresult-kind	gval		6	cgval	��gval	�gval	8fgval	��gval	��gfilenamefsrfi/srfi-64/testing.scm�
)
��	*	��	*	��	
+	��	*	��	,	��	.	'��	6.	"��	6.	��	p,	��	s0	'���0	"���0	���,	���2	(���2	#���2	��,	��4	(��84	#��84	��m6	'���6	"���6	���7	&���7	!���7	��8	��	
gnameg%test-report-result�CCR4fDhk	`TUVfhJ]���CBgdummy
		gtest-expression					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
=	��		"g
macro-typegsyntax-rules�gpatternsgtest-expressionC5DRghij
�
�k���h��])45$
45"$
45"$�"$
��"	4
5�45�6�gform
		|g	src-props			|gfile			|gline		5	|g
file-alist		J	|g
line-alist		`	|gfilenamefsrfi/srfi-64/testing.scm�
p	��	q	��		q	��	r	��	r	 ��	r	4��	r	 ��	q	��	's	��	(s	 ��	.s	4��	0s	 ��	5q	��	=t	��	?u	��	Jv	��	Jq	��	Rw	��	Tx	��	Wx	-��	Xx	��	`y	��	`q	��	h{	��	i{	'��	p{	��	|z	��		|gnameg%test-source-line2�C�R
p��<
n
�
mJ	h��]	4>"G4�&		�"	45>"G4�&		�"	455$�"��C�gr
		ygp	c	vgfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	�	��	A�	��	B�	��	F�	%��	I�	��	w�	��	x�	��
		ygnameg%test-on-test-begin�C�R!
m
���J
o8A7hh]
4�&		�"	455$�"&$""$	"
6	gr
		egresult		egp		*	=gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��		�	��	
�	2��	�	��	?�	@��	C�	��	I�	��	K�	%��	Q�	,��	[�	��	]�	%��	c�	+��	e�	��		e	gnameg%test-on-test-end�C�R
�
���J
�h8�]	4�&		�"	455$�CC�grunner
		3gp	$	3gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	�	��	
�	��	2�	%��		3gnamegtest-runner-test-name�C/R4f�hk�������������
hXv]��	��
����Cngdummy
		Vgr		Vgcomp			Vgexpected			Vgexpr			V		V	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgrgcompgexpectedgexprC5�R��h`N]"45454545L��$%L��$L��$	L��CCCCFgvalue
		Ygexpected		Ygrval			Ygival			Ygrexp			Ygiexp			Ygfilenamefsrfi/srfi-64/testing.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	-�	��	.�	��	2�	��	9�	��	:�	��	>�	��	E�	��	F�	��	J�	��	Q�	��	R�	��		Y	Ch~]OCvgerror
		
gfilenamefsrfi/srfi-64/testing.scm�
�
��		
gnameg%test-approximate=�C�R4f�hk
�����������hHN]��	��
���CFgdummy
		Agr		Agexpr			A		A	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgrgexprC5�R4f
h��k��hU]CMgmac
		g
suite-name		gline						C���h=]C5gmac
		gline					C��
hP�]4545$@45$@	6�gx
		Lgtmp		Lgtmp			Lgtmp		5	Lgfilenamefsrfi/srfi-64/testing.scm�
�	��	�	0��	�	��	�	��	�	��		LC5
R4fh��k�
	h8b]CZgmac
		4gtname		4gexpr			4gline			4		4	C� !h O]CGgmac
		gexpr		gline						C��
hP�]4545$@45$@	6�gx
		Lgtmp		Lgtmp			Lgtmp		5	Lgfilenamefsrfi/srfi-64/testing.scm�
�	��	�	0��	�	��	�	��	�	��		LC5R(�k)489:5;>?	h8�]C�gmac
		8gtname		8gexpected			8gexpr			8gline			8gcomp			8		8	C@JOPKQh w]Cogmac
		 gexpected		 gexpr			 gline			 gcomp			 		 	C��
hP�]4545$@45$@	6�gcomp
		Ngx		Ngtmp			Ngtmp		 	Ngtmp		7	Ngfilenamefsrfi/srfi-64/testing.scm�
�	��	�	.��	�	��	�	��	�	��		N	gnameg%test-comp2�CRR4fhRXhe]6]gx
		
gfilenamefsrfi/srfi-64/testing.scm�
�	��	
�	��		
C5R4fhR]he]6]gx
		
gfilenamefsrfi/srfi-64/testing.scm�
�	��	
�	��		
C5R4fhRche]6]gx
		
gfilenamefsrfi/srfi-64/testing.scm�
�	��	
�	��		
C5R4fhh�kitxyzu{~�
h@�]	C�gmac
		=gtname		=gexpected			=gexpr			=gerror			=gline			=		=	C�������h(x]Cpgmac
		%gexpected		%gexpr			%gerror			%gline			%		%	C��
hP�]4545$@45$@	6�gx
		Lgtmp		Lgtmp			Lgtmp		5	Lgfilenamefsrfi/srfi-64/testing.scm�
�	��	�	0��	�	��	�	��	�	��		LC5R4f�hk�����������������h`a]��	
���

���������CYgdummy
		^gr		^getype			^gexpr			^		^	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
!	��		"g
macro-typegsyntax-rules�gpatternsgrgetypegexprC5�R4fh��k���������	h8u]Cmgmac
		6gtname		6getype			6gexpr			6gline			6		6	C������h b]CZgmac
		getype		gexpr			gline						C�������h O]CGgmac
		gexpr		gline						C��hh�]!4545$@45$@45$	@
6�gx
		cgtmp		cgtmp			cgtmp		5	cgtmp		L	cgfilenamefsrfi/srfi-64/testing.scm�
|	��	}	0��	}	��	}	��	}	��		cC5R+��Q
e
��.+hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�
�	��		
C+hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�
�	��		
CD+hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�
�	��		
C+hL]L6Dgfilenamefsrfi/srfi-64/testing.scm�
�	��		
Ch�.-13"Y45$��&		�"	45(945�&	�"4>"G6&	"��&	�"4>"G4>"G�&	�C64	545
OO4
O>"GV4>"GX4O>"G�&		�"	456�$r�&e45
OO4
O>"GV4>X4O>"GCX4O>"GF"��."��*&gfirst
		�grest		�gr		fgrun-list		5�gval		D	rgval	��gr	�fgsaved-runner	�Ggsaved-runner	{�	gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��	�	��	�	��	�	��	5�	��	=�	��	>�	/��	D�	��	v�	��	}�	����	,����	9����	����	����	����	����	����	���	"��0�	��J�	��f�	��i�	��m�	��p�	��w�	����	����	��		�
gnameg
test-apply�CR4fhkh(S]�����CKgdummy
		%grunner		%gform			%		%	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgrunnergformg...C5Rh �]M�NML�$	MLL��CC�grunner
		gfilenamefsrfi/srfi-64/testing.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��		Ch�]

HOC�gn
		gcount		gi			gfilenamefsrfi/srfi-64/testing.scm�
�
��	�	��			gnameg%test-match-nth�CR4fhk	`*,h<]��C4gdummy
		gn					C
�5hO]CGgdummy
		gn		gcount						C��h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-64/testing.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgngngcountC5Rh8�]H"%(JC4�5$"K�"���L"����grunner
		6gresult		6gl				.gfilenamefsrfi/srfi-64/testing.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	%�	��	(�	��	.�	��	.�	��
		6Ch�-13OCyg	pred-list
			gfilenamefsrfi/srfi-64/testing.scm�
�
��			


gnameg%test-match-all�C6R4fhk�E�Gh:]C2gtmp-46961e5187-512
		
		
Ch?]45�C7gdummy
		gpred					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgpredg...C5Rh8�]H"%(JC4�5$K"�"���L"����grunner
		6gresult		6gl				.gfilenamefsrfi/srfi-64/testing.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	!�	��	(�	��	.�	��	.�	��
		6Ch�-13OCyg	pred-list
			gfilenamefsrfi/srfi-64/testing.scm�
�
��			


gnameg%test-match-any�CHR4fhk�U�Vh:]C2gtmp-46961e5187-51c
		
		
Ch?]45�C7gdummy
		gpred					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgpredg...C5RWX
�
iYh@�]45$C45$645$66�g	specifier
		9gfilenamefsrfi/srfi-64/testing.scm�
�
��	�		��	
�	��	�		��	�	��	"�	��	#�		��	-�	��	3�	��	7�	��	9�		��		9gnameg%test-as-specifier�CFR4fhk�fklgmn�oh:]C2gtmp-46961e5187-526
		
		
Cr
h(?]45�	��C7gdummy
		#gpred		#		#	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgpredg...C5R4fhk��������h:]C2gtmp-46961e5187-530
		
		
C�
h(?]45�	��C7gdummy
		#gpred		#		#	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-64/testing.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgpredg...C5R/hs]L45�Ckgrunner
		
gfilenamefsrfi/srfi-64/testing.scm�
	��		��		��		
Chz]OCrgname
		
gfilenamefsrfi/srfi-64/testing.scm�

��		
gnamegtest-match-name�CR�����Y
i�	h8]45454455$4566	gstring
		5gport			5gform			5gfilenamefsrfi/srfi-64/testing.scm�

��		��			��		��		��		��		��	 	��	$	��	)
	��	/
	��	3
	��	5
	��		5gnamegtest-read-eval-string�CRC�gm
		(grtd
�gfilenamefsrfi/srfi-64.scm�		
��	)	4
��	.	4	��	6	4	&��	;	4
��gfilenamefsrfi/srfi-64/testing.scm�	D		��P�
���]�
���8�
�����
���h�
���l�
��؆�
��؇�	��ؒ�	��ؓ�	��ء�	��ِ�
���K�
�����
���\�
����
���
���8
����U
����^
���hh
���n
����v
���B}
����
�����
���H�
��c�
��q�
���
���
��t
���
��J!
���%
��.)
��"6p	��#��
��%U�
��&g�
��*��
��4�	��D�
��GF�
��K�
��N��
��Q��
��V�
��X$
��9	X&
C6statprof.go000064400000070760150536206130006750 0ustar00GOOF----LE-8-2.0�q]�4h_]gguile�	�	gdefine-module*�	�	�	gstatprof�	�	gfilenameS�		fstatprof.scm�	
gimportsS�	gsrfi�	gsrfi-1�	
�	
�	gsystem�	gvm�	�	�	gframe�	�	�	gprogram�	�	�	�	gexportsS�	gstatprof-active?�	gstatprof-start�	g
statprof-stop�	gstatprof-reset�	gstatprof-accumulated-time�	 gstatprof-sample-count�	!gstatprof-fold-call-data�	"gstatprof-proc-call-data�	#gstatprof-call-data-name�	$gstatprof-call-data-calls�	%gstatprof-call-data-cum-samples�	&gstatprof-call-data-self-samples�	'gstatprof-call-data->stats�	(gstatprof-stats-proc-name�	)gstatprof-stats-%-time-in-proc�	*gstatprof-stats-cum-secs-in-proc�	+g statprof-stats-self-secs-in-proc�	,gstatprof-stats-calls�	-g!statprof-stats-self-secs-per-call�	.g statprof-stats-cum-secs-per-call�	/gstatprof-display�	0gstatprof-display-anomolies�	1gstatprof-fetch-stacks�	2gstatprof-fetch-call-tree�	3g
with-statprof�	4ggcprof�	5 !"#$%&'()*+,-./01234�	6g	autoloadsS�	7gice-9�	8gformat�	978�	:8�	;9:�	<gset-current-module�	=<�	><�	?gaccumulated-time�	@glast-start-time�	Agsample-count�	Bgsampling-frequency�	Cgremaining-prof-time�	Dg
profile-level�	Eg
%count-calls?�	Fg
gc-time-taken�	Ggrecord-full-stacks?�	Hgstacks�	Igprocedure-data�	Jgmake-call-data�	Kgcall-data-proc�	Lgprocedure-name�	Mgcall-data-name�	Ngwith-output-to-string�	Ogwrite�	Pgcall-data-printable�	Qgcall-data-call-count�	Rgcall-data-cum-sample-count�	Sgcall-data-self-sample-count�	Tginc-call-data-call-count!�	Uginc-call-data-cum-sample-count!�	Vg inc-call-data-self-sample-count!�	Wgmake-syntax-transformer�	XW�	YW�	Zgaccumulate-time�	[gmacro�	\g$sc-dispatch�	]\�	^\�	_g_�	`gany�	a_`��	bg
syntax->datum�	cb�	db�	eg
datum->syntax�	fe�	ge�	hgset!�	ig+�	je0.0�	kg-�	l@�	mgsyntax-violation�	nm�	om�	pf-source expression failed to match any pattern�	qgprogram?�	rgprogram-num-free-variables�	sgprogram-objcode�	tg	hashq-ref�	ug
hashq-set!�	vg
get-call-data�	wgstack-length�	xgframe-procedure�	yg
count-call�	zgframe-previous�	{gmake-hash-table�	|g	hash-fold�	}gand=>�	~g	stack-ref�	gsample-stack-procs��ginside-profiler?��gget-internal-run-time��g
make-stack��gprofile-signal-handler��gpk��gwhat!��gset-vm-trace-level!��gthe-vm��gvm-trace-level��g	setitimer��gITIMER_PROF��gassq��ggc-stats��g	add-hook!��g
vm-apply-hook��gremove-hook!��gerror��f/Can't reset profiler while profiler is running.��g	sigaction��gSIGPROF��f:Can't call statprof-fold-called while profiler is running.��e100.0��e1.0��gmax��gstats-sorter��gcurrent-output-port��fNo samples recorded.
��gsort��f!~5a ~10a   ~7a ~8a ~8a ~8a  ~8@a
��f%  ��f
cumulative��fself��f��ftotal��f ~5a  ~9a  ~8a ~8a ~8a ~8a  ~8@a
��ftime��fseconds��fcalls��fms/call��fname��f~5a ~10a   ~7a  ~8@a
��f%��f~5a  ~10a  ~7a  ~8@a
��gfor-each��f#~6,2f ~9,2f ~9,2f ~7d ~8,2f ~8,2f  ��f~6,2f ~9,2f ~9,2f  ��gdisplay��gnewline��f---
��g
simple-format��fSample count: ~A
��f*Total time: ~A seconds (~A seconds in GC)
��ginternal-time-units-per-second��f
==[~A ~A ~A]
��fTotal time: ~A
��f5Can't get accumulated time while profiler is running.��gprocedure=?��gmap��glists->trees��gcadr��gfind��g	assq-set!��gfilter��gidentity��gunfold-right��gstack->procedures��gloopS������ghzS���	���gcount-calls?S���	���gfull-stacks?S���	���������ginexact->exact��gfloor��e	1000000.0��fInvalid macro body��gkeyword?��geq?��g@�����glambda���	�������g
after-gc-hook�C5h0]F]4	
56;5	4>>"G?R@RARBRCR
DRER
FRGRHRIRh�]C�gproc
		g
call-count		gcum-sample-count			gself-sample-count			gfilenamefstatprof.scm�
�
��	
�	��			gnamegmake-call-data�CJRht]
�Clgcd
		gfilenamefstatprof.scm�
�
��	�	��		gnamegcall-data-proc�CKRLKh}]456ugcd
		
gfilenamefstatprof.scm�
�
��	�	,��	
�	��		
gnamegcall-data-name�CMRMNOKhR]4L56Jgfilenamefstatprof.scm�
�	��	�	/��	
�	(��		
Ch �]	45$CO6�gcd
		gt			gfilenamefstatprof.scm�
�
��	�	��		�	��	�	��		gnamegcall-data-printable�CPRhz]�Crgcd
		gfilenamefstatprof.scm�
�
��	�	"��		gnamegcall-data-call-count�CQRh�]	�Cxgcd
		gfilenamefstatprof.scm�
�
��	�	(��		gnamegcall-data-cum-sample-count�CRRh�]	�Cygcd
		gfilenamefstatprof.scm�
�
��	�	)��		gnamegcall-data-self-sample-count�CSRh�]���C�gcd
		
gfilenamefstatprof.scm�
�
��		�	��	
�	��	�	��		
gnameginc-call-data-call-count!�CTRh�]		���C�gcd
		gfilenamefstatprof.scm�
�
��	�	��	�	��	
�	��		gnameginc-call-data-cum-sample-count!�CURh�]		���C�gcd
		gfilenamefstatprof.scm�
�
��	�	��	�	��	
�	��		gnameg inc-call-data-self-sample-count!�CVR4YZ[^adgh?ijklh `]��CXg	stop-time
		gfilenamefstatprof.scm�
�
��	�	��		Cha]	45L4?6Ygargs
		gv			gfilenamefstatprof.scm�	�
��		Coph(_]	45$O@6Wgy
		'gtmp		'gfilenamefstatprof.scm�
�
��		'C5ZRqrstIJuhp#]45�$"	45
�$"4545$C4


54>"GCgproc
		ogt	
	#gk	4	ogt		?	og	call-data		T	ogfilenamefstatprof.scm�
�
��	�	��	
�	��	
�	��	�	��	�	��	'�	��	.�	��	4�	��	7�	��	?�	��	K�	��	T�	��	W�	
��		ognameg
get-call-data�CvRwGHAxyz{u|Uvh�]456�gproc
		
gval		
gaccum			
gfilenamefstatprof.scm�
�		��	�	��	
�	��		
	C}vV~h�])H4>"G$� "� "�$�45$Z&K454	
5"���4	>"G45$""���45"��|4
>"G44
5>"!G"4
54	
5"��+JC�gstack
		ghit-count-call?		gframe		1�g
procs-seen		1�gself		1�gt		>�gfilenamefstatprof.scm�
�
��	�	��	�	��	�	��	"�	��	$�	��	+�	��	-�	��	1�	��	7�	��	8�	��	>�	��	N�	
��	Q	��	R	��	Y	,��	j	��	k	���	���		���	���	���	����	����	����	����	����	����	����	���	�� 		gnamegsample-stack-procs�CR�R�D�����E���?j@��Bh�S] 
�$�4545$"
445545$"7	$$4
454455�>"G"
��� 
4

��>"G$"145 	$$4
454455�>"G"" CKgsig
	�g	stop-time	�gt			:gstack		:�ginside-apply-trap?		C�gfilenamefstatprof.scm�

��		��		��	
	��		��		��		��		��	+	��	/	��	0	#��	7	��	:	��	=	!��	C	��	K!	��	U)	��	V*	��	Y*	'��	^+	+��	a+	;��	g+	+��	h+	'��	m*	��	}�	���,	���.	���0	���1	���.	���3	���5	$���5	���6	���7	���7	'���8	+���8	;���8	+���8	'���7	���:	��+	�gnamegprofile-signal-handler�C�R�?j�@}xTvhe]456]gproc
		
gfilenamefstatprof.scm�
E	��	G	��	
F	��		
C	h@�]$C�45�� 445>"G45 C�gframe
		<gfilenamefstatprof.scm�
?
��	@	��	�	��	B	��	B	��	D	��	D	��	+D	��	4I	��	:I	��		<gnameg
count-call�CyRDh�]
�C�gfilenamefstatprof.scm�
M
��	P	��		
gnamegstatprof-active?�g
documentationfuReturns @code{#t} if @code{statprof-start} has been called more times
than @code{statprof-stop}, @code{#f} otherwise.�CRDC�@�F�F��BE���y��h�U]� �$�$�
�$"�
�" 45 4455� $4	


��>"G"4	


��>"G$ 4
4455>"G"4454455�>"GCCMgrpt
	�gt		4guse-rpt?	9�gfilenamefstatprof.scm�
S
��	W	��	W	��	X	��	X	��	Y	��	Z	��	[	+��	[	 ��	[	��	/\	+��	0\	 ��	9Y	��	>]	��	?^	��	E^	��	F`	��	J`	��	K`	(��	Q`	��	R`	��	T_	��	Za	��	[b	��	db	'��	gb	1��	lb	��	yc	���e	���f	���c	���g	���h	���h	���h	&���h	���h	���i	���i	���i	*���i	:���i	*���i	&���i	��-	�
gnamegstatprof-start�g
documentationfStart the profiler.@code{}�CRD�F�F���E��y��C?j�@h��]� 
�$z4455�� 4454455�>"G	$ 4
4455>"G"4




5 �45��  CC�gfilenamefstatprof.scm�
m
��	q	��	q	��	
r	��	r	��	u	��	u	��	u	+��	u	��	u	��	u	��	!t	��	"v	��	%v	��	*v	*��	-v	:��	3v	*��	4v	&��	9v	��	Gw	��	Hx	��	Kx	��	Nx	)��	Tx	��	[x	��	h{	"��	t{	��	x�	��	z|	���|	���}	�� 	�
gnameg
statprof-stop�g
documentationfStop the profiler.@code{}�CRD��E?@ABC{IGH���hx�-.,3#
�$4>"G" 
  
 �  	4
�5   
4>"GC�gsample-seconds
		qgsample-microseconds		qgcount-calls?			qgfull-stacks?			qgfilenamefstatprof.scm�

��	�	��	�	��	�	��	"�	
��	'�	��	7�	��	:�	��	=�	��	@�	��	E�	��	G�	��	J�	��	K�	��	T�	��	X�	��	Y�	��	[�	��	\�	��		q	gnamegstatprof-reset�g
documentationfVReset the statprof sampler interval to @var{sample-seconds} and
@var{sample-microseconds}. If @var{count-calls?} is true, arrange to
instrument procedure calls as well as collecting statistical profiling
data. If @var{full-stacks?} is true, collect all sampled stacks into a
list for later analysis.

Enables traps and debugging as necessary.�CRD��|h�]L6�gkey
		
gvalue		
gprior-result			
gfilenamefstatprof.scm�
�	��	
�	��		
	CIh0]
�$4>"G"O6gproc
		/ginit		/gfilenamefstatprof.scm�
�
��	�	��	
�	��	�	��	�	
��	�	��	/�	��		/	gnamegstatprof-fold-call-data�g
documentationf7Fold @var{proc} over the call-data accumulated by statprof. Cannot be
called while statprof is active. @var{proc} should take two arguments,
@code{(@var{call-data} @var{prior-result})}.

Note that a given proc-name may appear multiple times, but if it does,
it represents different functions with the same name.�C!RD��tIh(]
�$4>"G"6gproc
		(gfilenamefstatprof.scm�
�
��	�	��	
�	��	�	��	�	
��	�	��	(�	��		(gnamegstatprof-proc-call-data�g
documentationfTReturns the call-data associated with @var{proc}, or @code{#f} if
none is available.�C"RPSR E$��j�h��]1454545454545�$45"���	��	�$
�$
"�	��"$�	�45�"C�g	call-data
	�g	proc-name		�gself-samples		�gcum-samples		�gall-samples		"�gsecs-per-sample		/�g	num-calls		C�gfilenamefstatprof.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	"�	��	%�	��	*�	��	/�	��	/�	��	7�	��	8�	'��	C�	��	L�	��	N�	,��	O�	��	T�	��	V�	+��	W�	��	\�	��	^�	,��	_�	��	g�	��	j�	��	o�	��	q�	*��	z�	��	|�	9��	}�	����	����	����	����	����	����	����	��(	�gnamegstatprof-call-data->stats�g
documentationf0Returns an object of type @code{statprof-stats}.�C'Rh�]
�Cygstats
		gfilenamefstatprof.scm�
�
��	�	)��		gnamegstatprof-stats-proc-name�C(Rh�]�C~gstats
		gfilenamefstatprof.scm�
�
��	�	.��		gnamegstatprof-stats-%-time-in-proc�C)Rh�]	�C�gstats
		gfilenamefstatprof.scm�
�
��	�	0��		gnamegstatprof-stats-cum-secs-in-proc�C*Rh�]	�C�gstats
		gfilenamefstatprof.scm�
�
��	�	1��		gnameg statprof-stats-self-secs-in-proc�C+Rh}]	�Cugstats
		gfilenamefstatprof.scm�
�
��	�	%��		gnamegstatprof-stats-calls�C,Rh�]	�C�gstats
		gfilenamefstatprof.scm�
�
��	�	2��		gnameg!statprof-stats-self-secs-per-call�C-Rh�]	�C�gstats
		gfilenamefstatprof.scm�
�
��	�	1��		gnameg statprof-stats-cum-secs-per-call�C.R+*h8�]
4545�
�$4545�"
�C�gx
		3gy		3gdiff			3gfilenamefstatprof.scm�
�
��	�	��	
�	��	�	��	�	��	�		��	�	��	�	��	#�	��	*�		��	1�	��		3	gnamegstats-sorter�C�R� 8�!'h~]45�Cvgdata
		
gprior-value		
gfilenamefstatprof.scm�
�	��	�	 ��	�	��		
	C��E����������������E8�)*+,-.��(�h�=]$J4M45454545�45��4	5�>"G")4M
454545>"G445M>"G
M65gstats
	�gfilenamefstatprof.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	%�	��	/�	��	6�	��	:�	��	A�	��	F�	��	S�	��	Y�	��	Z�	��	a	��	h	��	s�	��	|	��		���	���	��	�gnamegdisplay-stats-line�C�����F��$h(�-13HJ(45K"45
�$J64545	$H4J


>	"G4J>	"G"84J
>"G4J>"G4O>"G4J>"G445>"G4 5!"�#�6�gport
	
%g
stats-list	9%gsorted-stats		D%gfilenamefstatprof.scm�
�
��	�	��	�	��	�	��	�	��	$�	��	)�	��	/�	��	1�	��	2�	��	7�	��	9�	��	9�	��	<�	��	D�	��	L	��	M	��	S	��	U	��	W	��	Y	(��	[	/��	]	2��	_	9��	a	A��	f	��	o		��	u		��	w
	��	y
	��	{
	&��	}
	0��	
	8���
	B���
	L���		���	���	���
	���
	���
	&���
	-���	���	���	���	���	���	&���	0���	���	���	���	���	���	���	��	-��		��	��	��	&�� 	��%	��@		%


gnamegstatprof-display�g
documentationf�Displays a gprof-like summary of the statistics collected. Unless an
optional @var{port} argument is passed, uses the current output port.�C/R!EQR��MhH�]$:45
�$+45
�$4545456CCC�gdata
		Dgprior-value		Dgfilenamefstatprof.scm�
	��		��			��		��			��	 	��	 	��	"		��	'"	��	(#	��	/$	��	6%	��	>!		��		D	C��� h@]4>"G445>"G456
gfilenamefstatprof.scm�

��		��	'	��	'	��	'	'��	%'	��	2(	��	3(	)��	9(	��
		9
gnamegstatprof-display-anomolies�g
documentationfQA sanity check that attempts to detect anomolies in statprof's
statistics.@code{}�C0RD��?�h(�]
�$4>"G"�C�gfilenamefstatprof.scm�
*
��	,	��	
,	��	-	��	-	
��	-	��	%.	��		&
gnamegstatprof-accumulated-time�g
documentationfAReturns the time accumulated during the last statprof run.@code{}�CRD��Ah(�]
�$4>"G"C�gfilenamefstatprof.scm�
0
��	2	��	
2	��	3	��	3	
��	3	��		#
gnamegstatprof-sample-count�g
documentationfHReturns the number of samples taken during the last statprof run.@code{}�C RMi#RQi$RRi%RSi&RHh>]C6gfilenamefstatprof.scm�
;
��		
gnamegstatprof-fetch-stacks�g
documentationf�Returns a list of stacks, as they were captured since the last call
to @code{statprof-reset}.

Note that stacks are only collected if the @var{full-stacks?} argument
to @code{statprof-reset} is true.�C1Rqsh8�]&C45$45$4545�CCC�ga
		6gb		6gfilenamefstatprof.scm�
D	��	
E	��	F	��	
G	��	E	��	G	��	"G	��	#H	��	*H	��	1H	��		6	gnamegprocedure=?�C�R��h�]�4�L5�Cxgtail
		gfilenamefstatprof.scm�
R	��	S	 ��	T	 ��	T	.��	T	 ��	S	��		Ci��hz]�����Crga
		gb		gfilenamefstatprof.scm�
X	��	X	%��		X	.��	X	"��			C�hk]L�L��6cgx
		
gfilenamefstatprof.scm�
[	��	[	 ��	
[	(��	
[	��		
C�
h�]""�(+4O5445?45�C�(��"���4O5$!�4	�����5"��}������"��`
"��Rglists
	�gequal?	�gin		�g
n-terminal		�gtails		�gtrees			7gt		`�gfilenamefstatprof.scm�
N
��	O	��	P	��	
R	��	R	��	V	��	"V	"��	,V	��	-W	��	6V	��	:Y	
��	>P	��	AZ	
��	DZ	��	PZ	��	Q[	��	`P	��	k^	��	n`	��	ua	��	xb	 ��	|b	*��	}b	��	`	���^	���d	
���f	���f	!���f	���f	
���d	���O	���O	,���O	��#	�	gnameglists->trees�C�R���hY]�CQgx
		gfilenamefstatprof.scm�
j	��	j	$��		Cxz~h �]44
556�gstack
		gfilenamefstatprof.scm�
h
��	j	
��	m	��	j	
��	i	��		gnamegstack->procedures�C�R���H�hT]4455�CLgfilenamefstatprof.scm�
o
��	v	��	v	��	v	��	v	��		
gnamegstatprof-fetch-call-tree�g
documentationf�Return a call tree for the previous statprof run.

The return value is a list of nodes, each of which is of the type:
@code
 node ::= (@var{proc} @var{count} . @var{nodes})
@end code�C2R�h0�]

�$E4L>G�"����gi
		)gresult		)gresult			)gfilenamefstatprof.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	)�	��		)	gnameglp�Ch l]OLQL6dglp
		gfilenamefstatprof.scm�
�	��	�	��	�	��	�	��		
C���h@�]444L�554L�4L�5��5LL>"G6�gfilenamefstatprof.scm�
�	��	�	��	�	��		�	&��	�	-��	�	&��	�	��	�	��	�	)��	�	0��	�	0��	#�	7��	%�	0��	&�	-��	'�	&��	)�	��	2�	��	>�	��		>
C/Ih([]4>"G4>"G CSgfilenamefstatprof.scm�
�	��	�	��	�	��	%�	��		'
C���h@�]444L�554L�4L�5��5LL>"G6�gfilenamefstatprof.scm�
�	��	�	��	�	��		�	&��	�	-��	�	&��	�	��	�	��	�	)��	�	0��	�	0��	#�	7��	%�	0��	&�	-��	'�	&��	)�	��	2�	��	>�	��		>
C/Ih([]4>"G4>"G CSgfilenamefstatprof.scm�
�	��	�	��	�	��	%�	��		'
C/Ih([]4>"G4>"G CSgfilenamefstatprof.scm�
�	��	�	��	�	��	%�	��		'
Ch�.-/03##	d##OQO4O>"GV4>X4>"GCX4>"GF&gthunk
	�gloop	�ghz		�gcount-calls?		�gfull-stacks?		�gthunk		A�gfilenamefstatprof.scm�
x
��	A�	��	�
gloopS�ghzS	�gcount-calls?S	�gfull-stacks?S	�gnamegstatprof�g
documentationf�Profile the execution of @var{thunk}, and return its return values.

The stack will be sampled @var{hz} times per second, and the thunk
itself will be called @var{loop} times.

If @var{count-calls?} is true, all procedure calls will be recorded. This
operation is somewhat expensive.

If @var{full-stacks?} is true, at each sample, statprof will store away the
whole call tree, for later analysis. Use @code{statprof-fetch-stacks} or
@code{statprof-fetch-call-tree} to retrieve the last-stored stacks.�CR4Y3[^adg����hP	](64�5$ �&��C��"���45$CCgkw
		Ngargs		Ngdef			Ngfilenamefstatprof.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	&�	
��	-�	��	:�	
��	;�	��	H�	��		N	gnameg
kw-arg-ref�C������h`�-13OQ45��454	d54545
C�gargs
			[g
kw-arg-ref		[gfilenamefstatprof.scm�
�
��	�	��	�	��	%�	��	)�	��	4�	��	5�	
��	A�	��	B�	��	M�	��	N�	��	Z�	��
			[


Cha]	45L4?6Ygargs
		gv			gfilenamefstatprof.scm�	�
��		Coph(w]	45$O@6ogy
		'gtmp		'gfilenamefstatprof.scm�
�
��		'g
documentationf�Profile the expressions in the body, and return the body's return values.

Keyword arguments:

@table @code
@item #:loop
Execute the body @var{loop} number of times, or @code{#f} for no looping

default: @code{#f}
@item #:hz
Sampling rate

default: @code{20}
@item #:count-calls?
Whether to instrument each function call (expensive)

default: @code{#f}
@item #:full-stacks?
Whether to collect away all sampled stacks into a list

default: @code{#f}
@end table�g
macro-typegdefmacro�g
defmacro-argsgargsC53R������?j@
hx.]$C 454L
5$"
44554>"G�	�� 45 	 C&gt
		tgt
	!	?g	stop-time
	?	ogstack	?	ogfilenamefstatprof.scm�
�	��	�	��	�	��	�	��	�	��	!�	��	0�	��	4�	��	5�	"��	<�	��	?�	��	D�	��	Y�	��	b�	��	c�	��	i�	��	r�	��		t
gnameggc-callback�CD��?@AE{IGHC��F�F�����h��]
�$4>"G"
  
  4�5 	L 
 � �$O 4
5 4455� 4L>"G4454455�>"GCCygfilenamefstatprof.scm�
	��	�	��	
�	��	�	��	�	��	�	��	#�	��	&�	��	)�	��	,�	��	-�	��	6�	��	:�	��	;�	��	=�	��	@�	��	B�	��	F�	��	J�	��	M�	
��	N�	 ��	T�	
��	U�	#��	Y�	)��	Z�	8��	`�	#��	a�	��	c�	
��	d�	
��	x�	
��	{�	����	,����	<����	,����	(����	
��%	�
Ch8�]"#
�$C4L>"G�"���L"����gi
		)gfilenamefstatprof.scm�
	��		��				��			��		��	#	��	)	��	)	��			1
CD�F�F��?j�@/Ihh�]� 
�$=4455�� 4L>"G	�4
5��  "4>"G 
C�gfilenamefstatprof.scm�

	��	�	��	�	��	
�	��	�	��	�	��	�	��	�	-��	�	��	�	��	�	��	!�	
��	"�	
��	9�	��	;	��	E	
��	H	
��	M	��	_	��		a
Ch�W-/03##OQOOOQQQ4>"GV4>X4>"GCX4>"GFOgthunk
	�gloop	�gfull-stacks?		�ggc-callback		-�gpre		L�gthunk		L�gpost		L�gfilenamefstatprof.scm�
�
��	;	��	�
gloopS�gfull-stacks?S	�gnameggcprof�g
documentationf+Do an allocation profile of the execution of @var{thunk}.

The stack will be sampled soon after every garbage collection, yielding
an approximate idea of what is causing allocation in your program.

Since GC does not occur very frequently, you may need to use the
@var{loop} parameter, to cause @var{thunk} to be called @var{loop}
times.

If @var{full-stacks?} is true, at each sample, statprof will store away the
whole call tree, for later analysis. Use @code{statprof-fetch-stacks} or
@code{statprof-fetch-call-tree} to retrieve the last-stored stacks.�C4RC>gm
		0gfilenamefstatprof.scm�		}
��	4�
��	8�
��	<�
��	@�
��	D�
��	H�
��	L�
��	P�
��	T�
��	U�	��	X�
��	\�
��F�
����
��p�
����
��E�
����
��t�
��$�
����
����
���
���
��
���
��.?
��;M
���S
��m
���
��!��
��"��
��&��
��'�
��'��
��([�
��(��
��)��
��*5�
��*��
��,�
��3��
��6p
��7�*
��8�0
��8�6
��8�7
��8�8
��8�9
��:Q;
��;kC
��@"N
��Ahh
��B�o
��L�x
��]*�
��;	],
C6rnrs.go000064400000052471150536206130006071 0ustar00GOOF----LE-8-2.0!U]�4h,D]gguile�	�	gdefine-module*�	�	�	grnrs�	�	gfilenameS�		frnrs.scm�	
gpureS�	gversionS�		�	
gset-current-module�	
�	
�	gresolve-r6rs-interface�	�	�	g
arithmetic�	gbitwise�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	�	gfixnums�	 �	!gflonums�	"!�	#gbase�	$#�	%gbytevectors�	&%�	'g
conditions�	('�	)gcontrol�	*)�	+genums�	,+�	-g
exceptions�	.-�	/gfiles�	0/�	1g
hashtables�	21�	3gio�	4gports�	534�	6gsimple�	736�	8glists�	98�	:gprograms�	;:�	<grecords�	=g
inspection�	><=�	?g
procedural�	@<?�	Ag	syntactic�	B<A�	Cgsorting�	DC�	Egrename�	Fgsyntax-case�	GF�	Hgsyntax-case-hack�	IFH�	JEGI�	Kgunicode�	LK�	Mgmodule-export!�	NM�	OM�	Pgmodule-re-export!�	QP�	RP�	Sgstring-normalize-nfkc�	Tgstring-normalize-nfc�	Ugstring-normalize-nfkd�	Vgstring-normalize-nfd�	Wgstring-ci>=?�	Xgstring-ci<=?�	Ygstring-ci>?�	Zgstring-ci<?�	[gstring-ci=?�	\gstring-foldcase�	]gstring-titlecase�	^gstring-downcase�	_g
string-upcase�	`gchar-general-category�	agchar-title-case?�	bgchar-lower-case?�	cgchar-upper-case?�	dgchar-whitespace?�	eg
char-numeric?�	fgchar-alphabetic?�	gg
char-ci>=?�	hg
char-ci<=?�	ig	char-ci>?�	jg	char-ci<?�	kg	char-ci=?�	lg
char-foldcase�	mgchar-titlecase�	ng
char-downcase�	ogchar-upcase�	pgsyntax-violation�	qgunsyntax-splicing�	rgunsyntax�	sgquasisyntax�	tgwith-syntax�	uggenerate-temporaries�	vg
datum->syntax�	wg
syntax->datum�	xgfree-identifier=?�	ygbound-identifier=?�	zgidentifier?�	{HF��	|gsyntax�	}gmake-variable-transformer�	~gvector-sort!�	gvector-sort��g	list-sort��grecord-constructor-descriptor��grecord-type-descriptor��gdefine-record-type��grecord-mutator��grecord-accessor��grecord-predicate��grecord-constructor��g"make-record-constructor-descriptor��grecord-type-descriptor?��gmake-record-type-descriptor��grecord-field-mutable?��grecord-type-field-names��grecord-type-opaque?��grecord-type-sealed?��grecord-type-generative?��grecord-type-uid��grecord-type-parent��grecord-type-name��g
record-rtd��grecord?��gexit��gcommand-line��gcons*��gassq��gassv��gassoc��gassp��gmemq��gmemv��gmember��gmemp��gremq��gremv��gremove��gremp��g
fold-right��g	fold-left��g	partition��gfilter��gexists��gfor-all��gfind��gwrite��gdisplay��gnewline��g
write-char��gread��g	peek-char��g	read-char��gclose-output-port��gclose-input-port��gopen-output-file��gopen-input-file��gwith-output-to-file��gwith-input-from-file��gcurrent-error-port��gcurrent-output-port��gcurrent-input-port��gcall-with-output-file��gcall-with-input-file��gstandard-error-port��gstandard-output-port��gstandard-input-port��g
put-string��g	put-datum��gput-char��glookahead-char��g
get-string-n!��gget-string-n��gget-string-all��gget-line��g	get-datum��gget-char��gflush-output-port��gcall-with-string-output-port��gmake-custom-textual-output-port��gopen-file-input/output-port��gopen-file-output-port��gopen-file-input-port��gutf-16-codec��gutf-8-codec��g
latin-1-codec��g call-with-bytevector-output-port��gopen-string-output-port��gopen-string-input-port��gput-bytevector��gput-u8��gmake-custom-binary-output-port��gopen-bytevector-output-port��gget-bytevector-all��gget-bytevector-some��gget-bytevector-n!��gget-bytevector-n��glookahead-u8��gget-u8��gmake-custom-binary-input-port��gopen-bytevector-input-port��gcall-with-port��g
close-port��gport-has-set-port-position!?��gport-has-port-position?��gset-port-position!��g
port-position��gtranscoded-port��g
textual-port?��gbinary-port?��gport-transcoder��g	port-eof?��g
eof-object��goutput-port?��ginput-port?��gport?��geof-object?��gnative-transcoder��gtranscoder-error-handling-mode��gtranscoder-eol-style��gtranscoder-codec��gmake-transcoder��gerror-handling-mode��gnative-eol-style��g	eol-style��gbuffer-mode?��gbuffer-mode��gfile-options��gsymbol-hash��gstring-ci-hash��gstring-hash�g
equal-hash�ghashtable-mutable?�ghashtable-hash-function�ghashtable-equivalence-function�ghashtable-entries�ghashtable-keys�ghashtable-clear!�ghashtable-copy�ghashtable-update!�	ghashtable-contains?�
ghashtable-delete!�ghashtable-set!�g
hashtable-ref�
ghashtable-size�g
hashtable?�gmake-hashtable�gmake-eqv-hashtable�gmake-eq-hashtable�gi/o-error-port�gi/o-port-error?�gmake-i/o-port-error�g	&i/o-port�gi/o-file-does-not-exist-error?�g"make-i/o-file-does-not-exist-error�g&i/o-file-does-not-exist�gi/o-file-already-exists-error?�g"make-i/o-file-already-exists-error�g&i/o-file-already-exists�gi/o-file-is-read-only-error?�g make-i/o-file-is-read-only-error�g&i/o-file-is-read-only�gi/o-file-protection-error?� gmake-i/o-file-protection-error�!g&i/o-file-protection�"gi/o-error-filename�#gi/o-filename-error?�$gmake-i/o-filename-error�%g
&i/o-filename�&gi/o-error-position�'gi/o-invalid-position-error?�(gmake-i/o-invalid-position-error�)g&i/o-invalid-position�*gi/o-write-error?�+gmake-i/o-write-error�,g
&i/o-write�-gi/o-read-error?�.gmake-i/o-read-error�/g	&i/o-read�0g
i/o-error?�1gmake-i/o-error�2g&i/o�3gdelete-file�4gfile-exists?�5graise-continuable�6graise�7gwith-exception-handler�8gguard�9gdefine-enumeration�:genum-set-projection�;genum-set-complement�<genum-set-difference�=genum-set-intersection�>genum-set-union�?g
enum-set=?�@genum-set-subset?�Agenum-set-member?�Bgenum-set->list�Cgenum-set-constructor�Dgenum-set-indexer�Egenum-set-universe�Fgmake-enumeration�Ggcase-lambda�Hgdo�Igunless�Jgwhen�Kgundefined-violation?�Lgmake-undefined-violation�Mg
&undefined�Ngsyntax-violation-subform�Ogsyntax-violation-form�Pgsyntax-violation?�Qgmake-syntax-violation�Rg&syntax�Sglexical-violation?�Tgmake-lexical-violation�Ug&lexical�Vg%implementation-restriction-violation?�Wg)make-implementation-restriction-violation�Xg&implementation-restriction�Ygnon-continuable-violation?�Zgmake-non-continuable-violation�[g&non-continuable�\g
condition-who�]gwho-condition?�^gmake-who-condition�_g&who�`gcondition-irritants�agirritants-condition?�bgmake-irritants-condition�cg
&irritants�dgassertion-violation?�egmake-assertion-violation�fg
&assertion�gg
violation?�hgmake-violation�ig
&violation�jgerror?�kg
make-error�lg&error�mgserious-condition?�ngmake-serious-condition�og&serious�pgwarning?�qgmake-warning�rg&warning�sgcondition-message�tgmessage-condition?�ugmake-message-condition�vg&message�wgdefine-condition-type�xgcondition-accessor�ygcondition-predicate�zg
condition?�{gsimple-conditions�|g	condition�}g
&condition�~g
utf32->string�g
utf16->string��gutf8->string��g
string->utf32��g
string->utf16��gstring->utf8��g"bytevector-ieee-double-native-set!��g!bytevector-ieee-double-native-ref��gbytevector-ieee-double-set!��gbytevector-ieee-double-ref��g"bytevector-ieee-single-native-set!��g!bytevector-ieee-single-native-ref��gbytevector-ieee-single-set!��gbytevector-ieee-single-ref��gbytevector-s64-native-set!��gbytevector-u64-native-set!��gbytevector-s64-native-ref��gbytevector-u64-native-ref��gbytevector-s64-set!��gbytevector-u64-set!��gbytevector-s64-ref��gbytevector-u64-ref��gbytevector-s32-native-set!��gbytevector-u32-native-set!��gbytevector-s32-native-ref��gbytevector-u32-native-ref��gbytevector-s32-set!��gbytevector-u32-set!��gbytevector-s32-ref��gbytevector-u32-ref��gbytevector-s16-native-set!��gbytevector-u16-native-set!��gbytevector-s16-native-ref��gbytevector-u16-native-ref��gbytevector-s16-set!��gbytevector-u16-set!��gbytevector-s16-ref��gbytevector-u16-ref��gsint-list->bytevector��guint-list->bytevector��gbytevector->uint-list��gbytevector->sint-list��gbytevector-sint-set!��gbytevector-sint-ref��gbytevector-uint-set!��gbytevector-uint-ref��gu8-list->bytevector��gbytevector->u8-list��gbytevector-s8-set!��gbytevector-u8-set!��gbytevector-s8-ref��gbytevector-u8-ref��guniform-array->bytevector��gbytevector-copy��gbytevector-copy!��gbytevector-fill!��gbytevector=?��gbytevector-length��gmake-bytevector��gbytevector?��gnative-endianness��g
endianness��gidentifier-syntax��gsyntax-rules��g
letrec-syntax��g
let-syntax��gunquote-splicing��gunquote��g
quasiquote��gapply��gvalues��gdynamic-wind��gcall-with-values��gcall/cc��gcall-with-current-continuation��gassert��gassertion-violation��gerror��gvector-for-each��g
vector-map��gvector-fill!��glist->vector��gvector->list��gvector-set!��g
vector-ref��g
vector-length��gvector��gmake-vector��gvector?��gstring-copy��gstring-for-each��glist->string��gstring->list��g
string-append��g	substring��g	string>=?��g	string<=?��gstring>?��gstring<?��gstring=?��g
string-ref��g
string-length��gstring��gmake-string��gchar>=?��gchar<=?��gchar>?��gchar<?��gchar=?��g
integer->char��g
char->integer��gsymbol=?��gstring->symbol��gsymbol->string��gfor-each��gmap��glist-ref��g	list-tail��greverse��gappend��glength��glist��glist?��gcddddr��gcdddar��gcddadr��gcdaddr��gcadddr��gcaddar��gcaaddr�gcadadr�gcdaadr�gcdadar�gcddaar�gcdaaar�gcadaar�gcaadar�gcaaadr�gcaaaar�	gcdddr�
gcddar�gcdadr�gcaddr�
gcdaar�gcadar�gcaadr�gcaaar�gcddr�gcdar�gcadr�gcaar�gcdr�gcar�gcons�g	boolean=?�gstring->number�gnumber->string�g>=�g<=�g>�g<�g=� ginexact�!gexact�"g	infinite?�#gfinite?�$gnan?�%geven?�&godd?�'g	negative?�(g	positive?�)gzero?�*ginteger-valued?�+grational-valued?�,greal-valued?�-ginexact?�.gexact?�/ginteger?�0g	rational?�1greal?�2gcomplex?�3gangle�4g	magnitude�5g
make-polar�6gatan�7gacos�8gasin�9gtan�:gcos�;gsin�<glog�=gexp�>gsqrt�?gexact-integer-sqrt�@gexpt�Ag
div0-and-mod0�Bgmod0�Cgdiv0�Dgdiv-and-mod�Egmod�Fgdiv�Ggmake-rectangular�Hg	imag-part�Ig	real-part�Jgrationalize�Kground�Lgtruncate�Mgceiling�Ngfloor�Oglcm�Pggcd�Qgdenominator�Rg	numerator�Sgabs�Tgmin�Ugmax�Vg/�Wg*�Xg-�Yg+�Zgeq?�[gequal?�\geqv?�]gnot�^gand�_gor�`gcase�agcond�bgset!�cgif�dglambda�egquote�fgbegin�ggletrec*�hgletrec�iglet*-values�jg
let-values�kglet*�lglet�mg
define-syntax�ngdefine�og
procedure?�pgstring?�qgnumber?�rgpair?�sgnull?�tgchar?�ugsymbol?�vgboolean?�wgfixnum->flonum�xgno-nans-violation?�ygmake-no-nans-violation�zg&no-nans�{gno-infinities-violation?�|gmake-no-infinities-violation�}g&no-infinities�~gflexpt�gflsqrt��gflatan��gflasin��gflacos��gfltan��gflcos��gflsin��gfllog��gflexp��gflround��g
fltruncate��g	flceiling��gflfloor��g
fldenominator��gflnumerator��gflmod0��gfldiv0��gfldiv0-and-mod0��gflmod��gfldiv��g
fldiv-and-mod��gflabs��gfl/��gfl-��gfl*��gfl+��gflmin��gflmax��gflnan?��gflinfinite?��g	flfinite?��gfleven?��gflodd?��gflnegative?��gflpositive?��gflzero?��g
flinteger?��gfl>=?��gfl>?��gfl<=?��gfl<?��gfl=?��greal->flonum��gflonum?��gfxreverse-bit-field��gfxrotate-bit-field��gfxarithmetic-shift-right��gfxarithmetic-shift-left��gfxarithmetic-shift��gfxcopy-bit-field��gfxbit-field��g
fxcopy-bit��g
fxbit-set?��gfxfirst-bit-set��gfxlength��gfxbit-count��gfxif��gfxxor��gfxior��gfxand��gfxnot��g	fx*/carry��g	fx-/carry��g	fx+/carry��gfxmod0��gfxdiv0��gfxdiv0-and-mod0��gfxmod��gfxdiv��g
fxdiv-and-mod��gfx-��gfx*��gfx+��gfxmin��gfxmax��gfxeven?��gfxodd?��gfxnegative?��gfxpositive?��gfxzero?��gfx<=?��gfx>=?��gfx<?��gfx>?��gfx=?��ggreatest-fixnum��gleast-fixnum��gfixnum-width��gfixnum?��gbitwise-reverse-bit-field��gbitwise-rotate-bit-field��gbitwise-arithmetic-shift-right��gbitwise-arithmetic-shift-left��gbitwise-arithmetic-shift��gbitwise-copy-bit-field��gbitwise-bit-field��gbitwise-copy-bit��gbitwise-bit-set?��gbitwise-first-bit-set��gbitwise-length��gbitwise-bit-count��g
bitwise-if��gbitwise-xor��gbitwise-ior��gbitwise-and��gbitwise-not��STUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~�������������������������������������������������������������������������������������������������������������������������������������	

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~��������������������������������������������������������������������������������������������������������������������������������	

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEF3GHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkld�mnopqrs�tuvwxyz{|}~������������������������������������������������������������������������������������������������������������gmodule-replace!�������C5h��]4	
54>"G454h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4 54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4"54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4$54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4&54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4(54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4*54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4,54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4.54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4054h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4254h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4554h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4754h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4954h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4;54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4>54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4@54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4B54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4D54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4J54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4L54h:]45L62gfilenamefrnrs.scm�
	
��		
CO>"G4Oh:]4562gfilenamefrnrs.scm�
	
��		
C>"G4R�h:]4562gfilenamefrnrs.scm�
	
��		
C>"G�h:]4562gfilenamefrnrs.scm�
	
��		
C6�gm
		+giface
	2�giface
�'giface
.�giface
�'giface
.�giface
�'giface
.�giface
�'giface
.�giface
�'giface
.�giface
�'giface
.�giface
�'giface
.�giface
�'giface
.�giface
�	'giface
	.	�giface
	�
'giface

.
�gfilenamefrnrs.scm�		
��	�
C6sxml/simple.go000064400000050334150536206130007355 0ustar00GOOF----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
C6sxml/transform.go000064400000015604150536206130010100 0ustar00GOOF----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
����
����
����
����
��	�
C6sxml/apply-templates.go000064400000004526150536206130011207 0ustar00GOOF----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
��	�
C6sxml/match.go000064400000277563150536206130007177 0ustar00GOOF----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
C6sxml/ssax/input-parse.go000064400000031005150536206130011303 0ustar00GOOF----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
C6sxml/xpath.go000064400000025456150536206130007217 0ustar00GOOF----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�
����
��%��
��	%�
C6sxml/ssax.go000064400000210602150536206130007036 0ustar00GOOF----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	��
C6sxml/fold.go000064400000022763150536206130007015 0ustar00GOOF----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
C6