Current File : /home/mmdealscpanel/yummmdeals.com/ice-9.zip
PKQ<�Z}�H�U�Upopen.gonu�[���GOOF----LE-8-2.0�U]j4h�,]gguile�	�	gdefine-module*�	�	�	gice-9�	gpopen�	�		gfilenameS�	
fice-9/popen.scm�	gimportsS�	gthreads�	
�	
�	gsrfi�	gsrfi-9�	�	�	�	gexportsS�	gport/pid-table�	g
open-pipe*�	g	open-pipe�	g
close-pipe�	gopen-input-pipe�	gopen-output-pipe�	gopen-input-output-pipe�	�	gset-current-module�	�	�	 gload-extension�	!g
string-append�	"f	libguile-�	#geffective-version�	$fscm_init_popen�	%g<pipe-info>�	&g%make-pipe-info-procedure�	'gmake-syntax-transformer�	('�	)'�	*gmake-pipe-info�	+gmacro�	,g$sc-dispatch�	-,�	.,�	/g_�	0gany�	1/0�	2g
syntax-object�	3glambda�	4gm-18e47d61-4�	5gtop�	645�	7gribcage�	8gt-18e47d61-3�	98�	:6�	;fl-18e47d61-9�	<;�	=79:<�	>7�	?gx�	@?�	Afl-18e47d61-6�	BA�	C7@:B�	Dgshift�	Eg	proc-name�	Fgargs�	GEF�	H5�	IHH�	Jfl-1e8ba8b5a-60�	Kfl-1e8ba8b5a-61�	LJK�	M7GIL�	Ngkey�	Ogvalue�	Pgname�	Qgformals�	Rgbody�	SNOPQR�	THHHHH�	Ufl-1e8ba8b5a-53�	Vfl-1e8ba8b5a-54�	Wfl-1e8ba8b5a-55�	Xfl-1e8ba8b5a-56�	Yfl-1e8ba8b5a-57�	ZUVWXY�	[7STZ�	\gmake-procedure-name�	]\�	^H�	_fl-1e8ba8b5a-43�	`_�	a7]^`�	bH�	cfl-1e8ba8b5a-42�	dc�	e7@bd�	f6=>CD>>>>M[ae
�	gghygiene�	hg�	i23fh�	jgpid�	kH=>C�	lg�	m2jkl�	nm�	ogmake-struct�	pgm-18e47d61-1�	qp5�	rgt-1e8ba8b5a-133�	sgt-1e8ba8b5a-132�	tgt-1e8ba8b5a-131�	urst�	vgm-1e8ba8b5a-134�	wv5�	xwww�	yfl-1e8ba8b5a-138�	zfl-1e8ba8b5a-139�	{fl-1e8ba8b5a-13a�	|yz{�	}7ux|�	~g	ctor-args�	~��fl-1e8ba8b5a-120�����7b���gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������7�I���gform��g	type-name��gconstructor-spec��gfield-names��������HHHH��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������7�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������HHHHHHHH��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������7�����fl-1e8ba8b5a-da�����7@b���q=>CD>}>>>��>�����2o�h��2%kl��2
�h�����m��in���geach-any��/����gsyntax-violation��������fWrong number of arguments��gidentifier?��������H>C��2&�l��������f-source expression failed to match any pattern��grecord-type-vtable��������gpw��gdefault-record-printer��������j��gset-struct-vtable-name!��������gvtable-offset-user��������g%pipe-info?-procedure��g
pipe-info?��g
m-18e47d61-11���5��g
t-18e47d61-10��������f
l-18e47d61-16�����7�����f
l-18e47d61-13�����7@������>�D>>>>M[ae
��23�h��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220��gt-1e8ba8b5a-223��gt-1e8ba8b5a-222��gt-1e8ba8b5a-221�����������gm-1e8ba8b5a-225���5�����������fl-1e8ba8b5a-229��fl-1e8ba8b5a-22a��fl-1e8ba8b5a-22b��fl-1e8ba8b5a-22c��fl-1e8ba8b5a-22d��fl-1e8ba8b5a-22e��fl-1e8ba8b5a-22f�����������7�����g	copier-id�����fl-1e8ba8b5a-21c�����7�b���g	ctor-name�����fl-1e8ba8b5a-214�����7�b������fl-1e8ba8b5a-212����7�b��glayout��fl-1e8ba8b5a-210��7b�g
immutable?��fl-1e8ba8b5a-20e�	�
7b	�gfield-count��
fl-1e8ba8b5a-20c�
�7b�g
getter-ids��fl-1e8ba8b5a-209��7b�g	field-ids��fl-1e8ba8b5a-206��7b�gpredicate-name�g
field-spec�����HHHHHH�fl-1e8ba8b5a-1f9�fl-1e8ba8b5a-1fa� fl-1e8ba8b5a-1fb�!fl-1e8ba8b5a-1fc�"fl-1e8ba8b5a-1fd�#fl-1e8ba8b5a-1fe�$ !"#�%7$�&q�>�D>�>>>>�>�>>>
>>>%���'2�&h�('�)gand�*2)&h�+gstruct?�,2+&h�-,'�.geq?�/2.&h�0g
struct-vtable�120&h�21'�3H�>��42%3l�5/24�6*-5�7�(6�8H>��92�8l�:gthrow-bad-struct�;:�<:�=g
pipe-info-pid�>g%pipe-info-pid-procedure�?gfree-id�@g
%%on-error�Ag
m-18e47d61-1d�BA5�CB�Df
l-18e47d61-1f�ED�F7@CE�GB>FD>>>>M[ae�H2@Gh�I?H�JI0�Kg%%type�Lgt-1e8ba8b5a-14b�Mgt-1e8ba8b5a-14c�Ngt-1e8ba8b5a-14d�Ogt-1e8ba8b5a-14e�Pgt-1e8ba8b5a-14f�Qgt-1e8ba8b5a-150�Rgt-1e8ba8b5a-151�SLMNOPQR�Tgm-1e8ba8b5a-152�UT5�VUUUUUUU�Wfl-1e8ba8b5a-156�Xfl-1e8ba8b5a-157�Yfl-1e8ba8b5a-158�Zfl-1e8ba8b5a-159�[fl-1e8ba8b5a-15a�\fl-1e8ba8b5a-15b�]fl-1e8ba8b5a-15c�^WXYZ[\]�_7SV^�`ggetter�agindex�b`a�cfl-1e8ba8b5a-149�dfl-1e8ba8b5a-14a�ecd�f7bIe�g���hHHH�ifl-1e8ba8b5a-144�jfl-1e8ba8b5a-145�kfl-1e8ba8b5a-146�lijk�m7ghl�nq>FD>_>>>f>m���o2Knh�p?o�q/Jp0�rgck�sgerr�tgs�ust�vBB�wf
l-18e47d61-22�xf
l-18e47d61-23�ywx�z7uvy�{Bz>FD>>>>M[ae
�|2r{h�}gquote�~2}{h�Hz>F��2%l��~������g%%index��2�nh��?���/J�0��f
l-18e47d61-27��f
l-18e47d61-28������7uv���B�>FD>>>>M[ae
��2r�h��2}�h���>F��2
�l���������g%%copier��2�nh��?���/J�0��f
l-18e47d61-2c��f
l-18e47d61-2d������7uv���B�>FD>>>>M[ae
��2r�h��2}�h��g%%<pipe-info>-set-fields��H�>F��2��l���������g
t-18e47d61-1c�����f
l-18e47d61-31�����7�C���B�>FD>>>>M[ae
��23�h��q�>FD>_>>>f>m����2t�h�����gif��2��h��2.�h��20�h������H�>F��2%�l�������g
struct-ref��2��h���>F��2
�l�������2:�h��2}�h��2=�l����������������������H>F��2>�l��geach��00������0Č��0Ō��0ƌ��g%%set-fields��gdummy��gcheck?��gexpr����t`���g
m-18e47d61-38���5���qqqq��f
l-18e47d61-3d��f
l-18e47d61-3e��f
l-18e47d61-3f��f
l-18e47d61-40��f
l-18e47d61-41���������7��������f
l-18e47d61-3a�����7@����gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d���5�������fl-1e8ba8b5a-171��fl-1e8ba8b5a-172��fl-1e8ba8b5a-173�������7�����fl-1e8ba8b5a-167��fl-1e8ba8b5a-168��fl-1e8ba8b5a-169�������7gh���q�>�D>�>>>���
��2��h��H�>���2%�l��2=�l�����gmap��������glist��gset-pipe-info-pid!��g%set-pipe-info-pid!-procedure��/00��g
m-18e47d61-4c���5��g
t-18e47d61-4a��g
t-18e47d61-4b����������f
l-18e47d61-51�f
l-18e47d61-52���7�����f
l-18e47d61-4e��7@��>D>>>>M[ae
�23h�	gt-1e8ba8b5a-18c�
gt-1e8ba8b5a-18d�	
�gm-1e8ba8b5a-18e�
5�

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

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


C	hh�]"Y45$J�&
�"	45$!4O>"G""���C"����g	pipe-info
		_gpid	-	Ygfilenamefice-9/popen.scm�
	q
��		r	��		s	��		s	��		t	��		u	��	-	u	��	5	w	
��	6	|	��	:	|	��	J	|	��	]�	��	_	r	��		c
gnameg
reap-pipes�CdR4eifidi>"Ggh�]6�gcommand
		
gfilenamefice-9/popen.scm�
�
��	
�	��		
gnamegopen-input-pipe�g
documentationf9Equivalent to @code{open-pipe} with mode @code{OPEN_READ}�CRhh�]6�gcommand
		
gfilenamefice-9/popen.scm�
�
��	
�	��		
gnamegopen-output-pipe�g
documentationf:Equivalent to @code{open-pipe} with mode @code{OPEN_WRITE}�CRih�]6�gcommand
		
gfilenamefice-9/popen.scm�
�
��	
�	��		
gnamegopen-input-output-pipe�g
documentationf9Equivalent to @code{open-pipe} with mode @code{OPEN_BOTH}�CRC,gm
		,grtd
}�gfilenamefice-9/popen.scm�		
��	-		��	2		��	8		!��	9		-��	A		��	C		��	H		���	
��	#
��	/	��"	/
��#	4	��/	4
��0	5	��;	5
��A	7
��S	T
���	\
���	_
��b	c
��"5	q
��"6�
��#G�
��$A�
��%>�
��	%@
C6PKQ<�Z��j>��regex.gonu�[���GOOF----LE-8-2.0r]34h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gregex�	�		gfilenameS�	
fice-9/regex.scm�	gexportsS�	gmatch:count�	
gmatch:string�	gmatch:prefix�	gmatch:suffix�	g
regexp-match?�	gregexp-quote�	gmatch:start�	g	match:end�	gmatch:substring�	gstring-match�	gregexp-substitute�	gfold-matches�	glist-matches�	gregexp-substitute/global�	
�	gset-current-module�	�	�	g
vector-length�	g	substring�	 gstring?�	!ginteger?�	"gcall-with-output-string�	#gstring-for-each�	$g
write-char�	%gmake-regexp�	&gregexp-exec�	'gfor-each�	(gdisplay�	)gpre�	*gpost�	+gerror�	,gwrong-type-arg�	-gregexp?�	.g
regexp/notbol�	/g
string-length�	0greverse!�	1gcons�	2g
procedure?�C5h��]4	
54>"Gh}]45�Cugmatch
		gfilenamefice-9/regex.scm�
	;
��		<	��	
	<	��		gnamegmatch:count�CRhv]
�Cngmatch
		gfilenamefice-9/regex.scm�
	>
��		?	��		gnamegmatch:string�C
R
h�]45
4
56~gmatch
		gfilenamefice-9/regex.scm�
	A
��		B	
��	
	B	$��		B	��		gnamegmatch:prefix�CR
h�]454
56~gmatch
		gfilenamefice-9/regex.scm�
	D
��		E	
��		E	"��		E	��		gnamegmatch:suffix�CR !hpM]	�$a4
�5$R"G45�$C��$+4��5$4��5$	�"���CCC"���CCEgmatch
		lgi		agfilenamefice-9/regex.scm�
	J
��		K	��			K	��	
	L	��		L	��		L	��		K	��		M	��		N	��	$	N	��	(	N		��	/	O	��	0	O	��	4	N		��	5	P	��	<	P	$��	=	P	��	?	P	��	C	O	��	D	Q	��	K	Q	$��	L	Q	��	N	Q	��	R	O	��	U	R	��	[	R	��	a	M	��		lgnameg
regexp-match?�CR"#$h�]*�$"=.�$"/\�$"!^�$"$�$"[�$4\L>"GL6(�$"K)�$"=+�$"/?�$"!{�$"}�$"|�$04[L>"G4L>"G]L6L6�gc
	gfilenamefice-9/regex.scm�
	g	��		h	��	R	j	��	m	k	��	v	h	���	m	���	n	���	o	��	q	��
	ChZ]OL6Rgp
		gfilenamefice-9/regex.scm�
	f	��		g	��		Chw]O6ogstring
		
gfilenamefice-9/regex.scm�
	d
��	
	e	��		
gnamegregexp-quote�CRh0�-.,3#
���	��$CC�gmatch
		,gn		,gstart			,gfilenamefice-9/regex.scm�
	t
��		u	&��		u	��		u	��		u	��	#	v	��	'	v	��		,gnamegmatch:start�CRh0�-.,3#
���	��$CC�gmatch
		,gn		,gend			,gfilenamefice-9/regex.scm�
	x
��		y	%��		y	��		y	��		y	��	#	z	��	'	z	��		,gnameg	match:end�CR
hP�-.,3#
4545$$456CC�gmatch
		Jgn		Jgstart			Jgend		)	Jgfilenamefice-9/regex.scm�
	|
��		}	��		}	��	!	~	��	)	}	��	1		��	:		��	F		��			Jgnamegmatch:substring�CR%&h0�-1345�$�"
6�gpattern
			-gstr			-gargs				-grx			-gstart			-gfilenamefice-9/regex.scm�
�
��	
�	��	�	��	�	��	�	 ��	�	��	-�	��			-	
	gnamegstring-match�CR' (!)*+,hh�]45$L645$4L5L6&
4L5L6&
4L5L6	
6�gobj
		agfilenamefice-9/regex.scm�
�	��	�	��	
�	��	�	)��	�	��	 �	��	#�	2��	/�	)��	1�	��	7�	��	:�	2��	D�	)��	F�	��	L�	��	O�	2��	Y�	)��	]�	%��	a�	��		aC"h\]LL@Tgp
		gfilenamefice-9/regex.scm�
�	��	�		��		Ch0�-13$O6O6�gport
			+gmatch			+gitems				+gfilenamefice-9/regex.scm�
�
��	�	��	�	��	+�	��			+	
	gnamegregexp-substitute�CR-%./&h�2-.,3#
45$"45"�H	
�$
"K	45�$"4J	�5

$P"4
54
5"���4
54
5�$$�"��y"���"���C
"��`*gregexp
	�gstring	�ginit		�gproc		�gflags		�gregexp		-�gstart		3�gvalue		3�gabuts		3�gbol			4�gm	
	j�gfilenamefice-9/regex.scm�
�
��	�	��	 �	��	'�	,��	-�	��	3�	��	9�	��	>�	��	J�	��	Q�	��	U�	��	[�	��	h�	4��	j�	��	j�	��	r�	��	w�	��	~�	����	
����	����	����	"����	����	����	
����	����	
����	��	�	gnamegfold-matches�CR01h(�-.,3#
456�gregexp
		'gstring		'gflags			'gfilenamefice-9/regex.scm�
�
��	�	��	�	(��	%�	��	'�	��		'	gnameglist-matches�CR( (!2)*+,
h�E]45$L645$4L5L645$
4L5L6&4LL4L55L6	&LL�4
L566=gitem
	�gfilenamefice-9/regex.scm�
�	��	�	��	
�	��	�	&��	�	��	 �	��	#�	/��	/�	&��	0�	��	:�	��	=�	/��	G�	&��	K�	��	O�	��	R�	��	Y�	-��	a�	��	e�	��	i�	��	m�	��	r�	 ��	s�	.��	{�	��	�	 ����	��	�gnamegdo-item�Chx\](4L5L6�"OOLLLQ�$*�(�64�>"G�"���CL"���Tgmatches
		wgstart		wgm			wgitems		 	ogdo-item		-	ogfilenamefice-9/regex.scm�
�	��	�	��	�	��	�	��	�	��	�	��	 �	��	?�	��	C�	��	F�	��	J�	��	O�	!��	Q�	��	R�	��	W�	#��	\�	��	g�	%��	m�	��	o�	��		w	gnameg
next-match�C"h\]LLL@Tgp
		gfilenamefice-9/regex.scm�
�	��	�		��		ChH�-13$$OQ45
6O6�gport
			Bgregexp			Bgstring				Bgitems				Bg
next-match			3gfilenamefice-9/regex.scm�
�
��	�	��	�	��	(�	 ��	3�	��	B�	��			B	
	gnamegregexp-substitute/global�CRC�gm
		(gfilenamefice-9/regex.scm�		'
���	;
��Y	>
��	A
���	D
���	J
��j	d
��j	t
��	f	x
��
�	|
����
����
����
����
����
��	�
C6PKQ<�Z��G���
futures.gonu�[���GOOF----LE-8-2.0��]w4h�S]gguile�	�	gdefine-module*�	�	�	gice-9�	gfutures�	�		gfilenameS�	
fice-9/futures.scm�	gimportsS�	gsrfi�	
gsrfi-1�	
�	�	gsrfi-9�	�	�	ggnu�	�	�	gsrfi-11�	�	�	gq�	�	�	gmatch�	�	�	gcontrol�	 �	! �	"!�	#gexportsS�	$gfuture�	%gmake-future�	&gfuture?�	'gtouch�	($%&'�	)gset-current-module�	*)�	+)�	,g<future>�	-g%%make-future-procedure�	.gmake-syntax-transformer�	/.�	0.�	1g%make-future�	2gmacro�	3g$sc-dispatch�	43�	53�	6g_�	7gany�	867777�	9g
syntax-object�	:glambda�	;gm-3eebb96279-7�	<gtop�	=;<�	>gribcage�	?gt-3eebb96279-3�	@gt-3eebb96279-4�	Agt-3eebb96279-5�	Bgt-3eebb96279-6�	C?@AB�	D====�	Efl-3eebb96279-c�	Ffl-3eebb96279-d�	Gfl-3eebb96279-e�	Hfl-3eebb96279-f�	IEFGH�	J>CDI�	K>�	Lgx�	ML�	N=�	Ofl-3eebb96279-9�	PO�	Q>MNP�	Rgshift�	Sg	proc-name�	Tgargs�	UST�	V<�	WVV�	Xfl-1e8ba8b5a-60�	Yfl-1e8ba8b5a-61�	ZXY�	[>UWZ�	\gkey�	]gvalue�	^gname�	_gformals�	`gbody�	a\]^_`�	bVVVVV�	cfl-1e8ba8b5a-53�	dfl-1e8ba8b5a-54�	efl-1e8ba8b5a-55�	ffl-1e8ba8b5a-56�	gfl-1e8ba8b5a-57�	hcdefg�	i>abh�	jgmake-procedure-name�	kj�	lV�	mfl-1e8ba8b5a-43�	nm�	o>kln�	pV�	qfl-1e8ba8b5a-42�	rq�	s>Mpr�	t=JKQRKKKK[ios
�	ughygiene�	vu�	w9:tv�	xgthunk�	yVJKQ�	zu�	{9xyz�	|gstate�	}9|yz�	~gmutex�	9~yz��g
completion��9�yz��{}���gmake-struct��gm-3eebb96279-1���<��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���<�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������>�����g	ctor-args�����fl-1e8ba8b5a-120�����>�p���gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������>�W���gform��g	type-name��gconstructor-spec��gfield-names��������VVVV��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������>�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������VVVVVVVV��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������>�����fl-1e8ba8b5a-da�����>Mp����JKQRK�KKK��K�����9��v��9,yz��9
�v��JKQ��9�z�����{}����w����geach-any��6Ɍ��gsyntax-violation��������fWrong number of arguments��gidentifier?��������VKQ��9-�z��������f-source expression failed to match any pattern��grecord-type-vtable��������g
pwpwpwpwpw��gdefault-record-printer��������gresult��x|�~���gset-struct-vtable-name!��������gvtable-offset-user��������g%future?-procedure��67��gm-3eebb96279-1a���<��gt-3eebb96279-19��������fl-3eebb96279-1f�����>�����fl-3eebb96279-1c�����>M������K�RKKKK[ios
��9:�v��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220��gt-1e8ba8b5a-223��gt-1e8ba8b5a-222��gt-1e8ba8b5a-221�����������gm-1e8ba8b5a-225���<���������fl-1e8ba8b5a-229�fl-1e8ba8b5a-22a�fl-1e8ba8b5a-22b�fl-1e8ba8b5a-22c�fl-1e8ba8b5a-22d�fl-1e8ba8b5a-22e�fl-1e8ba8b5a-22f��	>��
g	copier-id�
�fl-1e8ba8b5a-21c�
�>p
�g	ctor-name��fl-1e8ba8b5a-214��>p���fl-1e8ba8b5a-212��>p�glayout��fl-1e8ba8b5a-210��>p�g
immutable?��fl-1e8ba8b5a-20e� �!>p �"gfield-count�#"�$fl-1e8ba8b5a-20c�%$�&>#p%�'g
getter-ids�('�)fl-1e8ba8b5a-209�*)�+>(p*�,g	field-ids�-,�.fl-1e8ba8b5a-206�/.�0>-p/�1gpredicate-name�2g
field-spec�3���12�4VVVVVV�5fl-1e8ba8b5a-1f9�6fl-1e8ba8b5a-1fa�7fl-1e8ba8b5a-1fb�8fl-1e8ba8b5a-1fc�9fl-1e8ba8b5a-1fd�:fl-1e8ba8b5a-1fe�;56789:�<>34;�=��K�RK	KKKKKKKK!K&K+K0<���>9�=v�?>�@gand�A9@=v�Bgstruct?�C9B=v�DC>�Egeq?�F9E=v�Gg
struct-vtable�H9G=v�IH>�JV�K��K9,Jz�LFIK�MADL�N�?M�OVK��P9�Oz�Qgthrow-bad-struct�RQ�SQ�Tgfuture-thunk�Ug%future-thunk-procedure�Vgfree-id�Wg
%%on-error�Xgm-3eebb96279-26�YX<�ZY�[fl-3eebb96279-28�\[�]>MZ\�^YK]RKKKK[ios�_9W^v�`V_�a`7�bg%%type�cgt-1e8ba8b5a-14b�dgt-1e8ba8b5a-14c�egt-1e8ba8b5a-14d�fgt-1e8ba8b5a-14e�ggt-1e8ba8b5a-14f�hgt-1e8ba8b5a-150�igt-1e8ba8b5a-151�jcdefghi�kgm-1e8ba8b5a-152�lk<�mlllllll�nfl-1e8ba8b5a-156�ofl-1e8ba8b5a-157�pfl-1e8ba8b5a-158�qfl-1e8ba8b5a-159�rfl-1e8ba8b5a-15a�sfl-1e8ba8b5a-15b�tfl-1e8ba8b5a-15c�unopqrst�v>jmu�wggetter�xgindex�ywx�zfl-1e8ba8b5a-149�{fl-1e8ba8b5a-14a�|z{�}>yW|�~�'
�VVV��fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������>~����K]RKvKKK}K�����9b�v��V���6a�7��gck��gerr��gs������YY��fl-3eebb96279-2b��fl-3eebb96279-2c������>�����Y�K]RKKKK[ios
��9��v��gquote��9��v��V�K]��9,�z���������g%%index��9��v��V���6a�7��fl-3eebb96279-30��fl-3eebb96279-31������>�����Y�K]RKKKK[ios
��9��v��9��v���K]��9
�z���������g%%copier��9��v��V���6a�7��fl-3eebb96279-35��fl-3eebb96279-36������>�����Y�K]RKKKK[ios
��9��v��9��v��g%%<future>-set-fields��V�K]��9��z���������gt-3eebb96279-25�����fl-3eebb96279-3a�����>�Z���Y�K]RKKKK[ios
��9:�v����K]RKvKKK}K�����9��v�����gif��9��v��9E�v��9G�v������V�K]��9,�z�������g
struct-ref��9��v���K]��9
�z�������9Q�v��9��v��9T�z����������������������VK]��9U�z��gfuture-state��g%future-state-procedure��gm-3eebb96279-41���<�����fl-3eebb96279-43�����>M�����K�RKKKK[ios��9W�v��V����7���K�RKvKKK}K�����9b�v��V���6��7������fl-3eebb96279-46��fl-3eebb96279-47������>�������K�RKKKK[ios
��9��v��9��v��V�K���9,�z���������9��v��V���6��7��fl-3eebb96279-4b��fl-3eebb96279-4c������>�������K�RKKKK[ios
��9��v��9��v���K��9�z����9��v�V�6�7�fl-3eebb96279-50�fl-3eebb96279-51��	>���
�	K�RKKKK[ios
�9�
v�9�
v�
V	K��9�
z���gt-3eebb96279-40��fl-3eebb96279-55��>���K�RKKKK[ios
�9:v��K�RKvKKK}K����9�v��9�v�9Ev�9Gv��VK�� 9,z�! �"9�v�#K��$9#z�%"$�&9Qv�'9�v�(9�z�)'(�*&)�+!%*�,+�-VK��.9�-z�/g
future-result�0g%future-result-procedure�1gm-3eebb96279-5c�21<�32�4fl-3eebb96279-5e�54�6>M35�72K6RKKKK[ios�89W7v�9V8�:97�;�K6RKvKKK}K����<9b;v�=V<�>6:=7�?22�@fl-3eebb96279-61�Afl-3eebb96279-62�B@A�C>�?B�D2CK6RKKKK[ios
�E9�Dv�F9�Dv�GVCK6�H9,Gz�IFH�JI�K9�;v�LVK�M6:L7�Nfl-3eebb96279-66�Ofl-3eebb96279-67�PNO�Q>�?P�R2QK6RKKKK[ios
�S9�Rv�T9�Rv�UQK6�V9	Uz�WTV�XW�Y9�;v�ZVY�[6:Z7�\fl-3eebb96279-6b�]fl-3eebb96279-6c�^\]�_>�?^�`2_K6RKKKK[ios
�a9�`v�b9�`v�cV_K6�d9�cz�ebd�fe�ggt-3eebb96279-5b�hg�ifl-3eebb96279-70�ji�k>h3j�l2kK6RKKKK[ios
�m9:lv�n�kK6RKvKKK}K����o9�nv�po�q9�nv�r9Env�s9Gnv�tso�uVkK6�v9,uz�wrtv�x9�nv�ykK6�z9	yz�{xoz�|9Qnv�}9�nv�~9/uz�}~��|o��qw{���mp���VK6��90�z��gfuture-mutex��g%future-mutex-procedure��gm-3eebb96279-77���<�����fl-3eebb96279-79�����>M�����K�RKKKK[ios��9W�v��V����7���K�RKvKKK}K�����9b�v��V���6��7������fl-3eebb96279-7c��fl-3eebb96279-7d������>�������K�RKKKK[ios
��9��v��9��v��V�K���9,�z���������9��v��V���6��7��fl-3eebb96279-81��fl-3eebb96279-82������>�������K�RKKKK[ios
��9��v��9��v���K���9	�z���������9��v��V���6��7��fl-3eebb96279-86��fl-3eebb96279-87������>�������K�RKKKK[ios
��9��v��9��v��V�K���9��z���������gt-3eebb96279-76�����fl-3eebb96279-8b�����>�������K�RKKKK[ios
��9:�v����K�RKvKKK}K�����9��v�����9��v��9E�v��9G�v������V�K���9,�z�������9��v���K���9	�z�������9Q�v��9��v��9��z����������������������VK���9��z��gfuture-completion��g%future-completion-procedure��gm-3eebb96279-92���<�����fl-3eebb96279-94�����>M�����K�RKKKK[ios��9W�v��V����7���K�RKvKKK}K�����9b�v��V���6��7������fl-3eebb96279-97��fl-3eebb96279-98������>�������K�RKKKK[ios
��9��v��9��v��V�K���9,�z���������9��v��V���6��7��fl-3eebb96279-9c��fl-3eebb96279-9d������>�������K�RKKKK[ios
��9��v�9��v��K��9	z���9��v�V�6�7�fl-3eebb96279-a1�	fl-3eebb96279-a2�
	�>��
��K�RKKKK[ios
�
9�v�9�v�VK��9�z���gt-3eebb96279-91��fl-3eebb96279-a6��>���K�RKKKK[ios
�9:v��K�RKvKKK}K����9�v��9�v�9Ev�9Gv� �!VK��"9,!z�# "�$9�v�%K��&9	%z�'$&�(9Qv�)9�v�*9�!z�+)*�,(+�-#',�.-�/VK��09�/z�1geach�277�312�473��574��675��7g%%set-fields�8gdummy�9gcheck?�:gexpr�;89�w:�<gm-3eebb96279-ad�=<<�>=�����?fl-3eebb96279-b2�@fl-3eebb96279-b3�Afl-3eebb96279-b4�Bfl-3eebb96279-b5�Cfl-3eebb96279-b6�D?@ABC�E>;>D�F=�Gfl-3eebb96279-af�HG�I>MFH�Jgt-1e8ba8b5a-16a�Kgt-1e8ba8b5a-16c�Lgt-1e8ba8b5a-16b�MJKL�Ngm-1e8ba8b5a-16d�ON<�POOO�Qfl-1e8ba8b5a-171�Rfl-1e8ba8b5a-172�Sfl-1e8ba8b5a-173�TQRS�U>MPT�Vfl-1e8ba8b5a-167�Wfl-1e8ba8b5a-168�Xfl-1e8ba8b5a-169�YVWX�Z>~Y�[�EKIRKUKKKZ��
�\97[v�]VEKI�^9,]z�_9T]z�`9�]z�a9/]z�b9�]z�c9�]z�d_`abc�egmap�fe�ge�hglist�igset-future-thunk!�jg%set-future-thunk!-procedure�k677�lgm-3eebb96279-c1�ml<�ngt-3eebb96279-bf�ogt-3eebb96279-c0�pno�qmm�rfl-3eebb96279-c6�sfl-3eebb96279-c7�trs�u>pqt�vm�wfl-3eebb96279-c3�xw�y>Mvx�zmuKyRKKKK[ios
�{9:zv�|gt-1e8ba8b5a-18c�}gt-1e8ba8b5a-18d�~|}�gm-1e8ba8b5a-18e��<������fl-1e8ba8b5a-192��fl-1e8ba8b5a-193������>~����gsetter��^w���fl-1e8ba8b5a-186��fl-1e8ba8b5a-187��fl-1e8ba8b5a-188�������>����2x��fl-1e8ba8b5a-17d��fl-1e8ba8b5a-17e������>�W���gfield-specs������fl-1e8ba8b5a-179��fl-1e8ba8b5a-17a������>�W����uKyRK��K�K�����9��v��gval��9��v������9��v��9E�v��9G�v������VuKy��9,�z�������gstruct-set!��9��v��uKy��9
�z��������9Q�v��9��v��9i�z�����������������{����VKy��9j�z��gset-future-state!��g%set-future-state!-procedure��gm-3eebb96279-d1���<��gt-3eebb96279-cf��gt-3eebb96279-d0����������fl-3eebb96279-d6��fl-3eebb96279-d7������>��������fl-3eebb96279-d3�����>M������K�RKKKK[ios
��9:�v����K�RK��K�K�����9��v��9��v������9��v��9E�v��9G�v������V�K���9,�z�������9��v���K���9�z��������9Q�v��9��v��9��z����������������������VK���9��z��gset-future-result!��g%set-future-result!-procedure��gm-3eebb96279-e1���<��gt-3eebb96279-df��gt-3eebb96279-e0����������fl-3eebb96279-e6��fl-3eebb96279-e7������>��������fl-3eebb96279-e3�����>M������K�RKKKK[ios
��9:�v����K�RK��K�K�����9��v��9��v������9��v��9E�v��9G�v������V�K���9,�z�������9��v���K���9	�z��������9Q�v��9��v��9��z��������������VK��9�z�gset-record-type-printer!�g
simple-format�f#<future ~a ~a ~s>�	gnumber->string�
gobject-address�gcreate-workers!�g
make-mutex�
gmake-condition-variable�gqueued�gregister-future!�gmake-q�g%futures�g%futures-mutex�g%futures-available�g%futures-waiting�gmake-parameter�g%nesting-level�g%max-nesting-level�g
with-mutex�7Ɍ�7��7��glet�gm�ge0�ge1� 8�!gm-3eebb96279-12b�"!<�#"VVV�$fl-3eebb96279-130�%fl-3eebb96279-131�&fl-3eebb96279-132�'fl-3eebb96279-133�($%&'�)> #(�*"�+fl-3eebb96279-12d�,+�->M*,�.V)K-�/9.z�09L.z�1gdynamic-wind�291.z�39:.z�4g
lock-mutex�594.z�650�736�8gbegin�998.z�:gunlock-mutex�;9:.z�<;0�=3<�>=�?gmake-prompt-tag�@g%future-prompt�Agenq!�Bgsignal-condition-variable�Cglet/ec�Dgcatch�Eg
parameter?�FE�GE�Hg	scm-error�Igwrong-type-arg�Jfparameterize�KfNot a parameter: ~S�Lgdone�Mg
alist-cons�Ngabort-to-prompt�Ogthrow�Pgprocess-future!�Qgq-empty?�Rgdeq!�Sgstarted�Tgnotify-completion�Ugprocess-one-future�Vgwait-condition-variable�Wgprocess-futures�Xgbroadcast-condition-variable�Yg	partition�Zgerror�[Z�\Z�]fno matching pattern�^gfor-each�_g	provided?�`gthreads�agcurrent-processor-count�bg
%worker-count�cg%workers�dgunfold�egcall-with-new-thread�fg1+�gg%create-workers!�h8`�igm-3eebb96279-259�ji<�kjV�lfl-3eebb96279-25e�mfl-3eebb96279-25f�nlm�o>hkn�pj�qfl-3eebb96279-25b�rq�s>Mpr�tVoKs�u9%tz�v9:tz�C5hHU�]4	
"#(54+>"G,h�]�C�gthunk
		gstate		gmutex			g
completion			gfilenamefice-9/futures.scm�
	0
��			gnameg%%make-future-procedure�C-R401258�h�]C�gt-3eebb96279-3
		gt-3eebb96279-4		gt-3eebb96279-5			gt-3eebb96279-6						C��1�hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/futures.scm�
	0
��		nC51R���,ߨ4�,>"G	�-i�,R,ht]�$��CClgobj
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future?-procedure�C�R40&25�Nh7]C/gt-3eebb96279-19
		
		
C��&�hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
CPh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/futures.scm�
	0
��		nC5&R,SThw]�&
�C6ogs
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future-thunk-procedure�CUR40T25���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h7]C/gt-3eebb96279-25
		
		
C��T�hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/futures.scm�
	0
��	�C5TR,S�hw]�&�C6ogs
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future-state-procedure�C�R40�25���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C�,h7]C/gt-3eebb96279-40
		
		
C����hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C.h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/futures.scm�
	0
��	�C5�R,S/h x]�&	�C6pgs
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future-result-procedure�C0R40/25>EJh:]��C2gerr
		gs					CMSXh:]��C2gerr
		gs					C[afh:]��C2gerr
		gs					C��h7]C/gt-3eebb96279-5b
		
		
C��/�hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/futures.scm�
	0
��	�C5/R,S�h w]�&	�C6ogs
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future-mutex-procedure�C�R40�25���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h7]C/gt-3eebb96279-76
		
		
C����hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/futures.scm�
	0
��	�C5�R,S�h |]�&	�C6tgs
		gfilenamefice-9/futures.scm�
	0
��		gnameg%future-completion-procedure�C�R40�25���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					C
h:]��C2gerr
		gs					C�.h7]C/gt-3eebb96279-91
		
		
C����hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C0h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/futures.scm�
	0
��	�C5�R40�256\^dghh v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/futures.scm�
	0
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R,Sih �]�&
�C6�gs
		gval		gfilenamefice-9/futures.scm�
	0
��			gnameg%set-future-thunk!-procedure�CjR40i25k�hT]CLgt-3eebb96279-bf
		gt-3eebb96279-c0					C��i�hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/futures.scm�
	0
��		nC5iR,S�h �]�&�C6�gs
		gval		gfilenamefice-9/futures.scm�
	0
��			gnameg%set-future-state!-procedure�C�R40�25k�hT]CLgt-3eebb96279-cf
		gt-3eebb96279-d0					C����hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/futures.scm�
	0
��		nC5�R,S�h �]�&	�C6�gs
		gval		gfilenamefice-9/futures.scm�
	0
��			gnameg%set-future-result!-procedure�C�R40�25khT]CLgt-3eebb96279-df
		gt-3eebb96279-e0					C����hT]L6Lga
		gfilenamefice-9/futures.scm�		0
��		C6�hD]L6<gfilenamefice-9/futures.scm�		0
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/futures.scm�
	0
��		nC5�R4i,i	
,S�T	hP�]445	5�&�"	45�&
�"	456�gfuture
		Lgport		Lgfilenamefice-9/futures.scm�
	;��		<	��			=	��		=	"��		=	��		>	��	3	?	��	L	<	��			L	C>"G
,hP�]4>"G4545�4>"GC�gthunk
		Kgmutex		4g
completion			4gfuture	4	Kgfilenamefice-9/futures.scm�
	A
��		E	��		G	��		G	+��		F	��	&	F	$��	.	F	��	4	F	��	7	H	��
		Kgnamegmake-future�g
documentationf�Return a new future for THUNK.  Execution may start at any point
concurrently, or it can start at the time when the returned future is
touched.�C%R4i5R4i5R4
i5RR4i
5R�R4025/02739>h0\]�����CTgdummy
		)gm		)ge0			)ge1			)		)	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/futures.scm�
	d
��		"g
macro-typegsyntax-rules�gpatternsgmge0ge1g...C5R4?i5@R4AB:h@�]4>"G4>"G4>"G6�gfuture
		@gfilenamefice-9/futures.scm�
	r
��		t	��		u	��	)	v	��	@	w	��		@gnamegregister-future!�CRCD@GHIJK,ST
hp�]45$"4>"G�4	�45�5Y4L�&L
�"	4L	5>ZCZF�gt-3eebb96279-16a
		igfilenamefice-9/futures.scm�	�	(��	<�	<��	A�	8��	C�	(��	F�	*��		i
C4hE]L6=gfilenamefice-9/futures.scm�
�	��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	��		
C,S�4hE]L6=gfilenamefice-9/futures.scm�
�	��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	��		
Ci�4hE]L6=gfilenamefice-9/futures.scm�
�	��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	��		
CL�ABMNhN]LEFgfilenamefice-9/futures.scm�
�	"��	�	$��		
Ch��] U4LO>X"�GOO4O>"GVL�&	L	�"	4L5	O
O4	O>"GVL�&L
�"4L>"GL�&L�"4L
>"GX4
O>"G�&		�"	45OO4O>"GV�&�"	45&*4L>"G4>"G"
4L5 X4O>"G4L>X4O>"G"GOC�gcont
	�gfuture-to-wait	�gx		%�gx		f�gx	�gresults
��gfilenamefice-9/futures.scm�
�	��		�	��	%�	��	N�	��	f�	����	����	����	,����	����	����	���	��8�	��;�	!��V�	��W�	��k�	����	����	����	���		����	����	��	�
COhN]L@Fgfilenamefice-9/futures.scm�
�	��	�	 ��		
ChZ-13OCRgargs
			gfilenamefice-9/futures.scm�
�	��			


C,S�h`]UD4O5�&	�"4>"GXCXFGEgfuture
		_gtag		_gval		!	Og_		T	_gresults		T	_gfilenamefice-9/futures.scm�
	y
��			��	�	��	!�	��	W		��		_gnamegprocess-future!�g
documentationf*Process FUTURE.  When FUTURE completes, return #t and update its
result; otherwise, when FUTURE touches a nested future that has not
completed yet, then suspend it and return #f.  Suspending a future
consists in capturing its continuation, marking it as `queued', and
adding it to the waiter queue.�CPRQR4,S��LS:�P4hE]L6=gfilenamefice-9/futures.scm�
�	��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	��		
C4hE]L6=gfilenamefice-9/futures.scm�
�	��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	��		
CTh��](45$C454�&		�"	45>"G�&�"	45	�$"
�$�&		�"	4564�&		�"	45>"G4>"G4�&		�"	45>"G�&�"	45
&B�&
�"4>"G4�&		�"	45>"G45$�OO4O>"GV�&		�"	45OO4O>"GV�&	�"4>"G4>"GX4O>"GX4O>"G""+4�&		�"	45>"G6�gt
		�gfuture
	�gkey	b�gdone?	|`gx	�Ygx	�@gfilenamefice-9/futures.scm�
�
��	�	��		�	��	�	��	�	��	�	��	#�	��	@�	��	K�	��	b�	����	����	����	����	����	����	����	����	����	���	���	*��"�	��%�	��0�	+��1�	��K�	��P�	��m�	��v�	��|�	����	����	����	#����	����	����	3����	���	��)�	��B�	��e�	��j�	����	����	��-	�
gnamegprocess-one-future�g
documentationf9Attempt to pick one future from the queue and process it.�CUR4QVUhX�]4>"G"745$4>"G"4>"G"���"����gfilenamefice-9/futures.scm�
�
��	�	��	�	��	�	
��	#�	��	$�	��	<�	��	O�	��	O�	��
		S
gnamegprocess-futures�g
documentationf,Continuously process futures from the queue.�CWRX,S�Y\]h(x]	�$��L�C456pgexpr
		%gw		gfilenamefice-9/futures.scm�
�	��	�	��	�	��		%C^A\]h(x]	�$��6456pgexpr
		'gx		gfilenamefice-9/futures.scm�
�	��	�	��	�	��		'C
hX0]4�&		�"	45>"G4O>G 	6(gfuture
		Rgwaiting	?	Rg	remaining		?	Rgfilenamefice-9/futures.scm�
�
��	�	��	�	 ��	%�	��	.�	��	B�	��	J�	��	R�	��			Rgnamegnotify-completion�g
documentationf9Notify futures and callers waiting that FUTURE completed.�CTR4Q:,S�4hE]L6=gfilenamefice-9/futures.scm�
�	
��		
C:hE]L6=gfilenamefice-9/futures.scm�
�	
��		
CL�V�Uh ]4>"G45$�4>"GL�&	L	�"	4L5	O
O4	O>"GVL�&L�"	4L5&">4
L�&	L	�"	4L5L�&	L	�"	4L5>X4
O>"GCX4
O>"GF4>"G6�gx
	Lgfilenamefice-9/futures.scm�
�	��	�	��	�	��	�	��	 �	
��	4�	��	L�	
��	t�	��	w�	����	����	����	'����	'����	����	
���	
���	
��	
gnamegwork�C4,S��L:S@/hp	]OQ"<4�&		�"	45>"G�&�"	45�$/4�&		�"	45>"�G"�	�$X4�&		�"	45>"G4
5
�$WG"t4>"G"�� 4�&		�"	45>"G4
5�$WG"4>"G"���"����&		�"	4
56gfuture
	pgwork	
pgkey		XOgfilenamefice-9/futures.scm�
�
��	�	��	�	��	�	��	6�	��	A�	
��	X�	��	d�	��	i�	����	����	����	����	����	����	����	����	����	���	
���	
���	���	��	��	��&	��*	��1	��9	��L	��O�	��V		�� 	pgnamegtouch�g
documentationf>Return the result of FUTURE, computing it if not already done.�C'R4_i`5$
4ai5�"
bRcR4hE]L6=gfilenamefice-9/futures.scm�
	��		
C:hE]L6=gfilenamefice-9/futures.scm�
	��		
Ccdbh^]�CVgi
		gfilenamefice-9/futures.scm�
'	��	'	��		CeWh^]6Vgi
		gfilenamefice-9/futures.scm�
(	��	(	��		Cfha]CYgfilenamefice-9/futures.scm�
+	��		
gnamegcreate-workers!�Chx�]OO4O>"GV(4
5 	 
"X4O>"GCX4O>"GF�gx
		vgfilenamefice-9/futures.scm�

��		��	0%	��	1'	��	>&	��	B+	��	J	��		v
gnameg%create-workers!�CgRghj]6bgfilenamefice-9/futures.scm�
.	��	.	
��		
gnamegcreate-workers!�CR40$252uvh?]C7gdummy
		gbody					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/futures.scm�
5
��		"g
documentationfReturn a new future for BODY.�g
macro-typegsyntax-rules�gpatternsgbodyC5$RC�gm
		,grtd
�gfilenamefice-9/futures.scm�		
��	0
��+�	9
��/$	A
��/%	R	��/0	R
��/1	U	��/<	U
��/=	V	��/H	V
��/I	Y	��/M	Y
��/N	]	��/Z	]
��/a	b
��1	o	��1	l
��2	r
��='	y
��DI�
��E��
��H��
��O��
��O�	��O�	��O�	��O�	��O�		��O�	��O�
��O�	��O�
��S;
��S�-
��#	UG
C6PKQ<�Z`?curried-definitions.gonu�[���GOOF----LE-8-2.0�]�4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gcurried-definitions�	�		gfilenameS�	
fice-9/curried-definitions.scm�	greplacementsS�	gcdefine�	
gdefine�	
��	gcdefine*�	gdefine*�	��	g
define-public�	gdefine*-public�	�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	gany�	 ��	!geach-any�	"!��	# "��	$#��	%g
syntax-object�	&gtop�	'&�	(gribcage�	)gdummy�	*ghead�	+grest�	,gbody�	-gbody*�	.)*+,-�	/gm-17381246c69178d0-0�	0/&�	10''''�	2fl-17381246c69178d0-5�	3fl-17381246c69178d0-6�	4fl-17381246c69178d0-7�	5fl-17381246c69178d0-8�	6fl-17381246c69178d0-9�	723456�	8(.17�	9(�	:gx�	;:�	<0�	=fl-17381246c69178d0-2�	>=�	?(;<>�	@'89?�	Aghygiene�	BA�	C%@B�	Dglambda�	E%D@B�	F�	Ggname�	Hgval�	I)GH�	J0''�	Kfl-17381246c69178d0-11�	Lfl-17381246c69178d0-12�	Mfl-17381246c69178d0-13�	NKLM�	O(IJN�	P'O9?�	Q%
PB�	Rgsyntax-violation�	SR�	TR�	Uf-source expression failed to match any pattern�	Vgm-17381246c69178d0-17�	WV&�	XW''''�	Yfl-17381246c69178d0-1c�	Zfl-17381246c69178d0-1d�	[fl-17381246c69178d0-1e�	\fl-17381246c69178d0-1f�	]fl-17381246c69178d0-20�	^YZ[\]�	_(.X^�	`W�	afl-17381246c69178d0-19�	ba�	c(;`b�	d'_9c�	e%dB�	fglambda*�	g%fdB�	hW''�	ifl-17381246c69178d0-28�	jfl-17381246c69178d0-29�	kfl-17381246c69178d0-2a�	lijk�	m(Ihl�	n'm9c�	o%nB�	pgm-17381246c69178d0-2e�	qp&�	rq''''�	sfl-17381246c69178d0-33�	tfl-17381246c69178d0-34�	ufl-17381246c69178d0-35�	vfl-17381246c69178d0-36�	wfl-17381246c69178d0-37�	xstuvw�	y(.rx�	zq�	{fl-17381246c69178d0-30�	|{�	}(;z|�	~'y9}�	%~B��%D~B��gbegin��q''��fl-17381246c69178d0-3f��fl-17381246c69178d0-40��fl-17381246c69178d0-41�������(I����'�9}��%��B��%
�B��gexport��%��B��gm-17381246c69178d0-45���&���''''��fl-17381246c69178d0-4a��fl-17381246c69178d0-4b��fl-17381246c69178d0-4c��fl-17381246c69178d0-4d��fl-17381246c69178d0-4e���������(.�������fl-17381246c69178d0-47�����(;����'�9���%�B��%f�B���''��fl-17381246c69178d0-56��fl-17381246c69178d0-57��fl-17381246c69178d0-58�������(I����'�9���%��B��%�B��%��B�C5h�	a]4	
54>"G4$CEhv]���Cngdummy
		ghead		grest			gbody			gbody*						CFQhP]CHgdummy
		gname		gval						CTUh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/curried-definitions.scm�
		��		9g
macro-typegsyntax-rules�gpatternsgheadgrest�gbodygbody*g...gnamegvalC5R4$eghv]���Cngdummy
		ghead		grest			gbody			gbody*						CFohP]CHgdummy
		gname		gval						CTUh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/curried-definitions.scm�
		��		9g
macro-typegsyntax-rules�gpatternsgheadgrest�gbodygbody*g...gnamegvalC5R4$�hv]���Cngdummy
		ghead		grest			gbody			gbody*						CF���hP]CHgdummy
		gname		gval						CTUh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/curried-definitions.scm�
	'	��		9g
macro-typegsyntax-rules�gpatternsgheadgrest�gbodygbody*g...gnamegvalC5R4$��hv]���Cngdummy
		ghead		grest			gbody			gbody*						CF���hP]CHgdummy
		gname		gval						CTUh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/curried-definitions.scm�
	1	��		9g
macro-typegsyntax-rules�gpatternsgheadgrest�gbodygbody*g...gnamegvalC5RCYgm
		(gfilenamefice-9/curried-definitions.scm�		
��		�
C6PKQ<�ZD�A���
streams.gonu�[���GOOF----LE-8-2.0�].4h[]gguile�	�	gdefine-module*�	�	�	gice-9�	gstreams�	�		gfilenameS�	
fice-9/streams.scm�	gexportsS�	gmake-stream�	
g
stream-car�	g
stream-cdr�	gstream-null?�	glist->stream�	gvector->stream�	gport->stream�	gstream->list�	gstream->reversed-list�	gstream->list&length�	gstream->reversed-list&length�	gstream->vector�	gstream-fold�	gstream-for-each�	g
stream-map�	
�	gset-current-module�	�	�	gmake-promise�	 �	!�	"gforce�	#g
vector-length�	$greverse!�	%gmake-vector�	&gstream-fold-one�	'gstream-fold-many�	(gor-map�	)gmap�	*gstream-for-each-one�	+gstream-for-each-many�	,gapply�	-geof-object?�C5h��]4	
54>"G!h(�]4LL5�$�4L�5�CC�go
			#gfilenamefice-9/streams.scm�
	V	��		W	
��			W	��		X	
��		X	��		Y	��		Z	��		Z	��		Z	��	 	Y	
��	"	[	
��		#
Ch�]O6~gm
		gstate		gfilenamefice-9/streams.scm�
	U
��		V	��			gnamegmake-stream�CR"h�]45�C�gstream
		gfilenamefice-9/streams.scm�
	]
��		_	��	
	_	��		gnameg
stream-car�g
documentationfBReturns the first element in STREAM.  This is equivalent to `car'.�C
R"h�]45�C�gstream
		gfilenamefice-9/streams.scm�
	a
��		c	��	
	c	��		gnameg
stream-cdr�g
documentationfGReturns the first tail of STREAM. Equivalent to `(force (cdr STREAM))'.�CR"h?]45�C7gstream
		gfilenamefice-9/streams.scm�
	e
��		i		��	
	i	��		gnamegstream-null?�g
documentationf�Returns `#t' if STREAM is the end-of-stream marker; otherwise
returns `#f'.  This is equivalent to `null?', but should be used
whenever testing for the end of a stream.�CRhT]CLgl
		gfilenamefice-9/streams.scm�
	o	��		Ch�]6�gl
		
gfilenamefice-9/streams.scm�
	k
��	
	n	��		
gnameglist->stream�g
documentationfoReturns a newly allocated stream whose elements are the elements of
LIST.  Equivalent to `(apply stream LIST)'.�CR#h �]	L�$CL���C�gi
		gt		gfilenamefice-9/streams.scm�
	u	��		v	��		v	��		w	��		w	"��		w	��		Ch �]	45O
6�gv
		glen		gfilenamefice-9/streams.scm�
	r
��		t	��		t	��		s	��		gnamegvector->stream�CR
hH]"/45$D4545��"���
"���	gstream
		Cgs		5gacc			5glen			5gfilenamefice-9/streams.scm�
	z
��		{	��		|	��		|	��		}	��		~	��		~	#��	(	~	��	+	~	7��	5	~	��	5	{	��	8	{	��	C	{	��		Cgnamegstream->reversed-list&length�CRh�]4>GC�gstream
		gl	
	glen		
	gfilenamefice-9/streams.scm�
�
��	�	��	�	��		gnamegstream->reversed-list�CR$h �]4>G45D�gstream
		gl	
	glen		
	gfilenamefice-9/streams.scm�
�
��	�	��	�	��	�	��	�	��		gnamegstream->list&length�CR$h$]456gstream
		
gfilenamefice-9/streams.scm�
�
��	�	��	
�	��		
gnamegstream->list�g
documentationf�Returns a newly allocated list whose elements are the elements of STREAM.
If STREAM has infinite length this procedure will not terminate.�CR%hX5])4>G45"%("&������"���
"���C-gstream
		Tgl	
	Tglen		
	Tgv			Tgi		!	Fgl		!	Fgfilenamefice-9/streams.scm�
�
��	�	��	�	��	�	��	�	��	!�	��	'�		��	2�	��	7�	*��	8�	��	;�	��	>�	��	F�	��	F�	��		Tgnamegstream->vector�CR&'h(�-13(
6�6�gf
			&ginit			&gstream				&grest				&gfilenamefice-9/streams.scm�
�
��	�	��	�	��	$�	��	&�	��			&	
	gnamegstream-fold�CR&
h0�]45$C4455456�gf
		+gr		+gstream			+gfilenamefice-9/streams.scm�
�
��	�	��	
�	��	�	��	�	��	"�	��	#�	3��	+�	��			+	gnamegstream-fold-one�C&R('h �](LC�4L�5�C�gcars
		gfilenamefice-9/streams.scm�
�	!��	�	#��	
�	'��	�	-��	�	-��	�	4��	�	-��	�	'��			gnamegrecur�C)
hH�]45$C4OQ4455?456�gf
		Ggr		Ggstreams			Ggrecur		"	:gfilenamefice-9/streams.scm�
�
��	�	��	�	��	�	��	"�	!��	-�	.��	7�	!��	<�	��	=�	��	G�	��		G	gnamegstream-fold-many�C'R*+h(�-13(6�6�gf
			"gstream			"grest				"gfilenamefice-9/streams.scm�
�
��	�	��	�	��	 �	��	"�	��			"	
	gnamegstream-for-each�CR
*h8�]45$C445>"G456�gf
		3gstream		3gfilenamefice-9/streams.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	+�	��	3�	��			3	gnamegstream-for-each-one�C*R(,)
+h@�]45$C445>"G456�gf
		;gstreams		;gfilenamefice-9/streams.scm�
�
��	�	��	�	��	�	��	�	��	$�	��	1�	 ��	;�	��			;	gnamegstream-for-each-many�C+R
h0�]	45$C4L45545�C�gs
		)gt			)gfilenamefice-9/streams.scm�
�	��	�	��		�	��	�	��	�	"��	 �	��	!�	2��	(�	��			)C()
h0�]	45$C4L45?45�C�gstreams
		/gt		/gfilenamefice-9/streams.scm�
�	��	�	��	�	��	�	��	�	(��	$�	��	%�	��	.�	��			/Ch0\-13(
O6O�6Tgf
			,gstream			,grest				,gfilenamefice-9/streams.scm�
�
��	�	��	�	��	*�	��	,�	��			,	
	gnameg
stream-map�g
documentationf�Returns a newly allocated stream, each element being the result of
invoking F with the corresponding elements of the STREAMs
as its arguments.�CR-h(�]4L545$C�C�gp
		#go			#gt			#gfilenamefice-9/streams.scm�
�	��	�	��		�	��	�	��	�	��	"�	��		#Ch�]O6�gport
		gread		gfilenamefice-9/streams.scm�
�
��	�	��			gnamegport->stream�CRC�gm
		(gfilenamefice-9/streams.scm�		
���	U
���	]
���	a
��	e
���	k
��	r
��	�	z
��
g�
��W�
����
��@�
��N�
��m�
����
����
����
����
��g�
����
��	�
C6PKQ<�Z�G��-�-
threads.gonu�[���GOOF----LE-8-2.0�-]�4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gthreads�	�		gfilenameS�	
fice-9/threads.scm�	gimportsS�	gfutures�	
�	
�	gmatch�	�	�	�	gexportsS�	gbegin-thread�	gparallel�	gletpar�	gmake-thread�	g
with-mutex�	gmonitor�	gpar-map�	gpar-for-each�	g	n-par-map�	gn-par-for-each�	gn-for-each-par-map�	g%thread-handler�	 �	!gset-current-module�	"!�	#!�	$gmake-syntax-transformer�	%$�	&$�	'gmacro�	(g$sc-dispatch�	)(�	*(�	+gany�	,geach-any�	-+,��	.+-��	/g
syntax-object�	0gcall-with-new-thread�	1gtop�	21�	3gribcage�	4gdummy�	5ge0�	6ge1�	7456�	8gm-4712ba65e6-1�	981�	:922�	;fl-4712ba65e6-6�	<fl-4712ba65e6-7�	=fl-4712ba65e6-8�	>;<=�	?37:>�	@3�	Agx�	BA�	C9�	Dfl-4712ba65e6-3�	ED�	F3BCE�	G2?@F�	Hghygiene�	IH�	J/0GI�	Kglambda�	L/KGI�	M/GI�	NM�	Ogsyntax-violation�	PO�	QO�	Rf-source expression failed to match any pattern�	Sg_�	TS,��	Uggenerate-temporaries�	Vglet�	Wgtmp0�	XW�	Y2�	Zfl-4712ba65e6-16�	[Z�	\3XY[�	]5�	^fl-4712ba65e6-11�	_^�	`3]Y_�	afl-4712ba65e6-e�	ba�	c3BYb�	d2@\`@c�	e/VdI�	fgmap�	gf�	hf�	igfuture�	j/idI�	kgvalues�	l/kdI�	mgtouch�	n/mdI�	ogeach�	p++�	qop�	rq-��	s+r��	tgcall-with-values�	ugv�	vge�	wgb0�	xgb1�	y4uvwx�	zgm-4712ba65e6-1d�	{z1�	|{2222�	}fl-4712ba65e6-22�	~fl-4712ba65e6-23�	fl-4712ba65e6-24��fl-4712ba65e6-25��fl-4712ba65e6-26��}~����3y|���{��fl-4712ba65e6-1f�����3B����2�@���/t�I��/K�I��/�I��gproc��garg��4����gm-4712ba65e6-30���1���22��fl-4712ba65e6-35��fl-4712ba65e6-36��fl-4712ba65e6-37�������3��������fl-4712ba65e6-32�����3B����2�@���/0�I��/K�I��/�I�����+.���gm��4�56��gm-4712ba65e6-3d���1���222��fl-4712ba65e6-42��fl-4712ba65e6-43��fl-4712ba65e6-44��fl-4712ba65e6-45��������3��������fl-4712ba65e6-3f�����3B����2�@���/V�I��/A�I��gdynamic-wind��/��I��/K�I��g
lock-mutex��/��I����������gbegin��/��I��gunlock-mutex��/��I�������������gfirst��grest��4����gm-4712ba65e6-4c���1���22��fl-4712ba65e6-51��fl-4712ba65e6-52��fl-4712ba65e6-53�������3��������fl-4712ba65e6-4e�����3B����2�@���/�I��g
make-mutex��/��I�����greverse��������gmake-future��
���
���g
par-mapper��gcons��gfor-each��gconst��g	make-list��glength��gjoin-thread��gcar��gcdr��gapply��gno-value�����gcurrent-error-port��gdisplay��f
In thread:��gnewline��g
display-error��funcaught throw to ��f: ��gthread-handler�C5h8�]4	
 54#>"G4&'*.JLNhM]�����CEgdummy
		ge0		ge1						CQRh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/threads.scm�
	7
��		"g
macro-typegsyntax-rules�gpatternsge0ge1g...C5R4&'*TU*,ehjhX]CPgtmp-4712ba65e6-19
		gtmp-4712ba65e6-18					Clnh9]C1gtmp-4712ba65e6-1a
		
		
Ch ,]4L545�C$gtmp0
				CQRh0]4545$O@6wge0
		0gtmp			0gtmp			0gfilenamefice-9/threads.scm�		@	!��			@	��		0CQRh(d]	45$@6\gx
		"gtmp		"gfilenamefice-9/threads.scm�
	=	��		"C5R4&'*s���h k]����Ccgdummy
		gv		ge			gb0			gb1						CQRh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/threads.scm�
	E
��		"g
macro-typegsyntax-rules�gpatternsgvgeg...gb0gb1g...C5R4&'*.���hP]���CHgdummy
		gproc		garg						CQRh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/threads.scm�
	K
��		"g
macro-typegsyntax-rules�gpatternsgprocgargg...C5R4&'*��������h0\]�����CTgdummy
		)gm		)ge0			)ge1			)		)	CQRh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/threads.scm�
	P
��		"g
macro-typegsyntax-rules�gpatternsgmge0ge1g...C5R4&'*.��hR]���CJgdummy
		gfirst		grest						CQRh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/threads.scm�
	W
��		"g
macro-typegsyntax-rules�gpatternsgfirstgrestg...C5R��hL]LL6Dgfilenamefice-9/threads.scm�
	`	��		`	��		
Cmh�e]9"(845454LO54L?L456�$8��$*���$���"���CCC"��s]glists
	�gls	�gp-ls		�gp-ls		�gtails			Dgheads			Dgtail		3	Dghead		3	Dgw		N�gw		]�gx		]�gfilenamefice-9/threads.scm�
	]	��		^	��		`	��	-	a	��	3	`		��	<	b	��	D	b	��	G	^	���	d		���	^	��	�gnamegloop�Ch(�-13OLQ6}gproc
			"glists			"gloop			"gfilenamefice-9/threads.scm�
	\	��		]	��			"
Ch�]OCygmapper
		
gcons		
gfilenamefice-9/threads.scm�
	[
��		
	gnameg
par-mapper�C�R4�ifi�i5R4�i�i4�i55R�����0��f��hh�]"]4L>"GM(L64M5M4M5NM�N4L>"G4L?�"���"����gargs
	/	cg	my-result	/	cgfilenamefice-9/threads.scm�
	s	��		t	��		u	��		v	��	$	w	��	%	x	%��	/	x	��	4	z	*��	>	z	��	A	{	(��	C	{	��	D	|	��	X	}	/��	_	}	��	c	~	��	c	t	��		g
C	hx�-13H45H44J�55H"B�$4J>"GC4O5J�K�"���
"����gn
	
	wgproc	
	wgarglists		
	wgm			wgthreads			wgresults		$	wgresult		(	wgi		.	pgfilenamefice-9/threads.scm�
	i
��		j	��		j	��		k	��		j	��		l	��		l	��	 	l	%��	"	l	��	$	l	��	$	j	��	.	n	��	3	o		��	7	n	��	8	p		��	O	s	��	e	s	��	g	r	��	j	n	��	p	n	��			w	
	gnameg	n-par-map�CR���0��f���hp�]"_4L>"GM�(L64M54M5N4L>"G4L>"G"���"����gargs
	.	egfilenamefice-9/threads.scm�
�	��	�	��	�	��	�	 ��	�	��	%�	��	&�	%��	.�	��	1�	*��	;�	��	<�	��	N�	��	e�	��	e�	��		i
ChX9-13H45H"1�$J64O5J�K�"���
"���1gn
	
	Sgproc	
	Sgarglists		
	Sgm			Sgthreads			Sgi			Lgfilenamefice-9/threads.scm�
�
��	�	��	�	��	�	��	�	��	 �		��	$�	��	,�		��	-�	��	A�	��	C�	��	F�	��	L�	��			S	
	gnamegn-par-for-each�CR������0���f��h��]"�4L>"GM(L6M�&KM(L64M5M4M5NM�N4L>"G4L?�"���M�M�4L>"G4L>"G4L>"GM�N4L>"G"��3"��/�gargs
	D	xg	my-result	D	xgarg
	{�gfilenamefice-9/threads.scm�
�	��	�	��	�	��	�	��	$�	��	'�	&��	)�	��	-�	��	9�	��	:�	(��	D�	��	I�	-��	S�	��	V�	+��	X�	��	Y�	��	m�	2��	t�	��	x�	��	{�	'��	{�	����	����	����	����	����	����	,����	����	����	����	�� 	�
C
hpA-13	H45H44J�55HJH"7�$J64O	5J�K�"���
"���9gn
	
	ngs-proc	
	ngp-proc		
	ngarglists		
	ngm			ngthreads			ngresults		&	ngresult		*	ngi		0	g	gfilenamefice-9/threads.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	 �	%��	"�	��	$�	��	&�	��	&�	��	0�	��	5�		��	9�	��	A�		��	B�	��	\�	��	^�	��	a�	��	g�	��			n	
	gnamegn-for-each-par-map�g
documentationfgUsing N parallel processes, apply S-PROC in serial order on the results
of applying P-PROC on ARGLISTS.�CR��������	h��-1345454>"G4>"G	�$74������	�$
����">"G"b4>"G4>"G4>"G4>"G4>"GC�gtag
		�gargs		�gn		�gp		�gfilenamefice-9/threads.scm�
�
��	
�	��	�	��	�	��	�	��	�	
��	%�	��	.�	��	D�	��	H�	��	I�	��	Q�	��	T�	��	X�	��	_�	��	c�	��	f�	��	n�	��	s�	����	
����	����	
����	
����	
����	����	
����	
����	
��		�
gnamegthread-handler�C�R�iRC�gm
		,gfilenamefice-9/threads.scm�		"
��d	[
��e	f	��v	f
��w	g	���	g	*���	g	���	g
��	i
���
��|�
��.�
��5�
��	7
C6PKQ<�Z�Y �safe-r5rs.gonu�[���GOOF----LE-8-2.0�]�4hS]gguile�	�	gdefine-module*�	�	�	gice-9�	g	safe-r5rs�	�		gfilenameS�	
fice-9/safe-r5rs.scm�	gexportsS�	gnull-environment�	
�	g
re-exportsS�	geqv?�	geq?�	gequal?�	gnumber?�	gcomplex?�	greal?�	g	rational?�	ginteger?�	gexact?�	ginexact?�	g=�	g<�	g>�	g<=�	g>=�	gzero?�	g	positive?�	 g	negative?�	!godd?�	"geven?�	#gmax�	$gmin�	%g+�	&g*�	'g-�	(g/�	)gabs�	*gquotient�	+g	remainder�	,gmodulo�	-ggcd�	.glcm�	/g	numerator�	0gdenominator�	1grationalize�	2gfloor�	3gceiling�	4gtruncate�	5ground�	6gexp�	7glog�	8gsin�	9gcos�	:gtan�	;gasin�	<gacos�	=gatan�	>gsqrt�	?gexpt�	@gmake-rectangular�	Ag
make-polar�	Bg	real-part�	Cg	imag-part�	Dg	magnitude�	Egangle�	Fgexact->inexact�	Gginexact->exact�	Hgnumber->string�	Igstring->number�	Jgboolean?�	Kgnot�	Lgpair?�	Mgcons�	Ngcar�	Ogcdr�	Pgset-car!�	Qgset-cdr!�	Rgcaar�	Sgcadr�	Tgcdar�	Ugcddr�	Vgcaaar�	Wgcaadr�	Xgcadar�	Ygcaddr�	Zgcdaar�	[gcdadr�	\gcddar�	]gcdddr�	^gcaaaar�	_gcaaadr�	`gcaadar�	agcaaddr�	bgcadaar�	cgcadadr�	dgcaddar�	egcadddr�	fgcdaaar�	ggcdaadr�	hgcdadar�	igcdaddr�	jgcddaar�	kgcddadr�	lgcdddar�	mgcddddr�	ngnull?�	oglist?�	pglist�	qglength�	rgappend�	sgreverse�	tg	list-tail�	uglist-ref�	vgmemq�	wgmemv�	xgmember�	ygassq�	zgassv�	{gassoc�	|gsymbol?�	}gsymbol->string�	~gstring->symbol�	gchar?��gchar=?��gchar<?��gchar>?��gchar<=?��gchar>=?��g	char-ci=?��g	char-ci<?��g	char-ci>?��g
char-ci<=?��g
char-ci>=?��gchar-alphabetic?��g
char-numeric?��gchar-whitespace?��gchar-upper-case?��gchar-lower-case?��g
char->integer��g
integer->char��gchar-upcase��g
char-downcase��gstring?��gmake-string��gstring��g
string-length��g
string-ref��gstring-set!��gstring=?��gstring-ci=?��gstring<?��gstring>?��g	string<=?��g	string>=?��gstring-ci<?��gstring-ci>?��gstring-ci<=?��gstring-ci>=?��g	substring��g
string-append��gstring->list��glist->string��gstring-copy��gstring-fill!��gvector?��gmake-vector��gvector��g
vector-length��g
vector-ref��gvector-set!��gvector->list��glist->vector��gvector-fill!��g
procedure?��gapply��gmap��gfor-each��gforce��gcall-with-current-continuation��gvalues��gcall-with-values��gdynamic-wind��geval��ginput-port?��goutput-port?��gcurrent-input-port��gcurrent-output-port��gread��g	read-char��g	peek-char��geof-object?��gchar-ready?��gwrite��gdisplay��gnewline��g
write-char�� !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~�����������������������������������������������������������������������������gset-current-module��������gresolve-interface��gnull�����gnull-interface��gmodule-use!��gmodule-public-interface��gcurrent-module��g	scm-error��g
misc-error��f~A is not a valid version��gmake-module��gset-module-kind!��g	interface�C5h��]4	

�54�>"G4�i�5�R4�i4�i4�i55�i>"G��������
h`]		�$"4>"G4	54>"G4	>"GCgn
		_g	interface	2	_gfilenamefice-9/safe-r5rs.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�	��	,�	��	2�	��	5�	��	;�	 ��	@�	��	I�	��		_gnamegnull-environment�CRC�gm
		,gfilenamefice-9/safe-r5rs.scm�		
��	-�	��	3�	*��	5�	��	8�
��	9�
��	>�	
��	C�	&��	K�	
��	T�
����
��	�
C6PKQ<�Z�ًX	rdelim.gonu�[���GOOF----LE-8-2.0�]h4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	grdelim�	�		gfilenameS�	
fice-9/rdelim.scm�	gexportsS�	g	read-line�	
g
read-line!�	gread-delimited�	gread-delimited!�	gread-string�	gread-string!�	g%read-delimited!�	g
%read-line�	g
write-line�	
	�	gset-current-module�	�	�	g%init-rdelim-builtins�	gcurrent-input-port�	f
�	geof-object?�	gtrim�	g
string-length�	gpeek�	 gsplit�	!gconcat�	"gstring-set!�	#gerror�	$funexpected handle-delim value: �	%gmake-string�	&gstring-concatenate-reverse�	'g	substring�	(g
string-append�	)gstring�	*gmake-syntax-transformer�	+*�	,*�	-g	check-arg�	.gmacro�	/g$sc-dispatch�	0/�	1/�	2gany�	3geach-any�	423��	524��	625��	7g
syntax-object�	8gunless�	9gtop�	:9�	;gribcage�	<gdummy�	=gexp�	>gmessage�	?garg�	@<=>?�	Agm-1eeb5757c-50�	BA9�	CB:::�	Dfl-1eeb5757c-55�	Efl-1eeb5757c-56�	Ffl-1eeb5757c-57�	Gfl-1eeb5757c-58�	HDEFG�	I;@CH�	J;�	Kgx�	LK�	MB�	Nfl-1eeb5757c-52�	ON�	P;LMO�	Q:IJP�	Rghygiene�	SR�	T78QS�	U7#QS�	Vgsyntax-violation�	WV�	XV�	Yf-source expression failed to match any pattern�	Zginteger?�	[gexact?�	\gindex?�	]gstring?�	^fnot a string�	_f	bad index�	`fstart beyond end�	afend beyond string length�	bg	read-char�	cglist->string�	dgreverse!�	egreverse�	fgchar?�	ggunread-char�C5h�]4	
54>"G4i>"Gh`$-.,3#45��"$CC
�$45$C"���"���gstring
		[gport		[grv		"	[g
terminator		'	[gnchars		,	[gfilenamefice-9/rdelim.scm�
	&
��		)	
��		(	 ��	"	)	
��	"	)	��	'	-	��	'	)	��	,	.	��	,	)	��	8	/	��	A	/	��	E	/	��	F	0	��	P	/	��		[gnameg
read-line!�C
R !"#$h�:-.,3	#45##
#	454��5��$45"$*
�$&�CC&�CC�$"�$C�$4	�>"G�C�$�C
62gdelims
	�gbuf	�gport		�ghandle-delim		�gstart		�gend		�grv		P�g
terminator		U�gnchars		Z�	gfilenamefice-9/rdelim.scm�
	5
��		6	 ��	!	6	D��	3	7	)��	<	8	
��	F	:	6��	G	:	$��	H	:	��	P	8	
��	P	8	��	U	>	��	U	8	��	Z	?	��	Z	8	��	b	@	��	c	A	��	n	@	��	r	@	��	u	B	��	z	B	��	~	C	%���	C	���	D	���	F	%���	F	���	G	���	J	���	L	���	L	(���	L	���	M	���	J	���	N	���	O	���	O	��$	�		gnamegread-delimited!�CR%&'!() #$h �-.,3#45#"�454��5��		�
$�"i44
	5�5�$4	5$C
456�$"�$C�$�C
64	5$

�$&�CC"��o"��k4
	5�
	�"��
	d"���gdelims
	gport	ghandle-delim		g
substrings		'gtotal-chars		'gbuf-size		'gbuf		.grv		Ag
terminator		Fgnchars			Kg	new-total	
	Rgjoined		p�gfilenamefice-9/rdelim.scm�
	R
��		R	1��	!	S	'��	'	T	��	(	W	��	.	W	��	1	X	��	;	Z	8��	<	Z	&��	=	Z	!��	A	X	��	A	W	��	F	\	��	F	W	��	K	]	��	K	W	��	R	^	��	R	W	��	Z	_	��	_	k	��	b	l	��	n	l	��	p	k	��	p	j	��	{	m	
��	|	o	���	o	
���	q	'���	q	���	m	
���	s	���	t	���	t	���	_	���	e	
���	_	���	e	&���	e	���	f	���	f	���	g	���	b	��	b	��	d	��	b	��	T	��	T	��	T	��1		gnamegread-delimited�CR4,-.16TUhd]��C\gdummy
		gexp		gmessage			garg						CXYh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/rdelim.scm�
	w
��		"g
macro-typegsyntax-rules�gpatternsgexpgmessagegargg...C5-RZ[h(�]45$45$
�CCC�gn
		!gfilenamefice-9/rdelim.scm�
	{
��		|	��	
	|	��		|	��		|	��		|	��		!gnamegindex?�C\R]#^\_`ab"
h8�-.,3#45#
#	4545$"4>"G45$"4>"G45$"4>"G�$"4>"G45�$"4	>"G"H�$94
545$�C4>"G�"����C"����gbuf
	7gport	7gstart		7gend		7gn	�/gc	�)gfilenamefice-9/rdelim.scm�
	~
��			��	)�	&��	2�	
��	<�	��	E�	��	L�	��	U�	
��	_�	��	h�	��	o�	��	x�	
����	����	����	����	
����	����	����	����	����	
����	����	*����	����	����	����	����	����	����	���	
��	�	���	��#�	��)�	��.�	��/�	��&	7	gnamegread-string!�g
documentationfNRead all of the characters out of PORT and write them to BUF.
Returns the number of characters read.

This function only reads out characters from PORT if it will be able to
write them to BUF.  That is to say, if BUF is smaller than the number of
available characters, then BUF will be filled, and characters will be
left in the port.�CRbcdeh��*N.+E3#45"*4545$456�"���"���]""D4545$"�$456��"���
"����gport
		Tgchars	#	Mgchar		*	Mgport
	V�gcount	V�gchars		Z�gtotal		Z�gchar		a�gt		j		gfilenamefice-9/rdelim.scm�
�	��	�	��	#�	��	$�	��	*�	��	-�	��	7�	��	:�	��	B�	��	G�	��	M�	��	M�	��	N�	��	T�	��	V�	��	Z�	��	[�	��	a�	��	d�	��	j�	��	|�	#����	����	����	����	����	$����	����	����	����	��		T
	V�	gnamegread-string�g
documentationf�Read all of the characters out of PORT and return them as a string.
If the COUNT argument is present, treat it as a limit to the number of
characters to read.  By default, there is no limit.�CR !]f()g#$h��-.,3#45#45���$C�$C�$)45$45$
4	56CC
�$&45$4>"G"C
6�gport
	�ghandle-delim	�g
line/delim		*�gline		/�gdelim		4�gfilenamefice-9/rdelim.scm�
�
��	�	%��	!�	"��	$�	��	*�	��	/�	��	/�	��	4�	��	4�	��	?�	��	X�	��	b�	��	c�	(��	m�	��	r�	(��	z�	����	����	����	����	����	����	��	�
	gnameg	read-line�CRC�gm
		(gfilenamefice-9/rdelim.scm�		
��	)	$
���	&
��5	5
��	|	R
���	{
���	~
����
����
��
	�
C6PKQ<�Z�>�,rw.gonu�[���GOOF----LE-8-2.0�]4h-]gguile�	�	gdefine-module*�	�	�	gice-9�	grw�	�		gfilenameS�	
fice-9/rw.scm�	gexportsS�	gread-string!/partial�	
gwrite-string/partial�	
�	gset-current-module�	�	�	g%init-rw-builtins�C5h0V]4	
54>"Gi6Ngm
		(gfilenamefice-9/rw.scm�		
��	.	
��		.
C6PKQ<�Z��y�zzbinary-ports.gonu�[���GOOF----LE-8-2.0b]*4hA]gguile�	�	gdefine-module*�	�	�	gice-9�	gbinary-ports�	�		gfilenameS�	
fice-9/binary-ports.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	�	gexportsS�	g
eof-object�	gopen-bytevector-input-port�	gmake-custom-binary-input-port�	gget-u8�	glookahead-u8�	gget-bytevector-n�	gget-bytevector-n!�	gget-bytevector-some�	gget-bytevector-all�	g
get-string-n!�	gput-u8�	gput-bytevector�	gunget-bytevector�	gopen-bytevector-output-port�	 gmake-custom-binary-output-port�	! �	"gset-current-module�	#"�	$"�	%gload-extension�	&g
string-append�	'f	libguile-�	(geffective-version�	)fscm_init_r6rs_ports�C5hH�]4	
!54$>"G%i4&i'4(i55)6�gm
		,gfilenamefice-9/binary-ports.scm�		
��	1	1	��	7	1	��	8	1	+��	@	1	��	B	2	��	D	1
��		D
C6PKQ<�Z�nrroccam-channel.gonu�[���GOOF----LE-8-2.0�q]�4h�-]gguile�	�	gdefine-module*�	�	�	gice-9�	g
occam-channel�	�		gfilenameS�	
fice-9/occam-channel.scm�	gimportsS�	goop�	
ggoops�	
�	�	gthreads�	�	�	�	gexportsS�	galt�	goc:lock�	g	oc:unlock�	goc:consequence�	goc:immediate-dispatch�	goc:late-dispatch�	goc:first-channel�	goc:set-handshake-channel�	goc:unset-handshake-channel�	gmake-channel�	g?�	 g!�	!g
make-timer�	"ghandshake-channel�	#gmutex�	$gsender-waiting?�	%gimmediate-receive�	&glate-receive�	' !"#$%&�	(gset-current-module�	)(�	*(�	+gno-data�	,+�	-greceiver-waiting�	.-�	/gtoplevel-define!�	0/�	1/�	2g	<channel>�	3g
make-class�	4gnameS�	5gdefined?�	65�	75�	8gis-a?�	98�	:8�	;g<class>�	<;�	=;�	>gmemq�	?g<object>�	@?�	A?�	Bgclass-precedence-list�	CB�	DB�	Egclass-redefinition�	FE�	GE�	Hg
<accessor>�	IH�	JH�	Kgensure-accessor�	LK�	MK�	Ngdata�	Ogcv�	Pg<data-channel>�	QgaccessorS�	Rg
init-valueS�	Sg	init-formS�	Tgmake-condition-variable�	UT�	Vg
init-thunkS�	Wg
make-mutex�	XW�	Yg
initialize�	Zgmake�	[Z�	\Z�	]g	<generic>�	^]�	_]�	`gadd-method!�	a`�	b`�	cg<method>�	dc�	ec�	fgspecializersS�	gg<top>�	hg�	ig�	jgformalsS�	kgch�	lginitargs�	mkl�	ngbodyS�	ognext-method�	po�	qgset!�	r"k�	sqrk�	tps�	ugmake-procedureS�	vgsetter�	wv�	xv�	yg	procedureS�	zZP�	{z�	|k�	}gnot�	~geq?�	Nk��~+��}������greceiver-waiting?��~-�����gsignal-condition-variable��Ok������glet��gres��������q+���������������g
lock-mutex��#k������gcond���k��gunlock-mutex������g	scm-error��gquote��g
misc-error���������f*another process is already receiving on ~A��glist���k��������������$k��%k������gelse��q-��gwait-condition-variable�������&k�������������������������������g
*unspecified*�� k������gx��k���#r������q���Or���������������� ��f(another process is already sending on ~A������������������������������gport��g<port-channel>��ginit-keywordS��gportS��g<port>�����Z��������gread���k���������gwrite���������g<timer-channel>��g	the-timer��gtimer-cv��gtimer-mutex��g
timeofday->us��g
us->timeofday��ggettimeofday������������g	<integer>��gt��k��������������������������gmake-syntax-transformer��������gmacro��g$sc-dispatch��������gany��gfree-id��g
syntax-object��gtop�����gribcage��������gm-17d5859fdf6989b4-ca���������fl-17d5859fdf6989b4-cc����������������ghygiene������������������geach-any�������gdummy�gform�k�����fl-17d5859fdf6989b4-cf�fl-17d5859fdf6989b4-d0�fl-17d5859fdf6989b4-d1�	�
�	��
�������
�#�������gexp�k������fl-17d5859fdf6989b4-d6�fl-17d5859fdf6989b4-d7�fl-17d5859fdf6989b4-d8�fl-17d5859fdf6989b4-d9�������������#���������fl-17d5859fdf6989b4-df� fl-17d5859fdf6989b4-e0�!fl-17d5859fdf6989b4-e1�" !�#�"�$�#���%�$��&gsyntax-violation�'&�(&�)f-source expression failed to match any pattern�*gm-17d5859fdf6989b4-e5�+*��,+�-fl-17d5859fdf6989b4-e7�.-�/��,.�0��/�1�0��2�1�32��43���5�4�6+���7fl-17d5859fdf6989b4-ea�8fl-17d5859fdf6989b4-eb�9fl-17d5859fdf6989b4-ec�:789�;�6:�<�;�/�=��<��>�#<��?�4��@�?�A+����Bfl-17d5859fdf6989b4-f1�Cfl-17d5859fdf6989b4-f2�Dfl-17d5859fdf6989b4-f3�Efl-17d5859fdf6989b4-f4�FBCDE�G�AF�H�G�/�I��H��J�#H��Kfl-17d5859fdf6989b4-fa�Lfl-17d5859fdf6989b4-fb�Mfl-17d5859fdf6989b4-fc�NKLM�O�6N�P�O�/�Q�P��R���Sg=>�Tgm-17d5859fdf6989b4-100�UT��VU�Wfl-17d5859fdf6989b4-102�XW�Y��VX�Z��Y�[�SZ��\�[�]��^]��_�^��`��\_�aglambda�bge1�cge2�dNa�bc�eU������ffl-17d5859fdf6989b4-10a�gfl-17d5859fdf6989b4-10b�hfl-17d5859fdf6989b4-10c�ifl-17d5859fdf6989b4-10d�jfl-17d5859fdf6989b4-10e�kfl-17d5859fdf6989b4-10f�lfghijk�m�del�n�m�Y�o��n��p���q�p��rgbegin�sNbc�tU����ufl-17d5859fdf6989b4-118�vfl-17d5859fdf6989b4-119�wfl-17d5859fdf6989b4-11a�xfl-17d5859fdf6989b4-11b�yuvwx�z�sty�{�z�Y�|�r{��}gm-17d5859fdf6989b4-121�~}��~��fl-17d5859fdf6989b4-123�������������������������������������kb��~����fl-17d5859fdf6989b4-126��fl-17d5859fdf6989b4-127��fl-17d5859fdf6989b4-128��������������������$����������%�������������gand��kb��~�����fl-17d5859fdf6989b4-12e��fl-17d5859fdf6989b4-12f��fl-17d5859fdf6989b4-130��fl-17d5859fdf6989b4-131���������������������������$����������%����gm-17d5859fdf6989b4-13f���������fl-17d5859fdf6989b4-141�������������������������������������������fl-17d5859fdf6989b4-144��fl-17d5859fdf6989b4-145��fl-17d5859fdf6989b4-146��������������������$����������&�������������������fl-17d5859fdf6989b4-14c��fl-17d5859fdf6989b4-14d��fl-17d5859fdf6989b4-14e��fl-17d5859fdf6989b4-14f���������������������������$����������&����b��fl-17d5859fdf6989b4-156��fl-17d5859fdf6989b4-157��fl-17d5859fdf6989b4-158���������������������������gm-17d5859fdf6989b4-15c���������fl-17d5859fdf6989b4-15e����������������������������������������܌���ی��������ߌ��g
first-channel��gc1��gc2�����������fl-17d5859fdf6989b4-175��fl-17d5859fdf6989b4-176��fl-17d5859fdf6989b4-177�������������������������gm-17d5859fdf6989b4-17c���������fl-17d5859fdf6989b4-17e���������������������������������������g	handshake��kb���������fl-17d5859fdf6989b4-181��fl-17d5859fdf6989b4-182��fl-17d5859fdf6989b4-183��fl-17d5859fdf6989b4-184���������������q���"���������kb��������	fl-17d5859fdf6989b4-18a�
fl-17d5859fdf6989b4-18b�fl-17d5859fdf6989b4-18c�fl-17d5859fdf6989b4-18d�
fl-17d5859fdf6989b4-18e�	

������������q���"�����b��fl-17d5859fdf6989b4-195�fl-17d5859fdf6989b4-196�fl-17d5859fdf6989b4-197�fl-17d5859fdf6989b4-198������������gm-17d5859fdf6989b4-19d��� �!fl-17d5859fdf6989b4-19f�"!�#�� "�$��#�%�$��&�%�'&��('���)�(�*���+fl-17d5859fdf6989b4-1a2�,fl-17d5859fdf6989b4-1a3�-fl-17d5859fdf6989b4-1a4�.+,-�/��*.�0�/�#�1�q0��2�"0��3�(��4�3�5����6fl-17d5859fdf6989b4-1a9�7fl-17d5859fdf6989b4-1aa�8fl-17d5859fdf6989b4-1ab�9fl-17d5859fdf6989b4-1ac�:6789�;��5:�<�;�#�=��<��>�q<��?�"<��@fl-17d5859fdf6989b4-1b2�Afl-17d5859fdf6989b4-1b3�Bfl-17d5859fdf6989b4-1b4�C@AB�D��*C�E�D�#�F�E��Gg_�HG�I��Jfl-17d5859fdf6989b4-1bd�KJ�L��IK�Mgelse-clause?�NM�O��Pfl-17d5859fdf6989b4-1ba�QP�R�NOQ�Sfl-17d5859fdf6989b4-1b9�TS�U��IT�V��LRU�W��V��X�W�YX��ZGY�[G��\���]���^fl-17d5859fdf6989b4-1c6�_fl-17d5859fdf6989b4-1c7�`^_�a�\]`�b�a�LRU�c�Gb��dfl-17d5859fdf6989b4-1d9�efl-17d5859fdf6989b4-1da�fde�g�\]f�h�gRU�i�rh��j�h��kgappend�lk�mk�ngmap�on�pn�q��h��r��h��s��h��t�h��u��h��v�kh��w�h��x�h��yv�z��h��{�Oh��|{v�}�#h��~}v�z|~���h����h����h���r��fl-17d5859fdf6989b4-1d1��fl-17d5859fdf6989b4-1d2�������\]�����RU���r���������������������������������������C5h?�]4	
'54*>"G,+R.-R"'41243i425>"tG"m4725$^4:2i=5$G4>iA4D2i55$)4G2i43i425>"G""��|""��t""��l47"5�$"4:"iJ5�$141"4M47"5$"i""5>"G"47N5�$"4:NiJ5�$141N4M47N5$Ni"N5>"G"47O5�$"4:OiJ5�$141O4M47O5$Oi"O5>"G"47#5�$"4:#iJ5�$141#4M47#5$#i"#5>"G""241P43i2i"Q"iNQNiR+iOQOiSUVThK]6Cgfilenamefice-9/occam-channel.scm�		-	 ��		
C#Q#iSXVWhK]6Cgfilenamefice-9/occam-channel.scm�		.	&��		
C4P5>"�G"|47P5$m4:Pi=5$V4>iA4DPi55$84GPi43i2i"Q"iNQNiR+iOQOiSUVThK]6Cgfilenamefice-9/occam-channel.scm�		-	 ��		
C#Q#iSXVWhK]6Cgfilenamefice-9/occam-channel.scm�		.	&��		
C4P5>"G""��b""��Z""��R47Y5�$"Yi�$!41Y4\_4Y5>"G"4bYi4\efPiijmntux"h(x]4L>"G456pgch
		#ginitargs		#gfilenamefice-9/occam-channel.scm�
	0
��	#	2	��		#	Chh]OC`greal-next-method
		
gfilenamefice-9/occam-channel.scm�
	0
��		
Cy5>"G475�$"i�$!414\_45>"G"4bi4\efjn{uyZPhQ]6Igfilenamefice-9/occam-channel.scm�
	4
��		5	��		
C5>"G47$5�$"$i�$!41$4\_4$5>"G"4b$i4\efPij|n�uyN+hr]45��Cjgch
		gfilenamefice-9/occam-channel.scm�
	7
��		8	��		8	��	
	8	��		C5>"G47�5�$"�i�$!41�4\_4�5>"G"4b�i4\efPij|n�uyN-hj]45�Cbgch
		
gfilenamefice-9/occam-channel.scm�
	:
��		;	��		;	��		
C5>"G47%5�$"%i�$!41%4\_4%5>"G"4b%i4\efPij|n�uy�ONx+h@�]	445>"G45445>"GC�gch
		>gres	 	>gfilenamefice-9/occam-channel.scm�
	=
��		>	��		>	��		>	��		?	
��	 	?	��	#	@	��		>C5>"G47&5�$"&i�$!41&4\_4&5>"G"4b&i4\efPij|n�uyNx+h(�]	45445>"GCzgch
		'gres			'gfilenamefice-9/occam-channel.scm�
	C
��		D	
��			D	��		E	��		'C5>"G475�$"i�$!414\_45>"G"4bi4\efPij|n�uy�#�����$%xN-�O&h�O]	445>"G45$,445>"G45"T4	5$4
5">445
>"G44545>"G45445>"GCGgch
	�gres��gfilenamefice-9/occam-channel.scm�
	H
��		I	��		I	��		I	��		J	��	$	J	
��	%	K	��	(	K	"��	3	K	��	<	L	��	@	L	��	B	L	+��	D	M	��	I	N	��	L	L	��	Q	O	��	[	J	
��	\	P	��	g	R	���	S	���	S	-���	S	5���	S	���	T	���	J	���	U	���	U	���	U	��	�C5>"G47 5�$" i�$!41 4\_4 5>"G"4b i4\efPij|n�uy hb]6Zgch
			gfilenamefice-9/occam-channel.scm�
	X
��			Y	��			C5>"G47 5�$" i�$!41 4\_4 5>"G"4b i4\efPigij�n�uy�#"�xN�O$��� ��h��]44455>"G45$9445>"G44455>"G"~4	5$<4
4455>"G4
>"G"7445>"G44545>"G
44556�gch
	�gx	�gfilenamefice-9/occam-channel.scm�
	[
��		\	��		\	��			\	��		\	��		\	��		]		��	)	]	��	*	^		��	C	_		��	F	_	$��	I	_	(��	Q	_	$��	V	_		��	c	`		��	m	]	��	n	a		��	q	a	��	t	a	��	|	a	���	a		���	b		���	b	���	b	 ���	b	#���	c	���	b		���	e		���	f		���	f	"���	f	*���	f		���	g	���	g	���	g	���	g	��%	�	C5>"G47�5�$"4:�iJ5�$141�4M47�5$�i"�5>"G"47�5$�4:�i=5$�4>iA4D�i55$<4G�i43i2i�Q�i��4�5>"G"641�43i2i�Q�i��4�5>"G"641�43i2i�Q�i��4�5>"G"641�43i2i�Q�i��4�5>"G475�$"i�$!414\_45>"G"4bi4\ef�ij�n�uyZ��hd]6\gport
		gfilenamefice-9/occam-channel.scm�
	n
��		o	��		C5>"G475�$"i�$!414\_45>"G"4bi4\ef�ij|n�uy��hj]456bgch
		
gfilenamefice-9/occam-channel.scm�
	q
��		r	��	
	r	��		
C5>"G47 5�$" i�$!41 4\_4 5>"G"4b i4\ef�ij|n�uy��hj]456bgch
		
gfilenamefice-9/occam-channel.scm�
	t
��		u		��	
	u	��		
C5>"G"+41�43i2i4�5>"xG"q47�5$b4:�i=5$K4>iA4D�i55$-4G�i43i2i4�5>"G""��t""��l""��d4Zi�i5�R4Ti5�R4Wi5�R�h`]CXgfilenamefice-9/occam-channel.scm�
	~
��		
gnameg
make-timer�C!Rh�]B@����C�gt
		gfilenamefice-9/occam-channel.scm�
�
��	�	��	�	��	�	��	�	��		gnameg
timeofday->us�C�Rh �]B@�B@��C�gn
		gfilenamefice-9/occam-channel.scm�
�
��	�	��	�	��	�	��		gnameg
us->timeofday�C�R475�$"i�$!414\_45>"G"4bi4\ef�ij|n�uy��hm]456egch
		gfilenamefice-9/occam-channel.scm�
�
��	�	��	�	��		C5>"G475�$"i�$!414\_45>"G"4bi4\ef�i�ij�n�uy������h8�]4>"G445>"G6�gch
		5gt		5gfilenamefice-9/occam-channel.scm�
�
��	�	��	�	��	�	0��	'�	��	5�	��		5	C5>"G4���
hO]CGgdummy
		gch		gform						Ch`]CXgdummy
		gexp		gch			gform						C%hP]CHgdummy
		gexp		gform						C()
hP$]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchgformg...gexpg?gchgformg...gexpgformg...C5R4���5=>hO]CGgdummy
		gch		gform						C@IJh`]CXgdummy
		gexp		gch			gform						CQhP]CHgdummy
		gexp		gform						C()
hP$]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchgformg...gexpg?gchgformg...gexpgformg...C5R4���Rh?]C7gdummy
		gdata					C`oh�]���Czgdummy
		gdata		glambda			gx			ge1			ge2						Cq|h_]���CWgdummy
		gdata		ge1			ge2						C()
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgdatagdatag=>glambdagxge1ge2g...gdatage1ge2g...C5R4�������h M]��CEgdummy
		gch		ge1						C�����h(^]��CVgdummy
		!gexp		!gch			!ge1			!		!	ChN]�CFgdummy
		gexp		ge1						C()
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4�������h M]��CEgdummy
		gch		ge1						C�����h(^]��CVgdummy
		!gexp		!gch			!ge1			!		!	C�hN]CFgdummy
		gexp		ge1						C()
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4����h]]CUgdummy
		gch		ge1			gc2						C�hn]Cfgdummy
		gexp		gch			ge1			gc2						Cp�hM]�CEgdummy
		gc1		gc2						C()
hP4]45$@45$@45$@	6,gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchge1g...gc2g...gexpg?gchge1g...gc2g...gc1gc2g...C5R4����hd]C\gdummy
		gch		ge1			g	handshake						Chu]Cmgdummy
		gexp		gch			ge1			g	handshake						Che]C]gdummy
		gexp		ge1			g	handshake						C()
hPE]45$@45$@45$@	6=gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchge1g...g	handshakegexpg?gchge1g...g	handshakegexpge1g...g	handshakeC5R4���)12hM]CEgdummy
		gch		ge1						C4=>?h^]CVgdummy
		gexp		gch			ge1						CFhN]CFgdummy
		gexp		ge1						C()
hP]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/occam-channel.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4���Hh]C		
CZh:]C2ge1
		ge2					C[chm]L�6egc1
		gc2		gfilenamefice-9/occam-channel.scm�	�	��			C()
hX�]45$@45$@45$LO@	6�gx
		Ugtmp		Ugtmp		"	Ugtmp		9	Ugfilenamefice-9/occam-channel.scm�
�	��		Ugnamegelse-clause?�C�[ijmpjh@]C8gtmp-17d5859fdf6989b4-1e3
		
		
Cqrstth@]C8gtmp-17d5859fdf6989b4-1e1
		
		
Cuvwxyxyh@]��C8gtmp-17d5859fdf6989b4-1e0
				C��h@]C8gtmp-17d5859fdf6989b4-1df
		
		
C��h@]C8gtmp-17d5859fdf6989b4-1de
		
		
C��h@]C8gtmp-17d5859fdf6989b4-1e2
		
		
C�h�=]445	44
5
����44544545��5��5���5��4455���5��C5gc1
	�gc2	�	�	C()hm]LL6egc1
		gc2		gfilenamefice-9/occam-channel.scm�	�	��			C��mp�h@]C8gtmp-17d5859fdf6989b4-1d7
		
		
C�����h@]C8gtmp-17d5859fdf6989b4-1d5
		
		
C��h@]C8gtmp-17d5859fdf6989b4-1d6
		
		
C�hX:]445	4
5��445
5���5��C2gc1
		Wgc2		W		W	C	hh�]OQ45" 45$@6$4O?$@"���"����gx
		dgelse-clause?	
	dgtmp			dgtmp		'	>gfilenamefice-9/occam-channel.scm�
�	��		dC5RCgm
		,gt
��gt
/Kgt
��gt
��gt
�gt
��gt
x�gt
��gt
	�	�gt

�
�gt
.gt
��gt
��gt
�gt
bwgt
cxgt
avgt
"7gt
$9gfilenamefice-9/occam-channel.scm�		
��	.	%	��	1	%
��	3	&	��	6	&
��	;	(
���	*
���	0
���	4
��q	7
��z	:
��	z	=
��
�	C
��	H
���	X
���	[
���	k
��[	n
��\	q
��Z	t
��^	w
���	y	��	y
��	{	��	{
��	|	��	|
���	~
��[�
���
���
���
��!	?
C6PKQ<�Z��b<��
mapping.gonu�[���GOOF----LE-8-2.0k]V4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gmapping�	�		gfilenameS�	
fice-9/mapping.scm�	gimportsS�	gpoe�	
�	
�	�	gexportsS�	gmapping-hooks-type�	gmake-mapping-hooks�	gmapping-hooks?�	gmapping-hooks-get-handle�	gmapping-hooks-create-handle�	gmapping-hooks-remove�	gmapping-type�	gmake-mapping�	gmapping?�	g
mapping-hooks�	gmapping-data�	gset-mapping-hooks!�	gset-mapping-data!�	gmapping-get-handle�	gmapping-create-handle!�	 gmapping-remove!�	!gmapping-ref�	"gmapping-set!�	#ghash-table-mapping-hooks�	$gmake-hash-table-mapping�	%ghash-table-mapping�	& !"#$%�	'gset-current-module�	('�	)'�	*gissue-deprecation-warning�	+fH(ice-9 mapping) is deprecated.  Use srfi-69 or rnrs hash tables instead.�	,gmake-record-type�	-g
get-handle�	.g
create-handle�	/gremove�	0-./�	1g
perfect-funcq�	2grecord-constructor�	3grecord-predicate�	4grecord-accessor�	5ghooks�	6gdata�	756�	8grecord-modifier�	9ghashq�	:gassq�	;ghashq-get-handle�	<ghashq-create-handle!�	=g
hashq-remove!�	>ghashv�	?gassv�	@ghashv-get-handle�	Aghashv-create-handle!�	Bg
hashv-remove!�	Cghash�	Dgassoc�	Eghash-get-handle�	Fghash-create-handle!�	Gghash-remove!�	Hghashx-get-handle�	Ighashx-create-handle!�	Jg
hashx-remove!�	Kg	hash-procS�	LK��	Mg
assoc-procS�	NM	��	Ogtable-constructorS�	PO	��	QLNP�	Rgassq-ref�	Sgerror�	Tf6Hash-procedure specified with no known assoc function.�	Ugmake-vector�C5h�I]4	
&54)>"G4*i+>"G4,i05R41i	42ii55R43ii5R44ii-5R44ii.5R44ii/5R4,i75R42ii5R43ii5R44ii55R44ii65R48ii55R48ii65Rh�]44556�gmap
		gkey		gfilenamefice-9/mapping.scm�
	5
��		6	��		6	��		6	��		6	��			gnamegmapping-get-handle�CRh�]44556�gmap
		gkey		ginit			gfilenamefice-9/mapping.scm�
	7
��		8	��		8	 ��		8	��		8	��			gnamegmapping-create-handle!�CRh�]44556�gmap
		gkey		gfilenamefice-9/mapping.scm�
	9
��		:	��		:	��		:	��		:	��			gnamegmapping-remove!�C Rh0�-.,3#45$�CC�gmap
		-gkey		-gdflt			-gt			-gfilenamefice-9/mapping.scm�
	<
��		>	��		=	��		-	gnamegmapping-ref�C!Rh�]45�C�gmap
		gkey		gval			gfilenamefice-9/mapping.scm�
	A
��		B	��		B	��			gnamegmapping-set!�C"R41i	9:;hy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
C<hy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
C=hy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
C>?@hy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CAhy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CBhy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CCDEhy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CFhy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CGhy-13L45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CHhq]LL6igtable
		gkey		gfilenamefice-9/mapping.scm�
	[	.��		\	0��			Ch y-13LLO45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CIh�]LL6{gtable
		gkey		ginit			gfilenamefice-9/mapping.scm�
	^	.��		_	0��			Ch y-13LLO45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
CJhq]LL6igtable
		gkey		gfilenamefice-9/mapping.scm�
	a	.��		b	0��			Ch y-13LLO45@qg1st
			grest			gfilenamefice-9/mapping.scm�
	G	��		G	>��		G	2��			
Ch��]�$.OO	O6
�$.
OOO6�$.OOO6OOO6�g	hash-proc
	�g
assoc-proc	�gprocs			�gproc			)gproc		+	7gproc		9	Egproc		Y	egproc		g	sgproc		u�gproc	��gproc	��gproc	��gfilenamefice-9/mapping.scm�
	J	��			K	"��			K	��		M	'��		M	��		L	��		N	-��	+	O	-��	9	P	-��	G	N	��	P	Q	'��	Q	Q	��	U	L	��	Y	R	-��	g	S	-��	u	T	-���	R	���	U	'���	U	���	L	���	V	-���	W	-���	X	-���	V	���	Z	��	�	C5#R#h�]456�gtable
		g	hash-proc		g
assoc-proc			gfilenamefice-9/mapping.scm�
	d
��		e	��		e	��			gnamegmake-hash-table-mapping�C$RQCR9:>?DS%TUhf]6^glen
			gfilenamefice-9/mapping.scm�
	r	��		r	=��			r	,��			C$h�b-/03#	G##74���5$"4	
5#
456Zgsize
		}g	hash-proc		}g
assoc-proc			}gtable-constructor			}gt		F	bgfilenamefice-9/mapping.scm�
	g
��	.	j	"��	5	j	,��	F	j	"��	F	j	��	U	n	"��	Y	n	)��	[	o	)��	_	n	"��	q	s	��	}	s	��		}
g	hash-procS�g
assoc-procS	�gtable-constructorS	�gnameghash-table-mapping�C%RCAgm
		,gfilenamefice-9/mapping.scm�		
��	-	
��	3	 ��	8	
��	A	"	��	G	"	-��	I	"	<��	K	"	��	N	"
��	O	'	��	V	'	-��	b	'	��	e	'
��	f	(	��	s	(
��	t	)	!��	~	)	E���	)	!���	)
���	*	$���	*	H���	*	$���	*
���	+	���	+	A���	+	���	+
���	-	���	-	'���	-	0���	-	���	-
���	.	���	.
���	/	���	/
���	0	���	0	4���	0	���	0
���	1	���	1	3���	1	���	1
���	2	���	2	9���	2	���	2
���	3	��	3	8��
	3	��
	3
���	5
���	7
���	9
���	<
��c	A
��d	I	��"	F
��
	d
���	g
��>	�
C6PKQ<�Z�}{�G�G�
psyntax-pp.gonu�[���GOOF----LE-8-2.0/�]�4hZw]gprimitive-eval�	gcurrent-module�	gwarn�	f0module system is booted, we should have a module�	gmodule-variable�	gresolve-module�	gmacro?�	g
macro-type�		g
macro-binding�	
g%expanded-vtables�	gassq�	gname�	
gpublic�	gprivate�	gmodule-name�	gbare�	ghygiene�	gsyntax-violation�	fbad module kind�	gfor-each�	glexical�	gmacro�	gellipsis�	gmodule-define!�	gmake-syntax-transformer�	g
vector-length�	g
syntax-object�	gsymbol->string�	g
module-gensym�	fl�	glist->vector�	 gmake-vector�	!gappend�	"gribcage�	#gshift�	$glist-ref�	%gid-var-name�	&f
invalid id�	'gsupports-source-properties?�	(gset-source-properties!�	)gsource-properties�	*g
begin-form�	+g$sc-dispatch�	,g_�	-,�	.gapply�	/gany�	0geach-any�	1/0��	2,1��	3f-source expression failed to match any pattern�	4glocal-syntax-form�	5geval-when-form�	601��	7,6��	8ge�	9gmemq�	:geval�	;gexpand�	<gc&e�	=:�	>gload�	?gcompile�	@?>�	Agc�	B>�	Cgdefine-syntax-form�	Dgdefine-syntax-parameter-form�	Egguile�	FE�	Ggdefine-form�	Hgglobal�	IH�	Jgdisplaced-lexical�	KJ�	Lgcore�	Mg
module-ref�	Ngmodule-local-variable�	Ogmodule-add!�	Pgmake-undefined-variable�	Qg	variable?�	Rfidentifier out of context�	Sf"cannot define keyword at top level�	Tg
procedure?�	U�	Vg	eval-when�	Wfinvalid situation�	Xglexical-call�	Ygglobal-call�	Zg	core-form�	[glocal-syntax�	\gbegin�	]gdefine�	^,//�	_//��	`_1��	a,`��	b,/�	cgif�	dgtop�	ed�	f�	ge�	hfl-bde397a-100e�	ih�	j"fgi�	k"�	lgkey�	ml�	ng
m-bde397a-fde�	ond�	po�	qf
l-bde397a-fdf�	rq�	s"mpr�	tgftype�	ugfval�	vgfform�	wgfe�	xgfw�	ygfs�	zgfmod�	{tuvwxyz�	|eeeeeee�	}f
l-bde397a-fd7�	~f
l-bde397a-fd8�	f
l-bde397a-fd9��f
l-bde397a-fda��f
l-bde397a-fdb��f
l-bde397a-fdc��f
l-bde397a-fdd��}~������"{|���gfirst�����f
l-bde397a-fce�����"�g���gr��gw��gs��grib��gmod��gfor-car?��8��������f
l-bde397a-fb6��f
l-bde397a-fb7��f
l-bde397a-fb8��f
l-bde397a-fb9��f
l-bde397a-fba��f
l-bde397a-fbb��f
l-bde397a-fbc�����������"�|���glambda-var-list��ggen-var��gstrip��gexpand-lambda-case��glambda*-formals��gexpand-simple-lambda��glambda-formals��g	ellipsis?��gexpand-void��geval-local-transformer��gexpand-local-syntax��gexpand-body��gexpand-macro��gexpand-application��gexpand-expr��gsyntax-type��gparse-when-list��gexpand-install-global��gexpand-top-sequence��gexpand-sequence��gsource-wrap��gwrap��gbound-id-member?��gdistinct-bound-ids?��gvalid-bound-ids?��g
bound-id=?��g	free-id=?��gwith-transformer-environment��gtransformer-environment��gresolve-identifier��glocally-bound-identifiers��gsame-marks?��g
join-marks��g
join-wraps��gsmart-append��gmake-binding-wrap��gextend-ribcage!��gmake-empty-ribcage��gnew-mark��g	anti-mark��g
the-anti-mark��gtop-marked?��gtop-wrap��g
empty-wrap��gset-ribcage-labels!��gset-ribcage-marks!��gset-ribcage-symnames!��gribcage-labels��g
ribcage-marks��gribcage-symnames��gribcage?��gmake-ribcage��g
gen-labels��g	gen-label��g
wrap-subst��g
wrap-marks��g	make-wrap��gid-sym-name&marks��gid-sym-name��gid?��g
nonsymbol-id?��g
global-extend��glookup��gmacros-only-env��gextend-var-env��g
extend-env��gnull-env��g
binding-value��gbinding-type��gmake-binding��g	arg-check��gsource-annotation��g	no-source��gset-syntax-object-module!��gset-syntax-object-wrap!��gset-syntax-object-expression!��gsyntax-object-module��gsyntax-object-wrap��gsyntax-object-expression��gsyntax-object?��gmake-syntax-object��gbuild-lexical-var��gbuild-letrec��gbuild-named-let��g	build-let��gbuild-sequence��g
build-data��g
build-primref��gbuild-lambda-case��gbuild-case-lambda��gbuild-simple-lambda��gbuild-global-definition��gbuild-global-assignment��gbuild-global-reference��ganalyze-variable��gbuild-lexical-assignment��gbuild-lexical-reference��gbuild-dynlet��gbuild-conditional��gbuild-application��g
build-void�gmaybe-name-value!�gdecorate-source�gget-global-definition-hook�gput-global-definition-hook�g
session-id�glocal-eval-hook�gtop-level-eval-hook�gfx<�gfx=�	gfx-�
gfx+�gset-lambda-meta!�glambda-meta�
glambda?�gmake-dynlet�gmake-letrec�gmake-let�gmake-lambda-case�gmake-lambda�g
make-sequence�gmake-application�gmake-conditional�gmake-toplevel-define�gmake-toplevel-set�gmake-toplevel-ref�gmake-module-set�gmake-module-ref�gmake-lexical-set�gmake-lexical-ref�gmake-primitive-ref�g
make-const�g	make-void� ���������������;����������������%����������������������������������������������������������������������	

��!eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee��"f
l-bde397a-b9e�#f
l-bde397a-b9c�$f
l-bde397a-b9a�%f
l-bde397a-b98�&f
l-bde397a-b96�'f
l-bde397a-b94�(f
l-bde397a-b92�)f
l-bde397a-b90�*f
l-bde397a-b8e�+f
l-bde397a-b8c�,f
l-bde397a-b8a�-f
l-bde397a-b88�.f
l-bde397a-b86�/f
l-bde397a-b84�0f
l-bde397a-b82�1f
l-bde397a-b80�2f
l-bde397a-b7e�3f
l-bde397a-b7c�4f
l-bde397a-b7a�5f
l-bde397a-b78�6f
l-bde397a-b76�7f
l-bde397a-b74�8f
l-bde397a-b72�9f
l-bde397a-b70�:f
l-bde397a-b6e�;f
l-bde397a-b6c�<f
l-bde397a-b6a�=f
l-bde397a-b68�>f
l-bde397a-b66�?f
l-bde397a-b64�@f
l-bde397a-b62�Af
l-bde397a-b60�Bf
l-bde397a-b5e�Cf
l-bde397a-b5c�Df
l-bde397a-b5a�Ef
l-bde397a-b58�Ff
l-bde397a-b56�Gf
l-bde397a-b54�Hf
l-bde397a-b52�If
l-bde397a-b4a�Jf
l-bde397a-b41�Kf
l-bde397a-b3e�Lf
l-bde397a-b30�Mf
l-bde397a-b26�Nf
l-bde397a-b17�Of
l-bde397a-b09�Pf
l-bde397a-b07�Qf
l-bde397a-b05�Rf
l-bde397a-b03�Sf
l-bde397a-b01�Tf
l-bde397a-aff�Uf
l-bde397a-afd�Vf
l-bde397a-afb�Wf
l-bde397a-af9�Xf
l-bde397a-af6�Yf
l-bde397a-af4�Zf
l-bde397a-ae6�[f
l-bde397a-ad8�\f
l-bde397a-aca�]f
l-bde397a-ac8�^f
l-bde397a-abe�_f
l-bde397a-abb�`f
l-bde397a-ab9�af
l-bde397a-ab7�bf
l-bde397a-ab5�cf
l-bde397a-ab3�df
l-bde397a-ab1�ef
l-bde397a-aaf�ff
l-bde397a-aa1�gf
l-bde397a-a97�hf
l-bde397a-a8c�if
l-bde397a-a75�jf
l-bde397a-a67�kf
l-bde397a-a64�lf
l-bde397a-a56�mf
l-bde397a-a54�nf
l-bde397a-a52�of
l-bde397a-a50�pf
l-bde397a-a4e�qf
l-bde397a-a4c�rf
l-bde397a-a4a�sf
l-bde397a-a48�tf
l-bde397a-a46�uf
l-bde397a-a39�vf
l-bde397a-a36�wf
l-bde397a-a34�xf
l-bde397a-a32�yf
l-bde397a-a30�zf
l-bde397a-a2e�{f
l-bde397a-a2c�|f
l-bde397a-a2a�}f
l-bde397a-a28�~f
l-bde397a-a26�f
l-bde397a-a24��f
l-bde397a-a22��f
l-bde397a-a20��f
l-bde397a-a1e��f
l-bde397a-a1c��f
l-bde397a-a1a��f
l-bde397a-a18��f
l-bde397a-a16��f
l-bde397a-a14��f
l-bde397a-a12��f
l-bde397a-a10��f
l-bde397a-a0e��f
l-bde397a-a0c��f
l-bde397a-a0a��f
l-bde397a-a08��f
l-bde397a-a06��f
l-bde397a-a04��f
l-bde397a-9f6��f
l-bde397a-9e8��f
l-bde397a-9da��f
l-bde397a-9cc��f
l-bde397a-9ca��f
l-bde397a-9c8��f
l-bde397a-9c6��f
l-bde397a-9c3��f
l-bde397a-9c1��f
l-bde397a-9bf��f
l-bde397a-9bd��f
l-bde397a-9bb��f
l-bde397a-9b9��f
l-bde397a-9b7��f
l-bde397a-9b5��f
l-bde397a-9b3��f
l-bde397a-9b1��f
l-bde397a-9af��f
l-bde397a-9ad��f
l-bde397a-9ab��f
l-bde397a-9a9��f
l-bde397a-9a7��f
l-bde397a-9a5��f
l-bde397a-9a3��f
l-bde397a-9a1��"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~��������������������������������������������" !���gdefine-structure��gdefine-expansion-accessors��gdefine-expansion-constructors�������eee��f
l-bde397a-967��f
l-bde397a-92f��f
l-bde397a-8fd�������"�����ejkskk�k�kk�����E��c�������������glambda��gargs��ge1��ge2�������eeee��fl-bde397a-1001��fl-bde397a-1002��fl-bde397a-1003��fl-bde397a-1004��������"�����e�kskk�k�kk����������g
define-syntax��gdefine-syntax-parameter��gcall��gself-evaluating?��gconstant��gother��g
syntax->datum��ginclude-deprecated-features��gissue-deprecation-warning��fASequences of zero expressions are deprecated.  Use *unspecified*.��fsequence of zero expressions��fDdefinition in expression context, where definitions are not allowed,��gsyntax��f1reference to pattern variable outside syntax form��f)reference to identifier outside its scope��funexpected syntax��gmap��f&encountered raw symbol in macro output��fm��fplaceholder��gplaceholder������fno expressions in body��fnonprocedure transformer��,0���f-invalid or duplicate identifier in definition��greverse��geach��//�������1���,挤�fduplicate bound keyword��fbad local syntax definition��g $sc-ellipsis ��g...��gb�����fl-bde397a-116a�����"�g���gn�����fl-bde397a-1167�����"�g���gid�����fl-bde397a-1165�����"�g���8����eee��fl-bde397a-115f��fl-bde397a-1160��fl-bde397a-1161�����"���ekk�k�k�kk��
����finvalid argument list�f%duplicate identifier in argument list�glambda*�grestS�gkeyS�	goptionalS�
�/��finvalid optional argument list�ga�
��ee�fl-bde397a-11f4�fl-bde397a-11f5��"
�greq�gropt���fl-bde397a-11ea�fl-bde397a-11eb�fl-bde397a-11ec��"��gcheck�grest�gopt�l�eeeee� fl-bde397a-11b4�!fl-bde397a-11b2�"fl-bde397a-11b0�#fl-bde397a-11ae�$fl-bde397a-11ac�% !"#$�&"%�'g	orig-args�('�)fl-bde397a-11ab�*)�+"(g*�,ek&+���-,��.-�////�0//��1/�2finvalid keyword argument list�3gallow-other-keysS�4gkeyword?�5gsymbol->keyword�6gk�76�8fl-bde397a-1233�98�:"7g9�;fl-bde397a-122d�<fl-bde397a-122e�=;<�>"
=�?grkey�@�?�Afl-bde397a-1222�Bfl-bde397a-1223�Cfl-bde397a-1224�Dfl-bde397a-1225�EABCD�F"@�E�Gek:>kF&+��
�HG��IH�Jfinvalid rest argument�Kgcar�Lgcadr�M/1��Ngvector�O�_�PNO�QP1��Rgcons�Sgstring?�Tg
documentation�U�M�VMU��Wgvector->list�Xgsyntax-session-id�Yg
make-fluid�Zgerror�[f9called outside the dynamic extent of a syntax transformer�\g
letrec-syntax�]g
let-syntax�^gsyntax-parameterize�_f
bad syntax�`gquote�agref�bfmisplaced ellipsis�c/_��dglist�eN1�f`�gfextra ellipsis�hg	primitive�ih!�jfmissing ellipsis�kgtmp�lgcdr�mgand-map�nfhow did we get here�ofbad `syntax' form�p,M��qf
bad lambda�rfbad lambda*�sgcase-lambda�t,U��u/U��v,u��wfbad case-lambda�xgcase-lambda*�yfbad case-lambda*�zg
with-ellipsis�{glet�|fduplicate bound variable�}/挤~,}��fbad let��gletrec��f
bad letrec��gletrec*��fbad letrec*��gset!��,1/��gsetter��gm-bde397a-16ac���d�����fl-bde397a-16ad�����"m����gtype��gvalue��gformform��gee��gww��gss��gmodmod�����������fl-bde397a-16a5��fl-bde397a-16a6��fl-bde397a-16a7��fl-bde397a-16a8��fl-bde397a-16a9��fl-bde397a-16aa��fl-bde397a-16ab�����������"�|���ghead��gtail��gval�������fl-bde397a-1696��fl-bde397a-1697��fl-bde397a-1698�������"�����8������eeeee��fl-bde397a-1677��fl-bde397a-1678��fl-bde397a-1679��fl-bde397a-167a��fl-bde397a-167b���������"�����ek�kk��k����������fbad set!��gprocedure-property��gvariable-transformer��fnot a variable transformer��g@��,0/��e������fl-bde397a-16d4��fl-bde397a-16d5������"����8����fl-bde397a-16c8��fl-bde397a-16c9��fl-bde397a-16ca�������"�����e�k�����
����g@@��gfree-id��g
remodulate�����fl-bde397a-16e0�����"�����fl-bde397a-16dd��fl-bde397a-16de��fl-bde397a-16df�������"�����e���������������,�0/��gexp������fl-bde397a-1709��fl-bde397a-170a������"����e�����������fl-bde397a-16fd��fl-bde397a-16fe������"����e�����������,///��gwith-fluids��gsyntax-case��gp��gids�������fl-bde397a-1776��fl-bde397a-1777��fl-bde397a-1778�������"�����gcvt��g	v-reverse��gcvt*�������fl-bde397a-1755��fl-bde397a-1753��fl-bde397a-1751�������"�����gpattern��gkeys�������fl-bde397a-174e��fl-bde397a-174f��fl-bde397a-1750�������"����ggen-syntax-case�g
gen-clause�gbuild-dispatch-call�gconvert-pattern��eeee�fl-bde397a-1749�fl-bde397a-1747�fl-bde397a-1745�	fl-bde397a-1743�
	�"
�ek������
,��N0�gatom�geach+��fduplicate pattern variable�gpat���fl-bde397a-1812�fl-bde397a-1813��"�gx�gclauses�����fl-bde397a-1807�fl-bde397a-1808�fl-bde397a-1809�fl-bde397a-180a� fl-bde397a-180b�! �""�!�#ek"���$�#��%,#��&finvalid clause�'00��(/'��),(��*finvalid literals list�+gmacroexpand�,gidentifier?�-g
datum->syntax�.g
syntax-source�/ggenerate-temporaries�0finvalid argument�1ft�2gfree-identifier=?�3gbound-identifier=?�4gthrow�5gsyntax-error�6gsyntax-local-binding�7gassq-ref�8funexpected id-var-name�9gpattern-variable�:g syntax-locally-bound-identifiers�;gdefine!�<g
syntax-module�=gwith-syntax�>1��?,>��@���Afl-bde397a-196a�Bfl-bde397a-196b�CAB�D"@C�E�Ffl-bde397a-1967�GF�H"EgG�IeDkH�J{I��K��LK1��M,L��Ngout�Ogin�PNO���Qfl-bde397a-1970�Rfl-bde397a-1971�Sfl-bde397a-1972�Tfl-bde397a-1973�UQRST�V"P�U�WeVkH�X�W��Y{W��Zfl-bde397a-197a�[fl-bde397a-197b�\fl-bde397a-197c�]fl-bde397a-197d�^Z[\]�_"P�^�`e_kH�a�`��bd`��c{`��dgmessage�egarg�fde�gfl-bde397a-19a3�hfl-bde397a-19a4�igh�j"fi�kfl-bde397a-1986�lk�m"Egl�nejkm�o5n��pn��qp�rgstring-join�sgobject->string�tgsyntax-rules�ugclause�vu�wfl-bde397a-19af�xw�y"vgx�zgexpand-syntax-rules�{g
expand-clause�|z{�}ee�~fl-bde397a-19ac�fl-bde397a-19aa��~��"|}���gxx�����fl-bde397a-19a9�����"�g���eky����5���������1���_���_/��gdummy��gkeyword��gtemplate�������fl-bde397a-19c4��fl-bde397a-19c5��fl-bde397a-19c6�������"�����e�ky����������������de��fl-bde397a-19ba��fl-bde397a-19bb��fl-bde397a-19bc��fl-bde397a-19bd��������"�����e�ky��������������5��������00�0��g	docstring��6����u��eeeeee��fl-bde397a-19d5��fl-bde397a-19d6��fl-bde397a-19d7��fl-bde397a-19d8��fl-bde397a-19d9��fl-bde397a-19da����������"�����gdots��g
docstrings�������fl-bde397a-19ce��fl-bde397a-19cf��fl-bde397a-19d0��fl-bde397a-19d1��������"�����ekk�kk���	������������������t���������gpatterns���������������fl-bde397a-19e7�����"�g���gform�����fl-bde397a-19e3�����"�g���ek�k�kk�kk���
��z����0����,ό��/����0ь��,Ҍ��/ό��,Ԍ��/Ҍ��,֌��gdefine-syntax-rule��,_/������fl-bde397a-1a50��fl-bde397a-1a51��fl-bde397a-1a52�������"�����fl-bde397a-1a4d�����"Eg���e�k��������t����,����,_//�������fl-bde397a-1a5f��fl-bde397a-1a60��fl-bde397a-1a61��fl-bde397a-1a62��������"�����e�k��������t����,����glet*��gf��gbindings������fl-bde397a-1a80��fl-bde397a-1a81������"����gv��������fl-bde397a-1a76��fl-bde397a-1a77��fl-bde397a-1a78�fl-bde397a-1a79�fl-bde397a-1a7a�����"���fl-bde397a-1a68��"Eg�ek�k�{��	gbody�
gbinding�	
�fl-bde397a-1a8a�
fl-bde397a-1a8b�
�"�ekk�k�{��g
quasiquote�gunquote�glev���fl-bde397a-1a9e�fl-bde397a-1a9f��"�gemit�gquasivector�g
quasilist*�gquasiappend�g	quasicons�gvquasi� gquasi�! �"eeeeeee�#fl-bde397a-1a9a�$fl-bde397a-1a98�%fl-bde397a-1a96�&fl-bde397a-1a94�'fl-bde397a-1a92�(fl-bde397a-1a90�)fl-bde397a-1a8e�*#$%&'()�+"!"*�,ek+�-,��.�-�/./�0fvalue�1��2fl-bde397a-1aa2�32�4"1g3�5e4k+�605��7fquote�875��95��:89�;,��<�;�=</�>fl-bde397a-1aa5�?>�@"1g?�Ae@k+�B7A��CA��DBC�Egq�F�E�Gfl-bde397a-1aa8�Hfl-bde397a-1aa9�IGH�J"FI�KeJk+�LK��M�L�NM0��Ofl-bde397a-1aae�PO�Q"1gP�ReQJk+�S0R��T7R��UR��VTU�Wgunquote-splicing�XWK��Y�X�ZY0��[fl-bde397a-1ab3�\[�]"1g\�^e]Jk+�_0^��`7^��aW^��b`a�c7�dc0�efl-bde397a-1b0e�fe�g"Egf�hfl-bde397a-1b0b�ih�j"Egi�kegkj+�l7k��mgy�nm�ofl-bde397a-1b23�po�q"ngp�r�m6�sfl-bde397a-1b11�tfl-bde397a-1b12�ufl-bde397a-1b13�vstu�w"r�v�xeqkwkj+�y7x��zflist�{z�|{0��}flist*�~}�/1��~���flist->vector��gt-bde397a-1b34�����gm-bde397a-1b35���d�����fl-bde397a-1b38�����"�����gelse�����fl-bde397a-1b32�����"�g���ek��kwkj+	�������fvector��gt-bde397a-1b19�����gm-bde397a-1b1a���d�����fl-bde397a-1b1e�����"�����gls�����fl-bde397a-1b18�����"�g���ek�kkk�kj+
�������fl-bde397a-1abb�����"1g���e�k+��7����fl-bde397a-1ac3��fl-bde397a-1ac4������"F���fl-bde397a-1abf��fl-bde397a-1ac0������"���e�k�+�����������0���fl-bde397a-1ac9�����"1g���e��k�+��0����7������������W���������0���fl-bde397a-1ace�����"1g���e��k�+��0����7����W��������ek�+��7�������c/��gdx�����fl-bde397a-1ae4�����"�g���gdy�����fl-bde397a-1ae0�����"�g���m��fl-bde397a-1ada��fl-bde397a-1adb������"����fl-bde397a-1ad5��fl-bde397a-1ad6������"����e��k�kk�+	��7����e�k�kk�+��z����}����{/���gstuff�����fl-bde397a-1ae7�����"�g���e�k�kk�+��z����~/���fl-bde397a-1aea�����"�g���e�k�kk�+��}����ek�kk�+��}����c��fl-bde397a-1aee��fl-bde397a-1aef������"����ek�+��7�������fappend��fl-bde397a-1af6�����"1g���ek�k�+�������0/��m�fl-bde397a-1afd�fl-bde397a-1afe��"�ekk�+����fl-bde397a-1b3e��	"Eg�
fl-bde397a-1b3b�
�"Eg�
e	k+�`
��gt-bde397a-1b43��gm-bde397a-1b44�d��fl-bde397a-1b48��"�fl-bde397a-1b41��"Eg�ekk+�d��gt-bde397a-1b57�gt-bde397a-1b56��gm-bde397a-1b58� d�!  �"fl-bde397a-1b5c�#fl-bde397a-1b5d�$"#�%"!$�&gx*�'�&�(fl-bde397a-1b51�)fl-bde397a-1b52�*()�+"'*�,fl-bde397a-1b4d�-fl-bde397a-1b4e�.,-�/"�.�0ek%k+/k+	�1R0��2��320��4gt-bde397a-1b63�54�6gm-bde397a-1b64�76d�87�9fl-bde397a-1b68�:9�;"58:�<fl-bde397a-1b61�=<�>"Eg=�?ek;>k+�@!?��A��BA0��Cgt-bde397a-1b6f�DC�Egm-bde397a-1b70�FEd�GF�Hfl-bde397a-1b74�IH�J"DGI�Kfl-bde397a-1b6d�LK�M"EgL�NekJMk+�ONN��P��QP/�Rgt-bde397a-1b7b�SR�Tgm-bde397a-1b7c�UTd�VU�Wfl-bde397a-1b7f�XW�Y"SVX�Zfl-bde397a-1b79�[Z�\"Eg[�]ekY\k+�^]��_0�`_/�aginclude�bgopen-input-file�cgabsolute-file-name?�dgin-vicinity�efBrelative file name only allowed when the include form is in a file�fg
file-encoding�ggset-port-encoding!�hfUTF-8�igeof-object?�jgclose-input-port�kgread�lgfilename�mgdirname�n��ofl-bde397a-1bba�po�q"ngp�rgfn�sr�tfl-bde397a-1bb5�ut�v"sgu�w6l�xfl-bde397a-1bb1�yfl-bde397a-1bb2�zxy�{"wz�|gdir�}|�~fl-bde397a-1bab�~��"}g��gfile�����fl-bde397a-1ba7�����"�g���gsrc�����fl-bde397a-1ba5�����"�g���g	read-file�����fl-bde397a-1b8c�����"�����fl-bde397a-1b8b�����"Eg���ekqkkv{kk�k�k������\����ginclude-from-path��g%search-load-path��ffile not found in path��fl-bde397a-1bc9�����"sg���fl-bde397a-1bc5�����"sg���fl-bde397a-1bc1��fl-bde397a-1bc2������"w���fl-bde397a-1bbe�����"Eg���ek�kk��k�	��a����f*expression not valid outside of quasiquote��gset-procedure-property!��f$variable transformer not a procedure��gmake-variable-transformer��gidentifier-syntax��8��fl-bde397a-1bdd�����"�g���fl-bde397a-1bda�����"�g���e�k������������������������������������������,�����������������,������������������ek�������������//���/��,����gexp1��gvar��gexp2���������fl-bde397a-1bec��fl-bde397a-1bed��fl-bde397a-1bee��fl-bde397a-1bef��fl-bde397a-1bf0���������"�����e�k������������������������������܌��������������������������������,����gdefine*��gb0��gb1��������fl-bde397a-1bfa��fl-bde397a-1bfb��fl-bde397a-1bfc��fl-bde397a-1bfd��������"�����fl-bde397a-1bf7�����"Eg���e�k���]������������fl-bde397a-1c08��fl-bde397a-1c09������"����e�k���]���C5hj�,35HHh�]6�gx
		gmod		gfilenamefice-9/psyntax.scm�
	��		
��			gnamegtop-level-eval-hook�C		h��]$"45$4>"G"4$4�5"455$8$/45$45$4545�CCCCC�gsymbol
	�gmodule	�gv		L�gval		^�gfilenamefice-9/psyntax.scm�
)	��	*	��	*	 ��	*	
��	+	��	+	��	"+	��	/,	��	7,	$��	8-	(��	=-	8��	?-	(��	D.	(��	L,	��	L,	
��	T0	��	W0	��	[0	��	^1	��	^1	��	a2	��	k2	��	l2	%��	v2	��	w3	��	~4	���3	��	�	gnamegget-global-definition-hook�C
h@]�$4�	
�&&�45$C���CCCgname
		?gval		?gmeta			;gv		2	;gfilenamefice-9/psyntax.scm�
<	��		��		=	��		��	>	
��	?	��	 ?	��	$?	��	(?	��	,@	-��	/@	&��	2@	��	:	��		?	gnamegmaybe-name-value!�C
h�]	��C�gsource
		gfun-exp		garg-exps			gfilenamefice-9/psyntax.scm�
H	��	
	��			gnamegbuild-application�C
h��]$����$	6�$ 4455�$66�$6�$74455�$"4455$	66	
66�gmod
	�gvar	�gmodref-cont		�g	bare-cont		�gkind		�gmod		�gfilenamefice-9/psyntax.scm�
\	��	]	��	_	��	`	��	_	
��	a	��	$b	��	-a	��	0c	.��	3c	;��	9c	.��	:c	"��	>c	��	De	��	Md	��	Va	��	\f	��	ea	��	hg	3��	kg	@��	qg	3��	rg	'��	vg	��	|h	"��	h	3���h	"���g	���i	���j	���k	)���k	���^	
��!	�	gnameganalyze-variable�C
h0]	��
	
��Cgsrc
		)greq		)grest			)gvars			)gmeta			)gexp			)gbody			)gfilenamefice-9/psyntax.scm�
�	��	
	��	�	)��	
	��	�	��	
	��		)	gnamegbuild-simple-lambda�C
h �]�(�C	��C�gsrc
		gexps		gfilenamefice-9/psyntax.scm�
�	��	�	��		�	��	�	��	
	��			gnamegbuild-sequence�C
h��]M����	��
		
�	�			�$B	�	
�&2	�
4
5$"�
�	�
""4L>"G		��
	�
�

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

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

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

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

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

�$
"
>G

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


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


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

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

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

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

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

�$
"
L>G

4L

L5


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

4L
LL4
�$/4
5	�$

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

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

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

		�
�
		
��

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

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

	'��	2

	0��	5

	=��	;

	0��	<

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

	
��	�	��		_	��	
�	��	&`	
��		-gnamegidentifier?�C,ih �]	�	�C�gid
		gdatum		gwrap			gmodule			gfilenamefice-9/psyntax.scm�

	
��	�	��	
	��	�	��			gnameg
datum->syntax�C-iUhx]L6pgx
		
gfilenamefice-9/psyntax.scm�

	
��	

	��		
gnameg
syntax->datum�C-O�i)hP�]	4�$,45	�$
�&�"""5�$CC�gx
		Jgprops	<	Jgfilenamefice-9/psyntax.scm�

	
��	�	��	�	��	�	��	
�	��	<�	��	<�	��	A�	��	E�	
��
		Jgnameg
syntax-source�C.i/0�1�hy]L45L6qgx
		gfilenamefice-9/psyntax.scm�

"	��	
#	��		
#	*��	
#	��	
#	��		C	hH�]	�$"4>"G4455�LO6�gls
		Agmod	0	Agfilenamefice-9/psyntax.scm�

	
��	
 	��	
 	 ��	
 	��	%
!	��	&
!	&��	)
!	3��	/
!	&��	0
!	��	0
!	��	A
"	��		Agnameggenerate-temporaries�CO/i20UhX�]"4>"OG"H�$=45	�$'
�&��$""���""���""���""���"4>"OG"H�$=45	�$'
�&��$""���""���""���""����$,45	�$
�&�"""�$,45	�$
�&�"""&4L54L5�CC�gx
	Rgy	Rgfilenamefice-9/psyntax.scm�

'	
��	
(	��	
(	'��	

(	��	#�	��	'
(	��	(�	��	5_	��	9�	��	D`	
��	H�	��	m
)	��	q
)	'��	s
)	����	���
)	����	���_	����	���`	
����	���s	����	��
s	"���	��<s	��=t	��Ft	-��Ot	
��	R	gnamegfree-identifier=?�CO2i30hP�]"4>"OG"H�$=45	�$'
�&��$""���""���""���""���"4>"OG"H�$=45	�$'
�&��$""���""���""���""���"�C�$i45	�$W
�&I�$>45	�$,
�&��&L	��	��6C"���"���"���"���"���"����gx
	Lgy	Lgfilenamefice-9/psyntax.scm�

-	
��	
.	��	
.	'��	

.	��	#�	��	'
.	��	(�	��	5_	��	9�	��	D`	
��	H�	��	m
/	��	q
/	'��	s
/	����	���
/	����	���_	����	���`	
����	����	���|	����	���|	����	���|	����	��"}	��)�	��*	��/�	��0�	��2	��#	L	gnamegbound-identifier=?�CO3iS045)UhH7-.,3#$45$"�"$"4>"G45$"4>"G4�$,45	�$
�	&�"""5�$"$"M4�$,45	�$
�	&�"""5�$"4L
5$
4L
5"6/gwho
	Hgmessage	Hgform		Hgsubform		Hgprops	��gt	�)gprops	&gfilenamefice-9/psyntax.scm�

3	
��	
4	#��	
4	/��	&
4	#��	'
4	/��	.
4	;��	3
4	'��	7
4	��	@
5	��	B
4	��	R
6	��	e
6	'��	g
6	��	z
7	��	�	����	����	����	����	����	����	����	
���
8	����	����	����	����	���	���	���	���	
��*
:	��8
;	��9
;	 ��H
7	��$	H	gnamegsyntax-violation�C-Oi60IHS7KZ8�9J#�h8�]6L�L	���"$	�"�"6�$+�&�$
��"��""���""���L	�4L5		�$��$-45	�$
�&		�"""
4L	
5$"�&	
	"�"��
	"�"�4	5$h�$-45	�$
�&		�"""
4	5$"��
	""4		>G
�$
D�$D�$
D�$D�$
��D�$=�	�		��	���		�
		
	
DD�ge
	6gr	6gw		6gs		6grib		6gmod		6gw			rgms			ogs			ogid		w�gw		w�gmod		w�gn		��gmod	
�gt	��gb	�gmod	
Qgt	\ogb	ogtype	�6gvalue	�6gmod	�6gw		�g
expression		/gwrap	
/gmodule	/gfilenamefice-9/psyntax.scm�

E		��	�	��	
P	 ��	
G	��	
G	*��	
G	
��	#
L	!��	(
L	)��	/
L	��	3
H	��	6
H	��	:
H	��	=
H	(��	B
H	��	E
J	��	K
J	'��	P
J	9��	Q
J	/��	X
J	B��	Y
J	��	w�	��	w
N	��	~Y	���Y	���[	
���Z	����	���\	����	���\	
���P	���P	���Q	���P	���R	���R	$���R	
���S	���S	��T	��T	'��T	��_	
��Z	���	��"`	��#�	��Q`	
��TV	��\V	��lW	��oV	��tX	��wX	#��X	
���d	
���d	���d	
���
M	���
T	���
U	$���
U	���
T	���
V	"���
V	���
T	���
W	#���
W	���
T	���
X	.���
X	&���
T	���
Y	#���
Y	7���
Y	+���
Y	���
T	���
[	����	���
]	.���	'���	���	���	 ���	��
�	���	��
\	���	��1
[	��3
_	��6
_	��]	6	Chx�]"4>"OG"H�$=45	�$'
�&��$""���""���""���""���M[LLO6�gid
		xgfilenamefice-9/psyntax.scm�

B	��	
C	��	
C	$��	

C	��	#�	��	'
C	��	(�	��	5_	��	9�	��	D`	
��	H�	��	xl	��
		xgnamegsyntax-local-binding�CO/:0hx�]"4>"OG"H�$=45	�$'
�&��$""���""���""���""���L	�	�6�gid
		vgfilenamefice-9/psyntax.scm�

a	��	
b	��	
b	$��	

b	��	#�	��	'
b	��	(�	��	5_	��	9�	��	D`	
��	H�	��	v
c	��
		vgnameg syntax-locally-bound-identifiers�CO0Q/Q04;i<<0hp�]"4>"OG"H�$=45	�$'
�&��$""���""���""���""���	��C�gid
		ogfilenamefice-9/psyntax.scm�

>	��	
?	��	
?	$��	

?	��	#�	��	'
?	��	(�	��	5_	��	9�	��	D`	
��	H�	��	n
@	��
		ognameg
syntax-module�C>"G4;i6/>"G4;i:0>"G/0h��]�$74L�5$4L�5$�CCC(C�$?45	�$/
�&#�4L	�5	�"��xCCC�ge
	�gp	�gw		�gmod		�gfirst			@grest		.	>gfilenamefice-9/psyntax.scm�

�	��	
�	��		
�	
��	

�	��	
�	 ��	
�	,��	
�	��	
�	��	 
�	��	!
�	��	&
�	+��	.
�	��	.
�	��	6
�	��	;
�	��	F
�	
��	G
�	��	K�	��	O
�	
��	P�	��	n
�	��	w�	��	y
�	��	~�	���
�	��	�	gnameg
match-each�CO/hxS]�$&4L�5$4L�5�CC(C�$845	�$(
�&�4L	�5"���CCCKge
		xgw		xgmod			xgl			/gfilenamefice-9/psyntax.scm�

�	��	
�	��		
�	
��	

�	��	
�	%��	
�	��	
�	��	
�	��	
�	��	#
�	!��	)
�	��	,
�	��	5
�	
��	6
�	��	:�	��	>
�	
��	?�	��	[
�	��	d�	��	f
�	��	r
�	��		x	gnamegmatch-each-any�CO0,/0���N
h��]
(C&C&�C�$�4L�5"���&�C
��$�"����$'�4L4	�54L	�55"��i�$"�$C	�$�"��8C�gp
	�gr	�gkey		P�gfilenamefice-9/psyntax.scm�

�	��	
�	
��	
�	��	
�	
��	
�	��	
�	
��	
�	��	"
�	��	&
�	��	*
�	
��	-
�	#��	.
�	+��	3
�	8��	7
�	+��	?
�	��	C
�	��	G
�	
��	H
�	$��	K
�	��	P
�	��	P
�	��	_
�	#��	i
�	��	r
�	��	v
�	$��	w
�	$��	z
�	%���
�	.���
�	%���
�	%���
�	2���
�	%���
�	$���
�	���
�	���
�	%���
�	��&	�	gnamegmatch-empty�CO1�Klh(�]�(C454L455�C�gr*
		'gr		'gfilenamefice-9/psyntax.scm�

�	��	
�	��		
�	
��	

�	��	
�	!��	
�	*��	%
�	!��	&
�	��			'	gnamegcombine�CO20��Klh(�]�(LC454L455�C�gl
		%gfilenamefice-9/psyntax.scm�

�	��	
�	'��		
�	��	

�	&��	
�	2��	
�	;��	#
�	2��	$
�	 ��			%gnamegcollect�Ch�]"�$f4L�>G$D('4L�LL5$�DD�4L��L5DD"L4LLLL5D�$845	�$&
�&�4L	�5"��D"���"���"����ge
	�gw	�gxr*			ogy-pat			ogr			ogxr		;	Sgfilenamefice-9/psyntax.scm�

�	
��	
�	��		
�	��	

�	+��	
�	.��	
�	+��	
�	��	&
�	��	,
�	��	-
�	$��	2
�	+��	7
�	;��	;
�	$��	;
�	��	C
�	��	H
�	(��	N
�	 ��	S
�	 ��	T
�	��	W
�	��	X
�	��	]
�	"��	`
�	*��	h
�	��	j
�	��	o
�	��	t
�	��	w
�	 ���
�	���
�	����	���
�	����	���
�	����	���
�	���
�	��&	�	gnamegf�C�UNW
hpn]-((CC�$(�$L��4L��56C&4L5$�CC
��$?(
L�64L�5$OQ6C�$t�	�	�O	L	LQ	4	>G$ ((
L�6L6CC�$��$"3�$+45	�$
�&	��"""$�4L5��$,45	�$
�&�"""�$,45	�$
�&�"""&4L	54L	5�"$CCC
�$�4L5�$CC�$�$L45�6CCfge
	ogp	ogw		ogr		ogmod		ogl		U	egkey		iogl	��gcollect	��gx-pat	��gy-pat	��gz-pat	��gf		��gxr*	�0gy-pat	�0gr	�0gi	�gj	�gfilenamefice-9/psyntax.scm�

�	��	
�	
��	
�	��	
�	��	
�	
��	
�	��	!
�	��	&
�	"��	)
�	*��	,
�	��	1
�	$��	4
�	,��	<
�	��	@
�	��	F
�	��	J
�	
��	K
�	��	U
�	��	]
�	0��	b
�	7��	i
�	��	i
�	��	z
�	���
�	 ���
�	���
�	���
�	*���
�	���
�	���
�	���
�	���
�	���
�	$���
�	5���
�	F���
�	���
�	
��
�	��
�	��
�	�� 
�	)��$
�	��,
�	��9
�	��<e	
��@d	��H�	��Ld	��M�	��if	��|
�	��}
�	1���
�	@���
�	&����	���s	����	���s	"����	���s	���t	��t	-��t	
��
�	��/
�	��3
�	#��4
�	4��=
�	��A
�	��O
�	��R
�	��V
�	��Y
�	��c
�	,��k
�	��L	o	gnamegmatch*�CO	3,/h�D]$|&C&4L5�C"L6�$=45	�$+
�&L�4L	�5	�6"���"���"���C<ge
	�gp	�gw		�gr		�gmod		�gfilenamefice-9/psyntax.scm�

�	��	
�	
��	
�	��	
�	
��	
�	��	
�	
��	
�	��	)
�	��	<	��	<
�	
��	?�	��	C
�	
��	D�	��	d	
��	m�	��	o	
��	v�	��	x	��	�	gnamegmatch�CO4/4Q/0Q01Q12Q24/1-20Q33Q4/,Uhp]&C&C"L6�$545	�$#
�&L�	�	�6"���"���"����ge
		jgp		jgfilenamefice-9/psyntax.scm�
		��		��	

	��		��		��	
	��		��	'	,��	*	��	*
	��	-�	��	1
	��	2�	��	W	1��	\�	��	^	��		j	gnameg$sc-dispatch�C3O+i/01234	

 !"#$%&'()*+,-.4i=+?Jh:]���C2ge1
		
ge2		
		
	CMXYh []���CSgout
		gin		ge1			ge2						C�abch []����CSgout
		gin		ge1			ge2						C3
hP�]45$@45$@45$@	6gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/psyntax.scm�
	��		PC5=R4i5+a23S�hv]456ngmessage
		
garg		
gfilenamefice-9/psyntax.scm�	0	��	
0	��		
	Coqh@]���C8gmessage
		garg					CS�h�]456�gkeyword
		
goperands		
gmessage			
garg			
gfilenamefice-9/psyntax.scm�	%	��	
%	��		
	C�r�s�hg]456_gx
		
gfilenamefice-9/psyntax.scm�
(	1��	*	4��	
)	3��		
Ch8�]4544545�545$	�"6�gkeyword
		8goperands		8gmessage			8garg			8gfilenamefice-9/psyntax.scm�	&	��	'	��	'	,��	(	,��	'	&��	!'	��	",	��	,,	��	8&	��
		8	C
hhv]45"745"	6$4?$@"���"���$4?$	@"���"���ngx
		ggtmp		ggtmp			Hgfilenamefice-9/psyntax.scm�
 	��		gC55R4it+����hZ]�CRgkeyword
		gpattern		gtemplate						C3S�h�]456�gkeyword
		
gpattern		
gmessage			
garg			
gfilenamefice-9/psyntax.scm�	<	��	
<		��		
	C���h j]�����Cbgkeyword
		gpattern		gmessage			garg						C	hP�]45" 45$@6$4?$@"���"����gclause
		Pgtmp		Pgtmp			1gfilenamefice-9/psyntax.scm�
5	��		Pgnameg
expand-clause�C�+���!�����	h@�]4����5��L$
LCC�gk
		<g	docstring		<gkeyword			<gpattern			<gtemplate			<gclause			<gtmp		'	<gfilenamefice-9/psyntax.scm�	'G	��	/N	
��		<	C3h@�]4L545$O@6�gdots
		;gkeys		;g
docstrings			;gclauses			;gtmp			;gtmp			;gfilenamefice-9/psyntax.scm�
A	��		F	��	B	��		;	gnamegexpand-syntax-rules�C+��ht]�Clgtmp-bde397a-19fa
		
gtmp-bde397a-19f9		
gtmp-bde397a-19f8			
		
	Ch�]L456�gk
		gkeyword		gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	T	��			C���3,S�h �]45$456C�gdots
		gk		g	docstring			gkeyword			gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	\	��	
\	��	\	*��	\	!��			C�ht]�Clgtmp-bde397a-1a4b
		
gtmp-bde397a-1a4a		
gtmp-bde397a-1a49			
		
	Ch �]L456�gdots
		gk		g	docstring			gkeyword			gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	]	��			C,h�]6�gdots
		gk		gkeyword			gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	Y	��			C�ht]�Clgtmp-bde397a-1a2c
		
gtmp-bde397a-1a2b		
gtmp-bde397a-1a2a			
		
	Ch�]L456�gdots
		gk		gkeyword			gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	Z	��			CS�h�]456�gk
		
g	docstring		
gkeyword			
gpattern			
gtemplate			
gfilenamefice-9/psyntax.scm�	V	��	
V	��		
	C�ht]�Clgtmp-bde397a-1a13
		
gtmp-bde397a-1a12		
gtmp-bde397a-1a11			
		
	Ch �]L456�gk
		g	docstring		gkeyword			gpattern			gtemplate			gfilenamefice-9/psyntax.scm�	W	��			Ch��]1OQ45$O@45"o45"<45"		
6$4?$O@"���"���$4
?$O@"���"���$4?$O@"��q"��m�gxx
	�g
expand-clause	�gexpand-syntax-rules		�gtmp		�gtmp		8�gtmp		G�gtmp		V�gfilenamefice-9/psyntax.scm�
4	��	�C5tR4i�+����h W]�COgname
		gpattern		gtemplate						C�3S�h�]456�gname
		
gpattern		
g	docstring			
gtemplate			
gfilenamefice-9/psyntax.scm�	g	��	
g	��		
	C���h n]�Cfgname
		gpattern		g	docstring			gtemplate						C	hPv]45$@45"	6$4?$@"���"���ngx
		Pgtmp		Pgtmp		"	Pgfilenamefice-9/psyntax.scm�
`	��		PC5�R4i�+}3m,h�]6�glet*
		
gx		
gv			
ge1			
ge2			
gfilenamefice-9/psyntax.scm�	
q	��		
	C+�hA]C9gbody
		gbinding					C3hH�](LL���C4L�5�45$@6�gbindings
		Cgtmp	!	Cgtmp		,	Cgfilenamefice-9/psyntax.scm�
r	��	s		��	u	!��	u	$��	u	!��	v	$��	!u	
��		Cgnamegf�C�dh(�]
OQ456�glet*
		$gx		$gv			$ge1			$ge2			$gf			$gfilenamefice-9/psyntax.scm�	r	��		$	Ch@e]	45"	6$4?$@"���"���]gx
		9gtmp		9gfilenamefice-9/psyntax.scm�
n	��		9C5�R4i+/6:h(�]L
�$CL4LL�56{gp
		%gfilenamefice-9/psyntax.scm�	~	
��	
~		��	�	,��	!�	9��	#�	,��	%�	
��		%C=Dhq]L4LL�56igp
		gfilenamefice-9/psyntax.scm�	�	:��	�	G��	�	:��	�	��		C_+N�Sh8]C0gtmp-bde397a-1ab0
		
		
CVh@�]L
�$L454LLL56L4L4LL�554LLL56�gp
		>gfilenamefice-9/psyntax.scm�	�	��	
�	��	�	0��	 �	��	#�	��	(�	0��	/�	A��	1�	0��	3�	��	4�	��	>�	��		>CZ�_h8]C0gtmp-bde397a-1ab5
		
		
Cbh@�]L
�$L454LLL56L4L4LL�554LLL56�gp
		>gfilenamefice-9/psyntax.scm�	�	��	
�	��	�	1��	 �	��	#�	��	(�	9��	/�	J��	1�	9��	3�	��	4�	��	>�	��		>Ch`�]45$LLLLO@45$LLLLO@L4LL54LL56�gp
		`gq		`gtmp			`gtmp		/	`gfilenamefice-9/psyntax.scm�	M�	��	V�	)��	`�	��		`	C+dlh)]45C!gx
				C+d�yh8]C0gtmp-bde397a-1b25
		
		
ChV]L456Ngy
		gfilenamefice-9/psyntax.scm�	�	 ��		C|hV]L6Ngy
		gfilenamefice-9/psyntax.scm�	�	��		C�!hh]L4L56`gls
		gfilenamefice-9/psyntax.scm�
�	'��	�	7��	�	4��		Che]LLO6]gy
		gz		gfilenamefice-9/psyntax.scm�	�	 ��			C�	h`�]45$O@45$O@45$
LO@LC�gy
		`gk		`gtmp			`gtmp		'	`gtmp		C	`gfilenamefice-9/psyntax.scm�
�		��		`	gnamegf�C+0�h6]�C.gt-bde397a-1b19
				C3h(t]	45$@6lgls
		"gtmp		"gfilenamefice-9/psyntax.scm�
�	��		"gnamegk�Ch@�]4LL545$@OQ6�gx
		<gx		<gtmp			<gf		-	<gfilenamefice-9/psyntax.scm�	�	��	�	��	-�		��		<C�h��]"45$LLO@45$LLO@45$LLLLO@45$
	LO@
C�gp
	�glev	�gtmp		�gtmp		+�gtmp		K�gtmp		o�gfilenamefice-9/psyntax.scm�
{	��	�	gnamegquasi�CO+_+���h8]C0gtmp-bde397a-1acb
		
		
C�h@�]L
�$L454LLL56L4L4LL�554LLL56�gp
		>gfilenamefice-9/psyntax.scm�	�	��	
�	��	�	0��	 �	��	#�	��	(�	0��	/�	A��	1�	0��	3�	��	4�	��	>�	��		>C���h8]C0gtmp-bde397a-1ad0
		
		
C�h@�]L
�$L454LLL56L4L4LL�554LLL56�gp
		>gfilenamefice-9/psyntax.scm�	�	��	
�	��	�	1��	 �	��	#�	��	(�	��	/�	#��	1�	��	3�	��	4�	��	>�	��		>Chh�]45$LLLLLO@45$LLLLLO@L4LL54LL56�gp
		dgq		dgtmp			dgtmp		1	dgfilenamefice-9/psyntax.scm�	Q�	��	Z�	)��	d�	��		d	C�h]C		
C3hH�]45$LLLLLO@45$@6�gp
		Gglev		Ggtmp			Ggtmp		0	Ggfilenamefice-9/psyntax.scm�
�	��		G	gnamegvquasi�CO+�+�+��h*]L�C"gdx
		
		
C��h8g]	4L5$O@(LCLLC_gdy
		6gtmp		6gfilenamefice-9/psyntax.scm�	$�	��		6C��h-]L��C%gstuff
				C��h-]L��C%gstuff
				C�	hhk]45$
O@45$O@45$O@Ccgx
		bgy		bgtmp			bgtmp		)	bgtmp		E	b		b	C3h0�]45$@6�gx
		+gy		+gtmp				+gtmp			+gfilenamefice-9/psyntax.scm�
�	��		�	��		+	gnameg	quasicons�C+��+0�h)]�C!gp
				C3h8s]L(CL�(L�C4L5$@L6kgtmp
		6gfilenamefice-9/psyntax.scm�	�		��	�	��	�		��	�	��		6
C�!h8]45�C0gp
		gy					C3hP�]45$O@(C45$@6�gx
		Pgy		Pgtmp			Pgtmp		.	Pgtmp		9	Pgfilenamefice-9/psyntax.scm�
�	��	$�		��	.�	��		P	gnamegquasiappend�Ch �](LCL�4L�56�gx
		gfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	��	�	"��	�	��	�	��		gnamegf�Ch �]
OLQ6�gx
		gy		gf			gfilenamefice-9/psyntax.scm�
�	��	�	��			gnameg
quasilist*�CO+�h)]C!gx
		
		
C|�+0h6]�C.gt-bde397a-1b43
				C3h0�]4L545$@6xgx
		-gtmp		-gtmp			-gfilenamefice-9/psyntax.scm�	�	#��	�	��		-C�+�1hR]CJgt-bde397a-1b57
		gt-bde397a-1b56					C3hH�](LL64L�54L�545$@6�gx*
		Cgtmp	!	Cgtmp		,	Cgfilenamefice-9/psyntax.scm�
�		��	�	��	�	��	�	��	�	��	�	��	�	+��	�	.��	�	+��	!�	��		Cgnamegf�Ch t]
OLQ6lgx
		gy		gf			gfilenamefice-9/psyntax.scm�	�		��			C3�+0@h6]�C.gt-bde397a-1b63
				C3h0�]4L545$@6xgx
		-gtmp		-gtmp			-gfilenamefice-9/psyntax.scm�	�	'��	�	��		-CB�+0Oh6]�C.gt-bde397a-1b6f
				C3h0�]4L545$@6xgx
		-gtmp		-gtmp			-gfilenamefice-9/psyntax.scm�	�	'��	�	��		-CQ^ho]	4L5Cggx
		gtmp			gfilenamefice-9/psyntax.scm�	�	.��		�	��		C`h)]C!gx
				C3h��]945$@45$LO@45$LO@45$	LO@4
5$LO@45$
LO@45$@6�gx
	�gtmp	�gtmp		"�gtmp		>�gtmp		Z�gtmp		v�gtmp	��gtmp	��gfilenamefice-9/psyntax.scm�
�	��	�gnamegemit�COQQQQ+bh_]L4L
56Wge
		gfilenamefice-9/psyntax.scm�	�	��	�	��		C3h0e]	45$
LLO@6]gx
		)gtmp		)gfilenamefice-9/psyntax.scm�
�	��		)CO5R4iabcdaefghij�k-h��]#445$"$
45"4L55454$"	>"G">4
5$4>"G64
545�"���4
5"����gfn
	�gdir	�gk		�gp		6�genc		?�gx		e�gresult		e�gfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	��	�	��	*�	��	.�	��	0�	��	4�	��	6�	��	6�	��	9�	��	?�	��	B�	
��	L�	 ��	T�	(��	Y�	
��	e�	
��	f�	��	p�	��	q�	����	����	����	����	����	����	
����	����	����	
��	�	gnameg	read-file�C.7lSm+��+0�h+]�C#gexp
				C3h8�]454LL545$@6�gk
		8gfilename		8gfn				8gtmp			8gtmp		!	8gfilenamefice-9/psyntax.scm�		��				��		$��		��		8	C3hp])OQ45$
45"45$45"45$
	O@
6gx
		ng	read-file	
	ngsrc			ngfile		,	ngdir		E	ngtmp		P	ngfilenamefice-9/psyntax.scm�
�	��	�	��	�	��	�	��	�	��	%�	(��	'�	��	,�	��	/�	��	9�	��	:�	$��	E�	��
		nC5aR4i�+��-����hH�]45445$"
4L55C�gk
		Agfilename		Agfn				Agt			5gtmp		7	Agfilenamefice-9/psyntax.scm�	
	��		
	��		��	
	 ��	
	��	&	 ��	*	2��	,	2��	2	 ��	7	��	7		��		A	C3h(e]	45$O@6]gx
		'gtmp		'gfilenamefice-9/psyntax.scm�
	��		'C5�R4i�hp]6hgx
		gfilenamefice-9/psyntax.scm�
	��		��		��		��		C5R4iWW�hp]6hgx
		gfilenamefice-9/psyntax.scm�
	��		��		��		��		C5WRTh�]L6�gx
		gfilenamefice-9/psyntax.scm�
!	��	#	��		gnamegtrans�g
macro-typegvariable-transformer�C��Z�h@�]	45$%OQ4>"GC6�gproc
		:gtrans		2gfilenamefice-9/psyntax.scm�

��	 	��	
 	��	!	��	$	��	!$	'��	'$	��	6&	
��	:&	��
		:gnamegmake-variable-transformer�C�R4i�+b����������h8)]	
�C!ge
		1		1C�3,h�]45$6C�gid
		gexp1		gvar			gval			gexp2			gfilenamefice-9/psyntax.scm�	5	��	
5	��	5	��			C�����������hXp]	
�	
�		Chgid
		Wgexp1		Wgvar			Wgval			Wgexp2			W		W	C	hPw]45$@45"	6$4?$@"���"���ogxx
		Pgtmp		Pgtmp		"	Pgfilenamefice-9/psyntax.scm�
)	��		PC5�R4i�+a��h\]���CTgid
		gargs		gb0			gb1						C^3,hh]6`gid
		gval		gfilenamefice-9/psyntax.scm�	C	��			C�h;]C3gid
		gval					C	hPv]45$@45"	6$4?$@"���"���ngx
		Pgtmp		Pgtmp		"	Pgfilenamefice-9/psyntax.scm�
?	��		PC5�RC�g
session-id
	�gtransformer-environment	�gtop-level-eval-hook	��gget-global-definition-hook	��gmaybe-name-value!	��gbuild-application	��ganalyze-variable	��gbuild-simple-lambda	��gbuild-sequence	��gbuild-named-let		��gbuild-letrec	
��gsyntax-object-expression	��g
extend-env	��gextend-var-env	
��gmacros-only-env	��g
global-extend	��gid?	��g
gen-labels	��gmake-binding-wrap	��g
join-wraps	��gsame-marks?	��gid-var-name	��glocally-bound-identifiers	��gvalid-bound-ids?	��gdistinct-bound-ids?	��gbound-id-member?	��gwrap	��gsource-wrap	��gexpand-sequence	��gexpand-top-sequence	��gexpand-install-global	��gparse-when-list	��gsyntax-type	 ��gexpand	!��gexpand-expr	"��gexpand-application	#��gexpand-macro	$��gexpand-body	%��gexpand-local-syntax	&��geval-local-transformer	'��g	ellipsis?	(��glambda-formals	)��gexpand-simple-lambda	*��glambda*-formals	+��gexpand-lambda-case	,��gstrip	-��ggen-var	.��gv	/�g
gen-syntax	/F�Idggen-ref	0F�Idggen-map	1F�Idgregen	2F�Idg
expand-let	/ikpgconvert-pattern	/�r��gbuild-dispatch-call	0�r��g
gen-clause	1�r��ggen-syntax-case	2�r��gsyntax-local-binding	/���g syntax-locally-bound-identifiers	0���g
match-each	/lOgmatch-each-any	0lOgmatch-empty	1lOgcombine	2lOgmatch*	3lOgmatch	4lOgquasi
W�YgvquasiW�Yg	quasicons	W�Ygquasiappend	W�Yg
quasilist*	W�Ygemit	W�YGgfilenamefice-9/psyntax.scm��	���	"���	3���	���	��g	���$	
���$	���L	!���&	���L	!���L	���&	���$	
���$	���M	!���&	���M	!���M	���&	���$	
���O	��O	��O	��'(O	��'1$	
��'6$	��'?p	��'@&	��'Gp	��'Ip	��)v&	��){$	
��)�w	��)�w	��)�w	��Iiw	��Ir	��Iv	��Iy	��O�	��O�,	��O�,	��O�,	��Q�,	��Q�8	��Q�8	��Q�8	��X$8	��X-L	��X1L	��X4L	��^�L	��^�`	��^�`	��^�`	��d�`	��d�s	��d�s	��d�s	��p#s	��p,�	��p0�	��p3�	��u��	��u��	��u��	��u��	��{ �	��{)�	��{-�	��{0�	���]�	���f$	
���k$	���t�	���u&	���|�	���~�	���#&	���($	
���1�	���5�	���8�	���-�	���6	%	���:	%	���<	%	����	%	����$	
����$	����	5	����&	����	5	����	5	����&	����$	
����$	����	@	����&	����	@	����	@	����	@	!����&	����$	
����$	����	B	����&	����	B	����	B	����	B	#����&	����$	
����$	����	D	"����&	����	D	"����	D	����	D	1����&	����$	
���$	���	E	,���&	���	E	,��� 	E	���!	E	E���#&	���($	
���6$	���>	G	���?&	���E	G	���G	G	���H	G	)���J&	���O$	
���X	I	���\	I	���_	I	����	I	���*
	���
	���
	���
	����
	����
	����
&	���
,	����
2	����
j	����
j	��H
j	��Q
k	��Y
k	��`
k	��i
l	��q
l	��x
l	��=	��d[
���	j
C6PKQ<�Z;�G��hcons.gonu�[���GOOF----LE-8-2.0�]!4hm]gguile�	�	gdefine-module*�	�	�	gice-9�	ghcons�	�		gfilenameS�	
fice-9/hcons.scm�	gexportsS�	ghashq-cons-hash�	
ghashq-cons-assoc�	ghashq-cons-get-handle�	ghashq-cons-create-handle!�	ghashq-cons-ref�	ghashq-cons-set!�	g
hashq-cons�	ghashq-conser�	gmake-gc-buffer�	
	�	gset-current-module�	�	�	ghashq�	ghashx-get-handle�	ghashx-create-handle!�	g	hashx-ref�	g
hashx-set!�	gmake-doubly-weak-hash-table�	g	make-list�	 gappend!�C5h�	�]4	
54>"Gh0�]4�?��54�?��5��C�gpair
		)gn		)gfilenamefice-9/hcons.scm�
	"
��		#	��		#	��		#	��		$	��		$	��	$	$	��	%	#	
��	(	#	��
		)	gnameghashq-cons-hash�CR
hp&]
(C�$D��$7���$)����&����&�"""""$C�6gkey
		jgl		jgt		V	jgfilenamefice-9/hcons.scm�
	'
��		(	��	
	)	��		)	��		*	��		*	��		)	��		+	��		+	��	"	)	��	%	,	��	(	,	��	.	)	��	1	-	��	4	-	��	:	)	��	=	.	��	V	)	��	h	/	!��	j	/	��		j	gnameghashq-cons-assoc�C
R
h�]6�gtable
		gkey		gfilenamefice-9/hcons.scm�
	1
��		2	��			gnameghashq-cons-get-handle�CR
h�]6�gtable
		gkey		ginit			gfilenamefice-9/hcons.scm�
	4
��		5	��			gnameghashq-cons-create-handle!�CR
h�]6�gtable
		gkey		gfilenamefice-9/hcons.scm�
	7
��		8	��			gnameghashq-cons-ref�CR
h�]6�gtable
		gkey		gval			gfilenamefice-9/hcons.scm�
	:
��		;	��			gnameghashq-cons-set!�CRh�]4�5�C�gtable
		ga		gd			gfilenamefice-9/hcons.scm�
	=
��		>	��		>	(��		>	��		>	��			gnameg
hashq-cons�CRhi]L6aga
		gd		gfilenamefice-9/hcons.scm�
	D	��		D	��			Ch �]	�$"45OC�ghash-tab-or-size
		 gtable		 gfilenamefice-9/hcons.scm�
	@
��		A	��			A	��		C	��		A	��		 gnameghashq-conser�CR hm]M�M�NCegnext
		gfilenamefice-9/hcons.scm�
	L	��		M	��	
	N	��		N	��		Ch(�]	45H4JJ>"GOC�gn
		(gring	
	(gfilenamefice-9/hcons.scm�
	I
��		J	��	
	J	��	
	K	��		(gnamegmake-gc-buffer�CRC�gm
		(gfilenamefice-9/hcons.scm�		
��*	"
���	'
���	1
��a	4
��	7
���	:
���	=
��	@
��	x	I
��		z
C6PKQ<�ZT�kksafe.gonu�[���GOOF----LE-8-2.0S]4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gsafe�	�		gfilenameS�	
fice-9/safe.scm�	gexportsS�	gsafe-environment�	
gmake-safe-module�	
�	gset-current-module�	�	�	gresolve-interface�	g	safe-r5rs�	�	gsafe-r5rs-interface�	g	scm-error�	g
misc-error�	f~A is not a valid version�	gmake-module�C5h��]4	
54>"G4i5Rh0�]	�$"4>"GC�gn
		.gfilenamefice-9/safe.scm�
	
��			��			��			��			��			��			��			��			��	#		��		.gnamegsafe-environment�CRhm]�6egfilenamefice-9/safe.scm�
	 
��		!	��		!	��		
gnamegmake-safe-module�C
RCygm
		(gfilenamefice-9/safe.scm�		
��	)		��	/		/��	1		��	4	
��8	
���	 
��	�
C6PKQ<�Z�Raaaweak-vector.gonu�[���GOOF----LE-8-2.0I]4hx]gguile�	�	gdefine-module*�	�	�	gice-9�	gweak-vector�	�		gfilenameS�	
fice-9/weak-vector.scm�	gexportsS�	gmake-weak-vector�	
glist->weak-vector�	gweak-vector?�	gweak-vector-length�	gweak-vector-ref�	gweak-vector-set!�	gmake-weak-key-alist-vector�	gmake-weak-value-alist-vector�	gmake-doubly-weak-alist-vector�	gweak-key-alist-vector?�	gweak-value-alist-vector?�	gdoubly-weak-alist-vector?�	

�	gset-current-module�	�	�	g%init-weaks-builtins�C5h0_]4	
54>"Gi6Wgm
		(gfilenamefice-9/weak-vector.scm�		
��	.	
��		.
C6PKQ<�Z'L����runq.gonu�[���GOOF----LE-8-2.0�]44h9]gguile�	�	gdefine-module*�	�	�	gice-9�	grunq�	�		gfilenameS�	
fice-9/runq.scm�	gimportsS�	gq�	
�	
�	�	gexportsS�	grunq-control�	gmake-void-runq�	gmake-fair-runq�	gmake-exclusive-runq�	gmake-subordinate-runq-to�	gstrip-sequence�	gfair-strip-subtask�	�	gset-current-module�	�	�	gadd!�	gfor-each�	genq!�	g
*unspecified*�	 genqueue!�	!gpush!�	"gq-push!�	#gempty?�	$gq-empty?�	%glength�	&gq-length�	'gkill!�	(gmake-q�	)gthrow�	*gnot-understood�	+gcatch�	,gwarn�	-g
runq-strip�	.g	run-strip�	/g
apply-to-args�	0gdeq!�	1g
procedure?�	2gsuspend�	3gapply�C5h��]4	
54>"GhY]M6Qgt
		
gfilenamefice-9/runq.scm�
	I	*��	
	I	6��		
C hY]M6Qgt
		
gfilenamefice-9/runq.scm�
	J	*��	
	J	6��		
C!"hY]M6Qgt
		
gfilenamefice-9/runq.scm�
	K	*��	
	K	6��		
C#$%&'()*h�,-13H�$4O>"GC�$4O>"GC�$4O>"GC	�$
J6�$J6
�$	45KC6$gq
	
�gmsg	
�gargs		
�gfilenamefice-9/runq.scm�
	G
��		H	��		I	 ��	1	I	H��	;	H	��	<	J	 ��	V	J	H��	`	H	��	a	K	 ��	{	K	K���	H	���	L	 ���	H	���	M	 ���	H	���	N	(���	N	 ���	O	'���	O	 ��		�	
	gnamegrunq-control�CR+,-h(m-134L>"GCegign
			!gfilenamefice-9/runq.scm�
	Q	*��	
	Q	6��		Q	<��		Q	6��			!


Chr]O6jgthunk
		gfilenamefice-9/runq.scm�
	Q
��		Q	��		gnameg	run-strip�C.R/%hn-13�$
CCfgmsg
			gargs			gfilenamefice-9/runq.scm�
	]	
��		^	��			
Ch f-13$6C^gopts
			gfilenamefice-9/runq.scm�
	Z	��		[	��		\	��			


Ch[]CSgfilenamefice-9/runq.scm�
	Y
��		
gnamegmake-void-runq�CR$01.h�l-13$M@4M5$C4M545$.45$4M>"G""V�$O4�5$4M>"G"�("4M�>"G"LCdgctl
		�g
next-strip	+�gk		?	bgk		u�gfilenamefice-9/runq.scm�
	p	��		q	��		r	��		s	��	"	s	��	%	t	)��	+	t	��	.	v	��	8	u	��	9	v	A��	?	v	8��	G	w	:��	H	w	A��	i	x	��	m	u	��	n	x	7��	s	x	B��	u	x	7��	u	x	.��	}	y	0��	~	y	7���	z	>���	z	.���	{	2���	{	:���	{	2��		�


gnamegself�C(h(�]HOQ45KC�gq
		&gself		&gq			#gfilenamefice-9/runq.scm�
	m
��		n	��		n	��		&
gnamegmake-fair-runq�CR$01."h��-13$M@4M5$C4M545$.45$4M>"G""V�$O4�5$4M>"G"�("4M�>"G"LC~gctl
		�g
next-strip	+�gk		?	bgk		u�gfilenamefice-9/runq.scm�
�	��	�	��	�	��	�	��	"�	��	%�	)��	+�	��	.�	��	8�	��	9�	A��	?�	8��	G�	:��	H�	A��	i�	��	m�	��	n�	7��	s�	B��	u�	7��	u�	.��	}�	0��	~�	7����	>����	.����	2����	=����	2��		�


gnamegself�C(h(�]HOQ45KC�gq
		&gself		&gq			#gfilenamefice-9/runq.scm�
�
��	�	��	�	��		&
gnamegmake-exclusive-runq�CR#%hH�]4L5$L�C"#
�$C4L>"G�"���4L5"����gn
		:gfilenamefice-9/runq.scm�
�	��	�	��	�	 ��		�	��	
�	��	�	��	�	��	�	��	�	��	"�	��	4�	1��	:�	��	;�	��	?�	(��	A�	��	G�	��		G
C2#h�g-13$U��$L�C4L?L�$"4L5�$LL�4LL>"G"C4L54L>"GC_gctl
		�gkey		dganswer		*	dganswer	i�gfilenamefice-9/runq.scm�
�	��	�	��	�	��	�	��	!�	0��	$�	>��	*�	0��	/�	@��	3�	6��	9�	V��	=�	b��	?�	V��	@�	Q��	D�	2��	I�	8��	J�	8��	N�	G��	U�	8��	e�	"��	i�	��	l�	��	p�	��	u�	��		�


gnamegself�Ch0�]�O�OQC�g
superior-runq
		,g
basic-runq		,g	runq-task			,gself			,gfilenamefice-9/runq.scm�
�
��	�	��	�	��	�	��	�	��		,	gnamegmake-subordinate-runq-to�CRh]]LLL��6Ugfilenamefice-9/runq.scm�
�	��		�	-��	
�	"��	�	��		
ChT]LL�6Lgfilenamefice-9/runq.scm�
�	��	�	"��		�	��			
Ch0�]	(C4�5$LOCLOC�gst
		.gthen		.gfilenamefice-9/runq.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	
��		.gnamegloop�Ch �]OQMN6gloop
	
	ga		gfilenamefice-9/runq.scm�
�	��	
�	��	�	��	�	%��	�	��		
Chs-13HOCkgstrips
	
	gfilenamefice-9/runq.scm�
�
��			


gnamegstrip-sequence�CR3h0�-13454>"GC�ginitial-strips
			)gst		)gfilenamefice-9/runq.scm�
�
��	
�	��	�	��	�	��	�	��	�	��			)


gnamegfair-strip-subtask�CRC�gm
		,gfilenamefice-9/runq.scm�		0
���	G
���	Q
���	Y
��	�	m
����
��Z�
��~�
����
��
	�
C6PKQ<�Zir\��)�)
gap-buffer.gonu�[���GOOF----LE-8-2.0�)]V4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	g
gap-buffer�	�		gfilenameS�	
fice-9/gap-buffer.scm�	gexportsS�	ggb?�	
gmake-gap-buffer�	ggb-point�	ggb-point-min�	ggb-point-max�	ggb-insert-string!�	ggb-insert-char!�	ggb-delete-char!�	g	gb-erase!�	ggb-goto-char�	g
gb->string�	g
gb-filter!�	g	gb->lines�	ggb-filter-lines!�	gmake-gap-buffer-port�	
�	g	autoloadsS�	gsrfi�	gsrfi-13�	�	 gstring-join�	! �	"!�	#gset-current-module�	$#�	%#�	&gmake-record-type�	'gs�	(gall-sz�	)ggap-ofs�	*gaft-ofs�	+'()*�	,grecord-predicate�	-grecord-accessor�	.gs:�	/gall-sz:�	0ggap-ofs:�	1gaft-ofs:�	2grecord-modifier�	3gs!�	4gall-sz!�	5ggap-ofs!�	6gaft-ofs!�	7gdefault-initial-allocation�	8gdefault-chunk-size�	9gdefault-realloc-threshold�	:ground-up�	;grecord-constructor�	<gnew�	=gmake-string�	>gsubstring-move!�	?grealloc�	@gport?�	Ageof-object?�	Bglist->string�	Cgreverse�	Dg	read-char�	Egstring?�	Fg
string-length�	Ggerror�	Hf
bad init type�	Iginsert-prep�	Jgstring-set!�	Kgmax�	Lgmin�	Mg	point++n!�	Ng	point+-n!�	Og
string-append�	Pg	substring�	Qgstring-index�	Rfnot a gap-buffer:�	Sgmake-soft-port�	Tg
string-ref�	Ufrw�C5h� �]4	
"54%>"G4&i+5R4,ii5R4-ii'5.R4-ii(5/R4-ii)50R4-ii*51R42ii'53R42ii(54R42ii)55R42ii*56R�7R�8R	 9R8h�]���Cgn
		gfilenamefice-9/gap-buffer.scm�
�
��		�	��	
�	��	�	��		gnameground-up�C:R4;ii5<R./01=>346
h��]:4545�454545�4

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

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

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


gnamegmake-gap-buffer�C
R0h]45�Cwggb
		gfilenamefice-9/gap-buffer.scm�
�
��	�	��	
�	��		gnameggb-point�CRhq]Ciggb
		gfilenamefice-9/gap-buffer.scm�
�
��		gnameggb-point-min�CR/10h �]454545���C�ggb
		gfilenamefice-9/gap-buffer.scm�
�
��	�		��	
�	��	�	'��	�	��	�	��	�	��		gnameggb-point-max�CR019?:hP<]4545���$44
�5>"G"C4ggb
		Iglen		Iggap-ofs				Igaft-ofs			Igslack			Igfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	#�		��	'�	��	(�		��	-�	��	0�	��	5�	��	:�		��		I	gnameginsert-prep�CIRFI>.5h@]45454
45>"G�6�ggb
		?gstring		?glen				?ggap-ofs			?gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	��	�	��	�	"��	,�	��	=�	��	?�	��		?	gnameggb-insert-string!�CRIJ.5h0�]
45445>"G�6�ggb
		0gchar		0ggap-ofs		
	0gfilenamefice-9/gap-buffer.scm�
�
��	�	��	
�	��	
�	��	�	��	�	��	.�	��	0�	��			0	gnameggb-insert-char!�CR5K06L/1hP ]
�$4
45�56
�$44545�56
�$CCggb
		Pgcount		Pgfilenamefice-9/gap-buffer.scm�
�
��	�		��	
�	��	�	��	�	 ��	�	��	�	��	 �		��	$�		��	(�	��	-�	��	0�	��	7�	+��	@�	(��	B�	��	D�		��	H�		��	L�	��		P	gnameggb-delete-char!�CR56/h(�]4
>"G456�ggb
		"gfilenamefice-9/gap-buffer.scm�
�
��	�	��	�	��	"�	��		"gnameg	gb-erase!�CR>56hH�]4�>"G4�>"G�6�ggb
		Agn		Ags			Aggap-ofs			Agaft-ofs			Agfilenamefice-9/gap-buffer.scm�
�
��	�	��	�	��	�	��	 �	��	)�	��	.�	��	?�	��	A�	��
		A	gnameg	point++n!�CMR>56hH]4��>"G4�>"G�6�ggb
		Dgn		Dgs			Dggap-ofs			Dgaft-ofs			Dgfilenamefice-9/gap-buffer.scm�
�
��	�	��	�	��	�	-��	�	��	#�	��	,�	��	1�	��	B�	��	D�	��		D	gnameg	point+-n!�CNRNM.01	h��]*45�$45"$"�$
45"$"Y45�
�$"74
�$"454545>"GC�ggb
	�g	new-point	�gpmax			�gt		 �gt		C�gdelta		Y�gt		_�gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	
��	�	��	�	 ��	 �	��	1�	
��	5�	��	6�	 ��	C�	��	R�	"��	Y�	��	Y�	��	_�	��	_�	
��	l�	��	p�	��	t�	����	����	 ����	.����	��	�	gnameggb-goto-char�CR.OP01h0�]	454
45544556�ggb
		,gs			,gfilenamefice-9/gap-buffer.scm�
�
��	�	��		�	��	�	��	�	"��	�	��	�	��	"�	 ��	*�	��	,�	��		,gnameg
gb->string�CRh0�]
44554>"G6�ggb
		*gstring-proc		*gnew			*gfilenamefice-9/gap-buffer.scm�
�
��	�	
��	�	��	�	
��	�	��	�	��	*�	��		*	gnameg
gb-filter!�CRQPChX8]!45"<4
5$�45�"���45�6
"���0ggb
		Ugstr			Ugstart			Kgacc			Kgt			Kgfilenamefice-9/gap-buffer.scm�
�
��	�	
��		�	��	�	��	�	
��	�	��	%�	��	&�	%��	3�	��	;�	��	>�	!��	I�	��	K�	��	K�	��	M�	��	U�	��		Ugnameg	gb->lines�CR h8�]
44554>"G4
56�ggb
		1g
lines-proc		1g	new-lines			1gfilenamefice-9/gap-buffer.scm�

��		��		��		��		��		��	'	��	1	��			1	gnameggb-filter-lines!�CRGRSha]L6Ygc
		
gfilenamefice-9/gap-buffer.scm�

	��	

	��		
Cha]L6Ygs
		
gfilenamefice-9/gap-buffer.scm�
	��	
	��		
C01/.TJ56	h�)] 4L54L54L5�$C4L5454>"G4L�>"G4L�>"GC!ggap-ofs
		{gaft-ofs		{gs		+	{gc		6	{gfilenamefice-9/gap-buffer.scm�

	��	
	��	
	��	
	��		 ��		��	"	��	%	��	+	��	.	��	6	��	9	��	O	��	V	$��	[	��	d	��	k	$��	p	��		{
CU	hP�]	45$"4>"GOOO6�ggb
		Lgt			,gfilenamefice-9/gap-buffer.scm�

��		��			��		��		
��	!	��	H		��	J	��	L	��
		Lgnamegmake-gap-buffer-port�CRC~gm
		,gfilenamefice-9/gap-buffer.scm�		Y
��	-	l	��	3	l	��	5	m	��	7	l	��	:	k
��	;	s	��	H	s
��	I	u	��	S	u	-��	U	u	��	X	u
��	Y	v	��	c	v	-��	e	v	��	h	v
��	i	w	��	s	w	-��	u	w	��	x	w
��	y	x	���	x	-���	x	���	x
���	z	���	z	-���	z	���	z
���	{	���	{	-���	{	���	{
���	|	���	|	-���	|	���	|
���	}	���	}	-���	}	���	}
����
����
����
����
����	����	+����	����
���
��	��
��
R�
��
��
����
��
g�
����
����
��{�
��D�
����
��
�
����
����
����
��k�
���
�� �
��C	 �
C6PKQ<�Z;Of��=�=readline.gonu�[���GOOF----LE-8-2.0�=]�4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	greadline�	�		gfilenameS�	
fice-9/readline.scm�	gimportsS�	gsession�	
�	
�	gregex�	�	�	gbuffered-input�	�	�	�	gexportsS�	gfilename-completion-function�	gadd-history�	gread-history�	g
write-history�	g
clear-history�	�	gset-current-module�	�	�	 g	provided?�	!gload-extension�	"flibguilereadline-v-18�	#fscm_init_readline�	$g	scm-error�	%g
misc-error�	&f3readline is not provided in this Guile installation�	'gcall-with-deferred-observers�	('�	)'�	*gmodule-export!�	+*�	,*�	-gcurrent-module�	.-�	/-�	0greadline-options�	1greadline-enable�	2greadline-disable�	3012�	4g
readline-set!�	54�	6greadline-options-interface�	7gfor-each�	87�	97�	:gdisplay�	;:�	<:�	=g
string-length�	>gsymbol->string�	?>�	@>�	Agnewline�	BA�	CA�	Dgappend�	ED�	FD�	Ggdelq!�	HG�	IG�	Jgmake-syntax-transformer�	KJ�	LJ�	Mgmacro�	Ng$sc-dispatch�	ON�	PN�	Qgany�	RQQQ�	Sg
syntax-object�	Tg	eval-when�	Ugm-a15bdba661f-3�	Vgtop�	WUV�	Xgribcage�	Ygdummy�	Zgopt�	[gval�	\YZ[�	]gm-a15bdba661f-5�	^]V�	_^WW�	`fl-a15bdba661f-a�	afl-a15bdba661f-b�	bfl-a15bdba661f-c�	c`ab�	dX\_c�	eX�	fgx�	gf�	h^�	ifl-a15bdba661f-7�	ji�	kXghj�	lgshift�	mg	interface�	ngoptions�	ogenable�	pgdisable�	qgoption-set!�	rYmnopq�	sgm-bde397a-1729�	tsV�	uV�	vtuuuuu�	wfl-bde397a-172e�	xfl-bde397a-172f�	yfl-bde397a-1730�	zfl-bde397a-1731�	{fl-bde397a-1732�	|fl-bde397a-1733�	}wxyz{|�	~Xrv}�	t��fl-bde397a-172b�����Xg���Wdekl~e���ghygiene�����ST����gexpand��S�����gload��S�����geval��S����������udek�����S0����SD�������glist��S�����gquote��S�����gsyntax-violation��������f-source expression failed to match any pattern��gmodule-locally-bound?��������gnew-input-prompt��f��gcontinuation-prompt��g
input-port��gcurrent-input-port��goutput-port��gcurrent-output-port��g	read-hook��gmake-line-buffered-input-port��g	%readline��gstring?��geof-object?��gstring=?��g
string-append��f
��gmake-readline-port��gthe-readline-port��ghistory-variable��f
GUILE_HISTORY��ghistory-file��ggetenv��fHOME��f.��f/.guile_history��gmemq��g	add-hook!��g	exit-hook��g
readline-port�������gset-readline-prompt!�����g
file-port?��ginput-port?��gwrong-type-arg��fset-readline-input-port!��fNot a file input port: ~S��gport-closed?��fPort not open: ~S��gset-readline-input-port!�����goutput-port?��fNot a file output port: ~S��fset-readline-output-port!��gset-readline-output-port!�����gset-readline-read-hook!�����gmap��gapropos-internal��f^��gregexp-quote��gapropos-completion-function�����g*readline-completion-function*��g!with-readline-completion-function�����greadline-repl-reader��grepl-reader��g	fluid-ref��gcurrent-reader��g!set-buffered-input-continuation?!��f... ��grun-hook��gbefore-read-hook��gread��gisatty?��gset-current-input-port��gsetter��������gusing-readline?��gactivate-readline�����gstring-match��gmake-completion-function����C5h�(�]4	
54>"G4 i5$"4!i"#>"G4 i5$"4$i%&>"G4),/3hD]456<gfilenamefice-9/readline.scm�
	7
��		
C>"G4),/5hD]456<gfilenamefice-9/readline.scm�
	;
��		
C>"G69<=@Ch��]4>"G4455	�$54	>"G	�$4	>"G""4	>"G4>"G4	>"G4>"G6�gname
	�gvalue	�g
documentation		�glen		 	cgfilenamefice-9/readline.scm�
	>
��	�	ChY]@Qgoption
		gfilenamefice-9/readline.scm�
	>
��		Ch8{)36]�$4>"G6456sgarg
		8gfilenamefice-9/readline.scm�
	>
��			
		8gnamegreadline-options�C0R6Fh0v-1344455>"G6ngflags
			)gfilenamefice-9/readline.scm�
	>
��			)


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


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


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


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


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

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

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

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

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

	�
�$
	�"��|C��	"����$0�&"4>"G"4>"G
�	�
�$
��"���C�gkey
	gvhash	gequal?		ghash		gbase		�g
max-offset		�gsize		�gcontent		�gkhash		�goffset			"�g
next-block	
	n�gblock	��gfilenamefice-9/vlist.scm�
�
��		��		��		��		��		��		��		��	"	��	(	��	-	��	1	��	2		��	;		&��	<		!��	>		��	B	��	G
	��	O	��	Y	��	`	��	j	��	n	��	n	��	u
	��	w
	��	{
	���	+���	���	���	���	���	���	���	
��	��	��	��	��	��)		gnameg% %vhash-assoc-procedure�C7R4N8PSV�h�]C�gt-198d9e0d-201f
		gt-198d9e0d-2020		gt-198d9e0d-2021			gt-198d9e0d-2022						C��8�hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC58R��h �-.,3##"�	�
�45"e	$="�	��	"���	�$4	��5$	�C"���"����

	�
�$
	�"���C��	"���"#4>"'G" �$�&""���""���
�	�
�$
��"��C�gkey
	 gvhash	 gequal?		 ghash		 gbase		$�g
max-offset		$�gsize		)�gcontent		/�gkhash		:�goffset			@�g
next-block	
��gblock	�gfilenamefice-9/vlist.scm�

��	$	��	 		gnamegvhash-assoc�g
documentationfpReturn the first key/value pair from VHASH whose key is equal to
KEY according to the EQUAL? equality predicate.�C9R�hu]B"�	�
�45"`$8"���"����$��&�C"���"����			�
�$		�"���C��"���"#4>"'G" �$�&""���""���
�	�
�$
��"��Cmgkey
	gvhash	ghash		gbase		
�g
max-offset		
�gsize		�gcontent		�gkhash		 �goffset		&�g
next-block			h�gblock	��gfilenamefice-9/vlist.scm�

��		��		gnameg
vhash-assq�g
documentationkReturn the first key/value pair from VHASH whose key is  eq?  to
KEY.�C:R�hy]B"�	�
�45"a$9"���"����$���$�C"���"����			�
�$		�"���C��"���"#4>"'G" �$�&""���""���
�	�
�$
��"��
Cqgkey
	gvhash	ghash		gbase		
�g
max-offset		
�gsize		�gcontent		�gkhash		 �goffset		&�g
next-block			i�gblock	��gfilenamefice-9/vlist.scm�

��	"	��		gnameg
vhash-assv�g
documentationkReturn the first key/value pair from VHASH whose key is  eqv?  to
KEY.�C;R��9)6h(�]��4LL5$CL6�gk+v
		(gresult		(gk			(gv			(gfilenamefice-9/vlist.scm�
(	��	)	��	*	��	)	��	
+	��	+	��	(-	��		(	C#hH!-.,3##45$O6Cgkey
		Ggvhash		Ggequal?			Gghash			Ggfilenamefice-9/vlist.scm�
$
��	!'	��	1'	��	D(	��		G		gnamegvhash-delete�g
documentationfHRemove all associations from VHASH with KEY, comparing keys
with EQUAL?.�C<R<��h�]6�gt-198d9e0d-243e
		gt-198d9e0d-243f		gfilenamefice-9/vlist.scm�
2	��			gnameg
vhash-delq�C=R<��h�]6�gt-198d9e0d-2448
		gt-198d9e0d-2449		gfilenamefice-9/vlist.scm�
3	��			gnameg
vhash-delv�C>R)h�]L��6�g	key+value
		gresult		gfilenamefice-9/vlist.scm�
:	��	;	��	
;	&��	;	��			Chm]O6egproc
		ginit		gvhash			gfilenamefice-9/vlist.scm�
5
��	:	��			gnameg
vhash-fold�g
documentationk�Fold over the key/pair elements of VHASH from left to right, with
each call to PROC having the form  (PROC key value result) ,
where RESULT is the result of the previous call to PROC and
INIT the value of RESULT for the first call to PROC.�C?R*h�]L��6�g	key+value
		gresult		gfilenamefice-9/vlist.scm�
E	��	F	��	
F	,��	F	��			Chu]O6mgproc
		ginit		gvhash			gfilenamefice-9/vlist.scm�
@
��	E	��			gnamegvhash-fold-right�g
documentationk�Fold over the key/pair elements of VHASH from right to left, with
each call to PROC having the form  (PROC key value result) ,
where RESULT is the result of the previous call to PROC and
INIT the value of RESULT for the first call to PROC.�C@R��6h�]��L6}gpair
		gresult		gfilenamefice-9/vlist.scm�
M	��	N	��	
N	'��	N	��			C#h(�-.,3#O6�galist
		%ghash		%gfilenamefice-9/vlist.scm�
K
��	%M	��		%gnamegalist->vhash�g
documentationf=Return the vhash corresponding to ALIST, an association list.�CDRCgm
		,grtd
:D:pgbase
J�J�gfilenamefice-9/vlist.scm�		
��	-	E	��	8	D
��g	G
��V	V
��	t	W
���	X
���	Y
���	Z
��;	\
���	_
���	b
�� �	l
��$�	q
��(T	v
��,	|
��/�	
��3��
��6��	��6��
��7��
��I�
��J��	��J��
��K��
��Q��
��W�
��X��
��Z��
��\%�
��]#�
��`
�
��bX
��cW
��e
��e�#
��hg'
��j�3
��l�@
��nwL
��p8V
��r	]
��t�g
��v�p
��x�x
��zt�
��{��
�����
���^�
���6�
�����
�����
���@�
����
����
���
����
���\
����$
����2
���`3
����5
����@
����K
��A	��
C6PKQ<�ZwO	�� � 
control.gonu�[���GOOF----LE-8-2.0� ]�4h�
]gguile�	�	gdefine-module*�	�	�	gice-9�	gcontrol�	�		gfilenameS�	
fice-9/control.scm�	gexportsS�	g%�	
gabort�	gshift�	greset�	gshift*�	greset*�	gcall-with-escape-continuation�	gcall/ec�	glet-escape-continuation�	glet/ec�	

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


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


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


Ch0%]U4O>XCXFGEgproc
		.gtag		.g_		#	.gargs		#	.gfilenamefice-9/control.scm�
	Q
��		S	��		S	
��		S	��		T	��		V	��	&	T	��	.	Y	��			.gnamegcall-with-escape-continuation�g
documentationf&Call PROC with an escape continuation.�CRiR4"#&��������h(N]������CFgdummy
		'gk		'gbody			'		'	Cfgh(]	45$@6�gx
		"gtmp		"gfilenamefice-9/control.scm�
	]
��		"g
documentationfCBind K to an escape continuation within the lexical extent of BODY.�g
macro-typegsyntax-rules�gpatternsgkgbodyg...C5R4"#&��hN]��CFgdummy
		gk		gbody						Cfgh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/control.scm�
	h
��		"g
macro-typegsyntax-rules�gpatternsgkgbodyg...C5RC}gm
		,gfilenamefice-9/control.scm�		
���	
��*	6
��	5	K
��	N
��	Q
��	[
��	_
C6PKQ<�Z1�߀^\^\pretty-print.gonu�[���GOOF----LE-8-2.0F\]�4h]gguile�	�	gdefine-module*�	�	�	gice-9�	gpretty-print�	�		gfilenameS�	
fice-9/pretty-print.scm�	gimportsS�	gmatch�	
�	
�	gsrfi�	gsrfi-1�	�	�	grnrs�	gbytevectors�	�	�	�	gexportsS�	gtruncated-print�	�	gset-current-module�	�	�	gmake-string�	ggenwrite:newline-str�	 g
string-length�	!f(�	"gfold�	#f �	$f)�	%gobject->string�	&gdisplay�	'gwrite�	(gquote�	)f'�	*g
quasiquote�	+f`�	,gunquote�	-f,�	.gunquote-splicing�	/f,@�	0f        �	1g	substring�	2gmin�	3g
generic-write�	4f�	5greverse-string-append�	6gvector->list�	7f#�	8gsymbol->string�	9f.�	:glambda�	;glambda*�	<glet*�	=gletrec�	>gdefine�	?gdefine*�	@g
define-public�	Ag
define-syntax�	Bg
let-syntax�	Cg
letrec-syntax�	Dgwith-syntax�	Egif�	Fgset!�	Ggcond�	Hgcase�	Igand�	Jgor�	Kglet�	Lgbegin�	Mgdo�	Ngsyntax-rules�	Ogsyntax-case�	Pgstring-set!�	Qg
string-ref�	RgportS�	SR	��	TgwidthS�	UT	��	Vgmax-expr-widthS�	WV	��	Xgdisplay?S�	YX	��	Zgper-line-prefixS�	[Z	��	\SUWY[�	]gcurrent-output-port�	^X	��	_gbreadth-first?S�	`_	��	aSU^`�	bg%default-port-encoding�	cg
port-encoding�	dgcatch�	egencoding-error�	fg!%default-port-conversion-strategy�	ggerror�	hgwith-output-to-string�	ik& �	jf...�	kgmax�	lgfloor�	mfexpected a positive width�	nglength�	ogcdr�	pf#(�	qg
vector-length�	rg
vector-ref�	sgidentity�	tgbytevector?�	ugformat�	vf#~a(�	wg
array-type�	xgarray-length�	yg	array-ref�	zf. �	{gstring-prefix?�	|gstring-suffix?�	}f~a~a~a~a�	~f#<�	f>��~���p$���!$���f"�������������gwith-output-to-port�C5h�R�]4	
54>"G4i
5R h(�]$4L5$45�CCC�gstr
		"gcol		"gfilenamefice-9/pretty-print.scm�
	9	��		:	��			:	
��		:	��		:	!��		:	��		"	gnamegout�C!"#h(�]L$4L5$�""6�gi
		'gcol		'gfilenamefice-9/pretty-print.scm�
	G	��		:	��	
	:	
��		H	%��		:	
��		:	��		:	!��		:	��	'	H	��
		'	C$%&' ()*+,-./hX�]""��$����$V4L$4L5$�""54LLO5$4L5$�CCC4L$"5$4L5$45�CCC4L$"5$4L5$45�CCC�$j��	&��$��(y�L	�$
".�$"
�$"�$"$4L5$45�""6"���"��|&��$��(y�L	�$
".�$"
�$"�$"$4L5$45�""6"���"���
&��$��(y�L	�$
".�$"
�$"�$"$4L5$45�""6"��R"��N&��$��(y�L	�$
".�$"
�$"�$"$4L5$45�""6"���"���"���"����gobj
	Wgcol	Wgw		�gx		�gcol		D	tgcol		X	tgstr	��gstr	��gw	�Sgx	�Sgw	�ghead	Vgstr	V�gw	�ghead	��gstr	�gw	:�ghead	B�gstr	��gw	�Gghead	�gstr	Egfilenamefice-9/pretty-print.scm�
	=	��		?	��		E	��	)	:	��	*	:	
��	.	E	$��	0	:	
��	4	:	��	7	:	!��	8	:	��	D	E	��	D	E		��	G	G	��	X	F	��	`	:	��	a	:	
��	e	F	��	g	:	
��	k	:	��	n	:	!��	o	:	��	u	K	��		K	"���	K	���	K		���	:	���	:	
���	:	���	:	!���	:	���	K	���	K	"���	K	���	K		���	:	���	:	
���	:	���	:	!���	:	���	?	��	2	��	2	��	3	��!	4	��.	3	��0	5	��=	3	��?	6	��L	3	��N	7	��V	A	��^	:	��_	:	
��i	:	��l	:	!��s	:	���	A		���	?	���	2	���	2	���	3	���	4	���	3	���	5	���	3	���	6	���	3	���	7	���	A	���	:	���	:	
��	:	��	:	!��
	:	��	A		��	?	��B	2	��B	2	��M	3	��O	4	��\	3	��^	5	��k	3	��m	6	��z	3	��|	7	���	A	���	:	���	:	
���	:	���	:	!���	:	���	A		���	?	���	2	���	2	���	3	���	4	���	3	���	5	��	3	��	6	��	3	��	7	��	A	��#	:	��$	:	
��.	:	��1	:	!��8	:	��G	A		��K	?	��q	W	gnamegloop�Ch �]
OLLLQ6�gobj
		 gcol		 gloop		
	 gfilenamefice-9/pretty-print.scm�
	<	��	
	=	��		 	gnamegwr�C01 hp>]

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

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

4L4L
	5
5

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

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

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

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

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

The default behaviour is to print depth-first, meaning that the entire
remaining width will be available to each sub-expression of @var{x} --
e.g., if @var{x} is a vector, each member of @var{x}. One can attempt to
"ration" the available width, trying to allocate it equally to each
sub-expression, via the @var{breadth-first?} keyword argument.�CRC�gm
		,gfilenamefice-9/pretty-print.scm�		
��	-	"	��	9	"
��3�	$
��7
�
��;�
��R�)
��	R�
C6PKQ<�Z�ub���
local-eval.gonu�[���GOOF----LE-8-2.0�]x4hLW]gguile�	�	gdefine-module*�	�	�	gice-9�	g
local-eval�	�		gfilenameS�	
fice-9/local-eval.scm�	gimportsS�	gformat�	
�	
�	gsrfi�	gsrfi-9�	�	�	ggnu�	�	�	gsystem�	gbase�	gcompile�	�	�	gsyntax�	�	�	�	gexportsS�	 gthe-environment�	!g
local-compile�	" !�	#gset-current-module�	$#�	%#�	&glexical-environment-type�	'g#%make-lexical-environment-procedure�	(gmake-syntax-transformer�	)(�	*(�	+gmake-lexical-environment�	,gmacro�	-g$sc-dispatch�	.-�	/-�	0g_�	1gany�	201111�	3g
syntax-object�	4glambda�	5gm-3348ed57c594e3-7�	6gtop�	756�	8gribcage�	9gt-3348ed57c594e3-3�	:gt-3348ed57c594e3-4�	;gt-3348ed57c594e3-5�	<gt-3348ed57c594e3-6�	=9:;<�	>7777�	?fl-3348ed57c594e3-c�	@fl-3348ed57c594e3-d�	Afl-3348ed57c594e3-e�	Bfl-3348ed57c594e3-f�	C?@AB�	D8=>C�	E8�	Fgx�	GF�	H7�	Ifl-3348ed57c594e3-9�	JI�	K8GHJ�	Lgshift�	Mg	proc-name�	Ngargs�	OMN�	P6�	QPP�	Rfl-1e8ba8b5a-60�	Sfl-1e8ba8b5a-61�	TRS�	U8OQT�	Vgkey�	Wgvalue�	Xgname�	Ygformals�	Zgbody�	[VWXYZ�	\PPPPP�	]fl-1e8ba8b5a-53�	^fl-1e8ba8b5a-54�	_fl-1e8ba8b5a-55�	`fl-1e8ba8b5a-56�	afl-1e8ba8b5a-57�	b]^_`a�	c8[\b�	dgmake-procedure-name�	ed�	fP�	gfl-1e8ba8b5a-43�	hg�	i8efh�	jP�	kfl-1e8ba8b5a-42�	lk�	m8Gjl�	n7DEKLEEEEUcim
�	oghygiene�	po�	q34np�	rgscope�	sPDEK�	to�	u3rst�	vgwrapper�	w3vst�	xgboxes�	y3xst�	zgpatterns�	{3zst�	|uwy{�	}gmake-struct�	~gm-3348ed57c594e3-1�	~6��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���6�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������8�����g	ctor-args�����fl-1e8ba8b5a-120�����8�j���gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������8�Q���gform��g	type-name��gconstructor-spec��gfield-names��������PPPP��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������8�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������PPPPPPPP��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������8�����fl-1e8ba8b5a-da�����8Gj���DEKLE�EEE��E�����3}�p��3&st��3
�p�����uwy{��q|���geach-any��0����gsyntax-violation��������fWrong number of arguments��gidentifier?��������PEK��3'�t��������f-source expression failed to match any pattern��grecord-type-vtable��������gpwpwpwpw��gdefault-record-printer��������rvxz��gset-struct-vtable-name!��������gvtable-offset-user��������g%lexical-environment?-procedure��glexical-environment?��01��gm-3348ed57c594e3-1a���6��gt-3348ed57c594e3-19��������fl-3348ed57c594e3-1f�����8�����fl-3348ed57c594e3-1c�����8G������E�LEEEEUcim
��34�p��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220��gt-1e8ba8b5a-223��gt-1e8ba8b5a-222��gt-1e8ba8b5a-221�����������gm-1e8ba8b5a-225���6�����������fl-1e8ba8b5a-229��fl-1e8ba8b5a-22a��fl-1e8ba8b5a-22b��fl-1e8ba8b5a-22c��fl-1e8ba8b5a-22d��fl-1e8ba8b5a-22e��fl-1e8ba8b5a-22f���������8���g	copier-id��fl-1e8ba8b5a-21c��8j�g	ctor-name��	fl-1e8ba8b5a-214�
	�8j
���
fl-1e8ba8b5a-212�
�8j�glayout��fl-1e8ba8b5a-210��8j�g
immutable?��fl-1e8ba8b5a-20e��8j�gfield-count��fl-1e8ba8b5a-20c��8j�g
getter-ids� �!fl-1e8ba8b5a-209�"!�#8 j"�$g	field-ids�%$�&fl-1e8ba8b5a-206�'&�(8%j'�)gpredicate-name�*g
field-spec�+���)*�,PPPPPP�-fl-1e8ba8b5a-1f9�.fl-1e8ba8b5a-1fa�/fl-1e8ba8b5a-1fb�0fl-1e8ba8b5a-1fc�1fl-1e8ba8b5a-1fd�2fl-1e8ba8b5a-1fe�3-./012�48+,3�5�E�LEEEEEEEEEEE#E(4���63�5p�76�8gand�9385p�:gstruct?�;3:5p�<;6�=geq?�>3=5p�?g
struct-vtable�@3?5p�A@6�BP�E��C3&Bt�D>AC�E9<D�F�7E�GPE��H3�Gt�Igthrow-bad-struct�JI�KI�Lglexenv-scope�Mg%lexenv-scope-procedure�Ngfree-id�Og
%%on-error�Pgm-3348ed57c594e3-26�QP6�RQ�Sfl-3348ed57c594e3-28�TS�U8GRT�VQEULEEEEUcim�W3OVp�XNW�YX1�Zg%%type�[gt-1e8ba8b5a-14b�\gt-1e8ba8b5a-14c�]gt-1e8ba8b5a-14d�^gt-1e8ba8b5a-14e�_gt-1e8ba8b5a-14f�`gt-1e8ba8b5a-150�agt-1e8ba8b5a-151�b[\]^_`a�cgm-1e8ba8b5a-152�dc6�eddddddd�ffl-1e8ba8b5a-156�gfl-1e8ba8b5a-157�hfl-1e8ba8b5a-158�ifl-1e8ba8b5a-159�jfl-1e8ba8b5a-15a�kfl-1e8ba8b5a-15b�lfl-1e8ba8b5a-15c�mfghijkl�n8bem�oggetter�pgindex�qop�rfl-1e8ba8b5a-149�sfl-1e8ba8b5a-14a�trs�u8qQt�v��wPPP�xfl-1e8ba8b5a-144�yfl-1e8ba8b5a-145�zfl-1e8ba8b5a-146�{xyz�|8vw{�}EULEnEEEuE|���~3Z}p�N~��0Y1��gck��gerr��gs������QQ��fl-3348ed57c594e3-2b��fl-3348ed57c594e3-2c������8�����Q�EULEEEEUcim
��3��p��gquote��3��p��P�EU��3&�t���������g%%index��3�}p��N���0Y�1��fl-3348ed57c594e3-30��fl-3348ed57c594e3-31������8�����Q�EULEEEEUcim
��3��p��3��p���EU��3
�t���������g%%copier��3�}p��N���0Y�1��fl-3348ed57c594e3-35��fl-3348ed57c594e3-36������8�����Q�EULEEEEUcim
��3��p��3��p��g%%%lexical-environment-type-set-fields��P�EU��3��t���������gt-3348ed57c594e3-25�����fl-3348ed57c594e3-3a�����8�R���Q�EULEEEEUcim
��34�p���EULEnEEEuE|����3��p�����gif��3��p��3=�p��3?�p������P�EU��3&�t�������g
struct-ref��3��p���EU��3
�t�������3I�p��3��p��3L�t����������������������PEU��3M�t��glexenv-wrapper��g%lexenv-wrapper-procedure��gm-3348ed57c594e3-41���6�����fl-3348ed57c594e3-43�����8G�����E�LEEEEUcim��3O�p��N����1��E�LEnEEEuE|����3Z�p��N���0��1������fl-3348ed57c594e3-46��fl-3348ed57c594e3-47������8�������E�LEEEEUcim
��3��p��3��p��P�E���3&�t���������3��p��N���0��1��fl-3348ed57c594e3-4b��fl-3348ed57c594e3-4c������8�������E�LEEEEUcim
��3��p��3��p���E���3�t���������3��p��N���0��1��fl-3348ed57c594e3-50��fl-3348ed57c594e3-51����8����E�LEEEEUcim
�3�p�3�p�PE��3�t���	gt-3348ed57c594e3-40�
	�fl-3348ed57c594e3-55��
8
���
E�LEEEEUcim
�34p�
E�LEnEEEuE|���3�p��3�p�3=p�3?p��P
E��3&t��3�p�
E��3t��3Ip�3�p� 3�t�! �"!�#"�$#�%PE��&3�%t�'glexenv-boxes�(g%lexenv-boxes-procedure�)gm-3348ed57c594e3-5c�*)6�+*�,fl-3348ed57c594e3-5e�-,�.8G+-�/*E.LEEEEUcim�03O/p�1N0�211�3E.LEnEEEuE|���43Z3p�5N4�60251�7**�8fl-3348ed57c594e3-61�9fl-3348ed57c594e3-62�:89�;8�7:�<*;E.LEEEEUcim
�=3�<p�>3�<p�?P;E.�@3&?t�A>@�BA�C3�3p�DNC�E02D1�Ffl-3348ed57c594e3-66�Gfl-3348ed57c594e3-67�HFG�I8�7H�J*IE.LEEEEUcim
�K3�Jp�L3�Jp�MIE.�N3	Mt�OLN�PO�Q3�3p�RNQ�S02R1�Tfl-3348ed57c594e3-6b�Ufl-3348ed57c594e3-6c�VTU�W8�7V�X*WE.LEEEEUcim
�Y3�Xp�Z3�Xp�[PWE.�\3�[t�]Z\�^]�_gt-3348ed57c594e3-5b�`_�afl-3348ed57c594e3-70�ba�c8`+b�d*cE.LEEEEUcim
�e34dp�fcE.LEnEEEuE|���g3�fp�hg�i3�fp�j3=fp�k3?fp�lkg�mPcE.�n3&mt�ojln�p3�fp�qcE.�r3	qt�spgr�t3Ifp�u3�fp�v3'mt�wuv�xtgw�yiosx�zehy�{PE.�|3({t�}glexenv-patterns�~g%lexenv-patterns-procedure�gm-3348ed57c594e3-77��6�����fl-3348ed57c594e3-79�����8G�����E�LEEEEUcim��3O�p��N����1��E�LEnEEEuE|����3Z�p��N���0��1������fl-3348ed57c594e3-7c��fl-3348ed57c594e3-7d������8�������E�LEEEEUcim
��3��p��3��p��P�E���3&�t���������3��p��N���0��1��fl-3348ed57c594e3-81��fl-3348ed57c594e3-82������8�������E�LEEEEUcim
��3��p��3��p���E���3	�t���������3��p��N���0��1��fl-3348ed57c594e3-86��fl-3348ed57c594e3-87������8�������E�LEEEEUcim
��3��p��3��p��P�E���3��t���������gt-3348ed57c594e3-76�����fl-3348ed57c594e3-8b�����8�������E�LEEEEUcim
��34�p���E�LEnEEEuE|����3��p�����3��p��3=�p��3?�p������P�E���3&�t�������3��p���E���3	�t�������3I�p��3��p��3}�t����������������������PE���3~�t��geach��11������1Ռ��1֌��1׌��g%%set-fields��gdummy��gcheck?��gexpr�����o���gm-3348ed57c594e3-92���6�����fl-3348ed57c594e3-97��fl-3348ed57c594e3-98��fl-3348ed57c594e3-99��fl-3348ed57c594e3-9a��fl-3348ed57c594e3-9b���������8��������fl-3348ed57c594e3-94�����8G����gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d���6�������fl-1e8ba8b5a-171��fl-1e8ba8b5a-172��fl-1e8ba8b5a-173�������8�����fl-1e8ba8b5a-167��fl-1e8ba8b5a-168��fl-1e8ba8b5a-169�������8vw����E�LE�EEE���
��3��p��P�E��3&�t�3L�t�3��t�3'�t�3}�t��gmap���	glist�
gset-record-type-printer!�f'#<lexical-environment ~S (~S bindings)>�g
syntax-module�
glength�gsyntax-object-of�g
datum->syntax�gt-3348ed57c594e3-cd��gm-3348ed57c594e3-ce�6��fl-3348ed57c594e3-d1��8�fl-3348ed57c594e3-cb��8Gj���fl-3348ed57c594e3-c8��8j�PEE� 3�t�!gmake-box�"gcase-lambda�#gv�$�#�%gm-3348ed57c594e3-d4�&%6�'&P�(fl-3348ed57c594e3-d9�)fl-3348ed57c594e3-da�*()�+8$'*�,&�-fl-3348ed57c594e3-d6�.-�/8G,.�0P+E/�13"0t�23F0t�32�4gset!�5340t�6gset-procedure-property!�7gidentifier-syntax-box�8gmake-transformer-from-box�9gidentifier-syntax-from-box�:gbox�;�:�<gm-3348ed57c594e3-e2�=<6�>=P�?fl-3348ed57c594e3-e7�@fl-3348ed57c594e3-e8�A?@�B8;>A�C=�Dfl-3348ed57c594e3-e4�ED�F8GCE�GPBEF�H38Gt�I3Gt�Jgidentifier-syntax�K3JGt�Lgid�M3LGt�N34Gt�O3FGt�PNMO�QO�Rgmake-variable-transformer�Sf1unsupported binding captured by (the-environment)�Tgunsupported-binding�Ug...�Vgt-3348ed57c594e3-f9�WV�Xgm-3348ed57c594e3-fa�YX6�ZY�[fl-3348ed57c594e3-fd�\[�]8WZ\�^gloop�_gn�`^�_�afl-3348ed57c594e3-f3�bfl-3348ed57c594e3-f4�cfl-3348ed57c594e3-f5�dabc�e8`wd�fglvl�gLf�hfl-3348ed57c594e3-f1�ifl-3348ed57c594e3-f2�jhi�k8gQj�lPE]EeEk�m3Ult�nm�ogwithin-nested-ellipses�pgsyntax-local-binding�qglexical�rgor-map�sgbound-identifier=?�tghere�ugmktmp�vu�wfl-3348ed57c594e3-101�xw�y8vfx�zgids�{z�|fl-3348ed57c594e3-100�}|�~8{j}�PEy~��3tt��ggensym��ft ��gt-3348ed57c594e3-11f�����gm-3348ed57c594e3-120���6�����fl-3348ed57c594e3-123�����8�����gt�����fl-3348ed57c594e3-11d�����8�j���V��gm-3348ed57c594e3-118���6�����fl-3348ed57c594e3-119�����8�����gtype��gval������fl-3348ed57c594e3-116��fl-3348ed57c594e3-117������8�Q���Lz��fl-3348ed57c594e3-110��fl-3348ed57c594e3-111������8�Q���glp��gcapture��gwrappers���z�Y�z��fl-3348ed57c594e3-103��fl-3348ed57c594e3-104��fl-3348ed57c594e3-105��fl-3348ed57c594e3-106��fl-3348ed57c594e3-107��fl-3348ed57c594e3-108����������8�,���PE�E�E�EE�E�EE�y~��3!�t��111��g
let-syntax��gt-3348ed57c594e3-128��gt-3348ed57c594e3-127��gt-3348ed57c594e3-129�������gm-3348ed57c594e3-12a���6�������fl-3348ed57c594e3-12e��fl-3348ed57c594e3-12f��fl-3348ed57c594e3-130�������8�����fl-3348ed57c594e3-126�����8Gj���PE�EEE�E�E�EE�E�EE�y~��3��t��39�t��gdisplaced-lexical��gprocedure-property��gt-3348ed57c594e3-139��gt-3348ed57c594e3-138��gt-3348ed57c594e3-13a�������gm-3348ed57c594e3-13b���6�������fl-3348ed57c594e3-13f��fl-3348ed57c594e3-140��fl-3348ed57c594e3-141�������8�����fl-3348ed57c594e3-137�����8Gj���gb�����fl-3348ed57c594e3-134�����8�j���PE�EEE�E�E�EE�E�EE�y~��3��t��39�t��gt-3348ed57c594e3-148��gt-3348ed57c594e3-147��gt-3348ed57c594e3-149�������gm-3348ed57c594e3-14a���6�������fl-3348ed57c594e3-14e��fl-3348ed57c594e3-14f��fl-3348ed57c594e3-150�������8�����fl-3348ed57c594e3-146�����8Gj���PE�EEE�E�E�EE�E�EE�y~��3��t��3T�t��3��t��gpattern-variable��fp ��gwith-syntax��gt-3348ed57c594e3-15b��gt-3348ed57c594e3-15a��gt-3348ed57c594e3-15c�������gm-3348ed57c594e3-15d���6�������fl-3348ed57c594e3-161��fl-3348ed57c594e3-162��fl-3348ed57c594e3-163�������8����fl-3348ed57c594e3-159��8Gj�gnested���fl-3348ed57c594e3-154�fl-3348ed57c594e3-155��8Q�	PE�EEEEE�EE�E�EE�y~�
3�	t�3�	t�PEE�EE�E�EE�y~�
3tt�g
syntax->datum�gellipsis�g
with-ellipsis�gt-3348ed57c594e3-16a�gt-3348ed57c594e3-169��gm-3348ed57c594e3-16b�6��fl-3348ed57c594e3-16f�fl-3348ed57c594e3-170��8�fl-3348ed57c594e3-168��8Gj�PEEEEE�EE�E�EE�y~�3t� gerror�!fwhat�"ganalyze-identifiers�#1�$g syntax-locally-bound-identifiers�%gbegin�&gwrap-expression�'&�(fl-3348ed57c594e3-186�)(�*8'f)�+�Y�z�,fl-3348ed57c594e3-182�-fl-3348ed57c594e3-183�.fl-3348ed57c594e3-184�/fl-3348ed57c594e3-185�0,-./�18+�0�2 r�3fl-3348ed57c594e3-17a�4fl-3348ed57c594e3-17b�534�682Q5�7fl-3348ed57c594e3-174�87�98Gj8�:P**16E9�;3%:t�<3:t�=gexp�>3=:t�?;<>�@���A��@1�Bgf�Cgc�Dgpname�Egplvl�Fgpformal�Ggwrapped�HBCDEFG�Ifl-3348ed57c594e3-193�Jfl-3348ed57c594e3-194�Kfl-3348ed57c594e3-195�Lfl-3348ed57c594e3-196�Mfl-3348ed57c594e3-197�Nfl-3348ed57c594e3-198�OIJKLMN�P8H,O�QPEP**16E9	�R3+Qt�S3Qt�T34Qt�U3=Qt�V3�Qt�WUU�X3	Qt�Y3�Qt�Zgmodule?�[finvalid lexical environment�\gresolve-module�]g
env-module�^g	env-boxes�_gt-3348ed57c594e3-1d7�`_�agm-3348ed57c594e3-1d8�ba6�cb�dfl-3348ed57c594e3-1db�ed�f8`ce�gge�hFg�ifl-3348ed57c594e3-1be�jfl-3348ed57c594e3-1bf�kij�l8hQk�mPEfEEl�n34mt�o3mt�pg
local-wrap�qgeval�rgoptsS�sr	��ts�ugenvS�vgfromS�wgscheme�C5h0B�]4	
"54%>"G&h�]�C�gscope
		gwrapper		gboxes			gpatterns			gfilenamefice-9/local-eval.scm�
	
��			gnameg#%make-lexical-environment-procedure�C'R4*+,/2�h�]C�gt-3348ed57c594e3-3
		gt-3348ed57c594e3-4		gt-3348ed57c594e3-5			gt-3348ed57c594e3-6						C��+�hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/local-eval.scm�
	
��		nC5+R���&֨4�&>"G	ܖ'i�&R&h�]�$��CC|gobj
		gfilenamefice-9/local-eval.scm�
	
��		gnameg%lexical-environment?-procedure�C�R4*�,/�Fh;]C3gt-3348ed57c594e3-19
		
		
C����hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
CHh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/local-eval.scm�
	
��		nC5�R&KLhz]�&
�C6rgs
		gfilenamefice-9/local-eval.scm�
	
��		gnameg%lexenv-scope-procedure�CMR4*L,/���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h;]C3gt-3348ed57c594e3-25
		
		
C��L�hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/local-eval.scm�
	
��	�C5LR&K�h|]�&�C6tgs
		gfilenamefice-9/local-eval.scm�
	
��		gnameg%lexenv-wrapper-procedure�C�R4*�,/���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C�h:]��C2gerr
		gs					C�$h;]C3gt-3348ed57c594e3-40
		
		
C����hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
C&h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/local-eval.scm�
	
��	�C5�R&K'h z]�&	�C6rgs
		gfilenamefice-9/local-eval.scm�
	
��		gnameg%lexenv-boxes-procedure�C(R4*',/6=Bh:]��C2gerr
		gs					CEKPh:]��C2gerr
		gs					CSY^h:]��C2gerr
		gs					C�zh;]C3gt-3348ed57c594e3-5b
		
		
C��'�hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
C|h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/local-eval.scm�
	
��	�C5'R&K}h }]�&	�C6ugs
		gfilenamefice-9/local-eval.scm�
	
��		gnameg%lexenv-patterns-procedure�C~R4*},/���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h;]C3gt-3348ed57c594e3-76
		
		
C��}�hW]L6Oga
		gfilenamefice-9/local-eval.scm�		
��		C0�hG]L6?gfilenamefice-9/local-eval.scm�		
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/local-eval.scm�
	
��	�C5}R4*�,/��	h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/local-eval.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R4
i&i&KL
'}
hp�]4�&
�"	4554�&		�"	4554�&		�"	4	55�6�ge
		jgport		jgfilenamefice-9/local-eval.scm�
	$��		%	��			&	��		&	��	'	&	��	(	'	��	-	'	��	G	'	��	H	'	(��	M	'	0��	g	'	(��	h	'	��	j	%	��		j	C>"G4*,/� hp]	45Chgx
		gtmp		gfilenamefice-9/local-eval.scm�		,	��		,	��		C��h(j]	45$@6bgform
		"gtmp		"gfilenamefice-9/local-eval.scm�
	*	��		"C5R4*!,/�135h <]��C4gdummy
		gv					C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/local-eval.scm�
	.
��		"g
macro-typegsyntax-rules�gpatternsgvC5!R67h �]4>"GC�gid
		gtrans		gfilenamefice-9/local-eval.scm�
	3
��		4	��			4	!��		4	��			gnamegmake-transformer-from-box�C8R4*9,/�HIKMPQh(>]�C6gdummy
		(gbox		(		(	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/local-eval.scm�
	7
��		"g
macro-typegsyntax-rules�gpatternsgboxC59RR�Sho]6ggx
		gfilenamefice-9/local-eval.scm�
	?	��		A	��		B	��		@	��		Ch�]6ygname
		gfilenamefice-9/local-eval.scm�
	=
��		>	��		gnamegunsupported-binding�CTRnh0�]"
�$C��"���"����gid
		-glvl		-gs			!gn			!gfilenamefice-9/local-eval.scm�
	E
��		F	��			G	��		G	��		I	 ��	!	I	��	!	F	��		-	gnamegwithin-nested-ellipses�CoRpqrsha]L6Ygx
		
gfilenamefice-9/local-eval.scm�
�	��	
�	'��		
C����/���h �]Cxgt-3348ed57c594e3-128
		gt-3348ed57c594e3-127		gt-3348ed57c594e3-129						C��h0�]LL45$@6zgx
		-gtmp		-gtmp			-gfilenamefice-9/local-eval.scm�
�	��	�	"��		-C�,�7/���h �]Cxgt-3348ed57c594e3-139
		gt-3348ed57c594e3-138		gt-3348ed57c594e3-13a						C��h0�]LL45$@6zgx
		-gtmp		-gtmp			-gfilenamefice-9/local-eval.scm�
�	��	�	"��		-C/����h �]Cxgt-3348ed57c594e3-148
		gt-3348ed57c594e3-147		gt-3348ed57c594e3-149						C��h0�]LL45$@6zgx
		-gtmp		-gtmp			-gfilenamefice-9/local-eval.scm�
�	��	�	"��		-C��o/�
h �]Cxgt-3348ed57c594e3-15b
		gt-3348ed57c594e3-15a		gt-3348ed57c594e3-15c						C��h0�]LL45$@6zgx
		-gtmp		-gtmp			-gfilenamefice-9/local-eval.scm�
�	��	�	��		-C
/�h^]CVgt-3348ed57c594e3-16a
		gt-3348ed57c594e3-169					C��h0�]L45$@6zgx
		+gtmp			+gtmp			+gfilenamefice-9/local-eval.scm�
�	��		�	��		+C !h��]5(
D��4>G�$g4O5$"���4455		�	�
	O�"��d�$"��C�$Y4
5		$(	�	�	O�"��O�"����$U44554�5
		
O�4455�	�"����$ O�"��Z6gids
	�gcapture	�gformals		�gwrappers		�gpatterns		�gid		�gids		�gtype		'�gval		'�gt			o�gb		�!gt		Bgnested	
B
gfilenamefice-9/local-eval.scm�
�	��	�	��	�	��	�	��	�	 ��	�	��	�	%��	*�	��	7�	��	8�	��	I�	��	a�	��	b�	��	g�	��	k�	"��	m�	��	o�	��	o�	��	}�	����	����	����	����	����	����	����	����	0����	����	����	����	����	.����	���	���	��!�	��*�	��+�	��0�	*��4�	2��6�	*��8�	��9�	��@�	8��B�	��B�	��X�	��Y�	!��^�	7��f�	!��i�	!��n�	��q�	���	����	����	����	����	����	��<	�	gnameglp�Ch �]	OQ6�gids
		glp	
	gfilenamefice-9/local-eval.scm�
	~
��	
�	��	�	��	�	,��	�	;��	�	J��	�	��		gnameganalyze-identifiers�C"R4* ,/#h7]C/gthe-environment
		
		
C�"$h0�]"(C4�5�"���L"����gx
		.gx		"gwrappers			"gfilenamefice-9/local-eval.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	�	*��	"�	��	"�	
��
		.gnamegwrap-expression�C?/ARSTUVW	XXYSh�]C~gtmp-3348ed57c594e3-1a5
		gtmp-3348ed57c594e3-1a4		gtmp-3348ed57c594e3-1a3						ChP�]L�45�	�	4
5�Cgf
		Ogc		Ogpname			Ogplvl			Ogpformal			Ogwrapped			O		O	C��
hh<]:445>GOQ4545$O@	64gthe-environment
		agscope		agcapture			agformals			agwrappers			agpatterns			agwrap-expression		%	agtmp		:	agtmp		E	a	gfilenamefice-9/local-eval.scm�	�	��	�	��	�	��	�	��	1�	"��	:�	��		a	C��h@y]45$@45$@6qgx
		9gtmp		9gtmp		"	9gfilenamefice-9/local-eval.scm�
�	��		9C5 RZ [&\hH�]"45$C6�$�&
4
�56"���"����ge
		Agfilenamefice-9/local-eval.scm�
�
��	�	��	�	��	�	��	�		��	�	��	�	��	#�	��	&�	��	/�	-��	5�	<��	7�	-��	9�	��		Agnameg
env-module�C]RZ [&h@�]"45$C6�$�&	�C"���"����ge
		9gfilenamefice-9/local-eval.scm�
�
��	�	��	�	��	�	��	�	��	�		��	�	��	�	��	"�	��	%�	��	0�	��		9gnameg	env-boxes�C^RZno [&oh(�]������456�gl
		#gname		#glvl			#gscope			#gfilenamefice-9/local-eval.scm�
�	��	�	��	�	��	�	��	�	��	�	,��	#�	��		#C
h`
]"45$C6�$*�&�4
�54		�5@"���"���gx
		Yge		Ygfilenamefice-9/local-eval.scm�
�
��	�	��	�	��	 �	��	$�		��	$�	��	'�	��	+�	��	.�	��	8�	��	9�	��	?�	��	C�	��	D�	��	M�	��	O�	��	Q�	��		Y	gnameg
local-wrap�CpRqp]^h ]44545545@gx
		 ge		 gfilenamefice-9/local-eval.scm�
�
��	�		��	�	��	�	 ��	�		��	�		��	 �	��		 	gnameg
local-eval�g
documentationfGEvaluate the expression @var{x} within the lexical environment @var{e}.�CRtpu]vwr^
hHU-/03#4454554	5@Mgx
		Dge		Dgopts			Dgfilenamefice-9/local-eval.scm�
�
��	�	(��	�		��	 �	��	+�	)��	5�	��	;�		��	<		��	D�	��
		D	
goptsS	�gnameg
local-compile�g
documentationfSCompile and evaluate the expression @var{x} within the lexical
environment @var{e}.�C!RC�gm
		,grtd
:gfilenamefice-9/local-eval.scm�		
��	
��		"
��"	3
��$�	=
��%�	E
��41	~
��;N�
��<s�
��?	�
��@[�
��B(�
��
	B*
C6PKQ<�ZL�}0��	boot-9.gonu�[���GOOF----LE-8-2.0�]4h
�]gcurrent-module�	gerror�	f're-loading ice-9/boot-9.scm not allowed�	fprompt�	ggensym�	gmake-prompt-tag�	gdefault-prompt-tag�	gcall-with-prompt�		gabort-to-prompt�	
gwith-throw-handler�	gmemq�	gapply�	
g
make-fluid�	gquit�	gprimitive-exit�	ginteger?�	gformat�	gcurrent-error-port�	f guile: uncaught throw to ~a: ~a
�	g	scm-error�	gwrong-type-arg�	fcatch�	f&Wrong type argument in position ~a: ~a�	gcatch�	fwith-throw-handler�	fthrow�	gthrow�	gmap�	gcar�	gcdr�	gfor-each�	 gprimitive-load-path�	!f
ice-9/r4rs�	"gnewline�	#gdisplay�	$f;;; �	%gwrite�	&g	last-pair�	'gpeek�	(gpk�	)gwith-output-to-port�	*gcurrent-warning-port�	+f;;; WARNING �	,gwarn�	-g
*features*�	.gprovide�	/g	provided?�	0gmake-struct�	1gmake-struct/no-tail�	2gabsolute-file-name?�	3gand-map�	4gor-map�	5g
simple-format�	6g
string-length�	7gstring-any-c-code�	8g
procedure?�	9g
string-ref�	:g
string-any�	;gstring-every-c-code�	<gstring-every�	=gstring-fill!�	>gsubstring-fill!�	?gguile�	@?�	Agmodule-name�	Bg
hashq-set!�	Cg%get-pre-modules-obarray�	Dgmodule-add!�	Eg	hashq-ref�	Fg
make-variable�	Ggmodule-define!�	Hgmodule-variable�	Ifbadness!�	Jg
module-ref�	Kgmodule-generate-unique-id!�	Lg
module-gensym�	Mgresolve-module�	Ngsyntax-violation�	Og
datum->syntax�	Pg
syntax->datum�	Qg
syntax-source�	Rgidentifier?�	Sggenerate-temporaries�	Tgbound-identifier=?�	Ugfree-identifier=?�	Vg$sc-dispatch�	Wfice-9/psyntax-pp�	Xgmake-syntax-transformer�	Ygand�	Zgmacro�	[gany�	\[�	]g
syntax-object�	^gtop�	_^�	`gribcage�	agdummy�	ba�	cg
m-bde397a-a11�	dc^�	ed�	ff
l-bde397a-a16�	gf�	h`beg�	i`�	jgx�	kj�	lf
l-bde397a-a13�	ml�	n`kem�	o_hin�	pghygiene�	qp?�	r]oq�	s[[�	t[[��	u[t��	vgif�	wgy�	xajw�	yd__�	zf
l-bde397a-a1e�	{f
l-bde397a-a1f�	|f
l-bde397a-a20�	}z{|�	~`xy}�	_~in��]vq��]Yq��]q�����f-source expression failed to match any pattern��gor��g
m-bde397a-a24���^�����f
l-bde397a-a29�����`b����f
l-bde397a-a26�����`k����_�i���]�q��glet���__��f
l-bde397a-a31��f
l-bde397a-a32��f
l-bde397a-a33�������`x����_�i���]��q��gt��]��q��]v�q��]��q��gquasisyntax��gfree-id��glevel��j���__��f
l-bde397a-a3f��f
l-bde397a-a40������`�����gexpand�����_��f
l-bde397a-a3b�����`�����ge�����_��f
l-bde397a-a3a�����`�����_i�����]��q�������[��g_��[����s��gunsyntax��]��q�������[��geach-any��������[���gunsyntax-splicing��]��q������������[���[�������gappend��gvector������gvector->list��glist->vector���[����gk��gr������f
l-bde397a-a8f��f
l-bde397a-a90������`�����_�i�����]��q�����g
m-bde397a-a96���^�����f
l-bde397a-a97�����`�����_i��i�����]��q������g...��gr*��grep�������___��f
l-bde397a-a7b��f
l-bde397a-a7c��f
l-bde397a-a7d�������`���������f
l-bde397a-a74��f
l-bde397a-a75������`�����_ii��i���	��]��q�����geach������glist������[��gwith-syntax��g	template*��greplacements������f
l-bde397a-acc��f
l-bde397a-acd�����`����gtemplate��f
l-bde397a-ac7��`��_i���]�q�gsyntax�	]q�
fInvalid expression�gwhen�[���
[��[
��gtest�gstmt�gstmt*�a�g
m-bde397a-ad5�^�___�f
l-bde397a-ada�f
l-bde397a-adb�f
l-bde397a-adc�f
l-bde397a-add��`��f
l-bde397a-ad7��`k� _i�!]v q�"gbegin�#]" q�$gunless�%g
m-bde397a-ae4�&%^�'&___�(f
l-bde397a-ae9�)f
l-bde397a-aea�*f
l-bde397a-aeb�+f
l-bde397a-aec�,()*+�-`',�.&�/f
l-bde397a-ae6�0/�1`k.0�2_-i1�3]v2q�4gnot�5]42q�6]"2q�7gcond�8���9gelse�:g
bad-clause�;:�<f
l-bde397a-b21�=<�>`;�=�?gclause�@?�Af
l-bde397a-b1f�BA�C`@�B�Dgclauses�E?D�Ff
l-bde397a-b0e�Gf
l-bde397a-b0f�HFG�I`E�H�Jgreverse-map�Kgfold�LJK�M__�Nf
l-bde397a-af6�Of
l-bde397a-af4�PNO�Q`LMP�Rg
whole-expr�SR�Tf
l-bde397a-af3�UT�V`S�U�W_>CIQV�X]9Wq�Y�X�ZY��[gtail�\[�]f
l-bde397a-b2c�^]�_`\�^�`ge*�a�`�bf
l-bde397a-b27�cf
l-bde397a-b28�dbc�e`a�d�f_i_e>CIQV	�g]"fq�hfelse must be the last clause�iY���jfinvalid clause�kg=>�l]kWq�m�l�n[m[�og
t-bde397a-b36�po�qg
m-bde397a-b37�rq^�sr�tf
l-bde397a-b3b�ut�v`psu�wf
l-bde397a-b35�xw�y`\�x�zgreceiver�{z�|f
l-bde397a-b30�}f
l-bde397a-b31�~|}�`{�~��_iviiiy>CIQV
��]��q��]��q��]v�q�����m����[����f$wrong number of receiver expressions��[[m[��gcall-with-values��g
t-bde397a-b4c�����g
m-bde397a-b4d���^�����f
l-bde397a-b51�����`�����f
l-bde397a-b4b�����`\����g	generator��gguard����z��f
l-bde397a-b44��f
l-bde397a-b45��f
l-bde397a-b46�������`�����_i�iii��>CIQV
��]��q��glambda��]��q��gvals��]��q��]v�q��]�q�����[����g
t-bde397a-b60�����g
m-bde397a-b61���^�����f
l-bde397a-b65�����`�����f
l-bde397a-b5f�����`\������f
l-bde397a-b5c�����`�����_i�iii��>CIQV
��]��q��]��q��]v�q��g
t-bde397a-b71�����g
m-bde397a-b72���^�����f
l-bde397a-b76�����`�����f
l-bde397a-b70�����`\�����`��f
l-bde397a-b69��f
l-bde397a-b6a��f
l-bde397a-b6b�������`�����_i�iii��>CIQV
��]v�q��]"�q��g
t-bde397a-b12�����g
m-bde397a-b13���^�����f
l-bde397a-b17�����`�����_i�IQV��]"�q��gcase���
���grest�����f
l-bde397a-bd6��f
l-bde397a-bd7������`�����f
l-bde397a-bd0�����`;����gseen��?���f
l-bde397a-bcd��f
l-bde397a-bce������`�����gkey�����f
l-bde397a-bbd�����`�����gexpr���?D��f
l-bde397a-bb5��f
l-bde397a-bb6��f
l-bde397a-bb7�������`�����greverse-map-with-seed��gfold2����K��___��f
l-bde397a-b81��f
l-bde397a-b7f��f
l-bde397a-b7d�������`�����f
l-bde397a-b7c����`S���_���iii����]kq���[�_���]�q����f
l-bde397a-c09�	f
l-bde397a-c0a�
	�`a�
�_���iii����
]"q�gmemv�gsystem�gbase�gmessage��gwarning���gduplicate-case-datum�gsource-properties�garray?�gbad-case-datum�g
t-bde397a-bf5��g
m-bde397a-bf6�^��f
l-bde397a-bfa� �!` �"f
l-bde397a-bf4�#"�$`\�#�%��&f
l-bde397a-be2�'&�(`%�'�)gdatums�*)�+f
l-bde397a-be0�,+�-`*�,�.gclause-expr�/.�0f
l-bde397a-bdc�10�2`/�1�3_i!iii$i(-i2���iii����4]v3q�5]3q�6gquote�7]63q�8_i2���iii���
�9]98q�:�9�;g
t-bde397a-bbf�<;�=g
m-bde397a-bc0�>=^�?>�@f
l-bde397a-bc4�A@�B`<?A�C_iBiii���
�D]�Cq�Egdo�F�
�G���HFG��I[H��Jgletrec�Kgvar�Lginit�Mgstep�Ngcommand�OaKLM�N�Pg
m-bde397a-c0f�QP^�RQ______�Sf
l-bde397a-c14�Tf
l-bde397a-c15�Uf
l-bde397a-c16�Vf
l-bde397a-c17�Wf
l-bde397a-c18�Xf
l-bde397a-c19�Yf
l-bde397a-c1a�ZSTUVWXY�[`ORZ�\Q�]f
l-bde397a-c11�^]�_`k\^�`_[i_�a]J`q�bgloop�c]b`q�d]�`q�e]v`q�f]"`q�g]`q�hegg�i]E`q�jfstep�k]j`q�lgatom�mlj�n[m[�o[m[[�pgwrong-number-of-args�qfCdefine-values: wrong number of return values returned by expression�rg%define-values-arity-error�sg
define-values�t�[�ua�vgdefine�wf
l-bde397a-c3e�xw�y`b�x�z��{f
l-bde397a-c39�|{�}`z�|�~g	orig-form�~��f
l-bde397a-c36�����`����_iiiiy}i�	��]v�q��]��q��]��q��gcase-lambda��]��q��]�q�����]��q��]r�q������������������\[��geach+���[\����[���[[���[[����[��f
l-bde397a-c7f�����`b����gvar0��gvarn�������f
l-bde397a-c76��f
l-bde397a-c77��f
l-bde397a-c78�������`�����_iiii��i�	��]"�q��]v�q��]��q��]��q��]��q��]��q��]��q��]r�q������������]��q��gv��]��q��]�q��gset!��]��q��]�q�����]�q�����K���f
l-bde397a-c6a��f
l-bde397a-c6b������`�����_�i���]v�q��]��q��]��q��]��q�����f
l-bde397a-c5e�����`b����f
l-bde397a-c55��f
l-bde397a-c56��f
l-bde397a-c57�������`�����_iiii��i�	��]"�q��]v�q��]��q��]��q��]��q��]��q��]��q��]r�q������������]��q��]��q��]�q��]��q��]�q�����]�q�����f
l-bde397a-c47��f
l-bde397a-c48������`�����_i�i���]v�q��]��q��]��q��]��q��]��q���������]��q��]r�q�����������������gdelay��gmake-promise��gexp��a���g
m-bde397a-c87���^���_��f
l-bde397a-c8c��f
l-bde397a-c8d������`��������f
l-bde397a-c89����`k���_�i�]�q�]�q�gcurrent-source-location���gs��f
l-bde397a-c96�	�
`�	�f
l-bde397a-c91��
`k��_i
i
�]6q�gcurrent-filename�gcanonicalize-path�gassq-ref�gfilename�gdefine-once�[[[�gsym�gval�a�g
m-bde397a-c9e�^�__�f
l-bde397a-ca3�f
l-bde397a-ca4�f
l-bde397a-ca5�� `�!�"f
l-bde397a-ca0�#"�$`k!#�%_ i$�&]v%q�']v%q�(gmodule-locally-bound?�)](%q�*]%q�+*�,]6%q�-fmap�.fCircular list: ~S�/greverse!�0fNot a list: ~S�1fList of wrong length: ~S�2glength�3gmap-in-order�4ffor-each�5fUnexpected tail: ~S�6gbinaryS�76��8gencodingS�98	��:gguess-encodingS�;:	��<79;�=g	open-file�>frb�?fr�@gopen-input-file�A79�Bfwb�Cfw�Dgopen-output-file�E6	��F8	��G:	��HEFG�Igclose-input-port�Jgcall-with-input-file�KEF�Lgclose-output-port�Mgcall-with-output-file�Ngwith-input-from-port�Ogwith-input-from-file�Pgwith-output-to-file�Qgwith-error-to-port�Rgwith-error-to-file�Sgset-exception-printer!�Tgand=>�Ugframe-source�Vf<unnamed port>�Wf
~a:~a:~a: �XfERROR: �Yf!Throw to key `~a' with args `~s'.�Zgframe-procedure�[fIn procedure ~a:
�\gprocedure-name�]fError while printing exception.�^gforce-output�_gprint-exception�`fIn procedure ~a: �aggoops-error�bghost-not-found�cgkeyword-argument-error�df~a: ~s�eg
misc-error�fgno-data�ggno-recovery�hgnull-pointer-error�igout-of-range�jg
program-error�kg
read-error�lgregular-expression-syntax�mgsignal�ngstack-overflow�ogsystem-error�pg	try-again�qgunbound-variable�rgsyntax-error�sfSyntax error:
�tfunknown file�ugline�vg1+�wgcolumn�xfunknown location: �yf~a: �zf~a�{f in subform ~s of ~s�|f in form ~s�}ggetaddrinfo-error�~fIn procedure getaddrinfo: ~a�ggai-strerror��gdefine-macro��t
��������t���������gargs��gbody��Z����f
l-bde397a-e12��f
l-bde397a-e13��f
l-bde397a-e14�������`�����f
l-bde397a-df9�����`k����_�i���]��q��]�q��]��q��gtransformer��Z���f
l-bde397a-e1a��f
l-bde397a-e1b������`�����_�i���]��q��]�q���[[[��gstring?��g
define-syntax��gdoc��Z����f
l-bde397a-e29��f
l-bde397a-e2a��f
l-bde397a-e2b�������`�����_�i���]��q��]��q��]w�q�����g
macro-type��]��q��gdefmacro��]��q�������g
defmacro-args��]��q��]��q����������gsyntax-case��]��q��]��q�������]��q��]��q��]P�q��]�q�����������������]O�q��]�q�����gbody1��Z������_____��f
l-bde397a-e06��f
l-bde397a-e07��f
l-bde397a-e08��f
l-bde397a-e09��f
l-bde397a-e0a���������`�����_�i���]��q��]��q��[����Ҍ��f
l-bde397a-e49��f
l-bde397a-e4a��f
l-bde397a-e4b�������`�����f
l-bde397a-e30�����`k����_�i���]��q��]�q��]��q��f
l-bde397a-e3d��f
l-bde397a-e3e��f
l-bde397a-e3f��f
l-bde397a-e40��f
l-bde397a-e41���������`�����_�i���]��q��]��q��gbegin-deprecated��ginclude-deprecated-features��gform��gform*������f
l-bde397a-e54��f
l-bde397a-e55������`�����f
l-bde397a-e51�����`k����_�i���]"�q�����gidentity��gcompose��gnegate��gconst��gcall-with-current-continuation��gcall/cc��gfalse-if-exception�a��g
m-bde397a-e71�^�_�f
l-bde397a-e76�f
l-bde397a-e77��`��	f
l-bde397a-e73�
	�`k
�_i�
]q�]q�]�q�]�q�]q���gwarningS�l���[��[��garg�a��___�f
l-bde397a-e7b�f
l-bde397a-e7c�f
l-bde397a-e7d�f
l-bde397a-e7e� �!` �"_!i�#]"q�$]"q�%]�"q�&]�"q�']�"q�(&'��)]"q�*]"q�+*�,]v"q�-]4"q�.gstring-null?�/]."q�0/*�1-0�2]"q�3]*"q�43�5f;;; ~a
�6]5"q�7246*�8,17�9%+8�:gstring-split�;]:"q�<gcall-with-output-string�=]<"q�>gport�?]>"q�@?�A]_"q�B]"q�CA?B&'�DC�E]
"q�FE�GB�Hgmake-weak-key-hash-table�Ig
make-mutex�Jgmake-procedure-with-setter�Kg
lock-mutex�Lgunlock-mutex�Mgmake-object-property�Ngassoc�Ogsymbol-pref�Pgsymbol-property�Qgsymbol-pset!�Rgset-symbol-property!�Sgdelq!�Tgsymbol-property-remove!�Ugnumber?�Vgarray-dimensions�Wgarray-shape�Xgmember�Yg
kw-arg-ref�Zgvtable-index-layout�[g
struct-layout�\gget-print-state�]gport-with-print-state�^ginherit-print-state�_gmake-vtable�`g
string-append�agstandard-vtable-fields�bfprprpw�cf#<record-type �dgrecord-type-name�ef>�fgset-struct-vtable-name!�ggrecord-type�hgrecord-type-vtable�igrecord-type?�jf#<�kgrecord-type-descriptor�lf �mf: �ngrecord-type-fields�ogmake-struct-layout�pfpw�qg	copy-tree�rgvtable-offset-user�sfmake-~a�tfWrong number of arguments�ugstring->symbol�vgmake-record-type�wgnot-a-record-type�xgprimitive-eval�ygrecord-constructor�zgrecord-predicate�{f%record-type-check�|f!Wrong type record (want `~S'): ~S�}g%record-type-error�~g
list-index�g
no-such-field��grecord-accessor��grecord-modifier��grecord?��gnot-a-record��grecord��g->bool��gsymbol->string��g
symbol-append��glist->string��glist->symbol��gstring��gsymbol��fice-9/posix��gsocket��fice-9/networking��gposix��gstat��g	OPEN_READ��g
close-port��gfile-exists?��g	stat:type��g	directory��f/.��gfile-is-directory?��glist-ref��gsystem-error-errno��f?��gstring-join��f~A��g	make-list��f~S��gtm:sec��gtm:min��gtm:hour��gtm:mday��gtm:mon��gtm:year��gtm:wday��gtm:yday��gtm:isdst��g	tm:gmtoff��gtm:zone��g
set-tm:sec��g
set-tm:min��gset-tm:hour��gset-tm:mday��g
set-tm:mon��gset-tm:year��gset-tm:wday��gset-tm:yday��gset-tm:isdst��g
set-tm:gmtoff��gset-tm:zone��g	tms:clock��g	tms:utime��g	tms:stime��g
tms:cutime��g
tms:cstime��gftell��g
file-position��gSEEK_SET��gseek��gfile-set-position��g	dup->fdes��gclose��gprimitive-move->fdes��gset-port-revealed!��g
move->fdes��g
port-revealed��grelease-port-handle��gfdopen��g	dup->port��gdup->inport��gdup->outport��g	port-mode��gdup��gduplicate-port��ginput-port?��gfdes->ports��gfdes->inport��goutput-port?��g
fdes->outport��gfileno��g
port->fdes��gputenv��f=��gsetenv��gunsetenv��gchar=?��gfile-name-separator?��f/��gfile-name-separator-string��gstring-prefix?��f��gin-vicinity��gprogram-arguments��gcommand-line��ggetenv��fHOME��g
passwd:dir��ggetpwuid��ggetuid��f.guile��gprimitive-load��gload-user-init��fstart-stack��g%stacks��g%start-stack��gstart-stack��gtag��a����gm-bde397a-11e7���^���__��fl-bde397a-11ec��fl-bde397a-11ed��fl-bde397a-11ee�������`��������fl-bde397a-11e9�����`k����_�i���]��q��]��q��g
load-stack��gload-from-path�gadd-to-load-path�g	eval-when�gelt�a�gm-bde397a-11f6�^�_�fl-bde397a-11fb�fl-bde397a-11fc�	�
`	��fl-bde397a-11f8�
�`k
�_
i�]q�]�q�gload�]q�geval�]q��]�q�g
%load-path�]q�gcons�]q�gdelete�]q��g%load-verbosely� gassert-load-verbosity�!floading �"g%load-announce�#g
%load-hook�$g
read-eval?�%gread-hash-extend�&gread�'ginteraction-environment�(f-#. read expansion found and read-eval? is #f.�)gmodule-kind�*fmodule�+gnumber->string�,gobject-address�-g
%print-module�.g"pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw�/gmodule�0gobarray�1guses�2gbinder�3geval-closure�4gname�5gkind�6gduplicates-handlers�7gimport-obarray�8g	observers�9gweak-observers�:gversion�;g
submodules�<gsubmodule-binder�=gpublic-interface�>gnext-unique-id�?0123�456789:;<=>�@gmodule-type�Agmodule-constructor�Bgmodule?�Cgmodule-obarray�Dgset-module-obarray!�Egmodule-uses�Fgset-module-uses!�Gg
module-binder�Hgset-module-binder!�Igmodule-eval-closure�Jgset-module-eval-closure!�Kgset-module-transformer!�Lgset-module-name!�Mgset-module-kind!�Ngmodule-duplicates-handlers�Ogset-module-duplicates-handlers!�Pgmodule-import-obarray�Qgmodule-observers�Rgset-module-observers!�Sgmodule-weak-observers�Tgmodule-version�Ugset-module-version!�Vgmodule-submodules�Wgset-module-submodules!�Xgmodule-submodule-binder�Ygset-module-submodule-binder!�Zgmodule-public-interface�[gset-module-public-interface!�\gmodule-filename�]gset-module-filename!�^gmodule-next-unique-id�_gset-module-next-unique-id!�`fIllegal size to make-module.�afIncorrect use list.�bf-Lazy-binder expected to be a procedure or #f.�cgmake-hash-table�dgmacroexpand�egmake-module�fgmodule-observe�ggmodule-observe-weak�hghash-remove!�igdelq1!�jgmodule-unobserve�kgmodule-defer-observers�lg	recursive�mgmodule-defer-observers-mutex�ngmodule-defer-observers-table�og	hash-set!�pgmodule-call-observers�qgmodule-modified�rg
hash-for-each�sghash-clear!�tgcall-with-deferred-observers�ug
module-search�vgmodule-local-variable�wg
module-bound?�xghashq-get-handle�yghash-get-handle�zgmodule-obarray-get-handle�{ghash-ref�|gmodule-obarray-ref�}gmodule-obarray-set!�~g
hashq-remove!�gmodule-obarray-remove!��gmodule-symbol-locally-interned?��gmodule-symbol-interned?��fLocally unbound variable.��gmodule-symbol-local-binding��fUnbound variable.��gmodule-symbol-binding��g	variable?��gmake-undefined-variable��gmodule-make-local-var!��gmodule-ensure-local-variable!��fBad variable to module-add!��fBad symbol to module-add!��gmodule-remove!��g
module-clear!��gmodule-for-each��ghash-map->list��g
module-map��gmodule-ref-submodule��gmodule-define-submodule!��fnot in submodules table��fdefining module��f!: not overriding local definition��gset-current-module��gsave-module-excursion��fNo variable named��gin��gmodule-set!��gmodule-defined?��gmodule-use!��greverse��gmodule-use-interfaces!��g
nested-ref��ffailed to resolve module��gnested-set!��gnested-define!��gnested-remove!��gnested-ref-module��fcan't redefine root module��gnested-define-module!��g	local-ref��g
local-set!��glocal-define��glocal-remove��glocal-ref-module��glocal-define-module��gthe-root-module��g	interface��gthe-scm-module��f/unexpected module to resolve during module boot��gdefine-module*��gprocess-use-modules��gmodule-export!��g$default-duplicate-binding-procedures��f mg��f-��ghash��gmost-positive-fixnum��gmake-modules-in��gbeautify-user-module!��g>=��g<=��fInvalid sub-version reference��gversion-matches?��gmake-fresh-user-module��gensureS���	������gtry-load-module��f*incompatible module version already loaded��gtry-module-autoload��funknown file name for module��g
reload-module��gpurify-module!��gselectS������ghideS���	���gprefixS���	���grenamerS���	���gversionS���	����������gsymbol-prefix-proc��fno code for module��gcustom-interface��fno binding `~A' in module ~A��f$no binding `~A' to hide in module ~A��gresolve-interface��gfilenameS������gpureS���	����	���g
duplicatesS���	���gimportsS���	���gexportsS���	���greplacementsS���	���g
re-exportsS���	���g	autoloadsS���		���gtransformerS���	
�������������
��f#unexpected use-module specification��funexpected tail of imports list��f%expected list of integers for version��f8expected exports to be a list of symbols or symbol pairs��gmodule-replace!��f=expected replacements to be a list of symbols or symbol pairs��gmodule-re-export!��f;expected re-exports to be a list of symbols or symbol pairs��gmodule-autoload!��glookup-duplicates-handlers��f(expected transformer to be a module name��gsymbol?��grun-hook��gmodule-defined-hook��g	make-hook��fmissing interface for module��fFailed to autoload ~a in ~a:
��gautoload�gmake-weak-value-hash-table�gmake-autoload-interface�f"invalid name+binding autoload list�gautoloads-in-progress�gautoload-done-or-in-progress?�gautoload-in-progress!�gset-autoloaded!�gcurrent-reader�??��	�
gautoloads-done�gdelete!�gautoload-done!�
gdefine-option-interface�[\�[�goptions�genable�gdisable�goption-set!�a��gm-bde397a-1729�^�_____�fl-bde397a-172e�fl-bde397a-172f�fl-bde397a-1730�fl-bde397a-1731�fl-bde397a-1732�fl-bde397a-1733��`� �!fl-bde397a-172b�"!�#`k "�$_i#�%]"$q�&]v$q�']�$q�(]$q�)(�*]v$q�+glist?�,]+$q�-,(�.]$q�/]�$q�0goption�1]0$q�21�3]$q�4]4$q�5gvalue�6]5$q�7g
documentation�8]7$q�9468�:]#$q�;:4�<]�$q�=glen�>]=$q�?]6$q�@]�$q�A@4�B?A�C>B�DC�E]$q�Fg<�G]F$q�H]	$q�IG>H�J]	$q�K:J�L]	$q�MG>L�NEMK�OEIKN�P<DO�Q:6�R:8�S]"$q�TS�U/9;PKQKRT	�V3U1�W/2V�X]$q�YX�Zgflags�[]Z$q�\]�$q�]gflag�^]]$q�_^�`]�$q�a]S$q�b[�cgdefine-syntax-rule�d]c$q�egopt�f]e$q�g]$q�hfg�i]$q�j]�$q�k]$q�l]$q�mjkl�n]�$q�o]6$q�pof�qnpg�rq�sgdebug-options-interface�tg
debug-options�ugdebug-enable�vg
debug-disable�wg
debug-set!�xgm-bde397a-173a�yx^�zae�{gm-bde397a-173c�|{^�}|yy�~fl-bde397a-1741�fl-bde397a-1742��fl-bde397a-1743��~���`z}���|��fl-bde397a-173e�����`k����gshift��y�i��i#��]�q��]��q��]�q��]�q�������_�i���]t�q��]��q�����]��q��]6�q��gread-options-interface��gread-options��gread-enable��gread-disable��g	read-set!��gm-bde397a-175d���^��gm-bde397a-175f���^�������fl-bde397a-1764��fl-bde397a-1765��fl-bde397a-1766�������`z�������fl-bde397a-1761�����`k������i��i#��]�q��]��q��]�q��]�q�������_�i���]��q��]��q�����]��q��]6�q��gprint-options-interface��g
print-options��gprint-enable��g
print-disable��g
print-set!��gm-bde397a-1780���^��gm-bde397a-1782���^�������fl-bde397a-1787��fl-bde397a-1788��fl-bde397a-1789�������`z�������fl-bde397a-1784�����`k������i��i#��]�q��]��q��]�q��]�q�������_�i���]��q��]��q�����]��q��]6�q��g
*unspecified*��gid�����gm-bde397a-17a3���^�����fl-bde397a-17aa�����`�����fl-bde397a-17a5�����`k����_�i���]v�q��]�q������������fl-bde397a-17ad�����`k����_�i���]v�q��]�q�������gunspecified?��g<applicable-struct-vtable>��gpwprpr��g<parameter>��gmake-parameter��gfluid->parameter��g
parameter?��fparameter-fluid��fNot a parameter: ~S��gparameter-fluid��gparameter-converter��gparameterize���s�����������gp�����fl-bde397a-17e2�����`�����gparam��gbody*��5���____�fl-bde397a-17d7�fl-bde397a-17d8�fl-bde397a-17d9�fl-bde397a-17da��`�fl-bde397a-17d4�	�
`k�	�_i�i
�]�q�
]vq�]4q�]�q�]q�]6q�]q��fparameterize�]q�]�q�]�q�]q��gwith-fluids�]q�g
struct-ref�]q�]q�� ]	q�! �"g%current-input-port-fluid�#fexpected an input port�$gcurrent-input-port�%g%current-output-port-fluid�&fexpected an output port�'gcurrent-output-port�(g%current-error-port-fluid�)g%current-warning-port-fluid�*gscheme�+gcurrent-language�,g*repl-stack*�-gbatch-mode?�.gensure-batch-mode!�/gexit�0gassq�1g
gc-time-taken�2ggc-stats�3ggc-run-time�4g
abort-hook�5gbefore-error-hook�6gafter-error-hook�7gbefore-backtrace-hook�8gafter-backtrace-hook�9gbefore-read-hook�:gafter-read-hook�;gbefore-eval-hook�<gafter-eval-hook�=gbefore-print-hook�>gafter-print-hook�?g	exit-hook�@g	fluid-ref�Agchar-ready?�Bgset-port-column!�Cgrepl-reader�Dgiota�Egwhile�Fgbreak�Ggcontinue�Hgt-bde397a-1825�Igt-bde397a-1826�JHI�Kgm-bde397a-1827�LK^�MLL�Nfl-bde397a-182b�Ofl-bde397a-182c�PNO�Q`JMP�RE7��Sfl-bde397a-181f�Tfl-bde397a-1820�Ufl-bde397a-1821�VSTU�W`R�V�Xfl-bde397a-181c�YX�Z`k�Y�[_iQWiZ�\]�[q�]g	break-tag�^]][q�_][q�`fbreak�a]`[q�b_a�c^b�dgcontinue-tag�e]d[q�ffcontinue�g]f[q�h_g�ieh�jci�k][q�l]�[q�m]�[q�n]j[q�on�p]�[q�q]�[q�r][q�s]�[q�tqrs�u][q�v]	[q�wv^rs�xuw�ytx�z]�[q�{][q�|{v^z�}lz|�~u}�q~��pny��lo������glp��]�[q��q��ve��u�������qz���]N[q��]6[q��]G[q������ftoo many arguments��]�[q�����n������l���u���q���pn�����lo������]E[q��]4[q��][q�����]�[q��������l��������z���]v[q��gnull?��]�[q���z��][q��gvalues��]�[q��{�z��������l�������gsymbol->keyword��g	substring��gkeyword-like-symbol->keyword��g
define-module��gt-bde397a-188a�����gm-bde397a-188b���^�����fl-bde397a-188e�����`�����gimp��grex��gaut����������______��fl-bde397a-1878��fl-bde397a-1879��fl-bde397a-187a��fl-bde397a-187b��fl-bde397a-187c��fl-bde397a-187d����������`�����gparse��gparse-iface��g	->keyword��g
keyword-like?��������____��fl-bde397a-183a��fl-bde397a-1838��fl-bde397a-1836��fl-bde397a-1834��������`�����fl-bde397a-1833�����`k����_i�i�����]��q��g
quasiquote��]��q��gt-bde397a-1890�����gm-bde397a-1891���^�����fl-bde397a-1894�����`�����_i�i�����]��q��]6�q��gt-bde397a-1896�����gm-bde397a-1897���^�����fl-bde397a-189a�����`�����_i�i�����]��q��]6�q��gt-bde397a-189c�����gm-bde397a-189d���^�����fl-bde397a-18a0�����`�����_i�i�����]��q��]6�q��gt-bde397a-18a2�����gm-bde397a-18a3���^�����fl-bde397a-18a6���`���_ii����]�q�]6q�������gno-backtraceS�l�[��	l��
	[��gt-bde397a-18de��
gm-bde397a-18df�
^��fl-bde397a-18e2��`���fl-bde397a-18dc��`��_ii����]�q�]q�fkeyword arg without value�l���[����gt-bde397a-18ec�� gm-bde397a-18ed�! ^�"!�#fl-bde397a-18f0�$#�%`"$�&���'fl-bde397a-18e8�(fl-bde397a-18e9�)'(�*`&�)�+_i%*i����,]�+q�-]6+q�.l��/.��0gt-bde397a-18f8�10�2gm-bde397a-18f9�32^�43�5fl-bde397a-18fc�65�7`146�8gd�98��:fl-bde397a-18f4�;fl-bde397a-18f5�<:;�=`9�<�>_i7=i����?]�>q�@]6>q�Al��BAt��Cgt-bde397a-1904�DC�Egm-bde397a-1905�FE^�GF�Hfl-bde397a-1908�IH�J`DGI�Kgf�LK��Mfl-bde397a-1900�Nfl-bde397a-1901�OMN�P`L�O�Q_iJPi����R]�Qq�S]6Qq�Tg
use-moduleS�UlT�V[��WUV��Xg
use-syntaxS�YlX�ZYV��[G[��\U[��]gexportS�^l]�_^��`g
export-syntaxS�al`�ba��cg	re-exportS�dlc�ed��fgre-export-syntaxS�glf�hg��igreplaceS�jli�kj��lgreplace-syntaxS�mll�nm��ogautoloadS�plo�qpu��rfunknown keyword or bad argument�sl��tst��ugunquote�vgrenamer�wv��xfl-bde397a-1867�yfl-bde397a-1868�zxy�{`w�z�|gout�}b�|�~fl-bde397a-1846�fl-bde397a-1847��fl-bde397a-1848��~���`}����fl-bde397a-1845�����`����_{i�i�����]u�q��gkeyword?��fexpected keyword arg������gt-bde397a-1931�����gm-bde397a-1932���^�����fl-bde397a-1935�����`�����gname*��4����fl-bde397a-192b��fl-bde397a-192c��fl-bde397a-192d�������`�����_i��i�����]��q��]6�q���G���g
quoted-arg�����fl-bde397a-19de��fl-bde397a-19df������`�����4���fl-bde397a-19d5��fl-bde397a-19d6��fl-bde397a-19d7�������`�����_i������]�q��]��q��]�q��]�q�������]��q��gm��]��q��]��q��]6�q��]��q��]��q����������fno such module��guse-modules��gkw������fl-bde397a-1a31��fl-bde397a-1a32��fl-bde397a-1a33�������`�����fl-bde397a-1a0b��fl-bde397a-1a0c��fl-bde397a-1a0d�������`}����fl-bde397a-1a0a�����`����gquotify��g
quotify-iface��������fl-bde397a-19ff��fl-bde397a-19fd��fl-bde397a-19fb��fl-bde397a-19f9��������`�����fl-bde397a-19f8�����`k����_�i�i�����]6�q�����fl-bde397a-1a65�����`�����4����fl-bde397a-1a5a��fl-bde397a-1a5b��fl-bde397a-1a5c��fl-bde397a-1a5d��������`������|��fl-bde397a-1a39��fl-bde397a-1a3a��fl-bde397a-1a3b�������`�����gspecs�����fl-bde397a-1a38�����`�����_ii��i�i�����]��q��]6�q��4����fl-bde397a-1a49��fl-bde397a-1a4a��fl-bde397a-1a4b�������`�����_�i�i�����]6�q��gquoted-args�����fl-bde397a-1a73�����`�����gspec����	fl-bde397a-1a6e�		�	`��	�	_i�	���	]	q�	]�	q�	]	q�	]	q�				�		]�	q�	
]�	q�	]�	q�		�	
g
use-syntax�	a��	gm-bde397a-1a78�		^�		_�	fl-bde397a-1a7d�	fl-bde397a-1a7e�			�	`			�		�	fl-bde397a-1a7a�		�	`k		�	_	i	�	]"	q�	]	q�	]�	q�	]	q�	]	q�	 			�	!gissue-deprecation-warning�	"]	!	q�	#fE`use-syntax' is deprecated. Please contact guile-devel for more info.�	$]	#	q�	%	"	$�	&		 	%�	']�	q�	(glibrary�	)gsym?�	*gmake-custom-interface�	+	)	*�	,fl-bde397a-1b4a�	-fl-bde397a-1b48�	.	,	-�	/`	+M	.�	0gimport-spec�	1	0�	2fl-bde397a-1b47�	3	2�	4`	1�	3�	5_	/	4�	6]	(	5q�	7�	6�	8gsrfi�	9]	8	5q�	:�	9�	;��	<�[	;�	=[	<��	>	:	=��	?	7	>�	@	7	=�	A	7�	Bgonly�	C]	B	5q�	D�	C�	E	D��	Fgexcept�	G]	F	5q�	H�	G�	I	H��	Jgprefix�	K]	J	5q�	L�	K�	M	L[[�	Ngrename�	O]	N	5q�	P�	O�	Q[���	R	P	Q��	Sgresolve-r6rs-interface�	T4��	Ufl-bde397a-1c19�	Vfl-bde397a-1c1a�	W	U	V�	X`	T�	W�	Y_	X	/	4�	Z]	(	Yq�	[4�:�	\fl-bde397a-1c0b�	]fl-bde397a-1c0c�	^fl-bde397a-1c0d�	_	\	]	^�	``	[�	_�	a_	`	/	4�	b]	(	aq�	cf'duplicate binding for `~A' in module ~A�	dfl-bde397a-1b93�	efl-bde397a-1b94�	f	d	e�	g`	T�	f�	h_	g	/	4�	i]	(	hq�	jgcolon-n�	k	j�:�	lfl-bde397a-1b54�	mfl-bde397a-1b55�	nfl-bde397a-1b56�	o	l	m	n�	p`	k�	o�	q_	p	/	4�	r]	8	qq�	sfsrfi-�	tgt-bde397a-1b68�	u	t�	vgm-bde397a-1b69�	w	v^�	x	w�	yfl-bde397a-1b6c�	z	y�	{`	u	x	z�	|gsrfi-n�	}	|�	~fl-bde397a-1b64�		~�	�`	}�	�	�fl-bde397a-1b5e�	�fl-bde397a-1b5f�	�fl-bde397a-1b60�	�	�	�	��	�`	k�	��	�_i	{i	�	�	/	4�	�]	(	�q�	�]	8	�q�	�gt-bde397a-1b74�	�	��	�gm-bde397a-1b75�	�	�^�	�	��	�fl-bde397a-1b78�	�	��	�`	�	�	��	�4��	�fl-bde397a-1b70�	�fl-bde397a-1b71�	�	�	��	�`	��	��	�_i	�	�i	�	�	/	4	�	�]	(	�q�	�]	8	�q�	�gexport�	�gcompute-exports�	�	��	�fl-bde397a-1a86�	�	��	�`	��	��	�gstx�	�	��	�fl-bde397a-1a85�	�	��	�`	��	��	�_	�	��	�]	�	�q�	��	��	�	����	�gimport�	�]	�	�q�	��	��	�	����	�	����	�	�	���	�	���	��	���	�	=	���	��	���	�gfor�	�gim�	�	��	�fl-bde397a-1b0b�	�	��	�`	��	��	�gespec�	�gispec�	�4�:	�	���	�fl-bde397a-1afe�	�fl-bde397a-1aff�	�fl-bde397a-1b00�	�fl-bde397a-1b01�	�fl-bde397a-1b02�	�fl-bde397a-1b03�	�	�	�	�	�	�	��	�`	��	��	�_i	�i	�	�	��	�]	�	�q�	��	��	�	���	�����j�	�fl-bde397a-1a96�	�fl-bde397a-1a97�	�fl-bde397a-1a98�	�fl-bde397a-1a99�	�fl-bde397a-1a9a�	�	�	�	�	�	��	�`	��	��	�greplace?�	�g
re-export?�	�	�	��	�fl-bde397a-1a8e�	�fl-bde397a-1a8c�	�	�	��	�`	�M	��	�gifaces�	�	���	�fl-bde397a-1a8a�	�fl-bde397a-1a8b�	�	�	��	�`	��	��	�_i	�	�	�	�	��	�]	N	�q�	��	��	�	����	�	�[��	�t[��	�����	���j�	�fl-bde397a-1b1f�	�fl-bde397a-1b20�	�fl-bde397a-1b21�	�	�	�	��	�`	��	��	�gexports�	�g
re-exports�	�	�	���	�fl-bde397a-1b19�	�fl-bde397a-1b1a�	�fl-bde397a-1b1b�	�	�	�	��	�`	��	��	�_i	�ii	�	�	�	�	�	�]"	�q�	�]�	�q�	�]�	�q�	�]�	�q�	�]	�	�q�	�]	�	�q�	�g	re-export�	�]	�	�q�	�gexport!�	�]	�	�q�	�g@@�	�]	�	�q�	�4�	�	���	�fl-bde397a-1ae2�
fl-bde397a-1ae3�
fl-bde397a-1ae4�
fl-bde397a-1ae5�
fl-bde397a-1ae6�
	�



�
`	��
�
_
	�	��
]	(
q�
]	�
q�
	]	�
q�

g
import-set�


�
fl-bde397a-1b32�


�
`
�

�
g	strip-for�

�
fl-bde397a-1b2f�

�
`
�
�
fl-bde397a-1b2e�

�
`	��
�
_i


�
]	�
q�
�
�

��
glibrary-reference�

�
fl-bde397a-1b42�

�
`
�
�
 fl-bde397a-1b3d�
!
 �
"`
�
!�
#_i

"

�
$]
#q�
%]�
#q�
&]
#q�
']
#q�
(
%
&
'�
)]�
#q�
*giface�
+]
*
#q�
,]	S
#q�
-]6
#q�
.]t
#q�
/]�
#q�
0]�
#q�
1]
#q�
2
1�
3]�
#q�
4
3
+�
5
0
2
4�
6
/
5�
7
.
6�
8
7�
9]v
#q�
:]
#q�
;
9
:
:�
<
;�
=gdefine-private�
>gfoo�
?gbar�
@a
>
?�
Agm-bde397a-1c1f�
B
A^�
C
B__�
Dfl-bde397a-1c24�
Efl-bde397a-1c25�
Ffl-bde397a-1c26�
G
D
E
F�
H`
@
C
G�
I
B�
Jfl-bde397a-1c21�
K
J�
L`k
I
K�
M_
Hi
L�
N]v
Mq�
Og
define-public�
P[	ጤ
Qa4���
Rgm-bde397a-1c2a�
S
R^�
T
S___�
Ufl-bde397a-1c2f�
Vfl-bde397a-1c30�
Wfl-bde397a-1c31�
Xfl-bde397a-1c32�
Y
U
V
W
X�
Z`
Q
T
Y�
[
S�
\fl-bde397a-1c2c�
]
\�
^`k
[
]�
__
Zi
^�
`]"
_q�
a]v
_q�
b]	�
_q�
ca4�
d
S__�
efl-bde397a-1c38�
ffl-bde397a-1c39�
gfl-bde397a-1c3a�
h
e
f
g�
i`
c
d
h�
j_
ii
^�
k]"
jq�
l]v
jq�
m]	�
jq�
ngdefmacro-public�
ogm-bde397a-1c3f�
p
o^�
q
p___�
rfl-bde397a-1c44�
sfl-bde397a-1c45�
tfl-bde397a-1c46�
ufl-bde397a-1c47�
v
r
s
t
u�
w`
Q
q
v�
x
p�
yfl-bde397a-1c41�
z
y�
{`k
x
z�
|_
wi
{�
}]"
|q�
~]�
|q�
g
export-syntax�
�]

|q�
�k�T�
�gformals�
�a
���
�gm-bde397a-1c4e�
�
�^�
�
�__�
�fl-bde397a-1c53�
�fl-bde397a-1c54�
�fl-bde397a-1c55�
�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1c50�
�
��
�`k
�
��
�_
�i
��
�]�
�q�
�gset-object-property!�
�greplace�
�gmodule-export-all!�
�fre-exporting local variable:�
�fUndefined variable:�
�a4�
�gm-bde397a-1c95�
�
�^�
�
�_�
�fl-bde397a-1c9a�
�fl-bde397a-1c9b�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1c97�
�
��
�`k
�
��
�_
�i
��
�]
�q�
�]�
�q�
�]
�q�
�]
�q�
�
�
�
��
�]t
�q�
�]�
�q�
�]�
�q�
�]
�q�
�
��
�]6
�q�
�gm-bde397a-1ca0�
�
�^�
�
�_�
�fl-bde397a-1ca5�
�fl-bde397a-1ca6�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1ca2�
�
��
�`k
�
��
�_
�i
��
�]
�q�
�]�
�q�
�]
�q�
�]
�q�
�
�
�
��
�]t
�q�
�]�
�q�
�]�
�q�
�]
�q�
�
��
�]6
�q�
�gm-bde397a-1cab�
�
�^�
�
�_�
�fl-bde397a-1cb0�
�fl-bde397a-1cb1�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1cad�
�
��
�`k
�
��
�_
�i
��
�]
�q�
�]�
�q�
�]
�q�
�]
�q�
�
�
�
��
�]t
�q�
�]�
�q�
�]�
�q�
�]
�q�
�
��
�]6
�q�
�gm-bde397a-1cb6�
�
�^�
�
�_�
�fl-bde397a-1cbb�
�fl-bde397a-1cbc�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1cb8�
�
��
�`k
�
��
�_
�i
��
�]	�
�q�
�gre-export-syntax�
�gm-bde397a-1cc1�
�
�^�
�
�_�
�fl-bde397a-1cc6�
�fl-bde397a-1cc7�
�
�
��
�`
�
�
��
�
��
�fl-bde397a-1cc3�
�
��
�`k
�
��
�_
�i
��
�]	�
�q�
�gmake-mutable-parameter�
�gduplicate-handlers�
�gcheck�
�f%~A: `~A' imported from both ~A and ~A�
�f/WARNING: ~A: `~A' imported from both ~A and ~A
�
�gobject-property�
�gwarn-override-core�
�f<WARNING: ~A: imported module ~A overrides core binding `~A'
�gfirst�glast�gmerge-generics�gmerge-accessors�finvalid duplicate handler name:�
�
�,�g!default-duplicate-binding-handler�gwarningsS�garity-mismatch�	q�
	�g%auto-compilation-options�fStat of ~a failed:
�
g
stat:mtime�gstat:mtimensec�gvm�gobjcode��gprogram��gmake-program�gload-objcode�f*WARNING: failed to load compiled file ~a:
�g%load-compiled-extensions�g%load-compiled-path�g%compile-fallback-path�gsystem-file-name-convention�gwindows�g%fresh-auto-compile�f:;;; note: source file ~a
;;;       newer than compiled ~a
�g%load-should-auto-compile�g%warn-auto-compilation-enabled� f;;; compiling ~a
�!gcompile�"!�#gcompile-file�$goptsS�%genvS�&f;;; compiled ~a
�'f#WARNING: compilation of ~a failed:
�(f!invalid %load-compiled-extensions�)f.go�*g %file-port-name-canonicalization�+grelative�,gload-in-vicinity�-gmake-variable-transformer�.gdirname�/gt-bde397a-1e18�0/�1gm-bde397a-1e19�21^�32�4fl-bde397a-1e1c�54�6`035�7�8fl-bde397a-1e16�98�:`7�9�;gdir�<;�=fl-bde397a-1e10�>=�?`<�>�@gfile�A@�Bfl-bde397a-1e0c�CB�D`A�C�Egsrc�FE�Gfl-bde397a-1e0a�HG�I`F�H�Jfl-bde397a-1e08�KJ�L`k�K�M_i6:ii?iDiIiiL�N],Mq�Oggetcwd�Pgm-bde397a-1e1f�QP^�RQ�Sfl-bde397a-1e20�TS�U`�RT�V_iU:ii?iDiIiiL�W]OVq�XW�Ygt-bde397a-1e28�ZY�[gm-bde397a-1e29�\[^�]\�^fl-bde397a-1e2c�_^�``Z]_�afl-bde397a-1e26�ba�c`��b�d_i`cii?iDiIiiL�e]�dq�f]�dq�g]dq�h],dq�igm-bde397a-1e2e�ji^�kj�lfl-bde397a-1e2f�ml�n`�km�o_incii?iDiIiiL�p]Ooq�qp�rf�sgguile-2�tgr5rs�ugsrfi-0�vgsrfi-4�wgsrfi-13�xgsrfi-14�ygsrfi-16�zgsrfi-23�{gsrfi-30�|gsrfi-39�}gsrfi-46�~gsrfi-55�gsrfi-61��gsrfi-62��gsrfi-87��gsrfi-105��?stuvwxyz{|}~�����g%cond-expand-features��g%cond-expand-table��gcond-expand-provide��gcond-expand��g	condition�����fl-bde397a-1e49�����`�����gmatch��gcondition-matches?��gmodule-has-feature?�������fl-bde397a-1e40��fl-bde397a-1e3e��fl-bde397a-1e3c�������`�����fl-bde397a-1e3b�����`k����_i�����]Y�q�����������]��q�����������]4�q�������[�������fl-bde397a-1e63��fl-bde397a-1e64��fl-bde397a-1e65�������`�����g	alternate��D���fl-bde397a-1e5f��fl-bde397a-1e60������`�����_�i�����]"�q��_����]9�q���������������[��������?���fl-bde397a-1e6d��fl-bde397a-1e6e������`�����_i�����]"�q��funfulfilled cond-expand��g	use-srfis��grequire-extension��fl-bde397a-1e7c�����`k����_i���]	8�q������������������fNot a recognized extension type��gsrfi-��fl-bde397a-1e87�����`	}����gn�����fl-bde397a-1e82�����`�����_i��i���]��q��]	8�q��gdefine-inlinable��f% ��g
-procedure��g	proc-name������fl-bde397a-1eaf��fl-bde397a-1eb0������`�����4
����fl-bde397a-1ea6��fl-bde397a-1ea7��fl-bde397a-1ea8�������`�����gmake-procedure-name���	J��fl-bde397a-1e9a��fl-bde397a-1e98������`�M���fl-bde397a-1e97�����`k����_iiii����	��]"�q��]v�q��gsyntax-parameterize��]��q��gidentifier-syntax��]��q��gdefine-syntax-parameter��]��q��]��q��]j�q�����]��q��]��q��]�q��ga�]��q�]��q���]N�q�]6�q�]t�q���]R�q���	gusing-readline?�
gice-9�g
deprecated�
�
	8v��fice-9/boot-9.scm�gsyntax-local-binding�g
syntax-module�g syntax-locally-bound-identifiers�gsyntax-session-id��@��@��g
guile-user��!#�"�@��@��C5hP�3%]4i5$4i>"G"h �-.,3#6{gstem
		gfilenamefice-9/boot-9.scm�
	7	��		7	��		8	��		
gnamegmake-prompt-tag�CR4i5hC]LC;gfilenamefice-9/boot-9.scm�
	=	��		
CORhD]L6<gfilenamefice-9/boot-9.scm�		A	��		
Ch(�]U4O>XCXFG@�gtag
		%gthunk		%ghandler			%gargs			%gfilenamefice-9/boot-9.scm�
	@
��			A	��		%	gnamegcall-with-prompt�CRh�-13WF�gtag
			gargs			gfilenamefice-9/boot-9.scm�
	B
��		C	��			
gnamegabort-to-prompt�C	R
RHH	h��-13L&"L�$aM[ML�Y4L5$"4L>"GL$4L>"4L>ZCZFL@�gthrown-k
		�gargs		�grunning		!	gfilenamefice-9/boot-9.scm�
	c	��		d	��		d	��		d	'��		d	��	!	e	��	*	f	9��	-	g	��	9	g	��	>	h	��	Y	j	��	Z	k	��	n	l	���	m	��		�
Ch�]M[LOC�g
prompt-tag
		gcatch-k		gpre			gprev			gfilenamefice-9/boot-9.scm�
	a	��		b	��			gnamegcustom-throw-handler�COQ4
i5K4
ihh-13&0�$$4�5$�"
�$
""
6445>"G6gk
			agargs			agfilenamefice-9/boot-9.scm�
	K	��	
	M	
��		L	��		O	��		N	��		P	��	 	P	"��	"	P	��	&	N	��	)	P	.��	0	Q	��	4	N	��	A	N	��	B	T	��	E	T	��	K	T	#��	T	T	��	a	U	��			a
gnamegdefault-exception-handler�C5K	h0�-13L&"L�$
L@L@�gthrown-k
			0gargs			0gfilenamefice-9/boot-9.scm�
	\	��		]	��		]	��		]	'��		]	��	(	^	��	0	_	��			0
Ch�g-.,3#�$"�$"!4>"G45U>M$4L5"M[OY4>Z"XCXFG@_gk
	�gthunk	�ghandler		�gpre-unwind-handler		�gtag		U�gprev		x�gcont	��gk	��gargs	��	gfilenamefice-9/boot-9.scm�
	p	��	�	��	�	��	�	��	%�	#��	)�	
��	.�	��	2�	��	4�	)��	6�	��	<�	��	A�	$��	F�	��	O�	��	S�	&��	U�	��	U�	
��	^�	��	f�	��	g�	��	x	[	����	����	����	��	�	gnamegcatch�g
documentationfoInvoke @var{thunk} in the dynamic context of @var{handler} for
exceptions matching @var{key}.  If thunk throws to the symbol
@var{key}, then @var{handler} is invoked this way:
@lisp
 (handler key args ...)
@end lisp

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

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

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

If the key is @code{#t}, then a throw to @emph{any} symbol will
match this call to @code{catch}.

If a @var{pre-unwind-handler} is given and @var{thunk} throws
an exception that matches @var{key}, Guile calls the
@var{pre-unwind-handler} before unwinding the dynamic state and
invoking the main @var{handler}.  @var{pre-unwind-handler} should
be a procedure with the same signature as @var{handler}, that
is @code{(lambda (key . args))}.  It is typically used to save
the stack at the point where the exception occurred, but can also
query other parts of the dynamic state at that point, such as
fluid values.

A @var{pre-unwind-handler} can exit either normally or non-locally.
If it exits normally, Guile unwinds the stack and dynamic context
and then calls the normal (third argument) handler.  If it exits
non-locally, that exit determines the continuation.�COihX�]�$"�$"!4>"GM4L5Y4>ZCZF�gk
		Ugthunk		Ugpre-unwind-handler			Ugfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	
�	��	�	#��	�	
��	�	��	�	��	!�	)��	#�	��	)�	��	.�	$��	3�	��	>�	��	J�	��		U	gnamegwith-throw-handler�g
documentationfeAdd @var{handler} to the dynamic context as a throw handler
for key @var{k}, then invoke @var{thunk}.�CO
ih0�-13�$	M[@M[6�gkey
			/gargs			/gfilenamefice-9/boot-9.scm�
�	��	�	��	�	
��	�	��	�	.��	 �	>��	"�	��	(�	8��	-�	E��	/�	��			/
gnamegthrow�g
documentationf�Invoke the catch form matching @var{key}, passing @var{args} to the
@var{handler}.

@var{key} is a symbol. It will match catches of the same symbol or of @code{#t}.

If there is no handler at all, Guile prints an error and then exits.�COih �](C4L�54L�5�C�gl
		gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	#��	�	��	�	��		gnamegmap1�Ch(�](C4L��54L��5�C�gl1
		"gl2		"gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	 ��	 �	��	!�	��
		"	gnamegmap2�Ch0�](C4L�45?4L�455�C�gl1
		.grest		.gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	�	��	�	��	�	#��	�	��	�	��	!�	��	"�	��	,�	��	-�	��
		.	gnameglp�ChhE)3OQ6)3OQ6-13OQ6=gf
			gl			gmap1			gf
	(	@gl1	(	@gl2		(	@gmap2		1	@gf
	I	agl1	I	agrest		I	aglp		R	agfilenamefice-9/boot-9.scm�
�	��	�	��	(�	��	1�	��	I�	��	R�	��					(	@		I	a	
	gnamegmap�CRh�)43"%�$4�>"G�"���C"���)@3"-�$$4��>"G��"���C"���-13";�$24�45>"G�45"���C"���wgf
			:gl			:gl		
	2gf
	C�gl1	C�gl2		C�gl1		G	tgl2		G	tgf
��gl1��grest	��gl1	��grest	��
gfilenamefice-9/boot-9.scm�
�	��	
�	��	�	��	�	��	�	
��	�	��	�	
��	*�	��	0�	
��	2�	��	C�	��	G�	��	J�	��	N�	��	O�	
��	T�	��	W�	��	\�	
��	g�	��	j�	!��	r�	
��	t�	����	����	����	����	����	
����	����	����	
����	����	����	
����	��#			:		C�	��	
	gnamegfor-each�CR4 i!>"G"#$%&hX�-134>"G4>"G4>"G4>"G45�C�gstuff
			Vgfilenamefice-9/boot-9.scm�
�
��	
	��		��		��	#	��	,	��	>	��	N	��	U	��
			V


gnamegpeek�C'R'i(R)*"#+&hP�]4>"G4>"G4L>"G4>"G4L5�C�gfilenamefice-9/boot-9.scm�

	��		��		��		��		��	%
	��	7	��	G	��	N	��
		O
Ch |-1345O6tgstuff
			gfilenamefice-9/boot-9.scm�

��			��			��			


gnamegwarn�C,R-h �]45$C� C�gsym
		gfilenamefice-9/boot-9.scm�

��		��		��		��		��		gnamegprovide�C.R-h�]45$CCygfeature
		gfilenamefice-9/boot-9.scm�

��		��		��		gnameg	provided?�C/R0h�-13
@�gvtable
			gargs			gfilenamefice-9/boot-9.scm�
&
��	'	��			
gnamegmake-struct/no-tail�C1Rh{]Csg	file-name
		gfilenamefice-9/boot-9.scm�
.
��		gnamegabsolute-file-name?�C2RhP�]":$2("$("C4�5�"���C"����gf
		Kglst		Kgresult			@gl			@gfilenamefice-9/boot-9.scm�
=
��	>	��	@	��	A	
��	A		��	#A	
��	,C	��	1C	��	3C	��	6C	��	>C	
��	@>	��
		K	gnamegand-map�C3Rh8�]"$$C(C4�5�"���"����gf
		5glst		5gresult			*gl			*gfilenamefice-9/boot-9.scm�
J
��	K	��	M	��	N	��	O	��	O	��	O	��	"O	��	*O	
��	*K	��		5	gnamegor-map�C4R5iR6789h�^-.,3#
#	45"645$F�$945�$'4�5$C4�56"���"���"���Vg	char_pred
	�gs	�gstart		�gend		�gt		d	}gfilenamefice-9/boot-9.scm�
Z	��	Z	2��	4`	��	4[	��	5[	
��	?[	��	D\	
��	H[	��	K]	��	R]	
��	V[	��	W^	��	b^	1��	d^	��	d^	��	r_	��	y_	%��	{_	��	}_	��	�		gnameg
string-any�C:R6;89h�Q-.,3#
#	45"645$A�$445�$"4�5$4�56C"���"���"���Ig	char_pred
	�gs	�gstart		�gend		�gfilenamefice-9/boot-9.scm�
e	��	e	2��	4k	��	4f	��	5f	
��	?f	��	Dg	
��	Hf	��	Kh	��	Rh	
��	Vf	��	Wi	
��	bi	4��	di	
��	hi	��	kj	��	rj	&��	tj	��	vj	
��	�		gnamegstring-every�C<R=h�]6�gstr
		gstart		gend			gfill			gfilenamefice-9/boot-9.scm�
o
��	p	��			gnamegsubstring-fill!�C>R@ht]Clgx
		gfilenamefice-9/boot-9.scm�
v
��	w	��		gnamegmodule-name�CARBCh�]456�gmodule
		gsym		gvar			gfilenamefice-9/boot-9.scm�
x
��	y	��	y	��			gnamegmodule-add!�CDRECDFh0�]4455$C45456�gmodule
		/gsym		/gval			/gv			/gfilenamefice-9/boot-9.scm�
z
��	{	��	{	��	{	��	{	��	|	��	}	��	 ~	��	'~	*��	/~	��		/	gnamegmodule-define!�CGRHI(h0�]
45$C45456�gmodule
		+gsym		+gv			+gfilenamefice-9/boot-9.scm�

��	�	��	�	��	�	��	�	
��	�	"��	�	-��	#�	9��	+�	��
		+	gnameg
module-ref�CJR
Hh}]	M�NCugm
		gi		gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	�	��		COKRiLRhs-13Ckgargs
			gfilenamefice-9/boot-9.scm�
�
��			


gnamegresolve-module�CMRNRORPRQRRRSRTRURVR4 iW>"G4XiYZV\rh-]C%gdummy
				Csh<]C4gdummy
		gx					Cu���hK]����CCgdummy
		gx		gy						CN�
hP�]45$@45$@45$@	6�gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/boot-9.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgxgxgy�C5YR4Xi�ZV\�h-]C%gdummy
				Csh<]C4gdummy
		gx					Cu����h K]�CCgdummy
		 gx		 gy			 		 	CN�
hP�]45$@45$@45$@	6�gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/boot-9.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgxgxgy�C5�R4Xi�ZV�V�hK]CCgk
		ge*		greps						CN�h8�]L4LL�545$@6�ge
		3gtmp		3gtmp			3gfilenamefice-9/quasisyntax.scm�		U	"��		U	5��		U	"��		T		��		3C���tV��h^]�45CVgh*
		grep1		gt*			grep2						CN�h@�]4LL54LL545$@6�gh
		9gt		9gtmp			9gtmp		"	9gfilenamefice-9/quasisyntax.scm�		p	(��		q	(��		p		��		9	C���V��h<]45C4ge*
		greps					CN�h8�]4L4455L545$@6�ge
		7gtmp		7gtmp		 	7gfilenamefice-9/quasisyntax.scm�		v	��		v	 ��		v	��		u		��		7C�RU��h8�]
L
�$)45$45$C6CC�gk
		5gr		5gt			1gfilenamefice-9/quasisyntax.scm�		i	��	
	i		��		j	��		i		��		k	��		k	��	1	l	��		5	CVsh<]L�C4gr*
		
greps		
		
	CN�h8�]4LL�545$O@6�gk
		3gr		3gtmp			3gtmp			3gfilenamefice-9/quasisyntax.scm�		m	"��	
	m	5��		m	"��		m		��		3	Chh]L
�C`ge
		gr		gfilenamefice-9/quasisyntax.scm�		b		��			CSV��h7]�C/gtmp-bde397a-a8c
				CV���h()]44?L544L5L5C!gt
		&		&CN�h8�]4545$LO@6�gr*
		6grep		6gt			6gtmp			6gtmp			6gfilenamefice-9/quasisyntax.scm�		e	��		6	CN�h@�]4L
54545$O@6�ge
		;gr		;gtmp			;gtmp			;gfilenamefice-9/quasisyntax.scm�		c	'��		d	'��		c		��		;	Chh]L
�C`ge
		gr		gfilenamefice-9/quasisyntax.scm�		\		��			CSV���h(J]4544L55CBgr*
		!grep		!gt			!		!	CN�h@�]4L
54545$O@6�ge
		;gr		;gtmp			;gtmp			;gfilenamefice-9/quasisyntax.scm�		]	'��		^	'��		]		��		;	ChY]L
�CQge
		gfilenamefice-9/quasisyntax.scm�		X		��		CS�V\h)]LC!gt
				CN�h0�]4545$O@6�ge
		0gtmp			0gtmp			0gfilenamefice-9/quasisyntax.scm�		Y	��		Y	2��			Y	��			Y		��		0ChH]:45$LO@45"�45"�45"|45"B45$
LO@4	5$

LO@�C$!4O?$

LO@"���"���$4O?$LO@"��_"��[$4O?$LO@"��'"��#$4O?$@"���"����gx
	Aglevel	Agtmp		Agtmp		+Agtmp		:gtmp		I�gtmp		X�gtmp		g�gtmp	��	gfilenamefice-9/quasisyntax.scm�
	Q	��	A	gnamegexpand�CV�Vs	hK]CCg	template*
		greplacements					CN�h0�]4L
545$@6�gtemplate
		,gtmp	
	,gtmp			,gfilenamefice-9/quasisyntax.scm�		}	/��	
	}	��		,CN�h8|]OQ45$O@6tge
		4gexpand	
	4gtmp			4gfilenamefice-9/quasisyntax.scm�
	C	��		4C5�R4Xi�ZN�
ht]6lge
		gfilenamefice-9/quasisyntax.scm�
�	��	�	��	�	 ��	�	��		C5�R4Xi�ZN�
ht]6lge
		gfilenamefice-9/quasisyntax.scm�
�	��	�	��	�	 ��	�	��		C5�R4XiZV!#hd]��C\gdummy
		gtest		gstmt			gstmt*						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgtestgstmtgstmt*g...C5R4Xi$ZV356hd]��C\gdummy
		gtest		gstmt			gstmt*						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgtestgstmtgstmt*g...C5$R4Xi7Zh0�]"(C�4�5"���"����gf
		0gseed		0gxs			0gxs			$gseed			$gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	$�	��	$�	��
		0	gnamegfold�Chx]4L5�Cpgx
		
gseed		
gfilenamefice-9/boot-9.scm�
�	��	�	#��	�	��		
	Ch�]LO6�gf
		gxs		gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��			gnamegreverse-map�CV8h|]6tgclause-builder
		gtail		gfilenamefice-9/boot-9.scm�
�	��	�	��			CVZgN7hh {](LL��CLL6sgtail
		 gfilenamefice-9/boot-9.scm�
�	��	�	��	�	+��	�	,��	 �	��		 Ch9]LLOC1ge
		ge*					CiN7jhW]LL6Ogfilenamefice-9/boot-9.scm�	�	+��	�	<��	�	��		
CnV�����h(5]LL����C-g
t-bde397a-b36
		#		#CN�h0g]	45$
LLO@6_gtail
		)gtmp		)gfilenamefice-9/boot-9.scm�
�	��		)ChB]OC:gtest
		greceiver					C�N7�h�]LL6xgtest
		greceiver		gfilenamefice-9/boot-9.scm�	�	+��	�	&��	�	��			C�V�������h85]LL��L�����C-g
t-bde397a-b4c
		1		1CN�h0g]	45$LLLO@6_gtail
		+gtmp		+gfilenamefice-9/boot-9.scm�
�	��		+ChZ]OCRg	generator
		gguard		greceiver						C�N7�h�]LL6�g	generator
		gguard		greceiver			gfilenamefice-9/boot-9.scm�	�	+��	�	&��	�	��			C\V����h 5]L���C-g
t-bde397a-b60
		 		 CN�h(g]	45$LO@6_gtail
		'gtmp		'gfilenamefice-9/boot-9.scm�
�	��		'Ch,]OC$gtest
		
		
C
V���h5]LLL�����C-g
t-bde397a-b71
				CN�h0g]	45$LLLO@6_gtail
		+gtmp		+gfilenamefice-9/boot-9.scm�
�	��		+ChK]OCCgtest
		ge		ge*						CN7jh�]A45$
LO@45$
LO@45$@45$
	LO@4
5$@45$

LO@45$@45$@L6gclause
	�gtmp	�gtmp		)�gtmp		G�gtmp		^�gtmp		|�gtmp	��gtmp	��gtmp	��	gfilenamefice-9/boot-9.scm�
�	����	+����	<����	��	�CV��h5]�C-g
t-bde397a-b12
				CN�h@�]4L4LLO�5545$@6�gclause
		=gclauses		=gtmp			=gtmp		&	=gfilenamefice-9/boot-9.scm�	�	��		�	��	�	��	�	��		=	CN�h@�]OQ45$O@6�g
whole-expr
		<gfold		<greverse-map			<gtmp			<gfilenamefice-9/boot-9.scm�
�	��		<C57R4Xi�Zh0�]"(C�4�5"���"����gf
		0gseed		0gxs			0gxs			$gseed			$gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	$�	��	$�	��
		0	gnamegfold�Ch8�](D4L�>G�"����gxs
		6ga		6gb			6ga			6gb			6gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	��	!�	��	(�	��	6�	��
		6	gnamegloop�Ch �]OQ6�gf
		ga		gb			gxs			gloop			gfilenamefice-9/boot-9.scm�
�	��	�	��			gnamegfold2�Ch �]4L>G�D�gx
		gys		gseed			gy			gseed			gfilenamefice-9/boot-9.scm�
�	
��	�	��	�	��	�	��	�	��			Ch�]LO6�gf
		gseed		gxs			gfilenamefice-9/boot-9.scm�
�	��	�	
��	�	��			gnamegreverse-map-with-seed�CV�h|]6tgclause-builder
		gtail		gfilenamefice-9/boot-9.scm�
	��		��			CVtVh0]C(greceiver
		
		
CN��hn]LL6fgreceiver
		gfilenamefice-9/boot-9.scm�		(��		!��		��		C
h9]��C1ge
		ge*					CN�j��P	h��]45$>444544L5554L54L5>"G"�$"45$>444544L5554L54L5>"G"�C�gdatum
	�gseen	�gfilenamefice-9/boot-9.scm�
	$��	&	,��	&	&��		(��		)��	'	4��	 	)��	 	1��	!	1��	""	2��	*!	1��	, 	)��	/$	)��	6%	)��	A	(��	P(	0��	T(	,��	U(	0��	Z(	>��	d(	&��	e	(��	g	)��	i)	4��	j 	)��	m 	1��	t!	1��	w"	2��	!	1��� 	)���$	)���%	)���	(���*	&��"	�	CPV�457h 5]LL���C-g
t-bde397a-bf5
				CN�h0g]	45$
LLO@6_gtail
		)gtmp		)gfilenamefice-9/boot-9.scm�
-	&��		)Ch0�]	4LLLLOL455LOD�gdatums
		,gseen		,gfilenamefice-9/boot-9.scm�		#��	,	$��		#��		��	,-	��		,C:N�hh {](LCLL6sgtail
		gfilenamefice-9/boot-9.scm�
2	)��	3	+��		(��	6	0��		��		ChE]LLLOLD=gfilenamefice-9/boot-9.scm�	2	!��		
Ch�]45$4?"R45$4LLO?",45$4?"
4	
LL545$LLLLO@4
5$LLLO@	
LL6gtest
	�grest	�gtmp			sgtmp		'	pgtmp		J	mgtmp		s�gtmp		~�gtmp	��gfilenamefice-9/boot-9.scm�	^	��	b	(��	d
	9��	j	��	s	���	(���
	9���	��		�	CN�jh0�]
45$LLO@L6�gclause
		0gseen		0gtmp			0gfilenamefice-9/boot-9.scm�
		��	(	(��	*
	9��	0	��		0	CV�Dh5]L��C-g
t-bde397a-bbf
				CN�hH�]4L4LLLO�5545$O@6�gexpr
		Egclause		Egclauses			Egtmp			Egtmp		)	Egfilenamefice-9/boot-9.scm�		��			��	:	��		��		��		
��		E	CN�	h@�]!OQ45$O@6�g
whole-expr
		@gfold		@gfold2			@greverse-map-with-seed			@gtmp		 	@gfilenamefice-9/boot-9.scm�
�	��		@C5�R4XiEZVIacdefh�ikhT]���CLgtmp-bde397a-c25
		gtmp-bde397a-c24					C
hH�]��44	5�5��C�gdummy
		Fgvar		Fginit			Fgstep			Fgtest			Fgexpr			Fgcommand			F		F	Cnh<]C4gdummy
		gx					CohK]CCgdummy
		gx		gy						CN�
hP3]45$@45$@45$@	6+gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/boot-9.scm�
=	��		Pg
macro-typegsyntax-rules�gpatternsgvarginitgstepg...g...gtestgexprg...gcommandg...fstepgxfstepgxgyC5ERpqh�]6�gfilenamefice-9/boot-9.scm�
U
��	V		��		X		��	
Y		��	
V	��		
gnameg%define-values-arity-error�CrR4XisZVtSuV\����h-]L��C%gdummy
				CN�h0�]4545$O@6�gexpr
		0gtmp			0gtmp			0gfilenamefice-9/boot-9.scm�	a	��	a	4��		a	��		a	��		0C����N�3R�h|]456tgvar0
		gvarn		gexpr			gfilenamefice-9/boot-9.scm�	�	��			CSuV\���������������h07]LLL���C/gtmp-bde397a-c85
		.		.C������hx-]L4LL54LL5���44	
OL5L
�����5��C%gdummy
		w		wCN�h8�]4545$O@6�gvar0
		4gvarn		4gexpr			4gtmp				4gtmp			4gfilenamefice-9/boot-9.scm�	�	��	�	4��		�	��		�	��		4	CRhi]6agvar
		gexpr		gfilenamefice-9/boot-9.scm�	�	��			C����h=]��C5gvar
		gexpr					C3R�h|]456tgvar0
		gvarn		gexpr			gfilenamefice-9/boot-9.scm�	o	��			CSuV\���������������h07]LLL���C/gtmp-bde397a-c64
		.		.C������h�-]L4LL54LL5���44	
OL5L
�����5��C%gdummy
		z		zCN�h8�]4545$O@6�gvar0
		4gvarn		4gexpr			4gtmp				4gtmp			4gfilenamefice-9/boot-9.scm�	q	��	q	4��		q	��		q	��		4	CRhi]6agvar
		gexpr		gfilenamefice-9/boot-9.scm�	h	��			C����h=]��C5gvar
		gexpr					Ch��])45$@45"�45"e45"745"		6$4
?$@"���"���$4?$
@"���"���$4?$@"���"��|$4?$@"��R"��N�g	orig-form
	�gtmp	�gtmp		"�gtmp		1�gtmp		@�gtmp		O	}gfilenamefice-9/boot-9.scm�
]	��	�C5sR4Xi�ZVsh>]C6gdummy
		gexp					CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgexpC5�R4XiZVOQh r]4L4L55Cjgtmp
		gfilenamefice-9/boot-9.scm�	�	��	�	)��	�	��	�	��		
CN�h(d]	45$O@6\gx
		'gtmp		'gfilenamefice-9/boot-9.scm�
�	��		'C5R4XiZQhq]44L556igfilenamefice-9/boot-9.scm�
�	��	�	��	�	"��	�	4��	�	��	�	��		
ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	��			


Ch
]O6gx
		gfilenamefice-9/boot-9.scm�
�	��	�	��		g
documentationf�A macro that expands to the current filename: the filename that
the (current-filename) form appears in.  Expands to #f if this
information is unavailable.�C5R4XiZV&')+,h(O]CGgdummy
		!gsym		!gval			!		!	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgsymgvalC5R-./012hh)�3"|�$Y$6&6��4�5�"����4�5�"���(66"��r)3	"��$��$�$[&6&6����4��5�"�����4��5�"��h�$"6()(6�$"66"���-1345"C("A4�5�$	�"���4�>"G""���"6(6�4	
54�4	5?�"���"����gf
		�gl		�ghare		
�gtortoise		
�gmove?		
�gout		
�gf
��gl1��gl2	��gh1	��gh2	��gt1	��gt2	��gmove?	��gout	��gf
�cgl1�cgrest	�cglen	�grest	�gl1	Tgrest	Tgout	Tgfilenamefice-9/boot-9.scm�
�	��	
�	��	�	��	�	��	�	��	"�	��	&�	��	(�	.��	*�	4��	/�	��	2�	��	5�	��	8�	$��	:�	��	?�	 ��	A�	��	D�	��	P�	��	S�	��	W�	��	\�	��	^�	��	a�	��	m�	��	s�	��	y�	��	}�	��	�	*����	0����	����	����	����	6����	����	����	����		����	����	����		����	����	&����	,����	����	����		����	����	&����	,����	����	����	����	����	#����	,����	����	���	#���	���	���	���	���	��#�	��(�	��+�	#��-�	��0�	��@�	��D�	��F�	&��I�	��M�	��O�	��U�	��Z�	��]�	��c�	��i�		��o�		��s�	��u�	$��x�	��|�	��~�	����	����	����		����	����	$����	����	����		����	����	@����	����	����	����	����	����		����	����	����	����	����	
����	����	����	����	����	,����	2����	"����	���	���	���	��$�	��*�	��-�	��.�	��7�	��<�	 ��=�	)��G�	��J�	��T�	��T�	��Y�	)��c�	���		�	��	�c	
	gnamegmap�CRi3R4.0521
h�])�3"��$j4�>"G��$I& 4>"G"4�>"G��"���C(C6"��k)"3""T(("�"�$�"$C�$66�$��$�$a&6&64��>"G����"��34��>"G��"��"��"��"���-1345"C("A4�5�$	�"���4�>"G""���";�$24	�4
5>"G�4
5"���C"���Ugf
		�gl		�ghare		
�gtortoise		
�ghare		*	~gf
��gl1��gl2	��gh1	��gh2	��gt1	��gt2	��gmove?	��gf
�ygl1�ygrest	�yglen	�.grest	�#gl1	2mgrest	2mgfilenamefice-9/boot-9.scm�
	��	
	��		��		��			
��			��			
��	*
	��	*
	
��	/	��	3	��	;
	��	<	��	@	"��	B	2��	D	=��	I	"��	O	��	\	��	a	��	f	��	q	 ��	t	+��	|	���	���	���	*���	5���	���	���	���	���	���(		���)	
���)	���)	���*	���*	
���*	���	���-		���	���.	���.	$���.	/���/	���.		���1	���1	$���1	/��2	��1		��	��
	��	��	��		��		��'	��)	&��+	1��0 	��3	��;		��?"	��A"	&��C"	1��H#	��K"	��L%	��Q%	��T%	��Y%	��d&	��g&	��j&	(��m&	1��|&	��}	���	���	���	���	���	���	���	���	���5	���5	���6	���7		���8	���8	���8	���8	���8	
���9	��9	��:	��:	��	:	,��:	7��;	"��;	��:	��#6	��2=	��5>	��9>	��:@	
��A@	��B@	��O@	
��ZA	��[A	!��kA	
��m=	��w		�	��	�y	
	gnamegfor-each�CR<=>?8:hP�-/03###$"6�gfile
		Jgbinary		Jgencoding			Jgguess-encoding			Jgfilenamefice-9/boot-9.scm�
J
��	8O	��	:O	��	@O	"��	JO	��		J
gbinaryS�gencodingS	�gguess-encodingS	�gnamegopen-input-file�g
documentationf�Takes a string naming an existing file and returns an input port
capable of delivering characters from the file.  If the file
cannot be opened, an error is signalled.�C@RA=BC8h@-/03##$"6�gfile
		=gbinary		=gencoding			=gfilenamefice-9/boot-9.scm�
S
��	/X	��	1X	��	7X	"��	=X	��		=
gbinaryS�gencodingS	�gnamegopen-output-file�g
documentationfTakes a string naming an output file to be created and returns an
output port capable of writing characters to a new file by that
name.  If the file cannot be opened, an error is signalled.  If a
file with the given name already exists, the effect is unspecified.�CDRH@68:Ihp�-/03###454>G4>"GE�gfile
		igproc		igbinary			igencoding			igguess-encoding			igp		A	igvals		N	igfilenamefice-9/boot-9.scm�
[
��	/g	��	Ag	��	Dl	��	Qk	��	Tn	��	io	��		i	
gbinaryS	�gencodingS	�gguess-encodingS	�gnamegcall-with-input-file�g
documentationfFPROC should be a procedure of one argument, and FILE should be a
string naming a file.  The file must
already exist. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output.  If the file cannot be opened, an error is
signalled.  If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation.�CJRKD68Lh`�-/03##454>G4>"GE�gfile
		\gproc		\gbinary			\gencoding			\gp		4	\gvals		A	\gfilenamefice-9/boot-9.scm�
q
��	&|	��	4|	��	7~	��	D}	��	G�	��	\�	��		\	
gbinaryS	�gencodingS	�gnamegcall-with-output-file�g
documentationfbPROC should be a procedure of one argument, and FILE should be a
string naming a file.  The behaviour is unspecified if the file
already exists. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output.  If the file cannot be opened, an error is
signalled.  If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation.�CMRHJNh]]L6Ugp
		
gfilenamefice-9/boot-9.scm�
�	��	
�	��		
C68:hH5-/03###O6-gfile
		Ggthunk		Ggbinary			Ggencoding			Ggguess-encoding			Ggfilenamefice-9/boot-9.scm�
�
��	G�	��		G	
gbinaryS	�gencodingS	�gguess-encodingS	�gnamegwith-input-from-file�g
documentationfTHUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The file must already exist. The file is opened for
input, an input port connected to it is made
the default value returned by `current-input-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CORKM)h]]L6Ugp
		
gfilenamefice-9/boot-9.scm�
�	��	
�	��		
C68h@-/03##O6gfile
		:gthunk		:gbinary			:gencoding			:gfilenamefice-9/boot-9.scm�
�
��	:�	��		:	
gbinaryS	�gencodingS	�gnamegwith-output-to-file�g
documentationf(THUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The effect is unspecified if the file already exists.
The file is opened for output, an output port connected to it is made
the default value returned by `current-output-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CPRKMQh]]L6Ugp
		
gfilenamefice-9/boot-9.scm�
�	��	
�	��		
C68h@-/03##O6gfile
		:gthunk		:gbinary			:gencoding			:gfilenamefice-9/boot-9.scm�
�
��	:�	��		:	
gbinaryS	�gencodingS	�gnamegwith-error-to-file�g
documentationf'THUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The effect is unspecified if the file already exists.
The file is opened for output, an output port connected to it is made
the default value returned by `current-error-port',
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CRRSRHTUVWXhX_]"45$6��$"�������66Wgframe
		Qgport		Qgsource			Qgt			*gfilename		4	Igline		4	Igcol		4	Igfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	��	'�	,��	-�	��	2�	��	4�	
��	@�	��	E�	/��	I�	��	O�	��	Q�	
��		Q	gnamegprint-location�Ch�]�M�NC�gkey
		gproc		gfilenamefice-9/boot-9.scm�
�	��	�	#��	�	
��			gnamegset-exception-printer!�COSiYhr]LLL6jgfilenamefice-9/boot-9.scm�
�	
��	�	��	�	��		
gnamegdefault-printer�CZ[\hM]L6Egfilenamefice-9/boot-9.scm�
�	��	�	0��		
ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	��			


CYh0�]4ML5$LLLL6LLL6�gprinter
		+gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	%�	��	+�	��		+
C]hy-13L6qgk
			gargs			gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��			
C"^h�e]OQ$Z454L>"G44O5$">"G"4L>"G4LO	O>"G4
>"G6]gport
	�gframe	�gkey		�gargs		�gdefault-printer		�gproc		"	qgt		N	agfilenamefice-9/boot-9.scm�
�	��	�	
��	�	��	"�	��	%�	��	9�	��	?�	��	@�	��	N�	��	f�	��	v�	
����	
����	
����	
��	�	gnamegprint-exception�CO_i`hP�*;13$4L>"G"L$"@-13L6�gsubr
		Agmsg		Agargs			Agrest			Ag_
	J	Ngfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	 �	��	8�	%��	?�	.��	A�	��	J�	��	N�	��		A	
		J	N


Ch�]O@�gport
		gkey		gargs			gdefault-printer			gfilenamefice-9/boot-9.scm�
�	��	�	��			gnamegscm-error-printer�C4Sia>"G4Sib>"G4Sicdh ]�������6gport
		gkey		gargs			gdefault-printer			gmessage		
	gfaulty		
	gfilenamefice-9/boot-9.scm�
	��		��			��	
	��	
	��			��			��			gnamegkeyword-error-printer�C>"G4Sie>"G4Sif>"G4Sig>"G4Sih>"G4Sii>"G4Sij>"G4Sik>"G4Sil>"G4Sim>"G4Sin>"G4Sio>"G4Sip>"G4Siq>"G4Sip>"G4Si>"G4SirstTuvwWxyz{|h�*�13	4L>"G$b45$"44554	54L
>"G"4L>"G$4L>"G"4L
>"G$L6$
L6C-13L6�gwho
	�gwhat	�gwhere		�gform		�gsubform		�gextra		�gt		/	Bgfile		[�gline		[�gcol		[�g_
�gfilenamefice-9/boot-9.scm�
�	��	
�	��	�	��	�	��	&�	��	'�	"��	-�	2��	/�	"��	/�	��	?�	=��	C�	��	F�	%��	L�	5��	N�	%��	R�	��	S�	��	Y�	-��	[�	��	[�	��	b�	��	h�	!��	s�	����	����	����	����	����	����	����	����	����	����	����	���	���	���	���	#���	����	��	��)	�	
	�


Ch�]O@�gport
		gkey		gargs			gdefault-printer			gfilenamefice-9/boot-9.scm�
�	��	�	��			gnamegsyntax-error-printer�C>"G4Si}~h�]4�56�gport
		gkey		gargs			gdefault-printer			gfilenamefice-9/boot-9.scm�
	��		��			0��		>��		0��		��			gnameggetaddrinfo-error-printer�C>"G4Xi�ZV�����hQ]��CIgmacro
		gargs		gbody						C���hF]C>gmacro
		gtransformer					C�N��Ph(�]4455$C45�C�gmacro
		"gdoc		"gtransformer			"gt			"gfilenamefice-9/boot-9.scm�	7	��	7	��	7	��	7	��	8	��	!8	��		"	C������������
h8W]	
��COgmacro
		8gdoc		8gtransformer			8		8	C�Ph�]456�gmacro
		
gargs		
gdoc			
gbody1			
gbody			
gfilenamefice-9/boot-9.scm�	0	��	
0	��		
	C��hu]���Cmgmacro
		gargs		gdoc			gbody1			gbody						Ch��]!45"e45$@45$@45"		6$4
?$@"���"���$4?$
@"���"��|�gx
	�gtmp	�gtmp			vgtmp		1	vgtmp		H	vgfilenamefice-9/boot-9.scm�
,	��	�g
documentationfDefine a defmacro.�C5�R4Xi�ZV�����hQ]��CIgmacro
		gargs		gbody						CN��Ph�]456�gmacro
		
gargs		
gdoc			
gbody1			
gbody			
gfilenamefice-9/boot-9.scm�	H	��	
H	��		
	C��hu]���Cmgmacro
		gargs		gdoc			gbody1			gbody						C	hP�]45" 45$@6$4?$@"���"����gx
		Pgtmp		Pgtmp			1gfilenamefice-9/boot-9.scm�
D	��		Pg
documentationf3Define a defmacro, with the old lispy defun syntax.�C5�R4.i�>"G4Xi�ZV8���ht]45$	��CClgform
		gform*		gfilenamefice-9/boot-9.scm�	X	��	X	��			CN�h(d]	45$@6\gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
U	��		"C5�Rhh]C`gx
		gfilenamefice-9/boot-9.scm�
a
��		gnamegidentity�C�R�hM]LL@Egfilenamefice-9/boot-9.scm�
k	��	k	'��		
Ch b-13L4LO>6<Zgargs
			gfilenamefice-9/boot-9.scm�
j	��	k	
��			


Ch(z-13(C4?OCrgproc
			%grest			%gg			%gfilenamefice-9/boot-9.scm�
c
��	g	��	i	��	i	��			%
gnamegcompose�g
documentationf�Compose PROC with the procedures in REST, such that the last one in
REST is applied first and PROC last, and return the resulting procedure.
The given procedures must have compatible arity.�C�Rhk-134L?�Ccgargs
			gfilenamefice-9/boot-9.scm�
p	��	
q		��	q	��			


Ch�]OC�gproc
		
gfilenamefice-9/boot-9.scm�
m
��		
gnamegnegate�g
documentationfWReturn a procedure with the same arity as PROC that returns the `not'
of PROC's result.�C�RhV-13LCNg_
			gfilenamefice-9/boot-9.scm�
v	��			


Ch�]OC�gvalue
		
gfilenamefice-9/boot-9.scm�
s
��		
gnamegconst�g
documentationfJReturn a procedure that accepts any number of arguments and returns
VALUE.�C�Rh�]$6C�gvalue
		g	procedure		gfilenamefice-9/boot-9.scm�
y
��	{	��	{	
��			gnamegand=>�g
documentationf=When VALUE is #f, return #f.  Otherwise, return (PROC VALUE).�CTR�i�R4Xi�ZVs
h?]���C7gdummy
		gexpr					C#$%()9;=@2?DFGhHf]	
������
�����C^gdummy
		Agexpr		Agtemplate			Agarg			A		A	CN�h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/boot-9.scm�
�	��		9g
macro-typegsyntax-rules�gpatternsgexprgexprgwarningSgtemplategargg...C5�RHIJKhD]L6<gfilenamefice-9/boot-9.scm�
�	��		
CLhD]L6<gfilenamefice-9/boot-9.scm�
�	��		
CEh`q]LOLO4LO>"GV4L>X4LO>"GCX4LO>"GFigobj
		`gfilenamefice-9/boot-9.scm�
�	��	�	��	'�	$��	4�	��		`CKhD]L6<gfilenamefice-9/boot-9.scm�
�	��		
CLhD]L6<gfilenamefice-9/boot-9.scm�
�	��		
CBhh�]LOLO4LO>"GV4L>X4LO>"GCX4LO>"GFzgobj
		bgval		bgfilenamefice-9/boot-9.scm�
�	��	�	��	'�	(��	6�	��		b	Ch(�]4545OO6�gprop
		&glock		&gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	&�	��		&
gnamegmake-object-property�CMRNOh �]
4455$�CC�gsym
		gprop		gpair			gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��			gnamegsymbol-property�CPRNOQh8]4455$�C�45�6�gsym
		2gprop		2gval			2gpair			2gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	(�	��	)�	*��	0�	��	2�	��		2	gnamegset-symbol-property!�CRRNOQSh0�]
4455$44556C�gsym
		.gprop		.gpair			.gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	"�	&��	*�	��	,�	��		.	gnamegsymbol-property-remove!�CTRUhz]45$
�CCrgind
		gfilenamefice-9/boot-9.scm�
�	��	�	��	
�	��	�	/��	�	'��		CVh}]456uga
		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��		gnamegarray-shape�CWRXh(�]
45$��$��CCC�gargs
		$gkw		$grem			$gfilenamefice-9/boot-9.scm�
�
��	�	
��	�	��	�	��	�	��	�	
��	�	��	�	��			$	gnameg
kw-arg-ref�CYRZh]��Cwgs
			gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��			gnameg
struct-layout�C[R\]h �]45$
456C�gold-port
		gnew-port		gfilenamefice-9/boot-9.scm�
�
��	�	��	
�	��	�	&��	�	��			gnameginherit-print-state�C^R4_i4`iaib5#cdeh8�]4>"G445>"G6�gs
		7gp		7gfilenamefice-9/boot-9.scm�
�	��	�	��	�	#��	�	��	�	��	�	#��	'�	��	3	#��	7	��
		7	C54fig>"GhRhh�]�$��CC�gobj
		gfilenamefice-9/boot-9.scm�

��		��			��		-��		��		gnamegrecord-type?�CiR#jdklmne	h��]4>"G44455>"G"l("w4>"G4�>"G4>"G4�>"G��"���4455
"��6�gs
	�gp	�gfields		8�goff		8�gfilenamefice-9/boot-9.scm�
,	��	-	��	-	
��	-	��	.	��	.	
��	.	��	%.	
��	,.	��	8/	��	>1	��	C3	��	G3	��	N3	��	W4	��	\4	��	c4	��	l5	��	p5	��	w5	���6	���6	���6	���7	���7	���7	���/	���/	���/	+���/	���/	���8	
���8	��"	�	gnamegdefault-record-printer�Cho`ph]]CUgf
		gfilenamefice-9/boot-9.scm�
=	'��	=	3��		Cqr2hD]L�C<gfilenamefice-9/boot-9.scm�
B	��		
ChT]L�CLga
		
gfilenamefice-9/boot-9.scm�
B	��		
Chc]L�C[ga
		gb		gfilenamefice-9/boot-9.scm�
B	��			Chr]L�Cjga
		gb		gc			gfilenamefice-9/boot-9.scm�
B	��			Ch�]L�Cyga
		gb		gc			gd			gfilenamefice-9/boot-9.scm�
B	��			Ch�]L�C�ga
		gb		gc			gd			ge			gfilenamefice-9/boot-9.scm�
B	��			Ch�]L�C�ga
		gb		gc			gd			ge			gf			gfilenamefice-9/boot-9.scm�
B	��			Ch�]L�C�ga
		gb		gc			gd			ge			gf			gg			gfilenamefice-9/boot-9.scm�
B	��			Ch �,3L�	C�ga
		gb		gc			gd			ge			gf			gg			gh			gfilenamefice-9/boot-9.scm�
B	��			Ch �,	3	L�
C�ga
		gb		gc			gd			ge			gf			gg			gh			gi				gfilenamefice-9/boot-9.scm�
B	��				Ch �,
3
L	�C�ga
		 gb		 gc			 gd			 ge			 gf			 gg			 gh			 gi			 gj				 
gfilenamefice-9/boot-9.scm�
B	��		 	
Ch(�,3L	
�C�ga
		"gb		"gc			"gd			"ge			"gf			"gg			"gh			"gi			"gj				"gk	
		"gfilenamefice-9/boot-9.scm�
B	��		"	Ch(�,3L	
�
C�ga
		$gb		$gc			$gd			$ge			$gf			$gg			$gh			$gi			$gj				$gk	
		$gl			$gfilenamefice-9/boot-9.scm�
B	��		$	Ch(,
3
L	
�Cga
		&gb		&gc			&gd			&ge			&gf			&gg			&gh			&gi			&gj				&gk	
		&gl			&gm			&
gfilenamefice-9/boot-9.scm�
B	��		&	
Ch(,3L	

�Cga
		(gb		(gc			(gd			(ge			(gf			(gg			(gh			(gi			(gj				(gk	
		(gl			(gm			(gn	
		(gfilenamefice-9/boot-9.scm�
B	��		(	Ch0&,3L	

�Cga
		*gb		*gc			*gd			*ge			*gf			*gg			*gh			*gi			*gj				*gk	
		*gl			*gm			*gn	
		*go			*gfilenamefice-9/boot-9.scm�
B	��		*	Ch05,3L	

�C-ga
		,gb		,gc			,gd			,ge			,gf			,gg			,gh			,gi			,gj				,gk	
		,gl			,gm			,gn	
		,go			,gp			,gfilenamefice-9/boot-9.scm�
B	��		,	Ch0D,3L	

�C<ga
		.gb		.gc			.gd			.ge			.gf			.gg			.gh			.gi			.gj				.gk	
		.gl			.gm			.gn	
		.go			.gp			.gq			.gfilenamefice-9/boot-9.scm�
B	��		.	Ch0S,3L	

�CKga
		0gb		0gc			0gd			0ge			0gf			0gg			0gh			0gi			0gj				0gk	
		0gl			0gm			0gn	
		0go			0gp			0gq			0gr			0gfilenamefice-9/boot-9.scm�
B	��		0	Ch8b,3L	

�CZga
		2gb		2gc			2gd			2ge			2gf			2gg			2gh			2gi			2gj				2gk	
		2gl			2gm			2gn	
		2go			2gp			2gq			2gr			2gs			2gfilenamefice-9/boot-9.scm�
B	��		2	C20psth8Y-1345L�$	L
@4L56Qgargs
			4gfilenamefice-9/boot-9.scm�
B	��			4


Cfu!h(�-.,3#4445?5$"45�	�4	5
�$
O"��$O"s	�$O"_	�$
O"K	�$O"7	�$O"#	�$O"	�$O"�	�$O"�		�$O"�	
�$O"�	�$O"�	�$O"�	
�$O"�	�$O"o	�$O"[	�$O"G	�$O"3	�$O"	�$O"O�4�$"4 5>"GC�g	type-name
	!gfields	!gprinter		!gdefault-record-printer		!grtd		H!gn		X�gfilenamefice-9/boot-9.scm�

��	;	��	<	��	"=	"��	,<	��	.;	��	4>	��	?@	��	H:	
��	H:	��	QA	��	RB	'��	XB	���A	���E	��E	%��E	!��G	%��E	��	!	gnamegmake-record-type�CvRirwh �]45$�C6�gobj
		gfilenamefice-9/boot-9.scm�
J
��	K	��	
K	��	L	��	M	
��	M	��		gnamegrecord-type-name�CdRirwh �]45$��C6�gobj
		gfilenamefice-9/boot-9.scm�
O
��	P	��	
P	��	Q	��	Q	��	R	
��	R	��		gnamegrecord-type-fields�CnRx�06hf]4L5$CC^gf
		gfilenamefice-9/boot-9.scm�
Y	&��	Z	,��	Z	(��		Cnr	hP�-.,3#$+
4O455���6	��C�grtd
		Ogfield-names		Ogfilenamefice-9/boot-9.scm�
T
��	U	��	X	��	,Y	!��	6]	&��	>Y	!��	?X	��	FW	��	MV	��	NV	��		Ognamegrecord-constructor�CyRhz]�$L��CCrgobj
		gfilenamefice-9/boot-9.scm�
`	��	`	��		`	��	`	,��	`	#��		Chr]OCjgrtd
		
gfilenamefice-9/boot-9.scm�
_
��		
gnamegrecord-predicate�CzRk{|dh0�]
45�$C456�grtd
		.gobj		.gt			.gfilenamefice-9/boot-9.scm�
b
��	c	��	c	��	c	��	d	��	d	!��	e	��	 f	��	+f	��	.d	��		.	gnameg%record-type-error�C}R~n}h z]�L&L�CL6rgobj
		gfilenamefice-9/boot-9.scm�
m	��	n	��	n	��	o	
��	p	
��		Ch@�]
4455$"4>"GOC�grtd
		:g
field-name		:gpos			:gfilenamefice-9/boot-9.scm�
i
��	j	
��	j	��	j	
��	j	��	k	��	l	��	!l	��	(l	��
		:	gnamegrecord-accessor�C�R~n}h �]�L&L�CL6�gobj
		gval		gfilenamefice-9/boot-9.scm�
v	��	w	��	w	��	x	
��	y	
��			Ch@�]
4455$"4>"GOC�grtd
		:g
field-name		:gpos			:gfilenamefice-9/boot-9.scm�
r
��	s	
��	s	��	s	
��	s	��	t	��	u	��	!u	��	(u	��
		:	gnamegrecord-modifier�C�Rih�]�$�6C�gobj
		gfilenamefice-9/boot-9.scm�
{
��	|	��		|	��	|	#��	|	��		gnamegrecord?�C�R�h�]�$�C6�gobj
		gfilenamefice-9/boot-9.scm�
~
��		��			��	�	��	�	
��	�	��		gnamegrecord-type-descriptor�CkR4.i�>"Ghx]��Cpgx
		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��		gnameg->bool�C�Ru`�h �-13445?6�gargs
			gfilenamefice-9/boot-9.scm�
�
��	�	��	�	'��	�	��	�	��			


gnameg
symbol-append�C�Ru�h�-134?6{gargs
			gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��			


gnameglist->symbol�C�Ru�h}-134?6ugargs
			gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��			


gnamegsymbol�C�Rh8�]""(C�&C��"���
"����gl
		3gk		3gn			(gl			(gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	�		��	�	��	 �	��	(�	
��	(�	��
		3	gnameg
list-index�C~R4 i�>"G4/i�5$4 i�>"G"4/i�5$���hh]456`gstr
		gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��		C"�o=�hM]L6Egfilenamefice-9/boot-9.scm�
�	)��	
�	4��		

ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	��			


C�h0�]	4O5$4>"GCC�gstr
		0gport		0gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	
��	�	��		0C�R4/i�5$����h�]4455�C{gstr
		gfilenamefice-9/boot-9.scm�
�	��	�	
��	�	��	�	
��	�	$��	�	��		C"�o=`��hh]4L56`gfilenamefice-9/boot-9.scm�
�	��	�	1��	�	D��	
�	1��	�	&��		
ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	��			


C�h0�]	4O5$4>"GCC�gstr
		0gport		0gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	
��	�	��		0C�Ro�h�]�&4	5�CC�gargs
		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnamegsystem-error-errno�C�Re����2�	hH()36-1344455�5�6 gmessage
		Dgargs		Dgmsg		3	Dgfilenamefice-9/boot-9.scm�
�	��	
�	��	�	��	�	��	�	��	�	��	"�	#��	#�	(��	&�	3��	.�	A��	0�	(��	1�	��	3�	��	3�	��	9�	��	A�	%��	D�	��			
		D
gnamegerror�CRhq]
�Cigobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:sec�C�Rhq]�Cigobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:min�C�Rhr]	�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:hour�C�Rhr]	�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:mday�C�Rhq]	�Cigobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:mon�C�Rhr]	�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:year�C�Rhr]	�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:wday�C�Rhr]	�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:yday�C�Rhs]	�Ckgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:isdst�C�Rht]		�Clgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg	tm:gmtoff�C�Rhr]	
�Cjgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegtm:zone�C�Rh�]
�C~gobj
		
gval		
gfilenamefice-9/boot-9.scm�
�
��	�	��		
	gnameg
set-tm:sec�C�Rh�]�C~gobj
		
gval		
gfilenamefice-9/boot-9.scm�
�
��	�	��		
	gnameg
set-tm:min�C�Rh�]	�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:hour�C�Rh�]	�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:mday�C�Rh�]	�C~gobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnameg
set-tm:mon�C�Rh�]	�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:year�C�Rh�]	�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:wday�C�Rh�]	�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:yday�C�Rh�]	�C�gobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:isdst�C�Rh�]		�C�gobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	 ��			gnameg
set-tm:gmtoff�C�Rh�]	
�Cgobj
		gval		gfilenamefice-9/boot-9.scm�
�
��		�	��			gnamegset-tm:zone�C�Rht]
�Clgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg	tms:clock�C�Rht]�Clgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg	tms:utime�C�Rht]	�Clgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg	tms:stime�C�Rhu]	�Cmgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg
tms:cutime�C�Rhu]	�Cmgobj
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnameg
tms:cstime�C�R�i�R��h �-.,3#6�gport
		 goffset		 gwhence			 gfilenamefice-9/boot-9.scm�

��	 	��		 	gnamegfile-set-position�C�R����h`�]45$)4>"G4>"GC4>"G4>"GC�gfd/port
		`gfd		`gfilenamefice-9/boot-9.scm�

��			��	
	��			��	"		��	7		��	K		��		`	gnameg
move->fdes�C�R��h �]	45
�$	�6C�gport
		grevealed			gfilenamefice-9/boot-9.scm�

��		��			��		��		��		!��		��		gnamegrelease-port-handle�C�R���h@)3456]44554>"GCgport/fd
			gmode			gport/fd
		@gmode		@gnew-fd			@gport		(	@gfilenamefice-9/boot-9.scm�
	��		
��		��		��		��		��	(	��	(	��	+	��
						@	gnameg	dup->port�C�R�?h �)36]6�gport/fd
			gport/fd
		gnew-fd		gfilenamefice-9/boot-9.scm�
	��	 	��	 	��		��	"	��	"	��						gnamegdup->inport�C�R�Ch �)36]6�gport/fd
			gport/fd
		gnew-fd		gfilenamefice-9/boot-9.scm�
%	��	'	��	'	��	%	��	)	��	)	��						gnamegdup->outport�C�R���hP�)!345$6456]45$6456�gport/fd
			'gport/fd
	)	Kgnew-fd	)	Kgfilenamefice-9/boot-9.scm�
,	��	
.		��	.	��	/		��	0	��	'0		��	),	��	*2		��	42	��	<3		��	A4	��	K4		��
			'	)	K	gnamegdup�C�R�h�]6�gport
		
gmodes		
gfilenamefice-9/boot-9.scm�
6
��	
7	��		
	gnamegduplicate-port�C�R�?����hpr]"\(!454>"GC4�5$ 4�4�5�>"G�C�"���45"���jgfdes
		og
rest-ports		bgresult			-gfilenamefice-9/boot-9.scm�
9
��	:	��	;	��	
<	��	<	&��	<	��	<	��	=	
��	.?	��	3?	��	5?	��	9;	��	:@	��	?@	��	@A	"��	EA	1��	GA	"��	HA	��	M@	��	XB	��	\D	��	bD	��	b:	��	c:	��	o:	��		ognamegfdes->inport�C�R�C����hps]"\(!454>"GC4�5$ 4�4�5�>"G�C�"���45"���kgfdes
		og
rest-ports		bgresult			-gfilenamefice-9/boot-9.scm�
F
��	G	��	H	��	
I	��	I	&��	I	��	I	��	J	
��	.L	��	3L	��	5L	��	9H	��	:M	��	?M	��	@N	"��	EN	1��	GN	"��	HN	��	MM	��	XO	��	\Q	��	bQ	��	bG	��	cG	��	oG	��		ognameg
fdes->outport�C�R���h(�]445�>"G6�gport
		"gfilenamefice-9/boot-9.scm�
S
��	T	��	T	��	T	��	T	��	"U	��		"gnameg
port->fdes�C�R�`�h �]$4566�gname
		gvalue		gfilenamefice-9/boot-9.scm�
W
��	X	��	Y	��	Y	"��	Y	��	Y	��	Z	��			gnamegsetenv�C�R�h�]6�gname
		gfilenamefice-9/boot-9.scm�
\
��	^	��		gnamegunsetenv�g
documentationf/Remove the entry for NAME from the environment.�C�R�h~]/6vgc
		
gfilenamefice-9/boot-9.scm�
x	��	
y	��		
gnamegfile-name-separator?�C�R��R��h�]6�g	file-name
		
gfilenamefice-9/boot-9.scm�
}	��	~	��	
~	��		
gnamegabsolute-file-name?�C2R69`���hP%]
45
�$"
4�5$45"$"6gvicinity
		Mgfile		Mglen				%gtail		%	Mgfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��	�	��	�	��	 �	)��	"�	��	%�	��	1�	��	2�	&��	=�	��	A�	��	C�	��	M�	��		M	gnamegin-vicinity�C�R�he]6]gfilenamefice-9/boot-9.scm�
�
��	�	��		
gnamegcommand-line�C�R�����hh]44556`gfilenamefice-9/boot-9.scm�
�	��	�	3��	�	=��	�	3��	�	'��		
ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	��			


C�����hX!]45$"45$"454	5$
6Cgt
			7gt
	!	4ghome
	7	Wg	init-file	B	Wgfilenamefice-9/boot-9.scm�
�
��	�	��	�	��		�	��		�	��	�	��	!�	��	7�	��	:�	��	@�	&��	B�	��	B�	��	E�	��	O�	��	U�	��		W
gnamegload-user-init�C�R��h0y]LL�[$"�Y4L>ZCZFqgt
		gfilenamefice-9/boot-9.scm�		�	��	�	%��	�	=��	�	��	"�		��		-
C�hM]LL@Egfilenamefice-9/boot-9.scm�
�	��	�	$��		
Ch@�]45U4O>XCXFGO6�gtag
		=gthunk		=g
prompt-tag				=gk		'	=gargs		'	=gfilenamefice-9/boot-9.scm�
�
��	�	��	�	%��		�	��		�	��	�	��	=�	��		=	gnameg%start-stack�C�R4Xi�ZV��hO]CGgdummy
		gtag		gexp						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgtaggexpC5�R�� hM]L6Egfilenamefice-9/boot-9.scm�
�	��	�	��		
Ch�]O6{gname
		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��		gnamegload-from-path�C�R4XiZVsh >]��C6gdummy
		 gelt		 		 	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
documentationf>Add ELT to Guile's load path, at compile-time and at run-time.�g
macro-typegsyntax-rules�gpatternsgeltC5RRh~] Cvgv
		gfilenamefice-9/boot-9.scm�
�
��	�	"��		gnamegassert-load-verbosity�C R)*#$!"^hP�]4>"G4>"G4L>"G4>"G6�gfilenamefice-9/boot-9.scm�
�	��	�	
��	�	��	�	
��	�	
��	�	��	�	
��	'�	
��	9�	
��	L�	
��		L
Ch �]$45O6C�gfile
		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	��		gnameg%load-announce�C"R"i#i4
i5$R4%i.$&'(h �][$454566�gc
		gport		gfilenamefice-9/boot-9.scm�
�	��		�	��	�	��	�	*��	�	��	�	��	�	��			C>"G#j)*lA+,e
h�r]
4>"G445$">"G4>"G445>"G4>"G4445	5>"G	6jgmod
	�gport	�gt		 	3gfilenamefice-9/boot-9.scm�
]
��	^	��	^	��	^	��	_	��	_	��	 _	��	0_	!��	:_	��	C`	��	G`	��	N`	��	Wa	��	Za	��	ga	��	pb	��	tb	��	{b	���c	���c	���c	���c	���c	���d	���d	��	�	gnameg
%print-module�C-Rhi.-hq]6igobj
		
gport		
gfilenamefice-9/boot-9.scm�
�	��	
�	��		
	C/?�@R4fi@i/>"G@ih0�,3L	

�C�gobarray
		.guses		.gbinder			.geval-closure			.gtransformer			.gname			.gkind			.gduplicates-handlers			.gimport-obarray			.g	observers				.gweak-observers	
		.gversion			.g
submodules			.gsubmodule-binder	
		.gpublic-interface			.gfilename			.gnext-unique-id			.gfilenamefice-9/boot-9.scm�
�	��		.	COAR@iri	�Ai�@hj]�$��CCbgobj
		gfilenamefice-9/boot-9.scm�
�	��		gnamegmodule?�CBR@i}hY]�L&
�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COCR@i}h j]�L&
�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			CODR@i}hY]�L&�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COER@i}h j]�L&�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COFR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COGR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COHR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COIR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COJR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COKR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COLR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		CO)R@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COMR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		CONR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COOR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COPR@i}h Y]�L&		�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COQR@i}h j]�L&		�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			CORR@i}h Y]�L&	
�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COSR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COTR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COUR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COVR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COWR@i}h Y]�L&	
�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COXR@i}h j]�L&	
�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			COYR@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		COZR@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			CO[R@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		CO\R@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			CO]R@i}h Y]�L&	�CL6Qgmodule
		gfilenamefice-9/boot-9.scm�
�	��		CO^R@i}h j]�L&	�CL6bgmodule
		gval		gfilenamefice-9/boot-9.scm�
�	��			CO_R`a3B8bAcdH
h��-.,3#	##45$"4>"G"4>"+G"$�$45$""���""���$'45$"4>"G"	4
54
X54	54
	5
6�gsize
	�guses	�gbinder		�gfilenamefice-9/boot-9.scm�
�
��	�	1��	)�	��	3�	��	8�	��	<�	
��	C�	��	P	��	T	
��	[	��	g�	��	j�	��	n�	��	o�	��	{�	���	���	���	���	���	���	���	���	���		���
	���	���	��	�
	gnamegmake-module�CeRRQh(�]445�>"G�C�gmodule
		$gproc		$gfilenamefice-9/boot-9.scm�

��		��	
	+��		 ��		��	#	��		$	gnamegmodule-observe�CfRBSh(�-.,3#456�gmodule
		%gobserver-id		%gproc			%gfilenamefice-9/boot-9.scm�

��	!	��	%!	��		%	gnamegmodule-observe-weak�CgRhSRiQh`]��45$445>"G" 44455>"GCgtoken
		\gmodule		Zgid			Zgfilenamefice-9/boot-9.scm�
#
��	$	��	%	��	$	��	
&	��	&	��	'	��	'	��	('	��	5(	��	:(	&��	?(	1��	G(	&��	L(	��		\gnamegmodule-unobserve�CjRkR4Iil5mR4ci5nRkonph�]$	66�gm
		gfilenamefice-9/boot-9.scm�
/
��	0	��	1	��	2	��		gnamegmodule-modified�CqRKmkh V]4>"G CNgfilenamefice-9/boot-9.scm�
9	��	:	��	;	��		
Ckrphp]6hgm
		gdummy		gfilenamefice-9/boot-9.scm�
?	��	@	��			CnsLmh8h] 4>"G4>"G6`gfilenamefice-9/boot-9.scm�
=	��	>	��	?	��	B	��	1C	��		1
CKmkh V]4>"G CNgfilenamefice-9/boot-9.scm�
9	��	:	��	;	��		
Ckrphp]6hgm
		gdummy		gfilenamefice-9/boot-9.scm�
?	��	@	��			CnsLmh8h] 4>"G4>"G6`gfilenamefice-9/boot-9.scm�
=	��	>	��	?	��	B	��	1C	��		1
Ckrphp]6hgm
		gdummy		gfilenamefice-9/boot-9.scm�
?	��	@	��			CnsLmh8h] 4>"G4>"G6`gfilenamefice-9/boot-9.scm�
=	��	>	��	?	��	B	��	1C	��		1
ChH�]4>"GV4>X4>"GCX4>"GF�gthunk
		Cgfilenamefice-9/boot-9.scm�
7
��	8	��		Cgnamegcall-with-deferred-observers�CtRh`]L6Xgproc
		gfilenamefice-9/boot-9.scm�
F	��	F	��		CQrhp]L6hgid
		gproc		gfilenamefice-9/boot-9.scm�
K	��	K	#��			CSh8�]4O45>"GO456�gm
		2gfilenamefice-9/boot-9.scm�
E
��	F	��	
F	%��	F	��	*K	-��	2K	��		2gnamegmodule-call-observers�CpRuEhP0]")�$ 4�5$C�"���C45$C45"���(gfn
		Pgm		Pgv			Pgpos			/gt			-gt		8	Pgfilenamefice-9/boot-9.scm�
f
��	g	��		h		��	
h	��	i	
��	i	��	i	
��	i		��	'j	��	-j	
��	0k	��	8k	��	Dl	��	Pl	��		P	gnameg
module-search�CuRvh �]
45$CC�gm
		gv		gvar			gfilenamefice-9/boot-9.scm�
y
��	z	
��	z	��	{	��	|		��			gnamegmodule-locally-bound?�C(RHh �]
45$CC�gm
		gv		gvar			gfilenamefice-9/boot-9.scm�
�
��	�	
��	�	��	�	��	�		��			gnameg
module-bound?�CwRxyh�]�$"6�gob
		gkey		gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-obarray-get-handle�CzRE{h�]�$"6�gob
		gkey		gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-obarray-ref�C|RBoh �]�$"6�gob
		gkey		gval			gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-obarray-set!�C}R~hh�]�$"6�gob
		gkey		gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-obarray-remove!�CRzCh�]4455��C�gm
		gv		gfilenamefice-9/boot-9.scm�
�
��	�	��	�	'��	�	��	�	��	�	��			gnamegmodule-symbol-locally-interned?�C�Ru�h�]6�gm
		gv		gfilenamefice-9/boot-9.scm�
�
��	�	��			gnamegmodule-symbol-interned?�C�Rv�hH
-1345"(6�C$$C"���"���gm
			Cgv			Cgopt-val				Cgvar			Cgfilenamefice-9/boot-9.scm�
�
��	
�	
��	�	��	�	��	"�	��	&�	��	)�	��	*�	��	3�	��	7�	��	:�	��			C	
	gnamegmodule-symbol-local-binding�C�RH�hH-1345"(6�C$$C"���"����gm
			Cgv			Cgopt-val				Cgvar			Cgfilenamefice-9/boot-9.scm�
�
��	
�	
��	�	��	�	��	"�	��	&�	��	)�	��	*�	��	3�	��	7�	��	:�	��			C	
	gnamegmodule-symbol-binding�C�R|C�q�Dhh]
445545$4>"G"$C454>"GCgm
		dgv		dgb			9gt		9	dg	local-var		I	dgfilenamefice-9/boot-9.scm�
�
��	�	��	�	#��	�	��	�	��			
��			��			��	9�	��	E		��	I		��	L			��
		d	gnamegmodule-make-local-var!�C�Rv�Dh8�]
45$C454>"GC�gmodule
		6gsymbol		6gt			6gvar			6gfilenamefice-9/boot-9.scm�
	
��			��			��			��			��			��		6	gnamegmodule-ensure-local-variable!�C�R���}Cqhh	]45$"4>"G�$"4>"G445>"G6gm
		egv		egvar			egfilenamefice-9/boot-9.scm�
	
��			��	
		��			��			
��			��	(		��	,		��	1	 	��	5	 	
��	<	 	��	E	!	��	H	!	��	W	!	��	e	"	��		e	gnamegmodule-add!�CDRCqh(�]445>"G6�gm
		!gv		!gfilenamefice-9/boot-9.scm�
	(
��		)	��		)	��		)	��	!	*	��		!	gnamegmodule-remove!�C�RsCqh �]445>"G6�gm
		gfilenamefice-9/boot-9.scm�
	,
��		-	��		-	��		-	��		.	��		gnameg
module-clear!�C�RrCh�]456�gproc
		gmodule		gfilenamefice-9/boot-9.scm�
	4
��		5	��		5	��			gnamegmodule-for-each�C�R�Ch�]456�gproc
		gmodule		gfilenamefice-9/boot-9.scm�
	7
��		8	��		8	��			gnameg
module-map�C�REVXh8�]
4455$C45$
456C�gmodule
		5gname		5gt			5gfilenamefice-9/boot-9.scm�
	@
��		A	��		A	��		A	��		A	��		B	��	&	B	��	'	C	��	3	C	��
		5	gnamegmodule-ref-submodule�C�RBVh�]456�gmodule
		gname		g	submodule			gfilenamefice-9/boot-9.scm�
	E
��		F	��		F	��			gnamegmodule-define-submodule!�C�REVXvB,*�	h��]
4455$C45$4455"$C45$1$(45$4>"GCCCC�gmodule
	�gname	�gt		�gt		9�gvar		M�gfilenamefice-9/boot-9.scm�
	P��		Q	��		Q	��		Q	��		Q	��		R	��	&	R	��	'	S	��	(	S	
��	4	S	��	9	Q	��	E	T	��	M	T	��	U	U		��	X	U	��	\	U		��	]	U	(��	b	U	1��	d	U	(��	h	U		��	i	W	��	m	W	��	q	W	&��	v	W	���	X	��	�	gnamegmodule-ref-submodule�C�RvB,��GBV	h�o]45$W�$"	45�$4>"G"4>"G"4>"G456ggmodule
	�gname	�g	submodule		�gvar		�gt			0gfilenamefice-9/boot-9.scm�
	Z��		[	��		[	��		\	��		]	��		]	��		]	��	%	^	��	*	^	 ��	,	^	��	-	^	��	4	\		��	5	_		��	9	_	��	=	_	(��	D	_		��	Q	`		���	a	���	a	��	�	gnamegmodule-define-submodule!�C�R�h h]45N4M>"GNC`gfilenamefice-9/boot-9.scm�
	k	��		l	'��			l	��	
	m	��		n	��		 
C�h h]45N4M>"GNC`gfilenamefice-9/boot-9.scm�
	p	��		q	'��			q	��	
	r	��		s	��		 
C�h h]45N4M>"GNC`gfilenamefice-9/boot-9.scm�
	k	��		l	'��			l	��	
	m	��		n	��		 
C�h h]45N4M>"GNC`gfilenamefice-9/boot-9.scm�
	p	��		q	'��			q	��	
	r	��		s	��		 
C�h h]45N4M>"GNC`gfilenamefice-9/boot-9.scm�
	p	��		q	'��			q	��	
	r	��		s	��		 
Chp�]45HHOO4O>"GV4>X4O>"GCX4O>"GF�gthunk
		pginner-module		pgouter-module			pgfilenamefice-9/boot-9.scm�
	h
��		i	��		i	��		k	��		pgnamegsave-module-excursion�C�RH��hH-1345"(6�C$$C"���"���gmodule
			Ggname			Ggrest				Ggvariable			Ggfilenamefice-9/boot-9.scm�
	~
��	
		��			��		�	��	"	�	��	&	�	,��	*	�	��	-	�	��	.	�	��	7	�	��	;	�	��	>	�	��
			G	
	gnameg
module-ref�CJRH��h(�]45$C6�gmodule
		&gname		&gvalue			&gvariable			&gfilenamefice-9/boot-9.scm�
	�
��		�	��		�	��		�	��		�	��		�	��	"	�	(��	&	�	��			&	gnamegmodule-set!�C�RvqFDh8]45$6456gmodule
		1gname		1gvalue			1gvariable			1gvariable		%	1gfilenamefice-9/boot-9.scm�
	�
��		�	��		�	��		�	��		�	
��		�	
��		�	��	%	�	��	1	�	
��
		1	gnamegmodule-define!�CGRHh �]
45$CC�gmodule
		gname		gvariable			gfilenamefice-9/boot-9.scm�
	�
��		�	��		�	��		�	��		�	��			gnamegmodule-defined?�C�REF�sPqhh]&"4455$C44455>"G445>"G6gmodule
		cg	interface		cgfilenamefice-9/boot-9.scm�
	�
��	
	�	��		�	��		�	��		�	��		�	��	!	�	��	$	�	��	)	�	!��	,	�	)��	7	�	)��	9	�	!��	>	�	��	G	�	��	J	�	��	U	�	��	c	�	��		c	gnamegmodule-use!�C�RE�F�sPq	h��]*45"U(45"O��45$"	45$"�"���"���445>"G445>"G6�gmodule
	�g
interfaces	�gcur			�gin			dgout			dgiface		&	\gt		1	Jgnew		o�gfilenamefice-9/boot-9.scm�
	�
��		�	��			�	��		�	��		�	��		�	��	#	�	��	&	�	%��	&	�	��	)	�	"��	1	�	��	?	�	3��	N	�	��	Y	�	��	d	�	��	d	�	��	g	�	,��	o	�	��	o	�	��	r	�	��	w	�	���	�	���	�	���	�	���	�	���	�	��	�	gnamegmodule-use-interfaces!�C�RJ�hXD]"(C"4(	645$��"���C��"���<groot
		Ugnames		Ugcur			Cghead			Cgtail			Cgcur		'	Cgfilenamefice-9/boot-9.scm�
	�
��		�	��		�	��		�	��		�	��	
	��	'
	��	/
	��	4
	��	7
	(��	A
	��	C	�	��	H	�	��	K	�	��	U	�	��		U	gnameg
nested-ref�C�R���hX_]#";(
645$��"���6��"���Wgroot
		Sgnames		Sgval			Sgcur			Aghead			Agtail			Agcur			Agfilenamefice-9/boot-9.scm�


��	
	��	
	��	
		��	

	��	

	��	'
	
��	,

	��	/

	#��	9

	��	=
	��	A
	��	A
	��	F
	��	I
	��	S
	��		S	gnamegnested-set!�C�RG��hXb]#";(
645$��"���6��"���Zgroot
		Sgnames		Sgval			Sgcur			Aghead			Agtail			Agcur			Agfilenamefice-9/boot-9.scm�


��	
	��	
	��	
	��	
	��	
	��	'
	
��	,
	��	/
	#��	9
	��	=
	��	A
	��	A
	��	F
	��	I
	��	S
	��		S	gnamegnested-define!�C�R���hXQ]""9(645$��"���6��"���Igroot
		Qgnames		Qgcur			?ghead			?gtail			?gcur			?gfilenamefice-9/boot-9.scm�


��	
	��	
	��	
	��	
 	��	
 	��	%
!	
��	*
#	��	-
#	#��	7
#	��	;
"	��	?
"	��	?
	��	D
	��	G
	��	Q
	��		Q	gnamegnested-remove!�C�R�h@]"*(C4�5$
�"���C"���groot
		<gnames		<gcur			0gnames			0gcur			0gfilenamefice-9/boot-9.scm�

&
��	
'	��	
)	��	
+	��	
+	-��	
+	��	
+	��	!
,	
��	&
-	��	.
-	��	0
'	��		<	gnamegnested-ref-module�C�R���eM�L�Ah�]#(
6"�(
645$"[4	54>"G44	4
55>"G4>"G��"��g��"��U
groot
	�gnames	�gmodule		�gcur		�ghead		�gtail		�gt		/�gm		D�gcur	��	gfilenamefice-9/boot-9.scm�

/
��	
0	��	
1	
��	
1	��	
2	��	
5	��	&
6	��	'
7	��	/
7	��	>
8	$��	D
8	��	G
9	��	M
9	1��	R
9	��	[
:	��	`
:	1��	c
:	9��	n
;	9��	p
:	1��	u
:	��	~
<	���
7	���
>	���
>	#���
>	���
2	���
3	���
4	���
2	��	�	gnamegnested-define-module!�C�R�h]456wgnames
		
gfilenamefice-9/boot-9.scm�

A
��	
B	��	

B	��		
gnameg	local-ref�C�R�h�]456�gnames
		gval		gfilenamefice-9/boot-9.scm�

D
��	
E	��	
E	��			gnameg
local-set!�C�R�h�]456�gnames
		gval		gfilenamefice-9/boot-9.scm�

G
��	
H	��	
H	��			gnameglocal-define�C�R�h�]456zgnames
		
gfilenamefice-9/boot-9.scm�

J
��	
K	��	

K	��		
gnameglocal-remove�C�R�h�]456~gnames
		
gfilenamefice-9/boot-9.scm�

M
��	
N	��	

N	��		
gnameglocal-ref-module�C�R�h�]456�gnames
		gmod		gfilenamefice-9/boot-9.scm�

P
��	
Q	��	
Q	��			gnameglocal-define-module�C�R4ei
54Di4Ci5>"G4Li@>"G4_i4Ki5>"G�R4ei
54Di4Ci5>"G4Li@>"G4Mi�>"G4[i>"G�R4[i�i�i>"G@��h �-13�$C6�gname
			gargs			gfilenamefice-9/boot-9.scm�

�
��	

�	��	
�	��	
�	��	
�	
��	
�	��			
gnamegresolve-module�CMR^_h(�]	454�>"GC�gm
		#gi			#gfilenamefice-9/boot-9.scm�

�
��	
�	��		
�	��	
�	��	
�	"��	
�	��		#gnamegmodule-generate-unique-id!�CKR�R�R�R�R4�i�i>"G4�i@i45L�MhX�]	4L5$C454>"G445>"GL6�gmod
		Sgt			Sgname		Sgfilenamefice-9/boot-9.scm�

�	��	
�	
��		
�	��	
�	��	
�	��	
�	
��	
�	��	3
�	��	6
�	#��	9
�	3��	<
�	#��	E
�	��	S
�	��		SCOAR�u`��A�+Khp�-.,3##45$@444554		54
54		5566�gid
		ogm		ognumber		@	Ngnumber		W	egfilenamefice-9/boot-9.scm�

�
��	
�	'��	
�	1��	)
�	��	,
�	��	2
�	��	3
�	 ��	6
�	&��	@
�	 ��	@
�	��	C
�	��	P
�	��	Q
�	 ��	W
�	��	Z
�	��	g
�	��	i
�	��	o
�	��		o
	gnameg
module-gensym�g
documentationf�Return a fresh symbol in the context of module M, based on ID (a
string or symbol).  As long as M is a valid module, this procedure is
deterministic.�CLR�eM�L�A�	hp]
45$C4	54>"G44455>"G4>"GCgmodule
		lgname		lgt			lgm			lgfilenamefice-9/boot-9.scm�

�
��	
�	��	
�	��	
�	��	
�	��	 
�	��	&
�	��	+
�	��	4
�	��	9
�	��	<
�	$��	F
�	��	K
�	��	T
�	��		l	gnamegmake-modules-in�C�RZeLAUTM�[�E��h��]45$	�"$j4	5445>"G445>"G4>"G4	>"G"4
455$"
��$6C�gmodule
	�g	interface		�g	interface		&�gfilenamefice-9/boot-9.scm�

�
��	
�	��		
�	��	
�	��	
�	��	
�	��	
�	��	 
�	��	&
�	��	)
�	
��	.
�	&��	9
�	
��	B
�	
��	G
�	)��	R
�	
��	[
�	
��	a
�	&��	f
�	
��	o
�	
���
�	���
�	%���
�	���
�	���
�	���
�	���
�	���
�	��	�gnamegbeautify-user-module!�C�Rhr]LL6jgv
		
gfilenamefice-9/boot-9.scm�

�	��	

�	"��		
gnamegmatches?�CU��Y3�44�h��]OLQ45$�C�$p��$���C�$���C�$	�6�$	�6	�$��4L5�C
6
6�gv-ref
	�gt	�gmatches?		�gkey		-�gv	��gfilenamefice-9/boot-9.scm�

�	��	
�	��	
�	
��	
�	��	"
�	��	&
�	
��	*
�	��	-
�	��	-
�	
��	=
�	��	?
�	��	I
�	
��	N
�	��	P
�	��	Z
�	
��	a
�	%��	c
�	��	l
�	
��	s
�	$��	u
�	��	~
�	
���
�	"���
�	���
�	"���
�	���
�	���
�	���
�	���
�	��	�	gnamegsub-version-matches?�C�hr]L6jgv
		
gfilenamefice-9/boot-9.scm�

�	��	

�	��		
gnamegmatches?�CY3�44�	h�]"<OQ(C(C4��5$��"���COQ(C��$	�6�$	�6�$��45�C"��]gversion-ref
	�gtarget	�gv-refs			Bgt			Bgsub-version-matches?			Bgmatches?		J�gkey		Z�gv	��gfilenamefice-9/boot-9.scm�

�
��	
�	��	
�	��	
�	��	!
�	��	$
�	
��	)
�	#��	,
�	0��	.
�	
��	2
�	��	5
�	"��	8
�	/��	@
�	
��	J
�	��	U
�	��	V
�	��	Z
�	��	Z
�	��	l
�	#��	n
�	��	w
�	��	~
�	"���
�	���
�	���
�	 ���
�	���
�	���
�	���
�	��	�	gnamegversion-matches?�C�Re�h �]454>"GC�gm
		gfilenamefice-9/boot-9.scm�

�
��	
�	��	
�	��	

�	��		
gnamegmake-fresh-user-module�C�R4ei54Li>"G4�i?�i>"G���M��Z�T�h��-/03###4L5">$4>"G6$C$L6C$Q$45"$7$.44	55$"4
>"G"C"��k"��g�gname
	�gautoload	�gversion		�gensure		�galready		7�gfilenamefice-9/boot-9.scm�

�	��	/
�	��	7
�	��	C
�	��	D	
��	b		
��	h
	
��	q	��	y	��	{
�	���	���	"���	���
�	
���	
���	���	2���	���	���	���	���	��	�	gensureS	�COMR�h�]6�gname
		
gversion		
gfilenamefice-9/boot-9.scm�

��	
	��		
	gnamegtry-load-module�C�R\��� h0h]445>"G4L>"GLC`gfilenamefice-9/boot-9.scm�
		��		��		��		��		��		,
C�h(]	45$
O66�gm
		&gf			&gfilenamefice-9/boot-9.scm�

��		��			��		��		��	" 	��	& 	��		&gnameg
reload-module�g
documentationf<Revisit the source file corresponding to the module @var{m}.�C�RE&�F�h8Q]	45�$#45�&445�56CCIgmodule
		7guse-list			7gfilenamefice-9/boot-9.scm�
"
��	$	��		$	��	%	
��	%	��	&	��	&	��	 %	��	%'	!��	('	/��	/'	*��	1'	!��	3'	��		7gnamegpurify-module!�g
documentationfGRemoves bindings in MODULE which are inherited from the (guile) module.�C�R���M�Z��hg]C_gsym
		gvar		gfilenamefice-9/boot-9.scm�
Y	0��			CeM�Lv5�SDh��]�$"��$"�4L5$"+4L5$"44L554M5$
4M5NCL4L56�gbspec
	�gorig	�gseen		$�gt		/	kgt		F	hgvar		k�gfilenamefice-9/boot-9.scm�
`	��	a	&��		b	#��	b	5��	a	��	a	&��	c	#��	$c	5��	$a	��	'd	&��	/d	"��	>e	&��	Fd	"��	Uf	&��	Xh	'��	]i	+��	ch	'��	ef	&��	ka	��	nk	��	zk	��	{l	'���l	���n	)���m	��	�Cv5�h(�]4L5$C4L56�gbinding
		!gfilenamefice-9/boot-9.scm�
r	��	s	��	s	��	u	��	v	��	u	��	!t	��		!ChHx-/03
H##K##$45"#45$45"$"4>"G$"J(	�"$C$"	4	
54	5	4	
>"G4	>"G4	O>"G4OJ>"G	Cpgname
	Cgselect	Cghide		Cgprefix		Cgrenamer		Cgversion		Cgmodule		dCgpublic-i		xCg	selection	�Cgcustom-i		�C
gfilenamefice-9/boot-9.scm�
K
��	(M	"��	?O	%��	@P	)��	XS	��	dS	��	lT	��	mT	��	xS	���U	���V	���V	
���V	���W	���W	'���W	���Y	���Y	$���[	���Y	���\	
���\	%���\	
���]	
��`	
��&r	
��	C
gselectS�ghideS	�gprefixS	�grenamerS	�gversionS	�gnamegresolve-interface�C�R�hb]L6Zgsymbol
		
gfilenamefice-9/boot-9.scm�
|	��	
}	��		
Chw]OCogprefix
		
gfilenamefice-9/boot-9.scm�
{
��		
gnamegsymbol-prefix-proc�C�R�h0�](C�$4�5$
�"���CC�gpred
		.gl		.gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	
�	
��	�	��	�	��	�	��	�	��	�	��	"�	4��	*�	&��		.	gnameglist-of�Ch(�]�$C�$��$��CCC�gx
		#gfilenamefice-9/boot-9.scm�
�	��	�	��		�	��	
�	��	�	��	�	��	�	,��	�	#��	�	��	�	>��	�	5��		#gnameg
valid-export?�C/���h`q]"L(6�$1���$4?"	45�"���6"���igimports
		]gimports		Rgout			Rgimport-spec			?gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	"��	�	��	$�	
��	(�	��	)�	
��	4�	
��	8�	��	<�	
��	B�	��	J�	��	N�	��	R�	
��	R�	��	U�	$��	]�	��		]gnamegresolve-imports�CM�]��UZt���������O
h(�]L�$4LL>"G"4LLL5$#L�$4LL>"G""4>"G4LLL5$#L�$4LL>"G""4>"G4LLL5$#L�$4LL>"G""4>"GL("4	
LL>"GL�$4L5L6C�ghandlers
gfilenamefice-9/boot-9.scm�
�	��	�	
��		�		��	
�	
��	"�	
��	.�		��	1�	��	5�	
��	6�	��	R�	
��	V�	��	[�	
��	d�	
��	p�		��	s�	��	w�	
��	x�	����	
����	����	
����	
����		����	����	
����	����	
����	����	
����		����	
��
�	
���		���	���	
���	��$	!
C���&KJ��hT-/03########	#	
#
O
Q454>"G$4>"G"$4>"G"$T4	5$"4
>"G4>"G44
5>"G"4
54	O	>"G
$x"4

>"_G"X
�$M4
5$84
54
5�445>"G""���""���"4>"GCLgname
	�gfilename	�gpure		�gversion		�g
duplicates		�gimports		�gexports		�greplacements		�g
re-exports		�g	autoloads			�gtransformer	
	�glist-of		}�g
valid-export?		}�gresolve-imports	
	}�gmodule	��gimports	9egiface	��gsym	��gfilenamefice-9/boot-9.scm�
�
��	5�	3��	>�	��	G�	"��	P�	5��	Y�	��	b�	'����	����	����	����	����	����	����	����	����	����	
����	����	����	���	
���	
���	��&�	
��3�	��9�	��<�	��k�	��p�	��t�	��{�	����	����	����	����	%����	����	����	����	����	����	����	.����	����	��-	�
gfilenameS�gpureS	�gversionS	�g
duplicatesS	�gimportsS	�gexportsS	�greplacementsS	�g
re-exportsS	�g	autoloadsS		�gtransformerS	
�gnamegdefine-module*�C�R4�i5�RZM�Evhh]4LL5$W44L55$"4L>"G4L4L55�$	�"L6Cgi
		fgautoload	I	^gfilenamefice-9/boot-9.scm�
�	
��	�	��	�	��	�	��	�	5��	�	��	�	��	#�	��	(�	��	,�	 ��	3�	��	<�	%��	A�	-��	I�	%��	I�	��	N�	��	R�	��	W�	��	f�	��		h
C.*5h T]45$C456Lgs
		gfilenamefice-9/boot-9.scm�
�	
��		C:<�_h(i]4LL>"GLL6agport
		%gfilenamefice-9/boot-9.scm�
�	
��		�	��	�	
��		%Ch8i-13444LLO5
5>"GCagkey
			6gargs			6gfilenamefice-9/boot-9.scm�
�	
��			6
Ch �]LLLOLO6�ga
		gsym		gdefinep			gfilenamefice-9/boot-9.scm�
�	��	�	
��			gnamegb�CAc�hH]OQ4
54
54	54
5
6�gmodule
		Bgname		Bgbindings			Bgb			Bgfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	�	,��	&�	=��	(�	��	.�	,��	/�	0��	7�	��	B�	��		B	gnamegmake-autoload-interface�CR�h`j-13"I(C�(6���445>"G��"���"���bgmodule
			^gargs			^gargs		
	Vgname		+	Vgbindings		+	Vgfilenamefice-9/boot-9.scm�
�
��	
�	��	�	��	�	��	�	��	 �	��	$�	��	'�	��	*�	��	+�	��	0�	
��	5�	!��	D�	
��	O�	��	V�	
��	V�	��			^
gnamegmodule-autoload!�g
documentationfHave @var{module} automatically load the module named @var{name} when one
of the symbols listed in @var{bindings} is looked up.  @var{args} should be a
list of module-name/binding-list pairs, e.g., as in @code{(module-autoload!
module '(ice-9 q) '(make-q q-length))}.�C�RR��``��hh]456`gelt
		gfilenamefice-9/boot-9.scm�
	��		0��		!��		CMhM]LL6Egfilenamefice-9/boot-9.scm�
	��	
	��		

ChM]LLM6Egfilenamefice-9/boot-9.scm�
3	��	3	��		
C��� �hM]LWFEgfilenamefice-9/boot-9.scm�
#	 ��	#	+��		
ChX�]445>"G45U(44LL5O>"GNXCXFGD�gtag
		Tgk	M	Tgfilenamefice-9/boot-9.scm�
	��	'	��	'	'��	'	��		 ��		��	% 	��	&0	��	)0	+��	=0	��	H2	��	P 	��	T$	$��		T
C
h��-.,3#454�54�5445?4>"G45$CHO	O4O>"GV
Y4O>"GZX4	O>"GJC}gmodule-name
	�gversion	�greverse-name		�gname		&�gdir-hint-module-name		0�gdir-hint		@�gdidit		e�gfilenamefice-9/boot-9.scm�
	
��	
	��	
	��		��	$	��	&	��	&
	��	)	��	.	(��	0	��	0
	��	3	��	6	��	@	��	@
	��	C	��	V	��	b	��	e		��	|	���	���	��	�gnamegtry-module-autoload�g
documentationf�Try to load a module of the given name.  If it is not found, return
#f.  Otherwise return #t.  May raise an exception if a file is found,
but it fails to load.�C�R	
R�X
h0�]�45$"	456�gp
		0gm		0gn			0gt			.gfilenamefice-9/boot-9.scm�
=
��	>	��	>	��	?	��	?	��	#@	��	0?	��		0	gnamegautoload-done-or-in-progress?�CRX
h8�]�45 45$C� C�gp
		1gm		1gn			1gt			1gfilenamefice-9/boot-9.scm�
B
��	C	��	C	��	
E	
��	D	��	F	��	F	��	-G	��	/G	��
		1	gnamegautoload-done!�CR
h �]
�45 � C�gp
		gm		gn			gfilenamefice-9/boot-9.scm�
I
��	J	��	J	��	
L	
��	K	��	M	 ��	M	��			gnamegautoload-in-progress!�CR
h0�]$6�45 45 C�gp
		/gm		/gdone?			/gn			/gfilenamefice-9/boot-9.scm�
O
��	P	��	Q	��	R	��	R	��	S	��	"S	��	#T	$��	-T	��
		/	gnamegset-autoloaded!�CR4Xi
ZV%&')*-.WY[\</_`a^bdhimrh��]�	�
�

�
�����C�gdummy
	�g	interface	�goptions		�genable		�gdisable		�goption-set!		�	�	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
\	��		"g
macro-typegsyntax-rules�gpatternsg	interfacegoptionsgenablegdisablegoption-set!C5
Rs#6�"h��]4>"G4455	�$54	>"G	�$4	>"G""4	>"G4>"G4	>"G4>"G6�gname
	�gvalue	�g
documentation		�glen		 	cgfilenamefice-9/boot-9.scm�
�
��	�	ChX]@Pgoption
		gfilenamefice-9/boot-9.scm�
�
��		Ch8w)36]�$4>"G6456ogarg
		8gfilenamefice-9/boot-9.scm�
�
��			
		8gnameg
debug-options�CtRs�h0r-1344455>"G6jgflags
			)gfilenamefice-9/boot-9.scm�
�
��			)


gnamegdebug-enable�CuRsShV]4M5NCNgflag
		gfilenamefice-9/boot-9.scm�
�
��		Ch@�-1345H4O>"G4J>"G6�gflags
			?g
debug-options		?gfilenamefice-9/boot-9.scm�
�
��			?


gnameg
debug-disable�CvR4XiwZV�������h(O]CGgdummy
		$gopt		$gval			$		$	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgoptgvalC5wR�#6�"h��]4>"G4455	�$54	>"G	�$4	>"G""4	>"G4>"G4	>"G4>"G6�gname
	�gvalue	�g
documentation		�glen		 	cgfilenamefice-9/boot-9.scm�
�
��	�	ChX]@Pgoption
		gfilenamefice-9/boot-9.scm�
�
��		Ch8v)36]�$4>"G6456ngarg
		8gfilenamefice-9/boot-9.scm�
�
��			
		8gnamegread-options�C�R��h0q-1344455>"G6igflags
			)gfilenamefice-9/boot-9.scm�
�
��			)


gnamegread-enable�C�R�ShV]4M5NCNgflag
		gfilenamefice-9/boot-9.scm�
�
��		Ch@�-1345H4O>"G4J>"G6�gflags
			?gread-options		?gfilenamefice-9/boot-9.scm�
�
��			?


gnamegread-disable�C�R4Xi�ZV�������h(O]CGgdummy
		$gopt		$gval			$		$	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgoptgvalC5�R�#6�"h��]4>"G4455	�$54	>"G	�$4	>"G""4	>"G4>"G4	>"G4>"G6�gname
	�gvalue	�g
documentation		�glen		 	cgfilenamefice-9/boot-9.scm�
�
��	�	ChX]@Pgoption
		gfilenamefice-9/boot-9.scm�
�
��		Ch8w)36]�$4>"G6456ogarg
		8gfilenamefice-9/boot-9.scm�
�
��			
		8gnameg
print-options�C�R��h0r-1344455>"G6jgflags
			)gfilenamefice-9/boot-9.scm�
�
��			)


gnamegprint-enable�C�R�ShV]4M5NCNgflag
		gfilenamefice-9/boot-9.scm�
�
��		Ch@�-1345H4O>"G4J>"G6�gflags
			?g
print-options		?gfilenamefice-9/boot-9.scm�
�
��			?


gnameg
print-disable�C�R4Xi�ZV�������h(O]CGgdummy
		$gopt		$gval			$		$	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgoptgvalC5�R4Xi�ZRhV]6Ngid
		gfilenamefice-9/boot-9.scm�	�	��		C�h*]C"gid
				CV��h)]�C!gx
				CN�h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenamefice-9/boot-9.scm�
�	��		:g
macro-typegidentifier-syntax�C5�Rhu]�Cmgv
		gfilenamefice-9/boot-9.scm�
�
��	�	��		gnamegunspecified?�C�R�i��R4fi�i�>"GhT]CLgx
		gfilenamefice-9/boot-9.scm�
�	/��		C
�h()3L[C]	L[L4L5\Cwgx
		!gprev		!gfilenamefice-9/boot-9.scm�
�	��	�	��	�	,��			
		!Ch8-.,3#4455O�Cginit
		7gconv		7gfluid		"	7gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	"�	��	"�	��	6�	��		7gnamegmake-parameter�g
documentationfBMake a new parameter.

A parameter is a dynamically bound value, accessed through a procedure.
To access the current value, apply the procedure with no arguments:

  (define p (make-parameter 10))
  (p) => 10

To provide a new value for the parameter in a dynamic extent, use
`parameterize':

  (parameterize ((p 20))
    (p)) => 20
  (p) => 10

The value outside of the dynamic extent of the body is unaffected.  To
update the current value, apply it to one argument:

  (p 20) => 10
  (p) => 20

As you can see, the call that updates a parameter returns its previous
value.

All values for the parameter are first run through the CONV procedure,
including INIT, the initial value.  The default CONV procedure is the
identity procedure.  CONV is commonly used to ensure some set of
invariants on the values that a parameter may have.�C�RhT]CLgx
		gfilenamefice-9/boot-9.scm�
�	2��		C�h()3L[C]	L[L4L5\Cwgx
		!gprev		!gfilenamefice-9/boot-9.scm�
�	��	�	��	�	*��			
		!Ch0-.,3#O�C�gfluid
		)gconv		)gfilenamefice-9/boot-9.scm�
�
��	(�	��		)gnamegfluid->parameter�g
documentationf`Make a parameter that wraps a fluid.

The value of the parameter will be the same as the value of the fluid.
If the parameter is rebound in some dynamic extent, perhaps via
`parameterize', the new value will be run through the optional CONV
procedure, as with any parameter.  Note that unlike `make-parameter',
CONV is not applied to the initial value.�C�R�h�]�$��CC�gx
		gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��	�	��		gnameg
parameter?�C�R���h(�]45$�C6�gp
		"gfilenamefice-9/boot-9.scm�
�
��	�	��	
�	��	�	��	�	��	�	!��	�	��	�	'��	"�	��
		"gnamegparameter-fluid�C�R���h(�]45$	�C6�gp
		#gfilenamefice-9/boot-9.scm�
�
��	�	��	
�	��	�	��	�	��	�	!��	�	��	 �	'��	#�	��
		#gnamegparameter-converter�C�R4Xi�ZV�SV���

h08]	�����C0gtmp-bde397a-17e9
		*		*C!h V]����CNgtmp-bde397a-17e7
		gtmp-bde397a-17e6					Ch8)]4L54454L5LL���5��C!gp
		7		7CN�h8�]4545$O@6�gparam
		6gvalue		6gbody			6gbody*			6gtmp				6gtmp			6gfilenamefice-9/boot-9.scm�	�	��		�	��		6	CN�h(d]	45$@6\gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�	��		"C5�R4�i4Ji4i5"5�#hf]45$C6^gx
		gfilenamefice-9/boot-9.scm�

	��	
	"��	
	��		C5$i4�i4i5">"G4�i4Ji4i5%5�&hf]45$C6^gx
		gfilenamefice-9/boot-9.scm�


	��	
	#��	

	��		C5'i4�i4i5%>"G4�i4Ji4i5(5�&hf]45$C6^gx
		gfilenamefice-9/boot-9.scm�

	��	
	#��	
	��		C5i4�i4i5(>"G4�i4Ji4i5)5�&hf]45$C6^gx
		gfilenamefice-9/boot-9.scm�

	��	
	#��	
	��		C5*i4�i4i5)>"G4�i*5+R4
i5,R,hd][�C\gfilenamefice-9/boot-9.scm�

+
��	
,	��		
gnamegbatch-mode?�C-Rh\]CTgfilenamefice-9/boot-9.scm�

3	��		
gnamegbatch-mode?�C-hk] Ccgfilenamefice-9/boot-9.scm�

2
��	
3	��		
gnamegensure-batch-mode!�C.Rh{-13@sgargs
			gfilenamefice-9/boot-9.scm�

5
��	

6	��	
6	��			


gnamegquit�CRi/R012h�]4455�C�gfilenamefice-9/boot-9.scm�

:
��	
;	��	
;	
��	
;	��	
;	��	
;	��		
gnameggc-run-time�C3R4�i54R4�i55R4�i56R4�i57R4�i58R4�i59R4�i5:R4�i5;R4�i5<R4�i5=R4�i5>R4�i5?R@A#�B'^�9&$
h�-.,3#	4545$"<445$"45>"G445
>"G4>"G4	
>"G$"456gprompt
	�greader	�gfilenamefice-9/boot-9.scm�

Q	��	
Q	&��	
R	
��	$
R	��	)
T	
��	,
T	��	6
T	��	=
T	/��	F
T	
��	O
f	
��	R
f	��	\
f	
��	e
g	��	u
h	���
i	���
i	���
i	��	�gnamegrepl-reader�CCRh0�]"
�$C��"����"����gn
		-gcount		!gresult			!gfilenamefice-9/boot-9.scm�

q
��	
r	��	

s	��	
s	��	
t	��	
t	��	!
t	��	!
r	��	$
r	��	%
r	$��	-
r	��		-gnamegiota�CDR4XiEZV
OFGVs\jk^lm��e������hXR]��	
��L
�L���������CJgt-bde397a-1825
		Rgt-bde397a-1826		R		R	CN�	h@�]454545$
O@6�gwhile
		@gcond		@gbody			@gtmp			@gtmp		"	@gfilenamefice-9/boot-9.scm�	
�	��		
�	6��	
�	��	
�	$��	
�	;��	
�	$��	
�	��		@	CN�h(d]	45$@6\gx
		"gtmp		"gfilenamefice-9/boot-9.scm�

�	��		"C5ER�u��h�]4445556�gsym
		gfilenamefice-9/boot-9.scm�

�
��	
�	��	
�	#��	
�	.��	
�	#��	
�	��	
�	��		gnamegkeyword-like-symbol->keyword�C�R4Xi�ZV��������V�h �]4445556�gt-bde397a-18ac
		gt-bde397a-18ab		gt-bde397a-18aa			gt-bde397a-18a9			gt-bde397a-18a8						CN�h�*]8L("LL("LL("LL("LL("	
L45$
@6"gimp
	u�gexp	u�grex		u�grep		u�gaut		u�gtmp	��gtmp	��gfilenamefice-9/boot-9.scm�	
�	��		
�	$��	
�	��	 
�	$��	6
�	��	7
�	$��	M
�	��	N
�	$��	d
�	��	e
�	$��	u
�		���
�	��
	�
CthX]LLLLLL6Pgargs
		gfilenamefice-9/boot-9.scm�	
�		��		C
h q]	4LLLLLL5��Cigargs
		gtmp		gfilenamefice-9/boot-9.scm�	
�	��	
�	
��		C\N�hh]L6`gkw
		gfilenamefice-9/boot-9.scm�	
�	��	
�	*��	
�		��		C,-h(�]
4LLLLLL5��Cygv
		#gargs		#gtmp			#gfilenamefice-9/boot-9.scm�	
�	#��	
�	
��		#	C/?@h(�]
4LLLLLL5��Cygd
		#gargs		#gtmp			#gfilenamefice-9/boot-9.scm�	
�	&��	
�	
��		#	CBRSh(�]
4LLLLLL5��Cygf
		#gargs		#gtmp			#gfilenamefice-9/boot-9.scm�	
�	��	
�	
��		#	CWZ\_V��h6]L6.gt-bde397a-1967
		
		
CN�h@y]
LL4L5$4O?"
4L5LLL6qgex
		>gargs		>gtmp			6gfilenamefice-9/boot-9.scm�	>
�		��		>	CbV��h6]L6.gt-bde397a-1975
		
		
CN�h@y]
LL4L5$4O?"
4L5LLL6qgex
		>gargs		>gtmp			6gfilenamefice-9/boot-9.scm�	>
�		��		>	CeV��h6]L6.gt-bde397a-1983
		
		
CN�h@y]
LLL4L5$4O?"
4L5LL6qgre
		>gargs		>gtmp			8gfilenamefice-9/boot-9.scm�	>
�		��		>	ChV��h6]L6.gt-bde397a-1991
		
		
CN�h@y]
LLL4L5$4O?"
4L5LL6qgre
		>gargs		>gtmp			8gfilenamefice-9/boot-9.scm�	>		��		>	CkV��h6]L6.gt-bde397a-199f
		
		
CN�h@x]
LLLL4L5$4O?"
4L5L6pgr
		>gargs		>gtmp			:gfilenamefice-9/boot-9.scm�	>		��		>	CnV��h6]L6.gt-bde397a-19ad
		
		
CN�h@x]
LLLL4L5$4O?"
4L5L6pgr
		>gargs		>gtmp			:gfilenamefice-9/boot-9.scm�	>		��		>	CqV��h6]LL6.gt-bde397a-19bd
				CN�h@�]LLLLL4L5$4O?"
4L56�gname
		@gbindings		@gargs			@gtmp			>gfilenamefice-9/boot-9.scm�	@		��		@	CuN�rh�]6�gkw
		gval		gargs			gfilenamefice-9/boot-9.scm�			��			*��				��			CN�3�Ph�]4�56�gname
		gname*		garg			gargs			gfilenamefice-9/boot-9.scm�	
�	��	
�	��			CV/hE]L6=gfilenamefice-9/boot-9.scm�	
�	��		
Ctt��ht]LL��6lgrenamer
		gin		gfilenamefice-9/boot-9.scm�	
�	��	
�	��			Cuh�]LL��6xgkw
		gval		gin			gfilenamefice-9/boot-9.scm�	

�	��	
�	��			CN��Ph�]4455�Cygkw
		gin		gfilenamefice-9/boot-9.scm�	
�	��	
�	$��	
�	��	
�	��			CN��hx]L6pgkw
		gin		gfilenamefice-9/boot-9.scm�	
�	��	
�	,��	
�	��			CP9�h(�]
45�$445
5:�CC�gsym
		%gin		%gdat				%gfilenamefice-9/boot-9.scm�	
�	��		
�	��	
�	
��	
�	��	
�	��	
�	��	
�	��	"
�	
��			%	CP�u��h8�]
L4544445555�L6�gsym
		5gin		5gsym			'gtmp		'	1gfilenamefice-9/boot-9.scm�	
�	!��	
�	��	
�	��	
�	��	
�	'��	
�	2��	 
�	'��	"
�	��	$
�	��	'
�	��	5
�	��		5	Ch��]*45$O@45"x45"E45$
LO@45$
LO@	6$4
?$LO@"���"���$4?$

LO@"��f"��b�gin
	�gout	�gtmp		
�gtmp		&�gtmp		5�gtmp		D�gtmp		b�gfilenamefice-9/boot-9.scm�

�	��	�	gnamegloop�CV��hR]LL��6Jgt-bde397a-1955
		gt-bde397a-1954					CN�hh�]LLOLQ4545$4O?"
45LLLL6�gname
		egname*		egarg			egargs			egloop			#gtmp		&	[gtmp		1	Xgfilenamefice-9/boot-9.scm�	
�	��	
�	 ��	 
�	��	&
�	��	e
�		��		e	C3�Ph�]4�56~gname
		gname*		gargs			gfilenamefice-9/boot-9.scm�	
�	��	
�	��			CV��h6]LL�6.gt-bde397a-1938
				CN���hX�]4L4L5$4O?"
4L5LLLL5���C�gname
		Tgname*		Tgargs			Tgtmp			7gtmp		A	Tgfilenamefice-9/boot-9.scm�	
�	��	A
�	
��		T	C3�Ph�]4�56~gname
		gname*		gargs			gfilenamefice-9/boot-9.scm�	
�	��	
�	��			CV��h6]LL�6.gt-bde397a-1919
				CN�h@�]L4L5$4O?"
4L5LLLL6�gname
		@gname*		@gargs			@gtmp			6gfilenamefice-9/boot-9.scm�	@
�		��		@	C�Ph�]4455�C{gkw
		gargs		gfilenamefice-9/boot-9.scm�	
�	��	
�	$��	
�	��	
�	��			CN��hz]L6rgkw
		gargs		gfilenamefice-9/boot-9.scm�	
�	��	
�	*��	
�		��			CP9�h(�]
45�$445
5:�CC�gsym
		%gargs		%gdat				%gfilenamefice-9/boot-9.scm�	
�	��		
�	��	
�	
��	
�	��	
�	��	
�	��	
�	��	"
�	
��			%	CP�u��h@�]
L4544445555�LLLLL6�gsym
		=gargs		=gsym			'gtmp		'	1gfilenamefice-9/boot-9.scm�	
�	 ��	
�	��	
�	��	
�	��	
�	'��	
�	2��	 
�	'��	"
�	��	$
�	��	'
�	��	=
�		��		=	C/hX<]�45$O@45"�45"�45		$LO	@45

$LO
@45$	LO@4
5$LO@45

$
LO
@45$LO@45"�45"i45"*45$LO@45$LO@45$LO@45$LO@45$LO@45$LO@45$ LO@4!5$"@#$6$&4%?$&LLO@"���"���$$4'?$(LO@"��m"��i$$4)?$*LO@"��0"��,$4+?$,LO@"��#"��$$4-?$.LO@"���"���4gargs
	Rgimp	Rgexp		Rgrex		Rgrep		Rgaut		Rgtmp		
Rgtmp		.Rgtmp		=$gtmp			Lgtmp	
	rgtmp	�gtmp	�gtmp	
�gtmp	gtmp	&gtmp	5�gtmp	D�gtmp	Stgtmp	ytgtmp	�tgtmp	�tgtmp	�tgtmp	tgtmp	7tgtmp	]tgfilenamefice-9/boot-9.scm�

�	��	R	gnamegparse�CV�N�3�Ph�]4�56}gname
		gname*		garg			gfilenamefice-9/boot-9.scm�		��		��			CQ�V���������	h0H]LL�������C@g
quoted-arg
		.gfilename		.		.	CN�
hxL]4L544L5$"545$"45$
O@	6Dgname
		qgname*		qgarg			qgt			*gf		.	Egtmp		H	qgtmp		S	qgfilenamefice-9/boot-9.scm�		��		)��			-��	
	1��		5��		9��		��		(��		6��		2��	'	H��	,	2��	.	(��	.	��	1	&��	;	!��	H	��		q	ChPw]OQ45"	6$4?$
O@"���"���ogx
		Pgparse		Pgtmp			Pgfilenamefice-9/boot-9.scm�

�	��		PC5�R��h �]	4?$C6�gmif-args
		gt			gfilenamefice-9/boot-9.scm�
%	��	&	��		&	��	'	&��	'	��		Ct�hV]45L6Ngfilenamefice-9/boot-9.scm�
*	��	+	��	
+	��		
Ch�]	45O6�gmodule-interface-args
		g
interfaces		gfilenamefice-9/boot-9.scm�
$
��	%	��	%	��	)	��		gnamegprocess-use-modules�C�R4Xi�ZV�hE]L6=gfilenamefice-9/boot-9.scm�	G	��		
CV[N�3�Ph�]4�56�gname
		gname*		garg			gin			gfilenamefice-9/boot-9.scm�	L	��	L	��			CV/hE]L6=gfilenamefice-9/boot-9.scm�	9	��		
Ctt�ht]LL��6lgrenamer
		gin		gfilenamefice-9/boot-9.scm�	
@	��	@	��			Cu�h�]LL��6xgkw
		gval		gin			gfilenamefice-9/boot-9.scm�	B	��	B	��			CN��Ph�]4455�Cygkw
		gin		gfilenamefice-9/boot-9.scm�	=	��	=	$��	=	��	=	��			CN��hx]L6pgkw
		gin		gfilenamefice-9/boot-9.scm�	>	��	>	,��	>	��			CP9�h(�]
45�$445
5:�CC�gsym
		%gin		%gdat				%gfilenamefice-9/boot-9.scm�	0	��		0	��	1	
��	1	��	2	��	2	��	2	��	"2	
��			%	CP�u��h8�]
L4544445555�L6�gsym
		5gin		5gsym			'gtmp		'	1gfilenamefice-9/boot-9.scm�	<	!��	<	��	4	��	4	��	4	'��	4	2��	 4	'��	"4	��	$4	��	'<	��	5<	��		5	Ch��]*45$O@45"x45"E45$
LO@45$
LO@	6$4
?$LO@"���"���$4?$

LO@"��f"��b�gin
	�gout	�gtmp		
�gtmp		&�gtmp		5�gtmp		D�gtmp		b�gfilenamefice-9/boot-9.scm�
7	��	�	gnamegloop�CV���h g]LLLL���L�6_g
quoted-arg
		gfilenamefice-9/boot-9.scm�	N	��	N	
��		CN�hP�]OLQ4545$LLO@6�gname
		Lgname*		Lgarg			Lgin			Lgloop			gtmp			Lgtmp		(	Lgfilenamefice-9/boot-9.scm�	7	��	7	 ��	7	��	M	��		L	C3�Ph�]4�56|gname
		gname*		gin			gfilenamefice-9/boot-9.scm�	I	��	I	��			C�h�]L�L�6|gname
		gname*		gin			gfilenamefice-9/boot-9.scm�	J	��	J	��			Ch��]45$O@45"@45"	6$4?$LLO@"���"���$4	?$

LO@"���"����gin
	�gout	�gtmp		
�gtmp		&�gtmp		5	lgfilenamefice-9/boot-9.scm�
E	��	�	gnameglp�Ch �]	OLQ6�gspecs
		glp		gfilenamefice-9/boot-9.scm�
D	��	E	��	E	��	E	��		gnamegquotify�CV�V�					
	h3]����C+gquoted-args
				CN�h0�]4L545$@6zgspec
		+gtmp			+gtmp			+gfilenamefice-9/boot-9.scm�	S	(��		S	��		+CN�h8y]OQ45$O@6qgx
		4gquotify	
	4gtmp			4gfilenamefice-9/boot-9.scm�
.	��		4C5�R4Xi	
ZV		&	'h?]�C7gdummy
		gspec					CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
X
��		"g
macro-typegsyntax-rules�gpatternsgspecg...C5	
RPh|]45�Ctgx
		gfilenamefice-9/r6rs-libraries.scm�
		��			��	
		��		gnamegsym?�CV	?	@	A	E	I	M	R	=3hr]L�6jgname
		
gname*		
gfilenamefice-9/r6rs-libraries.scm�	
	y	��		
	C	S	Z��hr]45�6jgname
		gname*		gfilenamefice-9/r6rs-libraries.scm�		z	��			CN�3h�]L�6gname
		
gname*		
gversion			
gfilenamefice-9/r6rs-libraries.scm�	
	u	��		
	C	S	b�h �]45�6gname
		gname*		gversion			gfilenamefice-9/r6rs-libraries.scm�		v	��			C3h �]4L5$L6C�g
import-set
		gfrom		gto			gfilenamefice-9/r6rs-libraries.scm�		^	
��		^	��		^	&��			C	SeM�LA�Dhv]L6ngsym
		gvar		gfilenamefice-9/r6rs-libraries.scm�
	a	��		a	*��			Cv	cDh(�]4L�5$�L6L��6�gpair
		'gfilenamefice-9/r6rs-libraries.scm�
	f	��		g	��	
	g	/��		g	��		g	��		h	��		i	��		h	��	"	j	%��	%	j	0��	'	j	��		'Cv��Ph�/]+45454>"G445>"G4O>"G"z(4	
O>"GC4��5$"
4
��54��>"G�����"���4455"��m'g
import-set
	�gfrom	�gto		�gmod			�giface			Dgiface		D�gin		c�gout		c�gt	��gvar	��
gfilenamefice-9/r6rs-libraries.scm�		_	��			_	��			��			��			��			��			��	'		��	,		��	7		��	D	_	��	G	a	��	c	b	��	i	c		��	j	e	���	n	���	n	5���	n	���	n	���	o	���	o	!���	p	!���	o	���	n	���	q	
���	q	#���	q	
���	r	���	r	!���	r	���	r	
���	b	���	b	���	b	>���	b	��$	�	CPh�]45�C}g
import-set
		g
identifier		gfilenamefice-9/r6rs-libraries.scm�			��	
		��			C	SeM�LAP�D�h~]L4L56vgsym
		gvar		gfilenamefice-9/r6rs-libraries.scm�
	X	��		Y	-��		Y	��			C
hp-]45454>"G445>"G454	O>"GC%g
import-set
		mg
identifier		mgmod				mgiface			Dgiface		D	mgpre		M	mgfilenamefice-9/r6rs-libraries.scm�		U	��			U	��			��			��			��			��			��	'		��	,		��	7		��	D	U	��	G	W	��	M	U	��	P	X	��		m	C3h}]L6ug
import-set
		
g
identifier		
gfilenamefice-9/r6rs-libraries.scm�	
	H	��		
	C	SeM�LA�Dhv]L6ngsym
		gvar		gfilenamefice-9/r6rs-libraries.scm�
	K	��		K	*��			Cv��h(�]4L5$L6L6}gsym
		!gfilenamefice-9/r6rs-libraries.scm�
	L	��		M	��		M	��		N	��		O	��	!	O	��		!CPh�)]45454>"G445>"G4O>"G4	
O45>"GC!g
import-set
	�g
identifier	�gmod			�giface			Dgiface		D�gfilenamefice-9/r6rs-libraries.scm�		I	��			I	��			��			��			��			��			��	'		��	,		��	7		��	D	I	��	G	K	��	`	L	��	l	P	��	w	L	��	�	C3h}]L6ug
import-set
		
g
identifier		
gfilenamefice-9/r6rs-libraries.scm�	
	<	��		
	C	SeM�LADv�h0�]	L4L5$"4L56�gsym
		/gt		-gfilenamefice-9/r6rs-libraries.scm�
	?	��			A	$��		A	 ��	 	B	$��	$	B	+��	*	B	$��	/	@	��		/CP
hp]45454>"G445>"G4O4	5>"GCg
import-set
		ig
identifier		igmod				igiface			Dgiface		D	igfilenamefice-9/r6rs-libraries.scm�		=	��			=	��			��			��			��			��			��	'		��	,		��	7		��	D	=	��	G	?	��	S	D	��	^	?	��		i	C3hr]L�6jgname
		
gname*		
gfilenamefice-9/r6rs-libraries.scm�	
	8	��		
	C	S	i��hr]45�6jgname
		gname*		gfilenamefice-9/r6rs-libraries.scm�		9	��			C3h�]L�6gname
		
gname*		
gversion			
gfilenamefice-9/r6rs-libraries.scm�	
	3	��		
	C�P�h �]4�5456�gname
		gname*		gversion			gfilenamefice-9/r6rs-libraries.scm�		4	��		5	"��		4	��			C3	rP9�h8�]4L�5$$45�$44455
5:�CCC�gcolon-n
		8grest		8gversion			8gfilenamefice-9/r6rs-libraries.scm�		!	
��		!	��		"	��		"	
��		!	��		#	��	"	#	��	%	#	,��	-	#	��	0	#	��	3	#	
��		8	Cu`	s��P	SV	�	�h]LLC		
C	�	��h >]L4L5��C6gname
		grest					CN�h�]444445555545$4	O?"04
5$4O?"
4
56gcolon-n
		{grest		{gversion			{gsrfi-n		 	{gtmp		,	ygtmp		O	vgfilenamefice-9/r6rs-libraries.scm�		$	��		%	��	
	&	��		'	��		'	 ��		'	0��		'	 ��		'	��		%	��	 	$	��	 	$	��	{	)	��
		{	C h�>]Q45"�45"f45"345"45"�45"�4	5"l4
5	"945

$4O
?$

@66	$4O	?$	@"���"���$4O?$@"��t"��p$4?$@"��F"��B$4O?$@"��"��$4O?$@"���"���$4O?$@"���"���$4O?$@"��z"��v$4O?$@"��G"��C6gimport-spec
	�gsym?	�gtmp		�gtmp		�gtmp		-�gtmp		<fgtmp		KBgtmp		Zgtmp		i�gtmp			x�gtmp	
��gfilenamefice-9/r6rs-libraries.scm�
	
��	�gnamegresolve-r6rs-interface�C	SR4Xi	(ZV	�	�3Rh�]�6�gname
		
gname*		
gversion			
gespec			
gispec			
gbody			
gfilenamefice-9/r6rs-libraries.scm�	
�	��		
	CV	�	Sh�]6xg
import-set
		gimport-level		gfilenamefice-9/r6rs-libraries.scm�	�	��			C	Sh v]	45$@6ngim
		gtmp		gfilenamefice-9/r6rs-libraries.scm�
�	��	�	#��		CVhM]LLLDEgfilenamefice-9/r6rs-libraries.scm�	
�	��		

C	�tRhp]6hgid
		grest		gfilenamefice-9/r6rs-libraries.scm�	�	��			CP4vhi]L6agiface
		
gfilenamefice-9/r6rs-libraries.scm�
�	��	
�	 ��		
Cv�hX�]
454OL5$LLL�L645$LLLL�6LL�LL6�gid
		Wgrest		Wgsym				Wgfilenamefice-9/r6rs-libraries.scm�	�	��		�	��	�	��	�	
��	(�	��	,�	��	-�	��	9�	
��	F�	��	H�	��	Q�	��	W�	��
		W	CN�3Rh �]45$6C�gfrom
		gto		grest			gfilenamefice-9/r6rs-libraries.scm�	�	��	�	��	�	��			CVhM]LLLLL6Egfilenamefice-9/r6rs-libraries.scm�	�	��		
C	�P4vhi]L6agiface
		
gfilenamefice-9/r6rs-libraries.scm�
�	��	
�	 ��		
Cv�hp]454OL5$LL�L�L64545$LLL�L�6L�L�LL6gfrom
		ogto		ogin			ogsym				gsym		9	Ggfilenamefice-9/r6rs-libraries.scm�	�	��		�	��	�	��	 �	��	.�	��	2�	��	3�	��	9�	��	<�	��	K�	��	[�	 ��	]�	��	i�	��	o�	��		o	CN�hX�]45$LLO@45$LLO@6�gin
		Rge		Rgr			Rgx			Rgtmp		
	Rgtmp		.	Rgfilenamefice-9/r6rs-libraries.scm�
�	��		R	gnameglp2�Ch0�]OLLQ45LLL6�gfrom
		-gto		-grest			-glp2		
	-gfilenamefice-9/r6rs-libraries.scm�	
�	��		-	Ch��]45$O@45"A45$'4?$LLO@66$"4	?$
LLO@"���"����gspecs
	�ge	�gr		�gx		�gtmp		
�gtmp		*�gtmp		9	qgfilenamefice-9/r6rs-libraries.scm�
�	��	�	gnameglp�CV	�	�	�	�	��	�h8]C0gtmp-bde397a-1b2c
		
		
C	�	�	�	�h8]LL�C0gtmp-bde397a-1b2b
				ChHG]LL�L44L5�	�
�4LLOL5���5��C?ge
		Ggr		Ggx			G		G	CN�	hp�].45OQ4>G	4	5

$O
@	6�gname
		lgname*		lgversion			lgespec			lgispec			lgbody			lgifaces			*glp			*gexports		+	lg
re-exports		+	lgreplacements		+	lgtmp			=	lgtmp	
	H	l
gfilenamefice-9/r6rs-libraries.scm�	�	��	�	
��	�	��	#�	 ��	$�	(��	%�	0��	*�	��	.�	��	=�	��
		l	CN�3Rh�]�6�gname
		
gname*		
gespec			
gispec			
gbody			
gfilenamefice-9/r6rs-libraries.scm�	
�	��		
	C
��

	h(w]45�������Cogname
		!gname*		!gespec			!gispec			!gbody			!		!	C
hh~]45"445$4?$@66$4?$	@"���"���vgstx
		dgtmp		dgtmp			Egfilenamefice-9/r6rs-libraries.scm�
	}	��		dC5	(R4Xi	�ZV�V
hL]CDg
import-set
		gimport-level					Ch �]	45$@C�g
import-set
		gtmp		gfilenamefice-9/r6rs-libraries.scm�
�	��		gnameg	strip-for�CV�
$
(�
)
+
,
-
8h 8]��C0gtmp-bde397a-1b44
				C
<h 9]4455��C1glibrary-reference
				CN�h0�]4545$@6�g
import-set
		-gtmp		-gtmp			-gfilenamefice-9/r6rs-libraries.scm�	�	.��	�	��		-CN�h(n]	45$@6fgstx
		"gtmp		"gfilenamefice-9/r6rs-libraries.scm�
�	��		"C5	�R4Xi
=ZV
NhO]CGgdummy
		gfoo		gbar						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
a
��		"g
macro-typegsyntax-rules�gpatternsgfoogbarC5
=R4Xi
OZV
P
`
a
bh c]���C[gdummy
		gname		gargs			gbody						C
k
l
mhP]CHgdummy
		gname		gval						CN�h@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/boot-9.scm�
e	��		9g
macro-typegsyntax-rules�gpatternsgnamegargs�gbody�gnamegvalC5
OR4Xi
nZV
}
~
�h c]���C[gdummy
		gname		gargs			gbody						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
o
��		"g
macro-typegsyntax-rules�gpatternsgnamegargsgbodyg...C5
nR4Xi
�ZV

�hT]��CLgdummy
		gformals		gbody						CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
u
��		"g
macro-typegsyntax-rules�gpatternsgformalsgbodyg...C5
�RZ�Dh@]�$�"�$�"4L5L6�gname
		;g
internal-name		;g
external-name		$	;gvar		/	;gfilenamefice-9/boot-9.scm�
�	��	�	*��		�	&��	�	7��	�	��	�	*��	�	&��	�	7��	$�	��	'�	��	/�	��	;�	��
		;Ch �]
45O6�gm
		gnames		gpublic-i				gfilenamefice-9/boot-9.scm�
~
��		��			��	�	��			gnamegmodule-export!�C�RZ�
�
�DhP]�$�"�$�"4L54>"GL6gname
		Pg
internal-name		Pg
external-name		$	Pgvar		/	Pgfilenamefice-9/boot-9.scm�
�	��	�	*��		�	&��	�	7��	�	��	�	*��	�	&��	�	7��	$�	��	'�	��	/�	��	2�	��	8�	,��	>�	��	P�	��		PCh �]
45O6�gm
		gnames		gpublic-i				gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-replace!�C�RZeLAUTM�[DCh�G]	45$"f45445>"G445>"G4>"G4	>"G
456?gmod
	�gt		�giface		}giface��gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��	�	��	�	��	$�	��	/�	��	8�	��	=�	!��	H�	��	Q�	��	W�	��	\�	��	e�	����	����	����	��	�gnamegmodule-export-all!�C
�RZHv
�D
�h`?]�$�"�$�"4L5$!4L5&6L667gname
		`g
internal-name		`g
external-name		$	`gvar		/	`gfilenamefice-9/boot-9.scm�
�	��	�	*��		�	&��	�	7��	�	��	�	*��	�	&��	�	7��	$�	��	'�	��	/�	��	7�	��	:�	"��	F�	��	J�	 ��	N�	��	X�	��	\�	 ��	`�	��		`Ch �]
45O6�gm
		gnames		gpublic-i				gfilenamefice-9/boot-9.scm�
�
��	�	��		�	��	�	��			gnamegmodule-re-export!�C�R4Xi	�ZV
�
�
�
�
�
�
�h(?]C7gdummy
		#gname		#		#	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameg...C5	�R4Xi	�ZV
�
�
�
�
�
�
�h(?]C7gdummy
		#gname		#		#	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameg...C5	�R4Xi	�ZV
�
�
�
�
�
�
�h(?]C7gdummy
		#gname		#		#	CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameg...C5	�R4Xi
ZV
�h?]�C7gdummy
		gname					CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameg...C5
R4Xi
�ZV
�h?]�C7gdummy
		gname					CN�h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/boot-9.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgnameg...C5
�R�
h g)3L[C]L4L5\C_gval
		gfilenamefice-9/boot-9.scm�
�	��	�	��			
		Ch0�-.,3#4455OC�ginit
		.g	converter		.gfluid		"	.gfilenamefice-9/boot-9.scm�
�
��	�	��	�	��	"�	��	"�	��		.gnamegmake-mutable-parameter�C
�R4ei	5h�,3C�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamefice-9/boot-9.scm�
	��			gnamegnoop�C4Li
�>"G4Mi�>"G4Gi
�e
�Ah0&,34545456gmodule
		*gname		*gint1			*gval1			*gint2			*gval2			*gvar			*gval			*gfilenamefice-9/boot-9.scm�
�	��	
�	��	
�	��	�	��	�	��	�	��	'�	��	*�	��			*	gnamegcheck�C>"G4Gi,*
�Ah8%,3445454545>"GCgmodule
		6gname		6gint1			6gval1			6gint2			6gval2			6gvar			6gval			6gfilenamefice-9/boot-9.scm�
�	��	�	��	
�	��	�	��	�	��	�	��	!�	��	,�	��			6	gnamegwarn�C>"G4Gi
�
�
�Hh�,3
$45$""$"	4545	45$ 	&"
4	5�$CC4	5$	CC�gmodule
	�gname	�gint1		�gval1		�gint2		�gval2		�gvar		�gval		�gt		%	?gold		H�gnew			H�gfilenamefice-9/boot-9.scm�
	��		��	
	��		3��		��		��	%	��	4	��	@	��	H	��	M	��	S	!��	U	��	Y	��	a	��	b	��	g	��	m	/��	o	��	p	��	t	��	z
	���
	&���
	���
	��	�	gnamegreplace�C>"G4Gi
��*
�Avh@<,3&/4454545>"G6C4gmodule
		?gname		?gint1			?gval1			?gint2			?gval2			?gvar			?gval			?gfilenamefice-9/boot-9.scm�

	��		��		
��		��		��		��	 	��	-	
��	=	
��
		?	gnamegwarn-override-core�C>"G4Givh�,3$C6�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamefice-9/boot-9.scm�
	��		��		��			gnamegfirst�C>"G4Givh�,36�gmodule
		gname		gint1			gval1			gint2			gval2			gvar			gval			gfilenamefice-9/boot-9.scm�
	��		��			gnameglast�C>"G4Gi>"G4Gi>"G
�R�
�h �]	45$C6�ghandler-name
		gt		gfilenamefice-9/boot-9.scm�
.	��	/	��	/	��	1	��	1	��		Ch(�]$�$"6C�g
handler-names
		"gfilenamefice-9/boot-9.scm�
,
��	-	��	3	��	3	��	5	��	 .	��		"gnameglookup-duplicates-handlers�C�R4
�i5�R4
�i��h {]445>"GCsg
handler-names
		gfilenamefice-9/boot-9.scm�
<	��	=	��	>	��	=	��		C5R
R�hM]L6Egfilenamefice-9/boot-9.scm�
�	��	�	��		
C.*5h T]45$C456Lgs
		gfilenamefice-9/boot-9.scm�
�	��		C:<_h(i]4L>"GLL6agport
		#gfilenamefice-9/boot-9.scm�
�	��		�	��	�	��		#Ch8i-13444LO5
5>"GCagkey
			4gargs			4gfilenamefice-9/boot-9.scm�
�	��			4
C44`��
�Jh0�]454545445L56�gobjcode
		-gprogram		-gfilenamefice-9/boot-9.scm�
�	��	�	��	�	&��		�	��	
�	��	�	&��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	%�	��	'�	��	+�	��	-�	��		-
C.*5h T]45$C456Lgs
		gfilenamefice-9/boot-9.scm�
�	��		C:<_h(i]4L>"GLL6agport
		#gfilenamefice-9/boot-9.scm�
�	��		�	 ��	�	��		#Ch8i-13444LO5
5>"GCagkey
			4gargs			4gfilenamefice-9/boot-9.scm�
�	��			4
C	h�H]44LL5545$_454M5�$"'454M5�$454M5�"$OO6CC@gext
	�g	candidate	�ggostat		�gt		3	jgfilenamefice-9/boot-9.scm�
�	
��	�	��	�	,��	�	��	�	��	�	��	�	��	$�	��	%	��	,	��	3	��	3	��	A�	��	H�	#��	O�	
��	S�	��	T�	��	[�	��	b�	
��	n�	����	��	�Ch_]LLO6Wgdir
		gfilenamefice-9/boot-9.scm�
�	��	�		��		CThM]L6Egfilenamefice-9/boot-9.scm�
�	
��	�	!��		
ChY-13CQgargs
			gfilenamefice-9/boot-9.scm�
�	
��			


CT`.�92���* J�"#$%&
hX�] $"4L5"�$445LL>"G"$�4>"G445L>"G44	4
55L
455445>"G4
54
54	544	556C$y454M5�$"'454M5�$454M5�"$+4
54
54	544	5L56"���"��Õggostat
	Xgcfn��gobjcode	��gprogram	��gt�!gobjcode3Pgprogram	3Pgfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�	��	!�	
��	"�	��	%�	��	+�	��	4�	��	F�	
��	G�	��	W�	��	Z�	��	`�	.��	g�	��	p�	��	q�	��	t�	��	x�	$��	z�	��	|�	��	~�	����	����	����	����	����	����	0����	����	����	&����	����	����	&����	����	����	����	����	����	����	����	����	����	����	����	���	���	���	���	����	����	#���	
��
�	���	���	���	
��%�	��&�	��*�	&��,�	��-�	��1�	&��3�	��3�	��8�	��>�	��@�	��A�	��B�	��H�	��J�	��N�	��P�	��K	X
C.*5h T]45$C456Lgs
		gfilenamefice-9/boot-9.scm�
�	��		C:<'_h(i]4L>"GLL6agport
		#gfilenamefice-9/boot-9.scm�
�	��		�	��	�	��		#Ch8i-13444LO5
5>"GCagkey
			4gargs			4gfilenamefice-9/boot-9.scm�
�	��			4
Ch h]LLOLO6`ggo-file-name
		gfilenamefice-9/boot-9.scm�
�	��	�	��		C
h�]$o445$"
44
55$";45&.4	5$4
4
54	55""M5"LLO6�gcanon
	�gfilenamefice-9/boot-9.scm�
�	
��	
�	��	�		��	g	��	g	��	 h	��	#h	!��	,h	��	0f	��	7j	��	=j	.��	Af	��	Bk	��	Lj	��	Mo	��	Rp	��	[q	��	eo	��	u�		����	��	�C#���hM]L6Egfilenamefice-9/boot-9.scm�
�	
��	�	��		
Ch�8]H4OO5KJ$D4LO5$"44O	5
LO5"$ $4>"G"6
O60g
abs-file-name
	�gscmstat	�gt		1	agcompiled		f�gfilenamefice-9/boot-9.scm�
�	��	�	��	!�	��	"�	��	1�	!��	@�	��	C�	
��	^�	��	f�	��	n�	��	t�	��	u�	����	����	����	
��	�gnameg
load-absolute�C.,()�*+2��h`�]LY4L5$4LL>7"14L5$4L4LL5>"44LL5>ZCZF�gfilenamefice-9/boot-9.scm�
�	��	
�	5��	
�		��	�	��	�		��	&�		��	0�	��	1�		��	4�	��	A�		��	F�		��	I�	��	V�		��		Z
C	hx'-.,3#HOQ�$"4�5$4>"G"�KO6gdir
		wg	file-name		wgreader			wgcompiled-extension			wg
load-absolute		!	wgt		+	Cgfilenamefice-9/boot-9.scm�
\
��	+v	��	+v	��	9w	��	>w	��	@w	��	Gv	��	Hx	��	Lx	��	Sx	��	]z	��	d{	��	w�	��		w	gnamegload-in-vicinity�g
documentationf�Load source file FILE-NAME in vicinity of directory DIR.  Use a
pre-compiled version of FILE-NAME when available, and auto-compile one
when none is available, reading FILE-NAME with READER.�C,R4XiZ4-iQ�.V�NXhW]L$L"��COgarg
		gfilenamefice-9/boot-9.scm�	
	 ��		CRhV]6Ngid
		gfilenamefice-9/boot-9.scm�		
��		Cefghqrh(V]L$L"���CNgid
		!gfilenamefice-9/boot-9.scm�	
	(��		!CN�
h�])45$
45"45$45"45$O@4	?$
O@6gx
		|gsrc			|gfile			|gdir		8	|gtmp		C	|gtmp		[	|gfilenamefice-9/boot-9.scm�
	��		��			��		��		��		)��		��		��	"	��	,	��	-	%��	8	��
		|C55R��R4ci	5�RZB��Eh0�]
45$44556C�gmodule
		,gfeatures		,gmod				,gfilenamefice-9/boot-9.scm�
K
��	L	
��		L	��	M	��	O	��	O	��	"O	?��	$O	��	(O	��	*N		��		,	gnamegcond-expand-provide�C�R4Xi�ZV�3hU]L6Mgc
		
gfilenamefice-9/boot-9.scm�	
\		��		
C�4hU]L6Mgc
		
gfilenamefice-9/boot-9.scm�	
^		��		
C�hU]4L5�CMgc
		gfilenamefice-9/boot-9.scm�	`	
��		CRhU]6Mgc
		gfilenamefice-9/boot-9.scm�	b		��		CP�4E�hz]L456rgmod
		gfilenamefice-9/boot-9.scm�
U	��	V	��	V	<��	V	��	V	��		CEh8�]4545$C45O456�gc
		3gsym			3gmod			3gfilenamefice-9/boot-9.scm�	c	��		c		��	d	��	d	��	f	$��	f	��	+W	��	3U	��			3CN�hx�]!45$LO@45$LO@45$LO@4?$	@
6�g	condition
		wgtmp		wgtmp		'	wgtmp		C	wgtmp		[	wgfilenamefice-9/boot-9.scm�
Y	��		wgnamegcondition-matches?�CVV�h �]4L5$�CLL6�g	condition
		gform		grest			gfilenamefice-9/boot-9.scm�	k	
��	
k		��	m	
��			ChE]L6=gfilenamefice-9/boot-9.scm�	n	��		
CN�hH�]45$LLO@45$O@6�gclauses
		Fg	alternate		Fgtmp			Fgtmp		*	Fgfilenamefice-9/boot-9.scm�
h	��		F	gnamegmatch�CV��hD]L�C<gfilenamefice-9/boot-9.scm�
s		��		
Chl]LO6dgclause
		gform		gfilenamefice-9/boot-9.scm�	r	��			C�N��h_]L6Wgfilenamefice-9/boot-9.scm�
w		��	x	��	x	*��	x	��		
ChZ]LLO6Rgclause
		gfilenamefice-9/boot-9.scm�	v	��		CN�
hh�]!OOQQ45$O@45$
O@	6�gx
		bgcondition-matches?		bgmatch			bgtmp		(	bgtmp		D	bgfilenamefice-9/boot-9.scm�
S	��		bC5�R�	8u`	s+h �]444555C�gnum
		gfilenamefice-9/boot-9.scm�
	��	�	��	�	��	�	��	�	,��	
�	4��	�	��	�	��	�	��	�	
��		Ch]456wgsrfis
		gfilenamefice-9/boot-9.scm�
}
��		��	~	��		gnameg	use-srfis�C�R4Xi�ZV��N�Rhi]6agtype
		garg		gfilenamefice-9/boot-9.scm�	�	��			CN��h{]L6sgtype
		garg		gfilenamefice-9/boot-9.scm�	�	��	�	,��	�	��			C3Ph^]456Vgn
		gfilenamefice-9/boot-9.scm�	�	��	�	��		CO��hx]L456pgn
		gfilenamefice-9/boot-9.scm�
�	��	�	%��	�	4��	�	%��	�	��		Cu+PV���h8]C0gtmp-bde397a-1e89
		
		
Ch.]45�C&gsrfi-n
				CN�hH�]4LO444555545$@	
6�gn
		Egtmp	#	Egtmp		.	Egfilenamefice-9/boot-9.scm�	�	
��	
�	��	�	��	�	+��	�	��	!�	��	#�	
��	#�	��			EC
hxu]45"<45"	6$4?$O@"���"���$4?$	O@"���"���mgx
		qgtmp		qgtmp			Mgfilenamefice-9/boot-9.scm�
�	��		qC5�R4Xi�Zu�V�N�Rh]6wgname
		gformals		gbody			gfilenamefice-9/boot-9.scm�	�	��			CO�P�SV������������h�F]L�LL��L	
�LLL���
L��
C>g	proc-name
	�gargs	�	�	CN�hP�]44M45554545$O@	
6�gname
		Ngformals		Ngbody			Ngtmp		#	Ngtmp		.	Ngfilenamefice-9/boot-9.scm�	�	��	�	��	
�	+��	�	$��	�	��	�	��	�	!��	#�	��			N	C	hP�]H45K45"	6$4?$O@"���"����gx
		Jgprefix		Jgtmp			Jgfilenamefice-9/boot-9.scm�
�	��	�	��	
�	#��	�	��		JC5�R4
i54JihD]L[C<gfilenamefice-9/boot-9.scm�
�	��		
COhT]L\CLgv
			gfilenamefice-9/boot-9.scm�
�	��			CO5	R4�i�i4�i5>"G4�i�i4�i
5>"G4�i�54�i>"G�i4Mi54iv�Dh0�]	4L54L>"GL6�gsym
		+gv		+gfilenamefice-9/boot-9.scm�
�	��	�	��	�	��	�		��	+�		��		+CO>"G4�i>"G4���54>"GC+%g%default-prompt-tag
�Kg%running-exception-handlers
D�g%exception-handlerD�gcustom-throw-handler	��gnext-id
-�.�gexception-printers
�V�Ogprint-location�1�Lgscm-error-printer
��Šgs
���grtd
J�M"grtd
M�Nigrtd
NrOgrtd
O#O�grtd
O�Pbgrtd
PkQgrtd
Q
Q�grtd
Q�RQgrtd
RZSgrtd
SS�grtd
S�Tbgrtd
TkUgrtd
U
U�grtd
U�VQgrtd
VZWgrtd
WW�grtd
W�XAgrtd
XJX�grtd
X�Y�grtd
Y�Z1grtd
Z:Z�grtd
Z�[�grtd
[�\2grtd
\;\�grtd
\�]�grtd
]�^!grtd
^*^�grtd
^�_qgrtd
_z`"grtd
`+`�grtd
`�argm
����gm
��tgaccessor
���groot
�]�.gm
��vgnoop��sgusing-readline?
��gm
���gfrom
��gto��gm
�6�N3gfilenamefice-9/boot-9.scm�		+	��	
	+
��		,	��		,	��		,	���	6
���	<	���	<	��N	:
���	@
��>	B
��B	I
���	W	&���	W	2���	W	&���	X	���	o	����	����	����
���
���
��!�	��&�
��U�
��\
���
�� �
��!t
��"7&
��"�.
��$)=
��%^J
��%eU
��'qY
��)dd
��*;o
��*�v
��+�x
��,�z
��-�
��-��	��.��
��.��
��/>�
��/B�
��/F�
��/J�
��/N�
��/R�
��/V�
��/Z�
��/^�
��/b�
��/c�
��/i�	��/n�
��q�U
�����
���
���
���TJ
����S
���[
���3q
���Y�
���R�
���P�
���U�
���V�	���V�
�����	���I�	����	����	����	����	����	����	����	����	���	���&	���.	���5	���>	���F	���M	���V	���^	���e	���n	���v	���}	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	���
	���	���	���%	���.	���6	���=	���F	���N	���U	���^	���f	���m	���v	���}	����	����!	����!	���N!	���W#	���_#	���#	���mM
���tM		���yM
���\a
���c
��њm
���s
���y
���
}
����
����
���i�
��ު�
����
���	�
����
����
����	����	����	>����	����	����	���	����	����	�����
���
���
��sJ
��^O
��BT
��v_
���b
���i
��
�r
��Y{
��1~
��2�
��9�		��>�
����
��
��
��_�
���
��;�
��<�
��C�	��H�
��Q�	��X�	��Z�	��^�
��_�	��f�	��k�	��x�	���	����	����	����
����	����	����	����	����
��v�
���
����
��%�
����
��6�
����
��F�
����
��V�
����
��p�
����
����
��J�
����
�� ��
��!B�
��!��
��"��
��#;�
��#��
��$��
��%3�
��%��
��&P�
��&��
��'q�
��(�
��(

��(�
��*"
��+
��,�
��-�
��.�$
��0+
��0�6
��2�9
��4�F
��5�S
��6�W
��7�\
��8*x	��8-{	(��81{	��8�}	��:��
��;	�
��=��
��@$�
��B��
��Dj�
��E
�
��F��
��F��
��F��	��F��
��F��
��J.]
��J6�	��d+�
��e
��f
��g�#
��g�+
��g�,	%��g�,	1��g�,	%��g�,
��g�-	%��g�-
��h�/
��ne7
��pVE
��q�f
��r�y
��s��
��t��
��us�
��v]�
��w/�
��x�
��x��
��zI�
��{��
��}a�
��~�	
���,	
���	(
����	,
����	4
���_	7
����	@
���|	E
����	P����	Z���[	h
����	~
���	�
���g	�
���\	�
���	�
����	�
���x	�
���K

���&

����

���Z
&
���f
/
���
A
����
D
���
G
���.
J
����
M
����
P
����
g	����
g	����
h	����
h	����
h	����
i	����
i	����
i	����
m	����
m	"����
m	���
f
���
u	���
u	���
v	���
v	���!
v	���*
w	���3
w	���8
w	���A
x	���K
x	���P
x	���Y
{	���x
t
���y

����
�
���x
�
���}
�
����
�
����
�
����
�
����
�
����
�	����
�	/����
�	����
�	���
�
����
�
���M
�
����
�
����
�
���U
�
���V
�	���]
�	���`
�	���h
�	���m
�	���v
�	���
�	#����
�	���1
�
����
����
����"
���,K
���K{
�����
�����	����
��ݨ�
����
���	���
���9	
���<;	���@;
���t=
���B
���I
����O
���{�
�����
����
��I�
��Q�	,��T�	��X�
��Y�
��f�	%��k�
��	��
��
q�
��2�
��3�
��7�
���
	��s

	��C
	��
	���
	���
	)���
	���

���
%	���
%	!���
%	���
%
���
+
��
2
��&
5
��.
8
���
:
���
=	���
=
���
>	���
>
���
?	��
?
��	
@	��
@
��
A	�� 
A
��!
C	��,
C
��-
D	��8
D
��9
E	��E
E
��F
F	��R
F
��S
G	��_
G
��`
H	��l
H
��m
L	��x
L
��g
P
���
q
��!P
�
��Nm$
��gfilenamefice-9/r6rs-libraries.scm�|	
��gfilenamefice-9/boot-9.scm��~
�����
�����
���A�
����
����	����	��� 	���# 	���( 	���1!	���;!	���@!	���I"	���R"	����"	����#	����#	���Z#	���c$	���l$	���$	���&%	���/%	����%	����&	����&	���&	���'	��� '	���4'	���=(	���F(	���M(	���V)	���_)	���f)	���z�
���7,
���88	���D7
���E;	���M;	����;	���:
���Y	���W
����\
�����	���7.	���;*
���<F	���IF
��֌K
���K}
����	����	����	����
��������	����	0����	��������
����	�����	/�����	�����
�����
���	�	#����	3����	#����	����	�����	����	����	���
�	����	����
��	�P
C6PKQ<�ZD�[��	expect.gonu�[���GOOF----LE-8-2.0{]t4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gexpect�	�		gfilenameS�	
fice-9/expect.scm�	gimportsS�	gregex�	
�	
�	�	gexportsS�	gexpect-strings�	gexpect-port�	gexpect-timeout�	gexpect-timeout-proc�	gexpect-eof-proc�	gexpect-char-proc�	gexpect-strings-compile-flags�	gexpect-strings-exec-flags�	g
expect-select�	gexpect-regexec�	�	gset-current-module�	�	�	gmake-syntax-transformer�	 �	!�	"gmacro�	#g$sc-dispatch�	$#�	%#�	&g_�	'gany�	(&'��	)g
syntax->datum�	*)�	+)�	,g
datum->syntax�	-,�	.,�	/ggensym�	0glet�	1f�	21�	3gor�	4gcurrent-input-port�	54�	635�	76�	8gif�	9glet*�	:g
secs-usecs�	;ggettimeofday�	<;�	=:<�	>=�	?g+�	@gcar�	A@:�	Bg/�	Cgcdr�	DC:�	EBDB@�	F?AE�	G9>F�	H8G�	IH�	Jg	next-char�	Kgand�	Lgnot�	M�	Ng	read-char�	Ogeof-object?�	Pgset!�	Qg
string-append�	Rgstring�	Sgcond�	Tgappend�	UT�	VT�	Wgreverse�	Xg=>�	Yglength�	Zgapply�	[g	scm-error�	\g
misc-error�	]fexpect�	^fbad recipient: ~S�	_gmap�	`gelse�	aJ�	b`a�	cb�	dgsyntax-violation�	ed�	fd�	gf-source expression failed to match any pattern�	hgregexp/newline�	ig
regexp/noteol�	jgmake-regexp�	k�	lglambda�	mgs�	ngeof?�	omn�	pgselect�	qgregexp-exec�	rgmatch:substring�	sgmatch:count�C5h`
�]4	
54>"GRRRRR4!"%(+./027IJ8KLMNOPQRSVWXYZ[\]^_@C`c$h�q-1345454545���	

���
4"�(45"�����("M��&@4�5	�$����"4�5"���"��s454 5"��V!""
���#��5�Cigclauses
		�gs	�gc		�gport		�gtimeout		�gtests	�@gexprs	�@gbody	�@gfilenamefice-9/expect.scm�
	1
��	
	2	��		3	��		4	��		5	��		2	��	'	6	���	O	���	R	���	T	���	W	���	X	���	Z	���	Z	���	[	*���	[	���	\	#���	]	(���	]	5���	[	���	^	/���	^	7���	^	/���	^	,���	^	#��	e	'��	e	1��	f	2��	e	'��	`	'��	`	2�� 	a	2��"	b	2��%	c	8��(	c	2��+	`	'��2	h	#��3	Z	��6	Y	��@	V	��@	O	��A	O	)��J	P	)��S	Q	(��]	O	��_	6	��/		�


Chd]	45L4?6\gargs
		gv			gfilenamefice-9/expect.scm�		1
��		Cfgh(b]	45$O@6Zgy
		'gtmp		'gfilenamefice-9/expect.scm�
	1
��		'C5RhiRiiR4!"%(+.0W/jklo_@C
h��-13"a(4545�"c45������	�����"���4
54
5"���C�gclauses
		�gtests		pgexprs			pgdefs			pgbody			pgrxname		2	pgfilenamefice-9/expect.scm�
	x
��		y	��		y	
��		}	��		~	��		~	(��		~	3��	&	~	(��	)	~	��	.�	!��	2�	��	7�	 ��	:�	 ��	>�	&��	A�	2��	C�	&��	K�	 ��	M�	&��	]�	*��	^�	&��	a�	 ��	m�	��	p	y	
��	q	y	!��	z	z	!���	{	 ���	|	 ���	y	
���	y	��		�


Chd]	45L4?6\gargs
		gv			gfilenamefice-9/expect.scm�		x
��		Cfgh(b]	45$O@6Zgy
		'gtmp		'gfilenamefice-9/expect.scm�
	x
��		'C5R;ph@L]45���B@��
�$45��CCDgport
		:gtimeout		:g
secs-usecs			:grelative			:gfilenamefice-9/expect.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	#�		��	'�	��	(�	��	/�	��	0�	)��	1�	-��	5�	��	6�	��	7�		��		:	gnameg
expect-select�CRiqrsh��]#""$$�$	�""���""���4
5$7""
�$C�45�"���45�"���C|grx
		gs		geof?			gflags		0	gmatch		>	gi		J	lgresult		J	lgfilenamefice-9/expect.scm�
�
��	�	��	�	��	�	��	 �	��	0�	��	3�	��	>�	��	F�	��	J�	��	N�	
��	R�	��	X�	*��	Y�	��	d�	��	l�	��	m�	��	t�	��	u�	��	}�	��			gnamegexpect-regexec�CRC�gm
		,gfilenamefice-9/expect.scm�		
��	0	)
��	4	*
��	8	+
��	<	,
��	@	-
���	s
���	t
��7�
��
W�
��	
Y
C6PKQ<�Zީ��top-repl.gonu�[���GOOF----LE-8-2.0�
]C4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gtop-repl�	�		gfilenameS�	
fice-9/top-repl.scm�	gimportsS�	�	
gsystem�	grepl�	
�	gselectS�	g
start-repl�	�	�	�	greplacementsS�	�	gset-current-module�	�	�	g	provided?�	gposix�	g	sigaction�	gSIGINT�	g	scm-error�	gsignal�	 fUser interrupt�	!gcall-with-sigint�	"gresolve-module�	#g
guile-user�	$#�	%gprocess-use-modules�	&gappend�	'gr5rs�	('�	)(�	*gsession�	+*�	,+�	-),�	.gregex�	/.�	0/�	10�	2gthreads�	32�	43�	54�	6gdefined?�	7g	setlocale�	8gcatch�	9gsystem-error�	:gLC_ALL�	;f�	<gformat�	=gcurrent-error-port�	>f'warning: failed to install locale: ~a~%�	?gstrerror�	@gcurrent-language�	Agrun-hook�	Bg	exit-hook�C5h	�]4	
54>"G4i5$ h]6wgsig
		gfilenamefice-9/top-repl.scm�
	$	��		%	#��			%	.��	
	%	?��		&	#��		%	��		ChU]45NCMgfilenamefice-9/top-repl.scm�
	!	��		#	��	
	"	��		
Ch m]M$M�M�66egfilenamefice-9/top-repl.scm�
	(	��		)	��		+	$��		+	2��		+	��		-	��		
Ch m]M$M�M�66egfilenamefice-9/top-repl.scm�
	(	��		)	��		+	$��		+	2��		+	��		-	��		
Ch m]M$M�M�66egfilenamefice-9/top-repl.scm�
	(	��		)	��		+	$��		+	2��		+	��		-	��		
Ch`}]	HOO4O>"GV4>X4O>"GCX4O>"GFugthunk
		_ghandler		_gfilenamefice-9/top-repl.scm�
		��			��		 	
��		_C"xha]6Ygthunk
		gfilenamefice-9/top-repl.scm�
		��			��		C!R"$%&-.125!67897:;hU]6Mgfilenamefice-9/top-repl.scm�
	D	��		E	"��	
	E	��		

C<=>?h�]454�56�gkey
		gsubr		gfmt			gargs			gerrno			gfilenamefice-9/top-repl.scm�
	F	��		G	��		H	��		I	��		I	"��		I	��		G	��			C@ABhH�]45$4>"G"44554	
>"GC�gstatus
	1	Hgfilenamefice-9/top-repl.scm�
	A	��		B	��		B	��			B	��	
	B	��		C	��		C	��		C	��	(	K	��	+	K	!��	1	K	��	1	K	��	4	L		��		H
Ch`1]454>"G4445$	"4
5$"5>"G
6)gguile-user-module
			^gfilenamefice-9/top-repl.scm�
	/
��		0	��		0	+��			0	��			0	��		4	��		5	��	!	6	��	%	7	��	&	9	
��	*	9	��	,	9	
��	0	9	��	2	:	
��	7	;	
��	8	<	
��	<	<	��	>	<	
��	B	<	��	D	=	
��	I	>	
��	K	6	��	P	5	��	^	@	��		^
gnamegtop-repl�CRC~gm
		,gfilenamefice-9/top-repl.scm�		
��	-		��	3		��	5		��	9		���	
��		/
��		
C6PKQ<�ZV쇸H�Hcommand-line.gonu�[���GOOF----LE-8-2.0�H]�4hg]gguile�	�	gdefine-module*�	�	�	gice-9�	gcommand-line�	�		gfilenameS�	
fice-9/command-line.scm�	gexportsS�	gcompile-shell-switches�	
gversion-etc�	g*GPLv3+*�	g	*LGPLv3+*�	gemit-bug-reporting-address�	
�	g	autoloadsS�	gsystem�	gvm�	�	gset-default-vm-engine!�	gset-vm-engine!�	gthe-vm�	�	�	gset-current-module�	�	�	ggettext�	g_�	 f�License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.�	!f�License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.�	"gportS�	#"	��	$gcopyright-yearS�	%$	��	&gcopyright-holderS�	'&	��	(g	copyrightS�	)(	��	*glicenseS�	+*	��	,gcommand-nameS�	-,	��	.gpackagerS�	/.	��	0gpackager-versionS�	10		��	2#%')+-/1�	3gcurrent-output-port�	4fFree Software Foundation, Inc.�	5gformat�	6fCopyright (C) ~a ~a�	7f~a (~a) ~a
�	8f~a ~a
�	9fPackaged by ~a (~a)
�	:fPackaged by ~a
�	;gdisplay�	<gnewline�	=gurlS�	>=	��	?.	��	@gpackager-bug-addressS�	A@	��	B#>?A�	Cg
string-append�	Dfhttp://www.gnu.org/software/�	Ef/�	Ff
Report bugs to: ~a
�	GfReport ~a bugs to: ~a
�	Hf~a home page: <~a>
�	If?General help using GNU software: <http://www.gnu.org/gethelp/>
�	Jf�Evaluate code with Guile, interactively or from a script.

  [-s] FILE      load source code from FILE, and exit
  -c EXPR        evalute expression EXPR, and exit
  --             stop scanning arguments; run interactively

The above switches stop argument processing, and pass all
remaining arguments as the value of (command-line).
If FILE begins with `-' the -s switch is mandatory.

  -L DIRECTORY   add DIRECTORY to the front of the module load path
  -C DIRECTORY   like -L, but for compiled files
  -x EXTENSION   add EXTENSION to the front of the load extensions
  -l FILE        load source code from FILE
  -e FUNCTION    after reading script, apply FUNCTION to
                 command line arguments
  --language=LANG  change language; default: scheme
  -ds            do -s script at this point
  --debug        start with the "debugging" VM engine
  --no-debug     start with the normal VM engine (backtraces but
                 no breakpoints); default is --debug for interactive
                 use, but not for `-s' and `-c'.
  --auto-compile compile source files automatically
  --fresh-auto-compile  invalidate auto-compilation cache
  --no-auto-compile  disable automatic source file compilation;
                 default is to enable auto-compilation of source
                 files.
  --listen[=P]   listen on a local port or a path for REPL clients;
                 if P is not given, the default is local port 37146
  -q             inhibit loading of user init file
  --use-srfi=LS  load SRFI modules for the SRFIs in LS,
                 which is a list of numbers like "2,13,14"
  -h, --help     display this help and exit
  -v, --version  display version information and exit
  \              read arguments from following script lines�	Kg*usage*�	Lgcurrent-error-port�	Mgapply�	Nf Usage: ~a [OPTION]... [FILE]...
�	Of	GNU Guile�	Pfbug-guile@gnu.org�	Qf"http://www.gnu.org/software/guile/�	Rgassq-ref�	Sg%guile-build-info�	Tgpackager�	Ugpackager-bug-address�	Vgexit�	Wgshell-usage�	Xgcurrent-language�	Ygscheme�	Zgcall-with-input-string�	[gread�	\geof-object?�	]geval�	^gcurrent-module�	_g
module-ref�	`gresolve-module�	ageval-string�	ba�	cgeval-string/lang�	dgload-in-vicinity�	eggetcwd�	fgbase�	ggcompile�	hfg�	igcompile-file�	jgtoS�	kgvalue�	lg	load/lang�	mfguile�	ngstring-prefix?�	of-�	pgstring=?�	qf-s�	rferror: �	sfmissing argument to `-s' switch�	tf~%�	ug@@�	vul�	wf-c�	xfmissing argument to `-c' switch�	yuc�	zf--�	{f-l�	|fmissing argument to `-l' switch�	}f-L�	~fmissing argument to `-L' switch�	f-C��fmissing argument to `-C' switch��f-x��fmissing argument to `-x' switch��f-e��fmissing argument to `-e' switch��gopen-input-string��gmemq��g@���u��gand-map��gsymbol?��gmain�����f--language=��gquote��gstring->symbol��g	substring��f
--language��f'missing argument to `--language' option��f-ds��f)the -ds switch may only be specified once��f--debug��f
--no-debug��f--auto-compile��g%load-should-auto-compile��f--fresh-auto-compile��g%fresh-auto-compile��f--no-auto-compile��f-q��f--use-srfi=��gmap��gstring->number��finvalid SRFI specification��gexact?��ginteger?��gstring-split��g	use-srfis��f--listen��grepl��gserver������gspawn-server��u�������f	--listen=��finvalid port for --listen��gmake-tcp-server-socket��u����gmake-unix-domain-server-socket��u����gpathS��funknown argument to --listen��f-h��f--help��f-v��f	--version��gversion��gpackager-version��funrecognized switch ~a��f1the `-ds' switch requires the use of `-s' as well��gset-program-arguments��gdebug��gcontrol�����g%�������gbegin��gappend��������gload-user-init��������gset!��g%load-extensions��gcons�����g
%load-path�����g%load-compiled-path�����greverse!�������gtop-repl�������������gquit�����g
string-rindex�C5h@.�]4	
54>"GiR4i 5R4i!5R23456789:;<hH�-/
0
3
#45#�##45###	#	$4>"G"4>"G$F	$!44	
5	>"G"44	5>"G"4>"G4
>"G4
>"G4>"G
6�gpackage
	Hgversion	Hgport		Hgcopyright-year		Hgcopyright-holder		Hg	copyright		Hglicense		Hgcommand-name		Hgpackager		Hgpackager-version			H
gfilenamefice-9/command-line.scm�
	A
��		B	��	3	E	(��	<	F	!��	A	F	,��	G	F	!��	t	K	��	u	L	��	{	L	���	L	���	M	���	M	���	M	���	O	���	P	���	Q	
���	Q	���	Q	���	Q	���	Q	
���	R	
���	R	���	R	���	R	���	R	
���	T	��	U	��	V	��/	W	��H	X	��	H	
gportS	�gcopyright-yearS	�gcopyright-holderS	�g	copyrightS	�glicenseS	�gcommand-nameS	�gpackagerS	�gpackager-versionS		�	gnamegversion-etc�C
RB3CDE5FGHIh�#-/03#45#
45##445>"G$+$!44	5>"G""44
5>"G456gpackage
	�gbug-address	�gport		�gurl		�gpackager		�gpackager-bug-address		�gfilenamefice-9/command-line.scm�
	]
��		^	+��	'	_	*��	+	`	+��	/	b	+��	1	_	*��	F	d	��	K	d	��	O	d	��	Q	d	��	X	d	��	f	e	��	l	e	��	m	f	��	r	f	��	v	f	��	x	f	���	f	���	g	���	g	���	g	���	g	���	g	���	i	
���	i	
���	i	
���	h	��	�	
gportS	�gurlS	�gpackagerS	�gpackager-bug-addressS	�gnamegemit-bug-reporting-address�CR4iJ5KRL3M5<N;KOP"=Q.RST@UVh��-.13#$	45"45$.4>"G4>"G"445>"G4	>"G4>"G4

4545>
"G$6C�gname
	�gfatal?	�gfmt		�gargs		�gport		)�gfilenamefice-9/command-line.scm�
�
��	�	��	�	��	%�	��	)�	��	1�	��	2�	��	J�	��	`�	��	e�	��	i�	��	k�	��	r�	��	{�	����	����	����	����	����	����	����	,����	����	����	!����	����	����	����	��	�		gnamegshell-usage�CWRXYZ[\]^h@�]	"14545$C445>"G"���"����gport
		;gexp	
	7gfilenamefice-9/command-line.scm�
�	��	�	��	�	��	
�	
��	�	��	�	��	�	��	"�	��	+�	��	7�	��	7�	��		;C_`ba	h0�]	45�$644556�gstr
		,gkey		,gfilenamefice-9/command-line.scm�
�
��	�	��	�	��	�	��	�	��	�	��	"�	"��	$�	��	&�	8��	(�	��	,�	��		,gnamegeval-string/lang�CcRXYde_`hijkh8�]	45�$4564455	
6�gf
		3gkey		3gfilenamefice-9/command-line.scm�
�
��	�	��	�	��	�	��	�	��	�	��	!�	��	%�	"��	'�	��	)�	:��	+�	��	1�	
��	3�	��		3gnameg	load/lang�ClRmnopqWCrstvwxyz{|}~������[\�������X������������������WCr�t��	hX�]	45"M456$-45$45$
�$C"���"���"���"����gx
		Xgn			Xgfilenamefice-9/command-line.scm�
i	��	j	)��		j	 ��	�	
��	�	��	m	-��	�	*��	�	
��	!�	��	!k	"��	(k	-��	2k	&��	3k	8��	=k	&��	Ak	E��	Ek	&��		XC������������"E�����V��
O�*,.RST0�������������he]��C]gext
		gfilenamefice-9/command-line.scm�
�	��	�	��		C����hf]��C^gpath
		gfilenamefice-9/command-line.scm�
�	��	�	��		C����hf]��C^gpath
		gfilenamefice-9/command-line.scm�
�	��	�	��		C�����lhH�-.,3H#KHH
H	HHHHHHH"�(

"���45$D45$]("4J4	
5>"G"�KKJ$JJ��

"%�J
�
"45$A("4J4

5>"G"K��
�
"�45$

"�45$>("4J4
5>"G"��
�
"���45$=("4J4
5>"G"�J�K�

"��q45$=("4J4
5>"G"�J�K�

"��'45$=("4J4
5>"G"�J�K�

"���45$�("4J4
5>"G"4�5454545$?�$24�5$"	4 5$!"��"""	!K�

"��!4#5$%$%4&4'	55
�
"���4(5$H("4J4)
5>"G"�$%4&�5
�
"���4*5$@J$"4J4+
5>"G"KJ�
�
"��M4,5$K
K

"��.4-5$KK


"��4.5$ /

"���405$ / 1

"���425$ /

"���435$K	

"���445$_456O474'	5,55("4J48
5>"G"9%
�
"��04:5$;
�
"��4<5$�4'		54=5$c"4J4>
55"D4?5$54@5$"
�$ABC""���""���""���"24D5$AEF"4J4G
55
�
"��E4H5$"	4I5$4J>"GJ
64K5$"	4L5$:4MN4O5PQRS4TUV5W4TUX5>
"GJ
6J4Y
56KKJ$JJ�

"J
�
""J$-J�$"4J4Z
5>"G"4�>"GJ
$"J$J�"$-4\]>"G4^4_5]>"G"`a4bJ$J	$"c"4b45dJ54b45eJ54b45fJ54b4g
54bJ$Jh�"J$i"j555555�C�$7�K4kJ/5$4'J�5"JK�
"��
"����gargs
	Hg
usage-name	Hgarg0		&Hgscript-cell		&Hgentry-point		&Hguser-load-path		&Hguser-load-compiled-path		&Hguser-extensions		&Hginteractive?		&Hginhibit-user-init?			&Hgturn-on-debugging?	
	&Hgturn-off-debugging?		&Hgargs		>�gout	
	>�garg		V�gargs		V�gport	�garg1	�
garg2	�
gsrfis	�gwhere	B�gt	K�gt	gt	@Ygargs	��gout	
��gt	+Igslash	1gfilenamefice-9/command-line.scm�
�
��	�	=��	�	��	 �	��	!�	!��	"�	��	&�	��	>�	��	D�	��	P�	��	S�	��	V�	��	V�	��	[�	��	_�	!��	c�	��	g�	
��	h�	��	n�	��	p�	��	t�	
��	z�	��	{�	����	
����	����	����	*����	
����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	
����	����	����	
����	����	����	*����	
����	��	�	���	���	���	���	���	���	�� �	��&�	��(�	��,�	
��8�	��9	��?	��A	��E�	
��K	��L�	��R�	
��V�	��X	��Z�	*��\�	
��a�	��p	��r	��u	@��x	��{	���	���	���	���	����	
���	����	����	
����	���		����	*����	
����	���
	'���
	!���
	���	���	���	���	���	����	
���	����	����	
����	���	����	*����	
����	��	��	��
	��
	��	��	��	�� 	��$�	
��*	��+�	��1�	
��5�	��7	��9�	*��;�	
��@�	��O	(��R	"��T	��W	��a	��b	��h	��j	��n�	
��t	��u�	��{�	
���	���	����	*����	
����	��� 	��� 	,��� 	��� 	���!	��� 	���"	��� 	���'	���&	���)	���&	���*	 ���*	&���*	 ���)	���+	���)	���,	���(	��%	��/	��/	��2	��"2	��&2	��*�	
��.4	��15	��46	��:6	-��<6	��>5	��A4	��G4	��O3	��P9	��T9	��X9	��\�	
��b:	��c�	��i�	
��m�	��o;	��q�	*��s�	
��x�	���<	���=	���=	.���=	>���=	.���=	���=	���<	���@	���@	���@	����	
���C	����	����	
����	���D	����	*����	
����	���E	���E	���G	���G	���F	���K	���K	���K	����	
��L	��M	��N	��P	��P	��P	���	
�� Q	��#R	��/S	��0W	��6W	��8W	��<�	
��?X	��KY	��L[	��R[	��T[	��X�	
��[\	��^]	��j^	��k`	��q`	��s`	��w�	
��za	���b	���d	���d	���d	����	
���e	���f	���h	���h	���h	����	
���i	���n	���n	,���n	���i	���i	���o	����	����	
����	���p	����	*����	
����	���r	��r	��q	��t	��t	��t	���	
��v	��"v	��*u	��+x	��/x	��3x	��7�	
��:|	��B|	��E~	��K}	��X�	��^�	
��b�	��d�	"��f�	*��h�	
��j�	��n�	��o�	 ��y�	��z�	0����	����	>����	����	����	����	"����	���}	����	����	����	
����	����	����	*����	
����	���{	
���y	����	���	���	���	���	$���	2���	$���	
�� �	��7�	��8�	��>�	��@�	��@�	��N�	$��T�	2��V�	$��]�	
��^�	��b�	��c�	%��o�	(��r�	$��x�	@��z�	$��}�	����	5����	����	����	����	
����	����	����	*����	
����	����	����	����	����	����	����	����	����	����	����	����	"����	����	����	
����	����	���	*���	
���	���	���	��!�	��+�	
��>�	��A�	 ��M�	��N�	��R�	$��W�	��`�	��c�	��i�	%��n�	��|�	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	����	���	
���	��	�	���	���	���	���	���	��$�	.��&�	��.�	��4�	��5�	��=�	��@�	��H�	
���	Hgnamegcompile-shell-switches�CRC�gm
		,gfilenamefice-9/command-line.scm�		!
��	3	*
��	4	-	��	:	-	��	<	-	��	?	,
��	@	2	��	F	2	��	H	2	��	K	1
���	A
���	]
���	l	���	l	���	l	���	k
��
��
��

�
��V�
��.>�
��	.@
C6PKQ<�Z�>���q.gonu�[���GOOF----LE-8-2.0�]"4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gq�	�		gfilenameS�	
fice-9/q.scm�	gexportsS�	gsync-q!�	
gmake-q�	gq?�	gq-empty?�	g
q-empty-check�	gq-front�	gq-rear�	g	q-remove!�	gq-push!�	genq!�	gq-pop!�	gdeq!�	gq-length�	

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

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

$
@45$@45$@45

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

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

$
@45$@45$@45

$
@45$@45$@4 5$!@"#6�gx
	{gtmp	{gtmp		"{gtmp		9{gtmp		P{gtmp		g{gtmp		~{gtmp	�{gtmp	�{gtmp		�{gtmp	
�{gtmp	�{gtmp	{gtmp	
{gtmp	6{gtmp	M{gtmp	d{gfilenamefice-9/match.upstream.scm�
�	��	{g
macro-typegsyntax-rules�gpatternsg?gpredgp��gx�g$grecgp��gx�g=gprocgpgx�gquotegxgkg...gigvg
quasiquotegxgkgigvgandgp�gx�gorgp�gx�gnotgp�gx�gpgqgr��gkgigvgpgq�gkgigvgpg...gx�g_gkg...gigvg___gkg...gigvg***gkg...gigvg..1gkg...gigvgpgkg...gig...gvC5LR4~ ��r�Nh(�]454455C�gdummy
		'gp		'gk			'gi			'gv			'gv2			'gv2-ls			'		'	CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
�	��		"g
macro-typegsyntax-rules�gpatternsgpgkgigvgv2gv2-lsg...C5~R49 ���hx]�Cpgdummy
		gx		gk			gi			gv			gd						C���hx]Cpgdummy
		gx		gk			gi			gv			gd						C�	hi]Cagdummy
		gx		gk			gi			gv						Chx]Cpgdummy
		gx		gk			gi			gv			gd						C#%h �]����Cgdummy
		gx		gy			gk			gi			gv			gd						C&0hx]Cpgdummy
		gx		gk			gi			gv			gd						C1rhx]6pgdummy
		
gx		
gk			
gi			
gv			
gd			
		
	CCDh�3]945$@45$@45$@45$	@4
5$@45$
@45$@6+gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp		~�gtmp	��gfilenamefice-9/match.upstream.scm�
�	��	�g
macro-typegsyntax-rules�gpatternsg
quasiquotegxgkgigvgdgunquote-splicinggxgkgigvgdgunquotegxgkgigvgunquotegxgkgigvgd�gxgy�gkgigvgd�gxg...gkgigvgd�gxgkg...gigvgd�C59R4$ 2Fr�Nh0�,3454455C�gdummy
		-gx		-gk			-gi			-gv			-gd			-gv2			-gv2-ls			-		-	CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
		��		"g
macro-typegsyntax-rules�gpatternsgxgkgigvgdgv2gv2-lsg...C5$R4 �VYZX��h T]45��CLgdummy
		gpattern		gbody						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
	��		"g
macro-typegsyntax-rules�gpatternsgpatterngbody�g...C5R4
 �hij��h T]45��CLgdummy
		gpattern		gbody						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
	��		"g
macro-typegsyntax-rules�gpatternsgpatterngbody�g...C5
R4 l~�Nh c]45�����C[gdummy
		gvar		gvalue			gbody						C���Nht]45���Clgdummy
		gloop		gvar			ginit			gbody						CCDh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
)	��		9g
macro-typegsyntax-rules�gpatternsgvargvalueg...gbody�gloopgvarginitg...gbody��C5R4 l���Nh c]45�����C[gdummy
		gvar		gvalue			gbody						CCDh(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/match.upstream.scm�
3	��		"g
macro-typegsyntax-rules�gpatternsgvargvalueg...gbody�C5R4m ��Nhs]45��Ckgdummy
		glet		gvar			gexpr			gbody						C��N�h(�]4545��C�gdummy
		$glet		$gvar			$gexpr			$gpat			$gtmp			$gbody			$		$	C��r��h8�,	3	454��5�����C�gdummy
		7glet		7gv			7gp			7ga			7gb			7gexpr			7grest			7gbody			7			7		C��r���h@�,345445�5�����C�gdummy
		9glet		9gv			9gp			9ga			9gexpr			9grest			9gbody			9		9	C��rh(�,345�����C�gdummy
		'glet		'gv			'gp			'ga			'gexpr			'grest			'gbody			'		'	CCDh�H])45$@45$@45$@45$	@4
5$@
6@gx
		~gtmp		~gtmp		"	~gtmp		9	~gtmp		P	~gtmp		g	~gfilenamefice-9/match.upstream.scm�
8	��		~g
macro-typegsyntax-rules�gpatternsgletgvargexprg...gbody����gletgvargexprg...gpatgtmpg...gbody����gletgvg...gpg...gagb�gexprgrest�gbody����gletgvg...gpg...gag...gexprgrest�gbody����gletgvg...gpg...gagexprgrest�gbody����C5mR4� ��Nh(�]4545��C}gdummy
		&gloop		&gpat			&gexpr			&gvar			&gbody			&		&	C!r#h(�]4��5����C�gdummy
		!gloop		!gv			!gpat			!gexpr			!grest			!gbody			!		!	CCDh@]45$@45$@6gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
I	��		9g
macro-typegsyntax-rules�gpatternsgloopgpatgexprgvarg...gbody���gloopgvg...gpatgexprgrest�gbody���C5�R4 $2h?]�C7gdummy
		gbody					C3>?ht]��Clgdummy
		gpat		gexpr			grest			gbody						CCDh@�]45$@45$@6�gx
		9gtmp		9gtmp		"	9gfilenamefice-9/match.upstream.scm�
X	��		9g
macro-typegsyntax-rules�gpatternsgbody�gpatgexprgrest�gbody�C5R40 @hy]Cqgdummy
		ga		gb			g	success-k			g	failure-k						CAhj]Cbgdummy
		ga		g	success-k			g	failure-k						C"SUVX[\af	h8k]������Ccgdummy
		3gid		3g	success-k			3g	failure-k			3		3	CCD
hP3]45$@45$@45$@	6+gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/match.upstream.scm�
l	��		Pg
macro-typegsyntax-rules�gpatternsgagb�g	success-kg	failure-kgag...g	success-kg	failure-kgidg	success-kg	failure-kC50R4 @hy]Cqgdummy
		gx		gy			g	success-k			g	failure-k						CAhj]Cbgdummy
		gx		g	success-k			g	failure-k						C"vxy|}��h0j]������Cbgdummy
		.gx		.g	success-k			.g	failure-k			.		.	CCD
hP2]45$@45$@45$@	6*gx
		Pgtmp		Pgtmp		"	Pgtmp		9	Pgfilenamefice-9/match.upstream.scm�
�	��		Pg
macro-typegsyntax-rules�gpatternsgxgy�g	success-kg	failure-kgxg...g	success-kg	failure-kgxg	success-kg	failure-kC5RCYgm
		(gfilenamefice-9/match.scm�		
���	
��	�j
C6PKQ<�Z��ew((
syncase.gonu�[���GOOF----LE-8-2.0]4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gsyncase�	�		gfilenameS�	
fice-9/syncase.scm�	gexportsS�	gdatum->syntax-object�	
gsyntax-object->datum�	g	sc-expand�	
�	gset-current-module�	�	�	gissue-deprecation-warning�	fbSyntax-case macros are now a part of Guile core; importing (ice-9 syncase) is no longer necessary.�	g
datum->syntax�	g
syntax->datum�	gmacroexpand�C5hX~]4	
54>"G4i>"GiRi
RiRCvgm
		(gfilenamefice-9/syncase.scm�		
��	)	
��	/	��	4	
��	C	
��	J	
��	Q	
��		S
C6PKQ<�Z\��!�!
string-fun.gonu�[���GOOF----LE-8-2.0z!]-4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	g
string-fun�	�		gfilenameS�	
fice-9/string-fun.scm�	gexportsS�	gsplit-after-char�	
gsplit-before-char�	gsplit-discarding-char�	gsplit-after-char-last�	gsplit-before-char-last�	gsplit-discarding-char-last�	gsplit-before-predicate�	gsplit-after-predicate�	gsplit-discarding-predicate�	gseparate-fields-discarding-char�	gseparate-fields-after-char�	gseparate-fields-before-char�	gstring-prefix-predicate�	gstring-prefix=?�	gsans-surrounding-whitespace�	gsans-trailing-whitespace�	gsans-leading-whitespace�	gsans-final-newline�	ghas-trailing-newline?�	
�	 gset-current-module�	! �	" �	#gstring-index�	$g
string-length�	%g	substring�	&f�	'g
string-rindex�	(g
string-ref�	)greverse�	*gstring=?�	+gchar-whitespace?�	,gchar=?�C5h ]4	
54">"G#$%h@�]45$�"454
5456�gchar
		=gstr		=gret			=gt			$gend		$	=gfilenamefice-9/string-fun.scm�
	a
��		c	��		b	
��		d	��	$	b	��	)	e		��	3	f		��	=	e	��			=	gnamegsplit-after-char�CR#$%h@�]45$"454
5456�gchar
		<gstr		<gret			<gt			#gend		#	<gfilenamefice-9/string-fun.scm�
	h
��		i	��		i	
��		j	��	#	i	��	(	k		��	2	l		��	<	k	��			<	gnamegsplit-before-char�C
R#%&h8�]45$4
54�566�gchar
		3gstr		3gret			3gend			3gfilenamefice-9/string-fun.scm�
	n
��		o	
��		o	��		p	��		r	
��	 	s	
��	'	s	��	)	s	
��	+	r	��	1	q	��	3	q	��		3	gnamegsplit-discarding-char�CR'%h8�]45$�"
4
5456�gchar
		7gstr		7gret			7gt			gend			7gfilenamefice-9/string-fun.scm�
	u
��		w	��		v	
��		v	��	#	y		��	-	z		��	7	y	��		7	gnamegsplit-after-char-last�CR'%h8�]45$"
4
5456�gchar
		6gstr		6gret			6gt			gend			6gfilenamefice-9/string-fun.scm�
	|
��		}	��		}	
��		}	��	"	~		��	,			��	6	~	��		6	gnamegsplit-before-char-last�CR'%&h8]45$4
54�566gchar
		3gstr		3gret			3gend			3gfilenamefice-9/string-fun.scm�
�
��	�	
��	�	��	�	��	�	
��	 �	
��	'�	��	)�	
��	+�	��	1�	��	3�	��		3	gnamegsplit-discarding-char-last�CR$&(%hX>]"H45�$64455$4
5456�"���
"���6gpred
		Ugstr		Ugret			Ugn			Ngfilenamefice-9/string-fun.scm�
�
��	�	��		�	��	�	��	�	��	�	1��	�	(��	�	��	 �	��	*�	��	.�	��	1�	-��	;�	-��	E�	(��	H�	.��	N�	(��	N�	��		U	gnamegsplit-before-predicate�CR$&(%hXa]"J45�$64455$4
�54�56�"���
"���Ygpred
		Wgstr		Wgret			Wgn			Pgfilenamefice-9/string-fun.scm�
�
��	�	��		�	��	�	��	�	��	�	1��	�	(��	�	��	 �	��	*�	��	.�	��	1�	-��	9�	>��	;�	-��	<�	-��	C�	<��	E�	-��	G�	(��	J�	.��	P�	(��	P�	��		W	gnamegsplit-after-predicate�CR$&(%hXT]"I45�$64455$4
54�56�"���
"���Lgpred
		Vgstr		Vgret			Vgn			Ogfilenamefice-9/string-fun.scm�
�
��	�	��		�	��	�	��	�	��	�	1��	�	(��	�	��	 �	��	*�	��	.�	��	1�	-��	;�	-��	B�	<��	D�	-��	F�	(��	I�	.��	O�	(��	O�	��		V	gnamegsplit-discarding-predicate�CR'%hPO]"845$4�5�4
5"���@"���Ggch
		Igstr		Igret			Igfields			>gstr			>gt			>gfilenamefice-9/string-fun.scm�
�
��	�	��	�	��	�	��	�	!��	�	0��	!�	!��	$�	��	%�	��	6�	��	>�	��	>�	��	?�	��	I�	��		I	gnamegseparate-fields-discarding-char�CR)#%hXe]"A45$ 4
�5�4�5"���4?""���6]gch
		Vgstr		Vgret			Vgfields			Igstr			Igt			Igfilenamefice-9/string-fun.scm�
�
��	�	��		�	��	�	��	�	"��	"�	3��	$�	"��	'�	��	(�	��	/�	*��	1�	��	9�	��	:�	��	I�	��	J�	��	T�	��	V�	��		V	gnamegseparate-fields-after-char�CR'%hH9]"745$45�4
5"���@"���1gch
		Hgstr		Hgret			Hgfields			=gstr			=gt			=gfilenamefice-9/string-fun.scm�
�
��	�	��	�	��	�	��	�	!��	#�	��	$�	��	5�	��	=�	��	=�	��	>�	��	H�	��
		H	gnamegseparate-fields-before-char�CR$%h0�]4545�$L4
4556C�gprefix
		,gstr		,gfilenamefice-9/string-fun.scm�
�	��	�	
��	
�	$��	�		��	�	��	�	��	 �	(��	(�	��	*�		��
		,	Ch]OCwgpred?
		
gfilenamefice-9/string-fun.scm�
�
��		
gnamegstring-prefix-predicate�CR4i*i5R$+(&%h��]
45HH"9"1J45�$44J55$	J�K"���"""���"���"4",
J�$ 44J�55$	J�K"���"""���"���JJ�$CJJ6�gs
	�gst	
�gend		
�gfilenamefice-9/string-fun.scm�
�
��	�	
��	
�	��	�	��	�	��	 �	��	$�	��	%�	��	(�	"��	2�	��	6�	��	9�	��	;�	��	?�	��	S�	��	[�	��	_�	��	`�	��	c�	"��	j�	0��	l�	"��	n�	��	r�	��	u�	��	w�	��	{�	����	����	����	����	��	�gnamegsans-surrounding-whitespace�CR$+(&%h`.]	45H"4",
J�$ 44J�55$	J�K"���"""���"���J
�$C
J6&gs
		[gend			[gfilenamefice-9/string-fun.scm�
�
��	�	
��		�	��	�	��	�	��	�	��	�	��	�	"��	&�	0��	(�	"��	*�	��	.�	��	1�	��	3�	��	7�	��	K�	��	O�	��	Q�	��	[�	��		[gnamegsans-trailing-whitespace�CR$+(&%h`4]
45H"4",J�$44J55$	J�K"���"""���"���J�$CJ6,gs
		`gst	
	`gend		
	`gfilenamefice-9/string-fun.scm�
�
��	�	
��	
�	��	�	��	�	��	�	��	�	��	 �	��	#�	"��	-�	��	1�	��	4�	��	6�	��	:�	��	O�	��	S�	��	U�	��	`�	��		`gnamegsans-leading-whitespace�CR$,(%h@�]
45�$C4
445�55$
45�6C�gstr
		>gfilenamefice-9/string-fun.scm�
�
��	�		��	�	��	�	��	�	��	�	��	�	%��	$�	!��	&�	��	(�	��	,�	��	2	��	9	��	;	��		>gnamegsans-final-newline�CR$,(h(�]
45�$
445�56C�gstr
		&gfilenamefice-9/string-fun.scm�

��		��		��		��			��			(��	 		$��	"		��	$		��
		&gnameghas-trailing-newline?�CRCgm
		(gfilenamefice-9/string-fun.scm�		
��s	a
���	h
��		n
��H	u
���	|
����
��	��
��l�
��
7�
����
����
��\�
����
����	���
��w�
��!�
����
���
��
��	 
C6PKQ<�Zw�fImmiconv.gonu�[���GOOF----LE-8-2.0U]34h�]gguile�	�	gdefine-module*�	�	�	gice-9�	giconv�	�		gfilenameS�	
fice-9/iconv.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	�	gbinary-ports�	�	�	grdelim�	�	gselectS�	gread-string�	�	�	�	gexportsS�	gstring->bytevector�	gbytevector->string�	gcall-with-encoded-output-string�	�	gset-current-module�	 �	!�	"gopen-output-string�	#gget-output-string�	$g
close-port�	%gcall-with-output-string*�	&gopen-bytevector-output-port�	'gcall-with-output-bytevector*�	(gerror�	)gset-port-encoding!�	*gset-port-conversion-strategy!�	+gstring-ci=?�	,futf-8�	-gstring->utf8�	.gdisplay�	/gopen-bytevector-input-port�	0geof-object?�	1f�	2gutf8->string�C5h�
{]4	
54!>"G"#$h@�]454>"G454>"GC�gproc
		9gport		9gstr		"	9gfilenamefice-9/iconv.scm�
	
��			��			��	
		��		 	��	"	 	��	%	!	��		9gnamegcall-with-output-string*�C%R&$h@�]4>G4>"G454>"GC�gproc
		@gport		@gget-bytevector			@gbv		)	@gfilenamefice-9/iconv.scm�
	$
��		%	��		%	��		'	��	%	(	��	)	(	��	,	)	��		@gnamegcall-with-output-bytevector*�C'R(')*h@u]4L>"GL$4L>"G"L6mgport
		:gfilenamefice-9/iconv.scm�
	8	��		9		��		:		��		;	
��	:	<		��		:C+,-%hX�-.,3#"O645$&456"���"����gencoding
		Qgproc		Qgconversion-strategy			Qgfilenamefice-9/iconv.scm�
	,
��		.	?��	)	7	��	)	1	��	*	1	��	0	1	!��	2	1	��	6	1	��	:	2	$��	>	1	��	A	6	��	I	6	��
		Q	gnamegcall-with-encoded-output-string�g
documentationfyCall PROC on a fresh port.  Encode the resulting string as a
bytevector according to ENCODING, and return the bytevector.�CR(.h]]L6Ugport
		
gfilenamefice-9/iconv.scm�
	J	��	
	K		��		
C+,-hPx-.,3#"O645$&6"���"���pgstr
		Lgencoding		Lgconversion-strategy			Lgfilenamefice-9/iconv.scm�
	A
��		B	=��	)	H	��	)	E	��	*	E	��	0	E	!��	2	E	��	6	E	��	:	F	$��	>	E	��	D	G	��		L	gnamegstring->bytevector�g
documentationfhEncode STRING according to ENCODING, which should be a string naming
a character encoding, like "utf-8".�CR(/)*$01+,2h�=-.,3#"g454>"G$4>"G"454>"G45$CC4	
5$&6"��z"��v5gbv
	�gencoding	�gconversion-strategy		�gp		!�gres		\�gfilenamefice-9/iconv.scm�
	N
��		O	=��		V	��	!	V	��	$	W	��	=	X	��	>	Y	��	V	Z	��	\	Z	��	_	[	
��	q	\	��	{	\	
��	}	]	���	S	���	S	���	S	!���	S	���	S	���	T	$���	S	���	U	��	�	gnamegbytevector->string�g
documentationf�Decode the string represented by BV.  The bytes in the bytevector
will be interpreted according to ENCODING, which should be a string
naming a character encoding, like "utf-8".�CRCsgm
		,gfilenamefice-9/iconv.scm�		
��N	
���	$
��r	,
���	A
��
�	N
��	
�
C6PKR<�Z��~��stack-catch.gonu�[���GOOF----LE-8-2.0�]4hE]gguile�	�	gdefine-module*�	�	�	gice-9�	gstack-catch�	�		gfilenameS�	
fice-9/stack-catch.scm�	gimportsS�	g
save-stack�	
�	
�	�	gexportsS�	�	gset-current-module�	�	�	gcatch�	gthrow�C5h�a]4	
54>"Gh(}-134	>"G@ugkey
			#gargs			#gfilenamefice-9/stack-catch.scm�
	+		��	
	-	��	#	.	��			#
Ch�]6�gkey
		gthunk		ghandler			gfilenamefice-9/stack-catch.scm�
	
��		(	��			gnamegstack-catch�g
documentationfLike @code{catch}, invoke @var{thunk} in the dynamic context of
@var{handler} for exceptions matching @var{key}, but also save the
current stack state in the @var{the-last-stack} fluid, for the purpose
of debugging or re-throwing of an error.  If thunk throws to the
symbol @var{key}, then @var{handler} is invoked this way:

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

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

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

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

If the key is @code{#t}, then a throw to @emph{any} symbol will match
this call to @code{catch}.�CRCYgm
		,gfilenamefice-9/stack-catch.scm�		
���	
��	�
C6PKR<�Z�?;V � �getopt-long.gonu�[���GOOF----LE-8-2.0�]�4h�Y]gguile�	�	gdefine-module*�	�	�	gice-9�	ggetopt-long�	�		gfilenameS�	
fice-9/getopt-long.scm�	gimportsS�	gcommon-list�	
�	gselectS�	g
remove-if-not�	�	
�	gsrfi�	gsrfi-9�	�	�	gmatch�	�	�	gregex�	�	�	goptargs�	�	�	�	 gexportsS�	!g
option-ref�	"!�	#gset-current-module�	$#�	%#�	&g
make-fluid�	'fguile�	(g
%program-name�	)gprogram-name�	*gformat�	+gcurrent-error-port�	,f~a: �	-gapply�	.gnewline�	/gexit�	0gfatal-error�	1goption-spec�	2g%%make-option-spec-procedure�	3gmake-syntax-transformer�	43�	53�	6g%make-option-spec�	7gmacro�	8g$sc-dispatch�	98�	:8�	;g_�	<gany�	=;<<<<<�	>g
syntax-object�	?glambda�	@gm-70fb8ec09b0a817-48c�	Agtop�	B@A�	Cgribcage�	Dgt-70fb8ec09b0a817-487�	Egt-70fb8ec09b0a817-488�	Fgt-70fb8ec09b0a817-489�	Ggt-70fb8ec09b0a817-48a�	Hgt-70fb8ec09b0a817-48b�	IDEFGH�	JBBBBB�	Kfl-70fb8ec09b0a817-491�	Lfl-70fb8ec09b0a817-492�	Mfl-70fb8ec09b0a817-493�	Nfl-70fb8ec09b0a817-494�	Ofl-70fb8ec09b0a817-495�	PKLMNO�	QCIJP�	RC�	Sgx�	TS�	UB�	Vfl-70fb8ec09b0a817-48e�	WV�	XCTUW�	Ygshift�	Zg	proc-name�	[gargs�	\Z[�	]A�	^]]�	_fl-1e8ba8b5a-60�	`fl-1e8ba8b5a-61�	a_`�	bC\^a�	cgkey�	dgvalue�	egname�	fgformals�	ggbody�	hcdefg�	i]]]]]�	jfl-1e8ba8b5a-53�	kfl-1e8ba8b5a-54�	lfl-1e8ba8b5a-55�	mfl-1e8ba8b5a-56�	nfl-1e8ba8b5a-57�	ojklmn�	pChio�	qgmake-procedure-name�	rq�	s]�	tfl-1e8ba8b5a-43�	ut�	vCrsu�	w]�	xfl-1e8ba8b5a-42�	yx�	zCTwy�	{BQRXYRRRRbpvz
�	|ghygiene�	}|�	~>?{}�	]QRX��|��>e���g	required?��>����goption-spec->single-char��>����g	predicate��>����gvalue-policy��>�����������gmake-struct��gm-70fb8ec09b0a817-485���A��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���A�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������C�����g	ctor-args�����fl-1e8ba8b5a-120�����C�w���gctor��gfield������fl-1e8ba8b5a-11c��fl-1e8ba8b5a-11d������C�^���gform��g	type-name��gconstructor-spec��gfield-names��������]]]]��fl-1e8ba8b5a-111��fl-1e8ba8b5a-112��fl-1e8ba8b5a-113��fl-1e8ba8b5a-114��������C�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������]]]]]]]]��fl-1e8ba8b5a-e9��fl-1e8ba8b5a-e7��fl-1e8ba8b5a-e5��fl-1e8ba8b5a-e3��fl-1e8ba8b5a-e1��fl-1e8ba8b5a-df��fl-1e8ba8b5a-dd��fl-1e8ba8b5a-db������������C�����fl-1e8ba8b5a-da�����CTw����QRXYR�RRR��R�����>��}��>1���>
�}������������~����geach-any��;ό��gsyntax-violation��������fWrong number of arguments��gidentifier?��������]RX��>2����������f-source expression failed to match any pattern��grecord-type-vtable��������g
pwpwpwpwpw��gdefault-record-printer��������e������gset-struct-vtable-name!��������gvtable-offset-user��������g%option-spec?-procedure��goption-spec?��;<��gm-70fb8ec09b0a817-4a1���A��gt-70fb8ec09b0a817-4a0��������fl-70fb8ec09b0a817-4a6�����C�����fl-70fb8ec09b0a817-4a3�����CT������R�YRRRRbpvz
��>?�}��gobj��gt-1e8ba8b5a-224��gt-1e8ba8b5a-21e��gt-1e8ba8b5a-21f��gt-1e8ba8b5a-220�gt-1e8ba8b5a-223�gt-1e8ba8b5a-222�gt-1e8ba8b5a-221������gm-1e8ba8b5a-225�A��fl-1e8ba8b5a-229�fl-1e8ba8b5a-22a�	fl-1e8ba8b5a-22b�
fl-1e8ba8b5a-22c�fl-1e8ba8b5a-22d�fl-1e8ba8b5a-22e�
fl-1e8ba8b5a-22f�	

�C�g	copier-id��fl-1e8ba8b5a-21c��Cw�g	ctor-name��fl-1e8ba8b5a-214��Cw���fl-1e8ba8b5a-212��Cw�glayout�� fl-1e8ba8b5a-210�! �"Cw!�#g
immutable?�$#�%fl-1e8ba8b5a-20e�&%�'C$w&�(gfield-count�)(�*fl-1e8ba8b5a-20c�+*�,C)w+�-g
getter-ids�.-�/fl-1e8ba8b5a-209�0/�1C.w0�2g	field-ids�32�4fl-1e8ba8b5a-206�54�6C3w5�7gpredicate-name�8g
field-spec�9#���78�:]]]]]]�;fl-1e8ba8b5a-1f9�<fl-1e8ba8b5a-1fa�=fl-1e8ba8b5a-1fb�>fl-1e8ba8b5a-1fc�?fl-1e8ba8b5a-1fd�@fl-1e8ba8b5a-1fe�A;<=>?@�BC9:A�C��R�YRRRRRRRR"R'R,R1R6B���D>�C}�ED�Fgand�G>FC}�Hgstruct?�I>HC}�JID�Kgeq?�L>KC}�Mg
struct-vtable�N>MC}�OND�P]�R��Q>1P��RLOQ�SGJR�T�ES�U]R��V>�U��Wgthrow-bad-struct�XW�YW�Zgoption-spec->name�[g%option-spec->name-procedure�\gfree-id�]g
%%on-error�^gm-70fb8ec09b0a817-4ad�_^A�`_�afl-70fb8ec09b0a817-4af�ba�cCT`b�d_RcYRRRRbpvz�e>]d}�f\e�gf<�hg%%type�igt-1e8ba8b5a-14b�jgt-1e8ba8b5a-14c�kgt-1e8ba8b5a-14d�lgt-1e8ba8b5a-14e�mgt-1e8ba8b5a-14f�ngt-1e8ba8b5a-150�ogt-1e8ba8b5a-151�pijklmno�qgm-1e8ba8b5a-152�rqA�srrrrrrr�tfl-1e8ba8b5a-156�ufl-1e8ba8b5a-157�vfl-1e8ba8b5a-158�wfl-1e8ba8b5a-159�xfl-1e8ba8b5a-15a�yfl-1e8ba8b5a-15b�zfl-1e8ba8b5a-15c�{tuvwxyz�|Cps{�}ggetter�~gindex�}~��fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a������C^����-��]]]��fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������C������RcYR|RRR�R�����>h�}��\���;g�<��gck��gerr��gs������__��fl-70fb8ec09b0a817-4b2��fl-70fb8ec09b0a817-4b3������C�����_�RcYRRRRbpvz
��>��}��gquote��>��}��]�Rc��>1�����������g%%index��>��}��\���;g�<��fl-70fb8ec09b0a817-4b7��fl-70fb8ec09b0a817-4b8������C�����_�RcYRRRRbpvz
��>��}��>��}���Rc��>
�����������g%%copier��>��}��\���;g�<��fl-70fb8ec09b0a817-4bc��fl-70fb8ec09b0a817-4bd������C�����_�RcYRRRRbpvz
��>��}��>��}��g%%option-spec-set-fields��]�Rc��>������������gt-70fb8ec09b0a817-4ac�����fl-70fb8ec09b0a817-4c1�����C�`���_�RcYRRRRbpvz
��>?�}����RcYR|RRR�R�����>��}�����gif��>��}��>K�}��>M�}������]�Rc��>1���������g
struct-ref��>��}���Rc��>
���������>W�}��>��}��>Z������������������������]Rc��>[����goption-spec->required?��g!%option-spec->required?-procedure��gm-70fb8ec09b0a817-4c8���A�����fl-70fb8ec09b0a817-4ca�����CT�����R�YRRRRbpvz��>]�}��\����<���R�YR|RRR�R�����>h�}��\���;��<������fl-70fb8ec09b0a817-4cd��fl-70fb8ec09b0a817-4ce������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>1�����������>��}��\���;��<��fl-70fb8ec09b0a817-4d2��fl-70fb8ec09b0a817-4d3����C����R�YRRRRbpvz
�>�}�>�}�R��>����	>��}�
\	�;�
<�fl-70fb8ec09b0a817-4d7�
fl-70fb8ec09b0a817-4d8�
�C����R�YRRRRbpvz
�>�}�>�}�]R��>�����gt-70fb8ec09b0a817-4c7��fl-70fb8ec09b0a817-4dc��C���R�YRRRRbpvz
�>?}��R�YR|RRR�R����>�}� �!>�}�">K}�#>M}�$#�%]R��&>1%��'"$&�(>�}�)R��*>)��+(*�,>W}�->�}�.>�%��/-.�0,/�1!'+0�2 1�3]R��4>�3��5g#%option-spec->single-char-procedure�6gm-70fb8ec09b0a817-4e3�76A�87�9fl-70fb8ec09b0a817-4e5�:9�;CT8:�<7R;YRRRRbpvz�=>]<}�>\=�?><�@�R;YR|RRR�R����A>h@}�B\A�C;?B<�D77�Efl-70fb8ec09b0a817-4e8�Ffl-70fb8ec09b0a817-4e9�GEF�HC�DG�I7HR;YRRRRbpvz
�J>�I}�K>�I}�L]HR;�M>1L��NKM�ON�P>�@}�Q\P�R;?Q<�Sfl-70fb8ec09b0a817-4ed�Tfl-70fb8ec09b0a817-4ee�UST�VC�DU�W7VR;YRRRRbpvz
�X>�W}�Y>�W}�ZVR;�[>	Z��\Y[�]\�^>�@}�_\^�`;?_<�afl-70fb8ec09b0a817-4f2�bfl-70fb8ec09b0a817-4f3�cab�dC�Dc�e7dR;YRRRRbpvz
�f>�e}�g>�e}�h]dR;�i>�h��jgi�kj�lgt-70fb8ec09b0a817-4e2�ml�nfl-70fb8ec09b0a817-4f7�on�pCm8o�q7pR;YRRRRbpvz
�r>?q}�s�pR;YR|RRR�R����t>�s}�ut�v>�s}�w>Ks}�x>Ms}�yxt�z]pR;�{>1z��|wy{�}>�s}�~pR;�>	~���}t��>Ws}��>�s}��>�z��������t���v|����ru���]R;��>5����goption-spec->predicate��g!%option-spec->predicate-procedure��gm-70fb8ec09b0a817-4fe���A�����fl-70fb8ec09b0a817-500�����CT�����R�YRRRRbpvz��>]�}��\����<���R�YR|RRR�R�����>h�}��\���;��<������fl-70fb8ec09b0a817-503��fl-70fb8ec09b0a817-504������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>1�����������>��}��\���;��<��fl-70fb8ec09b0a817-508��fl-70fb8ec09b0a817-509������C�������R�YRRRRbpvz
��>��}��>��}���R���>	�����������>��}��\���;��<��fl-70fb8ec09b0a817-50d��fl-70fb8ec09b0a817-50e������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>������������gt-70fb8ec09b0a817-4fd�����fl-70fb8ec09b0a817-512�����C�������R�YRRRRbpvz
��>?�}����R�YR|RRR�R�����>��}�����>��}��>K�}��>M�}������]�R���>1���������>��}���R���>	���������>W�}��>��}��>�������������������������]R���>�����goption-spec->value-policy��g$%option-spec->value-policy-procedure��gm-70fb8ec09b0a817-519���A�����fl-70fb8ec09b0a817-51b�����CT�����R�YRRRRbpvz��>]�}��\����<���R�YR|RRR�R�����>h�}��\���;��<������fl-70fb8ec09b0a817-51e��fl-70fb8ec09b0a817-51f������C�������R�YRRRRbpvz
��>��}��>��}��]�R���>1�����������>��}��\���;��<��fl-70fb8ec09b0a817-523�fl-70fb8ec09b0a817-524���C����R�YRRRRbpvz
�>�}�>�}�R��>	���	�
>��}�\
�;�<�
fl-70fb8ec09b0a817-528�fl-70fb8ec09b0a817-529�
�C����R�YRRRRbpvz
�>�}�>�}�]R��>�����gt-70fb8ec09b0a817-518��fl-70fb8ec09b0a817-52d��C���R�YRRRRbpvz
�>?}��R�YR|RRR�R���� >�}�! �">�}�#>K}�$>M}�%$ �&]R��'>1&��(#%'�)>�}�*R��+>	*��,) +�->W}�.>�}�/>�&��0./�1- 0�2"(,1�3!2�4]R��5>�4��6geach�7<<�867�9<8��:<9��;<:��<g%%set-fields�=gdummy�>gcheck?�?gexpr�@=>�}?�Agm-70fb8ec09b0a817-534�BAA�CB�����Dfl-70fb8ec09b0a817-539�Efl-70fb8ec09b0a817-53a�Ffl-70fb8ec09b0a817-53b�Gfl-70fb8ec09b0a817-53c�Hfl-70fb8ec09b0a817-53d�IDEFGH�JC@CI�KB�Lfl-70fb8ec09b0a817-536�ML�NCTKM�Ogt-1e8ba8b5a-16a�Pgt-1e8ba8b5a-16c�Qgt-1e8ba8b5a-16b�ROPQ�Sgm-1e8ba8b5a-16d�TSA�UTTT�Vfl-1e8ba8b5a-171�Wfl-1e8ba8b5a-172�Xfl-1e8ba8b5a-173�YVWX�ZCRUY�[fl-1e8ba8b5a-167�\fl-1e8ba8b5a-168�]fl-1e8ba8b5a-169�^[\]�_C��^�`�JRNYRZRRR_��
�a><`}�b]JRN�c>1b��d>Zb��e>�b��f>�b��g>�b��h>�b��idefgh�jgmap�kj�lj�mglist�ngset-option-spec-name!�og %set-option-spec-name!-procedure�p;<<�qgm-70fb8ec09b0a817-548�rqA�sgt-70fb8ec09b0a817-546�tgt-70fb8ec09b0a817-547�ust�vrr�wfl-70fb8ec09b0a817-54d�xfl-70fb8ec09b0a817-54e�ywx�zCuvy�{r�|fl-70fb8ec09b0a817-54a�}|�~CT{}�rzR~YRRRRbpvz
��>?}��gt-1e8ba8b5a-18c��gt-1e8ba8b5a-18d������gm-1e8ba8b5a-18e���A������fl-1e8ba8b5a-192��fl-1e8ba8b5a-193������C�����gsetter��e}���fl-1e8ba8b5a-186��fl-1e8ba8b5a-187��fl-1e8ba8b5a-188�������C�����8~��fl-1e8ba8b5a-17d��fl-1e8ba8b5a-17e������C�^���gfield-specs������fl-1e8ba8b5a-179��fl-1e8ba8b5a-17a������C�^����zR~YR��R�R�����>��}��gval��>��}������>��}��>K�}��>M�}������]zR~��>1���������gstruct-set!��>��}��zR~��>
����������>W�}��>��}��>n������������������������]R~��>o����gset-option-spec-required?!��g%%set-option-spec-required?!-procedure��gm-70fb8ec09b0a817-558���A��gt-70fb8ec09b0a817-556��gt-70fb8ec09b0a817-557����������fl-70fb8ec09b0a817-55d��fl-70fb8ec09b0a817-55e������C��������fl-70fb8ec09b0a817-55a�����CT������R�YRRRRbpvz
��>?�}����R�YR��R�R�����>��}��>��}������>��}��>K�}��>M�}������]�R���>1���������>��}���R���>����������>W�}��>��}��>�������������������������]R���>�����gset-option-spec-single-char!��g'%set-option-spec-single-char!-procedure��gm-70fb8ec09b0a817-568���A��gt-70fb8ec09b0a817-566��gt-70fb8ec09b0a817-567����������fl-70fb8ec09b0a817-56d��fl-70fb8ec09b0a817-56e������C��������fl-70fb8ec09b0a817-56a�����CT������R�YRRRRbpvz
��>?�}����R�YR��R�R�����>��}��>��}������>��}��>K�}��>M�}������]�R���>1���������>��}���R��>	�������>W�}�>��}�>�������������	]R��
>�	��gset-option-spec-predicate!�g%%set-option-spec-predicate!-procedure�
gm-70fb8ec09b0a817-578�
A�gt-70fb8ec09b0a817-576�gt-70fb8ec09b0a817-577���fl-70fb8ec09b0a817-57d�fl-70fb8ec09b0a817-57e��C��fl-70fb8ec09b0a817-57a��CT�RYRRRRbpvz
�>?}��RYR��R�R����>�}�>�}� �!>�}�">K}�#>M}�$#�%]R�&>1%��'"$&�(>�}�)R�*>	)��+(*�,>W}�->�}�.>%��/-.�0,/�1!'+0�2 1�3]R�4>3��5gset-option-spec-value-policy!�6g(%set-option-spec-value-policy!-procedure�7gm-70fb8ec09b0a817-588�87A�9gt-70fb8ec09b0a817-586�:gt-70fb8ec09b0a817-587�;9:�<88�=fl-70fb8ec09b0a817-58d�>fl-70fb8ec09b0a817-58e�?=>�@C;<?�A8�Bfl-70fb8ec09b0a817-58a�CB�DCTAC�E8@RDYRRRRbpvz
�F>?E}�G�@RDYR��R�R����H>�G}�I>�G}�JHI�K>�G}�L>KG}�M>MG}�NMH�O]@RD�P>1O��QLNP�R>�G}�S@RD�T>	S��URHTI�V>WG}�W>�G}�X>5O��YWX�ZVHY�[KQUZ�\FJ[�]]RD�^>6]��_gmake-option-spec�`gsymbol->string�agfor-each�bgerror�cf$invalid getopt-long option property:�db�eb�ffno matching pattern�gfoption predicate failed: --~a�hgsingle-char�igchar?�jf#`single-char' value must be a char!�kgparse-option-spec�lgreverse�mgstring=?�nf--�ogsplit-arg-list�pgmake-regexp�qf^-([a-zA-Z]+)(.*)�rgshort-opt-rx�sf^--([^=]+)$�tglong-opt-no-value-rx�uf^--([^=]+)=(.*)�vglong-opt-with-value-rx�wgregexp-exec�xglooks-like-an-option�ygmake-string�zgoptional�{f,option must be specified with argument: --~a�|gmatch:substring�}g	assoc-ref�~fno such option: -~a�gappend��g
string-append��f-��gstring->list��f��glength��fno such option: --~a��f&option does not support argument: --~a��gprocess-options��gstop-at-first-non-optionS���	������gassq-ref��foption must be specified: --~a��gstring->symbol�C5hP[^]4	
 "54%>"G4&i'5(R(ha][CYgfilenamefice-9/getopt-long.scm�
�
��		
gnamegprogram-name�C)R*+,)-./h`�-1344545>"G445>"G445>"G6�gfmt
			Zgargs			Zgfilenamefice-9/getopt-long.scm�
�
��	
�	��	
�	
��	�	��	�	&��	�	��	&�	��	+�	��	8�	��	A�	��	D�	��	M�	��	Z�	��			Z
gnamegfatal-error�C0R1h�]�C�gname
		g	required?		goption-spec->single-char			g	predicate			gvalue-policy			gfilenamefice-9/getopt-long.scm�
�
��			gnameg%%make-option-spec-procedure�C2R4567:=�h�]C�gt-70fb8ec09b0a817-487
		gt-70fb8ec09b0a817-488		gt-70fb8ec09b0a817-489			gt-70fb8ec09b0a817-48a			gt-70fb8ec09b0a817-48b						C��6�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC56R���1�4�1>"G	�2i�1R1h~]�$��CCvgobj
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg%option-spec?-procedure�C�R45�7:�Th=]C5gt-70fb8ec09b0a817-4a0
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
CVh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5�R1YZh�]�&
�C6ygs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg%option-spec->name-procedure�C[R45Z7:���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h=]C5gt-70fb8ec09b0a817-4ac
		
		
C��Z�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5ZR1Y�h�]�&�C6~gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg!%option-spec->required?-procedure�C�R45�7:���h:]��C2gerr
		gs					C�h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C�2h=]C5gt-70fb8ec09b0a817-4c7
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C4h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R1Y�h �]�&	�C6�gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg#%option-spec->single-char-procedure�C5R45�7:CJOh:]��C2gerr
		gs					CRX]h:]��C2gerr
		gs					C`fkh:]��C2gerr
		gs					C��h=]C5gt-70fb8ec09b0a817-4e2
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R1Y�h �]�&	�C6~gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg!%option-spec->predicate-procedure�C�R45�7:���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h=]C5gt-70fb8ec09b0a817-4fd
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R1Y�h �]�&	�C6�gs
		gfilenamefice-9/getopt-long.scm�
�
��		gnameg$%option-spec->value-policy-procedure�C�R45�7:���h:]��C2gerr
		gs					C�	h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C�3h=]C5gt-70fb8ec09b0a817-518
		
		
C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C5h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/getopt-long.scm�
�
��	�C5�R45�7:;acilmh v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/getopt-long.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R1Ynh �]�&
�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg %set-option-spec-name!-procedure�CoR45n7:p�h`]CXgt-70fb8ec09b0a817-546
		gt-70fb8ec09b0a817-547					C��n�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5nR1Y�h �]�&�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg%%set-option-spec-required?!-procedure�C�R45�7:p�h`]CXgt-70fb8ec09b0a817-556
		gt-70fb8ec09b0a817-557					C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5�R1Y�h �]�&	�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg'%set-option-spec-single-char!-procedure�C�R45�7:ph`]CXgt-70fb8ec09b0a817-566
		gt-70fb8ec09b0a817-567					C����hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C
h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5�R1Yh �]�&	�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg%%set-option-spec-predicate!-procedure�CR457:p2h`]CXgt-70fb8ec09b0a817-576
		gt-70fb8ec09b0a817-577					C���hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C4h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC5R1Y5h �]�&	�C6�gs
		gval		gfilenamefice-9/getopt-long.scm�
�
��			gnameg(%set-option-spec-value-policy!-procedure�C6R4557:p\h`]CXgt-70fb8ec09b0a817-586
		gt-70fb8ec09b0a817-587					C��5�hY]L6Qga
		gfilenamefice-9/getopt-long.scm�	�
��		C;�hI]L6Agfilenamefice-9/getopt-long.scm�	�
��		
C^h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/getopt-long.scm�
�
��		nC55R1h�]�Cygname
		gfilenamefice-9/getopt-long.scm�
�
��	
�	��		gnamegmake-option-spec�C_R_`abcef�10gh(�]
$4L5$C6C�gname
		$gval		$gt			"gfilenamefice-9/getopt-long.scm�
�	��	�	��		�	��	�	��	�	)��	"�	��	#�	��		$	CYhij�d5��h��]"�"*"�"R�$>���$ �(�6456456456�$O��&9�$.�(#�L�&
L	O�C	L
6"��`"��\"��X"��T�$k��&U�$J�(?�45$"4
>"GL�&L	�C	L6"���"���"���"����$J��&4�$)�(�L�&L	�C	L6"���"���"���"����$I��&3�$(�(�L�&L�C	L6"��5"��1"��-"��)�gexpr
	�gw		Wgx			Wgw	q�gx		q�gw	��gw�0gx	�0gw	�$gwA�gx	A�gw	^ygw��gx	��gw	��gfilenamefice-9/getopt-long.scm�
�	��	9�	��	=�	��	>�	����	����	����	����	����	����	���	���	��(�	��c�	��}�	����	����	��	�Ch0�]	44�554O�>"GC�gdesc
		.gspec		.gfilenamefice-9/getopt-long.scm�
�
��	�	��	�	 ��	�	0��	
�	 ��	�	��	�	��	�	��	�	��	#�	��		.gnamegparse-option-spec�CkRlmnhPJ]"<(45�C4�5$45��C���"���"���Bg
argument-list
		Mgyes		Bgno			Bgfilenamefice-9/getopt-long.scm�
�
��	�	��	�	��	
�	*��	�	$��	�	��	�	��	�	��	!�	��	%�	��	&�	*��	/�	8��	0�	$��	4�	��	7�	��	:�	*��	B�	��	B�	��	C�	��	M�	��		Mgnamegsplit-arg-list�CoR4piq5rR4pis5tR4piu5vRwrvth8�]	45$C45$C6�gstring
		2gt		2gt		2gfilenamefice-9/getopt-long.scm�
�
��	�	��	�	��	�	��	�	��	2�	��		2gnameglooks-like-an-option�CxRj1YZh n]�&
�"	45�Cfgspec
		 gfilenamefice-9/getopt-long.scm�
�	��	�	��	�	��		 Cy1Y�h(�]4�&		�"	455�Cxgspec
		'gfilenamefice-9/getopt-long.scm�
�	��	�	��		�	,��	#�	��	&�	��		'C5z1Y�x0{Zlwr|}~��yht]456lgc
		gfilenamefice-9/getopt-long.scm�
	)��		:��		>��		+��		C�m��t�v�ef!h(<]k454455"�"	�&			�"	4		5&P
("4

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

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

$
"	45




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

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

	"���4	5

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

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

    The procedure returns an alist of option names and values.  Each
option name is a symbol.  The option value will be '#t' if no value
was specified.  There is a special item in the returned alist with a
key of the empty list, (): the list of arguments that are not options
or option values.
    By default, options are not required, and option values are not
required.  By default, single character equivalents are not supported;
if you want to allow the user to use single character options, you need
to add a `single-char' clause to the option description.�CR�h C]45$CC;goptions
		gkey		gdefault			gt			gfilenamefice-9/getopt-long.scm�
m
��	p	��	p	��			gnameg
option-ref�g
documentationfqReturn value in alist OPTIONS using KEY, a symbol; or DEFAULT if not found.
The value is either a string or `#t'.�C!RCVgm
		,grtd
|�gfilenamefice-9/getopt-long.scm�	�
��	-�	��	3�	"��	5�	��	8�
����
��$�
��E�
��7��
��=��
��?��
��?��	��?��	,��?��	��?��
��?��	��?��	,��?��	��?��
��?��	��?��	,��?��	��?��
��@��
��M��
��Y�4
��[Nm
��	[P
C6PKR<�Z21���-�-r4rs.gonu�[���GOOF----LE-8-2.0l-]'4ho]gapply:nconc2last�	gapply�	gcall-with-current-continuation�	gcall-with-values�	gdynamic-wind�	fr�	g	OPEN_READ�	fw�		g
OPEN_WRITE�	
fr+�	g	OPEN_BOTH�	f	/dev/null�	
g
*null-device*�	g	open-file�	gopen-input-file�	gopen-output-file�	gopen-io-file�	gclose-input-port�	gcall-with-input-file�	gclose-output-port�	gcall-with-output-file�	gset-current-input-port�	gwith-input-from-port�	gset-current-output-port�	gwith-output-to-port�	gset-current-error-port�	gwith-error-to-port�	gwith-input-from-file�	gwith-output-to-file�	gwith-error-to-file�	gcall-with-input-string�	 gwith-input-from-string�	!gcall-with-output-string�	"gwith-output-to-string�	#gwith-error-to-string�	$f�	%g	read-char�	&gthe-eof-object�C5hh(B]h�-1345@gfun
			gargs			gfilenamefice-9/r4rs.scm�
	!
��		"	��		"	��			
gnamegapply�CRh�]B~gproc
		gfilenamefice-9/r4rs.scm�
	#
��		$	��		gnamegcall-with-current-continuation�CRh�]4>6<�gproducer
		gconsumer		gfilenamefice-9/r4rs.scm�
	%
��		&	��			gnamegcall-with-values�CRhH}]4>"GV4>X4>"GCX4>"GFugin
		Cgthunk		Cgout			Cgfilenamefice-9/r4rs.scm�
	'
��		Y	��		Y	��	!	Y	��		C	gnamegdynamic-wind�g
documentationf�All three arguments must be 0-argument procedures.
Guard @var{in} is called, then @var{thunk}, then
guard @var{out}.

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

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

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

;; Prints:
special-binding
;; Evaluates to:
@result{} a-cont
x
@result{} normal-binding
 (a-cont #f)
;; Prints:
special-binding
;; Evaluates to:
@result{} a-cont  ;; the value of the (define a-cont...)
x
@result{} normal-binding
a-cont
@result{} special-binding
@end lisp�CRR	R
R
Rh2]6*gstr
		
gfilenamefice-9/r4rs.scm�
	t
��	
	x	��		
gnamegopen-input-file�g
documentationf�Takes a string naming an existing file and returns an input port
capable of delivering characters from the file.  If the file
cannot be opened, an error is signalled.�CR	h�]6�gstr
		
gfilenamefice-9/r4rs.scm�
	z
��	
		��		
gnamegopen-output-file�g
documentationfTakes a string naming an output file to be created and returns an
output port capable of writing characters to a new file by that
name.  If the file cannot be opened, an error is signalled.  If a
file with the given name already exists, the effect is unspecified.�CRh�]6�gstr
		
gfilenamefice-9/r4rs.scm�
�
��	
�	��		
gnamegopen-io-file�g
documentationf2Open file with name STR for both input and output.�CRh88]454>G4>"GE0gstr
		1gproc		1gp				1gvals			1gfilenamefice-9/r4rs.scm�
�
��	�	��		�	��	�	��	�	��	�	��	1�	��		1	gnamegcall-with-input-file�g
documentationfEPROC should be a procedure of one argument, and STR should be a
string naming a file.  The file must
already exist. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output.  If the file cannot be opened, an error is
signalled.  If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation.�CRh8V]454>G4>"GENgstr
		1gproc		1gp				1gvals			1gfilenamefice-9/r4rs.scm�
�
��	�	��		�	��	�	��	�	��	�	��	1�	��		1	gnamegcall-with-output-file�g
documentationfbPROC should be a procedure of one argument, and STR should be a
string naming a file.  The behaviour is unspecified if the file 
already exists. These procedures call PROC
with one argument: the port obtained by opening the named file for
input or output.  If the file cannot be opened, an error is
signalled.  If the procedure returns, then the port is closed
automatically and the values yielded by the procedure are returned.
If the procedure does not return, then the port will not be closed
automatically unless it is possible to prove that the port will
never again be used for a read or write operation.�CRhi]4M5NCagfilenamefice-9/r4rs.scm�
�	��	�	)��	�	��		
gnamegswaports�ChX�]
HOQ4>"GV4>X4>"GCX4>"GF�gport
		Tgthunk		Tgswaports			Tgfilenamefice-9/r4rs.scm�
�
��	�	��	�	��		T	gnamegwith-input-from-port�CRhi]4M5NCagfilenamefice-9/r4rs.scm�
�	��	�	)��	�	��		
gnamegswaports�ChX�]
HOQ4>"GV4>X4>"GCX4>"GF�gport
		Tgthunk		Tgswaports			Tgfilenamefice-9/r4rs.scm�
�
��	�	��	�	��		T	gnamegwith-output-to-port�CRhi]4M5NCagfilenamefice-9/r4rs.scm�
�	��	�	)��	�	��		
gnamegswaports�ChX�]
HOQ4>"GV4>X4>"GCX4>"GF�gport
		Tgthunk		Tgswaports			Tgfilenamefice-9/r4rs.scm�
�
��	�	��	�	��		T	gnamegwith-error-to-port�CRh[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch�]O6�gfile
		gthunk		gfilenamefice-9/r4rs.scm�
�
��	�	��			gnamegwith-input-from-file�g
documentationf
THUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The file must already exist. The file is opened for
input, an input port connected to it is made
the default value returned by `current-input-port', 
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CRh[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch�]O6�gfile
		gthunk		gfilenamefice-9/r4rs.scm�
�
��	�	��			gnamegwith-output-to-file�g
documentationf*THUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The effect is unspecified if the file already exists. 
The file is opened for output, an output port connected to it is made
the default value returned by `current-output-port', 
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CRh[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch�]O6�gfile
		gthunk		gfilenamefice-9/r4rs.scm�
�
��	�	��			gnamegwith-error-to-file�g
documentationf)THUNK must be a procedure of no arguments, and FILE must be a
string naming a file.  The effect is unspecified if the file already exists. 
The file is opened for output, an output port connected to it is made
the default value returned by `current-error-port', 
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed and the previous
default is restored.  Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�CRh[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch#]O6gstring
		gthunk		gfilenamefice-9/r4rs.scm�
�
��	�	��			gnamegwith-input-from-string�g
documentationfxTHUNK must be a procedure of no arguments.
The test of STRING  is opened for
input, an input port connected to it is made, 
and the THUNK is called with no arguments.
When the THUNK returns, the port is closed.
Returns the values yielded by THUNK.  If an
escape procedure is used to escape from the continuation of these
procedures, their behavior is implementation dependent.�C R!h[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch�]O6�gthunk
		
gfilenamefice-9/r4rs.scm�
�
��	
�	��		
gnamegwith-output-to-string�g
documentationf/Calls THUNK and returns its output as a string.�C"R!h[]L6Sgp
		
gfilenamefice-9/r4rs.scm�
�	��	
�	��		
Ch�]O6�gthunk
		
gfilenamefice-9/r4rs.scm�
�
��	
�	��		
gnamegwith-error-to-string�g
documentationf5Calls THUNK and returns its error output as a string.�C#R4i$%h[]6Sgp
		gfilenamefice-9/r4rs.scm�
�	2��	�	>��		C5&RC:gfilenamefice-9/r4rs.scm��	!
��Y	#
��
	%
���	'
���	n	���	n
���	o	���	o
���	p	���	p
���	r	���	r
��	M	t
��	z
����
��s�
���
����
��j�
���
��g�
����
��"I�
��%�
��&p�
��'��
��'��	��'��	/��(]�	��(`�
��	(b
C6PKR<�ZS��D1D1common-list.gonu�[���GOOF----LE-8-2.0,1]24h5]gguile�	�	gdefine-module*�	�	�	gice-9�	gcommon-list�	�		gfilenameS�	
fice-9/common-list.scm�	gexportsS�	gadjoin�	
gunion�	gintersection�	gset-difference�	greduce-init�	greduce�	gsome�	gevery�	gnotany�	gnotevery�	gcount-if�	gfind-if�	g	member-if�	g	remove-if�	g
remove-if-not�	g
delete-if!�	gdelete-if-not!�	gbutlast�	gand?�	gor?�	 ghas-duplicates?�	!gpick�	"g
pick-mappings�	#guniq�	$
 !"#�	%gset-current-module�	&%�	'%�	(gmemq�	)greverse!�	*gmemv�	+gmap�	,gcar�	-gcdr�	.glength�	/gerror�	0fnegative argument to butlast�	1gmember�C5hp,*]4	
$54'>"G(h�]45$C�C�ge
		gl		gfilenamefice-9/common-list.scm�
	M
��		O	��		O	��		O	��			gnamegadjoin�g
documentationfGReturn list L, possibly with element E added if it is not already in L.�CR
h(7](C(C�4�56/gl1
		%gl2		%gfilenamefice-9/common-list.scm�
	Q
��		U	��		W	��		W	��		W	&��	#	W	��	%	W	��		%	gnamegunion�g
documentationfwReturn a new list that is the union of L1 and L2.
Elements that occur in both lists occur only once in
the result list.�C
R)*hX�](C"8(64�5$���"����"���"����gl1
		Rgl2		Rgl1			Ggresult			Ggfilenamefice-9/common-list.scm�
	Y
��		\	��		]	��		^	��		^	��		_	��	!	_	��	%	_	��	)	^	��	,	_	(��	/	_	7��	2	_	1��	:	_	"��	=	`	��	G	`	��	G	]	��	J	]	!��	R	]	��		R	gnamegintersection�g
documentationfyReturn a new list that is the intersection of L1 and L2.
Only elements that occur in both lists occur in the result list.�CR)*hPr]"8(64�5$
�"������"���"���jgl1
		Igl2		Igl1			>gresult			>gfilenamefice-9/common-list.scm�
	b
��		d	��		e	��		e	��		f	��		f	��		f	��	 	e	��	#	f	$��	-	f	��	0	g	��	3	g	%��	6	g	��	>	g	��	>	d	��	A	d	��	I	d	��		I	gnamegset-difference�g
documentationf5Return elements from list L1 that are not in list L2.�CRh ](C4�5�6gp
		ginit		gl			gfilenamefice-9/common-list.scm�
	i
��		k	��		m	��		m	��		m	��		m	&��		m	��			gnamegreduce-init�g
documentationfESame as `reduce' except it implicitly inserts INIT at the start of L.�CRh(](C�(�C��6�gp
		"gl		"gfilenamefice-9/common-list.scm�
	o
��		u	��		v	��		u	��		v	��		w	��	 	w	%��	"	w	��			"	gnamegreduce�g
documentationf9Combine all the elements of sequence L using a binary operation P.
The combination is left-associative.  For example, using +, one can
add up all the elements.  `reduce' allows you to apply a function which
accepts only two arguments to more than 2 objects.  Functional
programmers usually refer to this as foldl.�CR+,-h�$-13(0"$(C4�5$C�"���"���"8(C4�45?$C�45"���"���gpred
		�gl		�grest			�gl			7gt		#	7gl		C	{grest		C	{gt		\	{gfilenamefice-9/common-list.scm�
	y
��	�	��	�		��	�	��	�	��	!�	��	#�	��	#�	��	1�	)��	7�	#��	7�		��	C�	��	I�	��	L�	��	Q�	%��	R�	-��	\�	��	\�	��	j�	��	k�	'��	{�	��	{�	��		�	
	gnamegsome�g
documentationfpPRED is a boolean function of as many arguments as there are list
arguments to `some', i.e., L plus any optional arguments.  PRED is
applied to successive elements of the list arguments in order.  As soon
as one of these applications returns a true value, return that value.
If no application returns a true value, return #f.
All the lists should have the same length.�CR+,-h�C-13(+"(C4�5$	�"���C"���"3(C4�45?$�45"���C"���;gpred
			}gl			}grest				}gl			2gl		>	qgrest		>	qgfilenamefice-9/common-list.scm�
�
��	�	��	�		��	�	��	�	��	�	��	!�	��	#�	��	'�	��	*�	)��	0�	#��	2�		��	>�	��	D�	��	E�	��	G�	��	L�	%��	M�	-��	W�	��	[�	��	^�	��	_�	'��	o�	��	q�	��			}	
	gnamegevery�g
documentationf�Return #t iff every application of PRED to L, etc., returns #t.
Analogous to `some' except it returns #t if every application of
PRED is #t and #f otherwise.�CRhU-134?�CMgpred
			gls			gfilenamefice-9/common-list.scm�
�
��	
�	��	�	��			
gnamegnotany�g
documentationf�Return #t iff every application of PRED to L, etc., returns #f.
Analogous to some but returns #t if no application of PRED returns a
true value or #f as soon as any one does.�CRhS-134?�CKgpred
			gls			gfilenamefice-9/common-list.scm�
�
��	
�	��	�	��			
gnamegnotevery�g
documentationf�Return #t iff there is an application of PRED to L, etc., that returns #f.
Analogous to some but returns #t as soon as an application of PRED returns #f,
or #f otherwise.�CRhHh]"0(C4�5$��"����"���
"���`gpred
		Agl		Agn			6gl			6gfilenamefice-9/common-list.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	 ��	!�	(��	)�	��	.�	��	6�	��	6�	��		A	gnamegcount-if�g
documentationfIReturn the number of elements in L for which (PRED element) returns true.�CRh(X](C4�5$�C�6Pgpred
		#gl		#gfilenamefice-9/common-list.scm�
�
��	�	��	�		��	�	��	�		��	�	��	�	��	!�	��	#�	��
		#	gnamegfind-if�g
documentationf|Search for the first element in L for which (PRED element) returns true.
If found, return that element, otherwise return #f.�CRh(](C4�5$C�6gpred
		"gl		"gfilenamefice-9/common-list.scm�
�
��	�	��	�		��	�	��	�		��	�	��	 �	��	"�	��			"	gnameg	member-if�g
documentationf9Return the first sublist of L for whose car PRED is true.�CR)hH�]"6(64�5$
�"������"���"����gpred
		Ggl		Ggl			<gresult			<gfilenamefice-9/common-list.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	!�	 ��	+�	��	.�	��	1�	$��	4�	��	<�	��	<�	��	?�	��	G�	��		G	gnameg	remove-if�g
documentationfWRemove all elements from L where (PRED element) is true.
Return everything that's left.�CR)hH�]"6(64�5$���"����"���"����gpred
		Ggl		Ggl			<gresult			<gfilenamefice-9/common-list.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	!�	��	$�	$��	'�	��	/�	��	2�	&��	<�	 ��	<�	��	?�	��	G�	��		G	gnameg
remove-if-not�g
documentationfURemove all elements from L where (PRED element) is #f.
Return everything that's left.�CRh0�](C4L�5$	�"���4L�5�C�gl
		-gfilenamefice-9/common-list.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	%��	�	��	"�	��	'�	"��	)�	��	*�	��		-gnameg	delete-if�Ch�]
OQ6�gpred
		gl		g	delete-if			gfilenamefice-9/common-list.scm�
�
��	�	��			gnameg
delete-if!�g
documentationf#Destructive version of `remove-if'.�CRh0�](C4L�5$4L�5�C�"����gl
		-gfilenamefice-9/common-list.scm�
�	��	�	��		�	��	�	��	�	��	�	��	�	��	�	��	�	&��	 �	��	!�	��	'�	/��	-�	 ��		-gnameg
delete-if-not�Ch�]
OQ6�gpred
		gl		g
delete-if-not			gfilenamefice-9/common-list.scm�
�
��	�	��			gnamegdelete-if-not!�g
documentationf'Destructive version of `remove-if-not'.�CRh(�](C
�$�4L��5�CC�glst
		%gn		%gfilenamefice-9/common-list.scm�
�	��	�	��	�	��	�	��	�	��	�	(��	�	,��	�	6��	!�	(��	"�	��	$�	��		%	gnamegbl�C./0hH<]HOQ45�K
�$
45"J64glst
		Bgn		Bgl			Bgbl		
	Bgl			%gfilenamefice-9/common-list.scm�
�
��	�	��	�	��	�	��	,�	��	1�	��	2�	��	6�	��	:�	��	B�	��		B	gnamegbutlast�g
documentationf*Return all but the last N elements of LST.�CRh(�-13(C�$�@C�gargs
			!gfilenamefice-9/common-list.scm�
�
��	�	��	�		��	�	��	�	 ��	�	��			!


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


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

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

��	,i
C6PKR<�ZB1622ls.gonu�[���GOOF----LE-8-2.0]%4hU]gguile�	�	gdefine-module*�	�	�	gice-9�	gls�	�		gfilenameS�	
fice-9/ls.scm�	gimportsS�	gcommon-list�	
�	
�	�	gexportsS�	glocal-definitions-in�	gdefinitions-in�	glls�	grecursive-local-define�	�	gset-current-module�	�	�	gnested-ref-module�	g
module-map�	g
nested-ref�	greduce�	gunion�	gmap�	gmodule-uses�	 gcurrent-module�	!greverse!�	"greverse�	#gmodule-define!�	$gmake-modules-in�C5hx]4	
54>"Gh^]CVgk
		gv		gfilenamefice-9/ls.scm�
	:	��			Ch(�]
45$66�groot
		#gnames		#gm			#gfilenamefice-9/ls.scm�
	7
��		8	��		8	��		9	��		:	��	#	;	��		#	gnameglocal-definitions-in�CRh`]6Xgm2
			gfilenamefice-9/ls.scm�
	B	��		B	;��			B	(��			C	h8�]
45$454455�66�groot
		8gnames		8gm			8gfilenamefice-9/ls.scm�
	=
��		>	��		>	��		?	��		A	��		A	.��		A	��	 	B	��	%	C	��	-	B	��	.	A	��	0	@	��	8	D	��		8	gnamegdefinitions-in�CR hq]4455�Cigref
		gfilenamefice-9/ls.scm�
	I	��		J	��		J	,��		J	��		J	��		C h8�-13�$�$645�6456�gvarious-refs
			5gfilenamefice-9/ls.scm�
	F
��		G	��		G	��		H	��		H	��		I	��	"	L	��	)	L	+��	+	L	
��	.	M	��	3	M	'��	5	M	��
			5


gnamegls�CR hq]4455�Cigref
		gfilenamefice-9/ls.scm�
	R	��		S	��		S	2��		S	��		S	��		C h8�-13�$�$645�6456�gvarious-refs
			5gfilenamefice-9/ls.scm�
	O
��		P	��		P	��		Q	��		Q	��		R	��	"	U	 ��	)	U	1��	+	U	
��	.	V	��	3	V	-��	5	V	��
			5


gnameglls�CR!"#$ h(�]
445�544556�gname
		%gvalue		%gparent			%gfilenamefice-9/ls.scm�
	X
��		Y	��		Y	��	
	Y	��		Y	��		Y	��		Z	��		Z	%��		Z	��	%	Z	��		%	gnamegrecursive-local-define�CRCpgm
		,gfilenamefice-9/ls.scm�		
���	7
��i	=
��	F
���	O
���	X
��	
C6PKR<�Z]m)���posix.gonu�[���GOOF----LE-8-2.0�]14ha]gstat:dev�	gstat:ino�	g	stat:mode�	g
stat:nlink�	gstat:uid�	gstat:gid�	g	stat:rdev�	g	stat:size�		g
stat:atime�	
g
stat:mtime�	g
stat:ctime�	gstat:blksize�	
gstat:blocks�	gstat:atimensec�	gstat:mtimensec�	gstat:ctimensec�	g	stat:type�	g
stat:perms�	gpasswd:name�	g
passwd:passwd�	g
passwd:uid�	g
passwd:gid�	gpasswd:gecos�	g
passwd:dir�	gpasswd:shell�	g
group:name�	ggroup:passwd�	g	group:gid�	g	group:mem�	gutsname:sysname�	gutsname:nodename�	 gutsname:release�	!gutsname:version�	"gutsname:machine�	#ggetpw�	$ggetpwent�	%gsetpw�	&gsetpwent�	'gendpwent�	(ggetpwnam�	)ggetpwuid�	*ggetgr�	+ggetgrent�	,gsetgr�	-gsetgrent�	.gendgrent�	/ggetgrnam�	0ggetgrgid�C5h��]hn]
�Cfgf
		gfilenamefice-9/posix.scm�
	
��			��		gnamegstat:dev�CRhn]�Cfgf
		gfilenamefice-9/posix.scm�
	
��			��		gnamegstat:ino�CRho]	�Cggf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg	stat:mode�CRhp]	�Chgf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg
stat:nlink�CRhn]	�Cfgf
		gfilenamefice-9/posix.scm�
	
��			��		gnamegstat:uid�CRhn]	�Cfgf
		gfilenamefice-9/posix.scm�
	
��			��		gnamegstat:gid�CRho]	�Cggf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg	stat:rdev�CRho]	�Cggf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg	stat:size�CRhp]	�Chgf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg
stat:atime�C	Rhp]		�Chgf
		gfilenamefice-9/posix.scm�
	
��			��		gnameg
stat:mtime�C
Rhp]	
�Chgf
		gfilenamefice-9/posix.scm�
	 
��		 	��		gnameg
stat:ctime�CRhr]	�Cjgf
		gfilenamefice-9/posix.scm�
	!
��		!	��		gnamegstat:blksize�CRhq]	�Cigf
		gfilenamefice-9/posix.scm�
	"
��		"	��		gnamegstat:blocks�C
Rht]	�Clgf
		gfilenamefice-9/posix.scm�
	#
��		#	��		gnamegstat:atimensec�CRht]	�Clgf
		gfilenamefice-9/posix.scm�
	$
��		$	��		gnamegstat:mtimensec�CRht]	�Clgf
		gfilenamefice-9/posix.scm�
	%
��		%	��		gnamegstat:ctimensec�CRho]	
�Cggf
		gfilenamefice-9/posix.scm�
	(
��		(	��		gnameg	stat:type�CRhp]	�Chgf
		gfilenamefice-9/posix.scm�
	)
��		)	��		gnameg
stat:perms�CRhs]
�Ckgobj
		gfilenamefice-9/posix.scm�
	+
��		+	��		gnamegpasswd:name�CRhu]�Cmgobj
		gfilenamefice-9/posix.scm�
	,
��		,	��		gnameg
passwd:passwd�CRhr]	�Cjgobj
		gfilenamefice-9/posix.scm�
	-
��		-	��		gnameg
passwd:uid�CRhr]	�Cjgobj
		gfilenamefice-9/posix.scm�
	.
��		.	��		gnameg
passwd:gid�CRht]	�Clgobj
		gfilenamefice-9/posix.scm�
	/
��		/	��		gnamegpasswd:gecos�CRhr]	�Cjgobj
		gfilenamefice-9/posix.scm�
	0
��		0	��		gnameg
passwd:dir�CRht]	�Clgobj
		gfilenamefice-9/posix.scm�
	1
��		1	��		gnamegpasswd:shell�CRhr]
�Cjgobj
		gfilenamefice-9/posix.scm�
	3
��		3	��		gnameg
group:name�CRht]�Clgobj
		gfilenamefice-9/posix.scm�
	4
��		4	��		gnameggroup:passwd�CRhq]	�Cigobj
		gfilenamefice-9/posix.scm�
	5
��		5	��		gnameg	group:gid�CRhq]	�Cigobj
		gfilenamefice-9/posix.scm�
	6
��		6	��		gnameg	group:mem�CRhw]
�Cogobj
		gfilenamefice-9/posix.scm�
	8
��		8	��		gnamegutsname:sysname�CRhx]�Cpgobj
		gfilenamefice-9/posix.scm�
	9
��		9	��		gnamegutsname:nodename�CRhw]	�Cogobj
		gfilenamefice-9/posix.scm�
	:
��		:	��		gnamegutsname:release�C Rhw]	�Cogobj
		gfilenamefice-9/posix.scm�
	;
��		;	��		gnamegutsname:version�C!Rhw]	�Cogobj
		gfilenamefice-9/posix.scm�
	<
��		<	��		gnamegutsname:machine�C"R#h^]6Vgfilenamefice-9/posix.scm�
	>
��		>	��		
gnameggetpwent�C$R%h^]6Vgfilenamefice-9/posix.scm�
	?
��		?	��		
gnamegsetpwent�C&R%h^]6Vgfilenamefice-9/posix.scm�
	@
��		@	��		
gnamegendpwent�C'R#hq]6igname
		gfilenamefice-9/posix.scm�
	B
��		B	��		gnameggetpwnam�C(R#hp]6hguid
		gfilenamefice-9/posix.scm�
	C
��		C	��		gnameggetpwuid�C)R*h^]6Vgfilenamefice-9/posix.scm�
	E
��		E	��		
gnameggetgrent�C+R,h^]6Vgfilenamefice-9/posix.scm�
	F
��		F	��		
gnamegsetgrent�C-R,h^]6Vgfilenamefice-9/posix.scm�
	G
��		G	��		
gnamegendgrent�C.R*hq]6igname
		gfilenamefice-9/posix.scm�
	I
��		I	��		gnameggetgrnam�C/R*ho]6ggid
		gfilenamefice-9/posix.scm�
	J
��		J	��		gnameggetgrgid�C0RC�gfilenamefice-9/posix.scm��	
��	
���	
��#	
���	
��1	
���	
��B	
���	
��S	
���	 
��e	!
���	"
��w	#
��	$
���	%
��	"	(
��	�	)
��
6	+
��
�	,
��M	-
���	.
��_	/
���	0
��
w	1
��	3
���	4
��	5
���	6
��2	8
���	9
��R	:
���	;
��r	<
���	>
��i	?
���	@
��l	B
���	C
��y	E
���	F
��i	G
���	I
���	J
��-	�
C6PKR<�Zo �debug.gonu�[���GOOF----LE-8-2.0�]4h/]gguile�	�	gdefine-module*�	�	�	gice-9�	gdebug�	�		gfilenameS�	
fice-9/debug.scm�	gset-current-module�	�	
�	gissue-deprecation-warning�	f?(ice-9 debug) is deprecated. Use (system vm trace) for tracing.�C5h0`]4	
54
>"Gi6Xgm
	
	$gfilenamefice-9/debug.scm�		
��	*	��	,	
��		,
C6PKR<�Z_��m�
�

history.gonu�[���GOOF----LE-8-2.0�
]+4hI]gguile�	�	gdefine-module*�	�	�	gice-9�	ghistory�	�		gfilenameS�	
fice-9/history.scm�	gexportsS�	gvalue-history-enabled?�	
genable-value-history!�	gdisable-value-history!�	gclear-value-history!�	
�	gset-current-module�	�	�	g
value-history�	�	g*value-history-enabled?*�	gmodule-use!�	gcurrent-module�	gresolve-interface�	guse-value-history�	gresolve-module�	gunspecified?�	gstring->symbol�	g
simple-format�	f$~A�	 f~A = �	!gmodule-define!�	"gmodule-export!�	#gsave-value-history�	$g	add-hook!�	%gbefore-eval-hook�	&gbefore-print-hook�	'gremove-hook!�	(ghash-clear!�	)gmodule-obarray�	*gmodule-public-interface�C5hH�]4	
54>"G4i>"GRhf]C^gfilenamefice-9/history.scm�
	
��		
gnamegvalue-history-enabled?�CRh�]45456�gx
		gfilenamefice-9/history.scm�
	
��			��	
		��			"��			��			��		gnameguse-value-history�CR
4i5H !"hp]45$CM�44554>"G4L>"G4L>"GNC�gv
		mgc		mgs		#	mgfilenamefice-9/history.scm�
	$	��		%	��	
	%	��		&	��		&	
��		'	��		'	$��		'	6��	!	'	$��	#	'	��	#	&	
��	&	(	��	+	(	��	2	(	��	;	)	��	Q	*	��	Z	*	$��	_	*	��	k	+	��		mCO#R$%&#h@�]45$C4>"G4>"G C�gfilenamefice-9/history.scm�
	-
��		.	��		.	��		0	��	"	1	��	8	2	��		:
gnamegenable-value-history!�C
R'%&#h@�]45$-4>"G4>"G CC�gfilenamefice-9/history.scm�
	4
��		5	��		5	��		7	��	 	8	��	6	9	��		:
gnamegdisable-value-history!�CR()*h8�]45445>"G44556�ghistory
			2gfilenamefice-9/history.scm�
	;
��		<	��		<	!��			<	��			<	��		=	��		=	��		=	��	%	>	��	(	>	!��	0	>	��	2	>	��
		2
gnamegclear-value-history!�CR
i6�gm
		(gcount
�6ghistory�6gfilenamefice-9/history.scm�		
��	)	
��	/		��	4	
��	@	
���	
���	
���	#	���	#	!���	#	���	"	��9	!
��(	-
��	4
��=	;
��C	@
��	C
C6PKR<�Z�\�$��buffered-input.gonu�[���GOOF----LE-8-2.0�]!4ha]gguile�	�	gdefine-module*�	�	�	gice-9�	gbuffered-input�	�		gfilenameS�	
fice-9/buffered-input.scm�	gexportsS�	gmake-buffered-input-port�	
gmake-line-buffered-input-port�	g!set-buffered-input-continuation?!�	
�	gset-current-module�	�	�	gmake-object-property�	gbuffered-input-continuation?�	gsetter�	�	�	f�	g
string-length�	g
string-ref�	gchar-whitespace?�	geof-object?�	gmake-soft-port�	fr�	g
string-append�	 f
�C5h`�]4	
54>"G4i5Rh@]4568gport
		gval		gfilenamefice-9/buffered-input.scm�
	
��		!	��			gnameg!set-buffered-input-continuation?!�g
documentationf�Set the read continuation flag for @var{port} to @var{val}.

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

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

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

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

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

@var{reader} should take a boolean @var{continuation?} argument.  For
the meaning and use of this argument, see
@code{make-buffered-input-port}.�C
RC{gm
		(gfilenamefice-9/buffered-input.scm�		
��	)		%��	2	
���	
��
�	#
��Y	Y
��	[
C6PKR<�ZvC8�8�
deprecated.gonu�[���GOOF----LE-8-2.0 �][4h;]gguile�	�	gdefine-module*�	�	�	gice-9�	g
deprecated�	�		gfilenameS�	
fice-9/deprecated.scm�	gexportsS�	gsubstring-move-left!�	
gsubstring-move-right!�	gdynamic-maybe-call�	gdynamic-maybe-link�	gtry-module-linked�	gtry-module-dynamic-link�	glist*�	gfeature?�	g	eval-case�	gunmemoize-expr�	g$asinh�	g$acosh�	g$atanh�	g$sqrt�	g$abs�	g$exp�	g$expt�	g$log�	g$sin�	g$cos�	 g$tan�	!g$asin�	"g$acos�	#g$atan�	$g$sinh�	%g$cosh�	&g$tanh�	'gclosure?�	(g%nil�	)g@bind�	*g	bad-throw�	+gerror-catching-loop�	,gerror-catching-repl�	-gscm-style-repl�	.g
apply-to-args�	/ghas-suffix?�	0gscheme-file-suffix�	1g
get-option�	2gfor-next-option�	3gdisplay-usage-report�	4gtransform-usage-lambda�	5gcollect�	6gassert-repl-silence�	7gassert-repl-print-unspecified�	8gassert-repl-verbosity�	9gset-repl-prompt!�	:gset-batch-mode?!�	;grepl�	<gpre-unwind-handler-dispatch�	=gdefault-pre-unwind-handler�	>ghandle-system-error�	?gstack-saved?�	@gthe-last-stack�	Ag
save-stack�	Bgnamed-module-use!�	Cgtop-repl�	Dgturn-on-debugging�	Egread-hash-procedures�	Fgprocess-define-module�	Ggfluid-let-syntax�	Hgset-system-module!�	Igchar-code-limit�	Jggeneralized-vector?�	Kggeneralized-vector-length�	Lggeneralized-vector-ref�	Mggeneralized-vector-set!�	Nggeneralized-vector->list�	O
 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNC�	Pgset-current-module�	QP�	RP�	Sgissue-deprecation-warning�	TfE`substring-move-left!' is deprecated.  Use `substring-move!' instead.�	Ugsubstring-move!�	VfF`substring-move-right!' is deprecated.  Use `substring-move!' instead.�	Wgreverse�	Xgstring->symbol�	Yg	substring�	Zg
string-ref�	[g
string-length�	\gsplit-c-module-name�	]gmap�	^gc-registered-modules�	_gc-clear-registered-modules�	`gconvert-c-registered-modules�	agregistered-modules�	bgappend!�	cgregister-modules�	df3Autoloading of compiled code modules is deprecated.�	ef7Write a Scheme file instead that uses `load-extension'.�	fg
simple-format�	gf (You just autoloaded module ~S.)�	hgwarn-autoload-deprecation�	igor-map�	jgdelq!�	kgresolve-module�	lgsave-module-excursion�	mgset-module-public-interface!�	ngdynamic-call�	oginit-dynamic-module�	pf%`dynamic-maybe-call' is deprecated.  �	qf7Wrap `dynamic-call' in a `false-if-exception' yourself.�	rgcatch�	sr�	tr�	uf%`dynamic-maybe-link' is deprecated.  �	vf7Wrap `dynamic-link' in a `false-if-exception' yourself.�	wgdynamic-link�	xg
string-append�	yflib�	zgsymbol->string�	{f/�	|f�	}f_�	~fscm_init�	glist->string��gchar-alphabetic?��g
char-numeric?��gstring->list��f_module��gin-vicinity��gtry-using-libtool-name��gtry-using-sharlib-name��gfile-exists?��glink-dynamic-module��g
%load-path��gfind-and-link-dynamic-module��f.la��f.so��f"`try-module-linked' is deprecated.��f,See the manual for how more on C extensions.��f(`try-module-dynamic-link' is deprecated.��f,'list*' is deprecated.  Use 'cons*' instead.��gcons*��f3`feature?' is deprecated.  Use `provided?' instead.��g	provided?��gmake-syntax-transformer��������gmacro��g$sc-dispatch��������g_��gany�������g
syntax->datum��������g
datum->syntax��������f4`eval-case' is deprecated.  Use `eval-when' instead.��g	assoc-ref��g
load-toplevel�����gbegin��g
*unspecified*��gelse�����gsyntax-violation��������f-source expression failed to match any pattern��gread-hash-extend��f=The `#y' bytevector syntax is deprecated.  Use `#s8' instead.��gread��glist->s8vector��gerror��f!#y needs to be followed by a list��fC`unmemoize-expr' is deprecated. Use `unmemoize-expression' instead.��gunmemoize-expression��f-`$asinh' is deprecated.  Use `asinh' instead.��gasinh��f-`$acosh' is deprecated.  Use `acosh' instead.��gacosh��f-`$atanh' is deprecated.  Use `atanh' instead.��gatanh��f+`$sqrt' is deprecated.  Use `sqrt' instead.��gsqrt��f)`$abs' is deprecated.  Use `abs' instead.��gabs��f)`$exp' is deprecated.  Use `exp' instead.��gexp��f+`$expt' is deprecated.  Use `expt' instead.��gexpt��f)`$log' is deprecated.  Use `log' instead.��glog��f)`$sin' is deprecated.  Use `sin' instead.��gsin��f)`$cos' is deprecated.  Use `cos' instead.��gcos��f)`$tan' is deprecated.  Use `tan' instead.��gtan��f+`$asin' is deprecated.  Use `asin' instead.��gasin��f+`$acos' is deprecated.  Use `acos' instead.��gacos��f+`$atan' is deprecated.  Use `atan' instead.��gatan��f+`$sinh' is deprecated.  Use `sinh' instead.��gsinh��f+`$cosh' is deprecated.  Use `cosh' instead.��gcosh��f+`$tanh' is deprecated.  Use `tanh' instead.��gtanh��f3`closure?' is deprecated. Use `procedure?' instead.��g
procedure?��gbound-identifier=?��f1`@bind' is deprecated. Use `with-fluids' instead.��geach-any���ތ��ߌ�����g
syntax-object��glet��gtop�����gribcage��gb0��gb1����������fl-2f788c0406b05c-348��fl-2f788c0406b05c-349������������gbound-member��������fl-2f788c0406b05c-33d�����������gx��������fl-2f788c0406b05c-33c�����������������ghygiene�����������geach������ߌ����gand-map�gidentifier?�fduplicate bound identifier�ggenerate-temporaries����	��
gold-v�gv�
�
fl-2f788c0406b05c-368�fl-2f788c0406b05c-369�
����gid�gval���������fl-2f788c0406b05c-357�fl-2f788c0406b05c-358�fl-2f788c0406b05c-359�fl-2f788c0406b05c-35a�����	�������gappend��� ]�!]�"glist�#gdynamic-wind�$�#��%glambda�&�%��'gset!�(�'��)gmake-module�*gset-module-name!�+g%app�,+�-gmodule-define-submodule!�.gthe-root-module�/gapp�0gmodules�1gmodule-public-interface�2gand=>�3gmodule-local-variable�4g%module-public-interface�5gvariable-ref�6f�Setting a module's public interface via munging %module-public-interface is
deprecated. Use set-module-public-interface! instead.�7gmodule-define!�8fm`bad-throw' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead.�9-�:9*�;9*�<fw`error-catching-loop' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead.�=9+�>9+�?fw`error-catching-repl' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead.�@9,�A9,�Bf�`scm-style-repl' in the default environment is deprecated.
Find it in the `(ice-9 scm-style-repl)' module instead, or
better yet, use the repl from `(system repl repl)'.�C9-�D9-�EfD`apply-to-args' is deprecated. Include a local copy in your program.�FfJ`has-suffix?' is deprecated. Use `string-suffix?' instead (args reversed).�Ggstring-suffix?�HfC`scheme-file-suffix' is deprecated. Use `%load-extensions' instead.�If.scm�Jf>`get-option' is deprecated. Use `(ice-9 getopt-long)' instead.�Kg
normal-arg�Lgstring-index�Mgsymbol->keyword�Ngmember�Ogusage-error�Pf-�QfC`for-next-option' is deprecated. Use `(ice-9 getopt-long)' instead.�RfH`display-usage-report' is deprecated. Use `(ice-9 getopt-long)' instead.�Sgfor-each�Tgstring?�Uf<�Vf>�Wgwith-output-to-string�Xgdisplay�Ygkeyword->symbol�Zf �[gmake-string�\f
	�]gnewline�^gcar�_gboolean?�`g%display-usage�agquote�bg%argv�cb�dg	%next-arg�ebb�fe�gg%opt�hg%arg�ig	%new-argv�jghi�kgcase�lf,`collect' is deprecated. Define it yourself.�m��nfl-2f788c0406b05c-442�on�p���o�q�	p�r�aq��sr�t�ߌ�ugx*�v�u�wfl-2f788c0406b05c-446�xfl-2f788c0406b05c-447�ywx�z�v�y�{�z	p�|��{��}�{��~gcons��~{����5{���f<`assert-repl-silence' has moved to `(ice-9 scm-style-repl)'.��96��96��fF`assert-repl-print-unspecified' has moved to `(ice-9 scm-style-repl)'.��97��97��f>`assert-repl-verbosity' has moved to `(ice-9 scm-style-repl)'.��98��98��fh`set-repl-prompt!' is deprecated. Use `repl-default-prompt-set!' from
the `(system repl common)' module.��g
module-ref��gresolve-interface��gsystem��gcommon���;���grepl-default-prompt-set!��fC`set-batch-mode?!' is deprecated. Use `ensure-batch-mode!' instead.��gensure-batch-mode!��f``set-batch-mode?!' with an argument of `#f' is deprecated. Use the
`*repl-stack*' fluid instead.��f)`repl' is deprecated. Define it yourself.��gcurrent-input-port��fu`pre-unwind-handler-dispatch' is deprecated. Use
`default-pre-unwind-handler' from `(ice-9 scm-style-repl)' directly.��9=��9=��fa`default-pre-unwind-handler' is deprecated. Use it from 
`(ice-9 scm-style-repl)' if you need it.��fZ`handle-system-error' is deprecated. Use it from 
`(ice-9 scm-style-repl)' if you need it.��9>��9>��gmake-variable-transformer��fN`stack-saved?' is deprecated. Use it from
`(ice-9 save-stack)' if you need it.��gfree-id��fl-2f788c0406b05c-46d������������	����'�������������g@����fl-2f788c0406b05c-47b�������������	���������������A���������?�����������fl-2f788c0406b05c-474��fl-2f788c0406b05c-475��������������	����'����������������A���������?���������fP`the-last-stack' is deprecated. Use it from `(ice-9 save-stack)'
if you need it.��fl-2f788c0406b05c-483�����������fl-2f788c0406b05c-47e�������������	���������������A���������@���������fL`save-stack' is deprecated. Use it from `(ice-9 save-stack)' if you need
it.��A���A���A��fE`named-module-use!' is deprecated. Define it yourself if you need it.��gmodule-use!��f6`top-repl' has moved to the `(ice-9 top-repl)' module.��C��gdebug-enable��gmemq��gdebug��f6`(debug-enable 'debug)' is obsolete and has no effect.��fRemove it from your code.��gdelq��f<`(turn-on-debugging)' is obsolete and usually has no effect.��f.Debugging capabilities are present by default.��g	backtrace��gread-enable��g	positions��f%`read-hash-procedures' is deprecated.��f.Use the fluid `%read-hash-procedures' instead.��gread-hash-procedures-warning��������gm-2f788c0406b05c-48f���������fl-2f788c0406b05c-491�����������gshift��gexp1��gvar��gexp2��������������fl-bde397a-1bec��fl-bde397a-1bed��fl-bde397a-1bee��fl-bde397a-1bef��fl-bde397a-1bf0���������������gxx�����fl-bde397a-1bda������������	���	������'��������gexpr��fl-2f788c0406b05c-494������	��	����
����
�g
fluid-set!�
���g%read-hash-procedures�����ތ�fl-2f788c0406b05c-497�������	�����������g	fluid-ref������������	�� ����!����"����#"�$���%���&$%�'!#&�(fE`process-define-module' is deprecated.  Use `define-module*' instead.�)gpureS�*gversionS�+g
duplicatesS�,gtransformerS�-gimportsS�.greverse!�/g
re-exportsS�0greplacementsS�1g	autoloadsS�2g
use-moduleS�3g
use-syntaxS�4f)missing argument to define-module keyword�5gsyncase�65�7fL(ice-9 syncase) is deprecated. Support for syntax-case is now in Guile core.�8gautoloadS�9gno-backtraceS�:gexportS�;g
export-syntaxS�<g	re-exportS�=gre-export-syntaxS�>greplaceS�?greplace-syntaxS�@f#unrecognized define-module argument�AfA`fluid-let-syntax' is deprecated.  Use syntax parameters instead.�Bgsyntax-parameterize�Cgk�Dgbody0�Egbody�FCDE�Gfl-2f788c0406b05c-4ed�Hfl-2f788c0406b05c-4ee�Ifl-2f788c0406b05c-4ef�Jfl-2f788c0406b05c-4f0�KGHIJ�L�FK�Mfl-2f788c0406b05c-4ea�NM�O���N�P�L	O�Q�BP��Rf9`close-io-port' is deprecated.  Use `close-port' instead.�Sg
close-port�Tg
close-io-port�Uf@`set-system-module!' is deprecated.  There is no need to use it.�Vgset-procedure-property!�Wgmodule-eval-closure�Xg
system-module�YfT`module-eval-closure' is deprecated.  Use module-variable or module-define! instead.�Zgstandard-eval-closure�C5hp�.]4	
O54R>"GSTUh(�-134>"G@�gargs
			!gfilenamefice-9/deprecated.scm�
	T	��	
	U	��		V	��		U	��	!	W	��			!


gnamegsubstring-move-left!�CRSVUh(�-134>"G@�gargs
			!gfilenamefice-9/deprecated.scm�
	Y	��	
	Z	��		[	��		Z	��	!	\	��			!


gnamegsubstring-move-right!�C
RWXYZ[h�x]!"k�$4455�645 &'4455���"����"���

45"��pgstr
	�grev		qgstart			qgpos			qgend			qgfilenamefice-9/deprecated.scm�
	c
��		d	��		i	��		h	��		j	��		j	%��	!	j	��	$	j	��	&	j	��	'	k	��	5	h	��	6	l	��	9	l	"��	E	l	��	H	l	��	K	m	��	N	n	��	\	l	��	c	q	��	q	q	��	q	d	��	r	d	��	u	g	���	d	��	�gnamegsplit-c-module-name�C\R]\h]4�5�LCwgc
		gfilenamefice-9/deprecated.scm�
	t	��		u	��		u	/��	
	u	��	
	u	8��		u	��		C^_h(�]	4O4554>"GC�gdynobj
		(gres		(gfilenamefice-9/deprecated.scm�
	s
��		t	
��	
	v	��		t	
��		t	��		w	��		(gnamegconvert-c-registered-modules�C`RaRb`ah�]4455 C�gdynobj
		gfilenamefice-9/deprecated.scm�
	|
��		~	��		~	��		~	��		}	��		gnamegregister-modules�CcRSdefgh(�]4>"G456�gmodname
		$gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	�	��	�	��	"�	��	$�	��
		$gnamegwarn-autoload-deprecation�ChRcihjaklPmnh8u]4L>"G4LL>"GL��L���6mgfilenamefice-9/deprecated.scm�
�	��	�	��	�	��	-�	%��	1�	4��	5�	��		5
ChP�]	�L�$B4L>"G45 4L54O>"GCC�gmodinfo
		Pgmod	1	Ngfilenamefice-9/deprecated.scm�
�	
��	�	��	�	��	�	��	
�	��	�	+��	)�	��	*�	��	1�	��	4�	��		PCah �]4>"GO6�gmodname
		 gfilenamefice-9/deprecated.scm�
�
��	�	��	 �	��		 gnameginit-dynamic-module�CoRSpqtnhQ]LL6Igfilenamefice-9/deprecated.scm�
�	��	
�	��		

Ch]-13CUgargs
			gfilenamefice-9/deprecated.scm�
�	��			


Ch(�]4>"GO6�gname
		&gdynobj		&gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	&�	��		&	gnamegdynamic-maybe-call�CRSuvtwhQ]L6Igfilenamefice-9/deprecated.scm�
�	��	�	��		
Ch]-13CUgargs
			gfilenamefice-9/deprecated.scm�
�	��			


Ch(�]4>"GO6�gfilename
		$gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	$�	��		$gnamegdynamic-maybe-link�CRxyz{|]x}zhs]456kgs
		gfilenamefice-9/deprecated.scm�
�	*��	�	;��	�	;��	�	,��		C~��h0�]	45$"45$C_C�gc
		*gt			 gfilenamefice-9/deprecated.scm�
�	&��	�	0��		�	,��	�	0��	$�	(��		*C��������h]9"9�(44�55�"(44�55�"���"���445?44	4
45555��"g(C4
�545$"	45"	�"���$45$6"���"���"���wgmodule-name
	�gdirs		?gsyms			?gmod-name	Y	zgsubdir-and-libname	z�ginit		z�gsubdir	��glibname	��gdir-list	��gdir	��gt	��gsharlib-full	��gfilenamefice-9/deprecated.scm�
�
��	�		��		�	��	
�	��	�	��	�	)��	�	/��	�	?��	�	/��	�	��	�	��	$�	��	)�	)��	.�	9��	0�	)��	2�	E��	4�	��	7�	��	?�	��	?�		��	A�	��	K�		��	L�	��	O�	%��	Y�	��	Y�	��	\�	��	`�	��	a�	��	d�	!��	i�	&��	q�	!��	s�	��	u�	��	w�	��	z�	����	����	����	����	����	����	����	%����	����	����	����	����	����	����	����	����	����	$����	����	����	��9	�gnamegfind-and-link-dynamic-module�C�R�x��h(�]
445545$CC�glibdir
		$glibname		$glibtool-filename			$gfilenamefice-9/deprecated.scm�
�
��	�	��	�	'��	�	>��	�	'��	�	��	�	��	�		��	�	��
		$	gnamegtry-using-libtool-name�C�R�x�h�]456�glibdir
		glibname		gfilenamefice-9/deprecated.scm�
�
��	�	��	
�	-��	�	��	�	��			gnamegtry-using-sharlib-name�C�Rcwnh8�]
4>"G454>"G6�gfilename
		6ginitname		6gdynobj			6gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	6�	��		6	gnameglink-dynamic-module�C�RS��oh �]4>"G6�gmodule-name
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	�	��		gnamegtry-module-linked�CRS���oh0�]4>"G45$6C�gmodule-name
		)gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	�	��	!�	��	'�	��			)gnamegtry-module-dynamic-link�CRS��h(�-134>"G@�gargs
			!gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	!�	��			!


gnameglist*�CRS��h �]4>"G6�gsym
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��		gnamegfeature?�CR4������S�������	hX�-134>"G45$	��C45$	��CC�gclauses
			Rgt	$	Rgt		>	Rgfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��		��	"	��	$	��	$	��	.		��	6	��	<	��	>	��	>	��	H
		��	Q	��			R


Chi]	45L4?6agargs
		gv			gfilenamefice-9/deprecated.scm�	�
��		C��h(g]	45$O@6_gy
		'gtmp		'gfilenamefice-9/deprecated.scm�
�
��		'C5R4�iyS�����h8�]
4>"G45�$66�gc
		2gport		2gx			2gfilenamefice-9/deprecated.scm�
��		��		��		��		��		��	 	��	$	��	*	��	.	��	2	��		2	C>"GS��h(�-134>"G@�gargs
			!gfilenamefice-9/deprecated.scm�

��	
	��		��		��	!	��			!


gnamegunmemoize-expr�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�

��	 	��	!	��	 	��	"	��		gnameg$asinh�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
#
��	$	��	%	��	$	��	&	��		gnameg$acosh�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
'
��	(	��	)	��	(	��	*	��		gnameg$atanh�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
+
��	,	��	-	��	,	��	.	��		gnameg$sqrt�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
/
��	0	��	1	��	0	��	2	��		gnameg$abs�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
3
��	4	��	5	��	4	��	6	��		gnameg$exp�CRS��h �]4>"G6�gz1
		gz2		gfilenamefice-9/deprecated.scm�
7
��	8	��	9	��	8	��	:	��			gnameg$expt�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
;
��	<	��	=	��	<	��	>	��		gnameg$log�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
?
��	@	��	A	��	@	��	B	��		gnameg$sin�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
C
��	D	��	E	��	D	��	F	��		gnameg$cos�CRS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
G
��	H	��	I	��	H	��	J	��		gnameg$tan�C RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
K
��	L	��	M	��	L	��	N	��		gnameg$asin�C!RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
O
��	P	��	Q	��	P	��	R	��		gnameg$acos�C"RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
S
��	T	��	U	��	T	��	V	��		gnameg$atan�C#RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
W
��	X	��	Y	��	X	��	Z	��		gnameg$sinh�C$RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
[
��	\	��	]	��	\	��	^	��		gnameg$cosh�C%RS��h �]4>"G6�gz
		gfilenamefice-9/deprecated.scm�
_
��	`	��	a	��	`	��	b	��		gnameg$tanh�C&RS��h �]4>"G6�gx
		gfilenamefice-9/deprecated.scm�
d
��	e	��	f	��	e	��	g	��		gnamegclosure?�C'R(R4�)��h8�]
(C4�5$C4L��5$CC�gid
		2gids		2gt		%	2gfilenamefice-9/deprecated.scm�
p	��	q	��	r	
��	r	$��	r	
��	q	��	s	
��	 s	��	#s	%��	%s	
��	%q	��		2	gnamegbound-member�CS����h:]���C2gb0
		
gb1		
		
	C��h�]6�gid
		
gval		
gb0			
gb1			
gfilenamefice-9/deprecated.scm�	
|	��		
	C�)�!"$&(hb]CZgtmp-2f788c0406b05c-371
		gtmp-2f788c0406b05c-370					C(hb]CZgtmp-2f788c0406b05c-374
		gtmp-2f788c0406b05c-373					C	hX<]44L54L554L5��LL���4L5��C4gold-v
		Rgv		R		R	C��
h�U]"(("%4L��5$"�"���"���$
L6454545$O@	6Mgid
	�gval	�gb0		�gb1		�gids			.gtmp		U�gtmp		`�gfilenamefice-9/deprecated.scm�	}	��	~	
��		��		"��		,��		��	 ~	
��	(�	��	.�	��	.}	��	:}	��	>�	��	@�	$��	D�	��	E�	&��	L�	"��	U�	��	�	Chx�]OQ4>"G45$@45"		6$4
?$
O@"���"����gx
		vgbound-member	
	vgtmp		*	vgtmp		A	vgfilenamefice-9/deprecated.scm�
o	��	u	��	v	��	u	��		vC5)R4)i	54*i,>"G4-i.i+>"G4-i.i/>"G4-i04ki5>"G1i2345S6mhX�]	4L5$C4455$)4>"G4>"GCC�gmod
		Wgt			Wgt	$	Wgfilenamefice-9/deprecated.scm�
�	��	�	��		�	
��	�	��	�	��	�	2��	 �	��	$�	��	$�	��	-�	��	1�
��	6�	��	?�	��		WCO1imi74h �]4L>"G6�gmod
		 giface		 gfilenamefice-9/deprecated.scm�
�	��	�	
��	�	��	 �	
��		 	COmiS8;h(�-134>"G@�gkey
			#gargs			#gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	#�	��			#
gnameg	bad-throw�C*RS<>h �]4>"G6�gthunk
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnamegerror-catching-loop�C+RS?Ah �]4>"G6�gr
		ge		gp			gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��			gnamegerror-catching-repl�C,RSBDh�]4>"G6�gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��		
gnamegscm-style-repl�C-RSEh �]4>"G@�gargs
		gfn		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��			gnameg
apply-to-args�C.RSFGh �]4>"G6�gstr
		gsuffix		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��			gnameghas-suffix?�C/RSHIh�]4>"GC�gfilenamefice-9/deprecated.scm�
�	��	�	��	�	��	�	��	�	��		
gnamegscheme-file-suffix�C0RSJZ[KLMYNOxP
h�L],H4>"GJ(J6-4J�
5��$"
4J�5�$J�J�6-4J�5&�4J�=5$"4J�544J�	554	54	54J�5&"4J��4J�55$"$J�KJ�"$"$J�6
J�64J�	5454	5$@4J�	4J�55
45�$J�"
45J��64	5$Q4J�	4J�55
45�$J��"
45�$J��"J�6
J6Dgargv
	�gkw-opts	�gkw-args		�greturn		�gt		3	Mgt		v�g
kw-arg-pos	�-gkw	�-gkw-opt?	�-gkw-arg?	�-gt	�garg	-gchar	8�gkw	A�grest-car	b�gnew-argv	��grest-car	��garg	��gnew-argv	��gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	&�	��	)�	��	.�	"��	1�	��	2�	
��	3�	��	3�	��	A�	
��	F�	��	H�	
��	J�	��	Q�	��	U�	��	X�	��	[�	#��	]�	��	`�	
��	e�	��	h�	
��	l�	��	m�	��	r�	)��	v�	��	v�	����	����	*����	����	����	����	 ����	+����	 ����	����	����	����	���	����	���	.���	=���	.���	���	���	$���	$���	$���	3���	$���	���	���	���	+���	 ���	7���	��	
��	�� 	��"	
��&		��+		"��-		
��.	��3	��8	��8	��;
	��A	��D	��P	��Q	��V	$��Y	1��^	@��`	1��b	��b	��f	"��m	��q	��t	��y	#��}	2���	#���	@���	���	���	
���	���	���	���	$���	1���	@���	1���	���	���	���	���	���	���	���	"���	���	���	���	���	���	
���!	���!	
��u	�	gnameg
get-option�C1RSQ1h�]$LL6C�gopt
		gopt-arg		gargv			gfilenamefice-9/deprecated.scm�
(	��	)	��	)	��			Chu]LLLLO6mgargv
		gfilenamefice-9/deprecated.scm�
&	��	'	��		gnamegloop�C1h�]$LL6C�gopt
		gopt-arg		gargv			gfilenamefice-9/deprecated.scm�
(	��	)	��	)	��			Ch@�]4>"GOQO6�gproc
		=gargv		=gkw-opts			=gkw-args			=gloop			=gfilenamefice-9/deprecated.scm�
#
��	$	��	%	��	$	��	&	��	='	��		=	gnamegfor-next-option�C2RSRS�TxUV|W]XYZh �]445>"G6}gx
		gfilenamefice-9/deprecated.scm�
<	%��	<	1��	<	:��	<	1��	<	X��	<	O��		ChQ]L6Igfilenamefice-9/deprecated.scm�
;	��	
<	 ��		

C[[\X]h��]1��$C��$C���4�5$�"4�5$4�5"44O554	5	�$)4	5	(�$4
	4	5� 5""4>"G4>"G4>"G
6�gkw
	�gt	�gt	�ghelp	'�gopts		,�gopts-proper		C�garg-name		c�g	left-part		x�gmiddle-part	��	gfilenamefice-9/deprecated.scm�
/	��	0	��	0		��	0	��	1	��	1	��	1		��	0	��	&3	��	'2		��	,4	��	,2		��	/5	!��	45	*��	65	!��	:5	��	=5	6��	C2		��	F6	��	K6	'��	M6	��	Q6	��	R7	��	V7	-��	Y7	1��	[7	<��	]7	��	c8	��	c2		��	f9	��	i:	��	x9	��	x2		��	{?	)���?	&���?	���@	)���@	&���?	!���A	!���A	4���A	.���A	!���B	!���2		���C	���D	���E	���F	��2	�Ch �]4>"G6�gkw-desc
		gfilenamefice-9/deprecated.scm�
+
��	,	��	-	��	,	��	.	��		gnamegdisplay-usage-report�C3RSRj�]^_hX�]	�$"$�$"C��$C4�5$"$CC�gx
		Rgt	'	Rgt	D	Rgfilenamefice-9/deprecated.scm�
M	#��	N	2��		N	(��	N	$��	N	2��	N	(��	&O	6��	'O	-��	'N	$��	3P	-��	8P	7��	:P	-��	>P	(��	DN	$��		RCTh|]4�5$CCtgx
		gfilenamefice-9/deprecated.scm�
U	%��	U	;��	U	D��	
U	;��	U	1��		CTh�]4�5$�CC}gx
		gfilenamefice-9/deprecated.scm�
V	%��	V	6��	V	?��	
V	6��	V	1��	V	H��		C_�ThpA]�45$"�$"8��$"*4�5$"4��5$��"���C9gcase
		mgopts		hgt			#gfilenamefice-9/deprecated.scm�
W	$��	X	8��	X	,��	Y	6��	Y	2��	Y	K��	 Y	F��	'Y	.��	0\	=��	1\	4��	5[	2��	<]	4��	A]	>��	C]	4��	G[	2��	N^	4��	S^	=��	V^	4��	Z[	2��	]^	J��	e_	9��	k`	,��	lX	&��		mC�`%3acdf1bjkgh�]94>"G445545454544	5?44
5?45
��Cgcases
	�g	raw-usage	$�gusage-sans-specials		/�g
usage-desc		9�gkw-desc		D�gkw-opts		T�gkw-args		d�gtransmogrified-cases		o�gfilenamefice-9/deprecated.scm�
I
��	J	��	K	��	J	��	L	��	L	��	L	!��	$L	��	$L	��	'M	��	/L	��	2S	��	9L	��	<T	��	DL	��	GU	��	JU	 ��	TU	��	TL	��	WV	��	ZV	 ��	dV	��	dL	��	gW	��	oL	��	sb	��	�gnamegtransform-usage-lambda�C4R4�5�Sl�msh]C		
Ct|}�h 9]�C1gx
		gx*					C��
hP�]4>"G45$@45$@	6�gx
		Kgtmp		Kgtmp		4	Kgfilenamefice-9/deprecated.scm�
u	��	v	��	w	��	v	��		KC55RS��h �]4>"G6�gv
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnamegassert-repl-silence�C6RS��h �]4>"G6�gv
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnamegassert-repl-print-unspecified�C7RS��h �]4>"G6�gv
		gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��		gnamegassert-repl-verbosity�C8RS�����h(�]4>"G44556�gv
		&gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	"��	�	��	 �	��	"�	��	&�	��		&gnamegset-repl-prompt!�C9RS���h8�]$4>"G64>"GC�garg
		2gfilenamefice-9/deprecated.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	�	��	#�	��	(�	��
		2gnamegset-batch-mode?!�C:RS��hP6]4>"G"'445>"G4455"���4455"���.gread
		Ogevaler		Ogprint			Ogsource			?gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	'�	��	0�	
��	3�	��	9�	
��	?�	��	?�	��	@�	��	C�	��	I�	��	O�	��		O	gnamegrepl�C;RS��h(�-134>"G@�gkey
			#gargs			#gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	#�	��			#
gnamegpre-unwind-handler-dispatch�C<RS��h(�-134>"G@�gkey
			#gargs			#gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	#�	��			#
gnamegdefault-pre-unwind-handler�C=RS��h(�-134>"G@�gkey
			#gargs			#gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	#�	��			#
gnameghandle-system-error�C>R4�?�4�iS���hZ]6Rgid
		gfilenamefice-9/deprecated.scm�	�	��		C�h*]C"gid
				C��hk]6cgid
		gval		gfilenamefice-9/deprecated.scm�	�	��			C��h;]C3gid
		gval					Chh�]4>"G45"!4?$@6$4	?$
@"���"����gx
		cgtmp		cgtmp		(	Dgfilenamefice-9/deprecated.scm�
�	��	�	��	�	��	�	��		cC55?R4�@�S�hZ]6Rgid
		gfilenamefice-9/deprecated.scm�	�	��		C�h*]C"gid
				C��h8�]	4>"G4?$@6{gx
		5gtmp		5gfilenamefice-9/deprecated.scm�
�	��	�	��	�	��	�	��		5C5@RS��h(�-134>"G@�gargs
			!gfilenamefice-9/deprecated.scm�
�
��	
�	��	�	��	�	��	!�	��			!


gnameg
save-stack�CARS��k�h(�]4>"G45456�guser
		&gusee		&gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	%��	&�	��		&	gnamegnamed-module-use!�CBRS��k�Ch(�]4>"G44556�gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	2��	"�	��	$�	��		$
gnamegtop-repl�CCR�i��S���h@�-1345$!4>"GL45@L@�gopts
			=gfilenamefice-9/deprecated.scm�
�	��	
�	��	�	��	�	��	�	
��	�	��	�	��	�	��	"�	��	-�	$��	1�	*��	5�	$��	7�	��	=�	��			=


CO�iS������h0�]4>"G4>"G6�gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��		�	��	�	��	�	��	�	��	 �	��	,�	��	.�	��		.
gnamegturn-on-debugging�CDRS��h�]6�gfilenamefice-9/deprecated.scm�
�
��	�	��	�	��	
�	��		

gnamegread-hash-procedures-warning�C�R4�E�4��	
h,]C$gexpr
				Ch)]�C!gx
				C��� hI]6Agfilenamefice-9/deprecated.scm�		��		
C'h]C		
Chh�]45$@45$@45"	6$4	?$
@"���"����gx
		ggtmp		ggtmp		"	ggtmp		9	ggfilenamefice-9/deprecated.scm�
	��		gg
macro-typegvariable-transformer�C55ERS(	)*+,-./0123�46789:;<=>?@hX�]y4>"G�HHHHH"(3JJJJJ	4
5	

6�

�$"
�$���$"
4>"G���$04>"G��	

	"��B��
&K"���	

	"��
�$n��$	���"$"
4>"G��������	
��
	"���
�$�	

	"��n
�$ K�	

	"��E
�$R��$"
4>"G��K��	

	"���
�$K��$"
4>"G��K��	

	"���
�$"
�$U��$"
4>"G��4	��5

	"��*
�$"
�$U��$"
4>"G��	4
��5
	"���
�$"
�$U��$"
4>"G��	
4��5
	"��R
�$R��$"
4>"G��K��	

	"���6�
	"����gargs
	Ugname	Ugfilename		Ugpure?		Ugversion		Ug
duplicates		Ugtransformer		Ugkws		,=gimports		,=gexports			,=g
re-exports	
	,=greplacements		,=g	autoloads		,=gkey	
	h=gt	��gkw	��g
iface-spec	�!gt	<fgkw	Jcgname	o�gbindings	o�gt	�gkw	gkw	Yrgt	��gkw	��gt	Ggkw	+Dgt	��gkw	��gt	�gkw	� gfilenamefice-9/deprecated.scm�

��		��		��		��		��		��		��	,	��	2	��	M"	��	e	
��	h'	��	h'	
���)	���)	���)	
���*	���*	���
	���
	���
	���,	���,	"���,	���+	
���-	���.	���-	���/	���/	���2	!���2	���3	���3	���4	��5	��	6	��!5	��*'	
��-9	��.9	��29	��59	/��79	(��<9	
��J:	��J:	��M
	��Q
	��X
	��i;	��m<	��o;	
��v=	���?	"���=	���'	
���C	���C	
���'	
���F	
���G	���G	
���'	
���J	���J	���J	
��K	��K	��
	��	
	��
	��!L	��$L	
��'M	��BM	
��K'	
��NP	��OP	��SP	
��YQ	��YQ	��\
	��`
	��g
	��uR	��xR	
��{S	���S	
���'	
���V	���V	���V	
���W	���W	���
	���
	���
	���X	���Y	���Y	+���Y	��X	
��'	
��\	��\	��\	
��+]	��+]	��.
	��2
	��9
	��J^	��P_	#��W_	6��Z_	#��n^	
��w'	
���b	���b	���b	
���c	���c	���
	���
	���
	���d	���f	���f	(���f	���d	
���'	
���h	���h	���h	
���i	���i	���
	���
	��
	��j	��j	
��k	��5k	
��9	��=	��=	��@	��A	��B	��C	��D	��E	��U	���	Ugnamegprocess-define-module�CFR4�G�SA�Q!"h]]45���CUgk
		gv		gbody0			gbody						C��h8�]	4>"G45$@6{gx
		4gtmp		4gfilenamefice-9/deprecated.scm�
q	��	r	��	s	��	r	��		4C5GRSRSh �]4>"G6�gport
		gfilenamefice-9/deprecated.scm�
y
��	z	��	{	��	z	��	|	��		gnameg
close-io-port�CTRSUVWXh(�]4>"G456�gm
		#gs		#gfilenamefice-9/deprecated.scm�
~
��		��	�	��		��	�	��	�	3��	#�	��		#	gnamegset-system-module!�CHRSYZh �]4>"G6�gm
		gfilenamefice-9/deprecated.scm�
�	��	�	��	�		��	�	��	�	��		gnamegmodule-eval-closure�CWiIRC&gm
		(g%app
5e5�ggetter
5�7Igsetter
7R8gdebug-enable
jkJgfilenamefice-9/deprecated.scm�		
��	S
���	X
��	c
���	s
���	z	���	z
��s	|
����
��
B�
��5�
��
�
��"�
��]�
��C�
��h�
��O�
��_�
��5�
����
���
���
�� �
��!i#
��"1'
��"�+
��#�/
��$�3
��%a7
��&';
��&�?
��'�C
��(G
��)HK
��*O
��*�S
��+�W
��,h[
��-0_
��-�d
��-�i
��5\�	��5e�
��5h�	��5r�	��5w�	��5��	��5��	,��5��	��5��	��5��	,��5��	��5��	��5��	!��5��	*��5��	:��5��	*��5��	��5��	��7N�
��7R�	��8�
��9	�
��9��
��:��
��;��
��<��
��=l�
��>.�
��F��
��J#
��O�+
��W�I
��Z?�
��[)�
��\	�
��]!�
��^9�
��_��
��`��
��a��
��b��
��b��	��h�
��i�
��j	�
��j�	��kO�
��lY�
��m�
��m	��}>
���y
����~
���a�
���g�
��a	�i
C6PKR<�Zy����
channel.gonu�[���GOOF----LE-8-2.0�]H4h ]gguile�	�	gdefine-module*�	�	�	gice-9�	gchannel�	�		gfilenameS�	
fice-9/channel.scm�	gexportsS�	gmake-object-channel�	
gchannel-open�	gchannel-print-value�	gchannel-print-token�	
�	gset-current-module�	�	�	gmake-record-type�	gstdin�	gstdout�	gprinter�	gtoken-module�	�	gchannel-type�	grecord-constructor�	gmake-channel�	gcurrent-input-port�	gcurrent-output-port�	gmake-module�	 grecord-accessor�	!g
channel-stdin�	"gchannel-stdout�	#gchannel-printer�	$gchannel-token-module�	%gcatch�	&gchannel:prompt�	'gread�	(geof-object?�	)gthrow�	*gquit�	+geval�	,gmodule-use!�	-gcurrent-module�	.gdestroy�	/gmodule-defined?�	0gmodule-remove!�	1g
channel:error�	2fInvalid token: ~S�	3fUnknown command: ~S�	4gformat�	5fexception = ~S
�	6fvalue = ~S
�	7g
symbol-append�	8ggensym�	9f%%�	:g%%�	;gobject->string�	<ftoken = ~S
�	=gmodule-define!�	>gdisplay�	?f	channel> �	@gforce-output�	AfERROR: �	Bgapply�	Cgnewline�	Dg
guile:eval�	Egprocedure-minimum-arity�	Fgdefined?�	Gf~S�C5h8
�]4	
54>"G4i5R4ii5Rh�]4545456�gprinter
		gfilenamefice-9/channel.scm�
	W
��		X	��	
	Y	��		[	��		X	��		gnamegmake-object-channel�CR4 ii5!R4 ii5"R4 ii5#R4 ii5$R!"#$%&'()*+,-+./0123h�]4L>"G4L545$4>"G"��$>445L>"G4LL4	4L5455>"G"�
�$K4L54L5$4L>"G"4
L>"G"5�$4>"G"4
L>"GL6�gcmd
	gtoken��gfilenamefice-9/channel.scm�
	m	��		n	
��		o	��		o	
��		p	��	(	p	��	)	q	��	-	q	��	2	q	��	G	r	��	H	t	��	K	t	��	V	t	��	_	u	��	d	u	��	g	u	#��	n	u	0��	t	u	��	y	u	���	r	���	w	���	w	���	x	���	x	���	y	���	z	���	z	+���	z	���	r	���	|	���	|	���	|	���	~	���	~	'��	~	��		
��%	
C*)45hH�-13�$64L4�����?>"GL6�gkey
			Dgargs			Dgfilenamefice-9/channel.scm�
�	��	�	
��	�	��	�	��	�	
��	�	��	"�	��	(�	0��	,�	<��	0�	��	3�	��	8�	
��	D�	
��			D
Ch(]]LLLLLLOLLO6Ugfilenamefice-9/channel.scm�
	k	��	!	l	��		!
gnamegloop�ChH])45454545OQ6�gch
		Fgstdin		Fgstdout			Fgprinter			Fgtoken-module			Fgloop		3	Fgfilenamefice-9/channel.scm�
	f
��		g	��	
	h	��		i	��		j	��		g	��	3	k	��		Fgnamegchannel-open�C
R4"6h�]456�gch
		gval		gfilenamefice-9/channel.scm�
�
��	�	
��	
�	��	�	��			gnamegchannel-print-value�CR789:;4"<=$hH;]445545�445>"G	4
563gch
		Hgval		Hgtoken			Hgpair			Hgfilenamefice-9/channel.scm�
�
��	�	��	�	��	
�	'��	�	��	�	-��	�	��	�	��	�	��	�	��	�	��	�	��	"�	��	*�	 ��	1�	��	<�	��	H�	��		H	gnamegchannel-print-token�CR>?@h �]4>"G6�gport
		gfilenamefice-9/channel.scm�
�
��	�	��	�	��	�	��	�	��		gnamegchannel:prompt�C&R>AB4Ch@�-134>"G4>"G6�gport
			;gmsg			;gargs				;gfilenamefice-9/channel.scm�
�
��	
�	��	�	��	�	��	�	��	;�	��			;	
	gnameg
channel:error�C1R+iDR4EiDi5��$�Dhm]6egx
		
ge		
gfilenamefice-9/channel.scm�
�	��	
�	��		
	C"Di+R4Fi;5$;i"�4Ghg]6_gx
		gfilenamefice-9/channel.scm�
�	��	�	��	�	��		C;RC�gm
		(gfilenamefice-9/channel.scm�		H
��	)	S	��	/	S	��	1	S	��	3	S	��	6	R
��	7	U	��	D	U
��	W
��	]	��	]	4��!	]	��$	]
��%	^	��/	^	5��1	^	��4	^
��5	_	��?	_	6��A	_	��D	_
��E	`	��O	`	;��Q	`	��T	`
��o	f
��D�
��	��
��
��
����
����
����	����		����	����	����
����	����	����	����	��
2�
��*	
4
C6PKR<�Zl� ��
hash-table.gonu�[���GOOF----LE-8-2.0�]c4h ]gguile�	�	gdefine-module*�	�	�	gice-9�	g
hash-table�	�		gfilenameS�	
fice-9/hash-table.scm�	gexportsS�	galist->hash-table�	
galist->hashq-table�	galist->hashv-table�	galist->hashx-table�	
�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gdefine-alist-converter�	gmacro�	g$sc-dispatch�	�	�	gany�	�	g
syntax-object�	gdefine�	 gtop�	! �	"gribcage�	#gdummy�	$gname�	%g
hash-set-proc�	&#$%�	'gm-3144cc814ae864-1�	(' �	)(!!�	*fl-3144cc814ae864-6�	+fl-3144cc814ae864-7�	,fl-3144cc814ae864-8�	-*+,�	."&)-�	/"�	0gx�	10�	2(�	3fl-3144cc814ae864-3�	43�	5"124�	6!./5�	7ghygiene�	87�	968�	:galist�	;:68�	<;�	=f Convert ALIST into a hash table.�	>=68�	?glet�	@?68�	Agtable�	BA68�	Cgmake-hash-table�	DC68�	ED�	FBE�	GF�	Hgfor-each�	IH68�	Jglambda�	KJ68�	Lgpair�	ML68�	NM�	Ogcar�	PO68�	QPM�	Rgcdr�	SR68�	TSM�	UBQT�	Vgreverse�	WV68�	XW;�	YX�	ZB�	[gsyntax-violation�	\[�	][�	^f-source expression failed to match any pattern�	_g	hash-set!�	`g
hashq-set!�	ag
hashv-set!�	bg
hashx-set!�C5hxx]4	
54>"G49<>@GIKNUYZh0Z]�	�
�����CRgdummy
		*gname		*g
hash-set-proc			*		*	C]^h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/hash-table.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgnameg
hash-set-procC5RCH_hY]L��6Qgpair
		gfilenamefice-9/hash-table.scm�
	!
��		CVh0�]	454O45>"GC�galist
		*gtable		*gfilenamefice-9/hash-table.scm�
	!
��		*gnamegalist->hash-table�g
documentationf Convert ALIST into a hash table.�CRCH`hY]L��6Qgpair
		gfilenamefice-9/hash-table.scm�
	"
��		CVh0�]	454O45>"GC�galist
		*gtable		*gfilenamefice-9/hash-table.scm�
	"
��		*gnamegalist->hashq-table�g
documentationf Convert ALIST into a hash table.�C
RCHahY]L��6Qgpair
		gfilenamefice-9/hash-table.scm�
	#
��		CVh0�]	454O45>"GC�galist
		*gtable		*gfilenamefice-9/hash-table.scm�
	#
��		*gnamegalist->hashv-table�g
documentationf Convert ALIST into a hash table.�CRCHbhr]LLL��6jgpair
		gfilenamefice-9/hash-table.scm�
	)	��	
	*	-��		*	8��		*	��		CVh05]454O45>"GC-ghash
		.gassoc		.galist			.gtable			.gfilenamefice-9/hash-table.scm�
	%
��		(	��		(	��	
	)	��		+	��	#	)	��		.	gnamegalist->hashx-table�g
documentationfFConvert ALIST into a hash table with custom HASH and ASSOC
procedures.�CRCpgm
		(gfilenamefice-9/hash-table.scm�		
��[	!
���	"
��\	#
��p	%
��	r
C6PKR<�ZY۞""documentation.gonu�[���GOOF----LE-8-2.0
]H4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	g
documentation�	�		gfilenameS�	
fice-9/documentation.scm�	gimportsS�	grdelim�	
�	
�	�	gexportsS�	gfile-commentary�	gdocumentation-files�	gsearch-documentation-files�	gobject-documentation�	�	g	autoloadsS�	gregex�	�	gmatch:suffix�	�	�	gset-current-module�	�	�	gmake-regexp�	 f^;;; Commentary:�	!f
^;;; Code:�	"f^;+�	#gregexp-exec�	$glength�	%gregexp?�	&gstring?�	'g
procedure?�	(gcall-with-input-file�	)geof-object?�	*gafter�	+gin�	,gread-delimited�	-f
�	.g
string-append�	/f�	0gbefore�	1gmap�	2gin-vicinity�	3fguile-procedures.txt�	4g%library-dir�	5g%package-data-dir�	6g	%site-dir�	7f.�	8f�	9gentry-delimiter�	:gfile-exists?�	;gsymbol->string�	<g
string-length�	=gstring=?�	>g	substring�	?g
string-ref�	@gfind-documentation-in-file�	Agor-map�	Bgprocedure-documentation�	Cgobject-property�	Dgmacro?�	Egmacro-transformer�	Fgprocedure-name�	Ggset-procedure-property!�C5h��]4	
5	4>"G !"#h �]	4L5$6C�gline
		gm		gfilenamefice-9/documentation.scm�
	g	��		h	%��		h	��		i	��		i	$��		C$%&'()*#+,-./0
h��]!"�45$"�$C4L5$"4L5$"&C45&"&44L55"""��g45	"��P�gport
	�gline	�gdoc		�gparse-state		�gt		
	"g	new-state		Q�gfilenamefice-9/documentation.scm�
	~	��			��	�	��	
�	��	�	*��	�	%��	&�	
��	*�	��	6�	��	8�	:��	=�	��	I�	��	K�	=��	Q�	��	U�	��	[�	��	_�	��	c�	*��	g�	��	i�	(��	o�	��	q�	<��	w�	��	x�	��	}�	1����	>����	����	���		���		���		)���		����	����	 ���		��$	�Ch�-13HHH45K45K45OK45�$J"1�45$"45$45"J	45�$J"2��45$"45$45"J	45�$J"���4	5$"J
O6�gfilename
		gcust		gdefault-in-line-re		gdefault-after-line-re		g
default-scrub		gdirt		+	7gv		O	}gv	��gv	��g
in-line-re	�g
after-line-re	�gscrub	�gfilenamefice-9/documentation.scm�
	]
��		d	��		d	*��		d	��		e	 ��	 	e	-��	"	e	 ��	%	f	$��	)	f	1��	+	f	$��	+	f	��	;	l	��	B	l	��	F	l	��	O	n	!��	O	n	��	R	o	!��	\	o	��	c	p	!��	m	o	��	n	p	-���	r	 ���	r	���	r	���	t	$���	t	���	u	$���	u	���	v	$���	u	���	v	0���	x	���	x	���	x	���	z	���	z	���	{	���	{	���	l	��	}	��)		
gnamegfile-commentary�CR41i23h}]456ugvicinity
		
gfilenamefice-9/documentation.scm�
�	��	�	��	�	!��	
�		��		
C4i5i6i7hT]CLgfilenamefice-9/documentation.scm�
�	
��	�	��		
C5R89R:(;<,9)=>?	h��]!4L5454>"G"{45$C"45"���45�$I44
55$045
�$	�45	�6"���"���"���45"��v�gport
	�gname		�glen		�gentry		,�gt		x�gfilenamefice-9/documentation.scm�
�		��	�	��		�	��	�	��	�	
��	�	��	,�	��	-�	��	7�	��	>�	#��	L�	��	L�	��	M�	��	V�	��	Z�	��	[�	��	^�	#��	k�	��	o�	��	p�	��	x�	����	����	)����	6����	3����	����	����	!����	��	�Ch �]45$
O6C�gname
		gfile		gfilenamefice-9/documentation.scm�
�
��	�	��	
�	��	�	��			gnamegfind-documentation-in-file�C@RA@hg]L6_gfile
		
gfilenamefice-9/documentation.scm�
�	
��	
�	��		
Ch(�-13O("6�gname
			"gfiles			"gfilenamefice-9/documentation.scm�
�
��	�	
��	"�	��			"
gnamegsearch-documentation-files�CR'BCDEFGh�G]	45$45"$C45$C45$4455"$C45$>45$14	455$4
>"G"CCC?gobject
	�gt	�gt	-�gt	T�g	docstring��gfilenamefice-9/documentation.scm�
�
��	�	��	
�	��	�	��	�	��	%�	��	+�	��	-�	��	-�	��	9�	��	C�	��	D�	��	G�	!��	O�	��	T�	��	`�	��	j�	��	k�	��	u�	��	v�	��	y�	����	����	����	
����	����	1����	��	�gnamegobject-documentation�g
documentationfzReturn the docstring for OBJECT.
OBJECT can be a procedure, macro or any object that has its
`documentation' property set.�CRC�gm
		0gfilenamefice-9/documentation.scm�		P
���	]
����	����	����	����
����	����
��\�
��
��
����
��	�
C6PKR<�Z�!�`��null.gonu�[���GOOF----LE-8-2.0�]#4h]gguile�	�	gdefine-module*�	�	�	gice-9�	gnull�	�		gfilenameS�	
fice-9/null.scm�	g
re-exportsS�	gdefine�	
gquote�	glambda�	gif�	gset!�	gcond�	gcase�	gand�	gor�	glet�	glet*�	gletrec�	gbegin�	gdo�	gdelay�	g
quasiquote�	g
define-syntax�	g
let-syntax�	g
letrec-syntax�	
�	 gset-current-module�	! �	" �C5h(P]4	
54">"GCHgm
		(gfilenamefice-9/null.scm�
	
��		(
C6PKR<�Z��k��
unicode.gonu�[���GOOF----LE-8-2.0�]4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gunicode�	�		gfilenameS�	
fice-9/unicode.scm�	gexportsS�	gformal-name->char�	
gchar->formal-name�	
�	gset-current-module�	�	�	gload-extension�	g
string-append�	f	libguile-�	geffective-version�	fscm_init_unicode�C5h@�]4	
54>"Gi4i4i556|gm
		(gfilenamefice-9/unicode.scm�		
��	-		��	3		!��	4		-��	<		��	>		��	@		��		@
C6PKR<�Z�(^poe.gonu�[���GOOF----LE-8-2.0�
]#4h(]gguile�	�	gdefine-module*�	�	�	gice-9�	gpoe�	�		gfilenameS�	
f
ice-9/poe.scm�	gimportsS�	ghcons�	
�	
�	�	gexportsS�	g
pure-funcq�	g
perfect-funcq�	�	gset-current-module�	�	�	gmake-weak-key-hash-table�	g
funcq-memo�	gmake-gc-buffer�	gfuncq-buffer�	ghashq�	g
funcq-hash�	geq?-list�	gfuncq-assoc�	g	not-found�	 g	hashx-ref�	!g
hashx-set!�	"gmake-hash-table�C5h��]4	
54>"G4i5R4i5Rh@�]"+(�C4�?��5��"���
"����garg-list
		<gn		<gx			1garg-list			1gfilenamef
ice-9/poe.scm�
	3
��		4	��		6	��		7	��		8	"��		8	)��	%	8	"��	&	8	��	)	9	��	1	8	��	1	4	��		<	gnameg
funcq-hash�CRh0�](�C(C��&
��6C�gx
		*gy		*gfilenamef
ice-9/poe.scm�
	=
��		>	��		?	��		@	��		A	��		A	��		@	��	#	B	��	&	B	��	(	B	��		*	gnamegeq?-list�CRh(�](C4��5$�C�6�garg-list
		&galist		&gfilenamef
ice-9/poe.scm�
	D
��		E	��		G	
��		G	��		G	
��		G	��		H	
��	$	I	 ��	&	I	
��
		&	gnamegfuncq-assoc�CRR !hx�-13L�45&84L?4>"G4>"GC4>"GC�gargs
			vgkey		vgcached			vgval		0	agfilenamef
ice-9/poe.scm�
	P	��		Q	��		Q	��		R	��		Q	��	)	S	��	*	X	��	0	X	
��	3	Y	��	E	Z	��	b	U	��			v


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


Ch�]
H45KOC�gsize
		g	base-func		g
funcq-memo			gfilenamef
ice-9/poe.scm�
	e
��		f	��			gnameg
perfect-funcq�CRC�gm
		,gfilenamef
ice-9/poe.scm�		
��	-	0	��	9	0
��	:	1	��	F	1
���	3
���	=
���	D
���	L	���	L	���	L
���	O
���	e
��	�
C6PKR<�ZE=M5��r5rs.gonu�[���GOOF----LE-8-2.0�]'4h]gguile�	�	gdefine-module*�	�	�	gice-9�	gr5rs�	�		gfilenameS�	
fice-9/r5rs.scm�	gexportsS�	gscheme-report-environment�	
�	g
re-exportsS�	ginteraction-environment�	gcall-with-input-file�	gcall-with-output-file�	gwith-input-from-file�	gwith-output-to-file�	gopen-input-file�	gopen-output-file�	gclose-input-port�	gclose-output-port�	gload�	
�	gset-current-module�	�	�	gmodule-use!�	gmodule-public-interface�	gcurrent-module�	 gresolve-interface�	!g	safe-r5rs�	"!�	#gscheme-report-interface�	$g	scm-error�	%g
misc-error�	&f~A is not a valid version�C5hx�]4	

54>"G4i4i4i554 i"5>"G4i4i55#R$%&#h0�]	�$"4>"GC�gn
		.gfilenamefice-9/r5rs.scm�
	&
��		'	��		'	��		(	��		(	��		(	��		)	��		*	��		+	��	#	(	��		.gnamegscheme-report-environment�CRC�gm
		,gfilenamefice-9/r5rs.scm�		
��	-	!
��	2	!	
��	7	!	&��	?	!	
��	@	"	
��	F	"	 ��	H	"	
��	M	!
��	V	$	 ��	[	$	9��	c	$	 ��	f	$
��q	&
��	s
C6PKR<�Z��-,,
calling.gonu�[���GOOF----LE-8-2.0,]m4h]gguile�	�	gdefine-module*�	�	�	gice-9�	gcalling�	�		gfilenameS�	
fice-9/calling.scm�	gexportsS�	gwith-excursion-function�	
gwith-getter-and-setter�	gwith-getter�	g!with-delegating-getter-and-setter�	g with-excursion-getter-and-setter�	g$with-configuration-getter-and-setter�	g/with-delegating-configuration-getter-and-setter�	g(let-with-configuration-getter-and-setter�	
�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	g_�	 gany�	! ��	"g
syntax->datum�	#"�	$"�	%g
datum->syntax�	&%�	'%�	(gexcursion-function-syntax�	)gsyntax-violation�	*)�	+)�	,f-source expression failed to match any pattern�	-ggetter-and-setter-syntax�	.g#delegating-getter-and-setter-syntax�	/gmap�	0ggensym�	1ftemp�	2fswap�	3fthunk�	4glambda�	5gletrec�	6�	7gbegin�	8gset!�	9gdynamic-wind�	:fargs�	;fan-arg�	<f	new-value�	=floop�	>gsymbol->keyword�	?glet�	@gif�	Agnull?�	Bgquote�	CB�	Dgall-vals�	Egvals�	FED�	Ggkws�	HAE�	Ig
quasiquote�	Jgunquote�	Kgcar�	LKG�	MJL�	NKE�	OJN�	Pgunquote-splicing�	Qgcdr�	RQE�	SQG�	TRS�	Ugcase�	Vgappend�	Wgelse�	Xgthrow�	Ygbad-get-option�	ZBY�	[gor�	\gcadr�	]gbad-set-option�	^B]�	_gcddr�	`gappend!�	agsimpler-get�	bgsimpler-set�	cg	body-proc�	dabc�	eabc�	f4de�	ggkw�	hg�	iglist�	jgnew-val�	kgj�	lj�C5h�#p]4	
54>"G4!$'(hx]45Cpgvars
		gproc		gfilenamefice-9/calling.scm�
	/
��		0	��		0	��			Che]	45L4?6]gargs
		gv			gfilenamefice-9/calling.scm�		/
��		C+,h(c]	45$O@6[gy
		'gtmp		'gfilenamefice-9/calling.scm�
	/
��		'C5R4
!$'-hx]45�Cpgvars
		
gproc		
gfilenamefice-9/calling.scm�
	\
��		]	
��		]	��		
	Che]	45L4?6]gargs
		gv			gfilenamefice-9/calling.scm�		\
��		C+,h(c]	45$O@6[gy
		'gtmp		'gfilenamefice-9/calling.scm�
	\
��		'C5
R4!$'-h�]45�Cxgvars
		gproc		gfilenamefice-9/calling.scm�
	d
��		e	��		e	��		e	��			Che]	45L4?6]gargs
		gv			gfilenamefice-9/calling.scm�		d
��		C+,h(c]	45$O@6[gy
		'gtmp		'gfilenamefice-9/calling.scm�
	d
��		'C5R4!$'.h�]45�C�gvars
		gget-delegate		gset-delegate			gproc			gfilenamefice-9/calling.scm�
	u
��		v	
��		v	��			Che]	45L4?6]gargs
		gv			gfilenamefice-9/calling.scm�		u
��		C+,h(c]	45$O@6[gy
		'gtmp		'gfilenamefice-9/calling.scm�
	u
��		'C5R4!$'(-h�]4545��C|gvars
		gproc		gfilenamefice-9/calling.scm�
�
��	�	��	�	
��	�	��			Chf]	45L4?6^gargs
		gv			gfilenamefice-9/calling.scm�	�
��		C+,h(d]	45$O@6\gy
		'gtmp		'gfilenamefice-9/calling.scm�
�
��		'C5R/012345678h(n]LLCfgn
		#gsn		#gfilenamefice-9/calling.scm�
�	$��	�	&��		#	Chn]Cfgsn
		
gn		
gfilenamefice-9/calling.scm�
�	��		�	'��		
	C9hpw]!45454545�4	O5��4
5��Cogvars
		ogsaved-value-names	 	ogtmp-var-name		 	ogswap-fn-name		 	og
thunk-name		 	ogfilenamefice-9/calling.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	 �	��	 �	��	*�	��	<�	��	L�	��	Q�	��	\�	��		ognamegexcursion-function-syntax�C(R0:;<=/>4?@ACDBFGHIMOPT/UVhn]Cfgkw
		
gv		
gfilenamefice-9/calling.scm�
�	(��	�	7��		
	CWXZ[QK\8hn]LCfgkw
		gv		gfilenamefice-9/calling.scm�
�	#��	�	2��			C^_%hx])4545454545	
("P	
	
�4455��		 !44"O5#5��$Cgvars
	ug	args-name	'ugan-arg-name		'ugnew-val-name		'ug	loop-name		'ugkws		'ugfilenamefice-9/calling.scm�
�
��	�	��	�	��		�	��	
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	
��	'�	��	3�	
��	R�	��	T�	��	Z�	����	
����	"����	#����	#����	"����	
����	
��2�	��5�	��F�	��W�	��X�	
��t�	��!	ugnameggetter-and-setter-syntax�C-R0:;<=/>4?@A`CDBFGHIMOPT/UVhn]Cfgkw
		
gv		
gfilenamefice-9/calling.scm�
�	(��	�	7��		
	CWK[Q\8hn]LCfgkw
		gv		gfilenamefice-9/calling.scm�
�	#��	�	2��			C_#h�Z]+4545454545	
(
"P		

�4455��		 44!O55��"CRgvars
	�gget-delegate	�gset-delegate		�g	args-name		'�gan-arg-name		'�gnew-val-name		'�g	loop-name		'�gkws		'�gfilenamefice-9/calling.scm�
�
��	�	��	�	��		�	��	
�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	��	�	
��	'�	��	3�	
��	T�	��	V�	��	\�	����	
����	"����	#����	#����	"����	
����	
��?�	��B�	��S�	��d�	��e�	
����	��!	�	gnameg#delegating-getter-and-setter-syntax�C.R4!$'f4hUg/>ih8�]	4�5��$	"�C�gv
		1gt		-gfilenamefice-9/calling.scm�
	��		��		0��	
	��	
	��	
	 ��			��	$	0��	'	8��	*	0��	0	��		1Ck>l8h8�]	4�5���$	�"	���C�gv
		3gt		/gfilenamefice-9/calling.scm�
	��		��		0��	
	��	
	��		 ��		��		B��	%	0��	(	8��	*	0��	2	��
		3C
h8�]45��4	5��C�gvars-etc
		6gproc		6gfilenamefice-9/calling.scm�

��		��	
	
��		��	#	
��	,	��		6	Chf]	45L4?6^gargs
		gv			gfilenamefice-9/calling.scm�	
��		C+,h(d]	45$O@6\gy
		'gtmp		'gfilenamefice-9/calling.scm�

��		'C5R4!$'f4hUg`/>ih8�]	4�5��$	"�C�gv
		1gt		-gfilenamefice-9/calling.scm�
	��		(��		9��	
	(��	
	$��	!	)��	 	'��	$"	8��	'"	@��	*"	8��	0	$��		1CWk>l8h8�]	4�5���$	�"	���C�gv
		3gt		/gfilenamefice-9/calling.scm�
(	��	(	(��	(	9��	
(	(��	
(	$��	*	)��	)	'��	*	J��	%+	8��	(+	@��	*+	8��	2(	$��
		3Ch`]445	�5��
445	
�5��C�gvars-etc
		Zgdelegate-get		Zgdelegate-set			Zgproc			Zgfilenamefice-9/calling.scm�

��		��	
	
��		��	$	��	'	
��	(	��	5(	
��	8(	��	B-	��	O(	
��	P	��
		Z	Chf]	45L4?6^gargs
		gv			gfilenamefice-9/calling.scm�	
��		C+,h(d]	45$O@6\gy
		'gtmp		'gfilenamefice-9/calling.scm�

��		'C5R4!$'?/hp]���Chgv
		
gfilenamefice-9/calling.scm�
C	��	C	��	C	&��	C	��		
Chy]��������Cqgv
		gfilenamefice-9/calling.scm�
D	1��	D	@��	D	I��	
D	T��	D	=��		Ch(�]4545C�gvars-etc
		!gproc		!gfilenamefice-9/calling.scm�
B
��	C	��	C		��	C	��	D	,��	C	��		!	Chf]	45L4?6^gargs
		gv			gfilenamefice-9/calling.scm�	B
��		C+,h(d]	45$O@6\gy
		'gtmp		'gfilenamefice-9/calling.scm�
B
��		'C5RChgm
		(gfilenamefice-9/calling.scm�		
����
���
��]�
��	#�
C6PKR<�Z�Vl]��serialize.gonu�[���GOOF----LE-8-2.0�]44h^]gguile�	�	gdefine-module*�	�	�	gice-9�	g	serialize�	�		gfilenameS�	
fice-9/serialize.scm�	gimportsS�	gthreads�	
�	
�	�	gexportsS�	gcall-with-serialization�	gcall-with-parallelization�	gparallelize�	�	gset-current-module�	�	�	g
make-mutex�	gserialization-mutex�	gadmin-mutex�	gowner�	g
lock-mutex�	gdynamic-root�	gunlock-mutex�	gmake-syntax-transformer�	 �	!�	"gmacro�	#g$sc-dispatch�	$#�	%#�	&g_�	'gany�	(&'��	)g
syntax->datum�	*)�	+)�	,g
datum->syntax�	-,�	.,�	/glambda�	0gsyntax-violation�	10�	20�	3f-source expression failed to match any pattern�C5h`�]4	
54>"G4i5R4i5RRhX�]4>"GNM45�$64>"G4>"G45 C�gfilenamefice-9/serialize.scm�
	F	��		G	
��		H	
��		I	%��	 	I	��	$	I	
��	*	N	��	+	K	��	=	L	��	O	M	��	U	M	��		W
Ch@~]4>"GM45�$" 4>"G6vgfilenamefice-9/serialize.scm�
	P	��		Q	
��		R	%��		R	��	 	R	
��	'	T	��	(	U	��	?	V	
��			?
ChX�]4>"GNM45�$64>"G4>"G45 C�gfilenamefice-9/serialize.scm�
	F	��		G	
��		H	
��		I	%��	 	I	��	$	I	
��	*	N	��	+	K	��	=	L	��	O	M	��	U	M	��		W
Ch@~]4>"GM45�$" 4>"G6vgfilenamefice-9/serialize.scm�
	P	��		Q	
��		R	%��		R	��	 	R	
��	'	T	��	(	U	��	?	V	
��			?
Ch@~]4>"GM45�$" 4>"G6vgfilenamefice-9/serialize.scm�
	P	��		Q	
��		R	%��		R	��	 	R	
��	'	T	��	(	U	��	?	V	
��			?
Ch`�]	HOO4O>"GV4>X4O>"GCX4O>"GF�gthunk
		_gouter-owner		_gfilenamefice-9/serialize.scm�
	C
��		D	��		E	��		_gnamegcall-with-serialization�CR4!"%(+./hc-13��C[gforms
			gfilenamefice-9/serialize.scm�
	X
��		Y	��			


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


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

	�>"G4


>"G�&
�"4>"G�&	�C6"��C�gset
	gsize	gprev			gnew		gold-pollfds	�gnfds	�g	old-ports	�gnew-pollfds	�g	new-ports	�	gfilenamefice-9/poll.scm�
	T
��		U	��			U	��		V	��		V	��		W	��		X	��	!	X	
��	&	Y	��	,	Y	��	/	Z	!��	I	[	��	c	\	��	|	]	!���	]	2���	]	!���	^	���	Z	���	_	���	`	"���	_	���	a	���	b	���	c	��	W	��		gnamegensure-pset-size!�C�RHhChh�]
"T�&�"	45�$1�&		�"	45��$C�"���C
"����gset
		agport		agi			Zgfilenamefice-9/poll.scm�
	e
��		f	��		g	
��	#	g	��	'	g	��	*	h	 ��	E	h	��	H	h	��	L	h	��	R	j	��	X	j	��	Z	f	��
		a	gnamegpoll-set-find-port�CRHhC.�hP�]�&�"	45�$�&		�"	45�C6�gset
		Lgidx		Lgfilenamefice-9/poll.scm�
	m
��		n	
��		n	��	#	n	��	&	o	��	A	o	��	F	p	
��	L	p	��			L	gnameg
poll-set-port�CRHhi.�hX�]�&�"	45�$$�&
�"	45	�	��C6�gset
		Qgidx		Qgfilenamefice-9/poll.scm�
	r
��		s	
��		s	��	#	s	��	&	t	!��	B	t	7��	E	t	4��	F	t	��	K	u	
��	Q	u	��		Q	gnamegpoll-set-events�CRHhi.�hX�]�&�"	45�$'�&
�"	45	�	��C6�gset
		Tgidx		Tgevents			Tgfilenamefice-9/poll.scm�
	w
��		x	
��		x	��	#	x	��	&	y	"��	B	y	8��	E	y	5��	H	y	��	N	{	
��	T	{	��		T	gnamegset-poll-set-events!�CRHhi.�hX�]�&�"	45�$$�&
�"	45	�	��C6�gset
		Qgidx		Qgfilenamefice-9/poll.scm�
	}
��		~	
��		~	��	#	~	��	&		!��	B		7��	E		4��	F		��	K�	
��	Q�	��		Q	gnamegpoll-set-revents�C RHhi.�hX�]�&�"	45�$'�&
�"	45	�	��C6�gset
		Tgidx		Tgrevents			Tgfilenamefice-9/poll.scm�
�
��	�	
��	�	��	#�	��	&�	"��	B�	8��	E�	5��	H�	��	N�	
��	T�	��		T	gnamegset-poll-set-revents!�C!RHh�����iCh�]#�&�"	45	�45$"4545$4>"G"4�>"G�&
�"	4	5��&
�"	4	5	���&
�"	4	5	�
��&		�"	4
5���&�C6�gset
	g
fd-or-port	gevents		gidx		goff		#gfd		=gval	�gfilenamefice-9/poll.scm�
�
��	�	��	�	��	#�	��	#�	��	&�	��	0�	
��	7�	��	=�	��	@�	��	J�	��	K�	��	a�	��	h�	��	m�	��	x�	 ����	����	 ����	3����	����	 ����	3����	����	����	����	����	��		gnameg
poll-set-add!�C"RHh.�C��ih�"]"�&�"	45�$"4>"G�&�"	45	��&		�"	45�4�&		�"	45��&		�"	45>"G�&		�"	45��4�&
�"	4	5�	��&
�"	4	5	��	��>"G�&
�"	4	5�	�
���&�"4
>"GCgset
	�gidx	�gnfds		z�goff		z�gport		z�gval	j�gfilenamefice-9/poll.scm�
�
��	�	��	�	��	#�	��	(�	��	,�	
��	5�	��	@�	��	\�	
��	_�	��	z�	��	z�	����	����	����	(����	����	����	����	"����	����	����	��
�	8���	)���	��1�	��4�	=��7�	.��8�	��=�	��H�	 ��b�	B��e�	3��g�	��j�	��j�	��%	�	gnamegpoll-set-remove!�C#R�HhiChp�-.,3#	��&
�"	45�&�"	45�&		�"	456�gpoll-set
		kgtimeout		kgfilenamefice-9/poll.scm�
�
��	�	��	5�	��	O�	��	k�	��		kgnamegpoll�CRCYgm
		,grtd
��gfilenamefice-9/poll.scm�		
��	-	%	��	2	%	��	8	%	!��	9	%	-��	A	%	��	C	&	��	H	%	��	W	(		��	[	(
��	`	)	��	f	)	��	o	)	��	x	+	��	~	+	���	+	���	+
���	,	��	.	��		.	��	.	��	.
��	/	���	1	���	1	���	1	���	1
���	2	��	4	��	4	��	4	��	4
�� 	5	���	7	���	7	���	7	���	7
���	8	��#	:	��)	:	��+	:	��/	:
��0	;	���	=	���	=	���	=	���	=
���	>	���	A
��'�	L
��(�	Q
��+�	T
��-e	e
��.�	m
��/�	r
��1+	w
��2m	}
��3��
��6��
��:��
��<%�
��>	<'
C6PKR<�Z�e��VVand-let-star.gonu�[���GOOF----LE-8-2.0>]�4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gand-let-star�	�		gfilenameS�	
fice-9/and-let-star.scm�	gexportsS�	gand-let*�	
�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	g	%and-let*�	gmacro�	g$sc-dispatch�	�	�	g_�	gany�	��	��	��	g
syntax-object�	gbegin�	 gtop�	! �	"gribcage�	#g	orig-form�	$gbody�	%#$�	&!!�	'fl-1706b9545eb5b006-4�	(fl-1706b9545eb5b006-5�	)'(�	*"%&)�	+"�	,gform�	-,�	.!�	/fl-1706b9545eb5b006-1�	0/�	1"-.0�	2!*+1�	3ghygiene�	43�	524�	624�	7�	8��	978��	:9��	;:��	<;��	=�	>=8��	?>��	@?��	A@��	Bgand�	Cgexpr�	Dgrest�	Egrest*�	F#CDE$�	G!!!!!�	Hfl-1706b9545eb5b006-22�	Ifl-1706b9545eb5b006-23�	Jfl-1706b9545eb5b006-24�	Kfl-1706b9545eb5b006-25�	Lfl-1706b9545eb5b006-26�	MHIJKL�	N"FGM�	O!N+1�	PBO4�	QO4�	R8��	SR��	TS��	UT��	V7�	WV�	X=�	YX�	Z=�	[V��	\[��	]\��	^X��	_^��	`_��	a#C$�	b!!!�	cfl-1706b9545eb5b006-6e�	dfl-1706b9545eb5b006-6f�	efl-1706b9545eb5b006-70�	fcde�	g"abf�	h!g+1�	iBh4�	jh4�	k=��	lk��	ml��	n8��	on��	po��	qgsyntax-violation�	rf
Bad clause�	sq�	tq�	uf-source expression failed to match any pattern�	vgidentifier?�	wgvar�	x#w$�	yfl-1706b9545eb5b006-7b�	zfl-1706b9545eb5b006-7c�	{fl-1706b9545eb5b006-7d�	|yz{�	}"xb|�	~!}+1�	B~4��~4��glet��#wC$��!!!!��fl-1706b9545eb5b006-65��fl-1706b9545eb5b006-66��fl-1706b9545eb5b006-67��fl-1706b9545eb5b006-68��������"�����!�+1����4��B�4���4��#wDE$��fl-1706b9545eb5b006-37��fl-1706b9545eb5b006-38��fl-1706b9545eb5b006-39��fl-1706b9545eb5b006-3a��fl-1706b9545eb5b006-3b���������"�G���!�+1��B�4���4��#wCDE$��!!!!!!��fl-1706b9545eb5b006-15��fl-1706b9545eb5b006-16��fl-1706b9545eb5b006-17��fl-1706b9545eb5b006-18��fl-1706b9545eb5b006-19��fl-1706b9545eb5b006-1a����������"�����!�+1����4��B�4���4��geach-any�����������gt-1706b9545eb5b006-92�����gm-1706b9545eb5b006-93��� �����fl-1706b9545eb5b006-96�����"�����gc���$��fl-1706b9545eb5b006-8e��fl-1706b9545eb5b006-8f������"�&���fl-1706b9545eb5b006-8b�����"-.���!+��+����4��gcond-expand-provide��gcurrent-module��gsrfi-2����C5hXt]4	

54>"G456hC]��C;g	orig-form
		gbody					C<APQhz]����Crg	orig-form
		gexpr		grest			grest*			gbody						CUWYhC]C;g	orig-form
		gexpr					CZ]`ijhU]�CMg	orig-form
		gexpr		gbody						Cmpqrh�]6�g	orig-form
		g
bad-clause		grest			gbody			gfilenamefice-9/and-let-star.scm�		@	��		@	#��		@	��			Ctuvh�]6}g	orig-form
		gvar		gbody			gfilenamefice-9/and-let-star.scm�		;	��			C�hT]�CLg	orig-form
		gvar		gbody						Cvh�]6�g	orig-form
		gvar		gexpr			gbody			gfilenamefice-9/and-let-star.scm�		5	��			C���h f]�C^g	orig-form
		gvar		gexpr			gbody						Cvhs]6kg	orig-form
		gvar		gfilenamefice-9/and-let-star.scm�		0	��			ChB]C:g	orig-form
		gvar					Cvh�]6}g	orig-form
		gvar		gexpr			gfilenamefice-9/and-let-star.scm�		+	��			ChT]CLg	orig-form
		gvar		gexpr						Cvh�]6�g	orig-form
		gvar		grest			grest*			gbody			gfilenamefice-9/and-let-star.scm�		&	��			C��hy]����Cqg	orig-form
		gvar		grest			grest*			gbody						Cvh�]6�g	orig-form
		gvar		gexpr			grest			grest*			gbody			gfilenamefice-9/and-let-star.scm�		 	��			C���h(�]����C�g	orig-form
		'gvar		'gexpr			'grest			'grest*			'gbody			'		'	C h�']Y45$@45"K45$@45"45"�4	5$
@45"�45"e4
5		$	@45
" 45$@6
$4
?$
@"���"���$4?$@"���"��|$4?$@"��R"��N$4?$@"��
"��	$4?$@"���"���$4?$@"���"���gform
	�gtmp	�gtmp		"�gtmp		1sgtmp		Hsgtmp		WTgtmp		f5gtmp		}5gtmp	�gtmp		��gtmp	
��gtmp	��gfilenamefice-9/and-let-star.scm�
		��	�C5R4��h;]L���C3gc
		gbody					Ctuh(l]	45$O@6dgform
		'gtmp		'gfilenamefice-9/and-let-star.scm�
	C	��		'C5R�i4�i5�6lgm
		(gfilenamefice-9/and-let-star.scm�		
��N	H	��V	H	&��X	H
��	X
C6PKR<�Z);�xx
save-stack.gonu�[���GOOF----LE-8-2.0`]4hP]gguile�	�	gdefine-module*�	�	�	gice-9�	g
save-stack�	�		gfilenameS�	
fice-9/save-stack.scm�	greplacementsS�	gstack-saved?�	
gthe-last-stack�	
�	gset-current-module�	�	�	g
make-fluid�	g%stacks�	g
make-stack�C5h`v]4	
54>"GR4i5
R
h@�-13$C[4	�$��"
?\ C�g	narrowing
			;gstacks		6gfilenamefice-9/save-stack.scm�
	*
��		+	��		-	��		5	��	!	7	!��	%	7	��	(	7	0��	2	5	��	9	9	��
			;


gnameg
save-stack�CRCngm
		(gfilenamefice-9/save-stack.scm�		
��	,	&
��	-	(	��	6	(
��]	*
��	_
C6PKR<�Z��u@MMMM
optargs.gonu�[���GOOF----LE-8-2.05M]�4h7]gguile�	�	gdefine-module*�	�	�	gice-9�	goptargs�	�		gfilenameS�	
fice-9/optargs.scm�	gimportsS�	gsystem�	
gbase�	gpmatch�	
�	�	�	gexportsS�	glet-optional�	g
let-optional*�	glet-keywords�	g
let-keywords*�	gdefine*-public�	g	defmacro*�	gdefmacro*-public�	�	g
re-exportsS�	glambda*�	gdefine*�	�	gset-current-module�	 �	!�	"g$sc-dispatch�	#"�	$"�	%greverse�	&gany�	'&&�	('&��	)&&��	*gsyntax-violation�	+*�	,*�	-f-source expression failed to match any pattern�	.gidentifier?�	/g
syntax-object�	0gtop�	10�	2gribcage�	3gv�	4grest�	534�	611�	7fl-44375c4e67-1f0�	8fl-44375c4e67-1f1�	978�	:2569�	;2�	<glp�	=gbindings�	>gvars�	?ginits�	@<=>?�	A1111�	Bfl-44375c4e67-1d4�	Cfl-44375c4e67-1d5�	Dfl-44375c4e67-1d6�	Efl-44375c4e67-1d7�	FBCDE�	G2@AF�	H=�	I1�	Jfl-44375c4e67-1d3�	KJ�	L2HIK�	M1:;G;L�	Nghygiene�	ON�	P/MO�	Qg
vars&inits�	Rgmake-syntax-transformer�	SR�	TR�	Ugmacro�	Vg_�	Wgeach-any�	X&W��	YWX��	Z&Y��	[VZ��	\glength�	]gappend�	^ggenerate-temporaries�	_&&&WW�	`glet�	agn�	bgn+1�	cgt�	dgi�	eab>cd�	f11111�	gfl-44375c4e67-210�	hfl-44375c4e67-211�	ifl-44375c4e67-212�	jfl-44375c4e67-213�	kfl-44375c4e67-214�	lghijk�	m2efl�	n>?�	ofl-44375c4e67-20b�	pfl-44375c4e67-20c�	qop�	r2n6q�	sgrest-arg�	tgbinding�	ugb0�	vgb1�	wstuv�	xfl-44375c4e67-200�	yfl-44375c4e67-201�	zfl-44375c4e67-202�	{fl-44375c4e67-203�	|xyz{�	}2wA|�	~gx�	~��fl-44375c4e67-1f5�����2I���1;m;;r};�	��/`�O��gmap��������glambda��/��O��gapply��/��O��gor��/��O��gparse-lambda-case��/��O��gquote��/��O��/
�O��/�O���������glist��/��O��gerror��/��O��fsth��/��O��&&&W��ab>d��fl-44375c4e67-23a��fl-44375c4e67-23b��fl-44375c4e67-23c��fl-44375c4e67-23d��������2�A���fl-44375c4e67-235��fl-44375c4e67-236������2n6���fl-44375c4e67-22a��fl-44375c4e67-22b��fl-44375c4e67-22c��fl-44375c4e67-22d��������2wA���fl-44375c4e67-21f�����2I���1;�;;��;�	��/��O��/��O��/��O��/��O��/��O��/
�O��/�O���������/��O��/��O��/��O��&Z���V����gaok��s�tuv��fl-44375c4e67-279��fl-44375c4e67-27a��fl-44375c4e67-27b��fl-44375c4e67-27c��fl-44375c4e67-27d���������2�f���fl-44375c4e67-245�����2I���1�;���/`�O��gr��/��O��/�O��gsymbol->keyword��g
syntax->datum��giota��&&&WWWW��givars��gkw��gidx��a>���cd��1111111��fl-44375c4e67-264��fl-44375c4e67-265��fl-44375c4e67-266��fl-44375c4e67-267��fl-44375c4e67-268��fl-44375c4e67-269��fl-44375c4e67-26a�����������2�����fl-44375c4e67-25f��fl-44375c4e67-260������2n6���fl-44375c4e67-252��fl-44375c4e67-253��fl-44375c4e67-254��fl-44375c4e67-255��fl-44375c4e67-256���������2�f���1;�;;��;�	��/`�O��/��O��/��O��/��O��/��O��/��O��/
�O��/�O��gcons��/��O��/��O��/��O��fl-44375c4e67-2b4��fl-44375c4e67-2b5��fl-44375c4e67-2b6��fl-44375c4e67-2b7��fl-44375c4e67-2b8�������2�f�fl-44375c4e67-286��2I�1;�/`O�/�O�/O�	&&WWW�
a>��d�fl-44375c4e67-2a5�fl-44375c4e67-2a6�
fl-44375c4e67-2a7�fl-44375c4e67-2a8�fl-44375c4e67-2a9�
�2
f�fl-44375c4e67-2a0�fl-44375c4e67-2a1��2n6�fl-44375c4e67-293�fl-44375c4e67-294�fl-44375c4e67-295�fl-44375c4e67-296�fl-44375c4e67-297��2�f�1;;;;	�/�O�/�O� /�O�!/�O�"/�O�#/
O�$/O�%/�O�&/�O�'/�O�()X��)V(��*g
define-public�+gid�,gargs�-+,uv�.fl-44375c4e67-2c4�/fl-44375c4e67-2c5�0fl-44375c4e67-2c6�1fl-44375c4e67-2c7�2./01�32-A2�4fl-44375c4e67-2c1�54�62I5�713;6�8/*7O�9/7O�:V&&�;gval�<+;�=fl-44375c4e67-2d2�>fl-44375c4e67-2d3�?=>�@2<6?�A1@;6�B/*AO�C&X��D&C��E&D��FVE��GVD��Hgdefine-macro�Ifl-44375c4e67-2f0�Jfl-44375c4e67-2f1�Kfl-44375c4e67-2f2�Lfl-44375c4e67-2f3�MIJKL�N2-AM�Ofl-44375c4e67-2d7�PO�Q2IP�R1N;Q�S/HRO�T/RO�U/RO�Vgstring?�Wgdoc�X+,Wuv�Yfl-44375c4e67-2e4�Zfl-44375c4e67-2e5�[fl-44375c4e67-2e6�\fl-44375c4e67-2e7�]fl-44375c4e67-2e8�^YZ[\]�_2Xf^�`1_;Q�a/H`O�b/`O�cgbegin�dgdummy�ed+,uv�fgm-44375c4e67-2fa�gf0�hg1111�ifl-44375c4e67-2ff�jfl-44375c4e67-300�kfl-44375c4e67-301�lfl-44375c4e67-302�mfl-44375c4e67-303�nijklm�o2ehn�pg�qfl-44375c4e67-2fc�rq�s2pr�t1o;s�u/ctO�v/tO�wg
export-syntax�x/wtO�yg
uninitialized�zg*uninitialized*�{g	make-list�|gappend!�}gkeyword?�~gassq-ref�g	list-set!��g	scm-error��gkeyword-argument-error��fUnrecognized keyword��fInvalid keyword��g	list-copy��funexpected spec�C5h�/�]4	
5	4!>"G$%hU]4L54L5DMgfilenamefice-9/optargs.scm�		Z	��	
	Z	��		Z	��		
C(),-.hg]6_gv
		grest		gfilenamefice-9/optargs.scm�		]	��			CPhw]LL�L�6ogv
		grest		gfilenamefice-9/optargs.scm�		^	��		^	"��		^	��			C.hy]6qgv
		ginit		grest			gfilenamefice-9/optargs.scm�		[	��			Ch�]LL�L�6�gv
		ginit		grest			gfilenamefice-9/optargs.scm�		\	��		\	"��		\	��			Ch��]45$
O@45"@45"	6$4?$LO@"���"���$4	?$
LO@"���"����gbindings
	�gvars	�ginits		�gtmp		
�gtmp		(�gtmp		7	ngfilenamefice-9/optargs.scm�
	W	��	�	gnameglp�Ch�]	OQ6�gbindings
		glp	
	gfilenamefice-9/optargs.scm�
	V
��	
	W	��		W	%��		W	1��		W	��		gnameg
vars&inits�CQR4TU$[,-.h�]6�grest-arg
		gbinding		gb0			gb1			gfilenamefice-9/optargs.scm�		c	,��			CQ\]^$_���hZ]LCRgtmp-44375c4e67-21b
		gtmp-44375c4e67-21a					C����������hXj]4O5LL���	
�����L
LCbgn
		Ugn+1		Ugvars			Ugt			Ugi			U		U	C,-
hh ]$4>G4545�454545$O@	6grest-arg
		fgbinding		fgb0			fgb1			fgvars		
	fginits		
	fgtmp		;	fgtmp		F	fgfilenamefice-9/optargs.scm�		d	$��		d	��		f	��		g	"��	#	g	��	$	h	��	-	h	,��	/	h	��	0	i	"��	;	f	��		f	Ch@d]	45"	6$4?$@"���"���\gx
		9gtmp		9gfilenamefice-9/optargs.scm�
	a	��		9C5R4TU$[,-.h�]6�grest-arg
		gbinding		gb0			gb1			gfilenamefice-9/optargs.scm�		v	,��			CQ\]$�����������h:]LC2gtmp-44375c4e67-243
				C��
hP[]LL�������4	
O5�LLCSgn
		Lgn+1		Lgvars			Lgi			L		L	C,-	h`]$4>G4545�4545$O@6grest-arg
		_gbinding		_gb0			_gb1			_gvars		
	_ginits		
	_gtmp		4	_gtmp		?	_gfilenamefice-9/optargs.scm�		w	$��		w	��		y	��		z	"��	#	z	��	$	{	��	-	{	,��	/	{	��	4	y	��
		_	Ch@d]	45"	6$4?$@"���"���\gx
		9gtmp		9gfilenamefice-9/optargs.scm�
	t	��		9C5R4TU$����h(v]�����Cngrest-arg
		#gaok		#gbinding			#gb0			#gb1			#		#	C,-.h�]6�grest-arg
		gaok		gbinding			gb0			gb1			gfilenamefice-9/optargs.scm�	�	0��			CQ\^����$����hZ]LCRgtmp-44375c4e67-273
		gtmp-44375c4e67-272					C�����������h`�]4O5LL���		
L45�L
LC�gn
		_gvars		_givars			_gkw			_gidx			_gt			_gi			_		_	C,-
h�M]%4>G454544554455454	5$
O@6Egrest-arg
		ygaok		ygbinding			ygb0			ygb1			ygvars		
	yginits		
	ygtmp		L	ygtmp		W	y	gfilenamefice-9/optargs.scm�	�	$��	�	��	�	��	�	 ��	%�	#��	*�	(��	4�	#��	5�	$��	8�	*��	@�	$��	A�	"��	L�	��
		y	ChPv]45" 45$@6$4?$@"���"���ngx
		Pgtmp		Pgtmp			1gfilenamefice-9/optargs.scm�
�	��		PC5R4TU$�h(v]�����Cngrest-arg
		#gaok		#gbinding			#gb0			#gb1			#		#	C,-.h�]6�grest-arg
		gaok		gbinding			gb0			gb1			gfilenamefice-9/optargs.scm�	�	0��			CQ\����$	 !"#$��%h:]LC2gtmp-44375c4e67-2b2
				C&'hXk]LL���L4	5
4O5�L
LCcgn
		Vgvars		Vgkw			Vgidx			Vgi			V		V	C,-hp;]%4>G454455445545$	O@
63grest-arg
		kgaok		kgbinding			kgb0			kgb1			kgvars		
	kginits		
	kgtmp		>	kgtmp		I	k	gfilenamefice-9/optargs.scm�	�	$��	�	��	�	��	�	#��	#�	(��	-�	#��	.�	$��	1�	*��	9�	$��	>�	��		k	ChPv]45" 45$@6$4?$@"���"���ngx
		Pgtmp		Pgtmp			1gfilenamefice-9/optargs.scm�
�	��		PC5R4TU$)89h\]���CTgid
		gargs		gb0			gb1						C:,-.hh]6`gid
		gval		gfilenamefice-9/optargs.scm�		��			CBh;]C3gid
		gval					C	hPv]45$@45"	6$4?$@"���"���ngx
		Pgtmp		Pgtmp		"	Pgfilenamefice-9/optargs.scm�
�	��		PC5R4TU$FGSTUh\]���CTgid
		gargs		gb0			gb1						C,-V�h�]456�gid
		
gargs		
gdoc			
gb0			
gb1			
gfilenamefice-9/optargs.scm�		*��	
	!��		
	Cabhm]���Cegid
		gargs		gdoc			gb0			gb1						C	hPv]45" 45$@6$4?$@"���"���ngx
		Pgtmp		Pgtmp			1gfilenamefice-9/optargs.scm�
	��		PC5R4TU$Euvxh o]����Cggdummy
		gid		gargs			gb0			gb1						C,-h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/optargs.scm�

��		"g
macro-typegsyntax-rules�gpatternsgidgargsgb0gb1g...C5RyzR{z|}~�������hP�
]��$;���$"���$	���$���
	
�$�
�
��$���
(�"m
�$G$�"4	�5$
45"""(C��"���"m
�$"Q(%4�?����"���������"���"~$8�
�$�"[�"���
�$-("4�5$"C�$CC"(6(C�&4�?�"��"���4�5$�4�5$��$4
�5""$.4��>"G��"��Z"	64�5$,��$ $��"��"���"���"����"���"(6(C�&4�?�"��"���4�5$�4�5$��$4
�5""$.4��>"G��"��Z"	64�5$,��$ $��"��"���"���"���$"���
645"��^
6
6
6
6
6
6
6�
gspec
	Lginits	Lgargs		Lgvx		Dgvy		Dgvx		 <gvy		 <gvx		14gvy		14gvx			B,gvy	
	B,gvx		S$gvy		S$gvx	
	dgvy		dgargs		r�gprev		r�gtail		r�gn		r�g
slots-tail	��gslots	�Pg
slots-tail	�Pg	args-tail	�Pgn	�Pginits	�Pgslots	T�g
slots-tail	T�g	args-tail	T�ginits	T�grest-idx	T�gslots	��g
slots-tail	��g	args-tail	��ginits	��gt	F�gslots	��g
slots-tail	��g	args-tail	��ginits	��gt	Q�gargs	�)gfilenamefice-9/optargs.scm�

��	 	��	r"	��	u$		��	z#	���%		���%	!���%	���&	���&	&���&	���&		���'	���'	���'	���#	���,	���,	#���,		���-	���/		���.	��0		��	.	��2	��2	%��2	��2		��3	��3	%��3	)�� 3	0��.3		��35	��45		��96	��<6	%��?6	5��B6	<��P6		��T7	��Z8	��_;		��b<	
��f<		��k=	$��{=	
���>	 ���>	1���>	
���?		���8	���B	���B	���B	-���B	7���B	-���B		���C	���D		���8	���H	���I	���K		���N	���N	���O	(���O	/���O	(���O	��P	&��P	7��P	;��P	��Q	��Q	��Q	��I	��S	��$S	��&S	��*S		��-T	��.T	��2S		��3U	��:U	#��<U	��FI	��OW	��XW	!��^W	��mX	0��|X	���]	���]	4���^	���]	���I	���Y	���Y	���Y	���I	���Z	���Z	���Y		���\	+���\		���R	+���R		���_	���`	���b		���e	���e	���f	(���f	/��f	(��f	��
g	��g	+��g	/��g	��h	��#h	��%h	��)`	��*n	��/n	��1n	��5n		��8o	��9o	��=n		��>p	��Ep	#��Gp	��Q`	��Zr	��cr	!��ir	��xs	$���s	���x	���x	4���y	���x	���`	���t	���t	���t	���`	���u	���u	���t		���w	���w		���i		���k	#���k	
���l	���l	3���m	���l	
���z	���z	��{	��|	��|	
�� |	��$|	
��(|	��,|	
��0|	��4|	
��8|	��<|	
��@|	��D|	
��H|	��L|	
���	L	gnamegparse-lambda-case�C�RC{gm
		0gfilenamefice-9/optargs.scm�		;
��[	V
�� �	�� �	�� �
��/�
��	/�
C6PKR<�Z��5ȹ)�)scm-style-repl.gonu�[���GOOF----LE-8-2.0�)]n4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gscm-style-repl�	�		gfilenameS�	
fice-9/scm-style-repl.scm�	gimportsS�	g
save-stack�	
�	
�	�	gexportsS�	gscm-repl-silent�	gscm-repl-print-unspecified�	gscm-repl-verbose�	gscm-repl-prompt�	�	greplacementsS�	gassert-repl-silence�	gassert-repl-print-unspecified�	gassert-repl-verbosity�	gdefault-pre-unwind-handler�	g	bad-throw�	gerror-catching-loop�	gerror-catching-repl�	ghandle-system-error�		�	 gset-current-module�	! �	" �	#fguile> �	$gsymbol-property�	%gthrow-handler-default�	&gerror�	'funhandled-exception:�	(gthrow�	)ghas-shown-debugger-hint?�	*gcatch�	+gcall-with-unblocked-asyncs�	,gquit�	-gswitch-repl�	.gabort�	/grun-hook�	0g
abort-hook�	1gforce-output�	2gcurrent-output-port�	3gdisplay�	4fABORT: �	5gcurrent-error-port�	6gwrite�	7gnewline�	8gmemq�	9g	backtrace�	:gdebug-options-interface�	;gstack?�	<gthe-last-stack�	=fOType "(backtrace)" to get more information or "(debug)" to enter the debugger.
�	>gprimitive-exit�	?gstack-saved?�	@glength�	Agrestore-signals�	Bgensure-batch-mode!�	Cgbatch-mode?�	Dgcall-with-blocked-asyncs�	Egfor-each�	Ff;;; �	Gginexact->exact�	Hgget-internal-run-time�	Iginternal-time-units-per-second�	Jf	  msec  (�	Kggc-run-time�	Lf
 msec in gc)
�	Mgstring?�	Ngthunk?�	Of> �	Pf�	Qgrepl-reader�	Rgeof-object?�	Sgafter-read-hook�	Tf;;; EOF -- quitting�	Ugbefore-print-hook�	Vgunspecified?�	Wgafter-print-hook�	Xf ;;; QUIT executed, repl exitting�	Yg	peek-char�	Zgchar=?�	[g	read-char�	\gbefore-eval-hook�	]g%start-stack�	^]�	_]�	`g
repl-stack�	agprimitive-eval�	bgafter-eval-hook�	cgwrong-type-arg�	dgout-of-range�	eglist-ref�	fgbefore-backtrace-hook�	gfBacktrace:
�	hgdisplay-backtrace�	igafter-backtrace-hook�	jgbefore-error-hook�	kgapply�	lg
display-error�	mgafter-error-hook�C5hP�]4	
5	4">"GRh�] Czgv
		gfilenamefice-9/scm-style-repl.scm�
	'
��		'	 ��		gnamegassert-repl-silence�CRRh�] C�gv
		gfilenamefice-9/scm-style-repl.scm�
	*
��		*	*��		gnamegassert-repl-print-unspecified�CRRh�] C|gv
		gfilenamefice-9/scm-style-repl.scm�
	-
��		-	"��		gnamegassert-repl-verbosity�CR#R$%&'h@�-1345$
4?"$C@�gkey
			=gargs			=gdefault			=gt		(	=gfilenamefice-9/scm-style-repl.scm�
	9
��	
	:	��		:	&��		:	��		:	��		;	��		;	��	(	;	��	7	<	��	=	<	��			=
gnameg	bad-throw�CR(h(�-134	>"G@�gkey
			#gargs			#gfilenamefice-9/scm-style-repl.scm�
	@
��	
	B	��	#	C	��			#
gnamegdefault-pre-unwind-handler�CR)R*+h8�]4M>"GN"4L5"���4L5"���C�gv
		$gfilenamefice-9/scm-style-repl.scm�
	R	��		S	��		Y	��		Z	��		[	!��	$	[	��	$	Z	��	%	Z	'��	/	Z	��
		1
ChS]LLO6Kgfilenamefice-9/scm-style-repl.scm�
	P	��		Q	��		
C,-(./01234567)89:;<=>?h�]4>"G445>"G445>"G4L45>"G4	45>"GM$x
$"44
55$"4[5$34	45>"G445>"G 
"445>"G"4>"G Cygfilenamefice-9/scm-style-repl.scm�
	k	��		l	��		m	��		m	)��	!	m	��	*	n	��	.	n	$��	/	n	/��	8	n	��	A	o	��	F	o	'��	O	o	��	X	p	��	[	p	$��	d	p	��	r	q	��	x	s	%��	~	u	+���	u	1���	v	1���	u	+���	s	%���	w	&���	s	!���	y	'���	y	0���	y	'���	z	'���	{	(���	|	(���	z	'���	}	'���	~	!���	~	/���	~	!����	!����	��&	
C@h y]4L5	�$LL@LL@qgfilenamefice-9/scm-style-repl.scm�
�	��	�	%��	�	"��	�	��	�	"��	 �	"��		 
ChH�-13�$NC�$@�$
LOCOC�gkey
			Fgargs			Fgfilenamefice-9/scm-style-repl.scm�
	^	��		_	��		a	��	!	_	��	%	e	&��	)	e	��	2	_	��			F
Ch8�]	H4LOLLO5$H"���MC�gfirst
		3gnext	 	3gfilenamefice-9/scm-style-repl.scm�
	L	��		N	
��	 	M	��	(�	��	0�	��		3gnamegloop�CAh}]N6ugfilenamefice-9/scm-style-repl.scm�
�	��	�	��		�	��			
gnamegensure-batch-mode!�CBhm]M�Cegfilenamefice-9/scm-style-repl.scm�
�	��	�	!��		
gnamegbatch-mode?�CCDhL]CDgfilenamefice-9/scm-style-repl.scm�
�	��		
ChU]L6Mgfilenamefice-9/scm-style-repl.scm�
�	��	�	��		
Ch@�]HHOQO O O6�gthunk
		;gstatus		;ginteractive			;gloop			;gfilenamefice-9/scm-style-repl.scm�
	I
��		J	��	'�	��	0�	��	;�	��		;gnamegerror-catching-loop�CREh �]4L4L5>GL6�g
the-values
		gfilenamefice-9/scm-style-repl.scm�
�	��	�	"��	�	%��	�	"��	�	��	�	��		
Ch�]O6�gr
		ge		gp			gfilenamefice-9/scm-style-repl.scm�
�
��	�	��			gnamegerror-catching-repl�CR3FGHIJKL	hx<]4>"G44�45M���5>"G4>"G44�45M���5>"G64gfilenamefice-9/scm-style-repl.scm�
�	��	�	��	�	#��	�	��	�	��	�	#��	�	2��	%�	/��	(�	,��	)�	$��	+�	#��	0�	��	9�	��	=�	#��	B�	��	K�	��	N�	$��	T�	3��	[�	0��	^�	-��	_�	%��	a�	$��	f�	��	r�	#��	t�	��		t
gnamegrepl-report�CMNOPQR/SKH73T,h��]45$""45$	45"$"4545$"4L>"G4	>"G45$_4
5N45N$64
>"G4>"G4
>"G"4
>"G"C�gprompt
	5	Agval
	A�gfilenamefice-9/scm-style-repl.scm�
�	��	�	0��	
�	)��	�	0��	�	)��	�	0��	-�	)��	/�	@��	5�	5��	5�	��	8�	��	A�	��	D�	��	N�	��	S�	��	c�	��	u�	��	�	����	9����	'����	6����	'����	����	"����	"����	+����	"����	"����	��	�
gnameg-read�C/UV67W1h��]	$C4>"G$"45�$&4>"G4>"G"4>"G	$4L>"G"
6�gresult
	�gt	 	8gfilenamefice-9/scm-style-repl.scm�
�	��	�	��	�	��	 �	,��	.�	5��	5�	0��	<�	(��	=�	.��	O�	.��	c�	��	|�	��	}�	!����	��	�C3X7YRZ[hh]4545$C4 5$"	4	5$4>"G"���4
5$6Cgch
		hgt		hgt	$	=gfilenamefice-9/scm-style-repl.scm�
�	��	�	��	�	��	
�	��	�	��	�	��	$�	��	2�	*��	A�	��	B�	��	U�	��	V�	��	b�	��	f�	��		h
gnamegconsume-trailing-whitespace�CKH/\_`ahU]L6Mgfilenamefice-9/scm-style-repl.scm�
�	��	�	,��		
Cb	hP�]	45N45N4>"G4O54>"GC�gsourc
		Kgval	2	Kgfilenamefice-9/scm-style-repl.scm�
�	��	�	9��		�	'��	
�	6��	�	'��	�	��	%�	��	)�	,��	2�	��	2�	��	5�	��		Kgnameg-eval�Ch��]@HHOOO"?$64>"G4>"G4>"G"COQQQQKK4	
O5"��o�gstart-gc-rt
	�gstart-rt	�gargs		'	fgrepl-report		n�g-read		n�g-print		n�gconsume-trailing-whitespace		n�gstart-gc-rt	��gstart-rt	��gstatus	��
gfilenamefice-9/scm-style-repl.scm�
�
��	�	��	'�	��	-�	��	.�	��	2�	#��	7�	��	@�	��	P�	��	n�	���	���	���	��	�
gnamegscm-style-repl�CR5;<89:cde/f73ghijklm1(.h0-13454[5�$"�4455$�&"�$
4		5"4
>"G4>"G4
>"G4[>"G4>"G4
>"G"4
>"G4[>"G4
>"G4>"G6�gkey
		/gargs		/gcep		/gt		�g
highlights		Y�gfilenamefice-9/scm-style-repl.scm�

��	
	
��		��		��		��		��	&	��	*	��	+	��	1	��	5	��	9		.��	=		!��	>		%��	F
	.��	G
	%��	K		��	L	!��	Y	!��	Y		��	\
	
��	n	
���	
���	���	
���	
���	
���	
���	���	��	��	��+	��/	��#		/
gnameghandle-system-error�CRC�gm
		0gfilenamefice-9/scm-style-repl.scm�		
��	4	&
���	'
���	)
��	*
���	,
��'	-
��)	/	��,	/
��|	9
��a	@
��e	G
��:	I
����
����
��N
��	P
C6PKR<�Z�#�a�a
session.gonu�[���GOOF----LE-8-2.0�a]�4h;]gguile�	�	gdefine-module*�	�	�	gice-9�	gsession�	�		gfilenameS�	
fice-9/session.scm�	gimportsS�	g
documentation�	
�	
�	gregex�	�	�	grdelim�	�	�	gmatch�	�	�	�	gexportsS�	ghelp�	gadd-value-help-handler!�	gremove-value-help-handler!�	gadd-name-help-handler!�	gremove-name-help-handler!�	gapropos-hook�	 gapropos�	!gapropos-internal�	"gapropos-fold�	#gapropos-fold-accessible�	$gapropos-fold-exported�	%gapropos-fold-all�	&gsource�	'garity�	(gprocedure-arguments�	)gmodule-commentary�	* !"#$%&'()�	+gset-current-module�	,+�	-+�	.gobject-documentation�	/g*value-help-handlers*�	0gdelete!�	1gor-map�	2gtry-value-help�	3g*name-help-handlers*�	4g
try-name-help�	5gmake-syntax-transformer�	65�	75�	8gmacro�	9g$sc-dispatch�	:9�	;9�	<g_�	=gany�	><=��	?g
syntax->datum�	@?�	A?�	Bg
datum->syntax�	CB�	DB�	Eglength�	Fg	provided?�	Ggdisplay�	Hghelp-doc�	Ig
simple-format�	Jf^~A$�	Kgregexp-quote�	Lgsymbol->string�	Mgstring?�	Ngand-map�	Ogsymbol?�	Pgquote�	Qg
write-line�	Rf commentary:�	SfNo ~A found for ~A
�	Tg
commentary�	Ug
help-usage�	Vgunquote�	Wg
module-ref�	Xgcurrent-module�	Ygsearch-documentation-files�	Zgbegin�	[Z�	\f]`help' depends on the `regex' feature.
You don't seem to have regular expressions installed.
�	]gsyntax-violation�	^]�	_]�	`f-source expression failed to match any pattern�	agmap�	bgreverse�	cg
string-append�	df/�	eg%search-load-path�	fgin-vicinity�	ggmodule-filename�	hgfile-commentary�	ig
procedure?�	jfa procedure�	kf	an object�	lfDocumentation from file:�	mfDid not find any object �	nfnamed `~A'
�	ofmatching regexp "~A"
�	pgfor-each�	qf~S: ~S
�	rgmodule-name�	sgcadr�	tgcaddr�	uf!`~S' is ~A in the ~S module.

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

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

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

Other useful sources of helpful information:

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

Tools:

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

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

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

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

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

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

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


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

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

Result is

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

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

Fourth arg FOLDER is one of

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

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

The alist keys that are currently defined are `required', `optional',
`keyword', `allow-other-keys?', and `rest'.�C(RCVgm
		,gfilenamefice-9/session.scm�		
���	$	���	#
���	'
���	0
���	4
���	8	���	8
��Y	:
��W	F
��	k	J
����
��x�
��\�
����
���#	���#
��&g%
��($S
��-�[
��2��
��3��
��4t�
��5��
��5��	��5��
��5��	��5��
��6��
��G{�
��K��
�� 	K�
C6PKR<�Z�Q<�##eval-string.gonu�[���GOOF----LE-8-2.0]G4hm]gguile�	�	gdefine-module*�	�	�	gice-9�	geval-string�	�		gfilenameS�	
fice-9/eval-string.scm�	gimportsS�	gsystem�	
gbase�	gcompile�	
�	�	glanguage�	
�	�	gvm�	gprogram�	�	�	�	greplacementsS�	�	gset-current-module�	�	�	g	language?�	glookup-language�	 gensure-language�	!glangS�	"!��	#"�	$gcurrent-language�	%g
parameter?�	&%�	'%�	(g	scm-error�	)gwrong-type-arg�	*fparameterize�	+fNot a parameter: ~S�	,glanguage-reader�	-gcurrent-module�	.geof-object?�	/glanguage-evaluator�	0g
read-and-eval�	1gmoduleS�	21��	3gfileS�	43	��	5glineS�	65	��	7gcolumnS�	87	��	9!	��	:gcompile?S�	;:	��	<24689;�	=gcall-with-input-string�	>gset-port-filename!�	?gset-port-line!�	@gset-port-column!�	Agmake-program�	Bgread-and-compile�	CgfromS�	DgtoS�	Egobjcode�	Fgsave-module-excursion�C5h�	q]4	
54>"Gh�]45$C6�gx
		gfilenamefice-9/eval-string.scm�
	
��			��	
		��			��		gnamegensure-language�C R#$'()*+ ,-./$-,.hP]4445545>G44455L45545$E"���gexp
		Lgvals		Lgnext		3	Lgfilenamefice-9/eval-string.scm�
	+	
��		$	��		$	��		$	��	
	$	��		$	3��		$	��		,	��	 	"	��	!	"	��	$	"	��	*	"	��	-	"	1��	3	"	��	3	/	��	6	1	��	@	0	��	D	2	��	L	4	��		Lgnameglp�C
h�Q-/03#4545$"4>"G�4	�455Y44	4554
5545$"OQ4>ZCZFIgport
	�glang	�gt-6f52a6ff84e411f-7		"�gexp		x�glp	��gfilenamefice-9/eval-string.scm�
	
��			)��	"	 	��	Z	 	#��	b	 	��	e	"	��	f	"	��	i	"	��	o	"	��	r	"	1��	x	"	��	x	&	��	{	'	
���	'	���	+	
��	�
glangS�gnameg
read-and-eval�C0R<-$ =>?@/ABCDE0!
h��]L$4L>"G"L$4LL>"G"L$4LL>"G"L$4LL>"G"L$"4L5�$44LL	
556LL6�gfilenamefice-9/eval-string.scm�
	K	��		L	
��			M	��	$	N	
��	%	O	��	B	P	
��	C	Q	��	`	R	
��	a	S	��	~	U	���	U	 ���	U	���	U	
���	V	���	V	���	V	E���	V	���	V	���	V	���	W	��	�
CFhX]4L>"GL6Pgfilenamefice-9/eval-string.scm�
	@		��		A	��		B	��		
Ch8�]	OLLLLLLQL$
LO66�gport
		8gthunk		8gfilenamefice-9/eval-string.scm�
	H	��		I	��	'	>	��	4	?	��	8	C	��		8Chxs-/03#45####45#45O6kgstr
		qgmodule		qgfile			qgline			qgcolumn			qglang			qgcompile?			qglang		X	qgfilenamefice-9/eval-string.scm�
	6
��		7	��	B	;	��	R	E	��	X	E	��	q	F	��		q
gmoduleS�gfileS	�glineS	�gcolumnS	�glangS	�gcompile?S	�gnamegeval-string�CRCigm
		,gfilenamefice-9/eval-string.scm�		
���	
���	
��	�	6
��		�
C6PKR<�Zm[�O��list.gonu�[���GOOF----LE-8-2.0�]4hE]gguile�	�	gdefine-module*�	�	�	gice-9�	glist�	�		gfilenameS�	
fice-9/list.scm�	gexportsS�	grassoc�	
grassv�	grassq�	
�	gset-current-module�	�	�	ggeneric-rassoc�	gequal?�	geqv?�	geq?�C5h�r]4	
54>"Gh8�]"$(C4��5$�C�"���"����gkey
		2galist		2g=			2gls			*gfilenamefice-9/list.scm�
	
��			��			��			��			��			��			��	 		��	$		��	*		��	*		��		2	gnameggeneric-rassoc�CRh �-13("�6�gkey
			 galist			 g=				 gfilenamefice-9/list.scm�
	
��			��			1��	 		��			 	
	gnamegrassoc�CRh]6wgkey
		galist		gfilenamefice-9/list.scm�
	
��		 	��			gnamegrassv�C
Rh]6wgkey
		galist		gfilenamefice-9/list.scm�
	"
��		#	��			gnamegrassq�CRCjgm
		(gfilenamefice-9/list.scm�		
��b	
��=	
���	
���	"
��	�
C6PKR<�Z��E##
networking.gonu�[���GOOF----LE-8-2.0�"]94hh]ggethost�	g
gethostbyaddr�	g
gethostbyname�	ggetnet�	ggetnetbyaddr�	ggetnetbyname�	ggetproto�	ggetprotobyname�		ggetprotobynumber�	
ggetserv�	g
getservbyname�	g
getservbyport�	
gsethost�	g
sethostent�	gsetnet�	g	setnetent�	gsetproto�	gsetprotoent�	gsetserv�	g
setservent�	g
gethostent�	g	getnetent�	ggetprotoent�	g
getservent�	g
endhostent�	g	endnetent�	gendprotoent�	g
endservent�	ghostent:name�	ghostent:aliases�	ghostent:addrtype�	 ghostent:length�	!ghostent:addr-list�	"gnetent:name�	#gnetent:aliases�	$gnetent:addrtype�	%g
netent:net�	&g
protoent:name�	'gprotoent:aliases�	(gprotoent:proto�	)gservent:name�	*gservent:aliases�	+gservent:port�	,g
servent:proto�	-gsockaddr:fam�	.g
sockaddr:path�	/g
sockaddr:addr�	0g
sockaddr:port�	1gsockaddr:flowinfo�	2gsockaddr:scopeid�	3gaddrinfo:flags�	4gaddrinfo:fam�	5gaddrinfo:socktype�	6gaddrinfo:protocol�	7g
addrinfo:addr�	8gaddrinfo:canonname�C5h`�]h{]6sgaddr
		gfilenamefice-9/networking.scm�
	
��			��		gnameg
gethostbyaddr�CRh{]6sgname
		gfilenamefice-9/networking.scm�
	
��			��		gnameg
gethostbyname�CRhz]6rgaddr
		gfilenamefice-9/networking.scm�
	
��			��		gnameggetnetbyaddr�CRhz]6rgname
		gfilenamefice-9/networking.scm�
	
��			��		gnameggetnetbyname�CRh|]6tgname
		gfilenamefice-9/networking.scm�
	
��			��		gnameggetprotobyname�CRh~]6vgaddr
		gfilenamefice-9/networking.scm�
	
��			 ��		gnameggetprotobynumber�C	R
h�]6�gname
		
gproto		
gfilenamefice-9/networking.scm�
	
��	
		#��		
	gnameg
getservbyname�CR
h�]6�gport
		
gproto		
gfilenamefice-9/networking.scm�
	 
��	
	 	#��		
	gnameg
getservbyport�CR
h �-13�$�66�gstayopen
			gfilenamefice-9/networking.scm�
	"
��		#	��		#	��		$	��		$	��		%	��			


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


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


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


gnameg
setservent�CRhe]6]gfilenamefice-9/networking.scm�
	3
��		3	��		
gnameg
gethostent�CRhd]6\gfilenamefice-9/networking.scm�
	4
��		4	��		
gnameg	getnetent�CRhf]6^gfilenamefice-9/networking.scm�
	5
��		5	��		
gnameggetprotoent�CR
he]6]gfilenamefice-9/networking.scm�
	6
��		6	��		
gnameg
getservent�CR
he]6]gfilenamefice-9/networking.scm�
	8
��		8	��		
gnameg
endhostent�CRhd]6\gfilenamefice-9/networking.scm�
	9
��		9	��		
gnameg	endnetent�CRhf]6^gfilenamefice-9/networking.scm�
	:
��		:	��		
gnamegendprotoent�CRhe]6]gfilenamefice-9/networking.scm�
	;
��		;	��		
gnameg
endservent�CRhy]
�Cqgobj
		gfilenamefice-9/networking.scm�
	=
��		=	��		gnameghostent:name�CRh|]�Ctgobj
		gfilenamefice-9/networking.scm�
	>
��		>	��		gnameghostent:aliases�CRh}]	�Cugobj
		gfilenamefice-9/networking.scm�
	?
��		?	��		gnameghostent:addrtype�CRh{]	�Csgobj
		gfilenamefice-9/networking.scm�
	@
��		@	��		gnameghostent:length�C Rh~]	�Cvgobj
		gfilenamefice-9/networking.scm�
	A
��		A	 ��		gnameghostent:addr-list�C!Rhx]
�Cpgobj
		gfilenamefice-9/networking.scm�
	C
��		C	��		gnamegnetent:name�C"Rh{]�Csgobj
		gfilenamefice-9/networking.scm�
	D
��		D	��		gnamegnetent:aliases�C#Rh|]	�Ctgobj
		gfilenamefice-9/networking.scm�
	E
��		E	��		gnamegnetent:addrtype�C$Rhw]	�Cogobj
		gfilenamefice-9/networking.scm�
	F
��		F	��		gnameg
netent:net�C%Rhz]
�Crgobj
		gfilenamefice-9/networking.scm�
	H
��		H	��		gnameg
protoent:name�C&Rh}]�Cugobj
		gfilenamefice-9/networking.scm�
	I
��		I	��		gnamegprotoent:aliases�C'Rh{]	�Csgobj
		gfilenamefice-9/networking.scm�
	J
��		J	��		gnamegprotoent:proto�C(Rhy]
�Cqgobj
		gfilenamefice-9/networking.scm�
	L
��		L	��		gnamegservent:name�C)Rh|]�Ctgobj
		gfilenamefice-9/networking.scm�
	M
��		M	��		gnamegservent:aliases�C*Rhy]	�Cqgobj
		gfilenamefice-9/networking.scm�
	N
��		N	��		gnamegservent:port�C+Rhz]	�Crgobj
		gfilenamefice-9/networking.scm�
	O
��		O	��		gnameg
servent:proto�C,Rhy]
�Cqgobj
		gfilenamefice-9/networking.scm�
	Q
��		Q	��		gnamegsockaddr:fam�C-Rhz]�Crgobj
		gfilenamefice-9/networking.scm�
	R
��		R	��		gnameg
sockaddr:path�C.Rhz]�Crgobj
		gfilenamefice-9/networking.scm�
	S
��		S	��		gnameg
sockaddr:addr�C/Rhz]	�Crgobj
		gfilenamefice-9/networking.scm�
	T
��		T	��		gnameg
sockaddr:port�C0Rh~]	�Cvgobj
		gfilenamefice-9/networking.scm�
	U
��		U	 ��		gnamegsockaddr:flowinfo�C1Rh}]	�Cugobj
		gfilenamefice-9/networking.scm�
	V
��		V	��		gnamegsockaddr:scopeid�C2Rh{]
�Csgobj
		gfilenamefice-9/networking.scm�
	X
��		X	��		gnamegaddrinfo:flags�C3Rhy]�Cqgobj
		gfilenamefice-9/networking.scm�
	Y
��		Y	��		gnamegaddrinfo:fam�C4Rh~]	�Cvgobj
		gfilenamefice-9/networking.scm�
	Z
��		Z	 ��		gnamegaddrinfo:socktype�C5Rh~]	�Cvgobj
		gfilenamefice-9/networking.scm�
	[
��		[	 ��		gnamegaddrinfo:protocol�C6Rhz]	�Crgobj
		gfilenamefice-9/networking.scm�
	\
��		\	��		gnameg
addrinfo:addr�C7Rh]	�Cwgobj
		gfilenamefice-9/networking.scm�
	]
��		]	!��		gnamegaddrinfo:canonname�C8RC�gfilenamefice-9/networking.scm��	
��6	
���	
��e	
���	
���	
��I	
���	 
���	"
���	&
��j	*
��A	.
���	3
��	?	4
��	�	5
��
@	6
��
�	8
��?	9
���	:
��@	;
���	=
��
g	>
��	?
���	@
��)	A
���	C
��N	D
���	E
��r	F
��	H
���	I
��.	J
���	L
��O	M
���	N
��u	O
��	Q
���	R
��%	S
���	T
��I	U
���	V
��v	X
��	Y
���	Z
��1	[
���	\
��Z	]
��1	\
C6PKS<�Z~�ƀS�Si18n.gonu�[���GOOF----LE-8-2.0hS]�4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gi18n�	�		gfilenameS�	
fice-9/i18n.scm�	gimportsS�	goptargs�	
�	
�	�	gexportsS�	gmake-locale�	glocale?�	g%global-locale�	gstring-locale<?�	gstring-locale>?�	gstring-locale-ci<?�	gstring-locale-ci>?�	gstring-locale-ci=?�	g
char-locale<?�	g
char-locale>?�	gchar-locale-ci<?�	gchar-locale-ci>?�	gchar-locale-ci=?�	gchar-locale-downcase�	gchar-locale-upcase�	 gchar-locale-titlecase�	!gstring-locale-downcase�	"gstring-locale-upcase�	#gstring-locale-titlecase�	$glocale-string->integer�	%glocale-string->inexact�	&glocale-encoding�	'glocale-day-short�	(g
locale-day�	)glocale-month-short�	*glocale-month�	+glocale-am-string�	,glocale-pm-string�	-glocale-date+time-format�	.glocale-date-format�	/glocale-time-format�	0glocale-time+am/pm-format�	1g
locale-era�	2glocale-era-year�	3glocale-era-date-format�	4glocale-era-date+time-format�	5glocale-era-time-format�	6glocale-currency-symbol�	7glocale-monetary-decimal-point�	8g#locale-monetary-thousands-separator�	9glocale-monetary-grouping�	:g!locale-monetary-fractional-digits�	;g)locale-currency-symbol-precedes-positive?�	<g)locale-currency-symbol-precedes-negative?�	=g#locale-positive-separated-by-space?�	>g#locale-negative-separated-by-space?�	?glocale-monetary-positive-sign�	@glocale-monetary-negative-sign�	Aglocale-positive-sign-position�	Bglocale-negative-sign-position�	Cgmonetary-amount->locale-string�	Dglocale-digit-grouping�	Eglocale-decimal-point�	Fglocale-thousands-separator�	Ggnumber->locale-string�	Hglocale-yes-regexp�	Iglocale-no-regexp�	J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI9�	Kgset-current-module�	LK�	MK�	Ngload-extension�	Og
string-append�	Pf	libguile-�	Qgeffective-version�	Rf
scm_init_i18n�	Sgnl-langinfo�	TgCODESET�	Ugmake-syntax-transformer�	VU�	WU�	Xgdefine-vector-langinfo-mapping�	Ygmacro�	Zg$sc-dispatch�	[Z�	\Z�	]g_�	^gany�	_]^��	`g
syntax->datum�	a`�	b`�	cg
datum->syntax�	dc�	ec�	fglength�	ggdefine�	hg	%nl-items�	igvector�	jgitem�	kglocale�	ljk��	mgif�	ngand�	oginteger?�	poj�	qgexact?�	rqj�	snpr�	tg>=�	utj�	vg<=�	wgapply�	xg
vector-ref�	yxhj�	zwSyk�	{gthrow�	|gquote�	}gout-of-range�	~|}�	fout of range��{~j�����gwrong-type-arg��|���fwrong argument type��{��j�����gsyntax-violation��������f-source expression failed to match any pattern��gABDAY_1��gABDAY_2��gABDAY_3��gABDAY_4��gABDAY_5��gABDAY_6��gABDAY_7��gDAY_1��gDAY_2��gDAY_3��gDAY_4��gDAY_5��gDAY_6��gDAY_7��gABMON_1��gABMON_2��gABMON_3��gABMON_4��gABMON_5��gABMON_6��gABMON_7��gABMON_8��gABMON_9��gABMON_10��gABMON_11��gABMON_12��gMON_1��gMON_2��gMON_3��gMON_4��gMON_5��gMON_6��gMON_7��gMON_8��gMON_9��gMON_10��gMON_11��gMON_12��gdefine-simple-langinfo-mapping��gdefined?��k��gAM_STR��gPM_STR��gD_T_FMT��gD_FMT��gT_FMT��g
T_FMT_AMPM��gERA��gERA_YEAR��gERA_D_T_FMT��g	ERA_D_FMT��g	ERA_T_FMT��g define-monetary-langinfo-mapping��gintl?���k���gINT_CURR_SYMBOL��gCRNCYSTR��gINT_FRAC_DIGITS��gFRAC_DIGITS��g
POSITIVE_SIGN��g
NEGATIVE_SIGN��gMON_DECIMAL_POINT��gMON_THOUSANDS_SEP��gMON_GROUPING��glocale-monetary-digit-grouping��gINT_P_CS_PRECEDES��g
P_CS_PRECEDES��gINT_N_CS_PRECEDES��g
N_CS_PRECEDES��gINT_P_SEP_BY_SPACE��gP_SEP_BY_SPACE��gINT_N_SEP_BY_SPACE��gN_SEP_BY_SPACE��gINT_P_SIGN_POSN��gP_SIGN_POSN��gINT_N_SIGN_POSN��gN_SIGN_POSN��f0��glist->string��g
integer->char��ginteger->string��gexpt��gfloor��g
string-pad��ground��ginexact->exact��f��gnumber-decimal-string��gstring=?��g
string-length��gmin��g	substring��g%number-integer-part��f ��gparenthesize��f(��f)��gsign-before��g
sign-after��gunspecified��gsign-before-currency-symbol��gsign-after-currency-symbol��gerror��funsupported sign position��gadd-monetary-sign+currency��gabs��gGROUPING��g	RADIXCHAR��gTHOUSEP��f-��gYESEXPR��gNOEXPR�C5hh<�]4	
J54M>"G4Ni4OiP4Qi55R>"GSTh{-13@sglocale
			gfilenamefice-9/i18n.scm�
	_
��		`	��			


gnameglocale-encoding�C&R4WXY\_befghilmsnuvjz��hP�]45���	

������C�gname
		Jgnl-items		Jg
item-count				Jgdefines			Jgfilenamefice-9/i18n.scm�
	i
��		j	��			j	��	
	k	��		j	��		r	��	&	m	��	<	t	��	>	m	��	I	r	��		J	Chb]	45L4?6Zgargs
		gv			gfilenamefice-9/i18n.scm�		i
��		C��h(`]	45$O@6Xgy
		'gtmp		'gfilenamefice-9/i18n.scm�
	i
��		'C5XR�������{��oq}Sh��-13HK"
	
645$A45$2"

6�$	�$J�@"���"���"���"����gitem
			~glocale			~g	%nl-items		
	~gfilenamefice-9/i18n.scm�
	w
��	*	q	2��	N	p	4��	j	t	'��	n	t	��			~
gnameglocale-day-short�C'R�������{��oq}Sh��-13HK"
	
645$A45$2"

6�$	�$J�@"���"���"���"����gitem
			~glocale			~g	%nl-items		
	~gfilenamefice-9/i18n.scm�
	z
��	*	q	2��	N	p	4��	j	t	'��	n	t	��			~
gnameg
locale-day�C(R������������{��oq}Sh��-13H	

K"

645$A45$2"

6�$	�$J�@"���"���"���"����gitem
		�glocale		�g	%nl-items		
�gfilenamefice-9/i18n.scm�
	}
��	4	q	2��	X	p	4��	t	t	'��	x	t	��		�
gnameglocale-month-short�C)R������������{��oq}Sh��-13H	

K"

645$A45$2"

6�$	�$J�@"���"���"���"����gitem
		�glocale		�g	%nl-items		
�gfilenamefice-9/i18n.scm�
�
��	4	q	2��	X	p	4��	t	t	'��	x	t	��		�
gnameglocale-month�C*R4W�Y\_be�wS�gkh0�]45$���"�C�gname
		-gitem		-gdefault			-gbody			-gfilenamefice-9/i18n.scm�
�
��	�	��	
�	��	�	��	�	��	"�	��		-	Chc]	45L4?6[gargs
		gv			gfilenamefice-9/i18n.scm�	�
��		C��h(a]	45$O@6Ygy
		'gtmp		'gfilenamefice-9/i18n.scm�
�
��		'C5�RS�hu-13@mglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-am-string�C+RS�hu-13@mglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-pm-string�C,RS�h|-13@tglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-date+time-format�C-RS�hw-13@oglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-date-format�C.RS�hw-13@oglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-time-format�C/RS�h}-13@uglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-time+am/pm-format�C0RS�ho-13@gglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameg
locale-era�C1RS�ht-13@lglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-era-year�C2RS�h�-13@xglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-era-date+time-format�C4RS�h{-13@sglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-era-date-format�C3RS�h{-13@sglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-era-time-format�C5R4W�Y\_be�wS�m�g�	h`I]45$���"45$���"�CAgname
		^g
local-item		^g	intl-item			^g
default/local			^gdefault/intl			^gintl		:	Oglocal		:	Ogbody		O	^gfilenamefice-9/i18n.scm�
�
��	�	��	
�	��	�	��	�	��	)�	��	+�	��	:�		��	@�	��	O�	��	S�	��		^	Chc]	45L4?6[gargs
		gv			gfilenamefice-9/i18n.scm�	�
��		C��h(a]	45$O@6Ygy
		'gtmp		'gfilenamefice-9/i18n.scm�
�
��		'C5�RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameglocale-currency-symbol�C6RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameg!locale-monetary-fractional-digits�C:RS�h�-13@zglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-monetary-positive-sign�C?RS�h�-13@zglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-monetary-negative-sign�C@RS�h�-13@zglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-monetary-decimal-point�C7RS�h�-13@�glocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameg#locale-monetary-thousands-separator�C8RS�h�-13@{glocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-monetary-digit-grouping�C�RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameg)locale-currency-symbol-precedes-positive?�C;RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameg)locale-currency-symbol-precedes-negative?�C<RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameg#locale-positive-separated-by-space?�C=RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameg#locale-negative-separated-by-space?�C>RS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameglocale-positive-sign-position�CARS��h �-13$@@�gintl?
			glocale			gfilenamefice-9/i18n.scm�
�
��			
gnameglocale-negative-sign-position�CBR���hP�]
�$C"2
�$6	
�	
�4	0�5�"���"����gnumber
		Ngnumber		Cgdigits			Cgdigit		)	8gfilenamefice-9/i18n.scm�
�
��	�	��	
�	��	�	��	�	��		��		��		��	$	��	)	%��	)	��	,�	��	2�	��	3�	��	5�	��	;	��	C	��	C�	��	F	��	N�	��		Ngnameginteger->string�g
documentationfDReturn a string representing NUMBER, an integer, written in base 10.�C�Ro�������	h�g]"45$/4	
545��44455506"q4	
5�45�$"	�$7454	
5��444555
�$CC�"���
"���_gnumber
	�gdigit-count	�gnumber		!	<gdecimals		@�gnumber'		L�gt		X	mgfraction	��gstr	��gfilenamefice-9/i18n.scm�

��		��	
	��		��		!��	 	��	!	��	!	��	&	��	)	%��	,	,��	4	%��	6	��	<	��	@	��	C	!��	L	��	L	��	Q	��	X	��	X	��	j	��	q	
��	t	%��	{	%���	"���	���	���	��� 	 ��� 	'��� 	 ���	���	���!	���!	���"	���$	���$	���	��)	�	gnamegnumber-decimal-string�g
documentationf�Return a string representing the decimal part of NUMBER.  When
DIGIT-COUNT is an integer, return exactly DIGIT-COUNT digits; when
DIGIT-COUNT is #t, return as many decimals as necessary, up to an
arbitrary limit.�C�R��O���h�*]3"}45$@(@454�54
�5�4�5�$��"�"���"��t"gint
	�ggrouping	�g	separator		�gint		�ggrouping		�gresult		�glen		.�gcut		:�gsub		Z	y	gfilenamefice-9/i18n.scm�
&
��	,	��	/	��	
/	��	/	��	/	��	/	��	/	��	'0	��	(2	��	.2	��	13	��	63	��	:3	��	:2	��	=4	��	G4	$��	I4	��	L5	��	M6	��	V6	-��	Z6	��	Z6	��	a7	��	e7	��	l8	��	v9	���4	
���,	���.	���,	�� 	�	gnameg%number-integer-part�C�R?@�6;<=>AB��O���������h��]D
�$45"
�$45"45$"$"$	"
	45$"
4	5�$/
45$4

5"4

56�$-
45$4

5"4

56�$"�$%45$

6

6�$%45$

6

6�$%45$

6

64	56�gamount
	�gfigure	�gintl?		�glocale		�g	positive?		�gsign		.�gcurrency		9�gcurrency-precedes?		I�g
separated?		Y�g
sign-position			i�gcurrency-space	
��gkey	��gfilenamefice-9/i18n.scm�
;
��	>	��	>	��	
@	��	@	
��	@	��	A	��	!@	
��	"A	��	.B	��	.>	��	1C	��	9>	��	AE	
��	I>	��	QI	
��	Y>	��	aM	
��	i>	��	lQ	��	xQ	
��	zQ	(���Q	,���>	���X	
���X	���Z	���T	���T	���U	���V	���Z	3���Z	���X	���T	���T	���U	���V	���\	��X	��_	��_	��+`	��7a	��@X	��Ac	��Mc	��Yd	��ee	��nX	��og	��{g	���h	���i	���k	���k	*���k	��:	�	gnamegadd-monetary-sign+currency�C�R:�������O7���8��h��-.,3#45$"	4444555544554	5$"
�$	"*4
4545�$4

5"545454
4556�gamount
	�gintl?	�glocale		�gt			2gfraction-digits		2�gint		J�gdec		Z�gt		e	ygdec	��ggrouping	��g	separator	��gfilenamefice-9/i18n.scm�
n
��	v	��	v	
��	2u	��	5�	��	8�	%��	;�	&��	>�	-��	F�	&��	H�	%��	J�	��	Ju	��	M�	��	P�	,��	Z�	��	Z�	��	]y	��	cy	"��	ey	��	ey	��	vy	&��	}y	��	z	���{	���{	���|	6���|	#���|	���}	#���{	���u	����	���u	����	���u	����	"����	#����	"����	��(	�	gnamegmonetary-amount->locale-string�g
documentationf�Convert @var{amount} (an inexact) into a string according to the cultural
conventions of either @var{locale} (a locale object) or the current locale.
If @var{intl?} is true, then the international monetary format for the given
locale is used.�CCRS�hz-13@rglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-digit-grouping�CDRS�hy-13@qglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-decimal-point�CERS�h-13@wglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-thousands-separator�CFR��������OEo��DF�h�C-.,3##
�$"
�$"4444555544554	5$"
�$";4
4545$"4
5�$4
5""54545
456;gnumber
	�gfraction-digits	�glocale		�gsign		=�gint		U�gdec		e�gt		p�gdec	��ggrouping	��g	separator	��
gfilenamefice-9/i18n.scm�
�
��	#�	��	'�	
��	)�	��	1�	��	5�	
��	7�	��	=�	��	=�	��	@�	��	C�	'��	F�	(��	I�	/��	Q�	(��	S�	'��	U�	��	U�	��	X�	��	[�	.��	e�	��	e�	��	h�	��	n�	"��	p�	��	p�	����	&����	����	����	����	����	(����	����	+����	(����	#����	#����	����	����	����	����	����	����	����	��-	�	gnamegnumber->locale-string�g
documentationf^Convert @var{number} (an inexact) into a string according to the cultural
conventions of either @var{locale} (a locale object) or the current locale.
By default, print as many fractional digits as necessary, up to an upper bound.
Optionally, @var{fraction-digits} may be bound to an integer specifying the
number of fractional digits to be displayed.�CGRS�hv-13@nglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-yes-regexp�CHRS�hu-13@mglocale
			gfilenamefice-9/i18n.scm�
�
��			


gnameglocale-no-regexp�CIRC�gm
		,gfilenamefice-9/i18n.scm�		
��	-	W	��	2	W	��	8	W	!��	9	W	-��	A	W	��	C	X	��	H	W	���	_
���	w
��i	z
���	}
��	p�
��X�
��
�
��
��
��R�
����
����
��J�
����
����
��F�
����
����
����
��E�
����
����
��[�
���
����
����
����
��e�
��/�
����
��"�
��&b
��)E&
��.�;
��3�n
��4M�
��4��
��5��
��;�
��;��
��<`�
��1	<b
C6PKS<�Z���Z�5�5eval.gonu�[���GOOF----LE-8-2.0�5]'4h]gunbound-arg�	gset-procedure-property!�	garglist�	g_�	gset-procedure-minimum-arity!�	g	scm-error�	gwrong-number-of-args�	feval�		fWrong number of arguments�	
gkeyword?�	gmax�	gkeyword-argument-error�	
fInvalid keyword�	gassq�	g	list-set!�	fUnrecognized keyword�	g	list-tail�	gmemoized-expression-typecode�	gmemoized-expression-data�	glist-ref�	greverse�	g	variable?�	gmemoize-variable-access!�	g	last-pair�	gcurrent-module�	gthe-root-module�	g
documentation�	g
procedure?�	gprocedure-property�	gname�	gdefine!�	 gmap�	!gerror�	"fwhat�	#gmemoize-expression�	$gmacroexpanded?�	%gmodule-transformer�	&gprimitive-eval�C5hx1�]	


hP�-13",
�$4(L$M@6����"���L$Q"9
�$S("4�5$!4L�5���"��������"���"�L�L�	LL	�L$"
�
""("#4��5�"���
�	"���"�$�L
�
"���
"
L$	�"
"���"
�$�" L$	
�
"���
�6
��$w4
�5$g4	
�	5
��$4
��>"G"'$"4
�>"G
��
"��Z"��a"��]"C�$445�L&4L��5�"��"���LL6
�"���
"���L$-�$"4�5$"L�$M@"��."��*"��&LL"���"�
�$7L$LL�6(LL6L$M@6(!4L�5���"��������"��LL"��kL
L	"����g%args
		Igenv	
9gnreq*		
9gargs		
9genv		S�gnopt*		S�gargs		S�ginits		S�gaok	�Ugkw		�Ugkw-base	
�Ugimax	��gkw	��gimax	Ugi		(genv	
	(genv	CUgargs	
IMgkw-pair	��gv	��gi	�>ginits	�>gtail	6genv	�%gnopt	�%gargs	�%ginits	�%gfilenamefice-9/eval.scm�
	��	
		��		��		��	
	��	!	��	'	��	+	"��	-	"��	/	)��	0	"��	3	��	6	��	9	��	<	��	?	��	I	��	O	��	S,	��	W3	��	[0	��	a4	��	b4	��	g4	,��	l4	6��	n4	,��	r4	��	s5	%��	x5	+��	|5	%��	5	���6	���6	/���5	���7	%���7	���8	���8	*���8	5���7	���@	#���@	���A	"���@	���B	'���B	4���B	'���@	���C	$���D	&���F	.���F	3���F	.���G	.���F	*���C	$���C	3��C	$��@	��	I	#��O	)��O	%��P	-��P	4��"P	)��(I	#��0L	1��5M	5��CI	#��C@	��IS	��LT	$��PT	��Zd	#��]f	+��cf	'��gg	2��ih	2��kh	9��li	2��oi	<��ri	6��tg	'��tT	��wT	8��xT	1��|T	��}U	$���U	.���U	$���T	���V	.���V	4���V	.���W	(���V	���X	!���Z	%���[	8���[	0���Z	%���]	%���^	)���_	*���`	*���`	1���a	*���a	4���a	.���^	)���b	%���b	!���n	#���p	)��p	%��q	5��q	)��r	4��r	+��t	9��t	?��!u	?��#t	9��$s	/��+v	/��.v	6��6v	+��>x	)��>n	#��Cn	/��Mn	#��MS	��U0	��^:	 ��b:	��c:	2��h:	<��j:	2��n:	��v;	��z:	���>	���,	���	���	���	���	���	(���	��� 	���!	!���"	!���#	%���$	0���%	0���%	7���&	0���$	%���'	���(	'���(	-���(	'���(	!���)	!���)	0��
(	��
*	'��*	!��+	!��+	+��+	6��%*	��%	��9		���		I


Chh�,3H"m"R
$�
����("����$���$��""$�"
$
����"�$"8�$.
$$	�""$"�"$

"��4


"�� 4	$�"$�"
$">"G4	
>"G"

"���	C$��	��

�
�("
��
��$
���$
��""

$
�"

$
��"
$	
���"
$

����"4L	5

	"KLLO	"����genv
	agbody	agnreq		agrest?		agnopt		agkw		aginits		agalt		agalt-proc		agproc			
zgalt	
	cgnreq		cgnopt		cgrest?	
	cgspec		gnreq*		 grest?*		2�gtail		S�gnopt*		c�galt*		v�gt		}�gbody		�9gspec	
�6gnreq	�3grest	�0gtail	
�-gnopt	�*gkw	�'ginits	�$galt	!gfilenamefice-9/eval.scm�
�	��	
�	��	�	��	�	
��	�	��	�	��	 �	��	 �	��	%�	(��	)�	��	1�	7��	2�	��	7�	'��	8�	 ��	<�	��	?�	:��	A�	3��	E�	��	H�	G��	S�	��	[�	��	^�	%��	c�	��	k�	��	n�	%��	v�	��	}�	��	}�	����	����	���	���	!���	-���	!���	,����	���	���	���	��
�	.���	/���	6���	?��"�	/��%�	7��0�	/��2�	:��:�	)��?�	��H�	��c�	����	����	����	
����	����	
����	����	
����	%����	����	4����	
����	&����	����	����	9����	2����	����	F����	
����	����	#����	
����	����	"����	
����	����	$����	1����	
����	����	#���	
��
�	��a	��V	a	gnamegmake-general-closure�COhB]LLL6:gfilenamefice-9/eval.scm�
�	��		

ChR]LLL�6Jga
		
gfilenamefice-9/eval.scm�
�	��		
Cha]LLL��6Yga
		gb		gfilenamefice-9/eval.scm�
�	��			Chp]LLL���6hga
		gb		gc			gfilenamefice-9/eval.scm�
�	��			Ch]LLL����6wga
		gb		gc			gd			gfilenamefice-9/eval.scm�
�	��			Ch �]LLL�����6�ga
		gb		gc			gd			ge			gfilenamefice-9/eval.scm�
�	��			Ch �]LLL������6�ga
		gb		gc			gd			ge			gf			gfilenamefice-9/eval.scm�
�	��			Ch �]LLL�������6�ga
		gb		gc			gd			ge			gf			gg			gfilenamefice-9/eval.scm�
�	��			C	h�-13"O

�$LL(	"
456(6�	�
��
	"���L��������L	�
	"���ga
		�gb		�gc			�gd			�ge			�gf			�gg			�gh			�gmore			�gnew-env			
	\gnreq	
	
	\gargs		
	\gfilenamefice-9/eval.scm�
�	��		�	
	C h[]LL6Sgx
		
gfilenamefice-9/eval.scm�
�	��	
�	)��		
Ch[]LL6Sgx
		
gfilenamefice-9/eval.scm�
�	��	
�	'��		
Ch0�](LLL6��Y4L��>ZCZF�gfluids
		*gvals		*gfilenamefice-9/eval.scm�
�	��	�	
��	�	��	�	 ��	�	-��	�	��	�	��	!�	$��	&�	��
		*	gnameglp�ChC]LLL6;gfilenamefice-9/eval.scm�	
�	��		

C!"!hx�
]J4545	&6	&�����4L5
�$6�$4L�56	�$4L�54L��56	�$%4L�54L��54L���564L�54L��54L���54L����5")	(4
5"'	�4L	�5
�
	"�������
	"���@	&_45$"L4�$45�"(	45"$"45$	"5C&9����4L5$"��<"��0	&C	&m��"*("����4L�5�"���(	45"$"45$	""���	&�������		(�(	45"$"45$	"

�$

LO"��$
LO"�	�$
LO"�	�$

LO"m	�$
LO"U	�$
LO"=	�$
LO"%	�$
LO"
L
O
"|	�(?4L(	45"$"45$	"	�
5"64L(	45"$"45$	"	?
$4
>"G"
C
&N��"4("���4L>"G��"���"���	
&��4L56	
&%��4L544L5>6<	&'����4L54L5@	&45$"45C	&a��4L545$+45$"4>"G"4>"GC	&s��4L545$"L4�$45�"(	45"$"45$	"5C	&o����4L54L5		4>"GV4L>X4	>"GCX4	>"GF	&V����4LO54LO5	O

LQ

	6	&I����4L5U4LO>XCXFG4L5@		&
4L5B	&/��4L545$"45C 6�
gexp
	tgenv	tgtag		tgdata		tgf		2+gxb		2+gnargs		<+gargs		<+gproc		I+gexps		�gargs	
�genv	^�gtest	��gxb	��g
consequent	��g	alternate	��ginits	�Rgbody	�Rginits	�gnew-env	�gbody	`gxb	`g	docstring	jgxb	jgnreq	tgtail		tge	
�ygproc	
�gfirst	+sgrest	+sgfirst	3ggrest	3ggn	��gx	��gval	��gproducer	��gconsumer	��gf	��gxb	��gargs	��gname	'�gx	'�gx	4�g
var-or-sym	��gx	��genv	��gin	tgxb	tgexp	tgout	tgpre	+tgpost		+tgfluids	��gxb	��gvals	��gexp	��gfluids	��gvals		��glp	
��gtag	�#gxb	�#gexp	�#ghandler	�#gargs	#gx	Clgvar-or-spec	ClBgfilenamefice-9/eval.scm�
{	��	|	��	$~		��	,|	��	A�	��	I�		��	S�	��3|	��4�	��>�	
��E�	��L�	9��P�	(��Q�	>��X�	9��^�	(����	����		���|	����	
����		����	
����	
���|	����		����	���	���	��	�	���	���	���	���	���		��%�	)��R�		��Z|	��~�	����	7����	����	����	����	����	.����	3����	3����	����	����	4����	����		���	���	
���	+���	
��%|	��3�		��9�	��E�	��F�	��\�	��_�	 ��g�	��g�		��{|	����	����		����	���|	����	����		����	����		���|	����	����	����		���|	����	��	�	
���	���		��!|	��,�	��4�		��7�	��A�	��B�	(��H�	>��J�	(��N�	��S�	��Y�	*��`�	��m�	���|	����	
����	����	
����	����	9����	(����	>����	9����	(����	����		��|	���	��#�	��+�		��E�	"��R�		��||	����	����		����	����		����	���|	����	����		���	��+|	��,�	��5�		��=|	��H�	
��Q�	��[�	
��b�	��j�		��p|	���	t	gnamegeval�COQQ#$%h0�]L445$"44455556�gexp
		,gfilenamefice-9/eval.scm�
�	��	�	��	�	��	�	��	�	��	�	
��	�	!��	#�	
��	'�	��	)�	��	*�	��	,�	��
		,g
documentationf)Evaluate @var{exp} in the current module.�CO&RC�gunbound-arg
	1lgmake-general-closure01igeval	01igfilenamefice-9/eval.scm�	�	��	�	��1o�
��	1q
C6PKS<�ZF[��
�
	lineio.gonu�[���GOOF----LE-8-2.0�
]$4hQ]gguile�	�	gdefine-module*�	�	�	gice-9�	glineio�	�		gfilenameS�	
fice-9/lineio.scm�	gimportsS�	grdelim�	
�	
�	�	gexportsS�	g
unread-string�	gread-string�	glineio-port?�	gmake-line-buffering-input-port�	�	gset-current-module�	�	�	gobject-property�	gmake-soft-port�	g
string-ref�	g
string-length�	g	substring�	g	read-char�	g
close-port�	 fr�	!gset-object-property!�	"g	read-line�	#gconcat�C5h�t]4	
54>"Gh�]456�gstr
		gline-buffering-input-port		gfilenamefice-9/lineio.scm�
	8
��		9	��			9	.��		9	��		9	��			gnameg
unread-string�CRh�]456�gline-buffering-input-port
		
gfilenamefice-9/lineio.scm�
	<
��		=	��			=	.��		=	��	
	=	��		
gnamegread-string�CRh�]45��C�gport
		gfilenamefice-9/lineio.scm�
	@
��		A	��			A	"��		A	��		A	��	
	A	��		gnameglineio-port?�CRh@�]M$14M�
54M�5�$	M�N"M4M�5�CL6�gc
		9gfilenamefice-9/lineio.scm�
	T	��		U	��			W	��		W	*��		W	��		W	��		X	 ��		X	/��		X	 ��		X	��	!	X	��	$	Y	)��	&	Y	��	-	Z	-��	2	Z	8��	5	Z	-��	6	Z	��	?	V	��		?
gnameggetc�Chg]L6_gfilenamefice-9/lineio.scm�
	]	��		]	%��		
gnamegpropogate-close�C !h �]
45�$	M�NCC�gstr
		gfilenamefice-9/lineio.scm�
	a	��		b	$��		b	��		b	��		c	1��		c	#��		gnameg
unread-string�C"#h �]M(L6M�M�NC�ganswer
		gfilenamefice-9/lineio.scm�
	e	��		f	��		l	4��		l	��		h	'��		h	��		i	)��		i	��			
gnamegread-string�C
h`]H4OO54O>"G4	O>"GCgunderlying-port
		_gbuffers		_gself		"	_gfilenamefice-9/lineio.scm�
	K
��		O	��		L	��		_	��		_	��	 	_	F��	"	_	��	"	L	��	%	n	��	+	n	��	7	n	��	@	o	��	F	o	��	T	o	��		_gnamegmake-line-buffering-input-port�CRClgm
		,gfilenamefice-9/lineio.scm�		
��	8
���	<
���	@
���	K
��	�
C6PKS<�Z�eY��R�Rftw.gonu�[���GOOF----LE-8-2.0�R]�4h
]gguile�	�	gdefine-module*�	�	�	gice-9�	gftw�	�		gfilenameS�	
f
ice-9/ftw.scm�	gimportsS�	gmatch�	
�	
�	gvlist�	�	�	gsrfi�	gsrfi-1�	�	�	�	gexportsS�	gnftw�	gfile-system-fold�	gfile-system-tree�	gscandir�	�	g	autoloadsS�	gi18n�	�	 gstring-locale<?�	! �	"!�	#gset-current-module�	$#�	%#�	&gopendir�	'geof-object?�	(gclosedir�	)greaddir�	*gstring=?�	+f.�	,f..�	-gdirectory-files�	.f�	/g	substring�	0g
string-length�	1g
string-append�	2f/�	3gpathify�	4gchar=?�	5g
string-ref�	6gabs?�	7gmake-hash-table�	8g	hashv-ref�	9gstat:dev�	:gstat:ino�	;g
hashv-set!�	<g
visited?-proc�	=ggetuid�	>ggetgid�	?g
stat:perms�	@gstat:uid�	Agstat:gid�	Bgstat-dir-readable?-proc�	Cgmemq�	Dgdepth�	Egdirectory-processed�	Fg	directory�	Gg
nftw-style�	Hg
stale-symlink�	Igsymlink�	Jgphysical�	Kgcatch�	LK�	MK�	Nglstat�	Og	stat:type�	Pgstat�	Qgdirectory-not-readable�	Rgregular�	Sginvalid-stat�	Tgstat&flag-proc�	Ugclean�	Vg	hash-size�	Wgthrow�	Xgftw-early-exit�	Ygfor-each�	Zggetcwd�	[gmount�	\gchdir�	]gnftw-early-exit�	^gmake-syntax-transformer�	_^�	`^�	agerrno-if-exception�	bgmacro�	cg$sc-dispatch�	dc�	ec�	fgany�	gff�	hg
syntax-object�	igtop�	ji�	kgribcage�	lgdummy�	mgexpr�	nlm�	og
m-c0b95d8-107�	poi�	qpj�	rf
l-c0b95d8-10c�	sf
l-c0b95d8-10d�	trs�	uknqt�	vk�	wgx�	xw�	yp�	zf
l-c0b95d8-109�	{z�	|kxy{�	}juv|�	~ghygiene�	~��hK}��gquote��h�}��gsystem-error��h�}������glambda��h�}��gargs��h�}��gsystem-error-errno��h�}��������������gsyntax-violation��������f-source expression failed to match any pattern��ginteger?��gvhash-assoc��g
vhash-cons��gdirectory-stream?��gfold��gcons��g
alist-cons��g
vlist-null��gbasename��gerror��
���
���fno matching pattern����gconst��gand=>��gsort�C5hPG�]4	
"5	4%>"G&'()*+,h�s]!45"`45$4>"GC4545$"	45$"�"���45"���kgdir
		g
dir-stream			gnew			ogacc			ogt		?	Xgfilenamef
ice-9/ftw.scm�
�
��	�	��		�	��	�	��	�	
��	�	��	�	��	0�	��	7�	��	;�	"��	?�	��	?�	��	M�	��	Q�	"��	U�	��	\�	��	g�	��	o�	
��	o�	��	p�	��	w�	��	�	��		gnamegdirectory-files�C-R*./012hhJ-13"J(-45$"$C456�4�5"���"���Bgnodes
			cgnodes	
	Wgresult		
	Wgt		'	@gfilenamef
ice-9/ftw.scm�
�
��	
�	��	�	��	�	��	�	��	�	��	 �	��	"�	&��	'�	��	8�	 ��	@�	��	C�	��	D�	��	J�	0��	M�	4��	O�	��	W�	��	W�	��	[�	��	c�	��			c


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


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


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


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

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

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


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


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

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

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

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


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

Return the result of these successive applications.
When FILE-NAME names a flat file, (LEAF PATH STAT INIT) is returned.
The optional STAT parameter defaults to `lstat'.�CRh`]CXgn
		gs		gfilenamef
ice-9/ftw.scm�
�	.��			CN����h`�]�$I���$+�$4455�C456456456�gname
		_gstat		_gresult			_gw			Rgx			Rgfilenamef
ice-9/ftw.scm�
�	��	�	��	"�	
��	%�	��	0�	4��	4�	
��	7�	��	9�	��			_	gnamegleaf�C����h�
]#�${���$]�$I���$+�$445�5�C456456456456456gname
	�gstat	�gresult		�gw		�gx		�gw		'	jgx		'	jgfilenamef
ice-9/ftw.scm�
	��		��	:	
��	=	��	H	)��	L	
��	O	��	Q	��		�	gnamegup�Ch�]L6�gname
		
gstat		
gresult			
gfilenamef
ice-9/ftw.scm�
�	��	
�	��		
	gnamegenter?*�Ch�]�C�gname
		gstat		gresult			gfilenamef
ice-9/ftw.scm�
	��		
��		��			gnamegdown�C*h �]4L5$CL6�gname
		gstat		gerrno			gresult			gfilenamef
ice-9/ftw.scm�

	��		��		��	
	��			gnamegerror�C���
h�w-.,3##4OO	5	�$e�(Q�".�(�(C4
564
56�$�(�C"���"���4
564
56og	file-name
	�genter?	�gstat		�gleaf		(�gup		(�gv		K�gw		^�gw		n�gfilenamef
ice-9/ftw.scm�
�
��	)	��	E	;��	K	��	�	gnamegfile-system-tree�g
documentationfRReturn a tree of the form (FILE-NAME STAT CHILDREN ...) where STAT is
the result of (STAT FILE-NAME) and CHILDREN are similar structures for
each file contained in FILE-NAME when it designates a directory.  The
optional ENTER? predicate is invoked as (ENTER? NAME STAT) and should
return true to allow recursion into directory NAME; the default value is
a procedure that always returns #t.  When a directory does not match
ENTER?, it nonetheless appears in the resulting tree, only with zero
children.  The optional STAT parameter defaults to `lstat'.  Return #f
when FILE-NAME is not readable.�CR� �K�&hJ]L6Bgfilenamef
ice-9/ftw.scm�
"	��	#	��		
C'(�)h`�]"J45$4>"GL6454L5$	�""���45"����gstream
		`gentry		Pgfiles			Pgfilenamef
ice-9/ftw.scm�
'		��	(	��	*	��	*	
��	,	��	+-	��	,.	��	3/	��	=/	��	B0	��	P.	��	P(	��	Q(	��	X)	��	`(	��		`ChH�-.,3#45#4O455O6�gname
		Egselect?		Egentry<?			Egfilenamef
ice-9/ftw.scm�

��		+��	'!	��	+!	��	3$	��	:!	��	E&	��		E	gnamegscandir�g
documentationfReturn the list of the names of files contained in directory NAME
that match predicate SELECT? (by default, all files.)  The returned list
of file names is sorted according to ENTRY<?, which defaults to
`string-locale<?'.  Return #f when NAME is unreadable or is not a
directory.�CRC�gm
		0gfilenamef
ice-9/ftw.scm�	�
��F�
���
����
��7�
��
�
��k
��|)
���/
��'�E
��8��
��C�
��GH
��	GJ
C6PKS<�Z�lNRRslib.gonu�[���GOOF----LE-8-2.0:]4h]gassq-ref�	g%guile-build-info�	gdatadir�	g
string-append�	f/slib/guile.init�	gfile-exists?�	gguile�	�		gload-in-vicinity�	
	�		�	fice-9�	
f
/usr/share�	gload-from-path�	fslib/guile.init�C5h�P]4ii54i54i5$4>"G"$C4i
54i5$4>"G"$Ci6Hgdir
		Kginit		Hgt
	K�ginit
	a�gt
��gfilenamefice-9/slib.scm�
	
��			��	
		,��			��			��			��			1��			��			��			��	+		��	,		��	K		��	W		��	]		��	_		1��	a		��	a		��	d		��	p		��	q		���		���	 	���	 	��	�
C6PKS<�Zد_e(4(4	format.gonu�[���GOOF----LE-8-2.04]%4hx]gguile�	�	gdefine-module*�	�	�	gice-9�	gformat�	�		gfilenameS�	
fice-9/format.scm�	greplacementsS�	�	
g	autoloadsS�	gpretty-print�	�	gtruncated-print�	�	gi18n�	�	g%global-locale�	gnumber->locale-string�	�	�	gset-current-module�	�	�	f3.0�	gformat:version�	gstring?�	gerror�	f+format: expected a string for format string�	 gboolean?�	!gcurrent-output-port�	"goutput-port?�	#gnumber?�	$gissue-deprecation-warning�	%f5Passing a number to format as the port is deprecated.�	&f"Pass (current-error-port) instead.�	'gcurrent-error-port�	(fformat: bad destination `~a'�	)g%default-port-encoding�	*fUTF-8�	+gopen-output-string�	,gport-column�	-g
write-char�	.g
string-ref�	/g
string-length�	0gchar=?�	1gdisplay�	2gstring�	3f~�	4gmemv�	5gappend�	6[];:@^�	70123456789-+v#'�	8fillegal format string�	9{}:@^�	:gchar-upcase�	;gmemq�	<gcolon�	=gcolon-at�	><=�	?gat�	@?=�	Afmissing argument(s)�	Bglist-ref�	Cglength�	Df'~s parameter must be a positive integer�	Efwidth�	Ffdecimals�	Gg
integer->char�	Hfpadchar�	Ig
string-pad�	Jgcomplex?�	Kfargument not a complex number�	Lg	real-part�	Mg	imag-part�	Nf'one positive integer parameter expected�	Oginteger?�	Pgchar?�	Qf~~c expects a character�	Rgobject->string�	Sg
char->integer�	Tf#\�	Ugnumber->string�	Vfmissing backward argument(s)�	Wf~~p expects a number argument�	Xfies�	Ygcall-with-output-string�	ZgwidthS�	[gmax�	\fillegal modifier in ~~?�	]gchar-whitespace?�	^f&illegal modifier `:@' in ~~* directive�	_gstring-copy�	`gchar-alphabetic?�	agstring-set!�	bg
char-downcase�	cgstring-capitalize�	dg
string-upcase�	egstring-downcase�	ffmissing ~~(�	ggif-then�	hgif-else-then�	ifillegal modifier in ~~[�	jgnum-case�	kf~~; not in ~~[~~] conditional�	lfno parameter allowed in ~~;�	mg	substring�	nfillegal modifier in ~~;�	ofmissing ~~[�	pfno modifier allowed in ~~]�	qfno parameter allowed in ~~]�	rfargument not a positive integer�	sg	rest-args�	tgsublists�	ug
rest-sublists�	vglist�	wfmissing ~~{�	xfillegal modifier�	yfno parameters allowed in ~~}�	zgstring=?�	{f�	|fexpected a list argument�	}g	list-tail�	~f!expected a list of lists argument�	fexpected list arguments��finternal error in ~~}��ftoo much parameters��fdouble `@' modifier��fdouble `:' modifier��fmisplaced modifier��g
char-numeric?��gstring->number��f
misplaced '#'����g
string-append��f SLIB Common LISP format version ��f,  (C) copyright 1992-1994 by Dirk Lutzebaeck��f5  please send bug reports to `lutzeb@cs.tu-berlin.de'��funknown control character `~c'��gstring-prefix?��f#<��fmincol��fcolinc��fminpad��fargument not an integer��f
commawidth��fcolnum��funsupported modifier for ~~t��f'only positive integers can be romanized��glist->string��greverse���M���D��	dC��	2L��	
X��	V��I�����������gassv��	d	d	
	
��fzero��fminus ��f	 thousand��f million��f billion��f	 trillion��f quadrillion��f quintillion��f sextillion��f septillion��f
 octillion��f
 nonillion��f
 decillion��f undecillion��f
 duodecillion��f
 tredecillion��f quattuordecillion��f quindecillion��f
 sexdecillion��f septendecillion��f octodecillion��f novemdecillion��f
 vigintillion��{�����������������������gstring->list��f, ��fone��ftwo��fthree��ffour��ffive��fsix��fseven��feight��fnine��ften��feleven��ftwelve��fthirteen��ffourteen��ffifteen��fsixteen��f	seventeen��feighteen��fnineteen�����������������������f hundred�� ��ftwenty��fthirty��fforty��ffifty��fsixty��fseventy��feighty��fninety����������
��f times ten to the ��f power��f3only integers can be converted to English cardinals��fzeroth��fth��f ��ffirst��fsecond��fthird��ffourth��ffifth��fsixth��fseventh��feighth��fninth��ftenth��feleventh��ftwelfth��f
thirteenth��f
fourteenth��f	fifteenth��f	sixteenth��fseventeenth��f
eighteenth��f
nineteenth�����������������������f	twentieth��f	thirtieth��ffortieth��ffiftieth��fsixtieth��f
seventieth��f	eightieth��f	ninetieth����������
�f-�f2only integers can be converted to English ordinals�gstring-index�f+argument is not a number or a number string�fdigits�ginf?�gnan?�fargument is not a number�fexponent digits�	gmin�
fmindig�gexact->inexact�f(illegal character `~c' in number->string�
f4number is too long to format (enlarge format:fn-max)�f-internal error in format:fn-shiftleft (~d,~d)�f'FORMAT: INTERNAL ERROR IN FORMAT:ERROR!�gnewline�f        destination: �gwrite�f        format string: �f        format args: �f        error args:  �ferror in format�fr~%FORMAT: error with call: (format ~a "~a<===~a" ~
                                  ~{~a ~}===>~{~a ~})~%        �g	list-head�gapply�gmake-string�f~a missing argument~:p�gforce-output�gget-output-string�g
close-port�f;Omitting the destination on a call to format is deprecated.� f5Pass #f as the destination, before the format string.�!f@Omitting the destination port on a call to format is deprecated.�"f:Pass #f as the destination port, before the format string.�#gmodule-set!�$gthe-root-module�C5hx�]4	

54>"GR !"#$%&'()*+,-.hP�]"1�$",445L>"G�"���"���M��NC�gstr
		Kgi		Kgn			Kgk			7gfilenamefice-9/format.scm�
	Z	��		[	��		\	��		[	��		]	��		]	��	&	]	��	1	[	��	7	[	��	F	^	%��	G	^	��	I	^	��
		K	gnamegformat:out-substr�C-h@�]
"*�$"$4L>"G�"���
"���M�NC�gn
		@gch		@gi			0gfilenamefice-9/format.scm�
	c	��		d	��		e	��		d	��		f	��	*	d	��	0	d	��	<	g	��	>	g	��
		@	gnamegformat:out-fill�C/.012-h��]M
L�$MC4L
M
5M
�N
4~5$
NNNL6M	
�$cM
�$WM$"44M455L>"G"4L>"G4
5$
"M�N"""��T�gch
		#gchar
	#�gfilenamefice-9/format.scm�
�	��	�	��	�	��	�	��	�	��	�	!��	�	��	#�	��	&�	��	2�	��	5�	��	6�	#��	8�	��	;�	��	?�	��	B�	��	G�	��	J�	��	O�	��	U	M	��	V	N	
��	Y	N	��	\	N	+��	d	N	��	k	N	
��	x	P	
���	R	���	R	���	T	���	Q	����	�� 	�
gnameganychar-dispatch�C134.56789:;>@AB<CDEFGH/I?=JKLM2-0NOPQRSTUV#WXYABZhH�]MM�$M�N4M>"G"M�NMN4LM�5L6�gp
		Dgfilenamefice-9/format.scm�
�	��		�	��	
�	��	�	)��	�	��	�	��	�	"��	�	��	,�	��	.�	��	2�	��	3�	��	:�	 ��	<�	��	D�	��		DCABZ[hP�]MM�$M�N4M>"G"M�NMN4LM�54LM�56�gp
		Mgfilenamefice-9/format.scm�
�	��		�	��	
�	��	�	)��	�	��	�	��	�	"��	�	��	,�	��	.�	��	2�	��	3�	��	:�	 ��	<�	��	A�	.��	H�	3��	K�	.��	M�	��		MC\Z]^_/.`ab:h��])4545H"u�$C4545$GJ$445>"G"K445>"G"�"���
"����gstr
	�gcap-str	�gnon-first-alpha		�gstr-len		�gi		�gc		0�gfilenamefice-9/format.scm�
%	��	&	��	(	��	&	��	)	��	 *	
��	$)	��	(+	��	0+	
��	3,	��	=,	��	C-	��	D.	��	K.	+��	V.	��	e0	��	f1	��	m1	-��	x1	���)	���)	��	�gnamegstring-capitalize-first�Ccdefghijklmnopqrstuvwxyz{|}~�_�������������fh0)QI]HM*L)�$@M%$44M%5L&>"G"4L&>"GM'�N'M(CM
�$"44LM*5455$(�M#
�$"+4M*L)�$4M$5"	4LM*54	55$(h4
M*L)�$4M$5"	4LM*5M*�N*5A�$c4M	5N4L4M	
5M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6S�$c4M	5N4L4M	
5M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6D�$R4L
M	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M	
>"GL6H�$M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M	�$<M(M�$M�N4M$>"G"M(�N(M(N4LM(�5"4M5M
�$34
5$
�$
4M$5"""M�$345$
�$
4M$5"""4M	�$54	5$
�$
4M$5""	 "	 545$#45�$45""M%$44M%5L&>"G"4L&>"GM'45�N'L6X�$R4L
M	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M	>"GL6O�$R4L
M	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M	>"GL6B�$R4L
M	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M	>"GL6R�$�M(�4L4M	�$L" �$L""�$L "L!M(M�$M�N4M$>"G"M(�N(M(N4LM(�55M>"G"P4L
M	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M�M�>"GL6F�$P4LM	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6E�$P4LM	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6G�$P4LM	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6$�$P4LM	M(M�$M�N4M$>"G"M(�N(M(N4LM(�5M>"GL6I�$�M(M�$M�N4M$>"G"M(�N(M(N4LM(�545$"4M$>"G4LM	45M>"G4L4 5M>"GM%$"44M%4!i55L&>"G"4"iL&>"G4#i
5$
"M'�N'L6C�$bM("J"4M$$5";4%�5$+�
�$45�$""���""���""���$4M�5"8M(M�$M�N4M$>"G"M(�N(M(N4LM(�54&5$"4M$'>"GM	�$S4(5M%$44M%5L&>"G"4L&>"GM'45�N'"1�$�4)5HJ
�$J�K"J	 �$�M%$"44M%4!^55L&>"G"4"^L&>"G4#^
5$
"M'�N'4J	@�5M%$"44M%4!55L&>"G"4"L&>"G4#
5$
"M'�N'"�J	�$�M%$44M%*5L&>"G"4*L&>"GM'	�N'4+J	5M%$44M%5L&>"G"4L&>"GM'45�N'"SM%$"44M%4!55L&>"G"4"L&>"G4#
5$
"M'�N'"SM%$"44M%4!55L&>"G"4"L&>"G4#
5$
"M'�N'L6P�$�M	&"�$A	�M(�N(M(NM(
�$4M$,>"G"4LM(>"G"M(M�$M�N4M$>"G"M(�N(M(N4LM(�54-5$"4M$.>"G�$xM	&"�$WM%$"44M%4!y55L&>"G"4"yL&>"G4#y
5$
"M'�N'""�M	&"�$BM%$44M%/5L&>"G"4/L&>"GM'	�N'"SM%$"44M%4!s55L&>"G"4"sL&>"G4#s
5$
"M'�N'L6~�$�M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$4LM�~>"G"SM%$"44M%4!~55L&>"G"4"~L&>"G4#~
5$
"M'�N'L6%�$�M("J"4M$$5";4%�5$+�
�$45�$""���""���""���$4LM�
>"G"SM%$"44M%4!
55L&>"G"4"
L&>"G4#

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

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

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

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

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

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


L	LLLLLLLLLLLLLQQLQ
45



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

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


�>"G

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

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

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

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

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

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

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

�$5
�$(4L

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

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

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

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

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

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

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


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


gnamegformat:error�CC12h`�-13/45$"4>"G$Z45$	45"B45$"145$4	
>"G45"	45"
Y45Z45$"
HHHHHHHH
HHH
H	HHHOOOOOOOOOOOOO
O
 O! O"!O#"O$#O%$O&%O'&O('O)(O*)O+QQ	! Q	Q	Q	Q	Q	Q	Q	QQ*"'%
(	Q*"'%
)(	Q
+*"	Q 
%'"	Q!	$&%#
Q"Q#Q$	
Q%	
Q&%
Q'
Q(Q)
Q*
Q+K
K
K*
	OK	J	K
K4+�5K
K
KK4+	
5K
KK454,5-,,-�$"-�K4-J>"GJ	.,-�6J$4/>"G"$C405.41>"G.C�gdestination
		`g
format-string		`gformat-args			`gport	�`gt	��g
output-col	�`g
flush-output?	�`gformat:case-conversion	�`g
format:pos	�`gformat:arg-pos	�`gformat:error		�`gformat:error-save	
�`gformat:read-proof	�`g
format:fn-str	�`g
format:fn-len	
�`g
format:fn-dot	�`gformat:fn-pos?	�`g
format:en-str	�`g
format:en-len	�`gformat:en-pos?	�`gformat:out-substr	#`gformat:out-fill	#`gformat:format-work	#`gformat:out-obj-padded	#`gformat:out-num-padded	#`gformat:tabulate	#`gformat:num->old-roman	#`gformat:num->roman	#`gformat:num->cardinal	#`gformat:num->ordinal	#`gformat:out-inf-nan	#`gformat:out-fixed	#`gformat:out-expon	#`gformat:out-general	 #`gformat:out-dollar	!#`gformat:parse-float	"#`g
format:en-int	##`g
format:en-set	$#`gformat:fn-zfill	%#`gformat:fn-shiftleft	&#`gformat:fn-round	'#`g
format:fn-out	(#`g
format:en-out	)#`gformat:fn-strip	*#`gformat:fn-zlead	+#`garg-pos	,�`garg-len	-�`gstr	.I`0gfilenamefice-9/format.scm�
	&
��	
	'	��		'	��		(	��		(	
��	$	(	��	2	+	
��	3	0	��	=	+	
��	>	0	#��	G	1	��	Q	+	
��	X	2	��	b	+	
��	c	3	��	g	4	
��	i	5	
��	n	3	��	w	6	���	8	���	8	���	8	���	.	2���	/	���	*	���	:	���	:	���	*	���:	���?	���8	���9	���8	���;	���:	���<	��<	��=	��>	��>	/��>	��$@	��%A	��@B	��CD	��ID	��LE	��0		`	
	gnamegformat�CRi$ !"h`>*:1345$4>"GL@L@]4>"GL66gdestination
		@g
format-string		@gargs			@gdeprecated-format-string-only
	B	]gfilenamefice-9/format.scm�
K		��	
M	��	M	��	O	��	P	��	Q	��	#O	��	6R	��	@S	��	BK		��	CU	��	GV	
��	IW	
��	NU	��	]X	��		@	
		B	]COi#i$ii6�gm
		,gformat
�^gfilenamefice-9/format.scm�		
��	.	$	��	1	$
���	&
���J	��bI��n\	��t\
��		t
C6PKS<�Z�(��
�
time.gonu�[���GOOF----LE-8-2.0�
]:4h�]gguile�	�	gdefine-module*�	�	�	gice-9�	gtime�	�		gfilenameS�	
fice-9/time.scm�	gimportsS�	gformat�	
�	
�	�	gexportsS�	�	gset-current-module�	�	�	ggc-run-time�	gtimes�	gdisplay�	f'clock utime stime cutime cstime gctime
�	f$~5,2F ~5,2F ~5,2F ~6,2F ~6,2F ~6,2F
�	g	tms:clock�	gexact->inexact�	ginternal-time-units-per-second�	g	tms:utime�	g	tms:stime�	g
tms:cutime�	 g
tms:cstime�	!gidentity�	"g	time-proc�	#gmake-syntax-transformer�	$#�	%#�	&gmacro�	'g$sc-dispatch�	('�	)'�	*g_�	+gany�	,*+��	-g
syntax->datum�	.-�	/-�	0g
datum->syntax�	10�	20�	3g@@�	43"�	5glambda�	6gsyntax-violation�	76�	86�	9f-source expression failed to match any pattern�C5hXZ]4	
54>"G !h7]145454545454>"G444545�	�5
44545�	�544545�	�544545�	�5
44545�	�544545�	�5>"GC/gproc
	ggc-start	g	tms-start		gresult		gtms-end		ggc-end		#gproc		?	[gproc		]	ygproc		{�gproc	��gproc	��gproc	��gfilenamefice-9/time.scm�
	"
��		#	��		#	��	
	$	��		#	��		%	��		#	��		&	��		#	��		'	��	#	#	��	&	,	��	*	,	
��	/	,	��	8	-	��	=	-	��	?	.	��	B	+	��	E	+	��	L	+	'��	S	+	��	V	+	��	X	+	��	]	/	��	`	+	��	c	+	��	j	+	'��	q	+	��	t	+	��	v	+	��	{	0	��	~	+	���	+	���	+	'���	+	���	+	���	+	���	1	���	+	���	+	���	+	'���	+	���	+	���	+	���	2	���	+	���	+	���	+	'���	+	���	+	���	+	���	3	���	+	���	+	���	+	'���	+	���	+	���	+	���	-	��<	gnameg	time-proc�C"R4%&),/245hZ]CRgexp
		gfilenamefice-9/time.scm�
	6
��		7	��		Chb]	45L4?6Zgargs
		gv			gfilenamefice-9/time.scm�		6
��		C89h(`]	45$O@6Xgy
		'gtmp		'gfilenamefice-9/time.scm�
	6
��		'C5RCRgm
		,gfilenamefice-9/time.scm�		
���	"
��	W
C6PKQ<�Z}�H�U�Upopen.gonu�[���PKQ<�Z��j>���Uregex.gonu�[���PKQ<�Z��G���
�sfutures.gonu�[���PKQ<�Z`?#curried-definitions.gonu�[���PKQ<�ZD�A���
P:streams.gonu�[���PKQ<�Z�G��-�-
EZthreads.gonu�[���PKQ<�Z�Y �^�safe-r5rs.gonu�[���PKQ<�Z�ًX	��rdelim.gonu�[���PKQ<�Z�>�,�rw.gonu�[���PKQ<�Z��y�zz/�binary-ports.gonu�[���PKQ<�Z�nrr�occam-channel.gonu�[���PKQ<�Z��b<��
94mapping.gonu�[���PKQ<�Z�}{�G�G�
�Spsyntax-pp.gonu�[���PKQ<�Z;�G��zQhcons.gonu�[���PKQ<�ZT�kk�^safe.gonu�[���PKQ<�Z�RaaaAcweak-vector.gonu�[���PKQ<�Z'L�����frunq.gonu�[���PKQ<�Zir\��)�)
߀gap-buffer.gonu�[���PKQ<�Z;Of��=�=Ԫreadline.gonu�[���PKQ<�Z��l}N>N>��vlist.gonu�[���PKQ<�ZwO	�� � 
4'control.gonu�[���PKQ<�Z1�߀^\^\%Hpretty-print.gonu�[���PKQ<�Z�ub���
¤local-eval.gonu�[���PKQ<�ZL�}0��	Dboot-9.gonu�[���PKQ<�ZD�[��	Gexpect.gonu�[���PKQ<�Zީ���\top-repl.gonu�[���PKQ<�ZV쇸H�H5kcommand-line.gonu�[���PKQ<�Z�>���,�q.gonu�[���PKQ<�Z����
$�receive.gonu�[���PKQ<�Z�����H�H�match.gonu�[���PKQ<�Z��ew((
:syncase.gonu�[���PKQ<�Z\��!�!
�string-fun.gonu�[���PKQ<�Zw�fImmk6iconv.gonu�[���PKR<�Z��~��Fstack-catch.gonu�[���PKR<�Z�?;V � �!Mgetopt-long.gonu�[���PKR<�Z21���-�-r4rs.gonu�[���PKR<�ZS��D1D1:6common-list.gonu�[���PKR<�ZB1622�gls.gonu�[���PKR<�Z]m)���#sposix.gonu�[���PKR<�Zo �Q�debug.gonu�[���PKR<�Z_��m�
�

��history.gonu�[���PKR<�Z�\�$��ǝbuffered-input.gonu�[���PKR<�ZvC8�8�
��deprecated.gonu�[���PKR<�Zy����
"schannel.gonu�[���PKR<�Zl� ��
�hash-table.gonu�[���PKR<�ZY۞""�documentation.gonu�[���PKR<�Z�!�`��E�null.gonu�[���PKR<�Z��k��
^�unicode.gonu�[���PKR<�Z�(^>�poe.gonu�[���PKR<�ZE=M5���r5rs.gonu�[���PKR<�Z��-,,
W�calling.gonu�[���PKR<�Z�Vl]����serialize.gonu�[���PKR<�Z����˃˃�poll.gonu�[���PKR<�Z�e��VV��and-let-star.gonu�[���PKR<�Z);�xx
<�save-stack.gonu�[���PKR<�Z��u@MMMM
�optargs.gonu�[���PKR<�Z��5ȹ)�)x�scm-style-repl.gonu�[���PKR<�Z�#�a�a
r"session.gonu�[���PKR<�Z�Q<�##L�eval-string.gonu�[���PKR<�Zm[�O����list.gonu�[���PKR<�Z��E##
��networking.gonu�[���PKS<�Z~�ƀS�Sȼi18n.gonu�[���PKS<�Z���Z�5�5eval.gonu�[���PKS<�ZF[��
�
	XFlineio.gonu�[���PKS<�Z�eY��R�RWQftw.gonu�[���PKS<�Z�lNRR��slib.gonu�[���PKS<�Zد_e(4(4	�format.gonu�[���PKS<�Z�(��
�
o�time.gonu�[���PKDD���