Uname: Linux web3.us.cloudlogin.co 5.10.226-xeon-hst #2 SMP Fri Sep 13 12:28:44 UTC 2024 x86_64
Software: Apache
PHP version: 8.1.31 [ PHP INFO ] PHP os: Linux
Server Ip: 162.210.96.117
Your Ip: 18.191.210.71
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : analyze.go
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�	5ganalyze-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�	Pglambda-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>��gdynwind-body��gdynwind-winder��gdynwind-unwinder��g<dynlet>��g
dynlet-fluids��gdynlet-vals��gdynlet-body��g<dynref>��gdynref-fluid��g<dynset>��gdynset-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��gconditional?��glexical-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��gtree-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��gletrec-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?�fgvlist-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��glist->string��gevery��gnumber?��glist-ref�	gmin�	gunexpected-semicolon�	g"unexpected-conditional-termination�	gunterminated-iteration�	gunexpected-termination�	fcomputer bought the farm�	gstring->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�	gsyntax-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	��	2I	��	;L	��	VM	��		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	axgexp	��gexps	�gexps	�gret		�gy	
��gy	
��gbody	"�gfree	F�ginits	�Iggensyms	�Igbody		�Ig	alternate	
�Iggensyms	f�gvals	f�gbody		f�ggensyms	�Fgvals	�Fgbody		�Fggensyms	cJgvals	cJgbody		cJgvar-refs	
�Jgvars-with-refs	�Jg	body-refs	�Jgdelabel-dependents!	
�Jgexp	`�gbody	`�gbody	��gwinder	��gunwinder		��gfluids	�gvals	�gbody		�gfluid	#:gfluid	Prgexp	Prgtag	��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	��JO		��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&45"��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
544L	55"	49:
5

"���
��44L�	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	Egc	K�gn	K�gfree-addresses	�glabels	�ginits	3ggensyms	3gbody	3g	alternate	3ggensyms		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	Wogn		Woggensyms	
a�gvals	a�gnmax	a�gr	
��grtd	��gbody	��gv	
ogexp	��gbody	��gbody	��gwinder	��gunwinder	��gfluids	9gvals	9gbody	9gfluid	HZgfluid	p�gexp	p�gtag	�,gbody	�,ghandler	�,gcont-var	�,gtag	Irgargs	Irgtail	IrHgfilenameflanguage/tree-il/analyze.scm�
o	��	q	��	7p	��	Bs	��	Ls	��	Tq	��	rp	���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	����	����		����	����	 ����	����	
����	����	����	����	
����	����	����	����	"���	��	�	���	���	���	!��$�	��$�	��8q	��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	��Aq	��Zp	��bq	��wp	���
	���q	���
	���
	���	#���	���
	���	!���	���
	���		���	���	*���	#���		��
p	��,		��4q	��Rp	��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�	��	sm	��	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@45$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@45$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@45$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@45$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@45$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-typegsyntax-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	��	08	��		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	��		#	Chp�]4OOO4	5�54
O�>"GC�ganalyses
		ngtree		ngenv			ngproc			gproc			)gproc		+	;gresults		J	kgfilenameflanguage/tree-il/analyze.scm�
,
��	D		��	D	��	E	��	+F	��	<G	��	=H	��	FG	��	JD		��	JC	��	MK	��	[N	��	`K	��		n	gnameganalyze-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@45$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@45$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-typegsyntax-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
545454
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	
EQggensyms	g�gnames		g�gvars	
}�ggensyms	��gnames		��gvars	
��gfilenameflanguage/tree-il/analyze.scm�
p	��	s	��	t	��	7u	��	=s	��	F}	��	Z	"��	c	
��	w}	����	����	����	#����	����	����	$����	0����	����	"����	,����	"����	6����	����	
���w		��
�	��!}	��4w		��E�	
��Y}	��lw		��}�	
���}	���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	��	6i	��	=k	��	Qm	"��	Zm	
��		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@45$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@45$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@45$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-typegsyntax-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&#4
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	
O56eggraph
		}genv		}gpublic-defs		,	}gprivate-defs		,	}groots		<	}grefs		X	}g	reachable		c	}gunused		s	}gfilenameflanguage/tree-il/analyze.scm�
2	��	A	��	D	!��	+A	��	/@	��	4E	��	<E		��	AF	��	XE		��	[G	��	cE		��	fH	��	sE		��	}L	��		}	CQ�i�i�i��i���hijh`�]�&
	�"4>"G�&#454>"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@45$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@45$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-typegsyntax-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$"	45	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		8kgrtd		Okgname		`�gt	��gsrc	��grefs		��gname	�grefs	�gdefs		�gproc	agargs	agname		-agrefs	
IWgdefs	IWgfilenameflanguage/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@45$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@45$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@45$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-typegsyntax-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
545454
5		("�$45"

$
"

("�$45"

$
"

�$4�5"�$�"�"��%&)454545"���D45D"����gproc
	�garity	G	fgname	j�gproc		j�garities		j�grtd		szgreq	�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���$ ���$
���$���
	
(��$�"�(45"��
"�
�"���4
5$X44
55$"	$44
55"$��$��""��w"���"���
L"��a"L$.$&45�$$C��CCCCCCCCCCgarity
	Qgvx	Ogvy		Ogvx		 Mgvy		 Mgvx		1Kgvy		1Kgvx		BIgvy		BIgvx			SGgvy	
	SGgargs		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�CCglexical-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	��	93	��	Q1	��	Z4		��	w7	���6	���4		���<	���<	���=	���=	���>	'���>	���4		���C	���B	��	�	gnamegextend�Cy����`^adW�hi�mno�qrsvwxBCD��LM!h��]lOQ�&
�"	45�&�"	45�&		�"	45�&�454	5
	
�
&+4
>"G4	
5�C
&@4
545
445
�$
�"
5�CC&4545
		
6&4545
		
6&4545
		
6&45	4>"G4>"G	�


&*4	>"G4	>"GC

&"4	545�C
&j4 	545�$L�

�
&"4
545�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		BRgvals	
BRggensyms		hxgvals	
hxgproc		��grtd	
��gname	�gtoplevel-calls	ggensym	�gproc	(�gr	
4}grtd	9}gname	Jegtoplevel-calls	We gfilenameflanguage/tree-il/analyze.scm�
-	��	H	��	,I	��	FJ	��	^H	��	gL	���N	
���R	���P	
���N	
���U	���U	
���X	 ���X	-���Y	1���Y	-���Z	1���X	 ���V	��L	��,_	
��4L	��Ra	
��ZL	��xc	
���L	���f	
���h	
���f	
���k	��k	
��f	
�� o	��(o	
��-p	��1p	��4q	 ��4q	��Mt	'��Wt	��fx	��jx	&��rx	��,	�	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&454
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""45$	
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
445554@5	
	LO	

"���;�$2$$���

"���6]�$"$�4��566{�$�4@5$D�"V	(
45"N
$	�}&	�"8	�
	"���	�~&	�
	"���	�
	"���
	"�����"���*�$�4@5$D�45("4
44555$"�45("4
44555$"�"��?�$"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	Nvgkey	�.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��32	��<�	��=6	��I6	��K7	$��M7	)��O7	��R8	"��T9	"��U9	+��Z�	��b�	��j�	��p�	��s�	��v�	)��~�	����	���;	%���;	"����	����	����	����	����	����	)����	����	���=	%���=	"���8	����	��B	��B	��B	���	��!D	 ��#D	��,�	��;F	(��GF	$��NF	��SG	 ��UG	,��VG	5��_I	 ��dJ	 ��vG	���	���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	Cgspecial-name		Cgenv		Cgw		#�gw		*�gw		1�gmod		V�gvar		l�gw	��gw	��gvar	��gw	�
gw	+;gfilenameflanguage/tree-il/analyze.scm�
]
��	d	��	9o	��	:p	��	Mq	��	Vo	��	^r	��	_r	��	lo	��	ts	��	ws	��	{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		qgw	�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"��/"��+�$��&�
���$��&�
��	�	45$4
O5"

& 4	$"	455"$"
�$+4	$"	45>"G"
	""��H""��@""��2""��*C�gx
	�g_	�genv		�glocs		�gcheck-format-args		�gcheck-simple-format-args		�gw		;Lgw		AIgw		\>gw			l7gw	
	{�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�	���af	����d
�����
�����
�����
���S�
����	���s	����S	����	����
����^
����d
��׮z	���_�	���uz	���x
����
����
���)	����	���)	��w'
��x�	���	
����	����
��2-�
��7x]
��8\x
��9Ey
��<�{
��R��	��T��
��,	T�
C6
© 2025 GrazzMean