GOOF----LE-8-2.0� ]� 4 h�Y ] g guile� � g define-module*� � � g ice-9� g getopt-long� � g filenameS�
f ice-9/getopt-long.scm� g importsS� g common-list�
� g selectS� g
remove-if-not� �
� g srfi� g srfi-9� � � g match� � � g regex� � � g optargs� � � � g exportsS� !g
option-ref� "! � #g set-current-module� $# � %# � &g
make-fluid� 'f guile� (g
%program-name� )g program-name� *g format� +g current-error-port� ,f ~a: � -g apply� .g newline� /g exit� 0g fatal-error� 1g option-spec� 2g %%make-option-spec-procedure� 3g make-syntax-transformer� 43 � 53 � 6g %make-option-spec� 7g macro� 8g $sc-dispatch� 98 � :8 � ;g _� <g any� =;<<<<< � >g
syntax-object� ?g lambda� @g m-70fb8ec09b0a817-48c� Ag top� B@A � Cg ribcage� Dg t-70fb8ec09b0a817-487� Eg t-70fb8ec09b0a817-488� Fg t-70fb8ec09b0a817-489� Gg t-70fb8ec09b0a817-48a� Hg t-70fb8ec09b0a817-48b� IDEFGH � JBBBBB � Kf l-70fb8ec09b0a817-491� Lf l-70fb8ec09b0a817-492� Mf l-70fb8ec09b0a817-493� Nf l-70fb8ec09b0a817-494� Of l-70fb8ec09b0a817-495� PKLMNO � QCIJP � RC � Sg x� TS � UB � Vf l-70fb8ec09b0a817-48e� WV � XCTUW � Yg shift� Zg proc-name� [g args� \Z[ � ]A � ^]] � _f l-1e8ba8b5a-60� `f l-1e8ba8b5a-61� a_` � bC\^a � cg key� dg value� eg name� fg formals� gg body� hcdefg � i]]]]] � jf l-1e8ba8b5a-53� kf l-1e8ba8b5a-54� lf l-1e8ba8b5a-55� mf l-1e8ba8b5a-56� nf l-1e8ba8b5a-57� ojklmn � pChio � qg make-procedure-name� rq � s] � tf l-1e8ba8b5a-43� ut � vCrsu � w] � xf l-1e8ba8b5a-42� yx � zCTwy � {BQRXYRRRRbpvz
� |g hygiene� }| � ~>?{} � ]QRX � �| � �>e� � �g required?� �>�� � �g option-spec->single-char� �>�� � �g predicate� �>�� � �g value-policy� �>�� � ������ � �g make-struct� �g m-70fb8ec09b0a817-485� ��A � �g t-1e8ba8b5a-133� �g t-1e8ba8b5a-132� �g t-1e8ba8b5a-131� ���� � �g m-1e8ba8b5a-134� ��A � ���� � �f l-1e8ba8b5a-138� �f l-1e8ba8b5a-139� �f l-1e8ba8b5a-13a� ���� � �C��� � �g ctor-args� �� � �f l-1e8ba8b5a-120� �� � �C�w� � �g ctor� �g field� ��� � �f l-1e8ba8b5a-11c� �f l-1e8ba8b5a-11d� ��� � �C�^� � �g form� �g type-name� �g constructor-spec� �g field-names� ����� � �]]]] � �f l-1e8ba8b5a-111� �f l-1e8ba8b5a-112� �f l-1e8ba8b5a-113� �f l-1e8ba8b5a-114� ����� � �C��� � �g
record-layout� �g functional-setters� �g setters� �g copier� �g getters� �g constructor� �g getter-identifiers� �g field-identifiers� ��������� � �]]]]]]]] � �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� ��������� � �C��� � �f l-1e8ba8b5a-da� �� � �CTw� � ��QRXYR�RRR��R��� � �>��} � �>1� � �>
�} � ��������� � �~�� � �g each-any� �;ό� �g syntax-violation� �� � �� � �f Wrong number of arguments� �g identifier?� �� � �� � �]RX � �>2�� � �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� �� � �� � �g
pwpwpwpwpw� �g default-record-printer� �� � �� � �e���� � �g set-struct-vtable-name!� �� � �� � �g vtable-offset-user� �� � �� � �g %option-spec?-procedure� �g option-spec?� �;< � �g m-70fb8ec09b0a817-4a1� ��A � �g t-70fb8ec09b0a817-4a0� �� � �� � �f l-70fb8ec09b0a817-4a6� �� � �C��� � �f l-70fb8ec09b0a817-4a3� �� � �CT�� � ���R�YRRRRbpvz
� �>?�} � �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�A � �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�
�C �g copier-id� �f l-1e8ba8b5a-21c� �Cw �g ctor-name� �f l-1e8ba8b5a-214� �Cw �� �f l-1e8ba8b5a-212� �Cw �g layout� � f l-1e8ba8b5a-210�! �"Cw! �#g
immutable?�$# �%f l-1e8ba8b5a-20e�&% �'C$w& �(g field-count�)( �*f l-1e8ba8b5a-20c�+* �,C)w+ �-g
getter-ids�.- �/f l-1e8ba8b5a-209�0/ �1C.w0 �2g field-ids�32 �4f l-1e8ba8b5a-206�54 �6C3w5 �7g predicate-name�8g
field-spec�9#���78 �:]]]]]] �;f l-1e8ba8b5a-1f9�<f l-1e8ba8b5a-1fa�=f l-1e8ba8b5a-1fb�>f l-1e8ba8b5a-1fc�?f l-1e8ba8b5a-1fd�@f l-1e8ba8b5a-1fe�A;<=>?@ �BC9:A �C��R�YRRRRRRRR"R'R,R1R6B�� �D>�C} �ED �Fg and�G>FC} �Hg struct?�I>HC} �JID �Kg eq?�L>KC} �Mg
struct-vtable�N>MC} �OND �P]�R� �Q>1P� �RLOQ �SGJR �T�ES �U]R� �V>�U� �Wg throw-bad-struct�XW �YW �Zg option-spec->name�[g %option-spec->name-procedure�\g free-id�]g
%%on-error�^g m-70fb8ec09b0a817-4ad�_^A �`_ �af l-70fb8ec09b0a817-4af�ba �cCT`b �d_RcYRRRRbpvz �e>]d} �f\e �gf< �hg %%type�ig t-1e8ba8b5a-14b�jg t-1e8ba8b5a-14c�kg t-1e8ba8b5a-14d�lg t-1e8ba8b5a-14e�mg t-1e8ba8b5a-14f�ng t-1e8ba8b5a-150�og t-1e8ba8b5a-151�pijklmno �qg m-1e8ba8b5a-152�rqA �srrrrrrr �tf l-1e8ba8b5a-156�uf l-1e8ba8b5a-157�vf l-1e8ba8b5a-158�wf l-1e8ba8b5a-159�xf l-1e8ba8b5a-15a�yf l-1e8ba8b5a-15b�zf l-1e8ba8b5a-15c�{tuvwxyz �|Cps{ �}g getter�~g index�}~ ��f l-1e8ba8b5a-149��f l-1e8ba8b5a-14a���� ��C^� ���- ��]]] ��f l-1e8ba8b5a-144��f l-1e8ba8b5a-145��f l-1e8ba8b5a-146����� ��C��� ���RcYR|RRR�R��� ��>h�} ��\� ��;g�< ��g ck��g err��g s���� ��__ ��f l-70fb8ec09b0a817-4b2��f l-70fb8ec09b0a817-4b3���� ��C��� ��_�RcYRRRRbpvz
��>��} ��g quote��>��} ��]�Rc ��>1�� ���� ��� ��g %%index��>��} ��\� ��;g�< ��f l-70fb8ec09b0a817-4b7��f l-70fb8ec09b0a817-4b8���� ��C��� ��_�RcYRRRRbpvz
��>��} ��>��} ���Rc ��>
�� ���� ��� ��g %%copier��>��} ��\� ��;g�< ��f l-70fb8ec09b0a817-4bc��f l-70fb8ec09b0a817-4bd���� ��C��� ��_�RcYRRRRbpvz
��>��} ��>��} ��g %%option-spec-set-fields��]�Rc ��>��� ���� ��� ��g t-70fb8ec09b0a817-4ac��� ��f l-70fb8ec09b0a817-4c1��� ��C�`� ��_�RcYRRRRbpvz
��>?�} ����RcYR|RRR�R��� ��>��} ��� ��g if��>��} ��>K�} ��>M�} ���� ��]�Rc ��>1�� ����� ��g
struct-ref��>��} ���Rc ��>
�� ����� ��>W�} ��>��} ��>Z�� ���� ����� ������ ����� ��]Rc ��>[�� ��g option-spec->required?��g !%option-spec->required?-procedure��g m-70fb8ec09b0a817-4c8���A ��� ��f l-70fb8ec09b0a817-4ca��� ��CT�� ���R�YRRRRbpvz ��>]�} ��\� ���< ���R�YR|RRR�R��� ��>h�} ��\� ��;��< ���� ��f l-70fb8ec09b0a817-4cd��f l-70fb8ec09b0a817-4ce���� ��C��� ����R�YRRRRbpvz
��>��} ��>��} ��]�R� ��>1�� ���� ��� ��>��} ��\� ��;��< ��f l-70fb8ec09b0a817-4d2��f l-70fb8ec09b0a817-4d3� �� �C�� ��R�YRRRRbpvz
�>�} �>�} �R� �>� � � � >��} �
\ �;�
< �f l-70fb8ec09b0a817-4d7�
f l-70fb8ec09b0a817-4d8�
�C�� ��R�YRRRRbpvz
�>�} �>�} �]R� �>�� � � �g t-70fb8ec09b0a817-4c7� �f l-70fb8ec09b0a817-4dc� �C� ��R�YRRRRbpvz
�>?} ��R�YR|RRR�R��� �>�} � �!>�} �">K} �#>M} �$# �%]R� �&>1%� �'"$& �(>�} �)R� �*>)� �+(* �,>W} �->�} �.>�%� �/-. �0,/ �1!'+0 �2 1 �3]R� �4>�3� �5g #%option-spec->single-char-procedure�6g m-70fb8ec09b0a817-4e3�76A �87 �9f l-70fb8ec09b0a817-4e5�:9 �;CT8: �<7R;YRRRRbpvz �=>]<} �>\= �?>< �@�R;YR|RRR�R��� �A>h@} �B\A �C;?B< �D77 �Ef l-70fb8ec09b0a817-4e8�Ff l-70fb8ec09b0a817-4e9�GEF �HC�DG �I7HR;YRRRRbpvz
�J>�I} �K>�I} �L]HR; �M>1L� �NKM �ON �P>�@} �Q\P �R;?Q< �Sf l-70fb8ec09b0a817-4ed�Tf l-70fb8ec09b0a817-4ee�UST �VC�DU �W7VR;YRRRRbpvz
�X>�W} �Y>�W} �ZVR; �[> Z� �\Y[ �]\ �^>�@} �_\^ �`;?_< �af l-70fb8ec09b0a817-4f2�bf l-70fb8ec09b0a817-4f3�cab �dC�Dc �e7dR;YRRRRbpvz
�f>�e} �g>�e} �h]dR; �i>�h� �jgi �kj �lg t-70fb8ec09b0a817-4e2�ml �nf l-70fb8ec09b0a817-4f7�on �pCm8o �q7pR;YRRRRbpvz
�r>?q} �s�pR;YR|RRR�R��� �t>�s} �ut �v>�s} �w>Ks} �x>Ms} �yxt �z]pR; �{>1z� �|wy{ �}>�s} �~pR; �> ~� ��}t ��>Ws} ��>�s} ��>�z� ���� ���t� ��v|�� ��ru� ��]R; ��>5�� ��g option-spec->predicate��g !%option-spec->predicate-procedure��g m-70fb8ec09b0a817-4fe���A ��� ��f l-70fb8ec09b0a817-500��� ��CT�� ���R�YRRRRbpvz ��>]�} ��\� ���< ���R�YR|RRR�R��� ��>h�} ��\� ��;��< ���� ��f l-70fb8ec09b0a817-503��f l-70fb8ec09b0a817-504���� ��C��� ����R�YRRRRbpvz
��>��} ��>��} ��]�R� ��>1�� ���� ��� ��>��} ��\� ��;��< ��f l-70fb8ec09b0a817-508��f l-70fb8ec09b0a817-509���� ��C��� ����R�YRRRRbpvz
��>��} ��>��} ���R� ��> �� ���� ��� ��>��} ��\� ��;��< ��f l-70fb8ec09b0a817-50d��f l-70fb8ec09b0a817-50e���� ��C��� ����R�YRRRRbpvz
��>��} ��>��} ��]�R� ��>��� ���� ��� ��g t-70fb8ec09b0a817-4fd��� ��f l-70fb8ec09b0a817-512��� ��C��� ����R�YRRRRbpvz
��>?�} ����R�YR|RRR�R��� ��>��} ��� ��>��} ��>K�} ��>M�} ���� ��]�R� ��>1�� ����� ��>��} ���R� ��> �� ����� ��>W�} ��>��} ��>��� ���� ����� ������ ����� ��]R� ��>��� ��g option-spec->value-policy��g $%option-spec->value-policy-procedure��g m-70fb8ec09b0a817-519���A ��� ��f l-70fb8ec09b0a817-51b��� ��CT�� ���R�YRRRRbpvz ��>]�} ��\� ���< ���R�YR|RRR�R��� ��>h�} ��\� ��;��< ���� ��f l-70fb8ec09b0a817-51e��f l-70fb8ec09b0a817-51f���� ��C��� ����R�YRRRRbpvz
��>��} ��>��} ��]�R� ��>1�� ���� ��� ��>��} ��\� ��;��< ��f l-70fb8ec09b0a817-523� f l-70fb8ec09b0a817-524�� �C�� ��R�YRRRRbpvz
�>�} �>�} �R� �> � � � �
>��} �\
�;�< �
f l-70fb8ec09b0a817-528�f l-70fb8ec09b0a817-529�
�C�� ��R�YRRRRbpvz
�>�} �>�} �]R� �>�� � � �g t-70fb8ec09b0a817-518� �f l-70fb8ec09b0a817-52d� �C� ��R�YRRRRbpvz
�>?} ��R�YR|RRR�R��� � >�} �! �">�} �#>K} �$>M} �%$ �&]R� �'>1&� �(#%' �)>�} �*R� �+> *� �,) + �->W} �.>�} �/>�&� �0./ �1- 0 �2"(,1 �3!2 �4]R� �5>�4� �6g each�7<< �867 �9<8��:<9��;<:��<g %%set-fields�=g dummy�>g check?�?g expr�@=>�}? �Ag m-70fb8ec09b0a817-534�BAA �CB���� �Df l-70fb8ec09b0a817-539�Ef l-70fb8ec09b0a817-53a�Ff l-70fb8ec09b0a817-53b�Gf l-70fb8ec09b0a817-53c�Hf l-70fb8ec09b0a817-53d�IDEFGH �JC@CI �KB �Lf l-70fb8ec09b0a817-536�ML �NCTKM �Og t-1e8ba8b5a-16a�Pg t-1e8ba8b5a-16c�Qg t-1e8ba8b5a-16b�ROPQ �Sg m-1e8ba8b5a-16d�TSA �UTTT �Vf l-1e8ba8b5a-171�Wf l-1e8ba8b5a-172�Xf l-1e8ba8b5a-173�YVWX �ZCRUY �[f l-1e8ba8b5a-167�\f l-1e8ba8b5a-168�]f l-1e8ba8b5a-169�^[\] �_C��^ �`�JRNYRZRRR_��
�a><`} �b]JRN �c>1b� �d>Zb� �e>�b� �f>�b� �g>�b� �h>�b� �idefgh �jg map�kj �lj �mg list�ng set-option-spec-name!�og %set-option-spec-name!-procedure�p;<< �qg m-70fb8ec09b0a817-548�rqA �sg t-70fb8ec09b0a817-546�tg t-70fb8ec09b0a817-547�ust �vrr �wf l-70fb8ec09b0a817-54d�xf l-70fb8ec09b0a817-54e�ywx �zCuvy �{r �|f l-70fb8ec09b0a817-54a�}| �~CT{} �rzR~YRRRRbpvz
��>?} ��g t-1e8ba8b5a-18c��g t-1e8ba8b5a-18d���� ��g m-1e8ba8b5a-18e���A ���� ��f l-1e8ba8b5a-192��f l-1e8ba8b5a-193���� ��C��� ��g setter��e}� ��f l-1e8ba8b5a-186��f l-1e8ba8b5a-187��f l-1e8ba8b5a-188����� ��C��� ��8~ ��f l-1e8ba8b5a-17d��f l-1e8ba8b5a-17e���� ��C�^� ��g field-specs���� ��f l-1e8ba8b5a-179��f l-1e8ba8b5a-17a���� ��C�^� ���zR~YR��R�R��� ��>��} ��g val��>��} ���� ��>��} ��>K�} ��>M�} ���� ��]zR~ ��>1�� ����� ��g struct-set!��>��} ��zR~ ��>
�� ������ ��>W�} ��>��} ��>n�� ���� ����� ������ ����� ��]R~ ��>o�� ��g set-option-spec-required?!��g %%set-option-spec-required?!-procedure��g m-70fb8ec09b0a817-558���A ��g t-70fb8ec09b0a817-556��g t-70fb8ec09b0a817-557���� ���� ��f l-70fb8ec09b0a817-55d��f l-70fb8ec09b0a817-55e���� ��C��� ��� ��f l-70fb8ec09b0a817-55a��� ��CT�� ����R�YRRRRbpvz
��>?�} ����R�YR��R�R��� ��>��} ��>��} ���� ��>��} ��>K�} ��>M�} ���� ��]�R� ��>1�� ����� ��>��} ���R� ��>�� ������ ��>W�} ��>��} ��>��� ���� ����� ������ ����� ��]R� ��>��� ��g set-option-spec-single-char!��g '%set-option-spec-single-char!-procedure��g m-70fb8ec09b0a817-568���A ��g t-70fb8ec09b0a817-566��g t-70fb8ec09b0a817-567���� ���� ��f l-70fb8ec09b0a817-56d��f l-70fb8ec09b0a817-56e���� ��C��� ��� ��f l-70fb8ec09b0a817-56a��� ��CT�� ����R�YRRRRbpvz
��>?�} ����R�YR��R�R��� ��>��} ��>��} ���� ��>��} ��>K�} ��>M�} ���� ��]�R� ��>1�� ����� ��>��} ���R� � > �� ��� � �>W�} �>��} �>��� � �� ��� ��� � ]R� �
>� � �g set-option-spec-predicate!�g %%set-option-spec-predicate!-procedure�
g m-70fb8ec09b0a817-578�
A �g t-70fb8ec09b0a817-576�g t-70fb8ec09b0a817-577� � �f l-70fb8ec09b0a817-57d�f l-70fb8ec09b0a817-57e� �C � �f l-70fb8ec09b0a817-57a� �CT �RYRRRRbpvz
�>?} ��RYR��R�R��� �>�} �>�} � �!>�} �">K} �#>M} �$# �%]R �&>1%� �'"$& �(>�} �)R �*> )� �+(* �,>W} �->�} �.>%� �/-. �0,/ �1!'+0 �2 1 �3]R �4>3� �5g set-option-spec-value-policy!�6g (%set-option-spec-value-policy!-procedure�7g m-70fb8ec09b0a817-588�87A �9g t-70fb8ec09b0a817-586�:g t-70fb8ec09b0a817-587�;9: �<88 �=f l-70fb8ec09b0a817-58d�>f l-70fb8ec09b0a817-58e�?=> �@C;<? �A8 �Bf l-70fb8ec09b0a817-58a�CB �DCTAC �E8@RDYRRRRbpvz
�F>?E} �G�@RDYR��R�R��� �H>�G} �I>�G} �JHI �K>�G} �L>KG} �M>MG} �NMH �O]@RD �P>1O� �QLNP �R>�G} �S@RD �T> S� �URHTI �V>WG} �W>�G} �X>5O� �YWX �ZVHY �[KQUZ �\FJ[ �]]RD �^>6]� �_g make-option-spec�`g symbol->string�ag for-each�bg error�cf $invalid getopt-long option property:�db �eb �ff no matching pattern�gf option predicate failed: --~a�hg single-char�ig char?�jf #`single-char' value must be a char!�kg parse-option-spec�lg reverse�mg string=?�nf --�og split-arg-list�pg make-regexp�qf ^-([a-zA-Z]+)(.*)�rg short-opt-rx�sf ^--([^=]+)$�tg long-opt-no-value-rx�uf ^--([^=]+)=(.*)�vg long-opt-with-value-rx�wg regexp-exec�xg looks-like-an-option�yg make-string�zg optional�{f ,option must be specified with argument: --~a�|g match:substring�}g assoc-ref�~f no such option: -~a�g append��g
string-append��f -��g string->list��f ��g length��f no such option: --~a��f &option does not support argument: --~a��g process-options��g stop-at-first-non-optionS��� ���� ��g assq-ref��f option must be specified: --~a��g string->symbol�C 5 hP[ ^ ]4
"5 4% > "