GOOF----LE-8-2.0�U ]j 4 h�, ] g guile� � g define-module*� � � g ice-9� g popen� � g filenameS�
f ice-9/popen.scm� g importsS� g threads�
�
� g srfi� g srfi-9� � � � g exportsS� g port/pid-table� g
open-pipe*� g open-pipe� g
close-pipe� g open-input-pipe� g open-output-pipe� g open-input-output-pipe� � g set-current-module� � � g load-extension� !g
string-append� "f libguile-� #g effective-version� $f scm_init_popen� %g <pipe-info>� &g %make-pipe-info-procedure� 'g make-syntax-transformer� (' � )' � *g make-pipe-info� +g macro� ,g $sc-dispatch� -, � ., � /g _� 0g any� 1/0 � 2g
syntax-object� 3g lambda� 4g m-18e47d61-4� 5g top� 645 � 7g ribcage� 8g t-18e47d61-3� 98 � :6 � ;f l-18e47d61-9� <; � =79:< � >7 � ?g x� @? � Af l-18e47d61-6� BA � C7@:B � Dg shift� Eg proc-name� Fg args� GEF � H5 � IHH � Jf l-1e8ba8b5a-60� Kf l-1e8ba8b5a-61� LJK � M7GIL � Ng key� Og value� Pg name� Qg formals� Rg body� SNOPQR � THHHHH � Uf l-1e8ba8b5a-53� Vf l-1e8ba8b5a-54� Wf l-1e8ba8b5a-55� Xf l-1e8ba8b5a-56� Yf l-1e8ba8b5a-57� ZUVWXY � [7STZ � \g make-procedure-name� ]\ � ^H � _f l-1e8ba8b5a-43� `_ � a7]^` � bH � cf l-1e8ba8b5a-42� dc � e7@bd � f6=>CD>>>>M[ae
� gg hygiene� hg � i23fh � jg pid� kH=>C � lg � m2jkl � nm � og make-struct� pg m-18e47d61-1� qp5 � rg t-1e8ba8b5a-133� sg t-1e8ba8b5a-132� tg t-1e8ba8b5a-131� urst � vg m-1e8ba8b5a-134� wv5 � xwww � yf l-1e8ba8b5a-138� zf l-1e8ba8b5a-139� {f l-1e8ba8b5a-13a� |yz{ � }7ux| � ~g ctor-args� ~ � �f l-1e8ba8b5a-120� �� � �7b� � �g ctor� �g field� ��� � �f l-1e8ba8b5a-11c� �f l-1e8ba8b5a-11d� ��� � �7�I� � �g form� �g type-name� �g constructor-spec� �g field-names� ����� � �HHHH � �f l-1e8ba8b5a-111� �f l-1e8ba8b5a-112� �f l-1e8ba8b5a-113� �f l-1e8ba8b5a-114� ����� � �7��� � �g
record-layout� �g functional-setters� �g setters� �g copier� �g getters� �g constructor� �g getter-identifiers� �g field-identifiers� ��������� � �HHHHHHHH � �f l-1e8ba8b5a-e9� �f l-1e8ba8b5a-e7� �f l-1e8ba8b5a-e5� �f l-1e8ba8b5a-e3� �f l-1e8ba8b5a-e1� �f l-1e8ba8b5a-df� �f l-1e8ba8b5a-dd� �f l-1e8ba8b5a-db� ��������� � �7��� � �f l-1e8ba8b5a-da� �� � �7@b� � �q=>CD>}>>>��>��� � �2o�h � �2%kl � �2
�h � ����m � �in� � �g each-any� �/��� �g syntax-violation� �� � �� � �f Wrong number of arguments� �g identifier?� �� � �� � �H>C � �2&�l � �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� �� � �� � �g pw� �g default-record-printer� �� � �� � �j � �g set-struct-vtable-name!� �� � �� � �g vtable-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 � �g obj� �g t-1e8ba8b5a-224� �g t-1e8ba8b5a-21e� �g t-1e8ba8b5a-21f� �g t-1e8ba8b5a-220� �g t-1e8ba8b5a-223� �g t-1e8ba8b5a-222� �g t-1e8ba8b5a-221� �������� � �g m-1e8ba8b5a-225� ��5 � �������� � �f l-1e8ba8b5a-229� �f l-1e8ba8b5a-22a� �f l-1e8ba8b5a-22b� �f l-1e8ba8b5a-22c� �f l-1e8ba8b5a-22d� �f l-1e8ba8b5a-22e� �f l-1e8ba8b5a-22f� �������� � �7��� � �g copier-id� �� � �f l-1e8ba8b5a-21c� �� � �7�b� � �g ctor-name� �� � �f l-1e8ba8b5a-214� �� � �7�b� � �� � �f l-1e8ba8b5a-212� �� � 7�b� �g layout� �f l-1e8ba8b5a-210� �7b �g
immutable?� �f l-1e8ba8b5a-20e� �
7b �g field-count� �
f l-1e8ba8b5a-20c�
�7b �g
getter-ids� �f l-1e8ba8b5a-209� �7b �g field-ids� �f l-1e8ba8b5a-206� �7b �g predicate-name�g
field-spec���� �HHHHHH �f l-1e8ba8b5a-1f9�f l-1e8ba8b5a-1fa� f l-1e8ba8b5a-1fb�!f l-1e8ba8b5a-1fc�"f l-1e8ba8b5a-1fd�#f l-1e8ba8b5a-1fe�$ !"# �%7$ �&q�>�D>�>>>>�>�> >>
>>>%�� �'2�&h �(' �)g and�*2)&h �+g struct?�,2+&h �-,' �.g eq?�/2.&h �0g
struct-vtable�120&h �21' �3H�>� �42%3l �5/24 �6*-5 �7�(6 �8H>� �92�8l �:g throw-bad-struct�;: �<: �=g
pipe-info-pid�>g %pipe-info-pid-procedure�?g free-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�Lg t-1e8ba8b5a-14b�Mg t-1e8ba8b5a-14c�Ng t-1e8ba8b5a-14d�Og t-1e8ba8b5a-14e�Pg t-1e8ba8b5a-14f�Qg t-1e8ba8b5a-150�Rg t-1e8ba8b5a-151�SLMNOPQR �Tg m-1e8ba8b5a-152�UT5 �VUUUUUUU �Wf l-1e8ba8b5a-156�Xf l-1e8ba8b5a-157�Yf l-1e8ba8b5a-158�Zf l-1e8ba8b5a-159�[f l-1e8ba8b5a-15a�\f l-1e8ba8b5a-15b�]f l-1e8ba8b5a-15c�^WXYZ[\] �_7SV^ �`g getter�ag index�b`a �cf l-1e8ba8b5a-149�df l-1e8ba8b5a-14a�ecd �f7bIe �g�� �hHHH �if l-1e8ba8b5a-144�jf l-1e8ba8b5a-145�kf l-1e8ba8b5a-146�lijk �m7ghl �nq>FD>_>>>f>m�� �o2Knh �p?o �q/Jp0 �rg ck�sg err�tg s�ust �vBB �wf
l-18e47d61-22�xf
l-18e47d61-23�ywx �z7uvy �{Bz>FD>>>>M[ae
�|2r{h �}g quote�~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 ��� ��g if��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 ��g each��00 ���� ��0Č��0Ō��0ƌ��g %%set-fields��g dummy��g check?��g expr����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@�� ��g t-1e8ba8b5a-16a��g t-1e8ba8b5a-16c��g t-1e8ba8b5a-16b����� ��g m-1e8ba8b5a-16d���5 ����� ��f l-1e8ba8b5a-171��f l-1e8ba8b5a-172��f l-1e8ba8b5a-173����� ��7��� ��f l-1e8ba8b5a-167��f l-1e8ba8b5a-168��f l-1e8ba8b5a-169����� ��7gh� ��q�>�D>�>>>���
��2��h ��H�>� ��2%�l ��2=�l ��� ��g map��� ��� ��g list��g set-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 � g t-1e8ba8b5a-18c�
g t-1e8ba8b5a-18d�
�g m-1e8ba8b5a-18e�
5 �
�f l-1e8ba8b5a-192�f l-1e8ba8b5a-193� �7 �g setter�P` �f l-1e8ba8b5a-186�f l-1e8ba8b5a-187�f l-1e8ba8b5a-188� �7h �a �f l-1e8ba8b5a-17d�f l-1e8ba8b5a-17e� �7I �g field-specs� � �!f l-1e8ba8b5a-179�"f l-1e8ba8b5a-17a�#!" �$7 I# �%q>D>>>$�� �&2t%h �'g val�(2'%h �)&( �*2�%h �+2.%h �,20%h �-,& �.H> �/2%.l �0+-/ �1g struct-set!�221%h �3> �42
3l �52&4( �62:%h �72}%h �82�.l �978 �:6&9 �;*05: �<); �=H> �>2�=l �?g make-soft-port�@g
write-char�Ag display�Bg force-output�Cg read-char�Dg
close-port�Ef r+�Fg make-rw-port�Gg
make-guardian�Hg
pipe-guardian�Ig make-weak-key-hash-table�Jg
make-mutex�Kg port/pid-table-mutex�Lg apply�Mg open-process�Ng %make-void-port�Og %set-port-property!�Pg popen-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�[g fetch-pipe-info�\g waitpid�]g
close-process�^g error�_f -close-pipe: port not created by (ice-9 popen)�`f (close-pipe: pid has already been cleared�ag catch�bg system-error�cg WNOHANG�dg
reap-pipes�eg add-hook!�fg
after-gc-hook�gg OPEN_READ�hg
OPEN_WRITE�ig OPEN_BOTH�C 5h@% 4 ]4
5 4 > "