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;�	Kg
x�	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�C5
h�]4	
54>
"G4i>"Gh`$
-
.,3
#

4
5��"$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	#4
5##
#	4
5
4
��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
#4
5
#"�45
4��
5��		�
$�"i44
	5�5
�$4	5
$C
45
6�$"�$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(�]	4
5

$
@6�g
x
		"gtmp		"gfilenamefice-9/rdelim.scm�
	w
��		"
g
macro-typegsyntax-rules�gpatternsgexpgmessagegargg...C5-RZ[h(�]
4
5
$45
$
�CCC�g
n
		!
gfilenamefice-9/rdelim.scm�
	{
��		|	��	
	|	��		|	��		|	��		|	��		!
gnamegindex?�C\R]#^\_`ab"
h8
�-
.,3
#4
5
#
#	45
45
$"4>"G45
$"4>"G45
$"4>"G�$"4>"G45
�$"4	>"G"H�$94

5
45
$�C4>"G�"����C"����gbuf
	
7gport	
7gstart		
7gend		
7g
n	�
/g
c	�
)gfilenamefice-9/rdelim.scm�
	~
��			��	)�	&��	2�	
��	<�	��	E�	��	L�	��	U�	
��	_�	��	h�	��	o�	��	x�	
����	����	����	����	
����	����	����	����	����	
����	����	*����	����	����	����	����	����	����	��
�	
��
	�	��
�	��
#�	��
)�	��
.�	��
/�	��&	
7	
gnamegread-string!�g
documentationf
NRead 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#4
5"*45
45
$4
5
6

�
"���
"���]""D45
45
$"
�$45
6
��"���
"����gport
		Tgchars	#	Mgchar		*	Mgport
	V�gcount	V�gchars		Z�gtotal		Z�gchar		a�g
t		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#4
5
#
45
��
�$C
�$C
�$)45
$45
$
4	5
6CC

�$&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�g
m
		(
gfilenamefice-9/rdelim.scm�		
��	)	$
��
�	&
��5	5
��	|	R
���	{
���	~
����
����
��
	�

C6