ELF

�
@�
@8@
��




��
pp
�@

�;�?T�?;
�?T	�?;1@T=@;�?TE@�TD@|��K@O@qU;@G

P�	0@��p�`�'
0
TA@|��0@>@qU8@G	
�'
->T@@4);
>@H

T�?4);;@H
�
'
>@


'
<@��
B HH

 
'
3@B >
L
H
B L
H
B L
H
BP>
EL
<L
HHHBPL
<
@L

HHH0'
T@
0�B
 H
H

GG
|�(}
�%H

H

GG

|
�}

�G
~�GG
|��G

H
G
|����H
�
'%�?&
@&@
%@

0GG
G
G


GG
 
0'����
@
P
P'
���	P`0'
=@|��}
�BG|�}
�}
�
�'
	��'�
�'���`G
|�
}
�}
�

	
'

	
�'���pB HH


'}
��Kh
�
^
A�j^
L>
p��H

^
p���?'D
^
p������v�rK
h

?q��i
�^


C

|
�}

�}

��'
	
��'��'
r����K	h		q��@D
?
�?'Y

q��:Khq��0
^
C
|
�}

�|
�}

��'
	
��'��'
:����K	h		q��D
^
��&
S?&
a?&O?&]?�
'
'
�?

V�=A
;
�=1
U
�=U
6>U
>V�=:
;
�=1
U
�=U
�=V�=�=V�=4
;
�=1
U
�=T
�=1
U
�=V�=-
V�=4
;
�=1
U
�=T
�=1
U
�=V�=+
;
�=1
U
�=U
�=V�=�=V�=�=V>�=V�=
;
�=1
U
�=U
>V�=
;
�=1
U
�=U
�=V�=�=V�=�=V�=�=V�=�=V�=
;
�=1
U
�=T
�=1
U
�=V�=
;
�=1
U
�=T
�=1
U
�=V�=�;
�=1
U
�=U
�=V�=�V>�V
>
;
>1
U
	>V>���V>Z���V%>�;
 >1
U
$>U
V>U
D>U
*>V*>@=V>�V&>>V'>�V6>">V)>�;
$>U
@>U
.>V0>
V7>+>VL>
;
G>1
U
K>U
m>U
[>VI>�VX>D>VK>

;
F>U
b>U
P>VR>
VY>M>Vb>
;
]>1
U
a>U
�>U
>U
q>U
c>V[>�V`>V>V�>[>V^>
Vc>Y>V�>^>Va>
Vf>\>Vu>a>Vd>$
Vi>_>Vh>d>Vk>e>Vl>f>Vm>g>
�'ice-9'	copy-tree'filename'ice-9/copy-tree.scm'imports'match'srfi'srfi-11'replacements'declarative?'guile'define-module*'set-current-module'	make-race'wrong-type-arg'(Expected non-circular data structure: ~S'car'6Wrong type argument in position 1 (expecting pair): ~S'set-cdr!'out-of-range'vector-set!'Argument 2 out of range: ~S'
vector-ref'
documentation'<the new data structure.  @code{copy-tree} recurses down the
'Econtents of both pairs and vectors (since both cons cells and vector
'Hcells may point to arbitrary objects), and stops recursing when it hits
'any other object.�h�hi8kTn�o�q�s�v�z�|�����*��j�j�j%f�f�f&`7`7�`7

`7� `7�		EE��� ������(������L���4������(�6����������l��������������
�������
<EHP
��\��

8

0
0
Z


� 
��D*
���<pE�
+M�
�U�
�k
(
	z�

�
8
�
@
��
�
/�

7�
H
�
H
z
��
�
�
�
@�P
�P
p
C

p
�
I
 
�
HU
 Hy

`�
`��

�8�
 B
									

 	'	1;$,4 <(D0L8P@XHtH|H�
H�
�
�
�
�
��������
??	CHZh?r??
rv
v"(4@L"X*l(x"
{	C�
�
	�
	�
	�
 $ HLh tx�
�
�
�

�
�
�
 $
?�
�
440?�
�
?�
�
�
?C�
�
�
�
	�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
?�
�
	�
�
�
�
�
�
�
�
�
�
�
�
�
�
?�
�
	�
�
�
�
�
�
�
(p p@�
�
�
���
�
�
�� �*�0�
�
�
�
�
�
�
��"�"�"�#�+�"�"�#�"�8�@�`�8�8�B�B�B�C�� �*�*�*�+�*�*�+�*�8�@�`�8�8�B�B�B�C�
�
�`�
�

3��D�P

8 
X<
��0� D'HT1�� 

%
.
.
.
Guile 3.0.7make-raceadvance!split!copy-treevisitv
;
�





ice-9/copy-tree.scmice-9/boot-9.scm	�
5c;�,

�a,,�,

�b,,�,

�b,$�,�;�

�an,wn��Kqw�tY<	ix<
wM<	-h	U+	*4�
�# ;�f�; is$h+?
�i �r$hDi	�x<<i*-k�$h+?
�i�Zu*-kw$h+l
�i�Z
+*,
,*,�

P

P
 
p
<
�
�H�D`T%��8make-raceadvance!split!copy-treevisitclosureargcachevarproctmpmodulemake-racecopy-treevalobjpairadvance-tortoise?tortoise-pathhare-tailtagcodehareunboxedunspecifiedadvance!split!headw0ulenrlenslennwordsvw0-highposisidxa*res*aresults64.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