����JFIF���������
1#@!#!123s
D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
self
/
root
/
proc
/
thread-self
/
root
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
srfi
/
Filename :
srfi-37.go
back
Copy
GOOF----LE-8-2.0>u������]�4��h6:������]�g��guile� �� g��define-module*� �� �� g��srfi� g��srfi-37� �� g��filenameS� f��srfi/srfi-37.scm� g��importsS� g��srfi-9� �� �� �� g��exportsS� g��option� g��option-names� g��option-required-arg?� g��option-optional-arg?� g��option-processor� g�� args-fold� �� g��set-current-module� �� �� g��cond-expand-provide� g��current-module� �� g��srfi-37:option� g��%option-procedure� g��make-syntax-transformer� ! �� " �� #g��macro� $g��$sc-dispatch� %$�� &$�� 'g��_� (g��any� )'((((�� *g�� syntax-object� +g��lambda� ,g��m-46961e511b-153� -g��top� .,-�� /g��ribcage� 0g��t-46961e511b-14f� 1g��t-46961e511b-150� 2g��t-46961e511b-151� 3g��t-46961e511b-152� 40123�� 5....�� 6f��l-46961e511b-158� 7f��l-46961e511b-159� 8f��l-46961e511b-15a� 9f��l-46961e511b-15b� :6789�� ;/45:�� </�� =g��x� >=�� ?.�� @f��l-46961e511b-155� A@�� B/>?A�� Cg��shift� Dg�� proc-name� Eg��args� FDE�� G-�� HGG�� If��l-1e8ba8b5a-2ba� Jf��l-1e8ba8b5a-2bb� KIJ�� L/FHK�� Mg��key� Ng��value� Og��name� Pg��formals� Qg��body� RMNOPQ�� SGGGGG�� Tf��l-1e8ba8b5a-2ad� Uf��l-1e8ba8b5a-2ae� Vf��l-1e8ba8b5a-2af� Wf��l-1e8ba8b5a-2b0� Xf��l-1e8ba8b5a-2b1� YTUVWX�� Z/RSY�� [g��make-procedure-name� \[�� ]G�� ^f��l-1e8ba8b5a-29d� _^�� `/\]_�� aG�� bf��l-1e8ba8b5a-29c� cb�� d/>ac�� e.;<BC<<<<LZ`d� � fg��hygiene� gf�� h*+eg�� ig��names� jG;<B�� kf�� l*ijk�� mg�� required-arg?� n*mjk�� og�� optional-arg?� p*ojk�� qg�� processor� r*qjk�� slnpr�� tg��make-struct� ug��m-46961e511b-14d� vu-�� wg��t-1e8ba8b5a-38d� xg��t-1e8ba8b5a-38c� yg��t-1e8ba8b5a-38b� zwxy�� {g��m-1e8ba8b5a-38e� |{-�� }|||�� ~f��l-1e8ba8b5a-392� f��l-1e8ba8b5a-393���f��l-1e8ba8b5a-394���~�����/z}�����g�� ctor-args��������f��l-1e8ba8b5a-37a��������/�a�����g��ctor���g��field���������f��l-1e8ba8b5a-376���f��l-1e8ba8b5a-377���������/�H�����g��form���g�� type-name���g��constructor-spec���g��field-names�����������GGGG����f��l-1e8ba8b5a-36b���f��l-1e8ba8b5a-36c���f��l-1e8ba8b5a-36d���f��l-1e8ba8b5a-36e�����������/�������g�� record-layout���g��functional-setters���g��setters���g��copier���g��getters���g��constructor���g��getter-identifiers���g��field-identifiers���������������GGGGGGGG����f��l-1e8ba8b5a-343���f��l-1e8ba8b5a-341���f��l-1e8ba8b5a-33f���f��l-1e8ba8b5a-33d���f��l-1e8ba8b5a-33b���f��l-1e8ba8b5a-339���f��l-1e8ba8b5a-337���f��l-1e8ba8b5a-335���������������/�������f��l-1e8ba8b5a-334��������/>a�����v;<BC<�<<<��<�������*t�g����*jk����* �g�������lnpr����hs�����g��each-any���'�����g��syntax-violation��� ����� �����f��Wrong number of arguments���g��identifier?��� ����� �����G<B����*�k��������������f��-source expression failed to match any pattern���g��record-type-vtable��� ����� �����g��pwpwpwpw���g��default-record-printer��� ����� �����imoq����g��set-struct-vtable-name!��� ����� �����g��vtable-offset-user��� ����� �����g��%option?-procedure���g��option?���'(����g��m-46961e511b-166����-����g��t-46961e511b-165�������������f��l-46961e511b-16b��������/�������f��l-46961e511b-168��������/>��������<�C<<<<LZ`d� ���*+�g����g��obj���g��t-1e8ba8b5a-47e���g��t-1e8ba8b5a-478���g��t-1e8ba8b5a-479���g��t-1e8ba8b5a-47a���g��t-1e8ba8b5a-47d���g��t-1e8ba8b5a-47c���g��t-1e8ba8b5a-47b��������������g��m-1e8ba8b5a-47f����-���������������f��l-1e8ba8b5a-483���f��l-1e8ba8b5a-484���f��l-1e8ba8b5a-485���f��l-1e8ba8b5a-486���f��l-1e8ba8b5a-487���f��l-1e8ba8b5a-488���f��l-1e8ba8b5a-489��������������/�������g�� copier-id��������f��l-1e8ba8b5a-476��������/�a�����g�� ctor-name�������f��l-1e8ba8b5a-46e����/�a�����f��l-1e8ba8b5a-46c���/a��g��layout��� f��l-1e8ba8b5a-46a� ��/a ��g�� immutable?� ��f��l-1e8ba8b5a-468���/ a��g��field-count���f��l-1e8ba8b5a-466���/a��g�� getter-ids���f��l-1e8ba8b5a-463���/a��g�� field-ids���f��l-1e8ba8b5a-460���/a�� g��predicate-name�!g�� field-spec�"��� !��#GGGGGG��$f��l-1e8ba8b5a-453�%f��l-1e8ba8b5a-454�&f��l-1e8ba8b5a-455�'f��l-1e8ba8b5a-456�(f��l-1e8ba8b5a-457�)f��l-1e8ba8b5a-458�*$%&'()��+/"#*��,v�<�C<�<<<<�<<<<<<<+����-*�,g��.-��/g��and�0*/,g��1g��struct?�2*1,g��32-��4g��eq?�5*4,g��6g�� struct-vtable�7*6,g��87-��9G�<���:*9k��;58:��<03;��=�.<��>G<���?*�>k��@g��throw-bad-struct�A @��B @��Cg��%option-names-procedure�Dg��free-id�Eg�� %%on-error�Fg��m-46961e511b-172�GF-��HG��If��l-46961e511b-174�JI��K/>HJ��LG<KC<<<<LZ`d��M*ELg��NDM��ON(��Pg��%%type�Qg��t-1e8ba8b5a-3a5�Rg��t-1e8ba8b5a-3a6�Sg��t-1e8ba8b5a-3a7�Tg��t-1e8ba8b5a-3a8�Ug��t-1e8ba8b5a-3a9�Vg��t-1e8ba8b5a-3aa�Wg��t-1e8ba8b5a-3ab�XQRSTUVW��Yg��m-1e8ba8b5a-3ac�ZY-��[ZZZZZZZ��\f��l-1e8ba8b5a-3b0�]f��l-1e8ba8b5a-3b1�^f��l-1e8ba8b5a-3b2�_f��l-1e8ba8b5a-3b3�`f��l-1e8ba8b5a-3b4�af��l-1e8ba8b5a-3b5�bf��l-1e8ba8b5a-3b6�c\]^_`ab��d/X[c��eg��getter�fg��index�gef��hf��l-1e8ba8b5a-3a3�if��l-1e8ba8b5a-3a4�jhi��k/gHj��l����mGGG��nf��l-1e8ba8b5a-39e�of��l-1e8ba8b5a-39f�pf��l-1e8ba8b5a-3a0�qnop��r/lmq��sv<KC<d<<<k<r����t*Psg��uDt��v'Ou(��wg��ck�xg��err�yg��s�zxy��{GG��|f��l-46961e511b-177�}f��l-46961e511b-178�~|}��/z{~���G<KC<<<<LZ`d� ��*w�g���g��quote��*��g���G<K���*�k������������g��%%index��*�sg���D����'O�(���f��l-46961e511b-17c��f��l-46961e511b-17d�������/z{����G�<KC<<<<LZ`d� ��*w�g���*��g����<K���* �k������������g��%%copier��*�sg���D����'O�(���f��l-46961e511b-181��f��l-46961e511b-182�������/z{����G�<KC<<<<LZ`d� ��*w�g���*��g���g��%%srfi-37:option-set-fields��G�<K���*��k������������g��t-46961e511b-171������f��l-46961e511b-186������/�H����G�<KC<<<<LZ`d� ��*+�g���v�<KC<d<<<k<r�����*y�g�������g��if��*��g���*4�g���*6�g��������G�<K���*�k���������g�� struct-ref��*��g����<K���* �k���������*@�g���*��g���*�k���������������������������G<K���*C�k���g��%option-required-arg?-procedure��g��m-46961e511b-18d���-�������f��l-46961e511b-18f������/>������<�C<<<<LZ`d���*E�g���D�����(���v<�C<d<<<k<r�����*P�g���D����'��(��������f��l-46961e511b-192��f��l-46961e511b-193�������/z�������<�C<<<<LZ`d� ��*w�g���*��g���G�<����*�k������������*��g���D����'��(���f��l-46961e511b-197��f��l-46961e511b-198�������/z�������<�C<<<<LZ`d� ��*w�g���*��g����<����*�k������������*��g���D����'��(���f��l-46961e511b-19c��f��l-46961e511b-19d�������/z�������<�C<<<<LZ`d� ��*w�g���*��g���G�<����*��k������������g��t-46961e511b-18c������f��l-46961e511b-1a1����/�����<�C<<<<LZ`d� �*+g��v<�C<d<<<k<r����*yg����*�g�� *4g�� *6g�� ��G<��� *k�� ��*�g��<���*k����*@g��*�g��*k����������G<���*�k��g��%option-optional-arg?-procedure�g��m-46961e511b-1a8�-���� f��l-46961e511b-1aa�! ��"/>!��#<"C<<<<LZ`d��$*E#g��%D$��&%(��'v<"C<d<<<k<r����(*P'g��)D(��*'&)(��+��,f��l-46961e511b-1ad�-f��l-46961e511b-1ae�.,-��//z+.��0/<"C<<<<LZ`d� �1*w0g��2*�0g��3G/<"��4*3k��524��65��7*�'g��8D7��9'&8(��:f��l-46961e511b-1b2�;f��l-46961e511b-1b3�<:;��=/z+<��>=<"C<<<<LZ`d� �?*w>g��@*�>g��A=<"��B* Ak��C@B��DC��E*�'g��FDE��G'&F(��Hf��l-46961e511b-1b7�If��l-46961e511b-1b8�JHI��K/z+J��LK<"C<<<<LZ`d� �M*wLg��N*�Lg��OGK<"��P*�Ok��QNP��RQ��Sg��t-46961e511b-1a7�TS��Uf��l-46961e511b-1bc�VU��W/TV��XW<"C<<<<LZ`d� �Y*+Xg��ZvW<"C<d<<<k<r����[*yZg��\[��]*�Zg��^*4Zg��_*6Zg��`_[��aGW<"��b*ak��c^`b��d*�Zg��eW<"��f* ek��gd[f��h*@Zg��i*�Zg��j*ak��kij��lh[k��m]cgl��nY\m��oG<"��p*ok��qg��%option-processor-procedure�rg��m-46961e511b-1c3�sr-��ts��uf��l-46961e511b-1c5�vu��w/>tv��xs<wC<<<<LZ`d��y*Exg��zDy��{z(��|v<wC<d<<<k<r����}*P|g��~D}��'{~(���ss���f��l-46961e511b-1c8��f��l-46961e511b-1c9�������/z�����s�<wC<<<<LZ`d� ��*w�g���*��g���G�<w���*�k������������*�|g���D����'{�(���f��l-46961e511b-1cd��f��l-46961e511b-1ce�������/z�����s�<wC<<<<LZ`d� ��*w�g���*��g����<w���* �k������������*�|g���D����'{�(���f��l-46961e511b-1d2��f��l-46961e511b-1d3�������/z�����s�<wC<<<<LZ`d� ��*w�g���*��g���G�<w���*��k������������g��t-46961e511b-1c2������f��l-46961e511b-1d7������/�t����s�<wC<<<<LZ`d� ��*+�g���v�<wC<d<<<k<r�����*y�g�������*��g���*4�g���*6�g��������G�<w���*�k���������*��g����<w���* �k���������*@�g���*��g���*�k���������������������������G<w���*q�k���g��each��((��������(Ȍ��(Ɍ��(ʌ��g��%%set-fields��g��dummy��g��check?��g��expr����ye����g��m-46961e511b-1de���-����vvvv���f��l-46961e511b-1e3��f��l-46961e511b-1e4��f��l-46961e511b-1e5��f��l-46961e511b-1e6��f��l-46961e511b-1e7����������/����������f��l-46961e511b-1e0������/>�����g��t-1e8ba8b5a-3c4��g��t-1e8ba8b5a-3c6��g��t-1e8ba8b5a-3c5��������g��m-1e8ba8b5a-3c7���-���������f��l-1e8ba8b5a-3cb��f��l-1e8ba8b5a-3cc��f��l-1e8ba8b5a-3cd��������/������f��l-1e8ba8b5a-3c1��f��l-1e8ba8b5a-3c2��f��l-1e8ba8b5a-3c3��������/lm����v�<�C<�<<<���� ��*��g���G�<����*�k���*�k���*�k���*�k���*�k����������g��map����������g��list��g�� scm-error��g�� program-error��f�� args-fold��f��Duplicate option name `~A~A'�g��char?�f��--�g��error-duplicate-option�g��make-hash-table�g��length�g��for-each�g��hash-create-handle!�g��build-options-lookup� g��append� g�� string-length�g�� substring�g�� string-ref� g��hash-ref�g�� misc-error�f��%Missing required argument after `-~A'�g��char=?�g��string-index�f��&Missing required argument after `--~A'�f�� Extraneous argument after `--~A'�C�5�����h(7������]4 5�4�>��"��G���4i4i5�>��"��G�����h�������]���C��������g��names �g�� required-arg? �g�� optional-arg? �g�� processor ��g��filenamef��srfi/srfi-37.scm� E ��� ��g��nameg��%option-procedure��CR4"#&)���h�������]��C��������g��t-46961e511b-14f �g��t-46961e511b-150 �g��t-46961e511b-151 �g��t-46961e511b-152 �� ���C�����h���S���]L�6����K�������g��a ��g��filenamef��srfi/srfi-37.scm� E ��� ���C'������h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm� E ��� ���C��������h������]�C���������� ���C����������hp�������]4�5$��@4�5$���O�@4�5$��4�O�?$��@ �6 �6��|�������g��x n�g��tmp n�g��tmp " n�g��tmp > n��g��filenamef��srfi/srfi-37.scm� E ��� n���C5R���ͨ��4��>��"��G��� Ӗi���R�h���s���]��$�����CC������k�������g��obj ��g��filenamef��srfi/srfi-37.scm� E ��� ��g��nameg��%option?-procedure��C�R4"�#&�=�������h���8���]��C������0�������g��t-46961e511b-165 �� ���C��������h���S���]L�6����K�������g��a ��g��filenamef��srfi/srfi-37.scm� E ��� ���C'������h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm� E ��� ���C?������h������]�C���������� ���C����������hp�������]4�5$��@4�5$���O�@4�5$��4�O�?$��@ �6 �6��|�������g��x n�g��tmp n�g��tmp " n�g��tmp > n��g��filenamef��srfi/srfi-37.scm� E ��� n���C5�RB����h���v���]��&��� �C�6n�������g��s ��g��filenamef��srfi/srfi-37.scm� E ��� ��g��nameg��%option-names-procedure��CCR4"#&v���������h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C�������h���8���]��C������0�������g��t-46961e511b-171 �� ���C�������h���S���]L�6����K�������g��a ��g��filenamef��srfi/srfi-37.scm� E ��� ���C'������h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm� E ��� ���C�������h������]�C���������� ���C����������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-37.scm� E ��� �����C5RB��������h���~���]��&����C�6v�������g��s ��g��filenamef��srfi/srfi-37.scm� E ��� ��g��nameg��%option-required-arg?-procedure��C�R4"#&����������h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C������h���8���]��C������0�������g��t-46961e511b-18c �� ���C�������h���S���]L�6����K�������g��a ��g��filenamef��srfi/srfi-37.scm� E ��� ���C'������h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm� E ��� ���C������h������]�C���������� ���C����������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-37.scm� E ��� �����C5RB��������h ���~���]��&��� �C�6�������v�������g��s ��g��filenamef��srfi/srfi-37.scm� E ��� ��g��nameg��%option-optional-arg?-procedure��CR4"#&*16�������h���:���]��C�����2�������g��err �g��s �� ���C9?D�h���:���]��C�����2�������g��err �g��s �� ���CGMR�h���:���]��C�����2�������g��err �g��s �� ���C�n�����h���8���]��C������0�������g��t-46961e511b-1a7 �� ���C�������h���S���]L�6����K�������g��a ��g��filenamef��srfi/srfi-37.scm� E ��� ���C'������h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm� E ��� ���Cp������h������]�C���������� ���C����������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-37.scm� E ��� �����C5RB��������h ���z���]��&��� �C�6�������r�������g��s ��g��filenamef��srfi/srfi-37.scm� E ��� ��g��nameg��%option-processor-procedure��CqR4"#&�����h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C�������h���8���]��C������0�������g��t-46961e511b-1c2 �� ���C�������h���S���]L�6����K�������g��a ��g��filenamef��srfi/srfi-37.scm� E ��� ���C'������h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm� E ��� ���C�������h������]�C���������� ���C����������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-37.scm� E ��� �����C5R4"�#&��������h ���v���]45�����C���n�������g��dummy �g��check? �g��s �g��getter �g��expr �� ���C�����h(�������] 4�5$��@�6��������������g��x "�g��tmp "��g��filenamef��srfi/srfi-37.scm� E ��� "��g�� macro-typeg��syntax-rules�g��patternsg��check?g��sg��getterg��expr�g��...���C5�R����������h(�������]4�5$��-"����6�����������g��option-name %��g��filenamef��srfi/srfi-37.scm� M �� N �� N �� O �� P �� P �� P /�� " P �� % N ��� %��g��nameg��error-duplicate-option��CR�����h(�������] 4L��5�$���6L�C�������������g��name #�g��assoc #��g��filenamef��srfi/srfi-37.scm� [ �� \ �� \ �� ^ �� ^ �� _ 1�� _ �� ! ` ��� #���CB������h0���e���]L��O���&��� �"�� 4�56�������]�������g��opt )��g��filenamef��srfi/srfi-37.scm� Z �� a �� ) [ ��� )���C��������h0���k��] 4 4�5�54O��>��"��G��C�c������g��options /�g��lookup /��g��filenamef��srfi/srfi-37.scm� T �� X �� X &�� X !�� X �� X �� Y ��� /��g��nameg��build-options-lookup�g�� documentationf���Answer an `equal?' Guile hash-table that maps OPTIONS' names back to the containing options, signalling an error if a name is encountered more than once.��CRB� �������h���S���]�L4L�M5@�K�������g��filenamef��srfi/srfi-37.scm� q �� r )�� r ��� ���C��h����q��]��&�� � �"�� 4�5���&����"�� 4�5$�� 45�"��9��&�� � �"�� 4�5$�� 45�"��4>���"��G���44L�O�>���5"��=N�C�i������g��opt ���g��name ���g��req-arg-proc ���g��opt-arg-proc ���g��no-arg-proc ���g�� procedure �����g��params ������g��filenamef��srfi/srfi-37.scm� �� �� �� $�� �� ?�� �� @�� )�� K�� �� g�� �� h�� )�� q�� ������ ���� p ���� p ��� �� ��g��nameg��invoke-option-processor��C �����hP���{��] ��4M��5�$��4M����5M��N�CM���$��M���M���N�CM��$��M��N�CC��s������g��position N�g��result '�g��result 3 >��g��filenamef��srfi/srfi-37.scm� �� �� �� �� �� �� �� -�� �� �� �� �� �� �� �� �� �� &�� �� 1�� �� �� �� �� "�� �� $�� �� *�� �� +�� �� /�� �� 2�� �� 3�� �� 8�� �� ;�� �� A�� �� E�� �� H�� �� J�� ��� N��g��nameg��short-option-argument��C �����h(�������]4L�L5��$���CL���6��������g��t (�g��args (��g��filenamef��srfi/srfi-37.scm� �� �� �� �� �� �� �� �� m �� ! m �� #�� !�� ( m ��� ( ���C�����h���M���]�LL�6E�������g��filenamef��srfi/srfi-37.scm� �� �� �� ��� ���C�h���D���]�C����<�������g��filenamef��srfi/srfi-37.scm� �� ��� ���CB� �h���S���]�L4L�M5@�K�������g��filenamef��srfi/srfi-37.scm� q �� r )�� r ��� ���C� �h������]�4M�5�$�� M�NL6�4M��54L5$��~4LL�O��LO�>��"��G���&���"�� 4 5$��"���&�� �"�� 4 5$��C���"��M�L���44LLO�>���5"��=N���"��������������g��position ���g��opt-name $���g��option-here /���g��t {���g��names �����g��params ������g��filenamef��srfi/srfi-37.scm� �� �� �� �� �� &�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� '�� $�� �� $�� �� '�� �� /�� �� 7�� �� 8�� �� d�� �� {�� ������ ������ ������ %������ ������ *������ "������ ���� p ���� p ������ !������ ��� ����g��nameg��short-option��C � �����h���S���]�L4L�M5@�K�������g��filenamef��srfi/srfi-37.scm� q �� r )�� r ��� ���C� �������h���S���]�L4L�M5@�K�������g��filenamef��srfi/srfi-37.scm� q �� r )�� r ��� ���C��h(�������] ��44L�LO�>���5"��=N�Cx�������g��arg (�g��params (��g��filenamef��srfi/srfi-37.scm� w �� w �� p �� & p ��� (���C ������h(�������]L$�� LL�6L����6�����������g��args %��g��filenamef��srfi/srfi-37.scm� �� �� �� �� �� &�� �� �� �� �� m �� m �� �� �� % m ��� % ���C�����h���_���]�L$�� L�L�6C�����W�������g��filenamef��srfi/srfi-37.scm� �� �� �� �� �� 6�� �� '��� ���C���h �������]L$��L����6C����������g��args ��g��filenamef��srfi/srfi-37.scm� �� �� �� �� �� �� m �� m �� �� �� m ��� ���C �����h���S���]�L4L�M5@�K�������g��filenamef��srfi/srfi-37.scm� q �� r )�� r ��� ���C��h���A��]8M(��MEM��4-4� 55�$��"�� 4�5�$��0��44LL�O�>���5"��=NM�N"�@4-4�55$� 4�5�$��'M�N4LL�O�M>��"��G��N"���M�"���4=54 $��"��4554 L5$��54LO�O� O�>��"��hG��"��a$�� �"����L���44LLO�>���5"��=N"�� "��.M�N"��4L>��"��G��"��P������9������g��arg ��g��t ! :�g��params C e�g��arg����g�� start-pos ����g��index ����g��opt-name ����g��option-here ����g��names DT�g��params Z��� g��filenamef��srfi/srfi-37.scm� �� �� �� �� �� �� �� �� �� �� �� �� �� (�� �� �� !�� �� !�� �� 0�� �� 7�� �� >�� �� C�� �� F p �� b p �� h�� �� j�� �� o�� �� t�� �� }�� ������ ������ ������ ������ ������ )������ ���� w ���� y ���� y ������ ������ ������ ������ ������ ������ ������ ,������ 6������ ������ ������ ������ ������ ������ ��6�� ��9�� #��?�� ��D�� ��D�� ��Z�� ��] p ��y p ����� ����� ����� ����� ����� ���: � ��g��nameg��next-arg��C����h����J��-�1�3� �H�H45O�O�O�O� Q��Q� �Q� �Q� 6�����B������g��args |�g��options |�g��unrecognized-option-proc |�g��operand-proc |�g��seeds |�g��lookup |�g��invoke-option-processor H |�g��short-option-argument H |�g��short-option H |�g��next-arg H |�� g��filenamef��srfi/srfi-37.scm� e �� j �� j �� |�� ��� | ��g��nameg�� args-fold�g�� documentationf���Answer the results of folding SEEDS as multiple values against the program-arguments in ARGS, as decided by the OPTIONS' `option-processor's, UNRECOGNIZED-OPTION-PROC, and OPERAND-PROC.��CRC���������g��m ,�g��rtd >��g��filenamef��srfi/srfi-37.scm� * �� - 0 �� 2 0 �� : 0 &�� ? 0 ��, E ��� M ��! T ��7% e ��� 7' ���C6�