GOOF----LE-8-2.0m ] & 4 hɴ ] g guile� � g define-module*� � � g language� g tree-il� g analyze� �
g filenameS� f language/tree-il/analyze.scm� g importsS�
g srfi� g srfi-1�
� � g srfi-9�
� � g srfi-11�
� � g srfi-26�
� � g ice-9� g vlist� � � g match� � � !g system� "g base� #g syntax� $!"# � %$ � &g message� '!"& � (' � )g vm� *g program� +!)* � ,+ � - � .- � /g pmatch� 0!"/ � 10 � 2 %(,.1 � 3g exportsS� 4g analyze-lexicals� 5g analyze-tree� 6g unused-variable-analysis� 7g unused-toplevel-analysis� 8g unbound-variable-analysis� 9g arity-analysis� :g format-analysis� ;456789: � <g set-current-module� =< � >< � ?g make-hash-table� @g
hashq-set!� Ag
make-hashq� Bg
<application>� Cg application-proc� Dg application-args� Eg
lset-union� Fg eq?� Gg map� Hg
<conditional>� Ig conditional-test� Jg conditional-consequent� Kg conditional-alternate� Lg
<lexical-ref>� Mg lexical-ref-gensym� Ng hashq-ref� Og memq� Pg lambda-case?� Qg length� Rg lambda-case-req� Sg lambda-case-opt� Tg lambda-case-kw� Ug lambda-case-rest� Vg lambda-case-alternate� Wg lambda-body� Xg
<lexical-set>� Yg lexical-set-gensym� Zg lexical-set-exp� [g lset-adjoin� \g <module-set>� ]g module-set-exp� ^g <toplevel-set>� _g toplevel-set-exp� `g <toplevel-define>� ag toplevel-define-exp� bg
<sequence>� cg
sequence-exps� dg <lambda>� eg reverse!� fg
<lambda-case>� gg lambda-case-inits� hg lambda-case-gensyms� ig lambda-case-body� jg append� kg reverse� lg lset-difference� mg <let>� ng let-gensyms� og let-vals� pg let-body� qg <letrec>� rg letrec-gensyms� sg letrec-vals� tg letrec-body� ug for-each� vg <fix>� wg fix-gensyms� xg fix-vals� yg fix-body� zg error� {f unhandled record� |g cons� }g assq-ref� ~g
hashq-remove!� g <let-values>� �g let-values-exp� �g let-values-body� �g <dynwind>� �g dynwind-body� �g dynwind-winder� �g dynwind-unwinder� �g <dynlet>� �g
dynlet-fluids� �g dynlet-vals� �g dynlet-body� �g <dynref>� �g dynref-fluid� �g <dynset>� �g dynset-fluid� �g
dynset-exp� �g <prompt>� �g
prompt-tag� �g prompt-body� �g prompt-handler� �g <abort>� �g abort-tag� �g
abort-args� �g
abort-tail� �g max� �g filter� �g cdr� �g gensym� �f :LCASE� �g conditional?� �g lexical-ref?� �f 'fixpoint procedures may not be assigned� �g <tree-analysis>� �g %make-tree-analysis-procedure� �g make-syntax-transformer� �� � �� � �g make-tree-analysis� �g macro� �g $sc-dispatch� �� � �� � �g _� �g any� ������� � �g
syntax-object� �g lambda� �g m-a11d84f71ea-1a65� �g top� ��� � �g ribcage� �g t-a11d84f71ea-1a60� �g t-a11d84f71ea-1a61� �g t-a11d84f71ea-1a62� �g t-a11d84f71ea-1a63� �g t-a11d84f71ea-1a64� ������ � ������ � �f l-a11d84f71ea-1a6a� �f l-a11d84f71ea-1a6b� �f l-a11d84f71ea-1a6c� �f l-a11d84f71ea-1a6d� �f l-a11d84f71ea-1a6e� ������ � ����� � �� � �g x� �� � �� � �f l-a11d84f71ea-1a67� �� � ����� � �g shift� �g proc-name� �g args� ��� � �� � ��� � �f l-1e8ba8b5a-60� �f l-1e8ba8b5a-61� ��� � ����� � �g key� �g value� �g name� �g formals� �g body� ������ � ������ � �f l-1e8ba8b5a-53� �f l-1e8ba8b5a-54� �f l-1e8ba8b5a-55� �f l-1e8ba8b5a-56� �f l-1e8ba8b5a-57� ������ � ����� � �g make-procedure-name� �� � �� � �f l-1e8ba8b5a-43� �� � ����� � �� � �f l-1e8ba8b5a-42� �� � ����� � ��������������
� �g hygiene� ��
� ����� � �g leaf� ����� � �� � ����� � �g down� ����� � �g up� ����� � �g post� ����� � �g init� ����� � ������ � �g make-struct� �g m-a11d84f71ea-1a5e� ��� � �g t-1e8ba8b5a-133� �g t-1e8ba8b5a-132� �g t-1e8ba8b5a-131� ��� �g m-1e8ba8b5a-134�� � �f l-1e8ba8b5a-138�f l-1e8ba8b5a-139�f l-1e8ba8b5a-13a� �� � g ctor-args�
�f l-1e8ba8b5a-120� �
�
� �g ctor�g field� �f l-1e8ba8b5a-11c�f l-1e8ba8b5a-11d� ��� �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� � � �!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�0f l-1e8ba8b5a-df�1f l-1e8ba8b5a-dd�2f l-1e8ba8b5a-db�3+,-./012 �4�)*3 �5f l-1e8ba8b5a-da�65 �7���6 �8���������
� 47 �9��8� �:���� �;�
8� �<9:;����� �=��< �>g each-any�?�>��@g syntax-violation�A@ �B@ �Cf Wrong number of arguments�Dg identifier?�ED �FD �G��� �H��G� �I@ �J@ �Kf -source expression failed to match any pattern�Lg record-type-vtable�ML �NL �Og
pwpwpwpwpw�Pg default-record-printer�QP �RP �S����� �Tg set-struct-vtable-name!�UT �VT �Wg vtable-offset-user�XW �YW �Zg %tree-analysis?-procedure�[g tree-analysis?�\�� �]g m-a11d84f71ea-1a7a�^]� �_g t-a11d84f71ea-1a79�`_ �a^ �bf l-a11d84f71ea-1a7f�cb �d�`ac �ef l-a11d84f71ea-1a7c�fe �g��af �h^d�g���������
�i��h� �jg obj�kg t-1e8ba8b5a-224�lg t-1e8ba8b5a-21e�mg t-1e8ba8b5a-21f�ng t-1e8ba8b5a-220�og t-1e8ba8b5a-223�pg t-1e8ba8b5a-222�qg t-1e8ba8b5a-221�rklmnopq �sg m-1e8ba8b5a-225�ts� �uttttttt �vf l-1e8ba8b5a-229�wf l-1e8ba8b5a-22a�xf l-1e8ba8b5a-22b�yf l-1e8ba8b5a-22c�zf l-1e8ba8b5a-22d�{f l-1e8ba8b5a-22e�|f l-1e8ba8b5a-22f�}vwxyz{| �~�ru} �g copier-id�� ��f l-1e8ba8b5a-21c��� ������ ��g ctor-name��� ��f l-1e8ba8b5a-214��� ������ �� ��f l-1e8ba8b5a-212��� ������ ��g layout��� ��f l-1e8ba8b5a-210��� ������ ��g
immutable?��� ��f l-1e8ba8b5a-20e��� ������ ��g field-count��� ��f l-1e8ba8b5a-20c��� ������ ��g
getter-ids��� ��f l-1e8ba8b5a-209��� ������ ��g field-ids��� ��f l-1e8ba8b5a-206��� ������ ��g predicate-name��g
field-spec����� �������� ��f l-1e8ba8b5a-1f9��f l-1e8ba8b5a-1fa��f l-1e8ba8b5a-1fb��f l-1e8ba8b5a-1fc��f l-1e8ba8b5a-1fd��f l-1e8ba8b5a-1fe�������� ������ ���d�g��~��������������������47 ���j�� ��� ��g and������ ��g struct?������ ���� ���F�� ��g
struct-vtable������ ���� ���d�g ������ ����� ����� ��i�� ����g ���Z�� ��g throw-bad-struct��� ��� ��g tree-analysis-leaf��g %tree-analysis-leaf-procedure��g free-id��g
%%on-error��g m-a11d84f71ea-1a86���� ��� ��f l-a11d84f71ea-1a88��� ������ �������������� ������ ���� ���� ��g %%type��g t-1e8ba8b5a-14b��g t-1e8ba8b5a-14c��g t-1e8ba8b5a-14d��g t-1e8ba8b5a-14e��g t-1e8ba8b5a-14f��g t-1e8ba8b5a-150��g t-1e8ba8b5a-151��������� ��g m-1e8ba8b5a-152���� ��������� ��f l-1e8ba8b5a-156��f l-1e8ba8b5a-157��f l-1e8ba8b5a-158��f l-1e8ba8b5a-159��f l-1e8ba8b5a-15a��f l-1e8ba8b5a-15b��f l-1e8ba8b5a-15c��������� ������ ��g getter��g index���� ��f l-1e8ba8b5a-149��f l-1e8ba8b5a-14a���� ������ ��� ����� ��f l-1e8ba8b5a-144��f l-1e8ba8b5a-145��f l-1e8ba8b5a-146����� ������ ��������������47 ������ ���� ������ ��g ck��g err��g s� �� ��� �f l-a11d84f71ea-1a8b�f l-a11d84f71ea-1a8c� �� �������������
���� �g quote� �� �
��� ���
� � �
�g %%index���� �� ���� �f l-a11d84f71ea-1a90�f l-a11d84f71ea-1a91� �� �������������
���� ��� ��� ��
� � � �g %%copier���� �� � ��� �!f l-a11d84f71ea-1a95�"f l-a11d84f71ea-1a96�#!" �$� # �%�$�����������
�&��%� �'�%� �(g %%<tree-analysis>-set-fields�)�$�� �*�()� �+'* �,+ �-g t-a11d84f71ea-1a85�.- �/f l-a11d84f71ea-1a9a�0/ �1�.�0 �2�1�����������
�3��2� �4�1�����������47 �5��4� �65 �7g if�8�74� �9�F4� �:��4� �;:5 �<�1�� �=��<� �>9;= �?g
struct-ref�@�?4� �A1�� �B�
A� �C@5B �D��4� �E�4� �F��<� �GEF �HD5G �I8>CH �J36I �K��� �L��K� �Mg tree-analysis-down�Ng %tree-analysis-down-procedure�Og m-a11d84f71ea-1aa1�PO� �QP �Rf l-a11d84f71ea-1aa3�SR �T��QS �UP�T��������� �V��U� �W�V �XW� �Y��T���������47 �Z��Y� �[�Z �\�X[� �]PP �^f l-a11d84f71ea-1aa6�_f l-a11d84f71ea-1aa7�`^_ �a� ]` �bPa�T���������
�c��b� �d�b� �e�a�T �f��e� �gdf �hg �i�Y� �j�i �k�Xj� �lf l-a11d84f71ea-1aab�mf l-a11d84f71ea-1aac�nlm �o� ]n �pPo�T���������
�q��p� �r�p� �so�T �t�s� �urt �vu �w�Y� �x�w �y�Xx� �zf l-a11d84f71ea-1ab0�{f l-a11d84f71ea-1ab1�|z{ �}� ]| �~P}�T���������
���~� ���~� ���}�T ���(�� ���� ��� ��g t-a11d84f71ea-1aa0��� ��f l-a11d84f71ea-1ab5��� ����Q� ��P��T���������
������ �����T���������47 ������ ��� ���7�� ���F�� ������ ���� �����T ������ ����� ���?�� ����T ����� ����� ������ ����� ���M�� ���� ����� ������ ����� ����T ���N�� ��g tree-analysis-up��g %tree-analysis-up-procedure��g m-a11d84f71ea-1abc���� ��� ��f l-a11d84f71ea-1abe��� ������ �������������� ������ ���� ���� ��������������47 ������ ���� ������ ���� ��f l-a11d84f71ea-1ac1��f l-a11d84f71ea-1ac2���� ��� �� ���������������
������ ����� ������ ������ ���� ��� ����� ���� ������ ��f l-a11d84f71ea-1ac6��f l-a11d84f71ea-1ac7���� ��� �� ���������������
������ ����� ����� ��� �� ���� ��� ����� ���� ������ ��f l-a11d84f71ea-1acb��f l-a11d84f71ea-1acc���� ��� �� ���������������
������ ����� ������ ���(�� ���� ��� ��g t-a11d84f71ea-1abb��� ��f l-a11d84f71ea-1ad0��� ������ ���������������
������ ���������������47 ������ ��� ���7�� ���F�� ������ ���� ������ ������ ����� ���?�� ����� ��� �� ����� ������ ����� ������ ���� ����� ������ ����� ����� ������ ��g tree-analysis-post��g %tree-analysis-post-procedure��g m-a11d84f71ea-1ad7���� ��� ��f l-a11d84f71ea-1ad9��� � ���� ��� ��������� ���� �� �� ��� ���������47 ���� �� ��� � �� �
f l-a11d84f71ea-1adc�f l-a11d84f71ea-1add�
�
� ��
� ���������
���� ��� ��
� ���� � � ��� �� ��� �f l-a11d84f71ea-1ae1�f l-a11d84f71ea-1ae2� �� ��� ���������
���� ��� �� � � � �! �"! �#�� �$�# �%�$� �&f l-a11d84f71ea-1ae6�'f l-a11d84f71ea-1ae7�(&' �)� ( �*�)� ���������
�+��*� �,�*� �-�)� �.�(-� �/,. �0/ �1g t-a11d84f71ea-1ad6�21 �3f l-a11d84f71ea-1aeb�43 �5�2�4 �6�5� ���������
�7��6� �8�5� ���������47 �9��8� �:9 �;�78� �<�F8� �=��8� �>=9 �?�5� �@��?� �A<>@ �B�?8� �C5� �D� C� �EB9D �F��8� �G�8� �H��?� �IGH �JF9I �K;AEJ �L7:K �M�� �N��M� �Og tree-analysis-init�Pg %tree-analysis-init-procedure�Qg m-a11d84f71ea-1af2�RQ� �SR �Tf l-a11d84f71ea-1af4�UT �V��SU �WR�V��������� �X��W� �Y�X �ZY� �[��V���������47 �\��[� �]�\ �^�Z]� �_RR �`f l-a11d84f71ea-1af7�af l-a11d84f71ea-1af8�b`a �c� _b �dRc�V���������
�e��d� �f�d� �g�c�V �h��g� �ifh �ji �k�[� �l�k �m�Zl� �nf l-a11d84f71ea-1afc�of l-a11d84f71ea-1afd�pno �q� _p �rRq�V���������
�s��r� �t�r� �uq�V �v� u� �wtv �xw �y�[� �z�y �{�Zz� �|f l-a11d84f71ea-1b01�}f l-a11d84f71ea-1b02�~|} �� _~ ��R�V���������
������ ����� ����V ���(�� ���� ��� ��g t-a11d84f71ea-1af1��� ��f l-a11d84f71ea-1b06��� ����S� ��R��V���������
������ �����V���������47 ������ ��� ���7�� ���F�� ������ ���� �����V ������ ����� ���?�� ����V ��� �� ����� ������ ����� ���O�� ���� ����� ������ ����� ����V ���P�� ��g each���� ���� �����������������g %%set-fields��g dummy��g check?��g expr������� ��g m-a11d84f71ea-1b0d���� ������� ��f l-a11d84f71ea-1b12��f l-a11d84f71ea-1b13��f l-a11d84f71ea-1b14��f l-a11d84f71ea-1b15��f l-a11d84f71ea-1b16������� ������ ��� ��f l-a11d84f71ea-1b0f��� ������ ��g t-1e8ba8b5a-16a��g t-1e8ba8b5a-16c��g t-1e8ba8b5a-16b����� ��g m-1e8ba8b5a-16d���� ����� ��f l-1e8ba8b5a-171��f l-1e8ba8b5a-172��f l-1e8ba8b5a-173����� ������ ��f l-1e8ba8b5a-167��f l-1e8ba8b5a-168��f l-1e8ba8b5a-169����� ������ �������������47
������ ������ ������ ������ ���M�� ������ ������ ���O�� ������� ��G ��G ��g list��g tree-il-fold��g tree-il-src��g <binding-info>��g %make-binding-info-procedure��g make-binding-info����� ��g m-a11d84f71ea-1b75���� ��g t-a11d84f71ea-1b73��g t-a11d84f71ea-1b74���� ���� ��f l-a11d84f71ea-1b7a��f l-a11d84f71ea-1b7b���� ������ ��� ��f l-a11d84f71ea-1b77��� ������ ���������������
������ ��g vars������ ������ ��g refs������ ���� ��g m-a11d84f71ea-1b71���� �����������
� 47 ������ ������ ���
�� ������� ����� � ��� ��� � �g pwpw��� �g %binding-info?-procedure�g
binding-info?�g m-a11d84f71ea-1b84�� �g t-a11d84f71ea-1b83� �
�f l-a11d84f71ea-1b89� �
�
�f l-a11d84f71ea-1b86� ���
�
����������
���� ��
���~��������������������47 ��j� � ���� ���� � ��F� ���� � ��
� ���� � � � �!�� �"�!� �#g binding-info-vars�$g %binding-info-vars-procedure�%g m-a11d84f71ea-1b90�&%� �'& �(f l-a11d84f71ea-1b92�)( �*��') �+&�*��������� �,��+� �-�, �.-� �/��*���������47 �0��/� �1�0 �2�.1� �3&& �4f l-a11d84f71ea-1b95�5f l-a11d84f71ea-1b96�645 �7� 36 �8&7�*���������
�9��8� �:�8� �;�7�* �<��;� �=:< �>= �?�/� �@�? �A�.@� �Bf l-a11d84f71ea-1b9a�Cf l-a11d84f71ea-1b9b�DBC �E� 3D �F&E�*���������
�G��F� �H�F� �IE�* �J�
I� �KHJ �LK �M�/� �N�M �O�.N� �Pf l-a11d84f71ea-1b9f�Qf l-a11d84f71ea-1ba0�RPQ �S� 3R �T&S�*���������
�U��T� �V�T� �Wg %%<binding-info>-set-fields�X�S�* �Y�WX� �ZVY �[Z �\g t-a11d84f71ea-1b8f�]\ �^f l-a11d84f71ea-1ba4�_^ �`�]'_ �a&`�*���������
�b��a� �c�`�*���������47 �d��c� �ed �f�7c� �g�Fc� �h��c� �ihd �j�`�* �k��j� �lgik �m�?c� �n`�* �o�
n� �pmdo �q��c� �r�c� �s�#j� �trs �uqdt �vflpu �wbev �x��* �y�$x� �zg binding-info-refs�{g %binding-info-refs-procedure�|g m-a11d84f71ea-1bab�}|� �~} �f l-a11d84f71ea-1bad�� ����~� ��}����������� ������ ���� ���� ��������������47 ������ ���� ������ ��}} ��f l-a11d84f71ea-1bb0��f l-a11d84f71ea-1bb1���� ��� �� ��}������������
������ ����� ������ ������ ���� ��� ����� ���� ������ ��f l-a11d84f71ea-1bb5��f l-a11d84f71ea-1bb6���� ��� �� ��}������������
������ ����� ����� ����� ���� ��� ����� ���� ������ ��f l-a11d84f71ea-1bba��f l-a11d84f71ea-1bbb���� ��� �� ��}������������
������ ����� ������ ���W�� ���� ��� ��g t-a11d84f71ea-1baa��� ��f l-a11d84f71ea-1bbf��� ����~� ��}������������
������ ���������������47 ������ ��� ���7�� ���F�� ������ ���� ������ ������ ����� ���?�� ����� ����� ����� ������ ����� ���z�� ���� ����� ������ ����� ����� ���{�� ��g m-a11d84f71ea-1bc6���� ������� ��f l-a11d84f71ea-1bcb��f l-a11d84f71ea-1bcc��f l-a11d84f71ea-1bcd��f l-a11d84f71ea-1bce��f l-a11d84f71ea-1bcf������� ������ ��� ��f l-a11d84f71ea-1bc8��� ������ �������������47
������ ������ ������ ���#�� ���z�� ���� ��g
string-any��g symbol->string��g gensym?��g vhash-consq��j ��j ��g cadr��g fold��g let-names��g letrec-names��g fix-names��g vlist-for-each��g
vhash-assq��g find��g pair?��g warning��g unused-variable��g
vlist-drop��g
vlist-null��g <reference-graph>��g %make-reference-graph-procedure��g make-reference-graph������ ��g m-a11d84f71ea-1ccf���� ��g t-a11d84f71ea-1ccc��g t-a11d84f71ea-1ccd� g t-a11d84f71ea-1cce��� ���� �f l-a11d84f71ea-1cd4�f l-a11d84f71ea-1cd5�f l-a11d84f71ea-1cd6� �� �� � f l-a11d84f71ea-1cd1�
���
������������
�
��� ��� ���� �g defs��� �g toplevel-context��� � �g m-a11d84f71ea-1cca�� �������
� 47 ���� ���� ��
� � �
��� ���� �g pwpwpw� � �!g %reference-graph?-procedure�"g reference-graph?�#g m-a11d84f71ea-1ce0�$#� �%g t-a11d84f71ea-1cdf�&% �'$ �(f l-a11d84f71ea-1ce5�)( �*�&') �+f l-a11d84f71ea-1ce2�,+ �-��', �.$*�-���������
�/��.� �0*�-��~��������������������47 �1�j0� �21 �3��0� �4��0� �541 �6�F0� �7��0� �871 �9�*�- �:��9� �;68: �<35; �=/2< �>��- �?�!>� �@g reference-graph-defs�Ag %reference-graph-defs-procedure�Bg m-a11d84f71ea-1cec�CB� �DC �Ef l-a11d84f71ea-1cee�FE �G��DF �HC�G��������� �I��H� �J�I �KJ� �L�G���������47 �M��L� �N�M �O�KN� �PCC �Qf l-a11d84f71ea-1cf1�Rf l-a11d84f71ea-1cf2�SQR �T� PS �UCT�G���������
�V��U� �W�U� �X�T�G �Y��X� �ZWY �[Z �\�L� �]�\ �^�K]� �_f l-a11d84f71ea-1cf6�`f l-a11d84f71ea-1cf7�a_` �b� Pa �cCb�G���������
�d��c� �e�c� �fb�G �g�
f� �heg �ih �j�L� �k�j �l�Kk� �mf l-a11d84f71ea-1cfb�nf l-a11d84f71ea-1cfc�omn �p� Po �qCp�G���������
�r��q� �s�q� �tg %%<reference-graph>-set-fields�u�p�G �v�tu� �wsv �xw �yg t-a11d84f71ea-1ceb�zy �{f l-a11d84f71ea-1d00�|{ �}�zD| �~C}�G���������
���~� ��}�G���������47 ������ ��� ���7�� ���F�� ������ ���� ���}�G ������ ����� ���?�� ��}�G ���
�� ����� ������ ����� ���@�� ���� ����� ������ ���� ����G ���A�� ��g reference-graph-refs��g %reference-graph-refs-procedure��g m-a11d84f71ea-1d07���� ��� ��f l-a11d84f71ea-1d09��� ������ �������������� ������ ���� ���� �������������47 ������ ���� ������ ���� ��f l-a11d84f71ea-1d0c��f l-a11d84f71ea-1d0d���� ��� �� ���������������
������ ����� ������ ������ ���� ��� ����� ���� ������ ��f l-a11d84f71ea-1d11��f l-a11d84f71ea-1d12���� ��� �� ���������������
������ ����� ����� ����� ���� ��� ����� ���� ������ ��f l-a11d84f71ea-1d16��f l-a11d84f71ea-1d17���� ��� �� ���������������
������ ����� ������ ���t�� ���� ��� ��g t-a11d84f71ea-1d06��� ��f l-a11d84f71ea-1d1b��� ������ ���������������
������ ��������������47 ������ ��� ���7�� ���F�� ������ ���� ������ ������ ����� ���?�� ����� ����� ����� ������ ����� ������ ���� ����� ������ ����� ����� ������ ��g reference-graph-toplevel-context��g +%reference-graph-toplevel-context-procedure��g m-a11d84f71ea-1d22���� ��� ��f l-a11d84f71ea-1d24��� ������ �������������� ������ ���� ���� �������������47 ������ ���� ������ ���� ��f l-a11d84f71ea-1d27��f l-a11d84f71ea-1d28� �� �� � �������������
���� ��� ���� ���� � � � ��� �
� ���
� �f l-a11d84f71ea-1d2c�
f l-a11d84f71ea-1d2d�
�� � �������������
���� ��� ��� �� � � � ���� �� ���� �f l-a11d84f71ea-1d31�f l-a11d84f71ea-1d32� �� � �������������
���� � �� �!��� �"�t!� �# " �$# �%g t-a11d84f71ea-1d21�&% �'f l-a11d84f71ea-1d36�(' �)�&�( �*�)�����������
�+��*� �,)�����������47 �-��,� �.- �/�7,� �0�F,� �1��,� �21- �3�)�� �4��3� �5024 �6�?,� �7)�� �8� 7� �96-8 �:��,� �;�,� �<��3� �=;< �>:-= �?/59> �@+.? �A��� �B��A� �Cg m-a11d84f71ea-1d3d�DC� �ED �Ff l-a11d84f71ea-1d42�Gf l-a11d84f71ea-1d43�Hf l-a11d84f71ea-1d44�If l-a11d84f71ea-1d45�Jf l-a11d84f71ea-1d46�KFGHIJ �L��EK �MD �Nf l-a11d84f71ea-1d3f�ON �P��MO �QL�P�������47
�R��Q� �S�L�P �T��S� �U�@S� �V��S� �W��S� �XUVW �Yg and=>�Zg graph-reachable-nodes�[g
vlist-fold�\g graph-reachable-nodes*�]g
partition*�^g toplevel-define-name�_g toplevel-define-src�`g toplevel-set-name�ag toplevel-set-src�bg module?�cg module-variable�dg module-public-interface�eg macro?�fg vlist-filter�gg unused-toplevel�hg <toplevel-ref>�ig toplevel-ref-name�jg toplevel-ref-src�kg <toplevel-info>�lg %make-toplevel-info-procedure�mg make-toplevel-info�ng m-a11d84f71ea-1e83�on� �pg t-a11d84f71ea-1e81�qg t-a11d84f71ea-1e82�rpq �soo �tf l-a11d84f71ea-1e88�uf l-a11d84f71ea-1e89�vtu �w�rsv �xo �yf l-a11d84f71ea-1e85�zy �{��xz �|ow�{���������
�}��|� �~�w�{ ���~� ���~� ��� ��g m-a11d84f71ea-1e7f���� ���w�{�����
� 47 ������ ���k~� ���
�� ������ ��}�� ����{ ���l�� ��� ��g %toplevel-info?-procedure��g toplevel-info?��g m-a11d84f71ea-1e92���� ��g t-a11d84f71ea-1e91��� ��� ��f l-a11d84f71ea-1e97��� ������ ��f l-a11d84f71ea-1e94��� ������ ���������������
������ ��������~��������������������47 ���j�� ��� ������ ������ ���� ���F�� ������ ���� ������ ���k�� ����� ����� ����� ����� ������ ��g toplevel-info-refs��g %toplevel-info-refs-procedure��g m-a11d84f71ea-1e9e���� ��� ��f l-a11d84f71ea-1ea0��� ������ �������������� ������ ���� ���� ��������������47 ������ ���� ������ ���� ��f l-a11d84f71ea-1ea3��f l-a11d84f71ea-1ea4���� ��� �� ���������������
������ ����� ������ ���k�� ���� ��� ����� ���� ������ ��f l-a11d84f71ea-1ea8��f l-a11d84f71ea-1ea9���� ��� �� ���������������
������ ����� ����� ���
�� ���� ��� ����� ���� ������ ��f l-a11d84f71ea-1ead��f l-a11d84f71ea-1eae���� ��� �� ���������������
������ ����� ��g %%<toplevel-info>-set-fields������ ������ ���� ��� ��g t-a11d84f71ea-1e9d��� ��f l-a11d84f71ea-1eb2��� ������ ���������������
������ ���������������47 ������ ��� ���7�� ���F�� ������ ���� ������ ���k�� ����� ���?�� ����� ���
�� ����� ������ ����� ������ ���� ����� ������ � ��� ���� ���� �g toplevel-info-defs�g %toplevel-info-defs-procedure�g m-a11d84f71ea-1eb9�� � �f l-a11d84f71ea-1ebb� �
�� ��
��������� ���� �
� �
� ���
���������47 ���� �� ��� � �f l-a11d84f71ea-1ebe�f l-a11d84f71ea-1ebf� �� ��
���������
���� ��� ���
��k� � � ��� � � �!� � �"f l-a11d84f71ea-1ec3�#f l-a11d84f71ea-1ec4�$"# �%� $ �&%�
���������
�'��&� �(�&� �)%�
�*�)� �+(* �,+ �-�� �.�- �/�.� �0f l-a11d84f71ea-1ec8�1f l-a11d84f71ea-1ec9�201 �3� 2 �43�
���������
�5��4� �6�4� �7�3�
�8��7� �968 �:9 �;g t-a11d84f71ea-1eb8�<; �=f l-a11d84f71ea-1ecd�>= �?�<> �@?�
���������
�A��@� �B�?�
���������47 �C��B� �DC �E�7B� �F�FB� �G��B� �HGC �I�?�
�J�kI� �KFHJ �L�?B� �M?�
�N�M� �OLCN �P��B� �Q�B� �R�I� �SQR �TPCS �UEKOT �VADU �W��
�X�W� �Yg m-a11d84f71ea-1ed4�ZY� �[Z���� �\f l-a11d84f71ea-1ed9�]f l-a11d84f71ea-1eda�^f l-a11d84f71ea-1edb�_f l-a11d84f71ea-1edc�`f l-a11d84f71ea-1edd�a\]^_` �b��[a �cZ �df l-a11d84f71ea-1ed6�ed �f��ce �g�b�f�������47
�h��g� �i�b�f �j�ki� �k��i� �l�i� �mkl �ng <const>�og toplevel-define!�pg resolve-module�qg oop�rg goops�sqr �tg <module-ref>�ug goops-toplevel-definition�vg
vhash-delq�wg unbound-variable�xg
vlist-reverse�yg <arity-info>�zg %make-arity-info-procedure�{g make-arity-info�|g m-a11d84f71ea-2136�}|� �~g t-a11d84f71ea-2133�g t-a11d84f71ea-2134��g t-a11d84f71ea-2135��~� ��}}} ��f l-a11d84f71ea-213b��f l-a11d84f71ea-213c��f l-a11d84f71ea-213d����� ������ ��} ��f l-a11d84f71ea-2138��� ������ ��}������������
������ ��g toplevel-calls������ ������ ��g lexical-lambdas������ ��g toplevel-lambdas������ ����� ��g m-a11d84f71ea-2131���� �����������
� 47 ������ ���y�� ���
�� �������� ����� ����� ���z�� ����� ��g %arity-info?-procedure��g arity-info?��g m-a11d84f71ea-2147���� ��g t-a11d84f71ea-2146��� ��� ��f l-a11d84f71ea-214c��� ������ ��f l-a11d84f71ea-2149��� ������ ���������������
������ ��������~��������������������47 ���j�� ��� ������ ������ ���� ���F�� ������ ���� ������ ���y�� ����� ����� ����� ����� ������ ��g toplevel-procedure-calls��g #%toplevel-procedure-calls-procedure��g m-a11d84f71ea-2153���� ��� ��f l-a11d84f71ea-2155��� ������ �������������� ������ ���� ���� ��������������47 ������ ���� ������ ���� ��f l-a11d84f71ea-2158��f l-a11d84f71ea-2159���� ��� �� ���������������
������ ����� ������ ���y�� ���� ��� ����� ���� ������ ��f l-a11d84f71ea-215d��f l-a11d84f71ea-215e���� ��� �� ���������������
������ ����� ����� ���
�� ���� ��� ����� ���� ������ ��f l-a11d84f71ea-2162��f l-a11d84f71ea-2163���� ��� �� ���������������
������ ����� ��g %%<arity-info>-set-fields������ ������ ���� ��� ��g t-a11d84f71ea-2152��� ��f l-a11d84f71ea-2167��� ������ ���������������
������ � �������������47 ��� � � ��7 � ��F � ��� � � ����� ��y� � �
�? � ���� ��
� �
��� � �� � ���� � � �
�� ���� ���� �g %lexical-lambdas-procedure�g m-a11d84f71ea-216e�� � �f l-a11d84f71ea-2170� ��� ����������� ���� � � �! � �"�����������47 �#��"� �$�# �%�!$� �& �'f l-a11d84f71ea-2173�(f l-a11d84f71ea-2174�)'( �*� &) �+*����������
�,��+� �-�+� �.�*� �/�y.� �0-/ �10 �2�"� �3�2 �4�!3� �5f l-a11d84f71ea-2178�6f l-a11d84f71ea-2179�756 �8� &7 �98����������
�:��9� �;�9� �<8� �=�<� �>;= �?> �@�"� �A�@ �B�!A� �Cf l-a11d84f71ea-217d�Df l-a11d84f71ea-217e�ECD �F� &E �GF����������
�H��G� �I�G� �J�F� �K��J� �LIK �ML �Ng t-a11d84f71ea-216d�ON �Pf l-a11d84f71ea-2182�QP �R�OQ �SR����������
�T��S� �U�R����������47 �V��U� �WV �X�7U� �Y�FU� �Z��U� �[ZV �\�R� �]�y\� �^Y[] �_�?U� �`R� �a�`� �b_Va �c��U� �d�U� �e��\� �fde �gcVf �hX^bg �iTWh �j�� �k�j� �lg %toplevel-lambdas-procedure�mg m-a11d84f71ea-2189�nm� �on �pf l-a11d84f71ea-218b�qp �r��oq �sn�r��������� �t��s� �u�t �vu� �w��r���������47 �x��w� �y�x �z�vy� �{nn �|f l-a11d84f71ea-218e�}f l-a11d84f71ea-218f�~|} �� {~ ��n�r���������
������ ����� ����r ���y�� ���� ��� ���w� ���� ���v�� ��f l-a11d84f71ea-2193��f l-a11d84f71ea-2194���� ��� {� ��n��r���������
������ ����� ����r ��� �� ���� ��� ���w� ���� ���v�� ��f l-a11d84f71ea-2198��f l-a11d84f71ea-2199���� ��� {� ��n��r���������
������ ����� �����r ������ ���� ��� ��g t-a11d84f71ea-2188��� ��f l-a11d84f71ea-219d��� ����o� ��n��r���������
������ �����r���������47 ������ ��� ���7�� ���F�� ������ ���� �����r ���y�� ����� ���?�� ����r ��� �� ����� ������ ����� ������ ���� ����� ������ ����� ����r ���l�� ��g m-a11d84f71ea-21a4���� ������� ��f l-a11d84f71ea-21a9��f l-a11d84f71ea-21aa��f l-a11d84f71ea-21ab��f l-a11d84f71ea-21ac��f l-a11d84f71ea-21ad������� ������ ��� ��f l-a11d84f71ea-21a6��� ������ �������������47
������ ������ ���y�� ������ ������ ������ ����� ��g program?��g procedure-name��g
arity:nreq��g
arity:nopt��g arity:rest?��g car��g arity:kw��g arity:allow-other-keys?��g program-arities��g
procedure?��g procedure-minimum-arity��g lambda-meta��g assoc-ref��g const?��g const-exp��g keyword?��g arity-mismatch��g with-output-to-string��g write��g validate-arity��g application-src��g
vlist-tail��g catch��� ��� ��g
module-ref��g
toplevel-ref?��g lambda?��f format-string-syntax-error��g
&syntax-error��g throw��g unterminated-conditional��g tilde��g literal��g
take-while��0123456789
��g string->number��g list->string��g every��g number?��g list-ref� g min� g unexpected-semicolon� g "unexpected-conditional-termination� g unterminated-iteration� g unexpected-termination� f computer bought the farm� g string->list� g format-string-argument-count� g resolve-interface� g ensureS�
g proc-ref?� g gettext� g gettext?�
g ngettext� g N_� g ngettext?� g string?� g const-fmt� g boolean?� g format� g
wrong-port� g negate� g non-literal-format-string� z � z � f no matching pattern� g wrong-format-string� g wrong-num-args� g wrong-format-arg-count� g syntax-error� g
make-const� ASas~% � g
simple-format� ! � " � # � $ ! � % ! �C 5 h�T k ]04
23;5 4> > "