GOOF----LE-8-2.0�]U4h�]
gguile�	

�	gdefine-module*�	�	�	gsrfi�	gsrfi-38�	�		gfilenameS�	
fsrfi/srfi-38.scm�	gimportsS�	grnrs�	
gbytevectors�	
�	
�	gsrfi-8�	�	
�	gsrfi-69�	�	
�	gsystem�	gvm�	g
trap-state�	�	
�	�	gexportsS�	gwrite-with-shared-structure�	gread-with-shared-structure�	�	 gset-current-module�	! �	" �	#gcond-expand-provide�	$gcurrent-module�	%
�	&gcurrent-output-port�	'g
vector-length�	(gstring?�	)g
string-length�	*gbytevector?�	+gport?�	,gdisplay�	-f
(�	.f
)�	/f . �	0ghash-table-ref�	1f
 �	2f#(�	3gwrite�	4gnumber?�	5f
#�	6gcounter�	7f
=�	8ghash-table-set!�	9ghash-table-exists?�	:gmake-hash-table�	;geq?�	<gcurrent-input-port�	=geqv?�	>g	peek-char�	?geof-object?�	@glist->string�	Agreverse�	Bg	read-char�	Cgstring->number�	Dg
char-numeric?�	Eghash-table-ref/default�	Fgerror�	GfDouble declaration of part �	Hgread�	IfUse of undeclared part �	JfMalformed shared part specifier�	Kgwith-fluid*�	Lg%read-hash-procedures�	Mgfor-each�	Ngread-hash-extend�	O0123456789
�	Pghash-table-size�	Qgpatch!�	Rg
procedure?�	Sghole?�	Tg	fill-hole�C5
h��]4	
54">
"G4#i4$i5%>"G&'()*+h�\
]	�$C�$4
5

��"


$
C45
$45

��"


$
C45


$
C�$C45


$
CCT
gobj
	�g
t	!�g
t	F�g
t	X�g
t	s�gfilenamefsrfi/srfi-38.scm�
	9	��		:	��			:	��	
	:	��		;	
��		;	��		;	'��		;	 ��		;	��	!	:	��	-	<	
��	7	<	��	8	<	'��	?	<	 ��	A	<	��	F	:	��	R	=	��	X	:	��	f	>	��	j	:	��	k	>	��	m	?	��	s	:	��	�
gnameginteresting?�C,-./012'345678h@]"
_�$�4
L
>"G4L�
>"G"�">(
L
64
L
>"G4L
>"G
L
6�$C4
5$"���4
L
>"G4L�
>"G�"��t"��t�"��g�$�4
L
>"G45
4L
�
>"G"E�$
L
64
L
>"G4L�
>"G�"���"���	L
64L5
$�4
5$�4
5
$04
L
>"G4	L
>"G
L
64
5�4
L
>"G4	L
>"G4

L
>"G4
>"G4
>"G"���"���	L
6�gobj
	@gstate	@gobj		:�glen	�
]g
i	

Vgval	
y8g
n	
�4gfilenamefsrfi/srfi-38.scm�
	N	��		O	��			P	
��	
	P	��		Q	
��		Q	��		Q	
��	"	R	
��	'	R	��	.	R	
��	:	S	
��	D	T	��	H	Y	��	L	Y	��	M	[	��	Q	[	��	X	[	��	a	\	��	x	]	��	|	]	��	|	T	��		T	���	T	���	T	,���	T	���	U	���	U	���	U	���	V	���	V	!���	V	���	W	!���	W	���	S	
���	S	"���	S	
���	^	
���	P	���	_	
���	_	���	_	
���	`	���	`	
���	a	���	a	��
	a	��
	b	��
	c	��
	c	��
	c	+��
"	c	"��
#	d	��
'	d	&��
.	d	��
7	e	��
>	e	(��
E	e	��
P	f	(��
V	f	��
V	b	��
e	h	��
f	i	��
p	i	��
q	j	��
y	j	��
�	k	
��
�	l	��
�	k	
��
�	m	��
�	m	$��
�	m	��
�	n	��
�	o	$��
�	o	��
�	q	"��
�	q	8��
�	q	"��
�	q	��
�	q	��
�	r	��
�	r	��
�	r	��
�	s	��
�	t	��
�	t	��
�	t	��	u	��	u	-��	u	��	v	��4	w	��8	k	��@	y	��^	@	
gnameg	write-obj�C98'h��
]4L5
�$C4

5$	
64
>"G�$"4L
�
>"G�

"����$?45
"+�$C4L
�
>"G�"���
"���C�
gobj
	�gstate	�g
t		
�glen		w�g
i		}�gfilenamefsrfi/srfi-38.scm�
	~	��			��	
		��	
		��	�	��	"		��	+�	��	,�	��	C�	��	G�	��	H�	��	M�	��	T�	��	_�	��	i�	��	l�	��	p�	��	q�	��	w�	��	}�	����	����	����	����	����	����	����	��	�	
gnamegscan�C:;86	h�L
-
.,3
#4
5
#OO
QQ45
4>"G4
>"G6D
gobj
	�goutport	�goptarg		�ginteresting?		9�g	write-obj		9�gscan		9�gstate		P�gfilenamefsrfi/srfi-38.scm�
	.
��		0	/��	J�	��	P�	��	S�	��	g�	��	m�	��	s�	����	��
	�	
gnamegwrite-with-shared-structure�CR<:=>?@ABhX7
]"G4
L5
45
$"45
�$45
6
4L5
�"���
"���/
gpred
		Uginitial		Ugchars			Mg
c		
	Mg
t			.gfilenamefsrfi/srfi-38.scm�
�	��	�	��	�	��	
�	��	�	��	�	��	$�	'��	+�	"��	2�	
��	5�	��	=�	��	>�	��	G�	��	M�	��	M�	��		U	
gnamegread-some-chars�CCDBEFG8h_]L�CWgfilenamefsrfi/srfi-38.scm�
�	��	�	$��		

gnamegthunk�CHIJh��
]*4
4L
55
4
5
4L
5=�$P$4>"G"
4L
O
>"G4	
5
�C#�$$C
66
�
g
c
	�gport	�g
n		�g
c		�gthunk		(�gcell		U�gobj		y�gfilenamefsrfi/srfi-38.scm�
�	��	�	��	�	 ��	�	?��	�	 ��	�	��	�	��	�	��	�	��	�	��	(�	��	3�	��	9�	��	:�	��	>�	��	E�	��	U�	��	U�	��	X�	
��	s�	��	y�	
����	����	����	����	����	����	����	��	�	
gnameg	read-hash�CKLMNha]

L6Ygdigit
		

gfilenamefsrfi/srfi-38.scm�
�	��	
�	��		

COHPQhP�]4
LO
>"G4L
5

4L5
�$4>
"G"C�gresult
	"	J
gfilenamefsrfi/srfi-38.scm�
�	��	�	��	�	��	�	��	�	��	"�	��	&�	��	-�	��	1�	
��	2�	��		J

C	hX�-.
,
3#4
545

O
OQ
Q[
O6�gport
		Sgparts-table	 	Sgread-some-chars		3	Sg	read-hash		3	Sgfilenamefsrfi/srfi-38.scm�
�
��	�	6��	�	��	 �	��	S�	��		S

gnamegread-with-shared-structure�CRRhn]

6
fg
x
		
gfilenamefsrfi/srfi-38.scm�
�
��	�	��		
gnameghole?�CSRSTh �]
4
5
$	456
C�g
x
		
gfilenamefsrfi/srfi-38.scm�
�
��	�	��	
�	��	�	/��	�	$��		
gnameg	fill-hole�CTRSTQ'h��
]�$N4
�5
$4�5
�"4�>
"G4
�5
$
4�5
�C�6
�$\"J

�$C
�4
5
$
45
�"4>
"G
�
"���45
�
"���C�
g
x
	�g
i	b�gelt		q�gfilenamefsrfi/srfi-38.scm�
�
��	�	��		�	��	
�	��	�	��	�	��	�	��	�	$��	�	/��	�	$��	 �	��	%�	9��	*�	A��	/�	9��	8�	��	=�	��	?�	��	C�	��	F�	$��	K�	/��	M�	$��	N�	��	U�	A��	W�	9��	Z�	��	^�	��	b�	��	f�		��	j�	��	q�	��	q�	��	t�	��	~�	����	����	����	����	$����	����	����	����	��*	�
gnamegpatch!�CQRC�g
m
		,
gfilenamefsrfi/srfi-38.scm�		
��	-	"
��	2	"	��	:	"	&��	?	"
��
	.
����
��A�
���
����
��	�

C6