Current File : /home/mmdealscpanel/yummmdeals.com/srfi.tar
srfi-67.go000064400000207571150352322600006302 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-14.go000064400000004707150352322600006266 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-8.go000064400000001153150352322600006201 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-9.go000064400000071676150352322600006223 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-17.go000064400000010767150352322600006274 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-19.go000064400000413373150352322600006276 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-88.go000064400000002574150352322610006302 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-16.go000064400000000704150352322610006262 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-26.go000064400000014614150352322610006270 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-4.go000064400000054423150352322610006206 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-18.go000064400000040543150352322610006271 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-37.go000064400000072526150352322610006300 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-34.go000064400000011613150352322620006264 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-6.go000064400000002167150352322620006207 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-35.go000064400000043344150352322620006273 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-27.go000064400000045051150352322620006271 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-60.go000064400000004120150352322620006256 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-4/gnu.go000064400000032320150352322620006770 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-11.go000064400000016544150352322620006267 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-1.go000064400000122634150352322620006204 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-10.go000064400000003523150352322620006257 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-28.go000064400000001370150352322620006266 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-38.go000064400000017670150352322620006301 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-13.go000064400000005572150352322620006270 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-69.go000064400000133275150352322620006305 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-98.go000064400000002403150352322620006273 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-9/gnu.go000064400000032341150352322620007000 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-41.go000064400000304156150352322620006271 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-43.go000064400000176476150352322620006307 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-31.go000064400000004314150352322620006261 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-39.go000064400000002504150352322620006270 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-45.go000064400000077560150352322620006303 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-64.go000064400000527654150352322620006310 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&
C6srfi-111.go000064400000037127150352322630006351 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-42.go000064400000310764150352322630006275 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-2.go000064400000001173150352322630006200 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		&��	;	
��		;
C6