Your IP : 216.73.216.190
GOOF----LE-8-2.0m] &4hɴ]gguile� � gdefine-module*� � � glanguage� gtree-il� ganalyze� �
gfilenameS� flanguage/tree-il/analyze.scm� gimportsS�
gsrfi� gsrfi-1�
� � gsrfi-9�
� � gsrfi-11�
� � gsrfi-26�
� � gice-9� gvlist� � � gmatch� � � !gsystem� "gbase� #gsyntax� $!"#� %$� &gmessage� '!"&� ('� )gvm� *gprogram� +!)*� ,+� -� .-� /gpmatch� 0!"/� 10� 2 %(,.1� 3gexportsS� 4ganalyze-lexicals� 5ganalyze-tree� 6gunused-variable-analysis� 7gunused-toplevel-analysis� 8gunbound-variable-analysis� 9garity-analysis� :gformat-analysis� ;456789:� <gset-current-module� =<� ><� ?gmake-hash-table� @g
hashq-set!� Ag
make-hashq� Bg
<application>� Cgapplication-proc� Dgapplication-args� Eg
lset-union� Fgeq?� Ggmap� Hg
<conditional>� Igconditional-test� Jgconditional-consequent� Kgconditional-alternate� Lg
<lexical-ref>� Mglexical-ref-gensym� Ng hashq-ref� Ogmemq� Pglambda-case?� Qglength� Rglambda-case-req� Sglambda-case-opt� Tglambda-case-kw� Uglambda-case-rest� Vglambda-case-alternate� Wglambda-body� Xg
<lexical-set>� Yglexical-set-gensym� Zglexical-set-exp� [glset-adjoin� \g<module-set>� ]gmodule-set-exp� ^g<toplevel-set>� _gtoplevel-set-exp� `g<toplevel-define>� agtoplevel-define-exp� bg
<sequence>� cg
sequence-exps� dg<lambda>� egreverse!� fg
<lambda-case>� gglambda-case-inits� hglambda-case-gensyms� iglambda-case-body� jgappend� kgreverse� lglset-difference� mg<let>� nglet-gensyms� oglet-vals� pglet-body� qg<letrec>� rgletrec-gensyms� sgletrec-vals� tgletrec-body� ugfor-each� vg<fix>� wgfix-gensyms� xgfix-vals� ygfix-body� zgerror� {funhandled record� |gcons� }gassq-ref� ~g
hashq-remove!� g<let-values>��glet-values-exp��glet-values-body��g <dynwind>��gdynwind-body��gdynwind-winder��gdynwind-unwinder��g<dynlet>��g
dynlet-fluids��gdynlet-vals��gdynlet-body��g<dynref>��gdynref-fluid��g<dynset>��gdynset-fluid��g
dynset-exp��g<prompt>��g
prompt-tag��gprompt-body��gprompt-handler��g<abort>��g abort-tag��g
abort-args��g
abort-tail��gmax��gfilter��gcdr��ggensym��f:LCASE��gconditional?��glexical-ref?��f'fixpoint procedures may not be assigned��g<tree-analysis>��g%make-tree-analysis-procedure��gmake-syntax-transformer��������gmake-tree-analysis��gmacro��g$sc-dispatch��������g_��gany����������g
syntax-object��glambda��gm-a11d84f71ea-1a65��gtop������gribcage��gt-a11d84f71ea-1a60��gt-a11d84f71ea-1a61��gt-a11d84f71ea-1a62��gt-a11d84f71ea-1a63��gt-a11d84f71ea-1a64����������������fl-a11d84f71ea-1a6a��fl-a11d84f71ea-1a6b��fl-a11d84f71ea-1a6c��fl-a11d84f71ea-1a6d��fl-a11d84f71ea-1a6e������������������gx��������fl-a11d84f71ea-1a67�����������gshift��g proc-name��gargs�������������fl-1e8ba8b5a-60��fl-1e8ba8b5a-61������������gkey��gvalue��gname��gformals��gbody����������������fl-1e8ba8b5a-53��fl-1e8ba8b5a-54��fl-1e8ba8b5a-55��fl-1e8ba8b5a-56��fl-1e8ba8b5a-57���������������gmake-procedure-name��������fl-1e8ba8b5a-43��������������fl-1e8ba8b5a-42������������������������
��ghygiene���
��������gleaf�����������������gdown��������gup��������gpost��������ginit���������������gmake-struct��gm-a11d84f71ea-1a5e������gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�����gm-1e8ba8b5a-134����fl-1e8ba8b5a-138�fl-1e8ba8b5a-139�fl-1e8ba8b5a-13a���� g ctor-args�
�fl-1e8ba8b5a-120��
�
��gctor�gfield��fl-1e8ba8b5a-11c�fl-1e8ba8b5a-11d�����gform�g type-name�gconstructor-spec�gfield-names�������fl-1e8ba8b5a-111�fl-1e8ba8b5a-112�fl-1e8ba8b5a-113�fl-1e8ba8b5a-114�� ��!g
record-layout�"gfunctional-setters�#gsetters�$gcopier�%ggetters�&gconstructor�'ggetter-identifiers�(gfield-identifiers�)!"#$%&'(�*���������+fl-1e8ba8b5a-e9�,fl-1e8ba8b5a-e7�-fl-1e8ba8b5a-e5�.fl-1e8ba8b5a-e3�/fl-1e8ba8b5a-e1�0fl-1e8ba8b5a-df�1fl-1e8ba8b5a-dd�2fl-1e8ba8b5a-db�3+,-./012�4�)*3�5fl-1e8ba8b5a-da�65�7���6�8���������
� 47�9��8��:�����;�
8��<9:;������=��<�>geach-any�?�>��@gsyntax-violation�A@�B@�CfWrong number of arguments�Dgidentifier?�ED�FD�G����H��G��I@�J@�Kf-source expression failed to match any pattern�Lgrecord-type-vtable�ML�NL�Og
pwpwpwpwpw�Pgdefault-record-printer�QP�RP�S������Tgset-struct-vtable-name!�UT�VT�Wgvtable-offset-user�XW�YW�Zg%tree-analysis?-procedure�[gtree-analysis?�\���]gm-a11d84f71ea-1a7a�^]��_gt-a11d84f71ea-1a79�`_�a^�bfl-a11d84f71ea-1a7f�cb�d�`ac�efl-a11d84f71ea-1a7c�fe�g��af�h^d�g���������
�i��h��jgobj�kgt-1e8ba8b5a-224�lgt-1e8ba8b5a-21e�mgt-1e8ba8b5a-21f�ngt-1e8ba8b5a-220�ogt-1e8ba8b5a-223�pgt-1e8ba8b5a-222�qgt-1e8ba8b5a-221�rklmnopq�sgm-1e8ba8b5a-225�ts��uttttttt�vfl-1e8ba8b5a-229�wfl-1e8ba8b5a-22a�xfl-1e8ba8b5a-22b�yfl-1e8ba8b5a-22c�zfl-1e8ba8b5a-22d�{fl-1e8ba8b5a-22e�|fl-1e8ba8b5a-22f�}vwxyz{|�~�ru}�g copier-id����fl-1e8ba8b5a-21c�����������g ctor-name�����fl-1e8ba8b5a-214�������������fl-1e8ba8b5a-212�����������glayout�����fl-1e8ba8b5a-210�����������g
immutable?�����fl-1e8ba8b5a-20e�����������gfield-count�����fl-1e8ba8b5a-20c�����������g
getter-ids�����fl-1e8ba8b5a-209�����������g field-ids�����fl-1e8ba8b5a-206�����������gpredicate-name��g
field-spec���������������fl-1e8ba8b5a-1f9��fl-1e8ba8b5a-1fa��fl-1e8ba8b5a-1fb��fl-1e8ba8b5a-1fc��fl-1e8ba8b5a-1fd��fl-1e8ba8b5a-1fe�����������������d�g��~��������������������47���j�������gand��������gstruct?�������������F����g
struct-vtable�������������d�g������������������i������g���Z����gthrow-bad-struct��������gtree-analysis-leaf��g%tree-analysis-leaf-procedure��gfree-id��g
%%on-error��gm-a11d84f71ea-1a86���������fl-a11d84f71ea-1a88���������������������������������������g%%type��gt-1e8ba8b5a-14b��gt-1e8ba8b5a-14c��gt-1e8ba8b5a-14d��gt-1e8ba8b5a-14e��gt-1e8ba8b5a-14f��gt-1e8ba8b5a-150��gt-1e8ba8b5a-151�����������gm-1e8ba8b5a-152���������������fl-1e8ba8b5a-156��fl-1e8ba8b5a-157��fl-1e8ba8b5a-158��fl-1e8ba8b5a-159��fl-1e8ba8b5a-15a��fl-1e8ba8b5a-15b��fl-1e8ba8b5a-15c�����������������ggetter��gindex������fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a��������������������fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������������������������47������������������gck��gerr��gs�������fl-a11d84f71ea-1a8b�fl-a11d84f71ea-1a8c����������������
�����gquote� ���
������
�� �
�g%%index�����������fl-a11d84f71ea-1a90�fl-a11d84f71ea-1a91����������������
������������
����g%%copier������� ����!fl-a11d84f71ea-1a95�"fl-a11d84f71ea-1a96�#!"�$�#�%�$�����������
�&��%��'�%��(g%%<tree-analysis>-set-fields�)�$���*�()��+'*�,+�-gt-a11d84f71ea-1a85�.-�/fl-a11d84f71ea-1a9a�0/�1�.�0�2�1�����������
�3��2��4�1�����������47�5��4��65�7gif�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��Mgtree-analysis-down�Ng%tree-analysis-down-procedure�Ogm-a11d84f71ea-1aa1�PO��QP�Rfl-a11d84f71ea-1aa3�SR�T��QS�UP�T����������V��U��W�V�XW��Y��T���������47�Z��Y��[�Z�\�X[��]PP�^fl-a11d84f71ea-1aa6�_fl-a11d84f71ea-1aa7�`^_�a�]`�bPa�T���������
�c��b��d�b��e�a�T�f��e��gdf�hg�i�Y��j�i�k�Xj��lfl-a11d84f71ea-1aab�mfl-a11d84f71ea-1aac�nlm�o�]n�pPo�T���������
�q��p��r�p��so�T�t�s��urt�vu�w�Y��x�w�y�Xx��zfl-a11d84f71ea-1ab0�{fl-a11d84f71ea-1ab1�|z{�}�]|�~P}�T���������
���~����~����}�T���(�����������gt-a11d84f71ea-1aa0�����fl-a11d84f71ea-1ab5�������Q���P��T���������
�����������T���������47������������7�����F�����������������T��������������?������T������������������������M��������������������������T���N����gtree-analysis-up��g%tree-analysis-up-procedure��gm-a11d84f71ea-1abc���������fl-a11d84f71ea-1abe���������������������������������������������������47����������������������fl-a11d84f71ea-1ac1��fl-a11d84f71ea-1ac2������������������������
�����������������������������������������������fl-a11d84f71ea-1ac6��fl-a11d84f71ea-1ac7������������������������
������������������� ��������������������������fl-a11d84f71ea-1acb��fl-a11d84f71ea-1acc������������������������
��������������������(�����������gt-a11d84f71ea-1abb�����fl-a11d84f71ea-1ad0������������������������
���������������������47������������7�����F��������������������������������?���������� ���������������������������������������������������������gtree-analysis-post��g%tree-analysis-post-procedure��gm-a11d84f71ea-1ad7���������fl-a11d84f71ea-1ad9����������������������������������������47���������� ���
fl-a11d84f71ea-1adc�fl-a11d84f71ea-1add�
�
� ��
����������
���������
����������������fl-a11d84f71ea-1ae1�fl-a11d84f71ea-1ae2��� ������������
���������� � ��! �"!�#���$�#�%�$��&fl-a11d84f71ea-1ae6�'fl-a11d84f71ea-1ae7�(&'�)� (�*�)����������
�+��*��,�*��-�)��.�(-��/,.�0/�1gt-a11d84f71ea-1ad6�21�3fl-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��Ogtree-analysis-init�Pg%tree-analysis-init-procedure�Qgm-a11d84f71ea-1af2�RQ��SR�Tfl-a11d84f71ea-1af4�UT�V��SU�WR�V����������X��W��Y�X�ZY��[��V���������47�\��[��]�\�^�Z]��_RR�`fl-a11d84f71ea-1af7�afl-a11d84f71ea-1af8�b`a�c�_b�dRc�V���������
�e��d��f�d��g�c�V�h��g��ifh�ji�k�[��l�k�m�Zl��nfl-a11d84f71ea-1afc�ofl-a11d84f71ea-1afd�pno�q�_p�rRq�V���������
�s��r��t�r��uq�V�v� u��wtv�xw�y�[��z�y�{�Zz��|fl-a11d84f71ea-1b01�}fl-a11d84f71ea-1b02�~|}��_~��R�V���������
���������������V���(�����������gt-a11d84f71ea-1af1�����fl-a11d84f71ea-1b06�������S���R��V���������
�����������V���������47������������7�����F�����������������V��������������?������V��� ���������������������O��������������������������V���P����geach�������������������������g%%set-fields��gdummy��gcheck?��gexpr���������gm-a11d84f71ea-1b0d�������������fl-a11d84f71ea-1b12��fl-a11d84f71ea-1b13��fl-a11d84f71ea-1b14��fl-a11d84f71ea-1b15��fl-a11d84f71ea-1b16������������������fl-a11d84f71ea-1b0f�����������gt-1e8ba8b5a-16a��gt-1e8ba8b5a-16c��gt-1e8ba8b5a-16b�������gm-1e8ba8b5a-16d�����������fl-1e8ba8b5a-171��fl-1e8ba8b5a-172��fl-1e8ba8b5a-173�������������fl-1e8ba8b5a-167��fl-1e8ba8b5a-168��fl-1e8ba8b5a-169������������������������47
���������������������������M�����������������O�����������G��G��glist��gtree-il-fold��gtree-il-src��g<binding-info>��g%make-binding-info-procedure��gmake-binding-info�������gm-a11d84f71ea-1b75������gt-a11d84f71ea-1b73��gt-a11d84f71ea-1b74����������fl-a11d84f71ea-1b7a��fl-a11d84f71ea-1b7b���������������fl-a11d84f71ea-1b77������������������������
��������gvars��������������grefs������������gm-a11d84f71ea-1b71���������������
� 47���������������
�����������������������gpwpw����g%binding-info?-procedure�g
binding-info?�gm-a11d84f71ea-1b84���gt-a11d84f71ea-1b83� �
�fl-a11d84f71ea-1b89��
�
�fl-a11d84f71ea-1b86����
�
����������
������
���~��������������������47��j�������������F��������
�������� �!���"�!��#gbinding-info-vars�$g%binding-info-vars-procedure�%gm-a11d84f71ea-1b90�&%��'&�(fl-a11d84f71ea-1b92�)(�*��')�+&�*����������,��+��-�,�.-��/��*���������47�0��/��1�0�2�.1��3&&�4fl-a11d84f71ea-1b95�5fl-a11d84f71ea-1b96�645�7�36�8&7�*���������
�9��8��:�8��;�7�*�<��;��=:<�>=�?�/��@�?�A�.@��Bfl-a11d84f71ea-1b9a�Cfl-a11d84f71ea-1b9b�DBC�E�3D�F&E�*���������
�G��F��H�F��IE�*�J�
I��KHJ�LK�M�/��N�M�O�.N��Pfl-a11d84f71ea-1b9f�Qfl-a11d84f71ea-1ba0�RPQ�S�3R�T&S�*���������
�U��T��V�T��Wg%%<binding-info>-set-fields�X�S�*�Y�WX��ZVY�[Z�\gt-a11d84f71ea-1b8f�]\�^fl-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��zgbinding-info-refs�{g%binding-info-refs-procedure�|gm-a11d84f71ea-1bab�}|��~}�fl-a11d84f71ea-1bad������~���}���������������������������������������47������������������}}��fl-a11d84f71ea-1bb0��fl-a11d84f71ea-1bb1�����������}������������
�����������������������������������������������fl-a11d84f71ea-1bb5��fl-a11d84f71ea-1bb6�����������}������������
���������������������������������������������fl-a11d84f71ea-1bba��fl-a11d84f71ea-1bbb�����������}������������
��������������������W�����������gt-a11d84f71ea-1baa�����fl-a11d84f71ea-1bbf�������~���}������������
���������������������47������������7�����F��������������������������������?�������������������������������z������������������������������{����gm-a11d84f71ea-1bc6�������������fl-a11d84f71ea-1bcb��fl-a11d84f71ea-1bcc��fl-a11d84f71ea-1bcd��fl-a11d84f71ea-1bce��fl-a11d84f71ea-1bcf������������������fl-a11d84f71ea-1bc8����������������������47
���������������������#�����z��������g
string-any��gsymbol->string��ggensym?��gvhash-consq��j��j��gcadr��gfold��g let-names��gletrec-names��g fix-names��gvlist-for-each��g
vhash-assq��gfind��gpair?��gwarning��gunused-variable��g
vlist-drop��g
vlist-null��g<reference-graph>��g%make-reference-graph-procedure��gmake-reference-graph��������gm-a11d84f71ea-1ccf������gt-a11d84f71ea-1ccc��gt-a11d84f71ea-1ccd�gt-a11d84f71ea-1cce��������fl-a11d84f71ea-1cd4�fl-a11d84f71ea-1cd5�fl-a11d84f71ea-1cd6������ fl-a11d84f71ea-1cd1�
���
������������
�
�����������gdefs����gtoplevel-context�����gm-a11d84f71ea-1cca���������
� 47����������
���
��������gpwpwpw� ��!g%reference-graph?-procedure�"greference-graph?�#gm-a11d84f71ea-1ce0�$#��%gt-a11d84f71ea-1cdf�&%�'$�(fl-a11d84f71ea-1ce5�)(�*�&')�+fl-a11d84f71ea-1ce2�,+�-��',�.$*�-���������
�/��.��0*�-��~��������������������47�1�j0��21�3��0��4��0��541�6�F0��7��0��871�9�*�-�:��9��;68:�<35;�=/2<�>��-�?�!>��@greference-graph-defs�Ag%reference-graph-defs-procedure�Bgm-a11d84f71ea-1cec�CB��DC�Efl-a11d84f71ea-1cee�FE�G��DF�HC�G����������I��H��J�I�KJ��L�G���������47�M��L��N�M�O�KN��PCC�Qfl-a11d84f71ea-1cf1�Rfl-a11d84f71ea-1cf2�SQR�T�PS�UCT�G���������
�V��U��W�U��X�T�G�Y��X��ZWY�[Z�\�L��]�\�^�K]��_fl-a11d84f71ea-1cf6�`fl-a11d84f71ea-1cf7�a_`�b�Pa�cCb�G���������
�d��c��e�c��fb�G�g�
f��heg�ih�j�L��k�j�l�Kk��mfl-a11d84f71ea-1cfb�nfl-a11d84f71ea-1cfc�omn�p�Po�qCp�G���������
�r��q��s�q��tg%%<reference-graph>-set-fields�u�p�G�v�tu��wsv�xw�ygt-a11d84f71ea-1ceb�zy�{fl-a11d84f71ea-1d00�|{�}�zD|�~C}�G���������
���~���}�G���������47������������7�����F���������������}�G��������������?����}�G���
���������������������@�������������������������G���A����greference-graph-refs��g%reference-graph-refs-procedure��gm-a11d84f71ea-1d07���������fl-a11d84f71ea-1d09��������������������������������������������������47����������������������fl-a11d84f71ea-1d0c��fl-a11d84f71ea-1d0d������������������������
�����������������������������������������������fl-a11d84f71ea-1d11��fl-a11d84f71ea-1d12������������������������
���������������������������������������������fl-a11d84f71ea-1d16��fl-a11d84f71ea-1d17������������������������
��������������������t�����������gt-a11d84f71ea-1d06�����fl-a11d84f71ea-1d1b������������������������
��������������������47������������7�����F��������������������������������?�������������������������������������������������������������������g reference-graph-toplevel-context��g+%reference-graph-toplevel-context-procedure��gm-a11d84f71ea-1d22���������fl-a11d84f71ea-1d24��������������������������������������������������47����������������������fl-a11d84f71ea-1d27��fl-a11d84f71ea-1d28�������������������
������������������ ����
� ���
��fl-a11d84f71ea-1d2c�
fl-a11d84f71ea-1d2d�
����������������
������������ ��������������fl-a11d84f71ea-1d31�fl-a11d84f71ea-1d32�����������������
����� ���!����"�t!��# "�$#�%gt-a11d84f71ea-1d21�&%�'fl-a11d84f71ea-1d36�('�)�&�(�*�)�����������
�+��*��,)�����������47�-��,��.-�/�7,��0�F,��1��,��21-�3�)���4��3��5024�6�?,��7)���8� 7��96-8�:��,��;�,��<��3��=;<�>:-=�?/59>�@+.?�A����B��A��Cgm-a11d84f71ea-1d3d�DC��ED�Ffl-a11d84f71ea-1d42�Gfl-a11d84f71ea-1d43�Hfl-a11d84f71ea-1d44�Ifl-a11d84f71ea-1d45�Jfl-a11d84f71ea-1d46�KFGHIJ�L��EK�MD�Nfl-a11d84f71ea-1d3f�ON�P��MO�QL�P�������47
�R��Q��S�L�P�T��S��U�@S��V��S��W��S��XUVW�Ygand=>�Zggraph-reachable-nodes�[g
vlist-fold�\ggraph-reachable-nodes*�]g
partition*�^gtoplevel-define-name�_gtoplevel-define-src�`gtoplevel-set-name�agtoplevel-set-src�bgmodule?�cgmodule-variable�dgmodule-public-interface�egmacro?�fgvlist-filter�ggunused-toplevel�hg<toplevel-ref>�igtoplevel-ref-name�jgtoplevel-ref-src�kg<toplevel-info>�lg%make-toplevel-info-procedure�mgmake-toplevel-info�ngm-a11d84f71ea-1e83�on��pgt-a11d84f71ea-1e81�qgt-a11d84f71ea-1e82�rpq�soo�tfl-a11d84f71ea-1e88�ufl-a11d84f71ea-1e89�vtu�w�rsv�xo�yfl-a11d84f71ea-1e85�zy�{��xz�|ow�{���������
�}��|��~�w�{���~����~������gm-a11d84f71ea-1e7f�������w�{�����
� 47���������k~����
����������}������{���l�������g%toplevel-info?-procedure��gtoplevel-info?��gm-a11d84f71ea-1e92������gt-a11d84f71ea-1e91��������fl-a11d84f71ea-1e97�����������fl-a11d84f71ea-1e94������������������������
��������������~��������������������47���j������������������������F���������������������k������������������������������gtoplevel-info-refs��g%toplevel-info-refs-procedure��gm-a11d84f71ea-1e9e���������fl-a11d84f71ea-1ea0���������������������������������������������������47����������������������fl-a11d84f71ea-1ea3��fl-a11d84f71ea-1ea4������������������������
��������������������k��������������������������fl-a11d84f71ea-1ea8��fl-a11d84f71ea-1ea9������������������������
�������������������
��������������������������fl-a11d84f71ea-1ead��fl-a11d84f71ea-1eae������������������������
�������������g%%<toplevel-info>-set-fields���������������������gt-a11d84f71ea-1e9d�����fl-a11d84f71ea-1eb2������������������������
���������������������47������������7�����F���������������������k����������?����������
����������������������������������������������������gtoplevel-info-defs�g%toplevel-info-defs-procedure�gm-a11d84f71ea-1eb9����fl-a11d84f71ea-1ebb� �
�� ��
��������������
��
����
���������47�����������fl-a11d84f71ea-1ebe�fl-a11d84f71ea-1ebf�����
���������
����������
��k������� ��!� ��"fl-a11d84f71ea-1ec3�#fl-a11d84f71ea-1ec4�$"#�%�$�&%�
���������
�'��&��(�&��)%�
�*�)��+(*�,+�-���.�-�/�.��0fl-a11d84f71ea-1ec8�1fl-a11d84f71ea-1ec9�201�3�2�43�
���������
�5��4��6�4��7�3�
�8��7��968�:9�;gt-a11d84f71ea-1eb8�<;�=fl-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��Ygm-a11d84f71ea-1ed4�ZY��[Z�����\fl-a11d84f71ea-1ed9�]fl-a11d84f71ea-1eda�^fl-a11d84f71ea-1edb�_fl-a11d84f71ea-1edc�`fl-a11d84f71ea-1edd�a\]^_`�b��[a�cZ�dfl-a11d84f71ea-1ed6�ed�f��ce�g�b�f�������47
�h��g��i�b�f�j�ki��k��i��l�i��mkl�ng<const>�ogtoplevel-define!�pgresolve-module�qgoop�rggoops�sqr�tg<module-ref>�uggoops-toplevel-definition�vg
vhash-delq�wgunbound-variable�xg
vlist-reverse�yg<arity-info>�zg%make-arity-info-procedure�{gmake-arity-info�|gm-a11d84f71ea-2136�}|��~gt-a11d84f71ea-2133�gt-a11d84f71ea-2134��gt-a11d84f71ea-2135��~���}}}��fl-a11d84f71ea-213b��fl-a11d84f71ea-213c��fl-a11d84f71ea-213d�������������}��fl-a11d84f71ea-2138�����������}������������
��������gtoplevel-calls��������������glexical-lambdas��������gtoplevel-lambdas�������������gm-a11d84f71ea-2131���������������
� 47���������y�����
�����������������������z���������g%arity-info?-procedure��garity-info?��gm-a11d84f71ea-2147������gt-a11d84f71ea-2146��������fl-a11d84f71ea-214c�����������fl-a11d84f71ea-2149������������������������
��������������~��������������������47���j������������������������F���������������������y������������������������������gtoplevel-procedure-calls��g#%toplevel-procedure-calls-procedure��gm-a11d84f71ea-2153���������fl-a11d84f71ea-2155���������������������������������������������������47����������������������fl-a11d84f71ea-2158��fl-a11d84f71ea-2159������������������������
��������������������y��������������������������fl-a11d84f71ea-215d��fl-a11d84f71ea-215e������������������������
�������������������
��������������������������fl-a11d84f71ea-2162��fl-a11d84f71ea-2163������������������������
�������������g%%<arity-info>-set-fields���������������������gt-a11d84f71ea-2152�����fl-a11d84f71ea-2167������������������������
��������������������47�������7���F�������������y�� �
�?�������
��
��������������
�����������g%lexical-lambdas-procedure�gm-a11d84f71ea-216e����fl-a11d84f71ea-2170�������������������� ��! ��"�����������47�#��"��$�#�%�!$��&�'fl-a11d84f71ea-2173�(fl-a11d84f71ea-2174�)'(�*�&)�+*����������
�,��+��-�+��.�*��/�y.��0-/�10�2�"��3�2�4�!3��5fl-a11d84f71ea-2178�6fl-a11d84f71ea-2179�756�8�&7�98����������
�:��9��;�9��<8��=�<��>;=�?>�@�"��A�@�B�!A��Cfl-a11d84f71ea-217d�Dfl-a11d84f71ea-217e�ECD�F�&E�GF����������
�H��G��I�G��J�F��K��J��LIK�ML�Ngt-a11d84f71ea-216d�ON�Pfl-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�mgm-a11d84f71ea-2189�nm��on�pfl-a11d84f71ea-218b�qp�r��oq�sn�r����������t��s��u�t�vu��w��r���������47�x��w��y�x�z�vy��{nn�|fl-a11d84f71ea-218e�}fl-a11d84f71ea-218f�~|}��{~��n�r���������
���������������r���y������������w��������v����fl-a11d84f71ea-2193��fl-a11d84f71ea-2194�������{���n��r���������
���������������r��� ������������w��������v����fl-a11d84f71ea-2198��fl-a11d84f71ea-2199�������{���n��r���������
����������������r���������������gt-a11d84f71ea-2188�����fl-a11d84f71ea-219d�������o���n��r���������
�����������r���������47������������7�����F�����������������r���y����������?������r��� ������������������������������������������������r���l����gm-a11d84f71ea-21a4�������������fl-a11d84f71ea-21a9��fl-a11d84f71ea-21aa��fl-a11d84f71ea-21ab��fl-a11d84f71ea-21ac��fl-a11d84f71ea-21ad������������������fl-a11d84f71ea-21a6����������������������47
���������������y���������������������������gprogram?��gprocedure-name��g
arity:nreq��g
arity:nopt��garity:rest?��gcar��garity:kw��garity:allow-other-keys?��gprogram-arities��g
procedure?��gprocedure-minimum-arity��glambda-meta��g assoc-ref��gconst?��g const-exp��gkeyword?��garity-mismatch��gwith-output-to-string��gwrite��gvalidate-arity��gapplication-src��g
vlist-tail��gcatch��������g
module-ref��g
toplevel-ref?��glambda?��fformat-string-syntax-error��g
&syntax-error��gthrow��gunterminated-conditional��gtilde��gliteral��g
take-while��0123456789
��gstring->number��glist->string��gevery��gnumber?��glist-ref� gmin� gunexpected-semicolon� g"unexpected-conditional-termination� gunterminated-iteration� gunexpected-termination� fcomputer bought the farm� gstring->list� gformat-string-argument-count� gresolve-interface� gensureS�
g proc-ref?� ggettext� ggettext?�
gngettext� gN_� g ngettext?� gstring?� g const-fmt� gboolean?� gformat� g
wrong-port� gnegate� gnon-literal-format-string� z� z� fno matching pattern� gwrong-format-string� gwrong-num-args� gwrong-format-arg-count� gsyntax-error� g
make-const� ASas~%� g
simple-format� ! � " � # � $ ! � % ! �C5h�Tk]04
23;54>>"G?@h(�]
454>"GC�gk
"gv "gres "gfilenameflanguage/tree-il/analyze.scm�
�
�� �
�� � ��
� �� " gnameg
make-hashq�CARh�]LL6{gy
gfilenameflanguage/tree-il/analyze.scm�
� �� � &��
� ��
gnamegstep�CBCDEFGHIJKLM@NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu@hk]M6cgsym
gfilenameflanguage/tree-il/analyze.scm�
�� �� Cvwxy@h|]M6tgsym
gval gfilenameflanguage/tree-il/analyze.scm�
�� #�� CdW@jeNz{ h�]�&o454M>"G4L4LL554M44M55>"G4M>"GC6gx
�grtd �gbody ~gfree A ~gfilenameflanguage/tree-il/analyze.scm�
�� �� �� .�� % �� .� �� 5� �� A� �� A �� D! �� K! 0�� N! :�� X! 0�� ]! �� f" ��� �� �C|}uN@h0�]4M5$4M>"GL6C~gsym
,gfilenameflanguage/tree-il/analyze.scm�
* �� + !�� + �� - #�� *. #�� ,Ch(�] 4L5$LLO6C�gsym
$grefs $gfilenameflanguage/tree-il/analyze.scm�
' �� ( �� ( �� )
�� "* �� $gnamegdelabel-dependents!�CNh}]4M5$CL6ugsym
gfilenameflanguage/tree-il/analyze.scm�
= �� > �� > �� ? �� CN@j~hX�]4M5$G4ML44M54ML55>"G4M>"GM6C�gsym
Xgval Xgfilenameflanguage/tree-il/analyze.scm�
D
�� E �� E �� I �� J �� J &�� #K &�� -J �� 2I �� ;L �� VM �� X C�����������������������Zh�
]MOLQ�&:45454L$"545@&I4 54
545 4L54L54L 56&"4
54M4M
5�>"G"4M>"�G"�$�45$�4M5$�"~ $s4 5$c44 5545�$,4 5$"4 5$"4 5�"
$
"'4 5 "���
""
45 "��u"$""�� ""��""��C&P45454M>"G4M>"G4L56&45"���&4 5"���!&4"5"��d#&m4$5"U(C�( �
4L
5
6�4 �
4L
5
5 "��� "���%&h454M>"G4L54M4&4M55>"G4M>"GC'&�4(54)54*545
4>"G4>"G4M4+4,54M55>"G4-4445?4L 555
$4L
5"6.&j4/5405415 4M4+4,54M55>"G-44L 545?62&�435445455 4M4+4,54M55>"G467LO>"G-44L 545?68&�4954:54;5 46<LO>"G4M4+4,54M55>"G4=LLLO5
4>
54L 4+55?O
L
Q
46@
LO>"G46ALLLO>"G-4
?6B&04C54D54L54L56E&E4F54G54H5 4L54L54L 56I&=4J54K54L5 4L 544+55@M&4N5"���O&04P54Q54L54L56R&G4S54T54U5 4L54L54L 56V&B4W54X54Y5 4L54L 545@C�
gx
gproc
glabels-in-proc
gtail?
gtail-call-args
gstep
grtd
gproc - Ygargs - Ygtest v�g
consequent v�g alternate v�ggensym ��gp �gc �gt
u�ggensym �,gexp �,gexp ;Rgexp axgexp ��gexps �gexps �gret �gy
��gy
��gbody "�gfree F�ginits �Iggensyms �Igbody �Ig alternate
�Iggensyms f�gvals f�gbody f�ggensyms �Fgvals �Fgbody �Fggensyms cJgvals cJgbody cJgvar-refs
�Jgvars-with-refs �Jg body-refs �Jgdelabel-dependents!
�Jgexp `�gbody `�gbody ��gwinder ��gunwinder ��gfluids �gvals �gbody �gfluid #:gfluid Prgexp Prgtag ��gbody ��ghandler ��gtag �gargs �gtail �>gfilenameflanguage/tree-il/analyze.scm�
� �� � �� 6� $�� E� .�� N� $�� O� �� Y� �� a� ���� ���� &���� ���� ���� ���� ���� ���� (���� $���� ���� ���� ���� ��
� ��� ��� ��� ��� ��%� ��&� %��0� ��1� ,��4� 4��<� ,��=� ,��D� )��H� $��I� .��S� $��Y� .��c� $��i� .��p� )��u� #���� (���� $���� ���� (���� ���� ���� ���� ���� ��� ��� ��$� &��(� ��,� ��4� ��B� &��R� ��Z� ��h� &��x� ���� ���� &���� ���� ���� ���� ���� ���� ���� ���� /���� $���� ���� ���� ���� ���� 9���� 3���� ���� &���� ��� ��� ��� ��� !��� ��� ��%� ��,� ��1� ��:� ��A� 4��F� ��F� ��I� ��P� "��S� ,��]� "��b� ��k� ���� ���� ���� ���� ���� -���� ���� ��� ��� ��� %��� ;��� %��� ��*� ��.� ��4� ��5� ��G� ,��I� ��Q� ��m� ��t� ��w� ��~� -���� ���� ��� ���� ��� ?��� ��� ���� ��� ��� ��� ��� -��� ��� �� ��% ��*� ��8 ?��B ��F ��N� ��j ��� ��� ��� ��� -��� ��� ��� ��� ���% ��� ���� ���� ���� ��� ���= ��C ��<P ��JO ��R� ��i� ��p� &��t� ��|� &���� ���T ���� ���� ���� &���� ���� &���� ���� &���� ���W ���� ���� ���� &��� ��Z )��Z 3��Z )��Z ��� ��*� &��:� ��B� ��Y� ��`� &��d� ��l� &��p� ��r` ��z� ���� ���� &���� ���� &���� ���� ���c ���� ���� ���� &���� ���� &��� ��f 4��f ��h ���
gnameganalyze!�Ch{]LLL6sgy
gfilenameflanguage/tree-il/analyze.scm�
p �� p �� gnamegrecur�CBCD�GHIJKXZ\]^_`abcdW@NNhr]4M5L6jgv
gfilenameflanguage/tree-il/analyze.scm�
� �� � �� � �� C��Nht]4M5�Clgsym
gfilenameflanguage/tree-il/analyze.scm�
� "�� � .�� � $�� CfghiVSThi]LLL6agx
gfilenameflanguage/tree-il/analyze.scm�
� !�� � -�� C��Amnop�Q�Mqrsthi]LLL6agx
gfilenameflanguage/tree-il/analyze.scm�
� %�� � '�� Cvwxyz{�����������j���������P����Vhx�]kOLQ�&*45454L545@&@454 54
54L54L54L56&45"��M
&45"��,&45"��&45"���&4545@&�45"D�$944M�54M�5��>"G��"���"4M5
"���4LO4M5544LO4M5554L
>"G4M�>"GC&�45454 54!54">"G4#>"G"� (K44L
54$
LO5?4M4%&5�>"G"H4M �4'4M �5
��5>"G �
�
"��v
"��j$4L5"6(&u4)54*54+5445?"c"S (4L
56 �4M4'4M5
��5>"G �
�
"���
"���4,5$�4-5�$�� 4M 5$"f4M
5 �$T4.455$?4/455 &(4.4 55$4/4 55 �"""" $;4M�4'��5>"G�4L4
556"���"���"���0&�415425435"l(*444 LO5?
4L 56�
4M
4'4M
5 ��5>"G� � "��� "���5&C465475485"(�"�
(4L 564M
�5$S
���
�&"4
544L 55" 49:
5
"���
��44L� 55
"��e
"��U�
4M
5$9;64M
5$
� "��4M
4' ��5>"G� � "��� "���<&,4=54>54L54L56?&@4@54A54B54L54L54L56C&:4D54E54F54L544G55@H&4I5"���J&,4K54L54L54L56M&�4N54O54P54Q5$45�$45�""4M$4M
5
�">"G4L54L54L56R&>4S54T54U54L54L545@C�gx
ugproc ugn ugrecur ugrtd ugproc 0 Lgargs 0 Lgtest i�g
consequent i�g alternate i�gexp ��gexp ��gexp ��gexp gexps '6gbody Egc K�gn K�gfree-addresses �glabels �ginits 3ggensyms 3gbody 3g alternate 3ggensyms e�gn
e�gnlocs ��ggensyms 1�gvals 1�gbody 1�gnmax E�ggensyms O�gn
O�gv i�gv �Fggensyms �0gvals �0gbody �0ggensyms �$gn �$gnmax
��gv
�$ggensyms M{gvals M{gbody M{gin Wogn Woggensyms
a�gvals a�gnmax a�gr
��grtd ��gbody ��gv
ogexp ��gbody ��gbody ��gwinder ��gunwinder ��gfluids 9gvals 9gbody 9gfluid HZgfluid p�gexp p�gtag �,gbody �,ghandler �,gcont-var �,gtag Irgargs Irgtail IrHgfilenameflanguage/tree-il/analyze.scm�
o �� q �� 7p �� Bs �� Ls �� Tq �� rp ���v ���q ���p ���q ���p ���q ���p ���q ��p �� q ��,� ��6� ��>q ��K� ��N�
��R� ��S� ��V� ��]� 1��_� ��b� ��c� !��j� 5��l� !��o� ��u� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� "���� ���� ���� ���� ���� ���� "���� ��q ��e� ��k�
��l� ��o� ��z� ���� ���� ���� ���� /���� 7���� /���� )���� ���� ���� '���� ���� "���� (���� <���� (���� "���� ���� ���� ���� "���� ���� ��� ��� ��� ��q ��8� ��;� ��E� ��E� ��O� ��U�
��Z� ��f� ��i� ��i� ��l� ��s� ��x� ��y� &���� ���� ���� ���� ���� %���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� %���� ���� ���� ��� 0��
� ��� ��� ��� %��� �� � ��!� ��$� 0��,� ��/� ��J� ��K� ��R� "��S� ��X� (��_� ��d� ��s� ��t� ��w� '���� ���� ���q ���� ���� ���� ���� ���� ����
���� ���� ���� ����
���� ���� ���� ���� "��� �� � ��� ��� ��� !��$� ��$� ��8q ��W� ��]� ��a�
��g� ��l� ��x� ��y� ���� #���� ���� ���� ���� ���� "���� ���� ���� "���� ���� ���� ���� ���� ���� ���� ���� *���� ���� ���� ����
��� ���
��� ��� ��"� ��&� ��'� ��3� ��6� ��@� ��A� ��H� *��M� ;��T� *��Y� ��d� ��g� ��o� ��o� ���q ���p ���� ���q ���p ��� ���q ��p ��( ��- *��7 ��9 ��Aq ��Zp ��bq ��wp ���
���q ���
���
��� #��� ���
��� !��� ���
��� ��� ��� *��� #��� ��
p ��, ��4q ��Rp ��h +��r ��� u gnameg allocate!�C?h��]AHHHHHHOOQQ45K45K45K45K45K45K4>"G4
>"GJC�gx
�g
bound-vars �g free-vars �gassigned �g refcounts �glabels �g
allocation �ganalyze! /�g allocate! /� gfilenameflanguage/tree-il/analyze.scm�
�
�� P� �� W� �� ^� �� e� �� l� �� sm �� z ��� ��� ��� �� �gnameganalyze-lexicals�C4R�h�]�C�gleaf
gdown gup gpost ginit gfilenameflanguage/tree-il/analyze.scm�
#
�� gnameg%make-tree-analysis-procedure�C�R4�����=h�]C�gt-a11d84f71ea-1a60
gt-a11d84f71ea-1a61 gt-a11d84f71ea-1a62 gt-a11d84f71ea-1a63 gt-a11d84f71ea-1a64 C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� #
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� #
��
CHh]C
CJKhp�]45$@45$O@45$4O?$@
6
6�gx
ngtmp ngtmp " ngtmp > ngfilenameflanguage/tree-il/analyze.scm�
#
�� nC5�RNOR�S�4V�>"G Y��i��R�h�]�$��CCgobj
gfilenameflanguage/tree-il/analyze.scm�
#
�� gnameg%tree-analysis?-procedure�CZR4�[��\�h:]C2gt-a11d84f71ea-1a79
C?B[Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� #
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� #
��
C�h]C
CJKhp�]45$@45$O@45$4O?$@
6
6�gx
ngtmp ngtmp " ngtmp > ngfilenameflanguage/tree-il/analyze.scm�
#
�� nC5[R���h�]�&
�C6�gs
gfilenameflanguage/tree-il/analyze.scm�
#
�� gnameg%tree-analysis-leaf-procedure�C�R4�����
h:]��C2gerr
gs Ch:]��C2gerr
gs C &,h:]��C2gerr
gs C\Jh:]C2gt-a11d84f71ea-1a85
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� #
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� #
��
CLh]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
#
�� �C5�R��Mh�]�&�C6�gs
gfilenameflanguage/tree-il/analyze.scm�
#
�� gnameg%tree-analysis-down-procedure�CNR4�M��\chh:]��C2gerr
gs Ckqvh:]��C2gerr
gs Cy�h:]��C2gerr
gs C\�h:]C2gt-a11d84f71ea-1aa0
C?BMCh`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� #
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� #
��
C�h]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
#
�� �C5MR���h �]�& �C6gs
gfilenameflanguage/tree-il/analyze.scm�
#
�� gnameg%tree-analysis-up-procedure�C�R4�������h:]��C2gerr
gs C���h:]��C2gerr
gs C���h:]��C2gerr
gs C\�h:]C2gt-a11d84f71ea-1abb
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� #
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� #
��
C�h]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
#
�� �C5�R���h �]�& �C6�gs
gfilenameflanguage/tree-il/analyze.scm�
#
�� gnameg%tree-analysis-post-procedure�C�R4����h:]��C2gerr
gs C"h:]��C2gerr
gs C%+0h:]��C2gerr
gs C\Lh:]C2gt-a11d84f71ea-1ad6
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� #
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� #
��
CNh]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
#
�� �C5�R��Oh �]�& �C6�gs
gfilenameflanguage/tree-il/analyze.scm�
#
�� gnameg%tree-analysis-init-procedure�CPR4�O��^ejh:]��C2gerr
gs Cmsxh:]��C2gerr
gs C{��h:]��C2gerr
gs C\�h:]C2gt-a11d84f71ea-1af1
C?BOCh`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� #
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� #
��
C�h]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
#
�� �C5OR4�(��������h v]45�����Cngdummy
gcheck? gs ggetter gexpr CJKh(�] 45$@6�gx
"gtmp "gfilenameflanguage/tree-il/analyze.scm�
#
�� "g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5(R��Gh�]4L5LLL6�ganalysis
gresult gfilenameflanguage/tree-il/analyze.scm�
9 �� : �� : �� Ch(�]
�4LLOL�5�C�gx
"gresults "glocs "gfilenameflanguage/tree-il/analyze.scm�
6 �� 7 !�� 7 ��
9 �� < �� 9 �� !8 �� " CN�Gh�]4L5LLL6�ganalysis
gresult gfilenameflanguage/tree-il/analyze.scm�
9 �� : �� : �� Ch8�]
�45�4LLOL�5�C�gx
1gresults 1glocs glocs 1gfilenameflanguage/tree-il/analyze.scm�
6 �� 7 !�� 7 �� @ %�� @ �� 7 �� 9 �� -< �� /9 �� 08 �� 1 C�Gh�]4L5LLL6�ganalysis
gresult gfilenameflanguage/tree-il/analyze.scm�
9 �� : �� : �� Ch0�]
��4LLOL�5�C�gx
*gresults *glocs
glocs
*gfilenameflanguage/tree-il/analyze.scm�
6 �� 7 !�� 7 ��
A ��
7 �� 9 �� &< �� (9 �� )8 ��
* CGPu���h(�]�& �" 45L6|ganalysis
#gresult #gfilenameflanguage/tree-il/analyze.scm�
K �� L �� # Chp�]4OOO4 5�54
O�>"GC�ganalyses
ngtree ngenv ngproc gproc )gproc + ;gresults J kgfilenameflanguage/tree-il/analyze.scm�
,
�� D �� D �� E �� +F �� <G �� =H �� FG �� JD �� JC �� MK �� [N �� `K �� n gnameganalyze-tree�g
documentationfhRun all tree analyses listed in ANALYSES on TREE for ENV, using
`tree-il-fold'. Return TREE. The leaf/down/up procedures of each analysis are
passed a ``location stack', which is the stack of `tree-il-src' values for each
parent tree (a list); it can be used to approximate source location when
accurate information is missing from a given `tree-il' element.�C5R�h�]�C�gvars
grefs gfilenameflanguage/tree-il/analyze.scm�
Z
�� gnameg%make-binding-info-procedure�C�R4������hZ]CRgt-a11d84f71ea-1b73
gt-a11d84f71ea-1b74 C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� Z
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� Z
��
Ch]C
CJKhp�]45$@45$O@45$4O?$@
6
6�gx
ngtmp ngtmp " ngtmp > ngfilenameflanguage/tree-il/analyze.scm�
Z
�� nC5�RNR��4V�>"G Y��i��R�h�]�$��CC~gobj
gfilenameflanguage/tree-il/analyze.scm�
Z
�� gnameg%binding-info?-procedure�CR4���\ h:]C2gt-a11d84f71ea-1b83
C?BCh`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� Z
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� Z
��
C"h]C
CJKhp�]45$@45$O@45$4O?$@
6
6�gx
ngtmp ngtmp " ngtmp > ngfilenameflanguage/tree-il/analyze.scm�
Z
�� nC5R��#h�]�&
�C6�gs
gfilenameflanguage/tree-il/analyze.scm�
Z
�� gnameg%binding-info-vars-procedure�C$R4�#��29>h:]��C2gerr
gs CAGLh:]��C2gerr
gs COU[h:]��C2gerr
gs C\wh:]C2gt-a11d84f71ea-1b8f
C?B#Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� Z
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� Z
��
Cyh]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
Z
�� �C5#R��zh�]�&�C6�gs
gfilenameflanguage/tree-il/analyze.scm�
Z
�� gnameg%binding-info-refs-procedure�C{R4�z�����h:]��C2gerr
gs C���h:]��C2gerr
gs C���h:]��C2gerr
gs C\�h:]C2gt-a11d84f71ea-1baa
C?BzCh`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� Z
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� Z
��
C�h]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
Z
�� �C5zR4�W��������h v]45�����Cngdummy
gcheck? gs ggetter gexpr CJKh(�] 45$@6�gx
"gtmp "gfilenameflanguage/tree-il/analyze.scm�
Z
�� "g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5WR��h�] 456gsym
gfilenameflanguage/tree-il/analyze.scm�
`
�� b �� b �� gnameggensym?�C�R��z#�XY�fRSUThg�G���h�]L6�gvar
gname gvars gfilenameflanguage/tree-il/analyze.scm�
w ��
x "�� x �� Cmn��h�]L6�gvar
gname gvars gfilenameflanguage/tree-il/analyze.scm�
w ��
x "�� x �� Cqr��h�]L6�gvar
gname gvars gfilenameflanguage/tree-il/analyze.scm�
w ��
x "�� x �� Cvw��h�]L6�gvar
gname gvars gfilenameflanguage/tree-il/analyze.scm�
w ��
x "�� x �� C!h��]\�&�" 45�&
�" 4545�&4545 �C &�4
545454
545
4>"G44 $ "4
$
"$4�5"555
4O
5�C&04545 4O 5
�C&04545 4O 5
�C&04545 4 O 5
�CC�gx
�ginfo �genv �glocs �grefs =�gvars =�gsrc =�grtd F�ggensym W ogrefs c ogreq �gopt �grest
�gkw �ggensyms �gnames
�gvars
ggensyms /Qgnames /Qgvars
EQggensyms g�gnames g�gvars
}�ggensyms ��gnames ��gvars
��gfilenameflanguage/tree-il/analyze.scm�
p �� s �� t �� 7u �� =s �� F} �� Z "�� c
�� w} ���� ���� ���� #���� ���� ���� $���� 0���� ���� "���� ,���� "���� 6���� ����
���w ��
� ��!} ��4w ��E�
��Y} ��lw ��}�
���} ���w ����
��# � C��z#�O�P������
h�p]�4L5$m4L5$"4L5�$M�����$" 4L545$"��$
6CCChgvar
�ggensym �gt ; Ugname U gloc U gfilenameflanguage/tree-il/analyze.scm�
�
�� � �� � �� � �� � �� � �� !� �� '� �� .� �� 2� �� 5� �� 9� "�� ;� �� J� "�� U� �� Z� "�� d� �� m� ,�� n� "�� o� �� s� �� w� !�� }� �� �C�Qh0�]4LLOL>"GL456�g
inner-vars
.grefs .gfilenameflanguage/tree-il/analyze.scm�
� �� � �� &� �� .� �� . gnamegshrink�Cfhmnqrvwh�]4�&�" 45�&
�" 45OQ�&4545 �C&4 545 �C
&4545 �C&4
545 �CCgx
�ginfo �genv �glocs �grefs 6�gvars 6�gshrink D�grtd P�ggensyms a xgvars l xggensyms ��gvars ��ggensyms ��gvars ��ggensyms ��gvars ��gfilenameflanguage/tree-il/analyze.scm�
� �� � �� � �� 6� �� P� �� d� �� l�
���� ���� ����
���� ���� ����
���� ���� ����
�� � C�i�i�i��i��z#LM�hp&],�&�" 45�&
�" 45�&4545�CCgx
iginfo igenv iglocs igrefs 6 igvars 6 igrtd = iggensym N fgrefs Z f gfilenameflanguage/tree-il/analyze.scm�
g �� i �� j �� 6i �� =k �� Qm "�� Zm
�� i Chv]Cngresult
genv gfilenameflanguage/tree-il/analyze.scm�
� �� C�6R�h�]�C�grefs
gdefs gtoplevel-context gfilenameflanguage/tree-il/analyze.scm�
�
�� gnameg%make-reference-graph-procedure�C�R4�����hz]Crgt-a11d84f71ea-1ccc
gt-a11d84f71ea-1ccd gt-a11d84f71ea-1cce C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� �
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� �
��
Ch]C
CJKhp�]45$@45$O@45$4O?$@
6
6�gx
ngtmp ngtmp " ngtmp > ngfilenameflanguage/tree-il/analyze.scm�
�
�� nC5�RNR� �4V�>"G Y��i��R�h�]�$��CC�gobj
gfilenameflanguage/tree-il/analyze.scm�
�
�� gnameg%reference-graph?-procedure�C!R4�"��\=h:]C2gt-a11d84f71ea-1cdf
C?B"Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� �
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� �
��
C?h]C
CJKhp�]45$@45$O@45$4O?$@
6
6�gx
ngtmp ngtmp " ngtmp > ngfilenameflanguage/tree-il/analyze.scm�
�
�� nC5"R��@h�]�&
�C6�gs
gfilenameflanguage/tree-il/analyze.scm�
�
�� gnameg%reference-graph-defs-procedure�CAR4�@��OV[h:]��C2gerr
gs C^dih:]��C2gerr
gs Clrxh:]��C2gerr
gs C\�h:]C2gt-a11d84f71ea-1ceb
C?B@Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� �
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� �
��
C�h]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
�
�� �C5@R���h�]�&�C6�gs
gfilenameflanguage/tree-il/analyze.scm�
�
�� gnameg%reference-graph-refs-procedure�C�R4�������h:]��C2gerr
gs C���h:]��C2gerr
gs C���h:]��C2gerr
gs C\�h:]C2gt-a11d84f71ea-1d06
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� �
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� �
��
C�h]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
�
�� �C5�R���h �]�& �C6�gs
gfilenameflanguage/tree-il/analyze.scm�
�
�� gnameg+%reference-graph-toplevel-context-procedure�C�R4�����h:]��C2gerr
gs Ch:]��C2gerr
gs C$h:]��C2gerr
gs C\@h:]C2gt-a11d84f71ea-1d21
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� �
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� �
��
CBh]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
�
�� �C5�R4�t���RTX��h v]45�����Cngdummy
gcheck? gs ggetter gexpr CJKh(�] 45$@6�gx
"gtmp "gfilenameflanguage/tree-il/analyze.scm�
�
�� "g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5tR�Y���h]LL6wgkid
gresult gfilenameflanguage/tree-il/analyze.scm�
� �� � !�� C�h]6wgkid
gresult gfilenameflanguage/tree-il/analyze.scm�
� �� � �� Ch�{]45$" 45$C44L55$"454LO56sgroot
ygpath ygresult ygt $gt ; Mgchildren M ygpath Y ygresult m ygfilenameflanguage/tree-il/analyze.scm�
� �� � �� � �� � �� (� �� ,� �� /� $�� ;� �� ;� �� J� @�� M� �� P� �� Y� �� \� �� m� �� y�
�� y gnamegloop�C�h �]OQ6�groot
grefs g reachable gloop gfilenameflanguage/tree-il/analyze.scm�
�
�� � �� gnameggraph-reachable-nodes�CZR[Z�h �]�4L56�g root+true
gresult groot g reachable gfilenameflanguage/tree-il/analyze.scm�
� �� � "�� � �� � "�� � �� � �� C�h�]O6�groots
grefs gfilenameflanguage/tree-il/analyze.scm�
�
�� � �� gnameggraph-reachable-nodes*�C\R[�h@]"����4L5$45�C45�Cgk+v
?gresult ?gk ?gv ?gr1 ?gr2 ?gfilenameflanguage/tree-il/analyze.scm�
� �� � !�� � !�� � !�� � !�� � �� � �� !� �� "� #�� /� �� 3� &�� >� ��
? C�h �]
4O�5��D�gpred
gvhash gresult gfilenameflanguage/tree-il/analyze.scm�
�
�� � �� � �� � �� � �� � �� � �� � �� gnameg
partition*�C]R���@�Y���
h��]*�&�" 45�&
�" 45�& �" 454455$"4 �5�C�ggraph
�gname �grefs �gdefs 8�gctx U�gt g ygctx-refs y�grefs ��gfilenameflanguage/tree-il/analyze.scm�
�� �� �� ! �� 8 �� = �� U �� X �� [ '�� g �� g �� v B�� y �� | #��� 4��� #���
�� � gnamegadd-ref-from-context�C���@�`^_���^`ah��]4�&�" 45�&
�" 45�&
�"4>"G�&>45454 $" 4
55 �C
54>"GL6C�gx
�ggraph �genv �glocs �grefs 6�gdefs 6�grtd d�gname |�gsrc |�gdefs ��gname ��gfilenameflanguage/tree-il/analyze.scm�
�� �� �� 6 �� = �� d ���" ���" *���" 2���" ���! ���$ ��� ���& �� � CO]bcdeh`] 4L5$44L55"$C4L5$#4L5$$6CCCgname
[gt [gvar ? Ygfilenameflanguage/tree-il/analyze.scm�
A !�� <
��
< �� =
�� = �� =
�� B #�� , �� 6 �� 7
�� ?
�� G
�� J �� N
�� S �� U �� [C��@��\f�h�]4�L5�C�gname+src
gfilenameflanguage/tree-il/analyze.scm�
H )�� I 0�� I <�� I 0��
I +�� C���gh(�]��45$C6�gname+loc
#gname #gloc #gfilenameflanguage/tree-il/analyze.scm�
L �� M )�� N )�� M ��
O (�� O �� P ,�� #P #�� #C
h�m]24O�&
�" 45>G45�&�" 45454
O56eggraph
}genv }gpublic-defs , }gprivate-defs , }groots < }grefs X }g reachable c }gunused s }gfilenameflanguage/tree-il/analyze.scm�
2 �� A �� D !�� +A �� /@ �� 4E �� <E �� AF �� XE �� [G �� cE �� fH �� sE �� }L �� } CQ�i�i�i��i���hijh`�]�&
�"4>"G�dž>"GL6C�gx
\ggraph \genv \glocs \grtd , \gname = Ygfilenameflanguage/tree-il/analyze.scm�
�� �� , �� Y �� \ CO`���@hX�]�&C�&�" 45�&
�" 45�CC�gx
Uggraph Ugenv Uglocs Ugrtd Ugrefs C Rgdefs C Rgfilenameflanguage/tree-il/analyze.scm�
) �� + �� - �� ,. �� C-
�� Q/ �� U C�7Rkh�]�C�grefs
gdefs gfilenameflanguage/tree-il/analyze.scm�
^
�� gnameg%make-toplevel-info-procedure�ClR4�m����hZ]CRgt-a11d84f71ea-1e81
gt-a11d84f71ea-1e82 C?BmCh`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� ^
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� ^
��
C�h]C
CJKhp�]45$@45$O@45$4O?$@
6
6�gx
ngtmp ngtmp " ngtmp > ngfilenameflanguage/tree-il/analyze.scm�
^
�� nC5mRNRk��4Vk>"G Y�li�kRkh�]�$��CCgobj
gfilenameflanguage/tree-il/analyze.scm�
^
�� gnameg%toplevel-info?-procedure�C�R4����\�h:]C2gt-a11d84f71ea-1e91
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� ^
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� ^
��
C�h]C
CJKhp�]45$@45$O@45$4O?$@
6
6�gx
ngtmp ngtmp " ngtmp > ngfilenameflanguage/tree-il/analyze.scm�
^
�� nC5�Rk��h�]�&
�C6�gs
gfilenameflanguage/tree-il/analyze.scm�
^
�� gnameg%toplevel-info-refs-procedure�C�R4�������h:]��C2gerr
gs C���h:]��C2gerr
gs C���h:]��C2gerr
gs C\h:]C2gt-a11d84f71ea-1e9d
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� ^
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� ^
��
Ch]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
^
�� �C5�Rk�h�]�&�C6�gs
gfilenameflanguage/tree-il/analyze.scm�
^
�� gnameg%toplevel-info-defs-procedure�CR4���h:]��C2gerr
gs C!',h:]��C2gerr
gs C/5:h:]��C2gerr
gs C\Vh:]C2gt-a11d84f71ea-1eb8
C?BCh`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� ^
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� ^
��
CXh]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
^
�� �C5R4�����hjm��h v]45�����Cngdummy
gcheck? gs ggetter gexpr CJKh(�] 45$@6�gx
"gtmp "gfilenameflanguage/tree-il/analyze.scm�
^
�� "g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�Rnhopsth�]#"T�$K���$8�&-
���$�$�(�CCCCCCC"@�$7�&,
��&45&"��pCCCC�$R�&E
���$- �& �&"��"��s"��o"��k"��g"��c�gproc
�gargs �genv �gargs Zgw Xgx Xgw 0 Tgw w�gw ��gw ��gw ��gfilenameflanguage/tree-il/analyze.scm�
d
�� h �� i �� ^n ���t ���t #���t ���t ���u
���n ���p ���n ��
� gnameggoops-toplevel-definition�CuRk��hijbc����h��]<�&
�" 45�&�" 45�&y454545$
4 5" $" 4
5 $C$" 45 4
5
�CC�gx
�ginfo �genv �glocs �grefs 6�gdefs 6�grtd =�gname U�gsrc U�gt r�gsrc ��grefs
��gfilenameflanguage/tree-il/analyze.scm�
{ �� } �� ~ �� 6} �� =� �� Z� �� d�
�� e� �� r� ����
����
���� ���� !���� ���� $���� �� � Ck���^`abc����`^vBCDuhp�]D�&
�" 45�&�" 454>"G�&}454>"G4 5$
4
5"$" 45$
�C4
545 �C&*454545 �C&Q454545 �$!4 54 5
�C�C�C�gx
kginfo kgenv kglocs kgrefs kgdefs 8kgrtd Okgname `�gt ��gsrc ��grefs ��gname �grefs �gdefs �gproc agargs agname -agrefs
IWgdefs IWgfilenameflanguage/tree-il/analyze.scm�
� �� � �� � �� !� �� 8� �� ;� �� O� �� u� �� �
���� ���� ����
����
���� ���� ���� ���� $���� ���� ���� ���� ����
��� ��#� ��-�
��2� ��6� ��7� $��@� $��I� ��`� ��j�
��! k C�i�iki��ih�]C�gx
ginfo genv glocs gfilenameflanguage/tree-il/analyze.scm�
� �� C��wh�]��6�gname+loc
gname gloc gfilenameflanguage/tree-il/analyze.scm�
� �� � #�� � #�� � �� � "�� � �� Cxk��h(�]4�&
�" 4556�gtoplevel
'genv 'gfilenameflanguage/tree-il/analyze.scm�
� �� � �� � $�� %� �� '� �� ' C�8Ryh�]�C�gtoplevel-calls
glexical-lambdas gtoplevel-lambdas gfilenameflanguage/tree-il/analyze.scm�
�
�� gnameg%make-arity-info-procedure�CzR4�{����hz]Crgt-a11d84f71ea-2133
gt-a11d84f71ea-2134 gt-a11d84f71ea-2135 C?B{Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� �
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� �
��
C�h]C
CJKhp�]45$@45$O@45$4O?$@
6
6�gx
ngtmp ngtmp " ngtmp > ngfilenameflanguage/tree-il/analyze.scm�
�
�� nC5{RNRy��4Vy>"G Y�zi�yRyh�]�$��CC|gobj
gfilenameflanguage/tree-il/analyze.scm�
�
�� gnameg%arity-info?-procedure�C�R4����\�h:]C2gt-a11d84f71ea-2146
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� �
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� �
��
C�h]C
CJKhp�]45$@45$O@45$4O?$@
6
6�gx
ngtmp ngtmp " ngtmp > ngfilenameflanguage/tree-il/analyze.scm�
�
�� nC5�Ry��h�]�&
�C6�gs
gfilenameflanguage/tree-il/analyze.scm�
�
�� gnameg#%toplevel-procedure-calls-procedure�C�R4�������h:]��C2gerr
gs C���h:]��C2gerr
gs C���h:]��C2gerr
gs C\h:]C2gt-a11d84f71ea-2152
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� �
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� �
��
Ch]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
�
�� �C5�Ry��h�]�&�C6~gs
gfilenameflanguage/tree-il/analyze.scm�
�
�� gnameg%lexical-lambdas-procedure�CR4����%,1h:]��C2gerr
gs C4:?h:]��C2gerr
gs CBHMh:]��C2gerr
gs C\ih:]C2gt-a11d84f71ea-216d
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� �
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� �
��
Ckh]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
�
�� �C5�Ry��h �]�& �C6gs
gfilenameflanguage/tree-il/analyze.scm�
�
�� gnameg%toplevel-lambdas-procedure�ClR4����z��h:]��C2gerr
gs C���h:]��C2gerr
gs C���h:]��C2gerr
gs C\�h:]C2gt-a11d84f71ea-2188
C?B�Ch`]L6Xga
gfilenameflanguage/tree-il/analyze.scm� �
�� C�FhP]L6Hgfilenameflanguage/tree-il/analyze.scm� �
��
C�h]C
CJKh��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenameflanguage/tree-il/analyze.scm�
�
�� �C5�R4����������h v]45�����Cngdummy
gcheck? gs ggetter gexpr CJKh(�] 45$@6�gx
"gtmp "gfilenameflanguage/tree-il/analyze.scm�
�
�� "g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R��G���G���h0�]454545445545C�ga
0gfilenameflanguage/tree-il/analyze.scm�
� �� � ��
� /�� � >�� � �� � )�� %� �� &� �� /� ��
0C���fRSUTVQ�d�W��kh��]Q45$454455D45$7�$
�"���4545������D"$
�&�4 54
545454
5 ("�$45"
$
"
("�$45"
$
"
�$4�5"�$�"�"��%&)454545"���D45D"����gproc
�garity G fgname j�gproc j�garities j�grtd szgreq �Egopt �Egrest �Egkw �Eg alternate �Egt
��gt
�gmeta [vgbody [vgfilenameflanguage/tree-il/analyze.scm�
� �� � ��
� �� � �� � �� � �� "� �� $� �� %� �� /� �� 2� �� 6� �� :� �� @� �� A� �� G� �� J� �� S� %�� V� 1�� Z� >�� a� �� d� �� f� �� j� �� p�
�� s ���� ���� ���� ����
���� ���� ���� ���� ���� ����
���� ���� �� +�� &�� 6�� ?��! 6��) +��- &��0 6��8 ��; ��E ��M ��` ��f *��h ��v ��z ��} ��� ���� ���� ���� ��= �gnamegarities�CD��k�O��QhX]q�$F���$3���$ ���$
���$���
(��$�"�(45"��
"�
�"���4
5$X44
55$" $44
55"$��$��""��w"���"���
L"��a"L$.$&45�$$C��CCCCCCCCCCgarity
Qgvx Ogvy Ogvx Mgvy Mgvx 1Kgvy 1Kgvx BIgvy BIgvx SGgvy
SGgargs h�gresult h�garg
|�gt ��gargs
Egcount "Agfilenameflanguage/tree-il/analyze.scm�
�� �� ` %�� d !�� h� �� n� �� o�
�� |� �� |�
���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� (���� ���� ���� !���� ���� ���� ���� ���� ���� ���� ��� ��
�� �� �� (��" ��) "��- ��3 "��= 0��> &��, QC����hY]L6Qgfilenameflanguage/tree-il/analyze.scm�
# 5�� # @��
C
h��]3OQ45454>GH4O5KJ$".4$"4 O5>"GC�gproc
�gapplication �glexical? �garities
�gargs �gsrc �gname ,�garities ,�gmatches? 4� gfilenameflanguage/tree-il/analyze.scm�
�
��
�� ��
�� " !�� / �� 7
�� L! �� Q" �� U" �� ]# �� d# �� v" �� � gnamegvalidate-arity�C�Ry����dW�LM�hih]3�&
�" 45�&�" 45�& �" 45�&+4>"G45�C &/4
545�$�"��?C&+4
>"G45�CCglexical-name
�gval �ginfo �gtoplevel-calls Q�glexical-lambdas Q�gtoplevel-lambdas Q�grtd Z�glexical-lambdas ��ggensym ��gval* ��glexical-lambdas ��gfilenameflanguage/tree-il/analyze.scm�
/ �� 1 �� 2 �� 93 �� Q1 �� Z4 �� w7 ���6 ���4 ���< ���< ���= ���= ���> '���> ���4 ���C ���B �� � gnamegextend�Cy����`^adW�hi�mno�qrsvwxBCD��LM!h��]lOQ�&
�" 45�&�" 45�& �" 45�&�454 5
�
&+4
>"G4
5�C
&@4
545
445
�$
�"
5�CC&4545
6&4545
6&4545
6&45 4>"G4>"G �
&*4 >"G4 >"GC
&"4 545�C
&j4 545�$L�
�
&"4
545�C4
>"GCCCC�gx
�ginfo �genv �glocs �gextend
�gtoplevel-calls ^�glexical-lambdas ^�gtoplevel-lambdas ^�grtd g�gname gexp
grtd �gtoplevel-lambdas ��gname �gproc
�gtoplevel-lambdas �ggensyms ,gvals
,ggensyms BRgvals
BRggensyms hxgvals
hxgproc ��grtd
��gname �gtoplevel-calls ggensym �gproc (�gr
4}grtd 9}gname Jegtoplevel-calls We gfilenameflanguage/tree-il/analyze.scm�
- �� H �� ,I �� FJ �� ^H �� gL ���N
���R ���P
���N
���U ���U
���X ���X -���Y 1���Y -���Z 1���X ���V ��L ��,_
��4L ��Ra
��ZL ��xc
���L ���f
���h
���f
���k ��k
��f
�� o ��(o
��-p ��1p ��4q ��4q ��Mt '��Wt ��fx ��jx &��rx ��, � Cy������h�U]#�&
�" 45�&�" 45�& �" 4545$45"�CMgname
gval ginfo gtoplevel-calls Q glexical-lambdas Q gtoplevel-lambdas Q glexical-lambdas q gfilenameflanguage/tree-il/analyze.scm�
� �� � �� � �� 9� �� Q� �� X� �� d� �� e� �� q� ��
gnamegshrink�Cy����mno�qrsvwxh��]$�&
�"4>"G�& �"4>"G�&
�"4>"G�&454 5
6&454
5
6&4545
6C�gx
�ginfo �genv �glocs �gshrink �grtd |�ggensyms ��gvals ��ggensyms ��gvals ��ggensyms ��gvals ��gfilenameflanguage/tree-il/analyze.scm�
� �� � �� /� �� U� �� |� ����
���� ����
���� ����
�� � Cy����Y��b��hY]LL6Qgfilenameflanguage/tree-il/analyze.scm�
� ��
� ��
Che-13C]gargs
gfilenameflanguage/tree-il/analyze.scm�
� ��
C�i�hY]LL6Qgfilenameflanguage/tree-il/analyze.scm�
� ��
� ��
Che-13C]gargs
gfilenameflanguage/tree-il/analyze.scm�
� ��
C���h��]!��44L55$"!4L5$4LO5"45$14 54L5$4
LO5""45$
645$
6C�gname+application
�gname �gapplication
�gt Ngproc N�gname b�gproc* ��gfilenameflanguage/tree-il/analyze.scm�
� �� � �� �
��
� ��
�
��
� �� � �� � �� � �� +� �� 5� �� 6� �� N�
�� Q� �� [� �� \� "�� b� �� e� �� o� �� p� ����
���� ���� ���� ���� ���� ���� �� �ChP�]�&
�" 45�& �" 45O6�gresult
Jgenv Jgtoplevel-calls 7 Jgtoplevel-lambdas 7 Jgfilenameflanguage/tree-il/analyze.scm�
� �� � �� � �� 7� �� J� �� J C�i�i�iyi��ih�]C�gx
ginfo genv glocs gfilenameflanguage/tree-il/analyze.scm�
* �� C�9R4�i�5�R�����O��O�h]6wgchar
gfilenameflanguage/tree-il/analyze.scm�
� ��
� ��
gnamegdigit?�C��kG��Q����� �h��]4545L$L45�""D45$�45$yLLLL$4 L5�"L$
"(
"4
?��L$4 L5�"L$
"(
"4?��6"��c"��_�gchars
�gconds �gmins )�gmaxs )�gsel? )�gfilenameflanguage/tree-il/analyze.scm�
�� $��
$�� $�� 5�� $ )�� ) �� 5! &�� 7! +�� 9! �� 9 �� : #�� F �� G #�� S �� Y *�� Z 3�� f '�� g 0�� p +�� z .��� .��� 2��� +��� $��� '��� 0��� +��� .��� .��� 2��� +��� $��� ��# � C � O�h]6wgchar
gfilenameflanguage/tree-il/analyze.scm�
� ��
� ��
gnamegdigit?�CO�h]6wgchar
gfilenameflanguage/tree-il/analyze.scm�
� ��
� ��
gnamegdigit?�C z h8E ]'($6D�$��~�$"�%�$"�&�$"�t�$"�T�$"u_�$"g
�$"Y(�$"K)�$"=!�$"/|�$"!/�$"q�$"Q�$ �"���0�$"�1�$"�2�$"�3�$"�4�$"�5�$"�6�$"u7�$"g8�$"Y9�$"K,�$"=:�$"/@�$"!+�$"-�$"#�$$��"���v�$"V�$&����"���p�$"P�$V4:5$45"� � $
4 5"�"��P[�$j4 5("4
445554@5
LO
"���;�$2$$���
"���6]�$"$�4��566{�$�4@5$D�"V (
45"N
$ �}& �"8 �
"��� �~& �
"��� �
"���
"�����"���*�$�4@5$D�45("4
44555$"�45("4
44555$"�"��?�$"k�$"K�$D^�$Dh�$"H�$<4:5$ "���"���'�$6�(6�����"��M���"��+�$N�~�$ �"����"���6= gchars
6gstate 6gparams 6g
conditions 6g end-group 6g min-count 6g max-count 6gkey (�gcolon? e�g min-count |�gnumbers ��gselector �gat? �gchars �gchars �gtilde?
�gnumbers b�gt ��gnumbers ��gt ��gargc Nvgkey �.gfilenameflanguage/tree-il/analyze.scm�
� �� � �� � �� � !�� � �� � �� %� �� (� �� (� ���� ���� *���� 3�� � ��� ���� ���� ���� +���� %��� ��� ��"� ��$� ��&� +��)� %��0� ��3� ��E� ��N� ��]� *��e� ��m� *��n� .��|� .��|� ��� ��� ,��� 5��� ��� $��� $��� ���� ��� ��� #��� '���� ���� ���� ���� ���� ���� )���� ���� ��� $��� ��% ��.� ��4$ ��7% ��9% $��:% -��?& ��B& ��X% ��^) '��`) ��i� ��o+ ��t, ��u- ��|- ,��- &���- ���, ���/ '���/ ���� ���0 ���0 ���1 .���1 ���2 .���2 "���� ���� ����
���� ����
����
���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ��� ��� ��3 "��3 +��5 "��!5 2��32 ��<� ��=6 ��I6 ��K7 $��M7 )��O7 ��R8 "��T9 "��U9 +��Z� ��b� ��j� ��p� ��s� ��v� )��~� ���� ���; %���; "���� ���� ���� ���� ���� ���� )���� ���� ���= %���= "���8 ���� ��B ��B ��B ��� ��!D ��#D ��,� ��;F (��GF $��NF ��SG ��UG ,��VG 5��_I ��dJ ��vG ��� ���L ���L ���M '���M ���N ���N %���N 2���N ,���N ���P ���P *���P 3���R ���R .���P ���� ���T ���T ���U ���U *���U 1��U ��X ��X *��X 3��.X ��2[ ��6[ ��� 6 gnamegloop�C �h(�] OQ45
6�gfmt
!gloop
!gfilenameflanguage/tree-il/analyze.scm�
�
��
� �� � �� � �� � �� � �� !� �� !gnamegformat-string-argument-count�C Rt� hY]L6Qgfilenameflanguage/tree-il/analyze.scm�
p �� p )��
Che-13C]gargs
gfilenameflanguage/tree-il/analyze.scm�
p ��
Cp cLh
hH�],""��$��&l
�� � �$4O5"
45$
45"$$�CCC�&
���CCC�$c� &.
��45$$�CCC�&
�� �&C"��"���"����$&� &
��&C"���"���"����gexp
Cgproc Cgspecial-name Cgenv Cgw #�gw *�gw 1�gmod V�gvar l�gw ��gw ��gvar ��gw �
gw +;gfilenameflanguage/tree-il/analyze.scm�
]
�� d �� 9o �� :p �� Mq �� Vo �� ^r �� _r �� lo �� ts �� ws �� {s �� ~s +���s &���d ���b ���d ���i ���i ���j ���j ���j ���k ���k ���d �� C gnameg proc-ref?�g
documentationf�Return #t when EXP designates procedure PROC in ENV. As a last
resort, return #t when EXP refers to the global variable SPECIAL-NAME.�C
R
�h�]6�gt-a11d84f71ea-25ec
gt-a11d84f71ea-25ef gfilenameflanguage/tree-il/analyze.scm�
x ��
x +�� x �� gnameggettext?�C R
h�]6�gt-a11d84f71ea-25f6
gt-a11d84f71ea-25f9 gfilenameflanguage/tree-il/analyze.scm�
y ��
y -�� y �� gnameg ngettext?�C RB n h��]B"W"��$��&�
��45$� ��$����$w�&l
��45$T�$K���$8�&-
�� 4 5$�$�$CCCCCCCCCCCCCC�$��&s
��45$W ��$E�(:��$*�&
��45$C"���"���"���"���"���"���"���"����$*�&
��45$C"��|"��x"��t�gx
�genv �gw #�gw 7�gw F�gx F�gw c�gw }�gx }�gw ��gw �Ugw �Qgw Igw -Agw v�gfilenameflanguage/tree-il/analyze.scm�
{
�� } �� &� �� 2} ���� ���} �� � gnameg const-fmt�C R� �� Ln Q �� �� hp]4L>G$R$J&"L�$&"L�"$CLLL6CC gmin
ngmax
ngt M jgfilenameflanguage/tree-il/analyze.scm�
� �� � �� � �� � �� $� -�� (� �� )� $�� 2� 3�� 6� �� :� -�� >� �� ?� $�� H� 3�� M� �� \� $�� `� 0�� j� �� n
C� h�]LL6�g_
gkey gfilenameflanguage/tree-il/analyze.scm�
� �� � ��
� %�� � �� Ch�]]2"&�$���$���45$54455$"445>"G""O"'4455$
64
56�$�&
��C"���"����$E�
&8
��4455$$"6"��i"��e"��a456456�$����$���4L5$n45$54455$"445>"G"4L545OO6"��9"��5"��1Ugargs
�gloc �gvx gvy gvx !
gw �gw �gvx 9�gvy 9�gvx J�gvy J�gfmt ��gcount ��
gfilenameflanguage/tree-il/analyze.scm�
� �� � �� (� �� 2�
�� 3� �� 6� "�� >� �� B� �� G� �� K� �� O� #�� P� /�� [� �� k�
�� q� �� {�
���� ���� "����
����
���� ����
���� ���� ���� ,����
���
��� ��� ��� /���
��� ��#� ��$� /��,�
��,� ��O� ��[� ��\� ��f�
��g� ��j� "��r� ��v� ��{� ��� ���� #���� /���� ���� ���� ����
���� ���� ��7 � gnamegcheck-format-args�C nk �O hq]6igt-a11d84f71ea-2e3a
gfilenameflanguage/tree-il/analyze.scm�
� ��
C� � O hq]6igt-a11d84f71ea-2e41
gfilenameflanguage/tree-il/analyze.scm�
� )��
ChH]Z"a�$X���$E��4L545$#�$45"���CCCC�$����$����$x�&k
��45$Q�$F"�(45"��$��� ~�$� �$R � �
�$
�"��� �$"���4455"�
�$
"��e4455"W
�$
"��94455"+
4455"4 5"���4
5$C4
4455>"GC"��"��"���"���"���"���@gargs
gloc gw egx egw $ cgx $ cgw 1 cgx qgw �gx �gw �gchars ��gresult ��gw ��gx ��gw
�=gx �=gx
7gx
?igx
k�gopts ��gt ��gfilenameflanguage/tree-il/analyze.scm�
� �� � �� )� �� 1� �� H� -�� U� $�� _�
�� g� ���� ���� ���� ���� ��� ��� ��
� ��"� ��#� ��T� ��U� ���� ���� ���� ���� ���� ���� ����
���� ���� ���� ���� ���� '���� ���� !���� ���� ���� ��% gnamegcheck-simple-format-args�CBt �� !hb��hY]LL6Qgfilenameflanguage/tree-il/analyze.scm�
� ��
� ��
Che-13C]gargs
gfilenameflanguage/tree-il/analyze.scm�
� ��
C # %h�]DOOQQ"�"-�$"�&
���$��&�
���$� � &Y �
4
$" 455$+4
$" 45>"8G"1"-
&Y �
4
$" 455$+4
$" 45>"�G"�"�
"� "�"�"�"�"��$��&�
���$s�&f
��
�$K � &5 �
4
$" 45>"+G"$
"��K "��D"��="��9"��/"��+�$��&�
���$��&�
�� � 45$4
O5"
& 4 $" 455"$"
�$+4 $" 45>"G"
""��H""��@""��2""��*C�gx
�g_ �genv �glocs �gcheck-format-args �gcheck-simple-format-args �gw ;Lgw AIgw \>gw l7gw
{�gw
�0gw h�gw n�gw ��gw ��gw
��gw �gw �gw 1�gw 8�gproc
[�gt ��gfilenameflanguage/tree-il/analyze.scm�
� �� #� �� ~�
���� '���� /����
���� ����
���� %���� -����
���� ����
���� '���� /����
���� ����
�� � %��� -���
��T� ���� ���� ���� (���� ���� ��;� ��E� ��F� ��[� ��e� ��f� ��p� 1��w� 9���� ���� ���� ����
���� ���� &���� .���� ���� ��- � C�ih�]C�gx
g_ genv glocs gfilenameflanguage/tree-il/analyze.scm�
� �� Ch�]C�gx
g_ genv glocs gfilenameflanguage/tree-il/analyze.scm�
� �� Chq]Cig_
genv gfilenameflanguage/tree-il/analyze.scm�
� �� C�:RCcgm
,grtd
A�A�grtd
m�ngdown
�A��gup�A��gvars �K�agrefs �K�aginit �a��grtd
����gadd-ref-from-context
����gdown����gpost ����grefs ����gdefs ����ginit ����grtd
gleaf
�U�gdown�U�grefs �_�ugdefs �_�uginit �u�grtd
��-gdown
~tgup~tgpost ~tgtoplevel-calls ��glexical-lambdas ��gtoplevel-lambdas ��ginit �kgdown
R�T�gfilenameflanguage/tree-il/analyze.scm�
���
��=2�
��>5#
��j*,
��j�Z
��~3`
����f ���K� ���af ����d
�����
�����
�����
���S�
���� ���s ����S ���� ����
����^
����d
��z ���_� ���uz ���x
����
����
���) ���� ���) ��w'
��x� ���
���� ����
��2-�
��7x]
��8\x
��9Ey
��<�{
��R�� ��T��
��, T�
C6
?>