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 > "