ELF

�
@�
@8@





��
���pp
n@

�;�?T
�?;	�?T�?;@T)@�T(@|��/@3@qU@G
@�p�`�
P�'0T
&@|
��
@#@qU
@G

�'T
'@4

)T	%@|	��	@"@pU	@G	
'
PH

	T
�?4

)B0>E
L<L
H	H

T
�?4

)B0L<2L
H	H

T
�?4
)B
0L
<
L

H
	H

�
'
�?
PT�?G
@'`'
�?|
��
�?�?qU
�?G


'
�?
G

'
@
;
�?B	 >L	H	

�
B LH

�
B LH

Bp>
LH

H
H
Bp>EL<?L
HH	HHHHH
B@>EL<�L
H	HH;�?T	�?|	��	j?�?pU	�?G	

��'

�
H
T�?
�'
����	



G

�'

G

'
@

p��?'GG
GG
|�e}�bK
 Y
{�D3@p �>K[G
OK
>a

r
�j��W`5

H
T�?|��?�?pU}?G

`'P|��T5?G
'F���PGG

�P'`
'&�?GG

G'PG'P�
�GH
GH
���P
'&�?
�?

G
G
|�
}�
KYG

G


4


'&s?
�?
 B
0>E
L
<
L

H
G'���
�?
0G
0'0�
�;m?Ts?|���>p?pUj?G

 0@'
'
m?

V>�;
>1
U
>U
>V>�;
>1
U
>U
>V
>>V>�;
>1
U

>T
>1
U
>V>�V
>�;
>1
U
>T

>1
U
>V
>�;
>1
U
	>U
%>V	>�;
>1
U
>U
>V>�;
>1
U
>U
>V>>V>>V
>�;
>1
U
>T

>1
U
>V>�;
>1
U
>U
>V>�V>�V>�;
>1
U
>V>�V1>�VB>�VG>�VN>�V[>�V`>�;
[>1
U
_>U
s>V_>�;
Z>1
U
^>U
j>V^>�Vg>Y>Vh>�;
c>1
U
g>U
y>Vg>�Vv>b>Vi>�Vr>d>V�>�V�>�
�'ice-9'buffered-input'filename'ice-9/buffered-input.scm'exports'make-buffered-input-port'make-line-buffered-input-port'!set-buffered-input-continuation?!'declarative?'guile'define-module*'set-current-module'buffered-input-continuation?'make-object-property'setter''
r'make-soft-port'char-whitespace?'out-of-range'
string-ref'Argument 2 out of range: ~S'wrong-type-arg'
string-length'8Wrong type argument in position 1 (expecting string): ~S'

'
string-append�`�`8
ab�c�e�g�ij<kpl�m
("    



`7`7�`7

`7��`7 !H���,����L����L��4��P��
���L
��
�
8���
���
�����
��4��

�
��d��L�����

0

HH�


� 
��`
*
  n<��pE 
�M0
�U�
5
k
�

$	z�
{�

 �
0
��
�
8�

��
�
�
�
�
�`
�
�
�
@
�

&�
$�
$\�
 \x�

x��

��'*��
d�
d�
	
							

	 
	=
_c	h
c	�

c�
$,4 <(@0H8d8l8p8�
�
�
�
�
 �
�
����(�����"�*����*�����
�
�

84�
�
$,0
�

�
�
�
_�
�
�
�
�
�

_c
_c	

�
�
$"04(@D0P \:p8|B�
B�
�
:�
:�
�
���P��P�P�X�
	�
�
�
�
�
	�
�
�
��_������	

�
	�
 $( , H*H*L3P0`
l*p
t x,|2�
:�
2�

�

�

�
�
�
�
�
�
(�
�(�0���0�8��0�(�0�(���
�
�
�
�
	�
�
0
0
048<D
�

_c(4
�	
(8@\dh�

\�x�k�

3��`
��

�@/8=D=`|
V��
d�XrHL��l

%
.
.
.
.
Guile 3.0.8set-buffered-input-continuation?!setter@@guilemake-buffered-input-portget-characterinput-waitingmake-line-buffered-input-port�
U
�





ice-9/buffered-input.scmice-9/psyntax.scmice-9/boot-9.scm	�
��;�,

�a,,�,

�b,$�,

�b,��

�a'J
�6�C�)�;
�m�
��J"Kj�"�)"�S,;)�
�m�i�,;%q�� .*K,!,)�;E
�m� �&_h[?-%qh,Z�Y
2
;�Y*K%i8.&,�


�

�
@#$81\1x|
J��
X�XfHd��lset-buffered-input-continuation?!setter@@guilemake-buffered-input-portget-characterinput-waitingmake-line-buffered-input-portclosureargcachevarproctmpbuffered-input-continuation?set-buffered-input-continuation?!tagcodemake-buffered-input-portmake-line-buffered-input-portvalportarg0arg1readerread-stringobjstring-indexvw0unboxedulenrlens64uidxstartuposbufptrmaskbitsuwposu32ucharrescontinuation?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.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}.Construct 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}..guile.procprops.rodata.data.rtl-text.guile.frame-maps.dynamic.strtab.symtab.guile.arities.strtab.guile.arities.guile.docstrs.strtab.guile.docstrs.debug_info.debug_abbrev.debug_str.debug_loc.debug_line.shstrtab