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


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


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


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


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


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


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


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


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


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


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


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


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


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


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


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

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

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

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

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

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

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


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


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


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

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

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

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

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

$
LLO

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


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


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


Ch A-134L?LOC9gargs
			gstruct					


C^h.-13L�@&gargs
						


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


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

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


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


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


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


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

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

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

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

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


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


gnamegsymbol=?�CMR��h i]45$
45
�CCagx
		gfilenamef
rnrs/base.scm�
���		gnamegreal-valued?�CQRQ��h m]45$456Cegx
		gfilenamef
rnrs/base.scm�
���		gnamegrational-valued?�CPRP��h l]45$4455�CCdgx
		gfilenamef
rnrs/base.scm�
���		gnameginteger-valued?�COR�eh�-1345@zgproc
			gvecs			gfilenamef
rnrs/base.scm�
���			
gnamegvector-for-each�CKRdeh }-13445?6ugproc
			gvecs			gfilenamef
rnrs/base.scm�
���			
gnameg
vector-map�CLR4	
%34689h(l]Cdgdummy
		'gbinding		'gmodule			'goriginal			'		'	C<=h(�]	45$@6�gx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsgbindingg@gmodulegoriginalC5
R4	@hR]6Jgid
		gfilenamef
rnrs/base.scm�	���		C\h*]C"gid
				C_oh)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
���		:g
macro-typegidentifier-syntax�C5R4	p@hR]6Jgid
		gfilenamef
rnrs/base.scm�	���		C�h*]C"gid
				C_�h)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
���		:g
macro-typegidentifier-syntax�C5pR4	�@hR]6Jgid
		gfilenamef
rnrs/base.scm�	��		C�h*]C"gid
				C_�h)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
��		:g
macro-typegidentifier-syntax�C5�R4	�@hR]6Jgid
		gfilenamef
rnrs/base.scm�	��		C�h*]C"gid
				C_�h)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
��		:g
macro-typegidentifier-syntax�C5�R4	�@hR]6Jgid
		gfilenamef
rnrs/base.scm�	��		Ch*]C"gid
				C_h)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
��		:g
macro-typegidentifier-syntax�C5�R4	@hR]6Jgid
		gfilenamef
rnrs/base.scm�	��		C-h*]C"gid
				C_=h)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
��		:g
macro-typegidentifier-syntax�C5R4	>@hR]6Jgid
		gfilenamef
rnrs/base.scm�	��		CVh*]C"gid
				C_fh)]�C!gx
				C<=h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamef
rnrs/base.scm�
��		:g
macro-typegidentifier-syntax�C5>R57ghp���>h��-134455444554444555$4445	55"4445
554445555?6�gwho
		�gmessage		�g	irritants			�gfilenamef
rnrs/base.scm�
��		�	
	gnamegerror�CR57ghp���>h��-134455444554444555$4445	55"4445
554445555?6�gwho
		�gmessage		�g	irritants			�gfilenamef
rnrs/base.scm�
��		�	
	gnamegassertion-violation�CJR4	Iixyz|}���
h0E]	C=gdummy
		+g
expression		+		+	C<=h(x]	45$@6pgx
		"gtmp		"		"g
macro-typegsyntax-rules�gpatternsg
expressionC5IRC�gm
		+giface
	2�giface
�4gfilenamef
rnrs/base.scm�		
���	X���	}������
��������d����������e������"���$8��	%�
C6files.go000064400000011136150536250150006201 0ustar00GOOF----LE-8-2.0F]y4hG	]gguile�	�	gdefine-module*�	�	�	grnrs�	gfiles�	�		gfilenameS�	
frnrs/files.scm�	gpureS�	gversionS�	
	�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	grename�	gonly�	gfile-exists?�	gdelete-file�	gcatch�	g@@�	�	gdelete-file-internal�	�	�	gcall-with-deferred-observers�	�	 �	!gmodule-use-interfaces!�	"!�	#!�	$gcurrent-module�	%$�	&$�	'gbase�	('
�	)g
conditions�	*)
�	+g
exceptions�	,+
�	-gmodule-export!�	.-�	/-�	0gi/o-error-port�	1gi/o-port-error?�	2gmake-i/o-port-error�	3g	&i/o-port�	4gi/o-file-does-not-exist-error?�	5g"make-i/o-file-does-not-exist-error�	6g&i/o-file-does-not-exist�	7gi/o-file-already-exists-error?�	8g"make-i/o-file-already-exists-error�	9g&i/o-file-already-exists�	:gi/o-file-is-read-only-error?�	;g make-i/o-file-is-read-only-error�	<g&i/o-file-is-read-only�	=gi/o-file-protection-error?�	>gmake-i/o-file-protection-error�	?g&i/o-file-protection�	@gi/o-error-filename�	Agi/o-filename-error?�	Bgmake-i/o-filename-error�	Cg
&i/o-filename�	Dgi/o-error-position�	Egi/o-invalid-position-error?�	Fgmake-i/o-invalid-position-error�	Gg&i/o-invalid-position�	Hgi/o-write-error?�	Igmake-i/o-write-error�	Jg
&i/o-write�	Kgi/o-read-error?�	Lgmake-i/o-read-error�	Mg	&i/o-read�	Ng
i/o-error?�	Ogmake-i/o-error�	Pg&i/o�	Q0123456789:;<=>?@ABCDEFGHIJKLMNOP!�	Rgmodule-re-export!�	SR�	TR�	U�	Vgmodule-replace!�	WV�	XV�	Y�	Zgraise�	[)�	\gmake-record-type-descriptor�	][\�	^[\�	_g&error�	`glist->vector�	a[`�	b[`�	cgrecord-constructor�	d[c�	e[c�	fg"make-record-constructor-descriptor�	g[f�	h[f�	igcondition-predicate�	j[i�	k[i�	lg	immutable�	mgposition�	nlmD�	ogcondition-accessor�	p[o�	q[o�	rgrecord-accessor�	s[r�	t[r�	ugfilename�	vlu@�	wgport�	xlw0�C5hX]4	

54>"G454 #&h@]45L68gfilenamefrnrs/files.scm�
	
��		
CO>"G4(54 #&h@]45L68gfilenamefrnrs/files.scm�
	
��		
CO>"G4*54 #&h@]45L68gfilenamefrnrs/files.scm�
	
��		
CO>"G4,54 #&h@]45L68gfilenamefrnrs/files.scm�
	
��		
CO>"G4 /&Qh@]4568gfilenamefrnrs/files.scm�
	
��		
C>"G4 T&Uh@]4568gfilenamefrnrs/files.scm�
	
��		
C>"G4 X&Yh@]4568gfilenamefrnrs/files.scm�
	
��		
C>"Gh]L6		
CZBh>-134L566gkey
			gargs						
Chp]OO6hgfilename
		gfilenamefrnrs/files.scm�
	@	��		gnamegdelete-file�CR4^P_i4b55PR4e4hPi55OR4kPi5NR4^MPi4b55MR4e4hMi55LR4kMi5KR4^JPi4b55JR4e4hJi55IR4kJi5HR4^GPi4bn55GR4e4hGi55FR4kGi5ER4qGi4tGi
55DR4^CPi4bv55CR4e4hCi55BR4kCi5AR4qCi4tCi
55@R4^?Ci4b55?R4e4h?i55>R4k?i5=R4^<?i4b55<R4e4h<i55;R4k<i5:R4^9Ci4b559R4e4h9i558R4k9i57R4^6Ci4b556R4e4h6i555R4k6i54R4^3Pi4bx553R4e4h3i552R4k3i51R4q3i4t3i
550RC�gm
		+giface
	2�giface
�5giface
<�giface
�Egfilenamefrnrs/files.scm�		
���	@	���	I	��"	J	��X	K	���	L	���	O	��.	R	��d	T	���	W	���	Z	��	]	��
	W
C6